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:                                        (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-p
                   (initialize-from-sequence array initial-contents))
                 array)))))
  
  (defun adjust-array (array new-dimensions &key
  		     (element-type (array-element-type array))
  		     (initial-element nil initial-element-p)
  		     fill-pointer)
    (when (integerp new-dimensions)
      (setf new-dimensions (list new-dimensions)))
    (when (not (eql (array-rank array) (length new-dimensions)))
      (error "New dimensions do not match array's rank."))
    (unless (equal element-type (array-element-type array))
      (error "Cannot convert array ~S to different element-type ~S from ~S."
  	   array element-type (array-element-type array)))
    (when fill-pointer
      (unless (vectorp array)
        (error ":FILL-POINTER is only valid with vectors."))
  
negative.code:                                                             :initial-element (char-int initial-element))
                                                    (adjust-array (%complex-array-storage array) new-dimensions))
                 (%complex-array-dimension array 0) (first new-dimensions))
           (when initial-contents-p
             (initialize-from-initial-contents array initial-contents))
           (when fill-pointer
             (setf (fill-pointer array) fill-pointer))
           array)
  