;Chapter 4, Bryan Test 4, Page 76-78

(deftest test-hash ()
  (let ((hs (make-hash-table)));makes hash table
    (check
      (not (gethash 'make hs));make is not defined in the hash yet.
      (equal (setf (gethash 'make hs) 'Kia) 'Kia);setf returns the value it sets to hs.make
      (equal (gethash 'make hs) 'Kia);make is now defined in the hash
      (remhash 'make hs);make is no longer defined
      (not (remhash 'make hs)))));this returns nil b/c it does not exist in the hash in the first place.