(deftest bryan-hash ()
  (let ((ht (make-hash-table)))
    (check
      (not (gethash 'make ht))
      (equal (setf (gethash 'make ht) 'Kia) 'Kia)
      (equal (gethash 'make ht) 'Kia)
      (remhash 'make ht)
      (not (remhash 'make ht)))))