;;;; 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)
(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)