anchor.diff:                                   (let ((buffer (get-buffer buffer-name)))
                                      (when buffer
                                        (setf (current-window) (pop-to-buffer buffer))
  -                                     (goto-position pos))))
  +                                     (move-to-position (current-point) pos))))
                                  (lambda ()
                                    (find-file file)
  -                                 (goto-position pos)))))
  +                                 (move-to-position (current-point) pos)))))
                (lem.sourcelist:append-sourcelist
                 sourcelist
                 (let ((name (or buffer-name file)))
  -                (lambda (cur-marker)
  -                  (lem::insert-string-at cur-marker
  -                                         (lem.text-property:make-text-property
  -                                          name :attribute lem.grep::*attribute-1*))
  -                  (lem::insert-string-at cur-marker ":")
  -                  (lem::insert-string-at cur-marker
  -                                         (lem.text-property:make-text-property
  -                                          (princ-to-string pos) :attribute lem.grep::*attribute-2*))
  -                  (lem::insert-string-at cur-marker ":")
  -                  (lem::insert-char-at cur-marker #\newline)
  -                  (lem::insert-string-at cur-marker message)
  -                  (lem::insert-char-at cur-marker #\newline)
  -                  (lem::insert-string-at cur-marker source-context)))
  +                (lambda (cur-point)
  +                  (insert-string cur-point name :attribute lem.grep::*attribute-1*)
  +                  (insert-string cur-point ":")
  +                  (insert-string cur-point (princ-to-string pos) :attribute lem.grep::*attribute-2*)
  +                  (insert-string cur-point ":")
  +                  (insert-character cur-point #\newline 1)
  +                  (insert-string cur-point message)
  +                  (insert-character cur-point #\newline)
  +                  (insert-string cur-point source-context)))
                 jump-fun)
                (push (make-highlight-overlay pos
                                              (if buffer-name
  
positive.code:                                       (format nil "[~,2f secs]" secs)))))))
  
  (defun make-highlight-overlay (pos buffer)
    (save-excursion
      (setf (current-buffer) buffer)
      (goto-position pos)
      (skip-chars-backward (current-marker) #'syntax-symbol-char-p)
      (make-overlay (copy-marker (current-marker) :temporary)
                    (lem::form-offset (copy-marker (current-marker) :temporary) 1)
                    *note-attribute*)))
  
  (defvar *note-overlays* nil)
  
negative.code: 
  (define-command slime-compile-defun () ()
    (check-connection)
    (with-point ((point (current-point)))
      (lem.lisp-mode::top-of-defun point)
      (with-point ((start point)
                   (end point))
        (form-offset end 1)
        (slime-compile-region start end))))
  
  (defun form-string-at-point ()
    (with-point ((point (current-point)))
      (skip-chars-backward point #'syntax-symbol-char-p)
      (with-point ((start point)
                   (end point))
        (form-offset end 1)
        (points-to-string start end))))
  
  (defun macroexpand-internal (expander buffer-name)
    (let ((string (slime-eval-internal `(,expander ,(form-string-at-point)))))
  