src/base.lisp @ af3a843d3c40

good job idiot
author Steve Losh <steve@stevelosh.com>
date Thu, 15 Feb 2018 00:10:16 -0500
parents 308e324d06da
children 630bc79afdfd
(in-package :flax.base)

(defun rand (bound)
  (pcg:pcg-random t bound))

(defmacro with-seed (seed &body body)
  `(let ((pcg::*global-generator* (pcg:make-pcg :seed ,seed))) ,@body))