From 0f05d24232969fa063ccc5086677e9ae7f877aba Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Fri, 12 Aug 2011 03:21:23 +0400 Subject: [PATCH] Declaim sb-di::valid-lisp-pointer-p inline. Making it inline prevents from creating a SAP, and thus reduces consing and improves performance. It's called a lot by map-allocated-objects when GCing is disabled, so consing less is a desirable property. Reported by `lisper' on #lisp --- src/code/debug-int.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 5059ce9..7569118 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -537,6 +537,7 @@ (sb!alien:define-alien-routine component-ptr-from-pc (system-area-pointer) (pc system-area-pointer)) +#!+gencgc (declaim (inline valid-lisp-pointer-p)) #!+gencgc (sb!alien:define-alien-routine valid-lisp-pointer-p sb!alien:int (pointer system-area-pointer)) -- 1.7.10.4