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

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