Changeset 2005 for branches/f4grobner/pol.lisp
- Timestamp:
- 2015-06-16T17:19:30-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pol.lisp
r2004 r2005 117 117 (defmethod poly-expt ((self poly) n)) 118 118 119 (def method initialize-instance :after ((self poly) expr vars)119 (defun poly-eval (expr vars)) 120 120 "Evaluate Lisp form EXPR to a polynomial or a list of polynomials in 121 121 variables VARS. Return the resulting polynomial or list of … … 129 129 (error "Empty expression")) 130 130 ((eql expr 0) 131 ( make-poly-zero))131 ()) 132 132 ((member expr vars :test #'equalp) 133 133 (let ((pos (position expr vars :test #'equalp)))
Note:
See TracChangeset
for help on using the changeset viewer.