Changeset 2413
- Timestamp:
- 2015-06-18T23:04:19-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2410 r2413 74 74 |# 75 75 76 (defmethod r* ((term1 term) (term2 term))76 (defmethod r* :around ((term1 term) (term2 term)) 77 77 "Returns the product of the terms TERM1 and TERM2, 78 78 or NIL when the product is 0. This definition takes care of divisors of 0 … … 82 82 result)) 83 83 84 (defmethod r* ((term1 term) (monom2 monom))84 (defmethod r* :around ((term1 term) (monom2 monom)) 85 85 (call-next-method term1 (change-class monom2 'term))) 86 86 87 (defmethod r* ((monom1 monom) (term2 term))87 (defmethod r* :around ((monom1 monom) (term2 term)) 88 88 (call-next-method (change-class monom1 'term) term2)) 89 89
Note:
See TracChangeset
for help on using the changeset viewer.