runlisp: Clobber *compile-print* as well.

[runlisp] / runlisp.lisp

diff --git a/runlisp.lisp b/runlisp.lisp
index 902b6ad5290a104bab9b6bcc894a911bca0b1e89..6d8e20eebc1f372d4d067e8e7828b9f2b4e76c35 100644 (file)
--- a/runlisp.lisp
+++ b/runlisp.lisp
@@ -43,6 +43,7 @@ (set-dispatch-macro-character #\# #\!
 #+cmu (setf ext:*gc-verbose* nil)
 (defun suyb ()
   (setf *compile-verbose* nil
+       *compile-print* nil
        *load-verbose* nil
        *load-print* nil))
 #-cmu (suyb)