Changeset 2752 for branches

Timestamp:

2015-06-20T19:12:21-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -145 +145 @@
 
 (defmacro def-add/subtract-method (add/subtract-method-name 
-                                   (&key
-                                    (doc-string nil doc-string-supplied-p)
-                                    (uminus-method-name nil uminus-method-name-supplied-p)))
+                                   uminus-method-name
+                                   &optional
+                                    (doc-string nil doc-string-supplied-p))
   "This macro avoids code duplication for two similar operations: ADD-TO and SUBTRACT-FROM."
   `(defmethod ,add/subtract-method-name ((self poly) (other poly))
@@ -166 +166 @@
      self))
 
-(def-add/subtract-method add-to
-    (:doc-string
+(def-add/subtract-method add-to nil
      "Adds to polynomial SELF another polynomial OTHER.
 This operation destructively modifies both polynomials.
 The result is stored in SELF. This implementation does
-no consing, entirely reusing the sells of SELF and OTHER."))
-
-(def-add/subtract-method subtract-from
+no consing, entirely reusing the sells of SELF and OTHER.")
+
+(def-add/subtract-method subtract-from unary-minus
     (:doc-string "Subtracts from polynomial SELF another polynomial OTHER.
 This operation destructively modifies both polynomials.
 The result is stored in SELF. This implementation does
-no consing, entirely reusing the sells of SELF and OTHER."))
+no consing, entirely reusing the sells of SELF and OTHER.")
 
 (defmethod unary-minus ((self poly))