[Axiom-developer] Re: Cannot Rename The File Erlib To NRLIB

[Camm Maguire]

Greetings!

"Page, Bill" <address@hidden> writes:

> 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?
> 

I think you want (null (pathname-name (truename filearg)))
or
(and (directory filearg) (not (probe-file filearg)))

Take care,

> Regards,
> Bill Page.
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah