+cl-md5 (1.8.1-1) unstable; urgency=low
+
+ * Improve .asd file
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 5 May 2003 22:56:32 -0600
+
cl-md5 (1.8-1) unstable; urgency=low
* New upstream
;;;;
;;;; Name: md5.asd
;;;; Purpose: ASDF definition file for Md5
-;;;; Programmer: Kevin M. Rosenberg
+;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Sep 2002
;;;;
-;;;; $Id: md5.asd,v 1.1 2003/04/29 10:00:43 kevin Exp $
+;;;; $Id: md5.asd,v 1.2 2003/05/06 04:56:48 kevin Exp $
;;;;
-;;;; This file, part of cl-md5, is Copyright (c) 2002 by Kevin M. Rosenberg
-;;;;
-;;;; cl-md5 users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the GNU Lesser General Public License
-;;;; (http://www.gnu.org/licenses/lgpl.html)
+;;;; This file can be freely copied and have been placed in the public domain.
;;;; *************************************************************************
-(in-package :asdf)
+(defpackage #:md5-system (:use #:asdf #:cl))
+
+(in-package :md5-system)
-(defsystem :md5
+(defsystem md5
:name "cl-md5"
:author "Pierre Mai"
- :version "1.1.4.2"
+ :version "1.8"
:maintainer "Kevin M. Rosenberg <kmr@debian.org>"
:licence "Public Domain"
:description "MD5 Message Digest function"
:long-description "This package contains functions to compute the MD5 sum on a stream or string."
- :perform (load-op :after (op md5)
- (pushnew :md5 cl:*features*))
-
:components
((:file "md5")))
;;;; cmucl-help mailing-list hosted at cons.org, in November 2001 and
;;;; has been placed into the public domain.
;;;;
-;;;; $Id: md5.lisp,v 1.3 2003/05/04 19:12:26 kevin Exp $
+;;;; $Id: md5.lisp,v 1.4 2003/05/06 04:57:43 kevin Exp $
;;;;
;;;; While the implementation should work on all conforming Common
;;;; Lisp implementations, it has only been optimized for CMU CL,
;;; Section 2: Basic Datatypes
-(deftype ub32 ()
- "Corresponds to the 32bit quantity word of the MD5 Spec"
- `(unsigned-byte 32))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (deftype ub32 ()
+ "Corresponds to the 32bit quantity word of the MD5 Spec"
+ `(unsigned-byte 32)))
(defmacro assemble-ub32 (a b c d)
"Assemble an ub32 value from the given (unsigned-byte 8) values,