[slime-devel] slime-symbol tweaking

[Nikodemus Siivola]

While I appreciate that it is better to try not too hard here, I run
into #.foo not completing often enough.

This:

(defun slime-beginning-of-symbol ()
  "Move to the beginning of the CL-style symbol at point."
  (while (re-search-backward "\\(\\sw\\|\\s_\\|\\s\\.\\|\\s\\\\|[#@|]\\)\\="
                             nil t))
  (re-search-forward "\\=#[<|]" nil t)
  (when (and (looking-at "@") (eq (char-before) ?\,))
    (forward-char))
  (when (and (looking-at "#\\."))
    (forward-char 2)))

addresses the issue. Normally I would just commit this, but given the
recent work on slime-symbol I was not sure if could be controversial?

Cheers,

 -- Nikodemus