Skip to content
Snippets Groups Projects
Commit 69755f55 authored by dtc's avatar dtc
Browse files

Support for rand-mt19937.

parent d947becd
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.38 1997/11/04 16:31:33 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.39 1997/12/12 15:28:20 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -105,7 +105,9 @@
,@(when (c:backend-featurep :gencgc)
'("target:code/scavhook"))
"target:code/rand"
,@(if (c:backend-featurep :random-mt19937)
'("target:code/rand-mt19937")
'("target:code/rand"))
"target:code/save"
"target:code/alieneval"
"target:code/c-call"
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.75 1997/11/04 16:31:32 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.76 1997/12/12 15:28:19 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -231,7 +231,9 @@
(comf "target:code/debug" :byte-compile t)
(comf "target:code/query" :byte-compile *byte-compile*)
(comf "target:code/rand")
(if (c:backend-featurep :random-mt19937)
(comf "target:code/rand-mt19937")
(comf "target:code/rand"))
(comf "target:code/ntrace" :byte-compile *byte-compile*)
(comf "target:code/profile")
(comf "target:code/sort")
......
......@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.85 1997/11/27 02:09:21 dtc Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.86 1997/12/12 15:28:21 dtc Exp $
;;;
;;; **********************************************************************
;;;
......@@ -96,7 +96,8 @@
(maybe-byte-load "code:time")
(maybe-byte-load "code:tty-inspect")
(maybe-byte-load "code:describe")
(maybe-byte-load "code:rand")
#+random-mt19937 (maybe-byte-load "code:rand-mt19937")
#-random-mt19937 (maybe-byte-load "code:rand")
(maybe-byte-load "code:ntrace")
#-runtime (maybe-byte-load "code:profile")
(maybe-byte-load "code:weak")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment