4 lines
113 B
Common Lisp
4 lines
113 B
Common Lisp
|
(defun random-int32 ()
|
||
|
|
(with-open-file (s "/dev/random" :element-type '(unsigned-byte 32))
|
||
|
|
(read-byte s)))
|