public static Stella_Object clTranslateVerbatimTree(Cons tree) {
    { Cons cursor = tree.rest;
      Stella_Object verbatimcode = null;

      loop000 : while (!(cursor == Stella.NIL)) {
        if (cursor.value == Stella.KWD_COMMON_LISP) {
          verbatimcode = cursor.rest.value;
          cursor.rest.value = null;
          break loop000;
        }
        cursor = cursor.rest.rest;
      }
      return (verbatimcode);
    }
  }