From: Pascal J.B. <pj...@in...> - 2003-09-10 23:00:29
|
Sam Steingold writes: > >* Pascal J.Bourguignon <cwo@vasbezngvzntb.pbz> [2003-09-10 22:37:40 +0= 200]: > > > > In situations where there's no interactive channel to a clisp, how > > could I direct the debugger to issue a backtrace automatically? > >=20 > almost. see `break-loop' in src/reploop.lisp: >=20 > [1]> (setq *debugger-hook* > (lambda (condition last-hook) > (format t "~&ERROR: ~A" condition) > (let* ((sys::*frame-limit1* (sys::frame-limit1 13)) > (sys::*frame-limit2* (sys::frame-limit2)) > (sys::*debug-mode* 1) > (sys::*debug-frame* > (sys::frame-down-1 (sys::frame-up-1 sys::*frame-limit1* > sys::*debug-mode*) > sys::*debug-mode*))) > (system::debug-backtrace)))) Thank you, --=20 __Pascal_Bourguignon__ http://www.informatimago.com/ Do not adjust your mind, there is a fault in reality. |