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 <toy.raym...@gmail.com> writes: >>>>>> "Camm" == Camm Maguire <c...@maguirefamily.org> 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 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