Syntax:

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% is acceptable
       (error "The frammis is out of tolerance by ~D%." error))))

Affected By: None.

Exceptional Situations:

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

See Also:

Section 21.1 (Stream Concepts)

Notes: None.

• STREAM-CAPABILITIES:INTERACTIVE-STREAM-P