Changeset 3406
- Timestamp:
- 2015-08-27T12:54:53-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3405 r3406 316 316 (subtract-from (copy-instance POLY1) (copy-instance POLY2))) 317 317 318 (defmethod r+ ((poly1 term) poly2) 319 "Non-destructively add POLY1 by POLY2." 320 (add-to (change-class (copy-instance POLY1) 'poly) 321 (change-class (copy-instance POLY2) 'poly))) 322 323 (defmethod r- ((poly1 term) poly2) 324 "Non-destructively subtract POLY1 and POLY2." 325 (subtract-from (change-class (copy-instance POLY1)' poly) 326 (change-class (copy-instance POLY2)))) 327 318 328 (defmethod r* ((poly1 poly) (poly2 poly)) 319 329 "Non-destructively multiply POLY1 by POLY2."
Note:
See TracChangeset
for help on using the changeset viewer.