X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Ffndb.lisp;h=2df6088dd800a4c0a77e17b3f746ebd365935e51;hb=1d46d379bb7a6424524b978f213ef69be5f1ad69;hp=1b28ec5740515a66df0e896438cd93ce789276b0;hpb=59f1de77587818635573073a14ce80c2d398f56c;p=sbcl.git

diff --git a/contrib/sb-simple-streams/fndb.lisp b/contrib/sb-simple-streams/fndb.lisp
index 1b28ec5..2df6088 100644
--- a/contrib/sb-simple-streams/fndb.lisp
+++ b/contrib/sb-simple-streams/fndb.lisp
@@ -64,8 +64,7 @@ TODO (rudi 2003-05-19): make the above work, make (defknown open) use it.
 ||#
 
 
-(handler-bind ((error #'(lambda (condition) (declare (ignore condition))
-                                (continue))))
+(handler-bind ((error #'continue))
   (sb-c:defknown open (t &rest t
                          &key (:direction (member :input :output :io :probe))
                          (:element-type sb-kernel:type-specifier)
@@ -84,8 +83,8 @@ TODO (rudi 2003-05-19): make the above work, make (defknown open) use it.
     ;; :derive-type #'result-type-open-class
     )
 
-  (sb-c:defknown listen (&optional sb-kernel:streamlike
-                                   (or null (integer 1 10) (member 'character)))
+  (sb-c:defknown listen (&optional sb-kernel:stream-designator
+                                   (or null (integer 1 10) (member character)))
     boolean (sb-c::unsafely-flushable sb-c::explicit-check))
 
   (sb-c:defknown read-sequence (sequence stream &key (:start sb-int:index)