[Maxima-commits] CVS: maxima/src compar.lisp,1.71,1.72

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv26106

Modified Files:
	compar.lisp 
Log Message:
Merge r1.71.2.1 (bug fix for is(f("x")>0) => Lisp error) into main trunk.

Index: compar.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/compar.lisp,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -d -r1.71 -r1.72
--- compar.lisp	3 Apr 2010 17:52:27 -0000	1.71
+++ compar.lisp	29 Apr 2010 17:30:51 -0000	1.72
@@ -1196,6 +1196,7 @@
   (cond ((floatp x) 'float)
 	((numberp x) 'numer)
 	((symbolp x) (if (member x '($%pi $%e $%phi $%gamma) :test #'eq) 'symbol))
+    ((atom x) nil)
 	((eq (caar x) 'rat) 'numer)
 	((eq (caar x) 'bigfloat) 'bigfloat)
 	((specrepp x) (constp (specdisrep x)))