contrib/sb-cltl2/sb-cltl2.asd

   1 (defpackage #:sb-cltl2-system (:use #:asdf #:cl))
   2 (in-package #:sb-cltl2-system)
   3
   4 (defsystem sb-cltl2
   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"))))
  10
  11 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-cltl2))))
  12   (provide 'sb-cltl2))
  13
  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))
  17
  18 (defsystem sb-cltl2-tests
  19     :depends-on (sb-rt)
  20     :components ((:file "tests")))
  21
  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")))