anchor.diff:  (define-command slime-edit-uses () ()
     (check-connection)
     (let* ((symbol (read-symbol-name "Edit uses of: " (or (symbol-string-at-point (current-point)) "")))
  -         (result (slime-eval-internal `(swank:xrefs '(:calls :macroexpands :binds
  -                                                      :references :sets :specializes)
  -                                                    ,symbol)))
  +         (result (slime-eval `(swank:xrefs '(:calls :macroexpands :binds
  +                                             :references :sets :specializes)
  +                                           ,symbol)))
            (found nil))
       (lem.sourcelist:with-sourcelist (sourcelist "*slime-xrefs*")
         (loop :for (type . definitions) :in result
  
positive.code:       (points-to-string start end))))
  
  (defun macroexpand-internal (expander buffer-name)
    (let ((string (slime-eval-internal `(,expander ,(form-string-at-point)))))
      (with-pop-up-typeout-window (out (get-buffer-create buffer-name) :focus t :erase t)
        (princ string out))))
  
  
negative.code:   (check-connection)
    (let* ((name (read-symbol-name "Edit Definition of: "
                                   (or (symbol-string-at-point (current-point)) "")))
           (definitions (slime-eval `(swank:find-definitions-for-emacs ,name)))
           (found-list '()))
      (dolist (def definitions)
        (optima:match def
  