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 2744


Ignore:
Timestamp:
2015-06-20T18:58:44-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2743 r2744  
    144144
    145145
    146 (defmacro def-additive-operation-method (method-name
    147                                          &optional
    148                                            (doc-string nil doc-string-supplied-p))
     146(defmacro def-add/subtract-method (method-name
     147                                   &key
     148                                     (documentation nil doc-string-supplied-p)
     149                                     (subtract-p nil))
    149150  "This macro avoids code duplication for two similar operations: ADD-TO and SUBTRACT-FROM."
    150151  `(defmethod ,method-name ((self poly) (other poly))
    … …  
    161162     self))
    162163
    163 (def-additive-operation-method add-to
     164(def-add/subtract-method add-to
    164165    "Adds to polynomial SELF another polynomial OTHER.
    165166This operation destructively modifies both polynomials.
    … …  
    167168no consing, entirely reusing the sells of SELF and OTHER.")
    168169
    169 (def-additive-operation-method subtract-from
     170(def-add/subtract-method subtract-from
    170171    "Subtracts from polynomial SELF another polynomial OTHER.
    171172This operation destructively modifies both polynomials.
Note: See TracChangeset for help on using the changeset viewer.