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 2005


Ignore:
Timestamp:
2015-06-16T17:19:30-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pol.lisp

    r2004 r2005  
    117117(defmethod poly-expt ((self poly) n))
    118118
    119 (defmethod initialize-instance :after ((self poly) expr vars)
     119(defun poly-eval (expr vars))
    120120  "Evaluate Lisp form EXPR to a polynomial or a list of polynomials in
    121121variables VARS. Return the resulting polynomial or list of
    … …  
    129129     (error "Empty expression"))
    130130    ((eql expr 0)
    131      (make-poly-zero))
     131     ())
    132132    ((member expr vars :test #'equalp)
    133133     (let ((pos (position expr vars :test #'equalp)))
Note: See TracChangeset for help on using the changeset viewer.