[Maxima-commits] CVS: maxima/src hyp.lisp,1.103,1.104

[Raymond Toy <rtoy@us...>]

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24075/src

Modified Files:
	hyp.lisp 
Log Message:
Bug ID: 2792493 "hgfred([1],[-5.2],x);"

No longer returns UND.

src/hyp.lisp:
o Make HYP-NEGP-IN-L check for negative integers, not negative
  numbers, which matches the documentation.

tests/rtest16.mac:
o Add test for this bug.


Index: hyp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/hyp.lisp,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -d -r1.103 -r1.104
--- hyp.lisp	3 May 2009 18:06:02 -0000	1.103
+++ hyp.lisp	1 Jun 2009 16:03:23 -0000	1.104
@@ -736,7 +736,7 @@
 (defun hyp-negp-in-l (l)
   (let ((max-neg nil))
     (dolist (x l)
-      (when (and (numberp x) (minusp x))
+      (when (and (integerp x) (minusp x))
 	(if max-neg
 	    (setf max-neg (max max-neg x))
 	    (setf max-neg x))))

[Maxima-commits] CVS: maxima/tests rtest16.mac,1.75,1.76

[Raymond Toy <rtoy@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24075/tests

Modified Files:
	rtest16.mac 
Log Message:
Bug ID: 2792493 "hgfred([1],[-5.2],x);"

No longer returns UND.

src/hyp.lisp:
o Make HYP-NEGP-IN-L check for negative integers, not negative
  numbers, which matches the documentation.

tests/rtest16.mac:
o Add test for this bug.


Index: rtest16.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- rtest16.mac	28 May 2009 22:45:11 -0000	1.75
+++ rtest16.mac	1 Jun 2009 16:03:24 -0000	1.76
@@ -765,5 +765,11 @@
 (a*b*c)^(3/4)*(a*b*c)^(1/4)*c;
 a*b*c^2;
 
+/*
+ * Bug ID: 2792493 "hgfred([1],[-5.2],x);"
+ */
+hgfred([1],[-5.2],x);
+%f[1,1]([-6.2],[-5.2],-x)*%e^x$
+
 end;
 end$