From: Kevin M. Rosenberg Date: Tue, 31 Aug 2004 22:19:51 +0000 (+0000) Subject: r9948: fix for segv on sbcl X-Git-Tag: v1.8.5~3 X-Git-Url: http://git.kpe.io/?p=md5.git;a=commitdiff_plain;h=bf6c1a784dd589b5697efdedd7766bd9b83747a6 r9948: fix for segv on sbcl --- 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+))