<div dir="ltr">This implementation is just the start to see check the concept and if it is useful; it is not robust and do not deal with<div>exceptional situations (like use/unuse ccl)<div><br></div><div>I will modify the code such that when you use ccl or common-lisp-user it does nothing (those packages are used in all new packages)</div>
<div><br></div><div>But I understand your test and when use a package other than ccl or common-lisp-user it works fine:</div><div><div><br></div><div><div>? (with-package (calculus)</div><div> (let ((#1=#:hello 'world))</div>
<div> (print (list #1# #1#))))</div><div><br></div><div>(WORLD WORLD)</div><div>(WORLD WORLD)</div></div><div><br></div><div>why you say the code contains a lot of non-conforming code? but anyway, this can be corrected once</div>
</div><div>i know what is conforming and what is not</div><div><br></div><div>what is important at this point is to see if the concept is working and if it is useful, anything else can be corrected</div><div><br></div><div>
<br></div><div>I do not understand the following:</div></div><div><br></div><div>"<span class="" style="font-family:arial,sans-serif;font-size:13px">FILE-WRITE-DATE could return nil while the file is still loadable.</span></div>
<span class="" style="font-family:arial,sans-serif;font-size:13px">If you don't want to modify the package if the file can't be openned,<br>you can open it with WITH-OPEN-FILE, and pass the file-stream to LOAD."<br>
</span><div><span class="" style="font-family:arial,sans-serif;font-size:13px"><br></span></div><div><span class="" style="font-family:arial,sans-serif;font-size:13px">Kind regards</span></div><div><span class="" style="font-family:arial,sans-serif;font-size:13px">Taoufik</span></div>
<div><span class="" style="font-family:arial,sans-serif;font-size:13px"><br></span></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Jan 14, 2013 at 8:07 PM, Pascal J. Bourguignon <span dir="ltr"><<a href="mailto:pjb@informatimago.com" target="_blank">pjb@informatimago.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">Taoufik Dachraoui <<a href="mailto:dachraoui.taoufik@gmail.com">dachraoui.taoufik@gmail.com</a>> writes:<br>
<br>
> Hi<br>
><br>
> I hope this time it is ok,<br>
<br>
</div>Far from it. You need at least one or two years studying lisp before<br>
getting close.<br>
<br>
You have a lot of non-conforming code (starting with your defpackage<br>
form).<br>
<br>
FILE-WRITE-DATE could return nil while the file is still loadable.<br>
If you don't want to modify the package if the file can't be openned,<br>
you can open it with WITH-OPEN-FILE, and pass the file-stream to LOAD.<br>
<br>
<br>
cl-user> (load "mb.lisp")<br>
;Compiler warnings for "/home/pjb/mb.lisp" :<br>
; In homeless-symbol-reader: Variable stream not ignored.<br>
#P"/home/pjb/mb.lisp"<br>
cl-user> (use-package :mb)<br>
t<br>
cl-user> (with-package (cl-user)<br>
(let ((#1=#:hello 'world))<br>
(print (list #1# #1#))))<br>
> Debug: cannot unuse package #<Package "COMMON-LISP-USER"><br>
><br>
> While executing: (:internal swank::invoke-default-debugger), in process repl-thread(25).<br>
> Type :POP to abort, :R for a list of available restarts.<br>
> Type :? for other options.<br>
1 > :q<br>
; Evaluation aborted on #<simple-error #x302001CB87FD>.<br>
<div class="HOEnZb"><div class="h5"><br>
<br>
--<br>
__Pascal Bourguignon__ <a href="http://www.informatimago.com/" target="_blank">http://www.informatimago.com/</a><br>
A bad day in () is better than a good day in {}.<br>
<br>
_______________________________________________<br>
Openmcl-devel mailing list<br>
<a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>
<a href="http://clozure.com/mailman/listinfo/openmcl-devel" target="_blank">http://clozure.com/mailman/listinfo/openmcl-devel</a><br>
</div></div></blockquote></div><br></div>