|
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 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)))
[Prev in Thread] | Current Thread | [Next in Thread] |