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 1989


Ignore:
Timestamp:
2015-06-16T00:28:28-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pol.lisp

    r1988 r1989  
    126126
    127127;; Leading monomial
    128 (defun poly-lm (p)
    129   (declare (type poly p))
    130   (term-monom (poly-lt p)))
     128(defmethod poly-lm ((poly poly))
     129  (term-monom (poly-lt poly)))
    131130
    132131;; Second monomial
    133 (defun poly-second-lm (p)
    134   (declare (type poly p))
    135   (term-monom (poly-second-lt p)))
     132(defmethod poly-second-lm ((poly poly))
     133  (term-monom (poly-second-lt poly)))
    136134
    137135;; Leading coefficient
Note: See TracChangeset for help on using the changeset viewer.