anchor.diff:                                     (point-set start))))
                   nil)))
             (setq expr
  -                (funcall macroexpand-fn expr))))
  +                (funcall macroexpand-fn expr))
  +          (when (eq (window-buffer)
  +                    (get-buffer buffer-name))
  +            (let ((*kill-disable-p* t))
  +              (kill-sexp))
  +            (insert-string
  +             (with-output-to-string (out)
  +               (pprint expr out)))
  +            (setq expr (read-from-string
  +                        (region-string (point-min)
  +                                       (point-max)))))
  +          expr))
       (unless error-p
         (lisp-info-popup (get-buffer-create buffer-name)
                          #'(lambda (out)
  
positive.code:           *lisp-eval-thread-error-p*))
  
  (defun lisp-eval-string (str)
    (let ((output-buffer (get-buffer-create "*OUTPUT*")))
      (setf (buffer-modified-p output-buffer) nil)
      (prog1 (minibuf-print
              (write-to-string
  
negative.code: (defun lisp-debugger (condition)
    (let* ((choices (compute-restarts condition))
           (n (length choices)))
      (lisp-info-popup (get-buffer-create "*error*")
                       #'(lambda (out)
                           (format out "~a~%~%" condition)
                           (loop
  