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 2148 for branches


Ignore:
Timestamp:
2015-06-17T21:31:33-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2147 r2148  
    257257                     :exponents (concatenate 'vector exponents1 exponents2)))))
    258258
    259 (defmethod contract ((m monom) k)
     259(defmethod r-contract ((m monom) k)
    260260  "Drop the first K variables in monomial M."
    261261  (declare (fixnum k))
    … …  
    280280(defmethod monom->list ((m monom))
    281281  "A human-readable representation of a monomial M as a list of exponents." 
    282   (with-slots (exponents)
    283       m
    284     (coerce exponents 'list)))
     282  (coerce (monom-exponents m) 'list))
Note: See TracChangeset for help on using the changeset viewer.