||#
-(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)
;; :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)