From 96fd3ff48f800b3902c14d34f100a3204bc61e66 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 15/39] silence warning in FISHER-YATES-SHUFFLE --- src/lisp/utils.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lisp/utils.lisp b/src/lisp/utils.lisp index a887ab5..7c44631 100755 --- a/src/lisp/utils.lisp +++ b/src/lisp/utils.lisp @@ -17,8 +17,8 @@ ;; Need to play with this function ;; to determine performance (defun fisher-yates-shuffle (lst) - (let ((i (length lst)) (j 0)) - (loop for i from (1- (length lst)) downto 1 do + (let ((length (length lst)) (j 0)) + (loop for i from (1- length) downto 1 do (setf j (random (1+ i))) (psetf (nth i lst) (nth j lst) (nth i lst) (nth j lst))))) -- 1.6.2