[Gcl-devel] RE: [Maxima] Latest CMUCL CVS and defsystem

[Mike Thomas]

Thanks for that Ray.

There were problems because the new Maxima defsystem uses "ignore-errors"
and "translate-logical-pathname" which doesn't exist in "traditional" GCL.

The patch included below is best described as "a naive hack after a complete
failure to understand the logical-pathname section of the Common Lisp
Hyperspec, particularly as it relates to pathname functionality already
present in CLtL1 GCL".

Never-the-less, it worked for me on Windows with CVS GCL so I suppose that
if it works on Linux for you it should be relatively OK.

Cheers

Mike Thomas.


$ cvs diff lisp-utils/defsystem.lisp
Index: lisp-utils/defsystem.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/lisp-utils/defsystem.lisp,v
retrieving revision 1.9
diff -r1.9 defsystem.lisp
2031,2032c2031,2034
<   (translate-logical-pathname
<    (merge-pathnames relative-dir absolute-dir)))
---
>   #-gcl (translate-logical-pathname
>        (merge-pathnames relative-dir absolute-dir))
>   #+gcl (merge-pathnames relative-dir absolute-dir)
> )
2096c2098,2099
<                (ignore-errors (translate-logical-pathname thing))
---
>                #-gcl (ignore-errors (translate-logical-pathname thing))
>                #+gcl thing
2658c2661,2663
<          (namestring (translate-logical-pathname pathname)))
---
>          #-gcl(namestring (translate-logical-pathname pathname))
>          #+gcl(namestring pathname)
> )
4007c4012
<       (translate-logical-pathname
---
>       #-gcl (translate-logical-pathname
4008a4014
>        #+gcl (merge-pathnames (make-pathname :type type) (pathname path2))
4130c4136,4137
<             ,(namestring (translate-logical-pathname output-file))
---
>             #-gcl,(namestring (translate-logical-pathname output-file))
>             #+gcl,(namestring output-file)

==========================================================================