anchor.diff:  (define-key *sldb-keymap* "b" 'sldb-break-on-return)
   (define-key *sldb-keymap* "C" 'sldb-inspect-condition)
   (define-key *sldb-keymap* "C-c C-c" 'sldb-recompile-in-frame-source)
  +(define-key *sldb-keymap* "M-Return" 'sldb-copy-down-to-repl)
   
   (defun get-sldb-buffer (thread)
     (dolist (buffer (buffer-list))
  
positive.code:                                                         (button-get frame-button 'frame))))
                                       (lambda ()
                                         (sldb-inspect-var frame-number var)))
                                     :attribute 'local-name-attribute)
                      (insert-string point " = ")
                      (insert-string point value :attribute 'local-value-attribute)))
          (when catches
  
negative.code:                         (declare (ignore _))
                          (recompile-location source-location))))))
  
  (define-command sldb-copy-down-to-repl () ()
    (copy-down-to-repl 'swank/backend:frame-var-value
                       (frame-number-at-point (current-point))
                       (frame-var-number-at-point (current-point))))
  
  (pushnew (lambda (event)
             (alexandria:destructuring-case event
               ((:debug-activate thread level &optional select)
  