master: Fix map-packed-xref-data
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 6d83d9db42532bafd4c912de25156144d9837d1e (commit)
from 6f6ad7d5bcc5598bb4da0ce3d658a2217ba5c474 (commit)
- Log -----------------------------------------------------------------
commit 6d83d9db42532bafd4c912de25156144d9837d1e
Author: Stas Boukarev <[email protected]>
Date: Thu Apr 30 15:01:49 2026 +0300
Fix map-packed-xref-data
Wasn't fully adjusted to the new pack-xref-data.
---
src/compiler/xref.lisp | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/compiler/xref.lisp b/src/compiler/xref.lisp
index 265596b0b..5fa150208 100644
--- a/src/compiler/xref.lisp
+++ b/src/compiler/xref.lisp
@@ -344,7 +344,9 @@
do (binding* (((index number-count)
(funcall decoder (read-var-integerf packed offset)))
(name (funcall lookup index)))
- (loop repeat number-count
- for form-number = (read-var-integerf packed offset)
- do
- (funcall function kind name form-number)))))))))
+ (let ((prev 0))
+ (loop repeat number-count
+ for form-number = (+ (read-var-integerf packed offset) prev)
+ do
+ (funcall function kind name form-number)
+ (setf prev form-number))))))))))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL