X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=edfc4ed112ffceb8e074175efdfaba6b674c781f;hb=6a8fb906ba96395f2a60f821b2ec7649a2a3ae46;hp=ed66194732318820fca238394fc96d76886c73e0;hpb=7cf668a2141d2aa6f5fc1386345699b40d3e7845;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index ed66194..edfc4ed 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -332,20 +332,9 @@
 			    eof-value
 			    recursive-p)
   (declare (ignore recursive-p))
-  ;; FIXME: The type of PEEK-TYPE is also declared in a DEFKNOWN, but
-  ;; the compiler doesn't seem to be smart enough to go from there to
-  ;; imposing a type check. Figure out why (because PEEK-TYPE is an
-  ;; &OPTIONAL argument?) and fix it, and then this explicit type
-  ;; check can go away.
-  (unless (typep peek-type '(or character boolean))
-    (error 'simple-type-error
-	   :datum peek-type
-	   :expected-type '(or character boolean)
-	   :format-control "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
-	   :format-arguments (list peek-type '(or character boolean))))
   (let ((stream (in-synonym-of stream)))
     (cond ((typep stream 'echo-stream)
-	   (echo-misc stream 
+	   (echo-misc stream
 		      :peek-char
 		      peek-type
 		      (list eof-error-p eof-value)))