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