(if (lisp-stream-p stream)
(or (/= (the fixnum (lisp-stream-in-index stream)) +in-buffer-length+)
;; Test for T explicitly since misc methods return :EOF sometimes.
(if (lisp-stream-p stream)
(or (/= (the fixnum (lisp-stream-in-index stream)) +in-buffer-length+)
;; Test for T explicitly since misc methods return :EOF sometimes.