Need help with a simple macro to define a new function

[Lennart Borgman (gmail)]

Can someone please explain how to write this:

(defmacro new-defun (function)
  (declare (doc-string 3))
  (let* ((name (symbol-name function))
         (new-name (concat "new-" name))
         (new-sym (make-symbol new-name)))
    `(defun ,new-sym ()
       (interactive)
       (message "new function")(sit-for 2)
       (call-interactively ,function))))

(new-defun forward-char)

I expected a new function named new-forward-char, but that did not happen.