Changeset 4151
- Timestamp:
- 2016-06-02T23:40:50-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r4148 r4151 104 104 (:documentation "Specializes class PRIORITY-QUEUE to element-type CRITICAL-PAIR.")) 105 105 106 (defmethod initialize-instance :before ((self critical-pair-queue) &key) 107 (call-next-method self :initial-element 'critical-pair)) 106 (defmethod initialize-instance :before ((self critical-pair-queue) &key) 107 (with-slots ((element-type-x priority-queue::element-type)) 108 self 109 (setf element-type-x 'critical-pair)) 110 self) 108 111 109 112 (defgeneric make-critical-pair-queue (object)
Note:
See TracChangeset
for help on using the changeset viewer.