Re: [Gcl-devel] HEAD Maxima and HEAD trad GCL

[Vadim V. Zhytnikov]

Camm Maguire ?????:
> Hi Vadim!
>
> "Vadim V. Zhytnikov" <address@hidden> writes:
>
>
> > The only "resolution" I have - replace Maxima defsystem
> > by older version. Then Maxima build goes flawlessly.
> > I'd like to know who is the real troublemaker.
> > Maybe we hit some subtle GCL+mingw bug.
>
>
> Can you please post a diff of the working and newer/broken defsystem
> files?
>
> Take care,

This is patch to current CVS Maxima defsystem.lisp
which resolves trouble with Mingw GCL.

Basically it restores one line conditional

#+:gcl(abs-name (file-namestring abs-dir))
#-:gcl(abs-name (ignore-errors (file-namestring abs-dir)))

This conditional can be found in older defsystem and
later was replaced by mere

(abs-name (ignore-errors (file-namestring abs-dir)))

So it seems that there is some bug in ignore-errors
in Mingw GCL.

--
     Vadim V. Zhytnikov

      <address@hidden>
     <address@hidden>

--- defsystem-new.lisp  Sun Jan 11 07:51:54 2004
+++ defsystem.lisp      Sun Jan 11 07:55:36 2004
@@ -1819,7 +1819,8 @@
                        (pop abs-directory)))
         ;; Stig (July 2001):
         ;; Somehow CLISP dies on the next line, but NIL is ok.
-        (abs-name (ignore-errors (file-namestring abs-dir))) ; was 
pathname-name
+         #+:gcl(abs-name (file-namestring abs-dir))
+        #-:gcl(abs-name (ignore-errors (file-namestring abs-dir))) ; was 
pathname-name
         (rel-directory (directory-to-list (pathname-directory rel-dir)))
         (rel-keyword (when (keywordp (car rel-directory))
                        (pop rel-directory)))