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:              (loop for letter in letters
                     for i from 0 to 1000 by 5
                     collect (list i letter))))
        (assert-equal loop-result ____ )))
  
  
  (define-test test-counting-backwards
      (let ((loop-result
               (loop for i from 10 downto -10 by 5
                     collect i )))
        (assert-equal loop-result ____ )))
  
  
  (define-test test-loop-in-vs-loop-on
  
negative.code:             (loop for k being the hash-keys in books-to-heros
                    using (hash-value v)
                    collect (list k v))))
        (assert-equal 4 (length pairs-in-table))
        (true-or-false? t (find '("The Hobbit" "Bilbo") pairs-in-table :test #'equal))))
  
  
  (define-test test-value-accumulation-forms
  