diff --git a/asdf.lisp b/asdf.lisp index 34f6593e9b40da7031a81e4133ca10ba686cd766..cc1b3b096d3de888ff08d11df2a5c7f8ce738f67 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)))