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.
OpenPGP_0x49E3EE22191725EE.asc
Description: OpenPGP public key
OpenPGP_signature
Description: OpenPGP digital signature