anchor.diff:        (setf (gethash "one" h2) "yat")
         (setf (gethash "two" h1) "yi")
         (setf (gethash "two" h2) "yi")
  -      (true-or-false? ___ (eq h1 h2))
  -      (true-or-false? ___ (equal h1 h2))
  -      (true-or-false? ___ (equalp h1 h2))))
  +      (true-or-false? nil (eq h1 h2))
  +      (true-or-false? nil (equal h1 h2))
  +      (true-or-false? t (equalp h1 h2))))
   
   
   (define-test test-changing-hash-tables
  
positive.code:       (setf value-and-exists (multiple-value-list (gethash "Obama" prev-pres)))
        (assert-equal value-and-exists '("Bush" t))
        (setf value-and-exists (multiple-value-list (gethash "Lincoln" prev-pres)))
        (assert-equal value-and-exists ____)
        (setf value-and-exists (multiple-value-list (gethash "Washington" prev-pres)))
        (assert-equal value-and-exists ____)
        (setf value-and-exists (multiple-value-list (gethash "Franklin" prev-pres)))
        (assert-equal value-and-exists ____)))
  
  
  (define-test test-make-your-own-hash-table
      "make a hash table that meets the following conditions"
    (let ((colors (make-hash-table))
          (values (make-hash-table)))
  
      (assert-equal (hash-table-count colors) 4)
      (setf values (list (gethash "blue" colors)
                         (gethash "green" colors)
  
negative.code:     (setf (gethash "one" hash-table-default) "uno")
  
      "count how many unique key-value pairs in each"
      (assert-equal 2 (hash-table-count hash-table-eq))
      (assert-equal 1 (hash-table-count hash-table-equal))
      (assert-equal 2 (hash-table-count hash-table-default))))
  
  
  (define-test test-hash-table-equality
  