anchor.diff:                                                    (adjust-array (%complex-array-storage array) new-dimensions)))
            (when fill-pointer
              (setf (fill-pointer array) fill-pointer))
  +         (when initial-contents-p
  +           (initialize-from-initial-contents array initial-contents))
            array)
           (t (error "TODO: Adjusting unusual array ~S." array))))
   
  
positive.code:   (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)))
      (error "Fill-pointer ~S on array ~S is larger than the new size ~S."
  	   (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)))
             new-array))
          ((and (null (%complex-array-info array))
                (character-array-p 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
  