How can i create heapify (for heap-insert and heap-extract ) in lisp using hash tables *heaps*

Question

(defun new-heap (heap-id &optional (capacity 42)) (or (gethash heap-id heaps) (setf (gethash heap-id heaps) (list \'heap heap-id 0 (make-array capacity