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