Commit 448e1a9a authored by Daniel Barlow's avatar Daniel Barlow
Browse files

Don't assign *verbose-out* statically: it gets us into trouble if

asdf is saved in a core.  When the core is reloaded, the stream is
not attached to anything interesting.
parent 9e10c26d
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
;;; This is asdf: Another System Definition Facility.  $Revision: 1.77 $
;;; This is asdf: Another System Definition Facility.  $Revision: 1.78 $
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -106,7 +106,7 @@

(in-package #:asdf)

(defvar *asdf-revision* (let* ((v "$Revision: 1.77 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.78 $")
			       (colon (or (position #\: v) -1))
			       (dot (position #\. v)))
			  (and v colon dot 
@@ -118,7 +118,7 @@
(defvar *compile-file-warnings-behaviour* :warn)
(defvar *compile-file-failure-behaviour* #+sbcl :error #-sbcl :warn)

(defvar *verbose-out* *trace-output*)
(defvar *verbose-out* nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; utility stuff
@@ -803,7 +803,7 @@ system."))
		    :original-initargs args args))
	 (*verbose-out*
	  (if (getf args :verbose t)
	      *verbose-out*
	      *trace-output*
	      (make-broadcast-stream)))
	 (system (if (typep system 'component) system (find-system system)))
	 (steps (traverse op system)))