contrib/sb-md5/sb-md5.asd

   1 ;;;; MD5 --- RFC 1321 The MD5 Message-Digest Algorithm
   2
   3 (defpackage #:sb-md5-system
   4   (:use #:cl #:asdf))
   5 (in-package #:sb-md5-system)
   6
   7 ;;;; %File Description:
   8 ;;;;
   9 ;;;; This file contains the system definition form for the MD5
  10 ;;;; Library.  System definitions use the ASDF system definition
  11 ;;;; facility.
  12 ;;;;
  13
  14 (defsystem sb-md5
  15   :description "The MD5 Message-Digest Algorithm RFC 1321"
  16   :author "Pierre R. Mai <pmai@pmsf.de>"
  17   :maintainer "Pierre R. Mai <pmai@pmsf.de>"
  18   :licence "CC0"
  19   :version "2.0.4"
  20   :depends-on (#+sbcl "sb-rotate-byte"
  21                #-(or :cmu :sbcl
  22                      (and :lispworks (not :lispworks4))
  23                      :ccl :allegro)
  24                "flexi-streams")
  25   #+sb-building-contrib :pathname
  26   #+sb-building-contrib #p"SYS:CONTRIB;SB-MD5;"
  27   :components ((:file "md5")))
  28
  29 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-md5))))
  30   (provide 'sb-md5))
  31
  32 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5))))
  33   (operate 'load-op 'sb-md5-tests)
  34   (operate 'test-op 'sb-md5-tests))
  35
  36 (defsystem sb-md5-tests
  37   :depends-on (sb-md5 sb-rt)
  38   :version "2.0.4"
  39   :components ((:file "md5-tests")))
  40
  41 (defmethod perform ((o test-op) (c (eql (find-system :sb-md5-tests))))
  42   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  43       (error "test-op failed")))