anchor.diff:    (unless (vectorp array)
       (error "TODO: adjust-array on non-vectors."))
     (when (and (array-has-fill-pointer-p array)
  -	     (not fill-pointer)
  -	     (< (first new-dimensions) (fill-pointer array)))
  +             (not fill-pointer)
  +             (< (first new-dimensions) (fill-pointer array)))
       (error "Fill-pointer ~S on array ~S is larger than the new size ~S."
  -	   (fill-pointer array) array new-dimensions))
  +           (fill-pointer array) array new-dimensions))
     (cond ((%simple-1d-array-p array)
            (let ((new-array (if initial-element-p
                                 (make-simple-array (first new-dimensions) element-type nil initial-element)
                                 (make-simple-array (first new-dimensions) element-type nil))))
  -           (dotimes (i (min (first new-dimensions) (array-dimension array 0)))
  -             (setf (aref new-array i) (aref array i)))
  +           (cond (initial-contents-p
  +                  (initialize-from-initial-contents new-array initial-contents))
  +                 (t
  +                  (dotimes (i (min (first new-dimensions) (array-dimension array 0)))
  +                    (setf (aref new-array i) (aref array i)))))
              new-array))
           ((and (null (%complex-array-info array))
                 (character-array-p array))
  
positive.code:                                                             :initial-element (char-int initial-element))
                                                    (adjust-array (%complex-array-storage array) new-dimensions))
                 (%complex-array-dimension array 0) (first new-dimensions))
           (when fill-pointer
             (setf (fill-pointer array) fill-pointer))
           array)
  
negative.code:                             (make-simple-array (first dimensions) element-type area initial-element)
                              (make-simple-array (first dimensions) element-type area))))
               (when initial-contents-p
                 (initialize-from-initial-contents array initial-contents))
               array))
            (displaced-to
             (unless displaced-index-offset
  