(defclass bla () ()) (macrolet ((m (&environment env) (setf *tmp* (find-class 'bla env)) NIL)) (m))