Loading src/code/rand-xoroshiro.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -491,8 +491,8 @@ (t (error 'simple-type-error :expected-type '(or (integer 1) (float (0.0))) :datum arg :format-control _"Argument is not a positive integer or a positive float: ~S") :format-arguments (list arg)))) :format-control _"Argument is not a positive integer or a positive float: ~S" :format-arguments (list arg))))) ;; Jump function for the generator. See the jump function in ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c Loading Loading
src/code/rand-xoroshiro.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -491,8 +491,8 @@ (t (error 'simple-type-error :expected-type '(or (integer 1) (float (0.0))) :datum arg :format-control _"Argument is not a positive integer or a positive float: ~S") :format-arguments (list arg)))) :format-control _"Argument is not a positive integer or a positive float: ~S" :format-arguments (list arg))))) ;; Jump function for the generator. See the jump function in ;; http://xoroshiro.di.unimi.it/xoroshiro128plus.c Loading