r8419: fix clisp typo
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 30 Dec 2003 18:04:04 +0000 (18:04 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 30 Dec 2003 18:04:04 +0000 (18:04 +0000)
sockets.lisp

index 1f1f373..74fa27e 100644 (file)
@@ -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)