4206 |
|
|
4207 |
;;; make-network-process wrappers |
;;; make-network-process wrappers |
4208 |
|
|
4209 |
(if (fboundp 'make-network-process) |
(if (featurep 'make-network-process) |
4210 |
(progn |
(progn |
4211 |
|
|
4212 |
(defun open-network-stream (name buffer host service) |
(defun open-network-stream (name buffer host service) |
4271 |
(make-network-process :name name :buffer buffer |
(make-network-process :name name :buffer buffer |
4272 |
:service service :server t :noquery t))) |
:service service :server t :noquery t))) |
4273 |
|
|
4274 |
)) ;; (fboundp 'make-network-process) |
)) ;; (featurep 'make-network-process) |
4275 |
|
|
4276 |
|
|
4277 |
;; compatibility |
;; compatibility |