[cl-plus-ssl-devel] Two LISTEN bugs

[Ron Garret]

This is on a fresh checkout of the common-lisp.net CVS repo running on the CCL trunk:

1. Create a SSL socket and call LISTEN on it.  It hangs instead of returning NIL.

2. Push some input into the socket.  Call LISTEN.  Listen correctly returns the first byte.  Subsequent calls to READ-CHAR continually return the same byte forever.

The fix for this seems to be:

(defmethod stream-read-byte ((stream ssl-stream))
-  (or (ssl-stream-peeked-byte stream)
+  (or (prog1 (ssl-stream-peeked-byte stream) (setf (ssl-stream-peeked-byte stream) nil))

Haven't figured out how to fix #1 yet.  Clues appreciated.

rg