X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=756911817b3dd6b4995913718b44bb910f9a1fc4;hb=e62bb3a4b9633dbd898fca05cc4af3dd0a16e0aa;hp=5059ce960ec3bb10c6596c12af2870aade1340ae;hpb=e7b2c507c364da9395ad1f9591210dac44f24afd;p=sbcl.git

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