anchor.diff:               (loop for letter in letters
                      for i from 1 to 1000
                      collect (list i letter))))
  -      (assert-equal loop-result ____)))
  +      (assert-equal loop-result '((1 :a) (2 :b) (3 :c) (4 :d)))))
   
   
   (define-test test-counting-loop-skip-by-syntax
  
positive.code:            (result (loop for (a b) in '((1 9) (2 8) (3 7) (4 6))
                          do (setf count (+ 1 count))
                           collect (+ a b))))
        (assert-equal ____ count)
        (assert-equal ____ result)))
  
  
  (define-test test-conditional-execution
      (let ((loop-return
             (loop for x in '(1 1 2 3 5 8 13)
                   when (evenp x) sum x)))
        (assert-equal loop-return ____)))
  
  
  (defun greater-than-10-p (x)
  
negative.code:              (loop for letter in letters
                     for i from 0 to 1000 by 5
                     collect (list i letter))))
        (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 '(10 5 0 -5 -10))))
  
  
  (define-test test-loop-in-vs-loop-on
  