(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)
+ (secure-block cli (eval (read cli))))))
(defun stop-server ()
(when socket