X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=328ca458cad10bdc2bc516fb63165a7b9f47da45;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=c9c25874fd88ac5c983067d8db4445b229738e89;hpb=2db410feb35e7e30c95af8f20f67e6177fa92488;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index c9c2587..328ca45 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -10,6 +10,9 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
+
+(declaim (special sb!vm:*read-only-space-free-pointer*
+                  sb!vm:*static-space-free-pointer*))
 
 ;;;; type format database
 
@@ -237,6 +240,9 @@
            (if careful
                (make-lisp-obj tagged-address nil)
                (values (%make-lisp-obj tagged-address) t))))
+    ;; Inlining MAKE-OBJ reduces consing on platforms where dynamic
+    ;; space extends past fixnum range.
+    (declare (inline make-obj))
     (without-gcing
       (multiple-value-bind (start end) (space-bounds space)
         (declare (type system-area-pointer start end))