From 5ba61168c5e0ee518580d555dfc7fd64f9ff8a23 Mon Sep 17 00:00:00 2001 From: Lutz Euler Date: Tue, 30 Aug 2011 18:40:10 -0400 Subject: [PATCH] Small cleanup to DEFINE-BYTE-BASHERS Remove an unneeded SETF of the result of an INCF in a copy loop. At least on x86[-64] this shortens the generated code in the byte basher functions by removing a redundant move instruction. --- src/code/bit-bash.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp index bd25d4b..17d0e1e 100644 --- a/src/code/bit-bash.lisp +++ b/src/code/bit-bash.lisp @@ -429,7 +429,7 @@ (flet ((get-next-src () (setf prev next) (setf next (funcall src-ref-fn src - (setf src-word-offset (incf src-word-offset)))))) + (incf src-word-offset))))) (declare (inline get-next-src)) ,@(unless (= bytes-per-word 1) `((unless (zerop dst-byte-offset) -- 1.7.10.4