contrib/sb-cover/sb-cover.asd

   1 ;;; -*-  Lisp -*-
   2
   3 (defsystem sb-cover
   4     #+sb-building-contrib :pathname
   5     #+sb-building-contrib "SYS:CONTRIB;SB-COVER;"
   6     :components ((:file "cover")))
   7
   8 (defsystem sb-cover-tests
   9     :components ((:file "tests")))
  10
  11 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-cover))))
  12   (provide 'sb-cover))
  13
  14 (defmethod perform ((o test-op) (c (eql (find-system :sb-cover))))
  15   (operate 'load-op 'sb-cover-tests)
  16   (operate 'test-op 'sb-cover-tests))