r5250: *** empty log message ***

[cl-modlisp.git] / impl-lispworks.lisp

diff --git a/impl-lispworks.lisp b/impl-lispworks.lisp
index 15a9569573086edeb97fd858723575aec17e64ce..90c62ad9586b081e5951b59c8b8e7f17e567bfb0 100644 (file)
--- 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