anchor.diff:              (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))))
  +      (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
  
positive.code:     (let ((loop-return
             (loop for x in '(1 1 2 3 5 8 13)
                   when (greater-than-10-p x) sum x)))
        (assert-equal loop-return ____)))
  
  
  (define-test test-conditional-with-lambda
      (let ((loop-return
             (loop for x in '(1 1 2 3 5 8 13)
                   when ((lambda (z) (equal 1 (mod z 3))) x) sum x)))
        (assert-equal loop-return ____)))
  
negative.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 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 10)))
  
  
  (defun greater-than-10-p (x)
  