anchor.diff:      (setf my-array (make-array '(2 2 2 2)))
       (dotimes (i (* 2 2 2 2))
         (setf (row-major-aref my-array i) i))
  -    (assert-equal (aref my-array 0 0 0 0) ____)
  -    (assert-equal (aref my-array 1 1 1 1) ____)))
  +    (assert-equal (aref my-array 0 0 0 0) 0)
  +    (assert-equal (aref my-array 1 1 1 1) 15)))
  
positive.code: (define-test test-make-array-from-list
    (let ((x))
      (setf x (make-array '(4) :initial-contents '(:one :two :three :four)))
      (assert-equal (array-dimensions x) ____)
      (assert-equal ____ (aref x 0))))
  
  
  (define-test test-row-major-index
  
negative.code:             (setf (aref chess-board x y) :black)
              (setf (aref chess-board x y) :white)
              )))
      (assert-true (typep chess-board 'array) t)
      (assert-equal (aref chess-board 0 0) :black)
      (assert-equal (aref chess-board 2 3) :white)
      "array-rank returns the number of dimensions of the array"
      (assert-equal 2 (array-rank chess-board))
      "array-dimensions returns a list of the cardinality of the array dims"
      (assert-equal '(8 8) (array-dimensions chess-board))
      (assert-equal 64 (array-total-size chess-board))))
  
  (define-test test-make-your-own-array
      "make your own array that meets the specifications below."
    (let ((color-cube nil))
      "you may need to modify your array after you make it"
      (setf color-cube (make-array '(3 3 3)))
      (dotimes (x 3)
        (dotimes (y 3)
          (dotimes (z 3)
               (if (zerop (* y z))
                   (setf (aref color-cube x y z) :white)
                   (setf (aref color-cube x y z) :red)
                ))))
      (if (typep color-cube '(simple-array T (3 3 3)))
          (progn
            (assert-equal 3 (array-rank color-cube))
  