Changeset 4382

Timestamp:

2016-06-06T19:58:39-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/ring.lisp (modified) (4 diffs)

branches/f4grobner/ring.lisp

@@ -108 +108 @@
 returned as the value of this function.")
   (:method ((summand t) &rest more-summands)
+    "The default implementation of ADD."
     (reduce #'add-to more-summands :initial-value (copy-instance summand))))
 
@@ -116 +117 @@
 this function.")
   (:method ((minuend t) &rest subtrahends)
+    "The default implementation of SUBTRACT."
     (cond ((endp subtrahends) (unary-minus (copy-instance minuend)))
           (t (reduce #'subtract-from subtrahends :initial-value (copy-instance minuend))))))
@@ -124 +126 @@
 Instead, a copy of factor should be made and returned as the value of this function.")
   (:method ((factor t) &rest more-factors)
+    "The default implementation of MULTIPLY."
     (reduce #'multiply-by more-factors :initial-value (copy-instance factor))))
 
@@ -130 +133 @@
 should not modify the NUMERATOR. Instead, a copy of factor should be made and returned as the value of this function.")
   (:method ((numerator t) &rest denominators)
+    "The default implementation of DIVIDE."
     (cond ((endp denominators)
            (unary-inverse (copy-instance numerator)))