Plaster

(defmacro test-1 () (let ((symbol (gensym))) (setf (fdefinition symbol) (lambda () 'hello)) `(test-2 ,symbol))) (defmacro test-2 (symbol) `(print ',(funcall symbol))) ;;;; (test-1) => HELLO