From 966fd9d857be6472f986c41d6c765df36eaaf2ac Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 30 Dec 2003 18:04:04 +0000
Subject: [PATCH] r8419: fix clisp typo

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

diff --git a/sockets.lisp b/sockets.lisp
index 1f1f373..74fa27e 100644
--- a/sockets.lisp
+++ b/sockets.lisp
@@ -69,7 +69,7 @@ setsockopt SO_REUSEADDR if :reuse is not nil"
     (values sock sock))
   #+clisp
   (let ((sock (ext:socket-accept listener)))
-    (value sock sock))
+    (values sock sock))
   #+cmu
   (progn
     (mp:process-wait-until-fd-usable listener :input)
-- 
2.34.1