(deftype ansi-stream-in-buffer ()
`(simple-array (unsigned-byte 8) (,+ansi-stream-in-buffer-length+)))
(deftype ansi-stream-in-buffer ()
`(simple-array (unsigned-byte 8) (,+ansi-stream-in-buffer-length+)))
;;; base class for ANSI standard streams (as opposed to the Gray
;;; streams extension)
(defstruct (ansi-stream (:constructor nil)
;;; base class for ANSI standard streams (as opposed to the Gray
;;; streams extension)
(defstruct (ansi-stream (:constructor nil)
;; slot must must be NIL, and the IN-INDEX must be
;; +ANSI-STREAM-IN-BUFFER-LENGTH+.)
(in-buffer nil :type (or ansi-stream-in-buffer null))
;; slot must must be NIL, and the IN-INDEX must be
;; +ANSI-STREAM-IN-BUFFER-LENGTH+.)
(in-buffer nil :type (or ansi-stream-in-buffer null))