r9948: fix for segv on sbcl

diff --git a/debian/changelog b/debian/changelog
index fb7f3dc07bd1eb9798686e70eef8bd3518bf4e58..0defa9a010ca32045d2f6acdb72b3837c69314c1 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-md5 (1.8.4-1) unstable; urgency=medium
+
+  * Patch from Andreas Fuchs on sbcl-devel which fixes segfault on sbcl
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 31 Aug 2004 16:17:58 -0600
+
 cl-md5 (1.8.3-1) unstable; urgency=low
 
   * Patch from pmai sent by Matthew Kennedy

diff --git a/debian/compat b/debian/compat
new file mode 100644 (file)
index 0000000..b8626c4
--- /dev/null
+++ b/debian/compat
@@ -0,0 +1 @@
+4

diff --git a/debian/control b/debian/control
index d851e5ce30f533920a3229801072273cfdddddde..13ea53ae25476def1a7cc2d602ab33ee20ab0244 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -3,7 +3,7 @@ Section: devel
 Priority: optional
 Maintainer: Kevin M. Rosenberg <kmr@debian.org>
 Build-Depends-Indep: debhelper (>= 4.0.0)
-Standards-Version: 3.5.9.0
+Standards-Version: 3.6.1.1
 
 Package: cl-md5
 Architecture: all

diff --git a/debian/rules b/debian/rules
index 81a148d90893c7ff5e0956ca8c318cd17772f43b..72f0c710168dbe98c5870a19d5611178e6059403 100755 (executable)
--- a/debian/rules
+++ b/debian/rules
@@ -1,7 +1,5 @@
 #!/usr/bin/make -f
 
-export DH_COMPAT=4
-
 pkg    := md5
 debpkg  := cl-md5
 

diff --git a/md5.lisp b/md5.lisp
index dbdafb21c2f34cf303c42da04077a299dec376ce..a7ce4a3c25224a379d1b3e1d55334c73d31f7a2f 100644 (file)
--- a/md5.lisp
+++ b/md5.lisp
@@ -110,7 +110,7 @@ where a is the intended low-order byte and d the high-order byte."
   #+cmu
   (kernel:32bit-logical-xor y (kernel:32bit-logical-orc2 x z))
   #-cmu
-  (logxor y (logorc2 x z)))
+  (ldb (byte 32 0) (logxor y (logorc2 x z))))
 
 (declaim (inline mod32+)
         (ftype (function (ub32 ub32) ub32) mod32+))