X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=73bc8804fe93f710ba689cc39cdf88929189bfa5;hb=3c076309ea8727753bf689c3524d20116f45a0a3;hp=f207e4b237ffe2d6c8a1d9e2711647c138b18fab;hpb=6bb158a2df19ab3f72322b47ad76084f205c1196;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index f207e4b..73bc880 100644
--- 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)
@@ -266,11 +266,12 @@
     (setq running t)
     (do () ((quit?))
 	(glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
-	(glLoadIdentity)
+	(to-origin)
 	(when (functionp game-code) (funcall game-code))
 	(SDL_GL_SwapBuffers)
 	(delay-frame)
 	(init-frame-time)
+	(check-skin-connections)
 	(eval-from-skin)
 	(process-events))
     (setq running nil))