Changeset 1146 for branches

Timestamp:

2015-06-10T19:19:53-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -391 +391 @@
 polynomial or list of polynomials is returned, with terms in each
 polynomial ordered according to monomial order ORDER."
-  (poly-eval (read-infix-form :stream stream) vars))
-
-(defun string->poly (str vars)
-  "Converts a string STR to a polynomial in variables VARS"
+  (poly-eval (read-infix-form :stream stream) vars ring order))
+
+(defun string->poly (str vars 
+                     &key
+                       (stream t) 
+                       (ring *ring-of-integers*) 
+                       (order #'lex>))
+  "Converts a string STR to a polynomial in variables VARS."
   (with-input-from-string (s str)
-    (read-poly vars :stream s)))
-  
+    (read-poly vars :stream s :ring ring :order order)))
 
 (defun poly->alist (p)