anchor.diff:                          (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)
  
positive.code: (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)
  
  (defun get-sldb-buffer (thread)
    (dolist (buffer (buffer-list))
  
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
  