- Timestamp:
- 2015-06-21T10:15:22-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2843 r2844 152 152 (monom (make-instance 'term :exponents '(1 2 3))) 153 153 (promoted-monom (make-instance 'term :exponents '(1 2 3) :coeff 1))) 154 (is ( r-equalp (change-class term 'monom) monom)155 (is ( r-equalp (change-class monom 'term) promoted-monom)))))154 (is (monom-equalp (change-class term 'monom) monom) 155 (is (term-equalp (change-class monom 'term) promoted-monom))))) 156 156 157 157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.