3 (defpackage #:sb-md5-system
6 (in-package #:sb-md5-system)
9 :depends-on (sb-rotate-byte)
11 :components ((:file "md5")))
13 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))
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))
20 (defsystem sb-md5-tests
21 :depends-on (sb-md5 sb-rt)
23 :components ((:file "md5-tests")))
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")))