;;;; streams-inlines.scm
;;;; Kon Lovett, Apr '09

;;;

(define-inline (%stream? obj) (%structure-instance? obj 'stream))
(define-inline (%not-stream? obj) (not (%stream? obj)))

(define-inline (%check-stream loc obj #!optional argnam)
  (unless (%stream? obj)
    (error-stream loc obj argnam) ) )

(define-inline (%check-streams loc strms #!optional argnam)
  (when (%any/1 not-stream? strms)
    (error-stream loc strms argnam) ) )