(defun type-table (key type-table)
  (au:href key type-table))

(defun (setf type-table) (entry type-name-key type-table)
  (symbol-macrolet ((entry-ht (au:href type-name-key type-table)))
    (au:unless-found (looked-up-type-table type-table)
      (let ((new-table (au:dict #'eql)))
        (setf entry-ht new-table
              looked-up-type-table new-table)))
    (setf (au:href entry entry-ht) entry)))