From 9ab933644cc6bec18c0cf3ec6de3c323c2494578 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 13 Aug 2023 13:03:12 -0700 Subject: moo --- init-el.org | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/init-el.org b/init-el.org index dea1143..c5152d0 100644 --- a/init-el.org +++ b/init-el.org @@ -1454,11 +1454,11 @@ from debian contrib :finally (cl:let* ((rs (cl:make-random-state)) (state (sb-kernel::random-state-state rs))) - (cl:dotimes (idx (cl:length state)) - (cl:setf (cl:elt state idx) - (cl:mod (cl:+ (cl:get-universal-time) - (cl:elt state idx)) - #xff))) + (cl:loop :for idx :from 3 :below (cl:length state) :do + (cl:setf (cl:elt state idx) + (cl:mod (cl:+ (cl:get-universal-time) + (cl:elt state idx)) + #xffffffff))) (cl:return (cl:elt names (cl:random size rs)))))))) -- cgit v1.2.3