Changeset 2843 for branches/f4grobner
- Timestamp:
- 2015-06-21T10:14:46-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2842 r2843 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-equal (change-class term 'monom) monom) 155 (is-equal (change-class monom 'term) promoted-monom))) 156 154 (is (r-equalp (change-class term 'monom) monom) 155 (is (r-equalp (change-class monom 'term) promoted-monom))))) 157 156 158 157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.