(eval-when (:compile-toplevel)
  (defun noodle (x) (+ x 2)))

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

(defun poodle () (foodle 10))