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 3320 for branches


Ignore:
Timestamp:
2015-06-23T10:08:41-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-monom.lisp

    r3220 r3320  
    6363  ;; Use SYMBOL-MACROLET not let to avoid 'unused variable' complaints
    6464  (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)))
     65      ((m (make-instance 'monom  :exponents '(1 2 3)))
     66       (n (make-instance 'monom  :exponents '(4 5 6)))
     67       (m*n (make-instance 'monom  :exponents '(5 7 9)))
     68       (n/m (make-instance 'monom  :exponents '(3 3 3)))
    6969       (m-tensor-n (make-instance 'monom  :exponents '(1 2 3 4 5 6))))
    7070    (&body)))
Note: See TracChangeset for help on using the changeset viewer.