X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=d94e4685246edaa305112488eeca66ed7aa1cf29;hb=713dfecf4536609800aa869bc1218b2dccc4d970;hp=6a93356b0da12ecd5c331a0eb4267b9e126ba39e;hpb=e3b5db38d5d5bf4e77e21e594223e89f534fa336;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index 6a93356..d94e468 100644
--- 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