[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory cl-net:/tmp/cvs-serv17073

Modified Files:
	environment.lisp 
Log Message:
Add *random-state* and gf documentation.


--- /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp	2008/04/27 19:40:25	1.18
+++ /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp	2009/07/19 18:57:48	1.19
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Oct 20 00:41:57 2001
 ;;;;                
-;;;; $Id: environment.lisp,v 1.18 2008/04/27 19:40:25 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.19 2009/07/19 18:57:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -189,4 +189,7 @@
 
 (defstruct random-state state)
 
+(defvar *random-state* #s(random-state :state 0))
 
+(defmethod documentation (x doc-type)
+  nil)