emacs lisp - unable to write a function maker

[C K Kashyap]

Hi,

I was trying to write a function that would help in creating various abbreviation functions.

(defun makeAbrevFun (name val) 

  (eval 

   (defun name () (insert val))))

The intention is that the below code would create a function called "aa" 

(makeAbrevFun 'aa "aaaaaaaaaaaaaa")

That can be invoked by doing (aa)C-X C-e

This does not work. Could someone please let me know how I can achieve this?

Regards,

Kashyap