Changeset 4396
- Timestamp:
- 2016-06-07T16:53:25-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4395 r4396 623 623 (defmethod ->sexp ((self poly) &optional vars) 624 624 "Converts a polynomial SELF to a sexp." 625 (let ((m (mapcar #'(lambda ( x) (->sexp xvars))625 (let ((m (mapcar #'(lambda (trm) (->sexp trm vars)) 626 626 (poly-termlist self)))) 627 627 (cond ((endp m) 0)
Note:
See TracChangeset
for help on using the changeset viewer.