Commit c658cc43 authored by csr21's avatar csr21
Browse files

fix-clisp-open-x-stream

From Evgeny M. Zubok on portable-clx.

darcs-hash:20070109092939-30503-3dff8ddd43311f1a8c7c1fb4a824fb6e5601da29.gz
parent 2290b1a2
......@@ -1424,7 +1424,7 @@
(when (or (string= host "")
(string= host "unix"))
;; ok, try to connect to a AF_UNIX domain socket
(sys::make-socket-stream "" display)))))
(sys::make-socket-stream "" display))))
(if socket
socket
;; try to connect by hand
......@@ -1435,7 +1435,7 @@
"~{~D~^.~}"
(rest host))))
(socket:socket-connect (+ 6000 display) ip
:element-type '(unsigned-byte 8)))))))
:element-type '(unsigned-byte 8))))))))
;;; Genera:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment