Changeset 4161
- Timestamp:
- 2016-06-02T23:53:20-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r4160 r4161 113 113 114 114 (defgeneric make-critical-pair-queue (object) 115 (:documentation "Creates a CRITICAL-PAIR-QUEUE from an object OBJECT.") 115 116 (:method ((object selection-strategy)) 116 117 (with-slots (pair-key-fn pair-order-fn) 117 118 object 118 (make-instance 'priority-queue 119 :element-type 'critical-pair 119 (make-instance 'critical-pair-queue 120 120 :element-key #'(lambda (pair) (funcall pair-key-fn 121 121 (critical-pair-first pair)
Note:
See TracChangeset
for help on using the changeset viewer.