Changeset 3990 for branches/f4grobner
- Timestamp:
- 2016-05-30T21:05:44-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/priority-queue.lisp
r3989 r3990 59 59 (heap-insert heap item test)))) 60 60 61 (defun priority-queue-remove (pq) 62 (heap-remove (priority-queue-heap pq) (priority-queue-test pq))) 61 (defgeneric dequeue (self) 62 (:method ((self priority-queue)) 63 (with-slots (heap test) 64 self 65 (heap-remove heap test)))) 63 66 64 (defun priority-queue-empty-p (pq) 65 (heap-empty-p (priority-queue-heap pq))) 67 (defgeneric queue-empty-p (self) 68 (:method ((self priority-queue)) 69 (with-slots (heap) 70 self 71 (heap-empty-p heap)))) 66 72 67 73 (defun priority-queue-size (pq)
Note:
See TracChangeset
for help on using the changeset viewer.