(unread-char char stream)
char)
(t
- (error "internal error: impossible case"))))
+ (bug "impossible case"))))
;; by elimination, must be Gray streams FUNDAMENTAL-STREAM
(cond ((characterp peek-type)
(do ((char (stream-read-char stream)
(eof-or-lose stream eof-error-p eof-value)
char)))
(t
- (error "internal error: impossible case"))))))
+ (bug "impossible case"))))))
(defun listen (&optional (stream *standard-input*))
(let ((stream (in-synonym-of stream)))
(defstruct (case-frob-stream
(:include ansi-stream
- (:misc #'case-frob-misc))
+ (misc #'case-frob-misc))
(:constructor %make-case-frob-stream (target out sout))
(:copier nil))
(target (missing-arg) :type stream))