0.9.11.31: misc win32 improvements
[sbcl.git] / 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 "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")))
30