Changeset 4236
- Timestamp:
- 2016-06-04T19:07:36-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4235 r4236 146 146 (defmethod universal-equalp ((self monom) (other monom)) 147 147 "Returns T iff monomials SELF and OTHER have identical EXPONENTS." 148 (equalp (monom-exponents self) (monom-exponents other))) )148 (equalp (monom-exponents self) (monom-exponents other))) 149 149 150 150 (defgeneric monom-elt (m index) … … 627 627 (:method ((self term)) 628 628 "A human-readable representation of a term SELF as a cons of the list of exponents and the coefficient." 629 (cons (coerce (monom-exponents self) 'list) ( term-coeff self))))629 (cons (coerce (monom-exponents self) 'list) (->list (term-coeff self))))) 630 630 631 631 (defgeneric ->sexp (object &optional vars)
Note:
See TracChangeset
for help on using the changeset viewer.