r9948: fix for segv on sbcl
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 31 Aug 2004 22:19:51 +0000 (22:19 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 31 Aug 2004 22:19:51 +0000 (22:19 +0000)
debian/changelog
debian/compat [new file with mode: 0644]
debian/control
debian/rules
md5.lisp

index fb7f3dc..0defa9a 100644 (file)
@@ -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
@@ -0,0 +1 @@
+4
index d851e5c..13ea53a 100644 (file)
@@ -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
index 81a148d..72f0c71 100755 (executable)
@@ -1,7 +1,5 @@
 #!/usr/bin/make -f
 
-export DH_COMPAT=4
-
 pkg    := md5
 debpkg  := cl-md5
 
index dbdafb2..a7ce4a3 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+))