Hi, Camm --
I think I'll be happy to use this.
#+gcl
(member (car dir)
'(:ROOT ; for backward compatibility
#+cltl2
:ABSOLUTE)
:test #'eq)
#-gcl
(eq (car dir) :ABSOLUTE)
-- Matt
> From: Camm Maguire <c...@maguirefamily.org>
> Date: Tue, 11 Oct 2016 17:09:21 -0400
>
> Greetings! I am considering pushing some pathname ansi fixes from
> masterr into the next gcl release. Thie entails the following patch to
> #'canonical-unix-pathname in other-events.lisp:
>
> (eq (car dir)
> #+gcl :ROOT
> #-gcl :ABSOLUTE))
>
> becomes
>
> (eq (car dir)
> :ABSOLUTE))
>
> I'd like to make something backward compatible. Suggestions?
>
> Take care,
> --
> Camm Maguire c...@maguirefamily.org
> ==========================================================================
> "The earth is but one country, and mankind its citizens." -- Baha'u'llah
>
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/gcl-devel
