- Timestamp:
- 2015-06-20T19:12:21-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2751 r2752 145 145 146 146 (defmacro def-add/subtract-method (add/subtract-method-name 147 (&key148 (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)) 150 150 "This macro avoids code duplication for two similar operations: ADD-TO and SUBTRACT-FROM." 151 151 `(defmethod ,add/subtract-method-name ((self poly) (other poly)) … … 166 166 self)) 167 167 168 (def-add/subtract-method add-to 169 (:doc-string 168 (def-add/subtract-method add-to nil 170 169 "Adds to polynomial SELF another polynomial OTHER. 171 170 This operation destructively modifies both polynomials. 172 171 The 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 172 no consing, entirely reusing the sells of SELF and OTHER.") 173 174 (def-add/subtract-method subtract-from unary-minus 176 175 (:doc-string "Subtracts from polynomial SELF another polynomial OTHER. 177 176 This operation destructively modifies both polynomials. 178 177 The result is stored in SELF. This implementation does 179 no consing, entirely reusing the sells of SELF and OTHER.") )178 no consing, entirely reusing the sells of SELF and OTHER.") 180 179 181 180 (defmethod unary-minus ((self poly))
Note:
See TracChangeset
for help on using the changeset viewer.