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 1854


Ignore:
Timestamp:
2015-06-15T14:10:17-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

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

    r1665 r1854  
    122122         (m2 (make-monom :initial-exponents '(3 5 2)))
    123123         (m3 (monom-mul m1 m2))
    124          (t1 (make-term m1 7))
    125          (t2 (make-term m2 9))
    126          (t3 (make-term m3 (* 7 9))))
     124         (t1 (make-term :monom m1 :coeff 7))
     125         (t2 (make-term :monom m2 :coeff 9))
     126         (t3 (make-term :monom m3 :coeff (* 7 9))))
    127127    (is (equalp (term-mul +ring-of-integers+ t1 t2) t3))))
    128128
Note: See TracChangeset for help on using the changeset viewer.