Changeset 1217
- Timestamp:
- 2015-06-11T11:56:53-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1216 r1217 121 121 122 122 (defun poly-reset-sugar (p) 123 "(Re)sets the sugar of a polynomial P to the sugar of (POLY-TERMLIST P)." 123 "(Re)sets the sugar of a polynomial P to the sugar of (POLY-TERMLIST P). 124 Thus, the sugar is set to the maximum sugar of all monomials of P, or -1 125 if P is a zero polynomial." 124 126 (declare (type poly p)) 125 127 (setf (poly-sugar p) (termlist-sugar (poly-termlist p)))
Note:
See TracChangeset
for help on using the changeset viewer.