master: Micro-optimize %LOOKUP-SYMBOL

The branch "master" has been updated in SBCL:
       via  10cab6fb1c5e5764d84d54b1b9e852691c325622 (commit)
      from  30cbf6b31bde53f6c96c6e78c2f3b79c1ef2c052 (commit)

- Log -----------------------------------------------------------------
commit 10cab6fb1c5e5764d84d54b1b9e852691c325622
Author: Gabor Melis <[email protected]>
Date:   Mon Jul 27 12:01:44 2026 +0200

    Micro-optimize %LOOKUP-SYMBOL
---
 src/code/target-package.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index ad13e7f2d..1f70b2e89 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -1242,6 +1242,7 @@ Experimental: interface subject to change."
                (len (length vec)))
           (when (functionp magic)
             (let ((perfect-hash (funcall magic name-hash)))
+              (declare (type fixnum perfect-hash))
               (when (< perfect-hash len)
                 (let ((symbol (truly-the symbol (svref vec perfect-hash))))
                   (when (and (eql (symbol-name-hash symbol) name-hash)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL