Function interactive-stream-p

Syntax:

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:

The cleanup said "signals", but that's stylistically inconsistent. Barrett and I decided to just ignore the cleanup and fix things up. -kmp 22-Jan-92Should signal an error of type type-error if stream is not a stream.

See Also:

Section 21.1 (Stream Concepts)

Notes:

None.