3 (defpackage #:sb-md5-system
6 (in-package #:sb-md5-system)
9 :depends-on (sb-rotate-byte)
11 #+sb-building-contrib :pathname
12 #+sb-building-contrib "SYS:CONTRIB;SB-MD5;"
13 :components ((:file "md5")))
15 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))
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))
22 (defsystem sb-md5-tests
23 :depends-on (sb-md5 sb-rt)
25 :components ((:file "md5-tests")))
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")))