From d89eeb0212cedfe8480e080d32db0644dceb7985 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Tue, 8 Dec 2009 08:49:18 +0000
Subject: [PATCH]

---
 gacela.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gacela.lisp b/gacela.lisp
index 40edc6d..8a1c2c8 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)
-- 
2.39.5