-;;; Gacela Server for development mode
-(let (socket clients)
- (defun start-server (port)
- (when (null socket) (setq socket (si::socket port :server #'eval-from-clients))))
-
- (defun check-server-connections ()
- (when (and socket (si::listen socket)) (push (si:accept socket) clients)))
-
- (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)))))
-
- (defun stop-server ()
+;;; Connection with Gacela Skin
+(let (socket)
+ (defun start-skin-client (port)
+ (when (null socket) (setq socket (si::socket port :host "localhost"))))
+
+ (defun eval-from-skin ()
+ (when (si::listen socket)
+ (secure-block socket (eval (read-from-string (read-line socket))))))
+
+ (defun stop-skin-client ()