(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index 6a93356b0da12ecd5c331a0eb4267b9e126ba39e..d94e4685246edaa305112488eeca66ed7aa1cf29 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -215,12 +215,7 @@
   (defun eval-from-clients ()
     (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)))))
+       (secure-block cli (eval (read cli))))))
 
   (defun stop-server ()
     (when socket