Changeset 1474 for branches/f4grobner

Timestamp:

2015-06-12T12:14:59-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -235 +235 @@
                              &aux 
                                (k (length plist))
-                               (d (monom-dimension (poly-lm (car plist)))))
+                               (d (monom-dimension (poly-lm (car plist))))
+                               f-x plist-x)
   "Calculate [F, U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK]."
-  (setf f (poly-list-add-variables f k)
-        plist (mapcar #'(lambda (x)
-                          (setf (poly-termlist x) (nconc (poly-termlist x)
-                                                         (list (make-term (make-monom :dimension d)
-                                                                          (funcall (ring-uminus ring) (funcall (ring-unit ring)))))))
-                          x)
-                      (poly-standard-extension plist)))
-  (append f plist))
+  (setf f-x (poly-list-add-variables f k)
+        plist-x (mapcar #'(lambda (x)
+                            (setf (poly-termlist x) (nconc (poly-termlist x)
+                                                           (list (make-term (make-monom :dimension d)
+                                                                            (funcall (ring-uminus ring) (funcall (ring-unit ring)))))))
+                            x)
+                        (poly-standard-extension plist)))
+  (append f-x plist-x))