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 2610


Ignore:
Timestamp:
2015-06-20T01:42:32-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2609 r2610  
    115115(defmacro def-additive-operation-method (method-name)
    116116  `(defmethod ,method-name ((self poly) (other poly))
    117      "Adds to polynomial SELF another polynomial OTHER.
    118 This operation destructively modifies both polynomials.
    119 The result is stored in SELF. This implementation does
    120 no consing, entirely reusing the sells of SELF and OTHER."
     117
    121118     (with-slots ((termlist1 termlist) (order1 order))
    122119         self
     
    135132     self))
    136133
    137 (def-additive-operation-method 'add-to)
    138 (def-additive-operation-method 'subtract-from)
     134(def-additive-operation-method add-to
     135    "Adds to polynomial SELF another polynomial OTHER.
     136This operation destructively modifies both polynomials.
     137The result is stored in SELF. This implementation does
     138no consing, entirely reusing the sells of SELF and OTHER.")
     139
     140(def-additive-operation-method subtract-from
     141    "Subtracts from polynomial SELF another polynomial OTHER.
     142This operation destructively modifies both polynomials.
     143The result is stored in SELF. This implementation does
     144no consing, entirely reusing the sells of SELF and OTHER.")
    139145
    140146(defmethod unary-uminus ((self poly)))
Note: See TracChangeset for help on using the changeset viewer.