(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