tvl-depot/third_party/lisp/trivial-backtrace/dev/fallback.lisp

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

11 lines
343 B
Common Lisp
Raw Normal View History

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