Changeset 821
- Timestamp:
- 2015-06-09T00:12:31-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ideal.lisp
r531 r821 85 85 (list (make-poly-from-termlist 86 86 (list (make-term 87 (make-monom (monom-dimension (poly-lm (find-if-not #'poly-zerop f))) 88 :initial-element 0) 87 (make-monom (monom-dimension (poly-lm (find-if-not #'poly-zerop f)))) 89 88 (funcall (ring-unit ring)))))))) 90 89 ((endp (cdr g))
Note:
See TracChangeset
for help on using the changeset viewer.