anchor.diff:                :element-type (array-element-type array)))
   
   (defun reshape (shape array &key (element-type t) (displace t))
  -  "Return an array that has the same items as ARRAY, but whose shape
  -is SHAPE.
  +  "Return an array that has the same items as ARRAY, a generalized
  +array, but whose shape is SHAPE.
   
   If the resulting array is smaller than ARRAY, then discard the excess
   items.
  
positive.code:     (t 0)))
  
  (defsubst shape= (array1 array2)
    ;; (equal (shape array1) (shape array2))
    (typecase array1
      (sequence
  
negative.code:     (t 0)))
  
  (defsubst shape (array)
    "Return the shape of ARRAY, a generalized array.
  For a true array this is equivalent to `array-dimensions'."
    (typecase array
      (sequence (list (length array)))
      (array (array-dimensions array))
  