Changeset 2841
- Timestamp:
- 2015-06-21T10:03:43-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2840 r2841 62 62 (def-fixture monom-context () 63 63 ;; Use SYMBOL-MACROLET not let to avoid 'unused variable' complaints 64 (symbol-macrolet ((m (make-instance 'monom :dimension 3 :exponents '(1 2 3))) 65 (n (make-instance 'monom :dimension 3 :exponents '(4 5 6))) 66 (m*n (make-instance 'monom :dimension 3 :exponents '(5 7 9))) 67 (n/m (make-instance 'monom :dimension 3 :exponents '(3 3 3))) 68 (m-tensor-n (make-instance 'monom :exponents '(1 2 3 4 5 6)))) 64 (symbol-macrolet 65 ((m (make-instance 'monom :dimension 3 :exponents '(1 2 3))) 66 (n (make-instance 'monom :dimension 3 :exponents '(4 5 6))) 67 (m*n (make-instance 'monom :dimension 3 :exponents '(5 7 9))) 68 (n/m (make-instance 'monom :dimension 3 :exponents '(3 3 3))) 69 (m-tensor-n (make-instance 'monom :exponents '(1 2 3 4 5 6)))) 69 70 (&body))) 70 71 … … 104 105 105 106 (def-fixture term-context () 106 (symbol-macrolet ((z (make-instance 'term :dimension 3 :coeff 5)) 107 (m (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff 6)) 108 (n (make-instance 'term :dimension 3 :exponents '(4 5 6) :coeff 12)) 109 (m*n (make-instance 'term :dimension 3 :exponents '(5 7 9) :coeff 72)) 110 (n/m (make-instance 'term :dimension 3 :exponents '(3 3 3) :coeff 2)) 111 (m-tensor-n (make-instance 'term :exponents '(1 2 3 4 5 6) :coeff 72)) 112 (m-uminus (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff -6))) 107 (symbol-macrolet 108 ((z (make-instance 'term :dimension 3 :coeff 5)) 109 (m (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff 6)) 110 (n (make-instance 'term :dimension 3 :exponents '(4 5 6) :coeff 12)) 111 (m*n (make-instance 'term :dimension 3 :exponents '(5 7 9) :coeff 72)) 112 (n/m (make-instance 'term :dimension 3 :exponents '(3 3 3) :coeff 2)) 113 (m-tensor-n (make-instance 'term :exponents '(1 2 3 4 5 6) :coeff 72)) 114 (m-uminus (make-instance 'term :dimension 3 :exponents '(1 2 3) :coeff -6))) 113 115 (&body))) 114 116 … … 152 154 153 155 (def-fixture order-context () 154 (symbol-macrolet ((p (make-instance 'monom :exponents '(1 3 2))) 155 (q (make-instance 'monom :exponents '(1 2 3)))) 156 (symbol-macrolet 157 ((p (make-instance 'monom :exponents '(1 3 2))) 158 (q (make-instance 'monom :exponents '(1 2 3)))) 156 159 (&body))) 157 160
Note:
See TracChangeset
for help on using the changeset viewer.