anchor.diff:      (unless (vectorp array)
         (error ":FILL-POINTER is only valid with vectors."))
       (when (eql fill-pointer 't)
  -      (setf fill-pointer new-dimensions))
  +      (setf fill-pointer (first new-dimensions)))
       (unless (integerp fill-pointer)
         (error "Invalid :FILL-POINTER ~S." fill-pointer))
       (unless (<= 0 fill-pointer (first new-dimensions))
  
positive.code:                                                   (adjust-array (%complex-array-storage array) new-dimensions
                                                                  :initial-element initial-element)
                                                    (adjust-array (%complex-array-storage array) new-dimensions)))
           array)
          (t (error "TODO: Adjusting unusual array ~S." array))))
  
  
negative.code:                                                             :initial-element (char-int initial-element))
                                                    (adjust-array (%complex-array-storage array) new-dimensions))
                 (%array-like-ref-t array 3) (first new-dimensions))
           (when fill-pointer
             (setf (fill-pointer array) fill-pointer))
           array)
          ((null (%complex-array-info array))
           (setf (%array-like-ref-t array 3) (first new-dimensions)
  