8ac3147a3182

--- 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))