X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Ffndb.lisp;h=6d8579f4429ef829d57bc2773b3a30cecb5f7807;hb=c2dc8ac5336601717af4e7bb09a67c19758181e0;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..6d8579f 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)
@@ -85,7 +84,7 @@ TODO (rudi 2003-05-19): make the above work, make (defknown open) use it.
     )
 
   (sb-c:defknown listen (&optional sb-kernel:streamlike
-                                   (or null (integer 1 10) (member 'character)))
+                                   (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)