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 "sequence" :depends-on ("iterator"))
23 (:file "utils" :depends-on ("binary-trees"))
24 (:static-file "LICENSE")
25 (:static-file "README")
27 (:static-file "TODO")))
29 (defpackage :trees-tests
32 (defmethod perform ((op test-op) (c (eql (find-system :trees))))
33 (oos 'test-op 'trees-tests))
35 ;;; A tester's job is never done!
36 (defmethod operation-done-p ((op test-op) (c (eql (find-system :trees))))
39 (asdf:defsystem :trees-tests
42 :in-order-to ((test-op (load-op :trees-tests)))
43 :components ((:file "rt")
45 (:file "tree-test" :depends-on ("rt" "validate"))))
47 (defmethod operation-done-p ((op test-op)
48 (c (eql (find-system :trees-tests))))
51 (defmethod perform ((op test-op) (c (eql (find-system :trees-tests))))
52 (or (funcall (intern "DO-TESTS" (find-package "RTEST")))
53 (error "TEST-OP failed for TREES-TESTS")))