Re: Access to backtraces

On Tue, 9 Nov 2004, Edi Weitz wrote:

> I have the following code in TBNL[1] which is used to print backtraces
> to the logfile and/or send them to the browser.
>
>  #+:sbcl
>  (defun get-backtrace (error)
>    (declare (ignore error))
>    (with-output-to-string (s)
>      (let ((sb-debug:*debug-print-level* nil)
>            (sb-debug:*debug-print-length* nil))
>        (sb-debug:backtrace most-positive-fixnum s))))
>
> Friedrich Dominicus told me that this won't work with newer SBCL
> versions. How do I change it to make it work again and how do I
> conditionalize it to do the right thing depending on the SBCL version?

In newer SBCL versions sb-debug:*debug-print-foo* variables have been 
replaced with sb-ext:*debug-print-variable-alist* -- you can check for 
existence of that symbol with FIND-SYMBOL and act accordingly, eg:

  (let ((*debug-print-variable-alist*
         (list* '(*print-level* . nil) '(*print-length* . nil)
                *debug-print-variable-alist*)))
       ...)

However, you might be better served by sb-debug:backtrace-as-list and
something like

  (defun print-backtrace (stream &optional (from 'print-backtrace))