Commit 01647351 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.679: yet another take on wild versions.

parent efc7d6d8
Loading
Loading
Loading
Loading
+4 −5
Original line number Diff line number Diff line
@@ -60,7 +60,7 @@
(eval-when (:load-toplevel :compile-toplevel :execute)
  (let* ((asdf-version
          ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
          (subseq "VERSION:1.678" (1+ (length "VERSION"))))
          (subseq "VERSION:1.679" (1+ (length "VERSION"))))
         #+allegro (excl::*autoload-package-name-alist* nil)
         (existing-asdf (find-package :asdf))
         (versym '#:*asdf-version*)
@@ -2347,11 +2347,11 @@ with a different configuration, so the configuration would be re-read then."

(defparameter *wild-path*
  (make-pathname :directory '(:relative :wild-inferiors)
                 :name :wild :type :wild :version nil))
                 :name :wild :type :wild :version :wild))

(defparameter *wild-asd*
  (make-pathname :directory '(:relative :wild-inferiors)
                 :name :wild :type "asd" :version nil))
                 :name :wild :type "asd" :version :newest))

(defun wilden (path)
  (merge-pathnames* *wild-path* path))
@@ -2596,7 +2596,6 @@ with a different configuration, so the configuration would be re-read then."
                   (funcall collect (list trusrc t)))
                  (t
                   (let* ((trudst (make-pathname
                                   :version #-ecl :wild #+ecl nil
                                   :defaults (if dst (resolve-location dst t) trusrc)))
                          (wilddst (make-pathname
                                    :name :wild :type :wild :version :wild
@@ -2733,7 +2732,7 @@ effectively disabling the output translation facility."
  (let* ((fasl-type (pathname-type (compile-file-pathname "foo.lisp")))
         (wild-inferiors (make-pathname :directory '(:relative :wild-inferiors)))
         (mapped-files (make-pathname
                        :name :wild
                        :name :wild :version :wild
                        :type (if map-all-source-files :wild fasl-type)))
         (destination-directory
          (if centralize-lisp-binaries