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


Ignore:
Timestamp:
2015-06-06T18:02:19-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/termlist.lisp

    r379 r380  
    4747
    4848(defun term-mul-lst (ring term1 term2)
    49   "Returns (LIST TERM) where TERM is the product of the terms TERM1 TERM2,
    50 or NIL when the product is 0. This definition takes care of divisors of 0
    51 in the coefficient ring."
     49  "A special version of term multiplication. Returns (LIST TERM) where
     50TERM is the product of the terms TERM1 TERM2, or NIL when the product
     51is 0. This definition takes care of divisors of 0 in the coefficient
     52ring."
    5253  (let ((c (funcall (ring-mul ring) (term-coeff term1) (term-coeff term2))))
    5354    (unless (funcall (ring-zerop ring) c)
Note: See TracChangeset for help on using the changeset viewer.