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


Ignore:
Timestamp:
2015-09-05T16:15:43-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r3539 r3540  
    491491              exponents coeff))))
    492492
    493 (defmethod monom-equalp ((term1 term) (term2 term))
    494   (when (universal-equalp (term-coeff term1) (term-coeff term2))
    495     (call-next-method)))
     493(defgeneric universal-equalp ((term1 term) (term2 term))
     494  (and (call-next-method)
     495       (universal-equalp (term-coeff term1) (term-coeff term2))))
    496496
    497497(defmethod update-instance-for-different-class :after ((old monom) (new term) &key)
    … …  
    507507  (call-next-method))
    508508
    509 (defmethod monom-right-tensor-product-by ((self term) (other term))
     509(defmethod term-right-tensor-product-by ((self term) (other term))
    510510  (setf (term-coeff self) (multiply-by (term-coeff self) (term-coeff other)))
    511511  (call-next-method))
Note: See TracChangeset for help on using the changeset viewer.