Changeset 3846 for branches/f4grobner
- Timestamp:
- 2016-05-28T12:36:07-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3845 r3846 194 194 (error "Incompatible dimensions")) 195 195 (map-into exponents1 #'+ exponents1 exponents2))) 196 self) 197 (:method ((self term) (other number)) 198 (reinitialize-instance self :coeff (multiply (term-coeff self) other)))) 196 self)) 199 197 200 198 (defgeneric divide-by (self other) … … 555 553 (reinitialize-instance other :coeff (multiply self (term-coeff other)))) 556 554 555 (defmethod multiply-by ((self term) (other number)) 556 (reinitialize-instance self :coeff (multiply (term-coeff self) other))) 557 557 558 (defmethod divide-by ((self term) (other number)) 558 559 (reinitialize-instance self :coeff (divide (term-coeff self) other)))
Note:
See TracChangeset
for help on using the changeset viewer.