diff options
| author | colin <colin@cicadas.surf> | 2023-08-13 13:03:12 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-08-13 13:03:12 -0700 |
| commit | 9ab933644cc6bec18c0cf3ec6de3c323c2494578 (patch) | |
| tree | 0de9c2a259ffaf4311336f4f018a964beb59b8b6 | |
| parent | acd71e2ebde2dac70a19646990a90a651ee0cc18 (diff) | |
moo
| -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)))))))) |