X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fstream.lisp;h=5788195db976a4df62c94283b44e82ac2d129a7c;hb=92a258eda6d6f0cadd1251200285671ec92aa45f;hp=19cde5efb21e21c5893110cc33fcf0483871fd77;hpb=8eb6f7d3da3960c827b704e23b5a47008274be7d;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 19cde5e..5788195 100644
--- 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)))
 
 ;;; 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))