1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
;;;; -*- Mode: LISP; Syntax: Ansi-Common-Lisp; Base: 10; -*-
(in-package #:common-lisp-user)
(defpackage #:trivial-backtrace-system (:use #:asdf #:cl))
(in-package #:trivial-backtrace-system)
(defsystem trivial-backtrace
:version "1.1.0"
:author "Gary Warren King <gwking@metabang.com> and contributors"
:maintainer "Gary Warren King <gwking@metabang.com> and contributors"
:licence "MIT Style license "
:description "trivial-backtrace"
:depends-on ()
:components
((:static-file "COPYING")
(:module
"setup"
:pathname "dev/"
:components ((:file "packages")))
(:module
"dev"
:depends-on ("setup")
:components ((:file "utilities")
(:file "backtrace")
(:file "map-backtrace")
(:file "fallback" :depends-on ("backtrace" "map-backtrace")))))
:in-order-to ((test-op (load-op trivial-backtrace-test)))
:perform (test-op :after (op c)
(funcall
(intern (symbol-name '#:run-tests) :lift)
:config :generic)))
(defmethod operation-done-p
((o test-op)
(c (eql (find-system 'trivial-backtrace))))
(values nil))
|
