branch: elpa/slime commit e0605df6ae1a313edbd88cc2ffcb9d856d74b611 Author: Stas Boukarev <stass...@gmail.com> Commit: Stas Boukarev <stass...@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)))