contrib/sb-aclrepl/sb-aclrepl.asd

   1 ;;; -*-  Lisp -*-
   2
   3 (defpackage #:sb-aclrepl-system (:use #:asdf #:cl))
   4 (in-package #:sb-aclrepl-system)
   5
   6 (defsystem sb-aclrepl
   7     :author "Kevin Rosenberg <kevin@rosenberg.net>"
   8     :description "An AllegroCL compatible REPL"
   9     #+sb-building-contrib :pathname
  10     #+sb-building-contrib #p"SYS:CONTRIB;SB-ACLREPL;"
  11     :components ((:file "toplevel")
  12                  (:file "repl" :depends-on ("toplevel"))
  13                  (:file "inspect" :depends-on ("repl"))
  14                  (:file "debug" :depends-on ("repl"))))
  15
  16 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-aclrepl))))
  17   (provide 'sb-aclrepl))
  18
  19 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
  20   (oos 'load-op 'sb-aclrepl-tests)
  21   (oos 'test-op 'sb-aclrepl-tests))
  22
  23 (defsystem sb-aclrepl-tests
  24     :depends-on (sb-rt)
  25     :components ((:file "tests")))
  26
  27 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl-tests))))
  28   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  29       (error "test-op failed")))