X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Fx86-64-vm.lisp;h=a3119339fd00fa10e9a7caedaee980ac60c53bd4;hb=7f4bf063d5f4716b87d34cc706f05b27ad3906b1;hp=d45b5969a5e63af2125d06c33b3ad1ff0bf3df75;hpb=4205c4d51cf98324917b1855b9085b21f923b09c;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/x86-64-vm.lisp b/contrib/sb-rotate-byte/x86-64-vm.lisp
index d45b596..a311933 100644
--- a/contrib/sb-rotate-byte/x86-64-vm.lisp
+++ b/contrib/sb-rotate-byte/x86-64-vm.lisp
@@ -59,7 +59,7 @@
     (move result integer)
     (if (> count 0)
         (inst rol result count)
-        (inst ror result count))))
+        (inst ror result (- count)))))
 
 (define-vop (%64bit-rotate-byte)
   (:policy :fast-safe)