Commit 0f2d0e32 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Be more explicit about what is happening to ASDF:*CENTRAL-REGISTRY* to *LOAD-VERBOSE*.

parent 2f00d4fa
......@@ -12,10 +12,10 @@
(defsystem asdf-install
#+:sbcl :depends-on
#+:sbcl (sb-bsd-sockets)
:version ""
:version ""
:description "<> asdf:defsystem <>"
:author "Dan Barlow <>, Edi Weitz <> and many others. See the file COPYRIGHT for more details."
:maintainer "Gary Warren King <>"
:maintainer "Gary Warren King <> // ABCL <> ."
:components ((:file "defpackage")
(:file "split-sequence" :depends-on ("defpackage"))
......@@ -117,8 +117,15 @@ namestrings.")
(defvar *temporary-directory*
(pathname-sans-name+type (user-homedir-pathname)))
(defparameter *asdf-install-verbose* t)
(export '*asdf-install-verbose*)
(eval-when (:load-toplevel)
(require 'asdf)
(dolist (location *locations*)
(pushnew (second location) asdf:*central-registry*)))
((asdf-designator (second location)))
(format *asdf-install-verbose* "Adding ~A to ASDF." asdf-designator)
(pushnew (second location) asdf:*central-registry*))))
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