(defun replace-last-sexp () (interactive) (let ((value (eval (elisp--preceding-sexp)))) (backward-kill-sexp) (insert (format "%s" value))))
(global-set-key (kbd ", E") 'replace-last-sexp)