Re: [Gcl-devel] [Maxima-discuss] Ansi change in upcoming gcl release

[Camm Maguire]

Greetings!

OK, the sequence of these two patches are backward compatible as well as
compatible with all lisps.  I'll check them in if there are no
objections:

--- maxima-5.38.1.orig/lisp-utils/defsystem.lisp
+++ maxima-5.38.1/lisp-utils/defsystem.lisp
@@ -1843,11 +1843,11 @@ s/^[^M]*IRIX Execution Environment 1, *[
 (rel-directory (directory-to-list (pathname-directory rel-dir)))
 (rel-keyword (when (keywordp (car rel-directory))
(pop rel-directory)))
- #-(or :MCL :sbcl :clisp :cmu) (rel-file (file-namestring rel-dir))
+ #-(or :MCL :gcl :sbcl :clisp :cmu) (rel-file (file-namestring 
rel-dir))
 ;; Stig (July 2001);
 ;; These values seems to help clisp as well
-#+(or :MCL :sbcl :clisp :cmu) (rel-name (pathname-name rel-dir))
-#+(or :MCL :sbcl :clisp :cmu) (rel-type (pathname-type rel-dir))
+#+(or :MCL :gcl :sbcl :clisp :cmu) (rel-name (pathname-name rel-dir))
+#+(or :MCL :gcl :sbcl :clisp :cmu) (rel-type (pathname-type rel-dir))
 (directory nil))
 
 ;; TI Common Lisp pathnames can return garbage for file names because
@@ -1873,7 +1873,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
 
 (when (and abs-name (not (null-string abs-name))) ; was abs-name
   (cond ((and (null abs-directory) (null abs-keyword))
-#-(or :lucid :kcl :akcl TI) (setf abs-keyword :relative)
+#-(or :lucid TI) (setf abs-keyword :relative)
 (setf abs-directory (list abs-name)))
(t
 (setf abs-directory (append abs-directory (list abs-name))
@@ -1886,11 +1886,11 @@ s/^[^M]*IRIX Execution Environment 1, *[
   rel-keyword)
   ;; The following feature switches seem necessary in CMUCL
   ;; Marco Antoniotti 19990707
-  #+(or :sbcl :CMU)
+  #+(or :gcl :sbcl :CMU)
   (if (typep abs-dir 'logical-pathname)
  (setf abs-keyword :absolute)
  (setf abs-keyword rel-keyword))
-  #-(or :sbcl :CMU)
+  #-(or :gcl :sbcl :CMU)
   (setf abs-keyword rel-keyword))
 (setf directory (append abs-directory rel-directory))
 (when abs-keyword (setf directory (cons abs-keyword directory)))
@@ -1900,11 +1900,11 @@ s/^[^M]*IRIX Execution Environment 1, *[
 :directory
 directory
:name
-   #-(or :sbcl :MCL :clisp :cmu) rel-file
-   #+(or :sbcl :MCL :clisp :cmu) rel-name
+   #-(or :gcl :sbcl :MCL :clisp :cmu) rel-file
+   #+(or :gcl :sbcl :MCL :clisp :cmu) rel-name
 
-   #+(or :sbcl :MCL :clisp :cmu) :type
-   #+(or :sbcl :MCL :clisp :cmu) rel-type
+   #+(or :gcl :sbcl :MCL :clisp :cmu) :type
+   #+(or :gcl :sbcl :MCL :clisp :cmu) rel-type

 
 #-scl


--- maxima-5.38.1.orig/lisp-utils/defsystem.lisp
+++ maxima-5.38.1/lisp-utils/defsystem.lisp
@@ -1873,7 +1872,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
 
 (when (and abs-name (not (null-string abs-name))) ; was abs-name
   (cond ((and (null abs-directory) (null abs-keyword))
-#-(or :lucid TI) (setf abs-keyword :relative)
+#-(or :lucid TI) (setf abs-keyword (car (pathname-directory "./")))
 (setf abs-directory (list abs-name)))
(t
 (setf abs-directory (append abs-directory (list abs-name))

Raymond Toy  writes:

>> "Camm" == Camm Maguire  writes:
>
> Camm> Greetings!  There are ways to make this patch backward compatible.  
> I
> Camm> was soliciting suggestions.
>
> On the face of it, I have no objections to this change, but I think
> it's up to you to provide some hints on how to make it backward
> compatible.
>
> I don't update gcl (or other lisps) very often, so backward
> compatibility is important to me.
>
> --
> Ray
>
>
> ___
> Gcl-devel mailing list
> Gcl-devel@gnu.org
> https://lists.gnu.org/mailman/listinfo/gcl-devel
>
>
>

-- 
Camm Maguirec...@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

Re: [Gcl-devel] [Maxima-discuss] Ansi change in upcoming gcl release

[Raymond Toy]

> "Camm" == Camm Maguire  writes:

Camm> Greetings!  There are ways to make this patch backward compatible.  I
Camm> was soliciting suggestions.

On the face of it, I have no objections to this change, but I think
it's up to you to provide some hints on how to make it backward
compatible.

I don't update gcl (or other lisps) very often, so backward
compatibility is important to me.

--
Ray


___
Gcl-devel mailing list
Gcl-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/gcl-devel

Re: [Gcl-devel] [Maxima-discuss] Ansi change in upcoming gcl release

[Camm Maguire]

Greetings!  There are ways to make this patch backward compatible.  I
was soliciting suggestions.

Take care,

Raymond Toy  writes:

>> "Camm" == Camm Maguire  writes:
>
> Camm> Greetings!  I am considering moving some ansi fixes from master 
> into the
> Camm> next gcl release.  Pathnames.  This entails the following maxima 
> patch.
> Camm> I'd like to make something backward compatible -- suggestions?
>
> How is this going to work if I have an older version?  Is there some
> way to distinguish between these versions?
>
> --
> Ray
>
>
> --
> Check out the vibrant tech community on one of the world's most 
> engaging tech sites, SlashDot.org! http://sdm.link/slashdot
> ___
> Maxima-discuss mailing list
> maxima-disc...@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/maxima-discuss
>
>
>
>

-- 
Camm Maguirec...@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