close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4236


Ignore:
Timestamp:
2016-06-04T19:07:36-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4235 r4236  
    146146(defmethod universal-equalp ((self monom) (other monom))
    147147    "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)))
    149149
    150150(defgeneric monom-elt (m index)
    … …  
    627627  (:method ((self term))
    628628    "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)))))
    630630
    631631(defgeneric ->sexp (object &optional vars)
Note: See TracChangeset for help on using the changeset viewer.