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 "0.6.10.2"
:version "0.6.10.3"
:description "<> asdf:defsystem <urn:abcl.org/release/1.3.0-dev/contrib/asdf-install#0.6.10.2>"
:author "Dan Barlow <dan@telent.net>, Edi Weitz <edi@agharta.de> and many others. See the file COPYRIGHT for more details."
:maintainer "Gary Warren King <gwking@metabang.com>"
:maintainer "Gary Warren King <gwking@metabang.com> // ABCL <evenson@not.org> ."
: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*)
#+abcl
(eval-when (:load-toplevel)
(require 'asdf)
(dolist (location *locations*)
(pushnew (second location) asdf:*central-registry*)))
(let
((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