[Maxima-commits] CVS: maxima/src defint.lisp, 1.37, 1.38 hypgeo.lisp, 1.37, 1.38 risch.lisp, 1.7, 1.8 maxmac.lisp, 1.14, 1.15

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

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

Modified Files:
	defint.lisp hypgeo.lisp risch.lisp maxmac.lisp 
Log Message:
removed vacuous calls and definition of find-function.


Index: defint.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/defint.lisp,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- defint.lisp	19 Feb 2007 21:33:22 -0000	1.37
+++ defint.lisp	20 Feb 2007 16:58:10 -0000	1.38
@@ -9,6 +9,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (in-package :maxima)
+
 (macsyma-module defint)
 
 ;;;          this is the definite integration package. 
@@ -219,9 +220,7 @@
 		 (rp-polylogp ())
 		 ($domain '$real) ($m1pbranch ())) ;Try this out.
 
-	     (find-function '$limit)
 	     (make-global-assumptions) ;sets *global-defint-assumptions*
-	     (find-function '$residue)
 	     (setq exp (ratdisrep exp))
 	     (setq var (ratdisrep var))
 	     (setq ll (ratdisrep ll))

Index: hypgeo.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/hypgeo.lisp,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- hypgeo.lisp	19 Jan 2007 16:34:33 -0000	1.37
+++ hypgeo.lisp	20 Feb 2007 16:58:10 -0000	1.38
@@ -1,7 +1,7 @@
 ;;; -*-  Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*- ;;;;
 
-
 ;;    ** (c) Copyright 1976, 1983 Massachusetts Institute of Technology **
+
 (in-package :maxima)
 
 ;;These are the main routines for finding the Laplace Transform
@@ -77,14 +77,7 @@
 (defun parp (a)
   (eq a *par*))
 
-
-
-;;(DEFUN HASVAR(EXP)(COND ((FREEVAR EXP) NIL)(T T)))
-
-
-
-(defun arbpow1
-    (exp)
+(defun arbpow1 (exp)
   (m2 exp
       '((mplus)
 	((coeffpt)
@@ -657,8 +650,7 @@
 	((coeffpp) (a zerp)))
       nil))
 
-(defun onehe
-    (exp)
+(defun onehe (exp)
   (m2 exp
       '((mplus)
 	((coeffpt)
@@ -667,8 +659,7 @@
 	((coeffpp) (a zerp)))
       nil))
 
-(defun oneq
-    (exp)
+(defun oneq (exp)
   (m2 exp
       '((mplus)
 	((coeffpt)
@@ -679,8 +670,7 @@
 	((coeffpp) (a zerp)))
       nil))
 
-(defun onep0
-    (exp)
+(defun onep0 (exp)
   (m2 exp
       '((mplus)
 	((coeffpt)
@@ -689,8 +679,7 @@
 	((coeffpp) (a zerp)))
       nil))
 
-(defun hyp-onep
-    (exp)
+(defun hyp-onep (exp)
   (m2 exp
       '((mplus)
 	((coeffpt)
@@ -702,8 +691,7 @@
       nil))
 
 ;; Recognize %w[v1,v2](w), Whittaker W function.
-(defun onew
-    (exp)
+(defun onew (exp)
   (m2 exp
       '((mplus)
 	((coeffpt)
@@ -714,13 +702,6 @@
 	((coeffpp) (a zerp)))
       nil))
 
- 
-
-
- 
-
-
-
 ;;...RECOGNIZES L.T.E. "U*%E^(A*X+E*F(X)-P*X+C)+D".
 
 (defun ltep
@@ -739,13 +720,8 @@
 	((coeffpp) (d zerp)))
       nil)) 
 
-;;(DEFUN ZERP(A)(EQUAL A 0))
-
-;;(DEFUN NONZERP(A)(NOT (ZERP A)))
-
 (defmfun $specint (exp var)
   (prog ($radexpand checkcoefsignlist)
-     (progn (find-function 'sinint))
      (setq $radexpand '$all)
      (return (grasp-some-trigs exp))))
 

Index: risch.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/risch.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- risch.lisp	6 Sep 2006 16:33:06 -0000	1.7
+++ risch.lisp	20 Feb 2007 16:58:10 -0000	1.8
@@ -9,11 +9,12 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (in-package :maxima)
+
 (macsyma-module risch)
 
 (load-macsyma-macros rzmac ratmac)
 
-(declare-top(special prob rootfac parnumer pardenom logptdx wholepart $ratalgdenom
+(declare-top (special prob rootfac parnumer pardenom logptdx wholepart $ratalgdenom
 		     expexpflag $logsimp switch1 degree cary $ratfac $logexpand
 		     ratform genvar *var var rootfactor expint $keepfloat
 		     trigint operator $exponentialize $gcd $logarc changevp
@@ -22,10 +23,7 @@
 		     rischp $factorflag alphar m simp genpairs hypertrigint
 		     *mosesflag yyy *exp y $algebraic implicit-real
 		     errrjfflag $%e_to_numlog generate-atan2 context
-		     bigfloatzero rp-polylogp)
-	    (*expr $exponentialize subfunsubs subfunname sratsimp partfrac mqapplyp)
-	    (*lexpr context polylogp)
-	    (genprefix risch))
+		     bigfloatzero rp-polylogp))
 
 (defmvar $liflag t "Controls whether `risch' generates polylogs") 
 
@@ -58,12 +56,9 @@
     (cons (r+ a c) (append b d))))
 
 (defmfun $risch (exp var)
-  ;; Get RATINT from SININT
-  (find-function 'ratint)
   (with-new-context (context)
     (rischint exp var)))
 
-
 (defun spderivative (p var) 
   (cond ((pcoefp p) '(0 . 1))
 	((null (cdr p)) '(0 . 1))
@@ -1046,7 +1041,6 @@
 
 (defun fixintgreat (a) (subst '/_101x *var a))
 
-#-nil
-(declare-top(unspecial b beta cary context *exp degree gamma
-		       klth liflag m nogood operator prob
-		       r s simp switch switch1 *var var  y yyy))
+(declare-top (unspecial b beta cary context *exp degree gamma
+			klth liflag m nogood operator prob
+			r s simp switch switch1 *var var  y yyy))

Index: maxmac.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/maxmac.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- maxmac.lisp	18 Feb 2007 12:47:02 -0000	1.14
+++ maxmac.lisp	20 Feb 2007 16:58:10 -0000	1.15
@@ -86,13 +86,6 @@
 
 ;; The following macros pertain only to Macsyma.
 
-;; All functions are present on non-autoloading systems.  Definition
-;; for autoloading systems is in SUPRV.
-;; If you have dynamic linking you might as well take advantage of it.
-
-(defmacro find-function (function)
-  (declare (ignore function)))
-
 ;; Except on the Lisp Machine, load the specified macro files.
 ;; On the Lisp Machine, the DEFSYSTEM facility is used for loading
 ;; macro files, so just check that the file is loaded. This is