Emacs replace last sexp

(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)