From 3a4b2e57ab50d1f4fdb97f417e4eb9ee2c4614c4 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 10 Feb 1993 12:50:47 +0000 Subject: [PATCH] Suppress simple-vector bounds check in structure type test, since we already check for that. --- compiler/typetran.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp index 11e4ce5e1..2836634d6 100644 --- a/compiler/typetran.lisp +++ b/compiler/typetran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.14.1.3 1993/02/08 22:12:19 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.14.1.4 1993/02/10 12:50:47 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -390,8 +390,9 @@ `(if (eq ,n-layout ',layout) t (and (> (layout-inheritance-depth ,n-layout) ,idepth) - (eq (svref (layout-inherits ,n-layout) ,idepth) - ',layout))))))))) + (locally (declare (optimize (safety 0))) + (eq (svref (layout-inherits ,n-layout) ,idepth) + ',layout)))))))))) ;;; Source-Transform-Typep -- Internal -- GitLab