anchor.diff:                       (list :snippet _)))
            (push (list title file offset) found-list))))
       (when found-list
  -      (push (list (buffer-name (current-buffer))
  -                  (position-at-point (current-point)))
  -            *edit-definition-stack*)
  +      (push-edit-definition (current-point))
         (if (null (rest found-list))
             (destructuring-bind (title file offset)
                 (first found-list)
  
positive.code:                      nil
                       'mh-read-symbol)))
  
  (defvar *edit-definition-stack* nil)
  
  (define-command slime-edit-definition () ()
    (check-connection)
  
negative.code:                                  (move-to-position (current-point) offset))))))))
      (cond
        (found
         (push-edit-definition (current-point)))
        (t
         (message "No xref information found for ~A" symbol)))))
  
  