anchor.diff:             (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)))
  +      (assert-equal 4 count)
  +      (assert-equal '(10 10 10 10) 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 ____)))
  +      (assert-equal loop-return 10)))
   
   
   (defun greater-than-10-p (x)
  
positive.code:             (loop for k being the hash-keys in books-to-heros
                    using (hash-value v)
                    collect (list k v))))
        (assert-equal ____ (length pairs-in-table))
        (true-or-false? ____ (find '("The Hobbit" "Bilbo") pairs-in-table :test #'equal))))
  
  
  (define-test test-value-accumulation-forms
  
negative.code:             (loop for letter in letters collect letter))
             (loop-result-on
              (loop for letter on letters collect letter)))
        (assert-equal loop-result-in letters)
        (assert-equal loop-result-on '((:a :b :c) (:b :c) (:c)) )))
  
  
  (define-test test-loop-in-skip-by
  