I submit that the current behaviour of <prefix> C-x C-e is not very useful. It is probably almost ideal for <prefix> C-c : -- eg. for creating constants with one-liners.

This is what I use in lieu of it, and what might be good for Slime proper too.

(defun ns:scan-forward (stop-after stop-before) (do () ((or (eql (char-after) stop-before) (eql (char-before) stop-after))) (forward-char)))

(defun ns:comment-at-eol () (let ((newline (string-to-char "\n")) (comment (string-to-char ";"))) (ns:scan-forward comment newline) (unless (eql newline (char-after)) (kill-line)) (unless (eql comment (char-before)) (insert " ;"))) (insert " "))

(defun ns:eval-in-lisp-insert-comment () (interactive) (lexical-let ((current-buffer (current-buffer))) (slime-eval-with-transcript `(swank:interactive-eval ,(slime-last-expression)) `(lambda (value) (with-current-buffer ,current-buffer (ns:comment-at-eol) (insert (format "%s" value)))))))

Cheers,

-- Nikodemus