1 (in-package #:trivial-backtrace
)
3 (eval-when (:compile-toplevel
:load-toplevel
:execute
)
4 (unless (fboundp 'map-backtrace
)
5 (defun map-backtrace (func)
6 (declare (ignore func
))))
8 (unless (fboundp 'print-backtrace-to-stream
)
9 (defun print-backtrace-to-stream (stream)
10 (format stream
"~&backtrace output unavailable.~%"))))