projects
/
cl-modlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5250: *** empty log message ***
[cl-modlisp.git]
/
impl-lispworks.lisp
diff --git
a/impl-lispworks.lisp
b/impl-lispworks.lisp
index 86dfc57d5337b54cc1ab1c9736f8e7592241fc3b..90c62ad9586b081e5951b59c8b8e7f17e567bfb0 100644
(file)
--- a/
impl-lispworks.lisp
+++ b/
impl-lispworks.lisp
@@
-2,12
+2,11
@@
(in-package #:modlisp)
(in-package #:modlisp)
-(require "comm")
-
(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