Changeset 2745

Timestamp:

2015-06-20T19:01:43-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 (method-name 
-                                   &key
-                                     (documentation nil doc-string-supplied-p)
-                                     (subtract-p nil))
+                                   (&key
+                                    (:doc-string 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))
@@ -163 +163 @@
 
 (def-add/subtract-method add-to
-    "Adds to polynomial SELF another polynomial OTHER.
+    (:doc-string
+     "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.")
+no consing, entirely reusing the sells of SELF and OTHER."))
 
 (def-add/subtract-method subtract-from
-    "Subtracts from polynomial SELF another polynomial OTHER.
+    (: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))