(deftype ansi-stream-in-buffer ()
`(simple-array (unsigned-byte 8) (,+ansi-stream-in-buffer-length+)))
+(deftype ansi-stream-cin-buffer ()
+ `(simple-array character (,+ansi-stream-in-buffer-length+)))
+
;;; 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))
+ (cin-buffer nil :type (or ansi-stream-cin-buffer null))
(in-index +ansi-stream-in-buffer-length+ :type index)
;; buffered input functions
(sout #'ill-out :type function) ; string output function
;; other, less-used methods
- (misc #'do-nothing :type function))
+ (misc #'no-op-placeholder :type function))
(def!method print-object ((x ansi-stream) stream)
(print-unreadable-object (x stream :type t :identity t)))