close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4146 for branches


Ignore:
Timestamp:
2016-06-02T19:33:09-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/pair-queue.lisp

    r4145 r4146  
    102102(defgeneric make-critical-pair-queue (object)
    103103  (:documentation "A factory of critical-pair-queue objects.")
    104   (:method ((self strategy))
     104  (:method ((self selection-strategy))
    105105    "Creates a priority queue with selection strategy STRATEGY."
    106106    (with-slots (pair-key-fn pair-order-fn)
     
    113113                     :test pair-order-fn))))
    114114
    115 (defun make-critical-pairs (poly-list &optional (start 0)
     115(defun make-critical-pairs (poly-list
     116                            &optional (start 0)
    116117                            &aux
    117118                              (s (1- (length poly-list))))
     
    122123  (nconc (makelist (make-instance 'critical-pair :first (elt poly-list i) :second (elt poly-list j))
    123124                             (i 0 (1- start)) (j start s))
    124                   (makelist (make-instance 'critical-pair :first (elt poly-list i) :second (elt poly-list j))
    125                              (i start (1- s)) (j (1+ i) s))))
     125        (makelist (make-instance 'critical-pair :first (elt poly-list i) :second (elt poly-list j))
     126                   (i start (1- s)) (j (1+ i) s))))
    126127
    127128(defgeneric enqueue-critical-pairs (self pair-lst)
Note: See TracChangeset for help on using the changeset viewer.