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

Currently *TEST-STREAM* is bound to the value *STANDARD-OUTPUT* had when
the form was evaluated, most likely when the system was loaded. An
example of how this breaks is when supressing the output of
quickload. Ej. (ql:quickload :lisp-unit2 :silent t)

Author: PuercoPop

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"))