cl-rw

commit 8d003f61b730453806db6149dce10700eae272f0
parent 3edd54b9f11b94f985027ac001f89273ee2a8b3d
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 26 Jul 2014 11:32:26 +0200

fix make-tcp-client-socket on sbcl, return stream

Diffstat:
M
socket.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/socket.lisp b/socket.lisp
@@ -58,7 +58,7 @@
                                    (car (sb-bsd-sockets:host-ent-addresses
                                          (sb-bsd-sockets:get-host-by-name host)))
                                    port)
-    x)
+    (sb-bsd-sockets:socket-make-stream x :input t :output t :buffering :none))
   #+ccl
   (ccl:make-socket :connect :active
                    :address-family :internet