[Maxima-commits] CVS: maxima/share/contrib/Grobner grobner.lisp, 1.4, 1.5

[Andrej V. <an...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib/Grobner
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv20589

Modified Files:
	grobner.lisp 
Log Message:
Fixed make-monom macro (did not work under sbcl).


Index: grobner.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/Grobner/grobner.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- grobner.lisp	5 May 2008 08:18:06 -0000	1.4
+++ grobner.lisp	5 May 2008 08:47:28 -0000	1.5
@@ -126,7 +126,7 @@
 INITIAL-CONTENTS specifies the list of powers of the consecutive
 variables. The alternative additional argument INITIAL-ELEMENT
 specifies the common power for all variables."
-  (declare (fixnum dim))
+  ;(declare (fixnum dim))
   `(make-array ,dim
 	       :element-type 'exponent
 	       ,@(when initial-contents-supplied-p `(:initial-contents ,initial-contents))
@@ -2001,7 +2001,6 @@
       ;;to coefficients intact
       (coerce-coeff *maxima-ring* expr vars))
      (t
-      (setf expr ($num (sratsimp expr)))
       (case (caar expr)
 	(mplus (reduce #'(lambda (x y) (poly-add *maxima-ring* x y)) (parse-list (cdr expr))))
 	(mminus (poly-uminus *maxima-ring* (parse (cadr expr))))