-;;; Connection with the GUI
-(let (socket)
- (defun connect-to-gui ()
- (setq socket (si::socket 1984 :host "localhost")))
+;;; Gacela Server for development mode
+(let (socket clients)
+ (defun server-running? ()
+ (if socket t nil))
+
+ (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)))