X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=impl-lispworks.lisp;h=90c62ad9586b081e5951b59c8b8e7f17e567bfb0;hb=cb60460c044d8e4c1270b30acd43853ef4ef8f94;hp=86dfc57d5337b54cc1ab1c9736f8e7592241fc3b;hpb=315ebc6354619483aa1be1124eb3736cee6f7ab7;p=cl-modlisp.git

diff --git a/impl-lispworks.lisp b/impl-lispworks.lisp
index 86dfc57..90c62ad 100644
--- a/impl-lispworks.lisp
+++ b/impl-lispworks.lisp
@@ -2,12 +2,11 @@
 
 (in-package #:modlisp)
 
-(require "comm")
-
 (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