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   :components ((:file "md5")))
  12
  13 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))
  14   (provide 'sb-md5))
  15
  16 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5))))
  17   (operate 'load-op 'sb-md5-tests)
  18   (operate 'test-op 'sb-md5-tests))
  19
  20 (defsystem sb-md5-tests
  21   :depends-on (sb-md5 sb-rt)
  22   :version "1.8"
  23   :components ((:file "md5-tests")))
  24
  25 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5-tests))))
  26   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  27       (error "test-op failed")))
  28