Changeset 1835 for branches/f4grobner
- Timestamp:
- 2015-06-15T14:06:01-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/termlist.lisp
r1834 r1835 130 130 (declare (ring ring)) 131 131 (mapcar #'(lambda (x) 132 (make-term (term-monom x) (funcall (ring-uminus ring) (term-coeff x)))) 132 (make-term :monom (term-monom x) 133 :coeff (funcall (ring-uminus ring) (term-coeff x)))) 133 134 f)) 134 135
Note:
See TracChangeset
for help on using the changeset viewer.