Changeset 2744 for branches

Timestamp:

2015-06-20T18:58:44-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/polynomial.lisp (modified) (3 diffs)

branches/f4grobner/polynomial.lisp

@@ -144 +144 @@
 
 
-(defmacro def-additive-operation-method (method-name 
-                                         &optional 
-                                           (doc-string nil doc-string-supplied-p))
+(defmacro def-add/subtract-method (method-name 
+                                   &key
+                                     (documentation nil doc-string-supplied-p)
+                                     (subtract-p nil))
   "This macro avoids code duplication for two similar operations: ADD-TO and SUBTRACT-FROM."
   `(defmethod ,method-name ((self poly) (other poly))
@@ -161 +162 @@
      self))
 
-(def-additive-operation-method add-to
+(def-add/subtract-method add-to
     "Adds to polynomial SELF another polynomial OTHER.
 This operation destructively modifies both polynomials.
@@ -167 +168 @@
 no consing, entirely reusing the sells of SELF and OTHER.")
 
-(def-additive-operation-method subtract-from
+(def-add/subtract-method subtract-from
     "Subtracts from polynomial SELF another polynomial OTHER.
 This operation destructively modifies both polynomials.