CL-USER> (let ((hash-table-1 (make-hash-table :test #'equal))
               (hash-table-2 (make-hash-table :test #'equal)))
           (setf (gethash "one" hash-table-1) "uno")
           (setf (gethash "one" hash-table-2) "eins")
           (equalp hash-table-1 hash-table-2))
T