From: Stas Boukarev <stassats@gmail.com>
Date: Thu, 11 Aug 2011 23:21:23 +0000 (+0400)
Subject: Declaim sb-di::valid-lisp-pointer-p inline.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0f05d24232969fa063ccc5086677e9ae7f877aba;p=sbcl.git

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
---

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))