Changeset 1836
- Timestamp:
- 2015-06-15T14:06:12-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/termlist.lisp
r1835 r1836 153 153 (let ((s (funcall (ring-add ring) (termlist-lc p) (termlist-lc q)))) 154 154 (unless (funcall (ring-zerop ring) s) ;check for cancellation 155 (setf r (cons (make-term (termlist-lm p)s) r)))155 (setf r (cons (make-term :monom (termlist-lm p) :coeff s) r))) 156 156 (setf p (cdr p) q (cdr q)))) 157 157 (lm-greater
Note:
See TracChangeset
for help on using the changeset viewer.