close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 3988


Ignore:
Timestamp:
2016-05-30T20:55:11-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/heap.lisp

    r3987 r3988  
    4444
    4545(defun heap-size (a)
     46  "The number of elements on the heap. Does not count dummy head."
    4647  (1- (fill-pointer a)))
    4748
    … …  
    8889  (when (<= (fill-pointer a) 1) (error "Empty queue."))
    8990  (setf (aref a 1) (vector-pop a))
    90   (priority-queue-downheap a 1 test)
     91  (heap-downheap a 1 test)
    9192  (values v a))
    9293
Note: See TracChangeset for help on using the changeset viewer.