sock :input t :output t :element-type 'base-char)
sock))
#+cmu
- (let ((sock (ext:connect-to-inet-socket host port)))
+ (let ((sock (ext:connect-to-inet-socket server port)))
(values
(sys:make-fd-stream sock :input t :output t :element-type 'base-char)
sock))
#+openmcl
- (let ((sock (ccl:make-socket :remote-host host :remote-port port )))
+ (let ((sock (ccl:make-socket :remote-host server :remote-port port )))
(values sock sock))
)