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 2654


Ignore:
Timestamp:
2015-06-20T15:05:05-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2653 r2654  
    9797
    9898(defun fast-addition (p q order-fn add-fun)
    99   (macrolet ((lt (x) `(cadr ,x))
    100              (lc (x) `(r-coeff (cadr ,x))))
     99  (macrolet ((lt (x) `(car ,x))
     100             (lc (x) `(r-coeff (car ,x))))
    101101    (do ((p p)
    102102         (q q))
    … …  
    129129           (setf termlist2 (sort termlist2 order1)
    130130                 order2 order1))
    131          ;; Create dummy head
    132          (push nil termlist1)
    133          (push nil termlist2)
    134          (fast-addition termlist1 termlist2 order1 #',method-name)
    135          ;; Remove dummy head
    136          (pop termlist1)))
     131         (fast-addition termlist1 termlist2 order1 #',method-name)))
    137132     self))
    138133
Note: See TracChangeset for help on using the changeset viewer.