Changeset 4103 for branches

Timestamp:

2016-06-01T12:37:24-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -374 +374 @@
   self)
   
-(defmethod add-to ((self poly) (other term))
-  "Adds to polynomial SELF a term OTHER. This operation
-destructively modifies OTHER."
-  (with-slots (termlist order)
-      self
-    (setf termlist (merge 'list termlist (list other) order))))
 
 (defmethod subtract-from ((self poly) (other poly))
@@ -391 +385 @@
                               (poly-term-order self)))
   self)
+
+
+(defmethod add-to ((self poly) (other term))
+  "Adds to a polynomial SELF a term OTHER. This operation
+destructively modifies OTHER. This operation observes the order of terms."
+  (with-slots (termlist order)
+      self
+    (setf termlist (merge 'list termlist (list other) order))))
+
+(defmethod subtract-from ((self poly) (other term))
+  "Subtracts from a polynomial SELF a term OTHER. This operation
+destructively modifies OTHER."
+  (with-slots (termlist order)
+      self
+    (setf termlist (merge 'list termlist (list other) order))))
+
+
 
 (defmacro multiply-term-by-termlist-dropping-zeros (term termlist