From bf6c1a784dd589b5697efdedd7766bd9b83747a6 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 31 Aug 2004 22:19:51 +0000 Subject: [PATCH] r9948: fix for segv on sbcl --- debian/changelog | 6 ++++++ debian/compat | 1 + debian/control | 2 +- debian/rules | 2 -- md5.lisp | 2 +- 5 files changed, 9 insertions(+), 4 deletions(-) create mode 100644 debian/compat diff --git a/debian/changelog b/debian/changelog index fb7f3dc..0defa9a 100644 --- 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 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 index 0000000..b8626c4 --- /dev/null +++ b/debian/compat @@ -0,0 +1 @@ +4 diff --git a/debian/control b/debian/control index d851e5c..13ea53a 100644 --- a/debian/control +++ b/debian/control @@ -3,7 +3,7 @@ Section: devel Priority: optional Maintainer: Kevin M. Rosenberg 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 81a148d..72f0c71 100755 --- 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 dbdafb2..a7ce4a3 100644 --- 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+)) -- 2.34.1