On 22-09-2022 15:53, Andrew Whatson wrote:
> -             (let ((val (frame-local-ref frame (binding-slot binding)
> -                                         (binding-representation binding))))
> +             (let* ((slot (binding-slot binding))
> +                    ;; HACK: Avoid out-of-range from frame-local-ref.
> +                    ;; Some frames have bindings beyond nlocals.  That
> +                    ;; is probably a bug somewhere else, but at least
> +                    ;; this workaround allows them to be printed.
> +                    ;; See<https://bugs.gnu.org/57948>.
> +                    (val (if (< slot nlocals)
> +                             (frame-local-ref frame slot
> +                                              (binding-representation binding))
> +*unspecified*)))

Looks reasonable from here, FWIW (I'm not familiar with (system vm frame)).

(Please keep in mind I do not have commit access.)

Greetings,
Maxime.