anchor.diff:                                   (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
  
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:                                  (move-to-position (current-point) offset))))))))
      (cond
        (found
         (push-edit-definition (current-point)))
        (t
         (message "No xref information found for ~A" symbol)))))
  
  