[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Vadim V. Zhytnikov
Subject: Re: [Gcl-devel] HEAD Maxima and HEAD trad GCL
Date: Sun, 11 Jan 2004 14:22:29 +0300
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.5) Gecko/20031006

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

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

--- 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 
+         #+:gcl(abs-name (file-namestring abs-dir))
+        #-:gcl(abs-name (ignore-errors (file-namestring abs-dir))) ; was 
         (rel-directory (directory-to-list (pathname-directory rel-dir)))
         (rel-keyword (when (keywordp (car rel-directory))
                        (pop rel-directory)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]