src/dbgtool.c
/************************************************************************/
/*									*/
/*				b t v v					*/
/*									*/
/*	Print all stack frames, with variables.  Equivalent to the	*/
/*	Lisp DEBUGGER's BTV! command.					*/
/*									*/
/*									*/
/*									*/
/************************************************************************/
b t v v

Print all stack frames, with variables.  Equivalent to the
Lisp DEBUGGER's BTV. command.
b t v v Print all stack frames with variables . Equivalent to the Lisp DEBUGGER ' s BTV . command .
void btvv(void) {
  struct frameex1 *fx_addr68k;
  LispPTR atomindex;
  FX *get_nextFX(FX * fx);
  fx_addr68k = CURRENTFX;
  atomindex = get_framename(fx_addr68k);
  while ((atomindex != ATOM_T) && (fx_addr68k->alink != 11)) {
    sf(fx_addr68k);
    fx_addr68k = get_nextFX(fx_addr68k);
    atomindex = get_framename(fx_addr68k);
  }
  sf(fx_addr68k);
  printf("\n BTV! end ********\n");
}
void btvv ( void ) { struct frameex1 * fx_addr68k ; LispPTR atomindex ; FX * get_nextFX ( FX * fx ) ; fx_addr68k = CURRENTFX ; atomindex = get_framename ( fx_addr68k ) ; while ( ( atomindex != ATOM_T ) && ( fx_addr68k -> alink != 11 ) ) { sf ( fx_addr68k ) ; fx_addr68k = get_nextFX ( fx_addr68k ) ; atomindex = get_framename ( fx_addr68k ) ; } sf ( fx_addr68k ) ; printf ( " \n \n " ) ; }
b t v v
b t v v