contrib/sb-md5/sb-md5.asd

   1 ;;; -*-  Lisp -*-
   2
   3 (defpackage #:sb-md5-system
   4   (:use #:cl #:asdf))
   5
   6 (in-package #:sb-md5-system)
   7
   8 (defsystem sb-md5
   9   :depends-on (sb-rotate-byte)
  10   :version "1.8"
  11   #+sb-building-contrib :pathname
  12   #+sb-building-contrib #p"SYS:CONTRIB;SB-MD5;"
  13   :components ((:file "md5")))
  14
  15 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))
  16   (provide 'sb-md5))
  17
  18 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5))))
  19   (operate 'load-op 'sb-md5-tests)
  20   (operate 'test-op 'sb-md5-tests))
  21
  22 (defsystem sb-md5-tests
  23   :depends-on (sb-md5 sb-rt)
  24   :version "1.8"
  25   :components ((:file "md5-tests")))
  26
  27 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5-tests))))
  28   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  29       (error "test-op failed")))