Changeset 2654 for branches/f4grobner
- Timestamp:
- 2015-06-20T15:05:05-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2653 r2654 97 97 98 98 (defun fast-addition (p q order-fn add-fun) 99 (macrolet ((lt (x) `(ca dr ,x))100 (lc (x) `(r-coeff (ca dr ,x))))99 (macrolet ((lt (x) `(car ,x)) 100 (lc (x) `(r-coeff (car ,x)))) 101 101 (do ((p p) 102 102 (q q)) … … 129 129 (setf termlist2 (sort termlist2 order1) 130 130 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))) 137 132 self)) 138 133
Note:
See TracChangeset
for help on using the changeset viewer.