Changeset 779
- Timestamp:
- 2015-06-08T22:23:27-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r778 r779 80 80 (let ((c (funcall (ring-mul ring) (term-coeff term1) (term-coeff term2)))) 81 81 (unless (funcall (ring-zerop ring) c) 82 (make-term ( + (monom-dimension term1) (monom-dimension term2))82 (make-term (monom-dimension term1) (monom-dimension term2) 83 83 :initial-exponents (monom-exponents (monom-mul term1 term2)) 84 84 :coeff c))))
Note:
See TracChangeset
for help on using the changeset viewer.