From f8f8f2a0798306c146dfbc0abcdefa84c97695cf Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Tue, 22 Jun 2021 15:36:17 +0200 Subject: [PATCH] Fix SBCL byte copy for newer SBCL interface #3 Might switch to defering to sb-md5 version of code shipped with SBCL going forward, but this should fix the code base for now. --- md5.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/md5.lisp b/md5.lisp index 05ed5d9..c45fb1a 100755 --- a/md5.lisp +++ b/md5.lisp @@ -372,7 +372,7 @@ starting from `offset' into the given 16 word MD5 block." block (* vm:vector-data-offset vm:word-bits) (* 64 vm:byte-bits)) #+(and :sbcl :little-endian) - (sb-kernel:ub8-bash-copy buffer offset block 0 64) + (sb-kernel:%byte-blt buffer offset block 0 64) #-(or (and :sbcl :little-endian) (and :cmu :little-endian)) (loop for i of-type (integer 0 16) from 0 for j of-type (integer 0 #.most-positive-fixnum) @@ -397,8 +397,6 @@ starting from `offset' into the given 16 word MD5 block." buffer (+ (* vm:vector-data-offset vm:word-bits) (* offset vm:byte-bits)) block (* vm:vector-data-offset vm:word-bits) (* 64 vm:byte-bits)) - #+(and :sbcl :little-endian) - (sb-kernel:ub8-bash-copy buffer offset block 0 64) #-(or (and :sbcl :little-endian) (and :cmu :little-endian)) (loop for i of-type (integer 0 16) from 0 for j of-type (integer 0 #.most-positive-fixnum)