Changeset 3880 for branches

Timestamp:

2016-05-28T21:23:27-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -292 +292 @@
      self))
 
+(defmethod unary-minus ((self poly))
+  "Destructively modifies the coefficients of the polynomial SELF,
+by changing their sign."
+  (mapc #'unary-minus (poly-termlist self))
+  self)
+
+(defun add-termlists (p q order-fn)
+  "Destructively adds two termlists P and Q ordered according to ORDER-FN."
+  (fast-add/subtract p q order-fn #'add-to nil))
+
 (defmethod add-to ((self poly) (other poly))
   "Adds to polynomial SELF another polynomial OTHER.
@@ -312 +322 @@
                               (poly-termlist self) (poly-termlist other)
                               (poly-term-order self))))
-
-(defmethod unary-minus ((self poly))
-  "Destructively modifies the coefficients of the polynomial SELF,
-by changing their sign."
-  (mapc #'unary-minus (poly-termlist self))
-  self)
-
-(defun add-termlists (p q order-fn)
-  "Destructively adds two termlists P and Q ordered according to ORDER-FN."
-  (fast-add/subtract p q order-fn #'add-to nil))
 
 (defmacro multiply-term-by-termlist-dropping-zeros (term termlist