- ;; The output buffer (slot added so that a class can inherit from
- ;; both string-input-simple-stream and string-output-simple-stream
- ;; without the strategies clashing)
- ((out-buffer :initform nil :type (or simple-stream-buffer null)
- sb-pcl::location 26)
+ (;; The input buffer.
+ (buffer :initform nil :type (or simple-stream-buffer null)
+ sb-pcl::location 26)
+ ;; Current position in input buffer.
+ (buffpos :initform 0 :type fixnum sb-pcl::location 25)
+ ;; Maximum valid position in input buffer, or -1 on eof.
+ (buffer-ptr :initform 0 :type fixnum sb-pcl::location 24)
+ (buf-len :initform 0 :type fixnum sb-pcl::location 23)
+ ;; The output buffer (slot added so that a class can inherit from
+ ;; both string-input-simple-stream and string-output-simple-stream
+ ;; without the strategies clashing)
+ (out-buffer :initform nil :type (or simple-stream-buffer null)
+ sb-pcl::location 22)