anchor.diff:  (defun find-references ()
     (check-connection)
     (let* ((name (or (symbol-string-at-point (current-point))
  -                   (read-symbol-name "Edit uses of: ")))
  +                   (prompt-for-symbol-name "Edit uses of: ")))
            (data (lisp-eval `(swank:xrefs '(:calls :macroexpands :binds
                                             :references :sets :specializes)
                                           ,name))))
  
positive.code: (defun find-definitions ()
    (check-connection)
    (let ((name (or (symbol-string-at-point (current-point))
                    (read-symbol-name "Edit Definition of: "))))
      (let ((point (lem-lisp-syntax:search-local-definition (current-point) name)))
        (when point
          (return-from find-definitions
  
negative.code:         (declare (ignore timeout-p))
          (completion-hypheen str (mapcar #'first completions))))))
  
  (defun prompt-for-symbol-name (prompt &optional (initial ""))
    (let ((package (current-package)))
      (prompt-for-line prompt
                       initial
  