From 2b1558a6c770caf6f790fc86e0c84f5111eccc0b Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Wed, 20 Jan 1999 12:01:38 +0000 Subject: [PATCH] Declare random-chunk to be compiled with zero safety to avoid unnecessary type checks; based on a patch from Raymond Toy. --- code/rand-mt19937.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/rand-mt19937.lisp b/code/rand-mt19937.lisp index 5a59036fe..2248643ec 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.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 @@ ;;; #-x86 (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)) (k (aref state 2))) (declare (type (mod 628) k)) -- GitLab