(cond ((null server-socket) (setq server-socket (si::socket port :server #'check-skin-connections)))))
(defun check-skin-connections ()
(cond ((null server-socket) (setq server-socket (si::socket port :server #'check-skin-connections)))))
(defun check-skin-connections ()