From 7cd1aced88dcdefe7cd70ea56803f5ddbc23462b Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 21 Jun 2024 11:08:35 -0700
Subject: [PATCH] Add defvar for *scflag*

Instead of using `declare-top` for `*scflag*`, add a `defvar` for it.
---
 src/defint.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/defint.lisp b/src/defint.lisp
index 37a51b541..295a7cc4a 100644
--- a/src/defint.lisp
+++ b/src/defint.lisp
@@ -129,7 +129,6 @@
 		      *ul1* *ll1*
 		      *ul* *ll* exp
 		      nd*
-		      *scflag*
 		      *sin-cos-recur* *rad-poly-recur* *dintlog-recur*
 		      *dintexp-recur* *defint-assumptions*
 		      *current-assumptions*
@@ -174,6 +173,9 @@ in the interval of integration.")
 (defvar *bptu* nil)
 (defvar *bptd* nil)
 
+;; Set to true when OSCIP-VAR returns true in DINTEGRATE.
+(defvar *scflag* nil)
+
 (defmfun $defint (exp ivar *ll* *ul*)
 
   ;; Distribute $defint over equations, lists, and matrices.
-- 
2.11.4.GIT