Changeset 4381
- Timestamp:
- 2016-06-06T19:57:45-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r4380 r4381 117 117 (:method ((minuend t) &rest subtrahends) 118 118 (cond ((endp subtrahends) (unary-minus (copy-instance minuend))) 119 (t (reduce #'subtract-from (copy-instance minuend) subtrahends)))))119 (t (reduce #'subtract-from subtrahends :initial-value (copy-instance minuend)))))) 120 120 121 121 (defgeneric multiply (factor &rest more-factors)
Note:
See TracChangeset
for help on using the changeset viewer.