gcl-devel
[Top][All Lists]
Advanced

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

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


From: Camm Maguire
Subject: Re: [Gcl-devel] HEAD Maxima and HEAD trad GCL
Date: 12 Jan 2004 11:00:58 -0500
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

Greetings!

"Vadim V. Zhytnikov" <address@hidden> writes:

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

Thanks for pinning this down!  Now could someone please, with a Mingw
ansi build (preferrably with --enable-debug), try to come up with an
example abs-dir where (ignore-errors (file-namestring abs-dir))
differs from (file-namestring abs-dir), then retry loading the
clcs_handler.lisp file in first?

Take care,

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

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




reply via email to

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