Changeset 3408
- Timestamp:
- 2015-08-27T16:25:52-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3407 r3408 323 323 (defmethod r- ((poly1 term) poly2) 324 324 "Non-destructively subtract POLY1 and POLY2." 325 (subtract-from (change-class (copy-instance POLY1) 'poly)326 (change-class (copy-instance POLY2) )))325 (subtract-from (change-class (copy-instance POLY1) 'poly) 326 (change-class (copy-instance POLY2) 'poly))) 327 327 328 328 (defmethod r+ ((poly1 monom) poly2) … … 333 333 (defmethod r- ((poly1 monom) poly2) 334 334 "Non-destructively subtract POLY1 and POLY2." 335 (subtract-from (change-class (copy-instance POLY1) 'poly)336 (change-class (copy-instance POLY2) )))335 (subtract-from (change-class (copy-instance POLY1) 'poly) 336 (change-class (copy-instance POLY2) 'poly))) 337 337 338 338 (defmethod r* ((poly1 poly) (poly2 poly))
Note:
See TracChangeset
for help on using the changeset viewer.