Installing a Recursive Function Using symbol-function

Question

A function can be installed programmatically in Common Lisp using symbol-function (instead of defun):

* (setf (symbol-function \'factori