(open-network-stream-server): Pass on optional args

sentinel and filter to make-network-process (from Luke Gorrie).
This commit is contained in:
Kim F. Storm 2002-05-28 22:04:14 +00:00
parent 3ad83f29b5
commit 5f64b52b67

View file

@ -4328,7 +4328,8 @@ functions to be used for the client processes; the server process
does not use these function."
(if (featurep 'make-network-process '(:server t))
(make-network-process :name name :buffer buffer
:service service :server t :noquery t)))
:service service :server t :noquery t
:sentinel sentinel :filter filter)))
)) ;; (featurep 'make-network-process)