From 037bdbd3349aa8ca80c498337881ba9a3c5778dd Mon Sep 17 00:00:00 2001 From: Gabor Melis Date: Thu, 19 Mar 2009 13:42:05 +0000 Subject: [PATCH] 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. --- src/code/room.lisp | 3 +++ version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/code/room.lisp b/src/code/room.lisp index c9c2587..7e05a7e 100644 --- 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 --- 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" -- 1.7.10.4