[Maxima-commits] CVS: maxima/src hypgeo.lisp,1.38,1.39

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24652/src

Modified Files:
	hypgeo.lisp 
Log Message:
Bug [ 1753971 ] specint gives lisp error

Make sure object is a list before taking the CAAR.  As mentioned in
the bug report, this fixes the immediate issue, but exposes another
issue.


Index: hypgeo.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/hypgeo.lisp,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- hypgeo.lisp	20 Feb 2007 16:58:10 -0000	1.38
+++ hypgeo.lisp	15 Jan 2008 16:48:51 -0000	1.39
@@ -1652,8 +1652,8 @@
 ;;
 ;; I11 and I21 are for the Hankel functions.
 (defun fractest (r a1 a2 i1 i11 i2 i21 flg)
-  (cond ((or (and (equal (caar i1) 'rat)
-		  (equal (caar i2) 'rat))
+  (cond ((or (and (listp i1) (equal (caar i1) 'rat)
+		  (listp i2) (equal (caar i2) 'rat))
 	     (eq flg '2htjory))
 	 ;; Why do we only execute this for 2htjory, but the code
 	 ;; below checks for 2ytj, ktiytj and 2kti?  Shouldn't we