- Timestamp:
- 2015-06-08T20:47:18-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r740 r741 199 199 (defmacro monom-contract (k m) 200 200 `(setf (monom-exponents ,m) (subseq (monom-exponents ,m) ,k))) 201 202 (defun monom-exponents (m)203 (declare (type monom m))204 (coerce m 'list))205 |#
Note:
See TracChangeset
for help on using the changeset viewer.