21.2.10 interactive-stream-p [Function]

interactive-stream-p stream ⇒ generalized-boolean

Arguments and Values::

stream—a stream.

generalized-boolean—a generalized boolean.

Description::

Returns true if stream is an interactive stream; otherwise, returns false.

Examples::

 (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

Exceptional Situations::

Should signal an error of type type-error if stream is not a stream.

See Also::

Stream Concepts