[Top][All Lists]

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

[Gcl-devel] Ansi change in upcoming gcl release

From: Camm Maguire
Subject: [Gcl-devel] Ansi change in upcoming gcl release
Date: Tue, 11 Oct 2016 17:03:04 -0400
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux)

Greetings!  I am considering moving some ansi fixes from master into the
next gcl release.  Pathnames.  This entails the following maxima patch.
I'd like to make something backward compatible -- suggestions?

Take care,

--- 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 
         ;; 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)))
             (setf abs-directory (append abs-directory (list abs-name))))))
@@ -1886,11 +1886,11 @@ s/^[^M]*IRIX Execution Environment 1, *[
       ;; 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, *[
-                   #-(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

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]