From fafbc612a0cf93aa0b44e6ce09d9a257eb41fdd4 Mon Sep 17 00:00:00 2001
From: Avril <flanchan@cumallover.me>
Date: Sun, 12 May 2019 21:59:59 +0100
Subject: [PATCH] test a bit more graceful

---
 test-server      | 2 +-
 test-server.lisp | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/test-server b/test-server
index bcd0c4b..29e305b 100755
--- a/test-server
+++ b/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
diff --git a/test-server.lisp b/test-server.lisp
index 3a573e2..9f2c281 100644
--- a/test-server.lisp
+++ b/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*))