Changeset 3960 for branches/f4grobner
- Timestamp:
- 2016-05-30T10:59:17-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r3959 r3960 123 123 124 124 125 #| 126 (defun pair-queue-insert (b pair) 127 (priority-queue-insert b pair)) 125 (defgeneric enqueue (self object) 126 (:documentation "Insert an object into a queue SELF.") 127 (:method ((self critical-pair-queue) (pair critical-pair)) 128 (with-slots (pq) 129 self 130 (priority-queue-insert pq pair)))) 128 131 129 (defun pair-queue-remove (b) 130 (priority-queue-remove b)) 132 (defgeneric dequeue (self) 133 (:method ((self critical-pair-queue)) 134 (with-slots (pq) 135 self 136 (priority-queue-remove pq)))) 131 137 132 (defun pair-queue-size (b) 133 (priority-queue-size b)) 138 (defgeneric queue-size (self) 139 (:method ((self critical-pair-queue)) 140 (with-slots (pq) 141 self 142 (priority-queue-size pq)))) 134 143 135 (defun pair-queue-empty-p (b) 136 (priority-queue-empty-p b)) 144 (defgeneric queue-empty-p (self) 145 (:method (self) 146 (with-slots (pq) 147 self 148 (priority-queue-empty-p pq)))) 137 149 138 139 140 141 |#
Note:
See TracChangeset
for help on using the changeset viewer.