+ (defun start-server (port)
+ (setq socket (si::socket port :server #'eval-from-client)))
+
+ (defun check-server-connections ()
+ (when (si::listen socket) (push (si:accept socket) clients)))
+
+ (defun eval-from-clients ()
+ (dolist (cli clients) (when (si::listen cli) (eval (read cli))))))