- Timestamp:
- 2015-06-22T21:42:23-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r3219 r3276 55 55 (defmethod r-equalp ((term1 term) (term2 term)) 56 56 (and (r-equalp (scalar-coeff term1) (scalar-coeff term2)) 57 (= (monom-dimension term1) (monom-dimension term2)) 58 (equalp (monom-exponents term1) (monom-exponents term2)))) 57 (call-next-method))) 59 58 60 59 (defmethod update-instance-for-different-class :after ((old monom) (new scalar) &key)
Note:
See TracChangeset
for help on using the changeset viewer.