(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)
(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))