Changeset 3434
- Timestamp:
- 2015-08-27T18:12:04-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3433 r3434 325 325 "Non-destructively subtract MINUEND and SUBTRAHENDS." 326 326 (subtract-from (change-class (copy-instance minuend) 'poly) 327 ( reduce #'r+ subtrahends)))327 (change-class (reduce #'r+ subtrahends) 'poly)) 328 328 329 329 (defmethod r+ ((poly1 monom) poly2) … … 335 335 "Non-destructively subtract MINUEND and SUBTRAHENDS." 336 336 (subtract-from (change-class (copy-instance minuend) 'poly) 337 ( reduce #'r+ subtrahends)))337 (change-class (reduce #'r+ subtrahends) 'poly))) 338 338 339 339 (defmethod r* ((poly1 poly) (poly2 poly))
Note:
See TracChangeset
for help on using the changeset viewer.