1.0.10.46: Inline the local functions in MAYBE-REHASH

[sbcl.git] / src / code / target-hash-table.lisp

diff --git a/src/code/target-hash-table.lisp b/src/code/target-hash-table.lisp
index 06f62d2..f35ff7a 100644 (file)
--- a/src/code/target-hash-table.lisp
+++ b/src/code/target-hash-table.lisp
@@ -481,6 +481,7 @@ multiple threads accessing the same hash-table without locking."
                 (zerop (hash-table-next-free-kv hash-table))))
          (rehash-without-growing-p ()
            (hash-table-needs-rehash-p hash-table)))
+    (declare (inline rehash-p rehash-without-growing-p))
     (cond ((rehash-p)
            ;; Use recursive spinlocks since for weak tables the
            ;; spinlock has already been acquired. GC must be inhibited