anchor.diff:               (loop for letter in letters
                      for i from 0 to 1000 by 5
                      collect (list i letter))))
  -      (assert-equal loop-result ____ )))
  +      (assert-equal loop-result '((0 :A) (5 :B) (10 :C) (15 :D)) )))
   
   
   (define-test test-counting-backwards
       (let ((loop-result
                (loop for i from 10 downto -10 by 5
                      collect i )))
  -      (assert-equal loop-result ____ )))
  +      (assert-equal loop-result '(10 5 0 -5 -10) )))
   
   
   (define-test test-loop-in-vs-loop-on
  
positive.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 ____)
        (assert-equal loop-result-in-cdr ____)
        (assert-equal loop-result-in-cddr ____)
        (assert-equal loop-result-in-cdddr ____)))
  
  
  (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 ____ 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 ____ )))
  
  
  (define-test test-loop-across-2d-array-respecting-shape
  
negative.code:              (loop for letter in letters
                     for i from 1 to 1000
                     collect (list i letter))))
        (assert-equal loop-result '((1 :a) (2 :b) (3 :c) (4 :d)))))
  
  
  (define-test test-counting-loop-skip-by-syntax
  