(compile nil '(lambda () (array-has-fill-pointer-p #*10))) ==> segfault
(compile nil '(lambda () (array-has-fill-pointer-p #*10)))