[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] [Maxima-discuss] Ansi change in upcoming gcl release
From: |
Camm Maguire |
Subject: |
Re: [Gcl-devel] [Maxima-discuss] Ansi change in upcoming gcl release |
Date: |
Fri, 14 Oct 2016 13:37:00 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux) |
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 <address@hidden> writes:
>>>>>> "Camm" == Camm Maguire <address@hidden> 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
> address@hidden
> https://lists.gnu.org/mailman/listinfo/gcl-devel
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah