Function: MAKE-MAX-SIZED-PRIORITY-POOL

Source

(defun make-max-sized-priority-pool (max-size
				      &key
				      (key-fn #'identity)
				      (value-fn #'identity)
				      (comparator (number-comparator)))
  (pool-make-max-sized max-size
		       (make-priority-pool :key-fn key-fn
					   :value-fn value-fn
					   :comparator comparator)))