Changeset 4162

Timestamp:

2016-06-02T23:56:03-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/pair-queue.lisp (modified) (2 diffs)

branches/f4grobner/pair-queue.lisp

@@ -112 +112 @@
   self)
 
-(defgeneric make-critical-pair-queue (object)
-  (:documentation "Creates a CRITICAL-PAIR-QUEUE from an object OBJECT.")
-  (:method ((object selection-strategy))
-    (with-slots (pair-key-fn pair-order-fn)
-        object
-      (make-instance 'critical-pair-queue
-                     :element-key #'(lambda (pair) (funcall pair-key-fn 
-                                                            (critical-pair-first pair)
-                                                            (critical-pair-second pair)))
-                     :test pair-order-fn))))
-
 (defun make-critical-pairs (poly-list 
                             &optional (start 0)
@@ -141 +130 @@
       (enqueue self pair))))
 
+
+(defgeneric make-critical-pair-queue (object &optional poly-lst start)
+  (:documentation "Creates a CRITICAL-PAIR-QUEUE from an object OBJECT.")
+  (:method ((object selection-strategy) &optional (poly-lst nil) (start 0))
+    (with-slots (pair-key-fn pair-order-fn)
+        object
+      (make-instance 'critical-pair-queue
+                     :element-key #'(lambda (pair)
+                                      (funcall pair-key-fn 
+                                               (critical-pair-first pair)
+                                               (critical-pair-second pair)))
+                     :test pair-order-fn))))
+