X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=impl-lispworks.lisp;fp=impl-lispworks.lisp;h=90c62ad9586b081e5951b59c8b8e7f17e567bfb0;hb=cb60460c044d8e4c1270b30acd43853ef4ef8f94;hp=15a9569573086edeb97fd858723575aec17e64ce;hpb=15087892c95feb07419c5a13fa6da162198cf77a;p=cl-modlisp.git

diff --git a/impl-lispworks.lisp b/impl-lispworks.lisp
index 15a9569..90c62ad 100644
--- a/impl-lispworks.lisp
+++ b/impl-lispworks.lisp
@@ -5,7 +5,8 @@
 (defvar *processor*)
 (let ((*processor* nil))
   
-  (defun make-socket-server (name function port &key wait (format :text))
+  (defun make-socket-server (name function port listener
+			     &key wait (format :text) function-args)
     (setq *processor* function)
     (values
      (comm:start-up-server