- Timestamp:
- 2015-06-15T17:43:17-07:00 (9 years ago)
- Location:
- branches/f4grobner
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r1828 r1888 64 64 (let ((c (funcall (ring-mul ring) (term-coeff term1) (term-coeff term2)))) 65 65 (unless (funcall (ring-zerop ring) c) 66 (make-term (monom-mul (term-monom term1) (term-monom term2))c))))66 (make-term :monom (monom-mul (term-monom term1) (term-monom term2)) :coeff c)))) 67 67 68 68 (defun term-sugar (term)
Note:
See TracChangeset
for help on using the changeset viewer.