r4832: Auto commit for Debian build
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 6 May 2003 04:57:43 +0000 (04:57 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 6 May 2003 04:57:43 +0000 (04:57 +0000)
debian/changelog
md5.asd
md5.lisp

index c0df887..1dec0b3 100644 (file)
@@ -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 (file)
--- 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")))
 
index 941f188..0aac5f6 100644 (file)
--- 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,
 
 ;;; 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,