anchor.diff:               (when initial-element-p
                  (dotimes (i total-size)
                    (setf (%row-major-aref array i) initial-element)))
  -             (when initial-contents
  +             (when initial-contents-p
                  (initialize-from-sequence array initial-contents))
                array))
             (t (let* ((total-size (if (integerp dimensions)
  
positive.code:                                        (make-simple-array total-size element-type area initial-element)
                                         (make-simple-array total-size element-type area)))
                      (array (%make-array-header +object-tag-array+ backing-array fill-pointer nil dimensions area)))
                 (when initial-contents
                   (initialize-from-sequence array initial-contents))
                 array)))))
  
  
negative.code:            (let ((array (if initial-element-p
                              (make-simple-array (first dimensions) element-type area initial-element)
                              (make-simple-array (first dimensions) element-type area))))
               (when initial-contents-p
                 (initialize-from-sequence array initial-contents))
               array))
            (displaced-to
  