From 448e1a9aceb2d7119d7319c2bf21bc04a10d3613 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Thu, 9 Oct 2003 22:42:05 +0000
Subject: [PATCH] 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.

---
 asdf.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 34f6593e..cc1b3b09 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; 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)))
-- 
GitLab