- Timestamp:
- 2015-09-05T17:00:02-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3576 r3577 540 540 self) 541 541 542 (defmethod monom-multiply ((term1 number) (term2 monom))543 "Non-destructively multiply TERM1 by TERM2."544 (monom-multiply term1 (change-class (copy-instance term2) 'term)))545 546 542 (defmethod monom-zerop ((self term)) 547 543 (zerop (term-coeff self)))
Note:
See TracChangeset
for help on using the changeset viewer.