Changeset 2861 for branches/f4grobner/5am-monom.lisp
- Timestamp:
- 2015-06-21T11:02:06-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2860 r2861 146 146 147 147 148 (def-fixture monom /term-conversion-context ()148 (def-fixture monom-term-conversion-context () 149 149 (symbol-macrolet 150 150 ((term (make-instance 'term :exponents '(1 2 3) :coeff 4)) … … 154 154 (test monom-term-conversion 155 155 "Monom/term conversion" 156 (with-fixture monom /term-conversion-context ()156 (with-fixture monom-term-conversion-context () 157 157 (is (monom-equalp (change-class term 'monom) monom)) 158 158 (is (r-equalp (change-class monom 'term) promoted-monom)))
Note:
See TracChangeset
for help on using the changeset viewer.