- Timestamp:
- 2015-08-27T17:36:24-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3428 r3429 314 314 (defmethod r- ((minuend poly) subtrahends) 315 315 "Non-destructively subtract MINUEND and SUBTRAHENDS." 316 (subtract-from (copy-instance minuend) ( apply#'r+ subtrahends)))316 (subtract-from (copy-instance minuend) (reduce #'r+ subtrahends))) 317 317 318 318 (defmethod r+ ((poly1 term) poly2)
Note:
See TracChangeset
for help on using the changeset viewer.