(defmacro test (&aux (frob (gensym (string '#:frob))))
  `(progn
     (defun ,frob () 42)
     (defun call-frob ()
       (,frob))))

(test)