Changeset 4153
- Timestamp:
- 2016-06-02T23:45:43-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/priority-queue.lisp
r4150 r4153 54 54 "Fill in the HEAP slot with an instance of a heap. NOTE: This has to 55 55 be an :AROUND method, so that the slot ELEMENT-TYPE can be 56 initialized in a BEFORE method of a subclass of PRIORITY-QUEUE." 56 initialized in a :BEFORE or :AFTER method of a subclass of 57 PRIORITY-QUEUE." 57 58 (with-slots (heap (test-x test) element-type) 58 59 (call-next-method) 59 (inspect self)60 60 (setf heap (make-heap :element-type element-type) 61 61 test-x #'(lambda (x y) (funcall test (funcall element-key y) (funcall element-key x)))) 62 (inspect self))62 ) 63 63 self) 64 64
Note:
See TracChangeset
for help on using the changeset viewer.