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