INIT-SELF-SEED: invalid index
phoe opened this issue · 0 comments
phoe commented
SBCL 2.2.9 on debian sid amd64, cl-isaac downloaded from current quicklisp dist.
CL-USER> (ql:quickload :cl-isaac)
To load "cl-isaac":
Load 1 ASDF system:
cl-isaac
; Loading "cl-isaac"
(:CL-ISAAC)
CL-USER> (isaac:init-self-seed :is64 t)
Invalid index 23781 for (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (256)), should be a non-negative integer below 256.
[Condition of type SB-INT:INVALID-ARRAY-INDEX-ERROR]
Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {10013E0143}>)
Backtrace:
0: (CL-ISAAC:GENERATE-NEXT-ISAAC64-BLOCK #S(CL-ISAAC:ISAAC64-CTX :RANDCNT 0 :RANDRSL #(3934848528393097412 3139001632129883341 14599601752695088836 3102163498744780811 8279641599517826203 175449285896896..
Locals:
CTX = #S(CL-ISAAC:ISAAC64-CTX ..)
I = 0
1: (CL-ISAAC:SCRAMBLE64 #S(CL-ISAAC:ISAAC64-CTX :RANDCNT 0 :RANDRSL #(3934848528393097412 3139001632129883341 14599601752695088836 3102163498744780811 8279641599517826203 17544928589689641459 ...) :RANDM..
Locals:
A = 2294595384479959264
B = 6784294260755478456
C = 9559064695926442999
CTX = #S(CL-ISAAC:ISAAC64-CTX ..)
D = 9657017499224466276
E = 16082990964643725320
F = 18313416023109256564
G = 5022560803070576583
H = 13024515163114616408
2: (CL-ISAAC:INIT-KERNEL-SEED :IS64 T)
Locals:
#:.DEFAULTING-TEMP. = T
CTX = #S(CL-ISAAC:ISAAC64-CTX ..)
IS64 = T
3: (CL-ISAAC:INIT-SELF-SEED :COUNT 1 :IS64 T)
Locals:
#:.DEFAULTING-TEMP. = 1
#:.DEFAULTING-TEMP.#1 = T
ARRAY#1 = #(0 0 0 0 0 0 ...)
COUNT = 1
CTX = #S(CL-ISAAC:ISAAC64-CTX :RANDCNT 0 :RANDRSL #(0 0 0 0 0 0 ...) :RANDMEM #(0 0 0 0 0 0 ...) :A 0 :B 0 :C 0)
I = 0
SB-INT:INDEX = 0
IS64 = T
J = 0
SB-C::Y = 1
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CL-ISAAC:INIT-SELF-SEED :IS64 T) #<NULL-LEXENV>)
5: (EVAL (CL-ISAAC:INIT-SELF-SEED :IS64 T))
--more--