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 2752


Ignore:
Timestamp:
2015-06-20T19:12:21-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2751 r2752  
    145145
    146146(defmacro def-add/subtract-method (add/subtract-method-name
    147                                    (&key
    148                                     (doc-string nil doc-string-supplied-p)
    149                                     (uminus-method-name nil uminus-method-name-supplied-p)))
     147                                   uminus-method-name
     148                                   &optional
     149                                    (doc-string nil doc-string-supplied-p))
    150150  "This macro avoids code duplication for two similar operations: ADD-TO and SUBTRACT-FROM."
    151151  `(defmethod ,add/subtract-method-name ((self poly) (other poly))
     
    166166     self))
    167167
    168 (def-add/subtract-method add-to
    169     (:doc-string
     168(def-add/subtract-method add-to nil
    170169     "Adds to polynomial SELF another polynomial OTHER.
    171170This operation destructively modifies both polynomials.
    172171The result is stored in SELF. This implementation does
    173 no consing, entirely reusing the sells of SELF and OTHER."))
    174 
    175 (def-add/subtract-method subtract-from
     172no consing, entirely reusing the sells of SELF and OTHER.")
     173
     174(def-add/subtract-method subtract-from unary-minus
    176175    (:doc-string "Subtracts from polynomial SELF another polynomial OTHER.
    177176This operation destructively modifies both polynomials.
    178177The result is stored in SELF. This implementation does
    179 no consing, entirely reusing the sells of SELF and OTHER."))
     178no consing, entirely reusing the sells of SELF and OTHER.")
    180179
    181180(defmethod unary-minus ((self poly))
Note: See TracChangeset for help on using the changeset viewer.