;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://paracadd.com ;;; All rights reserved. ;;; (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 "\nDEBUGSETVAR: " 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