Changeset 2756

Timestamp:

2015-06-20T19:18:09-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/polynomial.lisp (modified) (1 diff)

branches/f4grobner/polynomial.lisp

@@ -104 +104 @@
 (defmacro fast-add/subtract (p q order-fn 
                              add/subtract-method-name  
-                             &optional (uminus-method-name nil uminus-method-name-supplied-p))
+                             &optional 
+                               (uminus-method-name nil uminus-method-name-supplied-p))
   "Return an expression which will efficiently adds/subtracts two
 polynomials, P and Q.  The addition/subtraction of coefficients is
 performed by calling ADD/SUBTRACT-METHOD-NAME.  If UMINUS-METHOD-NAME
 is supplied, it is used to negate the coefficients of Q which do not
-have a corresponding coefficient in P. The code implements an efficient
-algorithm to add two polynomials represented as sorted lists of
-terms. This function destroys both arguments, reusing the terms to
-build the result."
+have a corresponding coefficient in P. The code implements an
+efficient algorithm to add two polynomials represented as sorted lists
+of terms. The code destroys both arguments, reusing the terms to build
+the result."
   `(macrolet ((lc (x) `(r-coeff (car ,x))))
      (do ((p ,p)