close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 2841 for branches


Ignore:
Timestamp:
2015-06-21T10:03:43-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-monom.lisp

    r2840 r2841  
    6262(def-fixture monom-context ()
    6363  ;; 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))))
    6970    (&body)))
    7071
     
    104105
    105106(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)))
    113115    (&body)))
    114116
     
    152154
    153155(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))))
    156159    (&body)))
    157160
Note: See TracChangeset for help on using the changeset viewer.