;; A fixnum (denoting a valid file descriptor), a stream, or nil if
;; the stream is not open for input.
;; A fixnum (denoting a valid file descriptor), a stream, or nil if
;; the stream is not open for input.
(when (any-stream-instance-flags stream :input :output)
(when (any-stream-instance-flags stream :output)
(ignore-errors (if abort
(when (any-stream-instance-flags stream :input :output)
(when (any-stream-instance-flags stream :output)
(ignore-errors (if abort