(let ((name "foo")) (fset (intern name) (lambda (x) (* 2 x))))
(foo 21) ; 42