;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 06-03-2005
;;;
(DEFUN c:debugsetvar ()
  (IF old_setvar
    (SETQ SETVAR     old_setvar
          old_setvar nil
    ) ;_ end of setq
    (PROGN
      (SETQ old_setvar SETVAR)
      (DEFUN SETVAR
                    (fun_name fun_val /)
        (IF (EQ (STRCASE (EVAL fun_name)) "DIMSCALE")
          nil
          (PROGN
            (PRINC fun_name)
            (COMMAND ".setvar" fun_name fun_val)
            (PRINC (STRCAT "\n" fun_name " set to "))
            (PRINC fun_val)
            (PRINC "\n")
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of defun
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun