(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index f207e4b237ffe2d6c8a1d9e2711647c138b18fab..8a1c2c8f598d20fbb2347629594d902350c3e929 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -213,7 +213,7 @@
     (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)))))
+    (cond ((and server-socket (listen server-socket)) (setq clients (cons (si::accept server-socket) clients)))))
 
   (defun eval-from-skin ()
     (labels ((eval-clients (cli-socks)
@@ -271,6 +271,7 @@
        (SDL_GL_SwapBuffers)
        (delay-frame)
        (init-frame-time)
+       (check-skin-connections)
        (eval-from-skin)
        (process-events))
     (setq running nil))