-;;; Connection with Gacela Skin
-(let (socket)
- (defun start-skin-client (port)
- (when (null socket) (setq socket (si::socket port :host "localhost"))))
+;;; Connection with Gacela Skin Clients
+(let (server-socket clients)
+ (defun start-skin-server (port)
+ (cond ((null server-socket) (setq server-socket (si::socket port :server #'check-skin-connections)))))
+
+ (defun check-skin-connections ()
+ (cond ((listen server-socket) (setq clients (cons (si::accept server-socket) clients)))))