1 (defpackage #:sb-cltl2-system (:use #:asdf #:cl))
2 (in-package #:sb-cltl2-system)
5 :description "Some functionality, mentioned in CLtL2, but not present in ANSI."
6 :components ((:file "defpackage")
7 (:file "compiler-let" :depends-on ("defpackage"))
8 (:file "macroexpand" :depends-on ("defpackage"))
9 (:file "env" :depends-on ("defpackage"))))
11 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-cltl2))))
14 (defmethod perform ((o test-op) (c (eql (find-system :sb-cltl2))))
15 (oos 'load-op 'sb-cltl2-tests)
16 (oos 'test-op 'sb-cltl2-tests))
18 (defsystem sb-cltl2-tests
20 :components ((:file "tests")))
22 (defmethod perform ((o test-op) (c (eql (find-system :sb-cltl2-tests))))
23 (or (funcall (find-symbol "DO-TESTS" "SB-RT"))
24 (error "test-op failed")))