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

1.678: undo 1.675's fix to bug 562186 for ECL, that doesn't like it.

parent b85a0252
......@@ -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.677" (1+ (length "VERSION"))))
(subseq "VERSION:1.678" (1+ (length "VERSION"))))
#+allegro (excl::*autoload-package-name-alist* nil)
(existing-asdf (find-package :asdf))
(versym '#:*asdf-version*)
......@@ -2596,7 +2596,7 @@ with a different configuration, so the configuration would be re-read then."
(funcall collect (list trusrc t)))
(let* ((trudst (make-pathname
:version :wild
:version #-ecl :wild #+ecl nil
:defaults (if dst (resolve-location dst t) trusrc)))
(wilddst (make-pathname
:name :wild :type :wild :version :wild
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment