X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=5788195db976a4df62c94283b44e82ac2d129a7c;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=cba489e62ca915799baee2ec4a241eef1f63e4b5;hpb=08307967c71c580058a503d46aa087cfefcf8c69;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index cba489e..5788195 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -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))