Subject: Re: [Gcl-devel] HEAD Maxima and HEAD trad GCL
From: Camm Maguire
Date: 12 Jan 2004 11:00:58 -0500
Greetings!
"Vadim V. Zhytnikov" <vvzhy@mail.ru> writes:
> Camm Maguire ?????:
> > Hi Vadim!
> > "Vadim V. Zhytnikov" <vvzhy@mail.ru> 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
>
> <vvzhy@mail.ru>
> <vvzhy@netorn.ru>
> --- 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 camm@enhanced.com
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah