[Maxima-commits] CVS: maxima/src suprv1.lisp,1.69,1.70

[Robert D. <rob...@us...>]

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

Modified Files:
	suprv1.lisp 
Log Message:
Assign value to debugmode variable when debugmode function is called.
Resolves SF bug report [ 1941444 ] Inconsistent use of global $DEBUGMODE.

Index: suprv1.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/suprv1.lisp,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- suprv1.lisp	17 May 2008 16:19:07 -0000	1.69
+++ suprv1.lisp	22 Jun 2008 01:08:12 -0000	1.70
@@ -23,7 +23,7 @@
 
 (defmvar mopl nil)
 
-(declare-top  (special $lasttime $disptime
+(declare-top  (special $debugmode $lasttime $disptime
 		       bindlist loclist errset $labels linelable $filesize
 		       st rephrase $dispflag refchkl baktrcl
 		       dskfnp dsksavep *rset ^q lf tab ff cr
@@ -473,6 +473,7 @@
 	     (member rule l :test #'equal) op))))
 
 (defmfun $debugmode (x)
+  (setq $debugmode x)
   (debugmode1 nil x))
 
 (defun debugmode1 (assign-var y)