anchor.diff:    (let ((buffer (get-sldb-buffer thread)))
       (when buffer
         (cond (stepping
  -             (error "stepping"))
  +             (setf (buffer-value buffer 'level) nil)
  +             (start-timer 100 nil (lambda ()
  +                                    (let ((window (car (get-buffer-windows buffer))))
  +                                      (when (and window (not (deleted-window-p window))
  +                                                 (not (buffer-value buffer 'level)))
  +                                        (quit-window window t))))))
               ((eq buffer (window-buffer (current-window)))
                (quit-window (current-window) t)
                (let* ((repl-buffer (repl-buffer))
  
positive.code:     ((list (let ((restarts (buffer-value (current-buffer) 'restarts)))
               (prompt-for-line "Restart:"
                                ""
                                (lambda (str) (completion str restarts))
                                (lambda (str) (member str restarts :test #'string-equal :key #'first))
                                'sldb-restarts))))
    (sldb-invoke-restart
     (position restart-name
  
negative.code:   (let ((frame-number (frame-number-at-point (current-point))))
      (lisp-eval-async `(swank:inspect-in-frame ,string ,frame-number)
                       'open-inspector)))
  
  (define-command sldb-step () ()
    (lisp-eval-async `(swank:sldb-step ,(frame-number-at-point (current-point)))))
  
  (define-command sldb-next () ()
    (lisp-eval-async `(swank:sldb-step ,(frame-number-at-point (current-point)))))
  
  (define-command sldb-out () ()
    (lisp-eval-async `(swank:sldb-out ,(frame-number-at-point (current-point)))))
  
  (define-command sldb-break-on-return (name)
      ((list (read-symbol-name "Function: ")))
    (lisp-eval-async `(swank:sldb-break ,name)
                     (lambda (message)
                       (message "~A" message))))
  
  (define-command sldb-inspect-condition () ()
    (lisp-eval-async '(swank:inspect-current-condition)
                     'open-inspector))
  
  (define-command sldb-print-condition () ()
    (lisp-eval-async '(swank:sdlb-print-condition)
                     (lambda (message)
                       (message "~A" message))))
  
  (defun recompile-location (source-location)
    (save-excursion
  