anchor.diff:    (save-excursion
      (loop
        (go-to-car)
  -     (let ((name (lisp-looking-at-symbol-name)))
  +     (let ((name (symbol-string-at-point)))
          (multiple-value-bind (arglist)
              (lisp-search-arglist name #'lisp-get-arglist-string)
            (cond (arglist
  
positive.code:                                    (shift-position -2))))
  
  (defun looking-at-indent-spec ()
    (let* ((string (lisp-looking-at-symbol-name))
           (pos (and string (position #\: string :from-end t)))
           (name (if (and pos (plusp pos))
                     (subseq string (1+ pos))
  
negative.code:   (%lisp-macroexpand 'swank/backend:macroexpand-all
                       "*macroexpand*"))
  
  (defun lisp-read-symbol (prompt &optional (confirm-p t))
    (let ((default-name (or (symbol-string-at-point) "")))
      (let ((name (if confirm-p
                      (minibuf-read-line prompt
                                         default-name
  