Method buildThunk

src/jvm/clojure/lang/Compiler.java:1241–1262

(C context, QualifiedMethodExpr qmexpr)

	// TBD: caching/reuse of thunks
	private static FnExpr buildThunk(C context, QualifiedMethodExpr qmexpr) {
		// When qualified symbol has param-tags:
		//   (fn invoke__Class_meth ([this? args*] (methodSymbol this? args*)))
		// When no param-tags:
		//   (fn invoke__Class_meth ([this?] (methodSymbol this?))
		//                          ([this? arg1] (methodSymbol this? arg1)) ...)
		IPersistentCollection form = PersistentVector.EMPTY;
		Symbol instanceParam = qmexpr.kind == MethodKind.INSTANCE ? THIS : null;
		String thunkName = "invoke__" + qmexpr.c.getSimpleName() + "_" + qmexpr.methodSymbol.name;
		Set arities = (qmexpr.hintedSig != null) ? PersistentHashSet.create(qmexpr.hintedSig.size())
				: aritySet(qmexpr.c, qmexpr.methodName, qmexpr.kind);

		for(Object a : arities) {
			int arity = (int) a;
			IPersistentVector params = buildParams(instanceParam, arity);
			ISeq body = RT.listStar(qmexpr.methodSymbol, params.seq());
			form = RT.conj(form, RT.list(params, body));
		}

		ISeq thunkForm = RT.listStar(Symbol.intern("fn"), Symbol.intern(thunkName), RT.seq(form));
		return (FnExpr) analyzeSeq(context, thunkForm, thunkName);
	}

	private static IPersistentVector buildParams(Symbol instanceParam, int arity) {
		IPersistentVector params = PersistentVector.EMPTY;