From cc176df08bc32d2cca4781b0b5678daca2e010ab Mon Sep 17 00:00:00 2001 From: Raymond Toy Date: Fri, 28 Jun 2024 13:20:21 -0700 Subject: [PATCH] Rename *ll* and *ul* to ll and ul in intbyterm `intbyterm` no longer really needs the special vars. Rename them so we use lexical vars instead. Full testsuite + share passes with cmucl and ccl64. --- src/defint.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/defint.lisp b/src/defint.lisp index f9c24c4a7..eb6db4c40 100644 --- a/src/defint.lisp +++ b/src/defint.lisp @@ -732,18 +732,18 @@ in the interval of integration.") (cons (simplify (rdis (car e))) (simplify (rdis (cadr e)))))) -(defun intbyterm (exp *nodiverg* ivar *ll* *ul*) +(defun intbyterm (exp *nodiverg* ivar ll ul) (let ((saved-exp exp)) (cond ((mplusp exp) (let ((ans (catch 'divergent (andmapcar #'(lambda (new-exp) - (defint new-exp ivar *ll* *ul*)) + (defint new-exp ivar ll ul)) (cdr exp))))) (cond ((null ans) nil) ((eq ans 'divergent) (let ((*nodiverg* nil)) (cond ((setq ans (antideriv saved-exp ivar)) - (intsubs ans *ll* *ul* ivar)) + (intsubs ans ll ul ivar)) (t nil)))) (t (sratsimp (m+l ans)))))) ;;;If leadop isn't plus don't do anything. -- 2.11.4.GIT