(DEFUN c:show_debug () (PROGN (FOREACH n (ATOMS-FAMILY 1) (IF (WCMATCH n "DEBUG_*") (PROGN (PRINC "\n") (PRINC n) (PRINC)) ) ;_ end of if ) ;_ end of foreach (PRINC) ) ;_ end of progn ) ;_ end of defun (DEFUN c:kill_debug () (PROGN (FOREACH n (ATOMS-FAMILY 1) (IF (WCMATCH n "DEBUG_*") (PROGN (SET (READ n) NIL) ) ) ;_ end of if ) ;_ end of foreach (PRINC) ) ;_ end of progn ) ;_ end of defun ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 2 nil nil T T) ;*** DO NOT add text below the comment! ***|;