Merge pull request #9 from PuercoPop/patch-1

Alias *test-stream* to *standard-output*

Author: bobbysmith007

vars.lisp

@@ -1,7 +1,7 @@
 (in-package :lisp-unit2)
 (cl-interpol:enable-interpol-syntax)
 
-(defvar *test-stream* *standard-output*)
+(defvar *test-stream* (make-synonym-stream '*standard-output*))
 (defvar *test-log-stream* *test-stream*)
 (defvar *unit-test* nil
   "The currently executing unit test (bound in %run-test, ie every test
@@ -49,4 +49,4 @@
 
 (define-condition collect-test-results ()
   ((results :accessor results :initarg :results :initform nil))
-  (:documentation "Signaled that with-test-results should collect this test-result-database"))
+  (:documentation "Signaled that with-test-results should collect this test-result-database"))