Hi, 

Using the latest cvs on ubuntu with ffi and libsigsegv, 

I tried to use ext:write-char-sequence with :no-hang t but it gives me and error.


[7]> (setf socket (socket:socket-connect 80 "www.google.com" :element-type '(unsigned-byte 8)))
#<IO INPUT-BUFFERED SOCKET-STREAM (UNSIGNED-BYTE 8) www.google.com:80>
[8]> (ext:write-byte-sequence (mapcar #'char-code (coerce (format nil "GET / HTTP/1.1~2%") 'list)) socket)
(71 69 84 32 47 32 72 84 84 80 47 49 46 49 10 10) ;
16
[9]> (ext:write-byte-sequence (mapcar #'char-code (coerce (format nil "GET / HTTP/1.1~2%") 'list)) socket :no-hang t)

*** - WRITE-BYTE-SEQUENCE on #<IO INPUT-BUFFERED SOCKET-STREAM (UNSIGNED-BYTE 8) www.google.com:80> is illegal
The following restarts are available:
ABORT :R1 Abort main loop
Break 1 [10]>