lisp , help on defun function

Проблема в седующем. Мне нужно создать функцию которая определяет другую функцию. Параметры первой: 1 - имя создаваемой функции 2-определение.
Заранее спасибо

(defun Def (Name Params Body)
  (eval (list
         'DEFUN
          Name
          Params
          Body
        )
  )
)

Где:
Name - имя создаваемой функции;
Params - ее параметры;
Body - ее тело.

Пример использования:

>(Def 'Func '(l) '(car l))
Func
>(Func '(a b))
a

большое спасибо...