1 (in-package #:common-lisp-user)
3 (defpackage #:trivial-backtrace-system (:use #:asdf #:cl))
4 (in-package #:trivial-backtrace-system)
6 (defsystem trivial-backtrace
8 :author "Gary Warren King <gwking@metabang.com> and contributors"
9 :maintainer "Gary Warren King <gwking@metabang.com> and contributors"
10 :licence "MIT Style license "
11 :description "trivial-backtrace"
14 ((:static-file "COPYING")
18 :components ((:file "packages")))
22 :components ((:file "utilities")
24 (:file "map-backtrace")
25 (:file "fallback" :depends-on ("backtrace" "map-backtrace")))))
26 :in-order-to ((test-op (load-op trivial-backtrace-test)))
27 :perform (test-op :after (op c)
29 (intern (symbol-name '#:run-tests) :lift)
32 (defmethod operation-done-p
34 (c (eql (find-system 'trivial-backtrace))))