public static Cons sysTree(Stella_Object tree, StandardObject typespec, Object [] MV_returnarray) {
    if (Stella_Object.safePrimaryType(tree) == Stella.SGT_STELLA_CONS) {
      { Cons tree000 = ((Cons)(tree));

        { GeneralizedSymbol testValue000 = ((GeneralizedSymbol)(tree000.value));

          if (testValue000 == Stella.SYM_STELLA_VOID_SYS) {
            if (StandardObject.voidP(typespec)) {
              { Cons _return_temp = tree000;

                MV_returnarray[0] = typespec;
                return (_return_temp);
              }
            }
          }
          else if (testValue000 == Stella.SYM_STELLA_TYPED_SYS) {
            if (tree000.rest.rest.value == typespec) {
              { Cons _return_temp = tree000;

                MV_returnarray[0] = typespec;
                return (_return_temp);
              }
            }
          }
          else if (testValue000 == Stella.SYM_STELLA_VRLET) {
            { Cons _return_temp = tree000;

              MV_returnarray[0] = typespec;
              return (_return_temp);
            }
          }
          else {
          }
        }
      }
    }
    else {
    }
    if (StandardObject.voidP(typespec)) {
      { Cons _return_temp = Cons.list$(Cons.cons(Stella.SYM_STELLA_VOID_SYS, Cons.cons(tree, Cons.cons(Stella.NIL, Stella.NIL))));

        MV_returnarray[0] = Stella.SGT_STELLA_VOID;
        return (_return_temp);
      }
    }
    else {
      { Cons _return_temp = Cons.list$(Cons.cons(Stella.SYM_STELLA_TYPED_SYS, Cons.cons(tree, Cons.cons(Cons.cons(typespec, Stella.NIL), Stella.NIL))));

        MV_returnarray[0] = typespec;
        return (_return_temp);
      }
    }
  }