1.0.26.9: reduce consing in MAP-ALLOCATED-OBJECTS

... on platforms where dynamic space extends past fixnum range

Thanks to Bart Botta for the patch.

diff --git a/src/code/room.lisp b/src/code/room.lisp
index c9c2587..7e05a7e 100644 (file)
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -237,6 +237,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))

diff --git a/version.lisp-expr b/version.lisp-expr
index 31175e6..e80cc75 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.26.8"
+"1.0.26.9"