3 (cl:defpackage #:trees-system
5 (cl:in-package #:trees-system)
9 :author "Nathan Froyd <froydnj@gmail.com>"
10 :maintainer "Nathan Froyd <froydnj@gmail.com>"
11 :description "A library for binary trees in normal and balanced flavors"
13 :components ((:file "package")
14 (:file "generics" :depends-on ("package"))
15 (:file "types" :depends-on ("package"))
16 (:file "print" :depends-on ("generics" "types"))
17 (:file "binary-trees" :depends-on ("generics" "types"))
18 (:file "red-black-trees" :depends-on ("types" "binary-trees"))
19 (:file "avl-trees" :depends-on ("types" "binary-trees"))
20 (:file "aa-trees" :depends-on ("types" "binary-trees"))
21 (:file "iterator" :depends-on ("types" "binary-trees"))
22 (:file "utils" :depends-on ("binary-trees"))
23 (:static-file "LICENSE")
24 (:static-file "README")
26 (:static-file "TODO")))
28 (defpackage :trees-tests
31 (defmethod perform ((op test-op) (c (eql (find-system :trees))))
32 (oos 'test-op 'trees-tests))
34 ;;; A tester's job is never done!
35 (defmethod operation-done-p ((op test-op) (c (eql (find-system :trees))))
38 (asdf:defsystem :trees-tests
41 :in-order-to ((test-op (load-op :trees-tests)))
42 :components ((:file "rt")
44 (:file "tree-test" :depends-on ("rt" "validate"))))
46 (defmethod operation-done-p ((op test-op)
47 (c (eql (find-system :trees-tests))))
50 (defmethod perform ((op test-op) (c (eql (find-system :trees-tests))))
51 (or (funcall (intern "DO-TESTS" (find-package "RTEST")))
52 (error "TEST-OP failed for TREES-TESTS")))