Changeset 1668 for branches

Timestamp:

2015-06-14T20:50:46-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -284 +284 @@
 (defun poly-eval (expr vars 
                   &optional 
-                    (ring *ring-of-integers*) 
+                    (ring +ring-of-integers+) 
                     (order #'lex>)
                     (list-marker :[)
@@ -351 +351 @@
 (defun poly-eval-scalar (expr 
                          &optional
-                           (ring *ring-of-integers*)
+                           (ring +ring-of-integers+)
                          &aux 
                            (order #'lex>))
@@ -432 +432 @@
 (defun read-poly (vars &key
                          (stream t) 
-                         (ring *ring-of-integers*) 
+                         (ring +ring-of-integers+) 
                          (order #'lex>))
   "Reads an expression in prefix form from a stream STREAM.
@@ -443 +443 @@
 (defun string->poly (str vars 
                      &optional
-                       (ring *ring-of-integers*) 
+                       (ring +ring-of-integers+) 
                        (order #'lex>))
   "Converts a string STR to a polynomial in variables VARS."
@@ -462 +462 @@
 (defun string->alist (str vars
                      &optional
-                       (ring *ring-of-integers*) 
+                       (ring +ring-of-integers+) 
                        (order #'lex>))
   "Convert a string STR representing a polynomial or polynomial list to