1.0.2.5:
[sbcl.git] / contrib / sb-cltl2 / sb-cltl2.asd
1 ;;; -*-  Lisp -*-
2
3 (defpackage #:sb-cltl2-system (:use #:asdf #:cl))
4 (in-package #:sb-cltl2-system)
5
6 (defsystem sb-cltl2
7     :description "Functionality mentioned in CLtL2 but not present in ANSI."
8     #+sb-building-contrib :pathname
9     #+sb-building-contrib "SYS:CONTRIB;SB-CLTL2;"
10     :components ((:file "defpackage")
11                  (:file "compiler-let" :depends-on ("defpackage"))
12                  (:file "macroexpand" :depends-on ("defpackage"))
13                  (:file "env" :depends-on ("defpackage"))))
14
15 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-cltl2))))
16   (provide 'sb-cltl2))
17
18 (defmethod perform ((o test-op) (c (eql (find-system :sb-cltl2))))
19   (oos 'load-op 'sb-cltl2-tests)
20   (oos 'test-op 'sb-cltl2-tests))
21
22 (defsystem sb-cltl2-tests
23     :depends-on (sb-rt)
24     :components ((:file "tests")))
25
26 (defmethod perform ((o test-op) (c (eql (find-system :sb-cltl2-tests))))
27   (or (funcall (find-symbol "DO-TESTS" "SB-RT"))
28       (error "test-op failed")))