The branch "master" has been updated in SBCL:
via 0f05d24232969fa063ccc5086677e9ae7f877aba (commit)
from 6caf3ed5713773cb423f46bf40a29f2438c97c78 (commit)
- Log -----------------------------------------------------------------
commit 0f05d24232969fa063ccc5086677e9ae7f877aba
Author: Stas Boukarev <stassats@...>
Date: Fri Aug 12 03:21:23 2011 +0400
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 files changed, 1 insertions(+), 0 deletions(-)
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))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL
|