0.7.5.1:

[sbcl.git] / src / code / stream.lisp

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 19cde5e..5788195 100644 (file)
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -58,7 +58,7 @@
 (defun closed-flame (stream &rest ignore)
   (declare (ignore ignore))
   (error "~S is closed." stream))
-(defun do-nothing (&rest ignore)
+(defun no-op-placeholder (&rest ignore)
   (declare (ignore ignore)))
 \f
 ;;; stream manipulation functions
@@ -292,7 +292,7 @@
                 (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)
@@ -318,7 +318,7 @@
                     (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)))
@@ -1359,7 +1359,7 @@
 
 (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))