3 (defcfun (random-set-seed "g_random_set_seed") :void
6 (export 'random-set-seed)
8 (defcfun (random-int "g_random_int") :uint32)
12 (defcfun (random-int-range "g_random_int_range") :int32
16 (export 'random-int-range)
18 (defun random-boolean ()
19 (logtest (random-int) #X8000))
21 (export 'random-boolean)
23 (defcfun (random-double "g_random_double") :double)
25 (export 'random-double)
27 (defcfun (random-double-range "g_random_double_range") :double
31 (export 'random-double-range)