public static Stella_Object clYieldTypedExpressionTree(Stella_Object tree, StandardObject type) {
    { Stella_Object cltype = StandardObject.lookupClTypeFromStellaType(type);

      if (cltype != null) {
        if (Stella_Object.safePrimaryType(tree) == Stella.SGT_STELLA_CONS) {
          { Cons tree000 = ((Cons)(tree));

            if ((tree000.value == Stella.internCommonLispSymbol("THE")) &&
                Stella_Object.eqlP(tree000.rest.value, cltype)) {
              return (tree000);
            }
          }
        }
        else {
        }
        return (Cons.list$(Cons.cons(Stella.internCommonLispSymbol("THE"), Cons.cons(cltype, Cons.cons(Cons.cons(tree, Stella.NIL), Stella.NIL)))));
      }
      else {
        return (tree);
      }
    }
  }