-(defun make-socket-server (name function port listener
- &key wait (format :text) function-args)
- (let* ((passive-socket (create-inet-listener port :format format))
- (proc (make-process name
- #'(lambda ()
- (start-socket-server
- passive-socket function listener
- :wait wait
- :function-args function-args)))))
- (values proc passive-socket)))
+(defun make-socket-server (listener)
+ (setf (socket listener) (create-inet-listener
+ (port listener)
+ :format (listener-format listener)))
+ (setf (process listener) (make-process
+ (name listener)
+ #'(lambda () (start-socket-server listener))))
+ listener)