(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)
(do () ((quit?))
(glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
(glLoadIdentity)
+;(gluLookAt 0 0 50 0 0 0 0 1 0)
(when (functionp game-code) (funcall game-code))
(SDL_GL_SwapBuffers)
(delay-frame)