public static void createLispMacroUnits(Symbol name, MethodSlot method) {
    if (name == method.slotName) {
      Symbol.registerNativeName(name, Stella.KWD_COMMON_LISP, Stella.KWD_FUNCTION);
    }
    { Cons macrotree = null;
      Cons aliasdefinitiontree = null;

      { Object [] caller_MV_returnarray = new Object[1];

        macrotree = Symbol.yieldLispMacroTrees(name, method, caller_MV_returnarray);
        aliasdefinitiontree = ((Cons)(caller_MV_returnarray[0]));
      }
      Cons.walkAuxiliaryTree(macrotree);
      Cons.walkAuxiliaryTree(aliasdefinitiontree);
    }
    if (name == method.slotName) {
      Cons.walkAuxiliaryTree(Cons.list$(Cons.cons(Stella.SYM_STELLA_STARTUP_TIME_PROGN, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_REGISTER_NATIVE_NAME, Cons.cons(Cons.list$(Cons.cons(Stella.SYM_STELLA_QUOTE, Cons.cons(name, Cons.cons(Stella.NIL, Stella.NIL)))), Cons.cons(Stella.KWD_COMMON_LISP, Cons.cons(Stella.KWD_FUNCTION, Cons.cons(Stella.NIL, Stella.NIL)))))), Cons.cons(Stella.NIL, Stella.NIL)))));
    }
  }