Next: open-stream-p, Previous: input-stream-p, Up: Streams Dictionary
interactive-stream-p stream ⇒ generalized-boolean
stream—a stream.
generalized-boolean—a generalized boolean.
Returns true if stream is an interactive stream; otherwise, returns false.
(when (> measured limit)
(let ((error (round (* (- measured limit) 100)
limit)))
(unless (if (interactive-stream-p *query-io*)
(yes-or-no-p "The frammis is out of tolerance by ~D
Is it safe to proceed? " error)
(< error 15)) ;15
(error "The frammis is out of tolerance by ~D
Should signal an error of type type-error if stream is not a stream.