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 2413 for branches/f4grobner


Ignore:
Timestamp:
2015-06-18T23:04:19-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r2410 r2413  
    7474|#
    7575
    76 (defmethod r* ((term1 term) (term2 term))
     76(defmethod r* :around ((term1 term) (term2 term))
    7777  "Returns the product of the terms TERM1 and TERM2,
    7878or NIL when the product is 0. This definition takes care of divisors of 0
    … …  
    8282    result))
    8383
    84 (defmethod r* ((term1 term) (monom2 monom))
     84(defmethod r* :around ((term1 term) (monom2 monom))
    8585  (call-next-method term1 (change-class monom2 'term)))
    8686
    87 (defmethod r* ((monom1 monom) (term2 term))
     87(defmethod r* :around ((monom1 monom) (term2 term))
    8888  (call-next-method (change-class monom1 'term) term2))
    8989
Note: See TracChangeset for help on using the changeset viewer.