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