Changeset 15514

Timestamp:

08/24/21 13:55:43 (18 months ago)

Author:

Mark Evenson

Message:

imported patch revert-to-asdf-3.3.5.patch

File:

• trunk/abcl/src/org/armedbear/lisp/asdf.lisp (modified) (4 diffs)

trunk/abcl/src/org/armedbear/lisp/asdf.lisp

@@ -1808 +1808 @@
 
 (with-upgradability ()
-  (defparameter *uiop-version* "3.3.5.0.1")
+  (defparameter *uiop-version* "3.3.5")
 
   (defun unparse-version (version-list)
@@ -2837 +2837 @@
 even though the OS may not be Unixish, we recommend you use :WANT-RELATIVE T
 to throw an error if the pathname is absolute"
-    #+(or abcl mcl)
-    (declare (ignore defaults))
     (block nil
       (check-type type (or null string (eql :directory)))
@@ -2863 +2861 @@
                   :directory (unless file-only (cons relative path))
                   :name name :type type
-                  :defaults (or #-(or abcl mcl) defaults *nil-pathname*))
+                  :defaults (or #-mcl defaults *nil-pathname*))
                  (remove-plist-keys '(:type :dot-dot :defaults) keys))))))
 
@@ -7811 +7809 @@
          ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
          ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
-         (asdf-version "3.3.5.0.1")
+         (asdf-version "3.3.5")
          (existing-version (asdf-version)))
     (setf *asdf-version* asdf-version)