- Timestamp:
- 2015-06-21T10:14:04-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2841 r2842 146 146 147 147 148 (test monom/term-conversion 149 "Monom/term conversion" 150 (symbol-macrolet 151 ((term (make-instance 'term :exponents '(1 2 3) :coeff 4)) 152 (monom (make-instance 'term :exponents '(1 2 3))) 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 157 148 158 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 149 159 ;;
Note:
See TracChangeset
for help on using the changeset viewer.