;;; Why would anybody do things this way? (defmacro with-mumbling-something (&body body) `(macrolet ((something-mumble (x y z) ;; actually do the work here )) ,@body)) (defmethod something-mumble (x y z) (with-mumbling-something (something-mumble x y z)))