[Sbcl-help] Access to backtraces

[Edi W. <ed...@ag...>]

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?

Thanks,
Edi.


[1] <http://weitz.de/tbnl/>