From e3b5db38d5d5bf4e77e21e594223e89f534fa336 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Sun, 8 Nov 2009 06:58:20 +0000
Subject: [PATCH]

---
 gacela.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gacela.lisp b/gacela.lisp
index a98446b..6a93356 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -213,7 +213,14 @@
     (when (and socket (si::listen socket)) (push (si:accept socket) clients)))
 
   (defun eval-from-clients ()
-    (dolist (cli clients) (when (si::listen cli) (eval (read cli)))))
+    (dolist (cli clients)
+      (when (si::listen cli)
+	(let ((sto *standard-output*))
+	  (setq *standard-output* cli)
+	  (setq *break-enable* nil)
+	  (eval (read cli))
+	  (setq *break-enable* t)
+	  (setq *standard-output* sto)))))
 
   (defun stop-server ()
     (when socket
-- 
2.39.5