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 #p"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")))