anchor.diff:        (when i
           (heap-extract contents i :key keyfun :test #'<=)))))
   
  +;;;
  +;;; Util
  +;;;
  +
  +(defvar *test-event-queue* (make-priority-queue :key #'exec-time))
   
   
  -
  
positive.code:     (decf (fill-pointer heap))
      (heapify heap i :key key :test test)))
  
  (defun heap-extract-maximum (heap &key (key #'identity) (test #'>=))
    (heap-extract heap 0 :key key :test test))
  
  
  
negative.code: (defun heap-size (heap)
    (1- (length heap)))
  
  (defun heapify (heap start &key (key #'identity) (test #'<=))
    (declare (function key test))
    (flet ((key (obj) (funcall key obj))
           (ge (i j) (funcall test i j)))
  