HANDLER-CASE causes loops

[phoe]

websocket-driver/src/ws/base.lisp

Lines 215 to 218 in 2d20d81

	(let ((read-bytes (handler-case (read-sequence buf stream)
	(error ()
	;; Retry when I/O timeout error
	(go retry)))))

This code catches all errors, not just I/O timeout errors, and therefore may cause infinite loops e.g. in case the stream argument is not a stream, or if read-sequence signals an end of file.

[adlai]

Please link a context that includes an unambiguous source location; the github linking appears to be mistargeted [specifically: clicking 2d20d81 takes you to a patch that does not modify any of the lines in question].

Nevermind, it appears that this problem has existed in the code ab initio, and git tooling is uselessly helpful here.