X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=sockets.lisp;fp=sockets.lisp;h=74fa27e1a82d9d8acf6a5adc8535eea213648d3a;hp=1f1f3734f4614c289dba17029fa11601e61da072;hb=966fd9d857be6472f986c41d6c765df36eaaf2ac;hpb=e2450e52a0813b8583395d7ac88f24e896f46e13

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)