Camm, On Wednesday, August 30, 2006 1:03 PM I wrote: > ... > Anyway it seems the following patch replacing (probe-file filearg) > with (directory (truename filearg)) should work (for Axiom's > purposes at least): > > In src/interp/nlib.lisp.pamphlet: > > ---------- > > ;; ($ERASE filearg) -> 0 if succeeds else 1 > (defun $erase (&rest filearg) > (setq filearg (make-full-namestring filearg)) > - (if (probe-file filearg) > + (if (directory (truename filearg)) > #+:CCL (delete-file filearg) > #+:AKCL > (if (library-file filearg) > (delete-directory filearg) > (delete-file filearg)) > 1)) > > ---------- > > Any comments? Does anyone see how to do this a better way?
I have compiled and tested Axiom Silver build.improvements branch with the new version of gcl-2.6.8pre, the above change as well as the patch suggested by Camm: > On Wednesday, August 23, 2006 2:27 PM > > ... > > You need this in patches.lisp.pamphlet: > > > > - (setq $current-directory (truename > > - (user-homedir-pathname))) ) > > > > goes to > > > > + (setq $current-directory (namestring (truename > > + (user-homedir-pathname))))) > > As expected the problem with rename is solved by these changes. Also Axiom has been built with 50% more memory (196*256) then was possible with the previous version of gcl. This should eliminate the memory related errors we have been seeing on some pages on the Axiom Wiki. I have made this new version of Axiom the current version on MathAction so that we can test it more thoroughly. However I remain a little uncertain if 'directory' is really the proper way to check for the existence of a file or directory in common lisp? Regards, Bill Page. _______________________________________________ Axiom-developer mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/axiom-developer
