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:                         (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
  