X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=sockets.lisp;h=74fa27e1a82d9d8acf6a5adc8535eea213648d3a;hp=0ab5d941ffaf385c1bf792a7bcf62b81439beca0;hb=93ac7eed8f69f19013472f078b544be145619ff5;hpb=cf4d25858f4969025835e23008818d94c6e23208

diff --git a/sockets.lisp b/sockets.lisp
index 0ab5d94..74fa27e 100644
--- a/sockets.lisp
+++ b/sockets.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg with excerpts from portableaserve
 ;;;; Date Started:  Jun 2003
 ;;;;
-;;;; $Id: sockets.lisp,v 1.6 2003/07/21 08:41:19 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package #:kmrcl)
@@ -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)