This is mostly just useful to myself. I'm putting it here so I can find it again later.
(defvar *table* nil) (setf *table* (make-hash-table :test 'eql :size (expt 2 20))) ; symbol keys can use :eq (setf (gethash :myueberkey *table*) "2008-and-late") (gethash :myueberkey *table*) ; returns (mv stored-value t-if-it-was-found) (maphash (lambda (key value) (setf (gethash key *table2*) value)) *table*)