[cl-backend] hide annoying messages from quicklisp

sorear · Mar 6, 2011 · 4aa53ab · 4aa53ab
1 parent 1b8146a
commit 4aa53ab
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/cl-backend/backend.lisp b/cl-backend/backend.lisp
@@ -1,8 +1,11 @@
 (load (merge-pathnames "quicklisp/setup.lisp" 
 			   (user-homedir-pathname)))
 
-(ql:quickload "cl-json")
-(ql:quickload "fare-matcher")
+; hide annoying messages
+(let ((*standard-output* (make-broadcast-stream)))
+    (ql:quickload "cl-json")
+    (ql:quickload "fare-matcher")
+)
 
 (defpackage niecza (:use common-lisp)) 
 (in-package :niecza)

diff --git a/cl-backend/niecza-stash.lisp b/cl-backend/niecza-stash.lisp
@@ -1,7 +1,10 @@
 (defpackage niecza-stash (:export wrap-in-let to-stash-name) (:use :common-lisp))
 (in-package :niecza-stash)
 
-(ql:quickload "fare-matcher")
+; hide annoying messages
+(let ((*standard-output* (make-broadcast-stream)))
+    (ql:quickload "fare-matcher")
+)
 
 (defun to-stash-name (name) (intern (format nil "~{~A~^-~}" name)))