From 6c81ea50d50a4568575d4d76a27a4b2f1f70db4b Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Thu, 7 Nov 2013 22:57:08 +0100
Subject: [PATCH] Don't close the *standard-output* logger.

---
 src/utils.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/utils.lisp b/src/utils.lisp
index 6d868a1..e2a0cde 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -39,7 +39,7 @@
 	*log-messengers*)
 
   (push (cl-log:start-messenger 'text-stream-messenger
-				:name "client"
+				:name "stdout"
 				:filter *client-min-messages*
 				:stream *standard-output*)
 	*log-messengers*)
@@ -51,6 +51,7 @@
 
   (loop for messenger = (pop *log-messengers*)
      while messenger
+     when (string= "stdout" (cl-log:messenger-name messenger))
      do (cl-log:stop-messenger messenger)))
 
 ;; monkey patch the print-object method for cl-log timestamp