FILL behaving oddly in compiled code

[Paul F. Dietz]

(defun f26 (p2)
  (declare (optimize (speed 2) (safety 0) (debug 0) (space 1))
           (type (array t (*)) p2)
           )
  (fill p2 nil))

(f26 (make-array '(3) :initial-element t :fill-pointer 2))
==>
#(NIL NIL T)

(array-has-fill-pointer-p *)
==>
NIL

(fill (make-array '(3) :initial-element t :fill-pointer 2) nil)
==>
#(NIL NIL)

(array-has-fill-pointer-p *)
==>
T

[Stas Boukarev (stassats)]

In d6351c3887ff13f7fba1fde6b86a0eb75d972be2