Backtrace из condition'а

;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil; external-format: utf-8; -*-

(in-package #:cl-user)

(declaim (optimize safety debug (speed 0)))
(declaim (notinline my-fun0 my-fun1 my-fun2))

(defun my-fun0 ()
  (error "fuckup"))

(defun my-fun1 ()
  (my-fun0))

(defun my-fun2 ()
  (my-fun1))

(defun test-my-fun ()
  (handler-bind ((error
                   #'(lambda (condition)
                       (trivial-backtrace:print-backtrace condition))))
    (my-fun2)))

fuckup
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {C4CC5D9}>)

Backtrace:
  0: (MY-FUN0)
  1: (MY-FUN1)
  2: (MY-FUN2)
  3: (TEST-MY-FUN)
  4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (TEST-MY-FUN) #<NULL-LEXENV>)
  5: (EVAL (TEST-MY-FUN))
 --more--

; SBCL:
;
; 4: ((FLET #:LAMBDA11 :IN TEST-MY-FUN) #<SIMPLE-ERROR "fuckup" {AC5FC91}>)
; 5: (SIGNAL #<SIMPLE-ERROR "fuckup" {AC5FC91}>)
; 6: (ERROR "fuckup")
; 7: (MY-FUN0)
; 8: (MY-FUN1)
; 9: (MY-FUN2)
; 10: (TEST-MY-FUN)
; 11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (TEST-MY-FUN) #<NULL-LEXENV>)
; 
; 
; LispWorks:
; 
; Call to ERROR {offset 67}
;   SYSTEM::ESTRING : "fuckup"
;   SYSTEM::EARGS   : NIL
; 
; Call to MY-FUN0 {offset 34}
; 
; Call to MY-FUN1 {offset 29}
; 
; Call to MY-FUN2 {offset 29}
; 
; Call to TEST-MY-FUN {offset 180}
;   DBG::G                                    : #<Function 1 subfunction of TEST-MY-FUN  200BCDD2>
;   CONDITIONS::*HANDLER-CLUSTERS*  {Special} : (((ERROR . #<Function 1 subfunction of TEST-MY-FUN 200BCDD2>)) ((T . #<Closure 2 subfunction of SWANK:EVAL-FOR-EMACS 1CEFEA8A>)) ((SWANK::SWANK-ERROR . #<Function 3 subfunction of SWANK::HANDLE-REQUESTS 2237BF52>)) ((SWANK::SWANK-ERROR . #<Closure 2 subfunction of SWANK::HANDLE-REQUESTS 1CEFEDEA>)))