Changeset 1007 for branches

Timestamp:

2015-06-10T06:26:26-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/parse.lisp

@@ -100 +100 @@
 numeric constant or a polynomial in internal representation. If the
 result is a number then convert it to a polynomial in N variables."
-  (poly* (convert-number p n) (convert-number q n) order ring))
-
-(defun $poly/ (p q ring)
+  (poly-mul ring-and-order (convert-number p n) (convert-number q n)))
+
+(defun $poly/ (ring p q)
   "Divide a polynomials P which is either a numeric constant or a
 polynomial in internal representation, by a number Q."
   (if (numberp p)
       (common-lisp:/ p q)
-      (scalar-times-poly (common-lisp:/ q) p ring)))
+      (scalar-times-poly ring (common-lisp:/ q) p)))
     
 (defun $poly-expt (p l n order ring)
@@ -113 +113 @@
 representation or a numeric constant, to power L. If P is a number,
 convert the result to a polynomial in N variables."
-  (poly-expt (convert-number p n) l order ring))
+  (poly-expt ring-and-order (convert-number p n) l))
 
 (defun parse (&optional stream)