From 0fafceb12716bb297dc65f00067f9639abdfbf62 Mon Sep 17 00:00:00 2001 From: tailor Date: Sun, 14 Jan 2007 12:11:34 +0000 Subject: [PATCH] [lice @ add backtrace to debugger] --- debugger.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/debugger.lisp b/debugger.lisp index 378ff39..af195f4 100644 --- a/debugger.lisp +++ b/debugger.lisp @@ -19,7 +19,7 @@ (pop-to-buffer (get-buffer-create "*debugger*")) (erase-buffer) (set-major-mode debugger-mode) - (insert (format nil "Debugger~%~%~a~%~{~a~%~}" condition (compute-restarts))) + (insert (format nil "Debugger~%~a~%~%~a~%~{~a~%~}" (backtrace-as-string) condition (compute-restarts))) (recursive-edit) ;; if we exit the recursive edit we'll fall into the regular debugger. ) -- 2.11.4.GIT