# Pastebin o7Afj4M3
(defmacro defun-for-macros (name args &body body)
  `(eval-when (:compile-toplevel)
    (setf (fdefinition ',name)
      (lambda ,args ,@body))))

(defun-for-macros noodle (x) (+ x 2))

(defmacro foodle (y) (noodle y))  ; note no backquote

(defun poodle () (foodle 10))