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.

Ignore:
Timestamp:
2015-06-20T19:01:43-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2744 r2745  
    145145
    146146(defmacro def-add/subtract-method (method-name
    147                                    &key
    148                                      (documentation nil doc-string-supplied-p)
    149                                      (subtract-p nil))
     147                                   (&key
     148                                    (:doc-string nil doc-string-supplied-p)
     149                                    (subtract-p nil)))
    150150  "This macro avoids code duplication for two similar operations: ADD-TO and SUBTRACT-FROM."
    151151  `(defmethod ,method-name ((self poly) (other poly))
     
    163163
    164164(def-add/subtract-method add-to
    165     "Adds to polynomial SELF another polynomial OTHER.
     165    (:doc-string
     166     "Adds to polynomial SELF another polynomial OTHER.
    166167This operation destructively modifies both polynomials.
    167168The result is stored in SELF. This implementation does
    168 no consing, entirely reusing the sells of SELF and OTHER.")
     169no consing, entirely reusing the sells of SELF and OTHER."))
    169170
    170171(def-add/subtract-method subtract-from
    171     "Subtracts from polynomial SELF another polynomial OTHER.
     172    (:doc-string "Subtracts from polynomial SELF another polynomial OTHER.
    172173This operation destructively modifies both polynomials.
    173174The result is stored in SELF. This implementation does
    174 no consing, entirely reusing the sells of SELF and OTHER.")
    175 
     175no consing, entirely reusing the sells of SELF and OTHER."))
    176176
    177177(defmethod unary-minus ((self poly))
Note: See TracChangeset for help on using the changeset viewer.