contrib/sb-cltl2/macroexpand.lisp

   1 (in-package :sb-cltl2)
   2
   3 (defun macroexpand-all (form &optional environment)
   4   (let ((sb-walker::*walk-form-expand-macros-p* t))
   5     (sb-walker:walk-form form environment)))