|
From: <don...@is...> - 2010-11-03 18:18:29
|
Sam Steingold writes: > > > (loop for x in (mt:LIST-THREADS) do > > > (format t "-- ~a --~&" x) > > > (mt:thread-interrupt x :function > > > (lambda () (let ((*debug-io* *dbg*))(ext:show-stack 1 3))))) > > > where *dbg* is the value of *debug-io* in the debugging thread. > > This still doesn't work. > > How can I use one thread to see a stack trace for another one? > > show-stack prints to *standard-output* That was my original attempt. If I change debug-io above to standard-output I get the same thing. The thread where I do the loop shows the format for all threads but the backtrace only for itself. |