anchor.diff:              (loop for letter in letters collect letter))
              (loop-result-on
               (loop for letter on letters collect letter)))
  -      (assert-equal loop-result-in ____)
  -      (assert-equal loop-result-on ____ )))
  +      (assert-equal loop-result-in '(:a :b :c))
  +      (assert-equal loop-result-on '((:a :b :c) (:b :c) (:c)))))
   
   
   (define-test test-loop-in-skip-by
  
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
                     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
  