From f7cb9dbccee87307cf67f8ef536fc9e3aaf1a43e Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Thu, 6 Mar 2003 09:31:06 +0000
Subject: [PATCH] Add a symbol instead of a closure to
 ext:*after-save-initializations*. This is to avoid ending up with the same
 initializer present twice, and also to give the initializer a clearer
 print-name.

---
 code/rand-mt19937.lisp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp
index 1c54036ed..460914509 100644
--- a/code/rand-mt19937.lisp
+++ b/code/rand-mt19937.lisp
@@ -6,7 +6,7 @@
 ;;; placed in the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.10 2003/02/11 13:52:46 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.11 2003/03/06 09:31:06 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -207,10 +207,11 @@
 	   (make-random-object :state (init-random-state (generate-seed))))
 	  (t (error "Argument is not a RANDOM-STATE, T or NIL: ~S" state)))))
 
-(pushnew #'(lambda ()
-	     (init-random-state (generate-seed)
-				(random-state-state *random-state*)))
-	 ext:*after-save-initializations*)
+(defun rand-mt19937-initializer ()
+  (init-random-state (generate-seed)
+                     (random-state-state *random-state*)))
+
+(pushnew 'rand-mt19937-initializer ext:*after-save-initializations*)
 
 
 ;;;; Random entries:
-- 
GitLab