From c7461f9c53541862b0262c9164a81b37eac94ba0 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 6 May 2003 04:57:43 +0000
Subject: [PATCH] r4832: Auto commit for Debian build

---
 debian/changelog |  6 ++++++
 md5.asd          | 21 ++++++++-------------
 md5.lisp         |  9 +++++----
 3 files changed, 19 insertions(+), 17 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index c0df887..1dec0b3 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+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
diff --git a/md5.asd b/md5.asd
index cb4f82a..825e132 100644
--- a/md5.asd
+++ b/md5.asd
@@ -4,32 +4,27 @@
 ;;;;
 ;;;; 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")))
 
diff --git a/md5.lisp b/md5.lisp
index 941f188..0aac5f6 100644
--- a/md5.lisp
+++ b/md5.lisp
@@ -5,7 +5,7 @@
 ;;;; 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,
@@ -63,9 +63,10 @@
 
 ;;; 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,
-- 
2.34.1