Changeset 992
- Timestamp:
- 2015-06-09T20:52:44-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r991 r992 163 163 (defun poly-expt (ring-and-order p n) 164 164 (declare (type ring-and-order ring-and-order) (type poly p)) 165 (make-poly-from-termlist (termlist-expt ring (poly-termlist p) n) (* n (poly-sugar p))))165 (make-poly-from-termlist (termlist-expt ring-and-order (poly-termlist p) n) (* n (poly-sugar p)))) 166 166 167 167 (defun poly-append (&rest plist)
Note:
See TracChangeset
for help on using the changeset viewer.