[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/slime e0605df6ae 1/4: sbcl: show sb-vm::%code-fixups.
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/slime e0605df6ae 1/4: sbcl: show sb-vm::%code-fixups. |
Date: |
Thu, 25 Apr 2024 16:01:04 -0400 (EDT) |
branch: elpa/slime
commit e0605df6ae1a313edbd88cc2ffcb9d856d74b611
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>
sbcl: show sb-vm::%code-fixups.
---
swank/sbcl.lisp | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp
index 1cefb0188c..9e7e06f512 100644
--- a/swank/sbcl.lisp
+++ b/swank/sbcl.lisp
@@ -1629,7 +1629,9 @@ stack."
(append
(label-value-line*
("Size" (sb-kernel:%code-code-size o))
- ("Debug info" (sb-kernel:%code-debug-info o)))
+ ("Debug info" (sb-kernel:%code-debug-info o))
+ #+#.(swank/backend:with-symbol "%CODE-FIXUPS" "SB-VM")
+ ("Fixups" (sb-vm::%code-fixups o)))
`("Entry points: " (:newline))
(loop for i from 0 below (sb-vm::code-n-entries o)
append (label-value-line i (sb-kernel:%code-entry-point o i)))