anchor.diff:                                   (move-to-position (current-point) offset))))))))
       (cond
         (found
  -       (push (list (buffer-name (current-buffer))
  -                   (position-at-point (current-point)))
  -             *edit-definition-stack*))
  +       (push-edit-definition (current-point)))
         (t
          (message "No xref information found for ~A" symbol)))))
   
  
positive.code:                      (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*)
        (if (null (rest found-list))
            (destructuring-bind (title file offset)
                (first found-list)
  
negative.code:                                  (or (symbol-string-at-point (current-point)) "")))
           (definitions (slime-eval `(swank:find-definitions-for-emacs ,name)))
           (found-list '()))
      (let ((point (search-local-definition (current-point) name)))
        (when point
          (push-edit-definition (current-point))
          (move-point (current-point) point)
          (return-from slime-edit-definition)))
      (dolist (def definitions)
        (optima:match def
          ((list title
  