(defmacro zoz (a b)
  `(format t "zoz: ~a, ~a!~%" ,a ,b))

(agnostic-lizard:walk-form
 '(hi 1 2) nil
 :on-macroexpanded-form
 (let ((first nil))
   (lambda (f env)
     (declare (ignore env))
     (if (not first)
         (progn
           (setf first t)
           (cons 'zoz (cdr f)))
         f))))

;; => (ZOZ 1 2)