Commit 44fcc4af authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #142: (random 0) signals incorrect error

parent 70e6cf5b
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -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