8ac3147a3182
Rename global generator
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Sun, 11 Feb 2018 13:34:32 -0500 |
parents | 9e2c59c4c13d |
children | 7e8b0e494c82 |
branches/tags | (none) |
files | src/pcg.lisp |
Changes
--- a/src/pcg.lisp Mon Jan 15 15:50:53 2018 -0500 +++ b/src/pcg.lisp Sun Feb 11 13:34:32 2018 -0500 @@ -268,14 +268,14 @@ (make-pcg% (resolve-seed seed) stream-id)) -(defparameter *global-pcg* (make-pcg)) +(defparameter *global-generator* (make-pcg)) (deftype pcg-designator () '(or (eql t) pcg)) (defun-inline resolve-pcg (pcg-designator) (if (eq t pcg-designator) - *global-pcg* + *global-generator* pcg-designator))