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 2083 for branches/f4grobner


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2082 r2083  
    253253        (make-instance 'monom :dim dim :exponents exponents)))))
    254254
    255 (defun monom-depends-p (m k)
     255(defmethod depends-on-variable-p ((m monom) k)
    256256  "Return T if the monomial M depends on variable number K."
    257   (declare (type monom m) (type fixnum k))
    258   (plusp (monom-elt m k)))
     257  (declare (type fixnum k))
     258  (with-slots (exponents)
     259      m
     260    (plusp (elt exponents k))))
    259261
    260262(defmacro monom-map (fun m &rest ml &aux (result `(copy-seq ,m)))
Note: See TracChangeset for help on using the changeset viewer.