Changeset 1838
- Timestamp:
- 2015-06-15T14:06:34-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/termlist.lisp
r1837 r1838 189 189 (setf r (cons (car p) r) 190 190 p (cdr p))) 191 (t (setf r (cons (make-term (termlist-lm q)192 (funcall (ring-uminus ring) (termlist-lc q))) r)191 (t (setf r (cons (make-term :monom (termlist-lm q) 192 :coeff (funcall (ring-uminus ring) (termlist-lc q))) r) 193 193 q (cdr q))))) 194 194 nil))
Note:
See TracChangeset
for help on using the changeset viewer.