From 016473519b7c7c8a65bcd16ccfbdb27974532342 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Wed, 14 Apr 2010 23:48:07 -0400
Subject: [PATCH] 1.679: yet another take on wild versions.

---
 asdf.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index f59e873a..a3cbbeeb 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -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
-- 
GitLab