From 1d7ef44ed152ae3eb4a2fbcb4e3c6e12355d33c7 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 7 May 2010 23:52:53 +0200 Subject: [PATCH] Optimize some internal functions with zero safety. --- src/lsp/predlib.lsp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index f30b6c081..e541065b4 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -740,6 +740,7 @@ if not possible." ;; (defun find-type-bounds (type in-our-family-p type-<= minimize-super) (declare (si::c-local) + (optimize (safety 0)) (function in-our-family-p type-<=)) (let* ((subtype-tag 0) (disjoint-tag 0) @@ -772,6 +773,7 @@ if not possible." ;; (defun register-type (type in-our-family-p type-<=) (declare (si::c-local) + (optimize (safety 0)) (function in-our-family-p type-<=)) (or (find-registered-tag type) (multiple-value-bind (tag-super tag-sub)