- Timestamp:
- 2015-09-05T16:35:34-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3551 r3552 167 167 (reduce #'+ exponents :start start :end end)))) 168 168 169 (defgeneric universal-sugar (m &optional start end)169 (defgeneric sugar (m &optional start end) 170 170 (:documentation "Return the sugar of a monomial M. Optinally, a range 171 171 of variables may be specified with arguments START and END.") 172 172 (:method ((m monom) &optional (start 0) (end (monom-dimension m))) 173 173 (declare (type fixnum start end)) 174 ( universal-total-degree m start end)))174 (total-degree m start end))) 175 175 176 176 (defgeneric universal-multiply-by (self other)
Note:
See TracChangeset
for help on using the changeset viewer.