cl-rw

commit f06a3a498093255a94ffa6adefa6023ef58a66d6
parent 7ce693b97ef86509dd6014ed7920d4fd21b809df
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun,  3 Aug 2014 21:11:06 +0200

fix make-tcp-client-socket on sbcl, want bivalent stream and buffering

Somehow buffering :none doesnt allow me to control packet boundaries.
It was splitting packets in the middle of write-sequence.  With buffering,
I can control it by using FINISH-OUTPUT.

Diffstat:
M
socket.lisp
 | 
3
++-

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