anchor.diff:              (loop for i from 0 below (array-dimension my-array 0) collect
                 (loop for j from 0 below (array-dimension my-array 1) collect
                   (expt (aref my-array i j) 2)))))
  -      (assert-equal loop-result ____ )))
  +      (assert-equal loop-result '((0 1) (4 9) (16 25)) )))
   
   
   (defvar books-to-heros)
  
positive.code:            (loop-result
               (loop for letter in letters
                     collect letter)))
        (assert-equal loop-result ____)))
  
  
  (define-test test-compound-loop
  
negative.code:             (loop for letter in letters by #'cddr collect letter))
             (loop-result-in-cdddr
              (loop for letter in letters by #'cdddr collect letter)))
        (assert-equal loop-result-in '(:a :b :c :d :e :f))
        (assert-equal loop-result-in-cdr '(:a :b :c :d :e :f))
        (assert-equal loop-result-in-cddr '(:a :c :e))
        (assert-equal loop-result-in-cdddr '(:a :d))))
  
  
  (define-test test-loop-across-vector
      (let* ((my-vector (make-array '(5) :initial-contents '(0 1 2 3 4)))
             (loop-result
              (loop for val across my-vector collect val)))
        (assert-equal '(0 1 2 3 4) loop-result)))
  
  
  (define-test test-loop-across-2d-array
      (let* ((my-array (make-array '(3 3) :initial-contents '((0 1 2) (3 4 5) (6 7 8))))
             (loop-result
              (loop for i from 0 below (array-total-size my-array) collect (row-major-aref my-array i))))
        (assert-equal loop-result '(0 1 2 3 4 5 6 7 8))))
  
  
  (define-test test-loop-across-2d-array-respecting-shape
  