(defparameter *test* :hello)

(declaim (optimize (debug 3)))

(defun custom-print-backtrace (stream)
  (let ((sb-debug:*debug-print-variable-alist*
          (if nil
              (list* '(*print-level* . nil)
		             '(*print-length* . nil)
		             sb-debug:*debug-print-variable-alist*)
              nil)))
    (sb-debug:print-backtrace :count most-positive-fixnum :stream stream)))

(defun g ()
  (custom-print-backtrace t))

(defun g3 ()
  (g))

(defun g2 ()
  (let ((*test* :hi))
    (g3)))

(defun g1 ()
  (g2))

(defun e ()
  (error "Hello"))

(defun e1 ()
  (e))

(defun e2 ()
  (e1))

(defun e3 ()
  (e2))

(defun f ()
  (handler-case (e1)
    (error () (g1))))