projects
/
cl-modlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5253: *** 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))
(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
(setq *processor* function)
(values
(comm:start-up-server