void scan_postmortem_dump() { #if 0 lref_t oport = CURRENT_DEBUG_PORT(); for(frame_t *frame = CURRENT_TIB()->frame; frame != NULL; frame = frame->prev_frame) { scwritef(_T("\n*** FRAME=~cd: "), oport, frame); switch (frame->type) { case FRAME_EVAL: scwritef(_T("eval > ~s in ~s\n"), oport, *frame->as.eval.form, frame->as.eval.initial_form); break; case FRAME_ESCAPE: scwritef(_T("try > ~s\n"), oport, frame->as.escape.tag); break; case FRAME_UNWIND: scwritef(_T("unwind-protect >\n"), oport); break; case FRAME_SUBR: scwritef(_T("subr > ~s\n"), oport, frame->as.subr.subr); break; default: scwritef(_T("<< INVALID-FRAME-TYPE >>\n"), oport); break; } lflush_port(oport); } #endif }
lref_t ldebug_write(lref_t form) { debug_print_object(form, CURRENT_DEBUG_PORT(), true); return lnewline(CURRENT_DEBUG_PORT()); }