Changeset 2770 for branches/f4grobner
- Timestamp:
- 2015-06-20T19:44:29-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2769 r2770 156 156 (unless (eq (poly-term-order order1) (poly-term-order order2)) 157 157 (setf (poly-termlist other) (sort (poly-termlist other) (poly-term-order self)) 158 (poly-term-order other (poly-term-order self))))158 (poly-term-order other) (poly-term-order self))) 159 159 (setf (poly-termlist self) 160 160 (fast-add/subtract
Note:
See TracChangeset
for help on using the changeset viewer.