[Maxima-commits] CVS: maxima/src float.lisp, 1.32, 1.33 rat3a.lisp, 1.12, 1.13 simp.lisp, 1.30, 1.31 specfn.lisp, 1.15, 1.16

[Andreas E. <ar...@us...>]

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

Modified Files:
	float.lisp rat3a.lisp simp.lisp specfn.lisp 
Log Message:
replaced bigp by bignump.


Index: float.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/float.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- float.lisp	20 Mar 2007 14:13:23 -0000	1.32
+++ float.lisp	24 Mar 2007 15:50:27 -0000	1.33
@@ -111,7 +111,7 @@
 ;;	       The actual number represented is (* fraction (^ 2 exponent)).
 
 (defun hipart (x nn)
-  (if (bigp nn)
+  (if (bignump nn)
       (abs x)
       (haipart x nn)))
 
@@ -527,13 +527,13 @@
 ;; EXPT tries to LSH when possible.
 
 (defun biglsh (x n)
-  (cond ((and (not (bigp x))
+  (cond ((and (not (bignump x))
 	      (< n #.(- +machine-fixnum-precision+)))
 	 0)
 	;; Either we are shifting a fixnum to the right, or shifting
 	;; a fixnum to the left, but not far enough left for it to become
 	;; a bignum.
-	((and (not (bigp x))
+	((and (not (bignump x))
 	      (or (<= n 0)
 		  (< (+ (integer-length x) n) #.+machine-fixnum-precision+)))
 	 ;; The form which follows is nearly identical to (ASH X N), however

Index: rat3a.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/rat3a.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- rat3a.lisp	20 Mar 2007 22:54:05 -0000	1.12
+++ rat3a.lisp	24 Mar 2007 15:50:27 -0000	1.13
@@ -75,7 +75,7 @@
 ;; where P is a fixnum, N is also assumed to be one.
 
 (defmfun crecip (n)
-  (cond ((bigp modulus)	;; Have to use bignum arithmetic if modulus is a bignum
+  (cond ((bignump modulus)	;; Have to use bignum arithmetic if modulus is a bignum
 	 (prog (a1 a2 y1 y2 q (big-n n))
 	    (if (minusp big-n) (setq big-n (+ big-n modulus)))
 	    (setq a1 modulus a2 big-n)
@@ -154,7 +154,7 @@
 
 (defmfun pcoefadd (e c x)
   (cond ((pzerop c) x)
-	((bigp e) (merror "Exponent out of range"))
+	((bignump e) (merror "Exponent out of range"))
 	(t (cons e (cons c x)))))
 
 (defmfun pplus (x y)

Index: simp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/simp.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- simp.lisp	20 Mar 2007 14:13:23 -0000	1.30
+++ simp.lisp	24 Mar 2007 15:50:28 -0000	1.31
@@ -617,7 +617,7 @@
     (defconstant machine-mantissa-precision (float-digits 1d0)))
 
 (defun fpcofrat1 (nu d)
-  (if (and (bigp nu) (bigp d))
+  (if (and (bignump nu) (bignump d))
       (let ((sign (if (minusp nu) (plusp d) (minusp d)))
 	    (ln (integer-length nu)) (ld (integer-length d)))
 	(if (> ln ld)

Index: specfn.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/specfn.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- specfn.lisp	22 Mar 2007 19:07:31 -0000	1.15
+++ specfn.lisp	24 Mar 2007 15:50:28 -0000	1.16
@@ -235,7 +235,7 @@
 		(let ((p (cadr a)) (q (caddr a)))
 		  (cond
 		    ((or (> p $maxpsifracnum)
-			 (> q $maxpsifracdenom) (bigp p) (bigp q)) ())
+			 (> q $maxpsifracdenom) (bignump p) (bignump q)) ())
 		    ((and (= p 1)
 			  (cond ((= q 2)
 				 (m+ (m* -2 '((%log) 2)) (m- '$%gamma)))