anchor.diff:        (fill array initial-element))
       array))
   
  -(defun initialize-from-sequence (array sequence)
  +(defun initialize-from-initial-contents (array sequence)
     "Fill an array using a sequence."
     (case (array-rank array)
       (0 (setf (aref array) sequence))
  
positive.code:                                                   (adjust-array (%complex-array-storage array) new-dimensions)))
           (when fill-pointer
             (setf (fill-pointer array) fill-pointer))
           array)
          (t (error "TODO: Adjusting unusual array ~S." array))))
  
  
negative.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))))
             (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))
  