Changeset 1845
- Timestamp:
- 2015-06-15T14:08:10-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1844 r1845 263 263 ;; Add -1 as the last term 264 264 (setf (cdr (last (poly-termlist plist))) 265 (list (make-term (make-monom :dimension d)266 (funcall (ring-uminus ring) (funcall (ring-unit ring))))))265 (list (make-term :monom (make-monom :dimension d) 266 :coeff (funcall (ring-uminus ring) (funcall (ring-unit ring)))))) 267 267 (append f (list plist))) 268 268
Note:
See TracChangeset
for help on using the changeset viewer.