test a bit more graceful

test-server

@@ -5,4 +5,4 @@ if [[ ! -f "`readlink -f libsipc.so`" ]]; then
 	make ffi
 fi
 
-sbcl --load test-server.lisp
+sbcl --noinform --load test-server.lisp

test-server.lisp

@@ -1,6 +1,7 @@
 ;; Simple sipc server
 
-(ql:quickload :cl-sipc)
+(let ((*standard-output* (make-broadcast-stream)))
+  (ql:quickload :cl-sipc))
 
 (defparameter *socket-file* "sipc.socket")
 (defparameter *socket* (cl-sipc:bind *socket-file*))