(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index a98446b823a7114b705053b0f8433e45dfa4426b..6a93356b0da12ecd5c331a0eb4267b9e126ba39e 100644 (file)
--- 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