(let ((table (make-hash-table :test 'custom-hash-test)))
(setf (gethash (make-custom-hash-key :name "foo") table) :foo)
(setf (gethash (make-custom-hash-key :name "bar") table) :bar)
(let ((table (make-hash-table :test 'custom-hash-test)))
(setf (gethash (make-custom-hash-key :name "foo") table) :foo)
(setf (gethash (make-custom-hash-key :name "bar") table) :bar)