Function: ADJUST-HEAP-ARRAY

Source

(defun adjust-heap-array (size heap)
  (when (< (length (heap-array heap)) size)
    (setf (heap-array heap)
	  (adjust-array (heap-array heap)
			(compute-size size heap)))))