#### 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