From 04cfa2a95b8eb8fb9f2d9e40532890ac6f7a2e8b Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Fri, 28 Mar 2014 12:23:25 +0100 Subject: Pacify byte compiler. --- chess-polyglot.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'chess-polyglot.el') diff --git a/chess-polyglot.el b/chess-polyglot.el index a9a0551..ceb0050 100644 --- a/chess-polyglot.el +++ b/chess-polyglot.el @@ -48,7 +48,7 @@ (defsubst chess-polyglot-read-octets (n) "Read N octets from the current buffer." (let ((val 0)) - (dotimes (i n (progn (cl-assert (<= val most-positive-fixnum)) val)) + (dotimes (_ n (progn (cl-assert (<= val most-positive-fixnum)) val)) (setq val (logior (lsh val 8) (progn (forward-char 1) (preceding-char))))))) @@ -63,7 +63,7 @@ A `cons' with the most significant 32 bits in `car' and the least significant The result is a list of the form (FROM-INDEX TO-INDEX PROMOTION WEIGHT)." (let ((mask (chess-polyglot-read-octets 2))) (pcase (let (r) - (dotimes (i 5 r) + (dotimes (_ 5 r) (push (logand mask 7) r) (setq mask (ash mask -3)))) (`(,promotion ,from-rank ,from-file ,to-rank ,to-file) -- cgit v1.2.3