+ (assert (null (ignore-errors (aref (subseq avec 1 5) 0)))))
+
+;;; FILL
+(defun test-fill-typecheck (x)
+ (declare (optimize (safety 3) (space 2) (speed 1)))
+ (fill (make-string 10) x))
+
+(assert (string= (test-fill-typecheck #\@) "@@@@@@@@@@"))
+;;; BUG 186, fixed in sbcl-0.7.5.5
+(assert (null (ignore-errors (test-fill-typecheck 4097))))