anchor.diff:                                                          (button-get frame-button 'frame))))
                                        (lambda ()
                                          (sldb-inspect-var frame-number var)))
  -                                   :attribute 'local-name-attribute)
  +                                   :attribute 'local-name-attribute
  +                                   'sldb-var i
  +                                   'frame (button-get frame-button 'frame)
  +                                   :button-tag 'sldb-frame)
                       (insert-string point " = ")
                       (insert-string point value :attribute 'local-value-attribute)))
           (when catches
  
positive.code:                         (declare (ignore _))
                          (recompile-location source-location))))))
  
  (pushnew (lambda (event)
             (alexandria:destructuring-case event
               ((:debug-activate thread level &optional select)
  
negative.code:         (frame-number (button-get (button-at point) 'frame)))
        (editor-error "No frame at point")))
  
  (defun frame-var-number-at-point (point)
    (let* ((button (button-at point))
           (var (and button (button-get button 'sldb-var))))
      (or var
          (editor-error "No variable at point"))))
  
  (define-command sldb-restart-frame (frame-number)
      ((list (frame-number-at-point (current-point))))
    (when frame-number
  