http://stackoverflow.com/questions/18362073/how-to-set-local-function-definition-using-function-or-closure-objects

gistfile1.lisp

(defmacro new-flet (bindings &body body)
  (loop with new-arg  = (make-symbol "ARGS")
        for (name f) in bindings
        for new-name = (make-symbol (symbol-name name))
        collect (list new-name f) into let-bindings
        collect `(,name (&rest ,new-arg)
                    (declare (dynamic-extent ,new-arg))
                    (apply ,new-name ,new-arg))
          into flet-bindings
        finally (return
                 `(let ,let-bindings
                    (flet ,flet-bindings
                      ,@body)))))