你能在lisp中使用哈希表吗？

(defun create-hash-table ()
  (let ((hash-table (make-hash-table :test 'equal)))
    (setf (gethash "apple" hash-table) "fruit")
    (setf (gethash "carrot" hash-table) "vegetable")
    (setf (gethash "banana" hash-table) "fruit")
    hash-table))

(defun print-hash-table (hash-table)
  (maphash #'(lambda (key value)
               (format t "~a: ~a~%" key value))
           hash-table))

(let ((hash-table (create-hash-table)))
  (print-hash-table hash-table)
  (remhash "apple" hash-table)
  (print-hash-table hash-table))