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
;;; 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)))
......
Supports Markdown
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