diff --git a/asdf.lisp b/asdf.lisp index f59e873aad0af7fa8d976e88d01cc67743499a20..a3cbbeeb55fdd095381fc7d585f83970db3bf732 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