Changeset 4092 for branches/f4grobner

Timestamp:

2016-06-01T10:15:55-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/polynomial.lisp (modified) (3 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))
@@ -418 +424 @@
      (multiply-term-by-termlist-dropping-zeros (car q) p t))
     (t
-     (cons (multiply (car p) (car q))
+     (cons (multiply-by (car p) (car q))
            (add-termlists 
             (multiply-term-by-termlist-dropping-zeros (car p) (cdr q))
@@ -537 +543 @@
         (declare (ignore c))
         (subtract
-         (multiply f (change-class mf 'term :coeff cg))
-         (multiply g (change-class mg 'term :coeff cf)))))))
+         (multiply-by f (change-class mf 'term :coeff cg))
+         (multiply-by g (change-class mg 'term :coeff cf)))))))
 
 (defgeneric poly-content (object)