Function: MAKE-PRIORITY-POOL

Source

(defun make-priority-pool (&key
			   (key-fn #'identity)
			   (value-fn #'identity)
			   (comparator (number-comparator)))
  (make-pool :store (make-heap :key-fn key-fn
			       :value-fn value-fn
			       :comparator comparator)
	     :add-strategie #'heap-insert
	     :next-strategie (lambda (store)
			       (values (heap-dequeue store)
				       t))))