Function: BUILD-HASH-TABLE

Documentation

Create a hash table containing ``INITAL-CONTENTS``.

Source

(defun build-hash-table (hash-spec inital-contents)
  "Create a hash table containing ``INITAL-CONTENTS``."
  (let ((ht (apply #'make-hash-table hash-spec)))
    (dolist* ((key value) inital-contents)
      (setf (gethash key ht) value))
    ht))