anchor.diff:      ((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))
  +                              (lambda (s) (completion s restarts))
  +                              (lambda (s) (member s restarts :test #'string-equal :key #'first))
                                 'sldb-restarts))))
     (sldb-invoke-restart
      (position restart-name
  
positive.code:         (insert-string point indent1)
          (insert-string point (if locals "Locals:" "[No Locals]")
                         :attribute 'section-attribute)
          (loop :for var :in locals
                :do (destructuring-bind (&key name id value) var
                      (insert-character point #\newline)
                      (insert-string point indent2)
  
negative.code:   (let ((buffer (get-sldb-buffer thread)))
      (when buffer
        (cond (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))
  