Skip to content
Snippets Groups Projects
Commit 2b1558a6 authored by dtc's avatar dtc
Browse files

Declare random-chunk to be compiled with zero safety to avoid

unnecessary type checks; based on a patch from Raymond Toy.
parent 9a8c3dba
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; placed in the Public domain, and is provided 'as is'. ;;; placed in the Public domain, and is provided 'as is'.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.7 1998/12/19 16:10:35 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/rand-mt19937.lisp,v 1.8 1999/01/20 12:01:38 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -142,7 +142,8 @@ ...@@ -142,7 +142,8 @@
;;; ;;;
#-x86 #-x86
(defun random-chunk (state) (defun random-chunk (state)
(declare (type random-state state)) (declare (type random-state state)
(optimize (speed 3) (safety 0)))
(let* ((state (random-state-state state)) (let* ((state (random-state-state state))
(k (aref state 2))) (k (aref state 2)))
(declare (type (mod 628) k)) (declare (type (mod 628) k))
......
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