diff options
| -rw-r--r-- | init-el.org | 10 |
1 files 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)))))))) |