kawa.lib.lists.length()

Here are the examples of the java api kawa.lib.lists.length() taken from open source projects. By voting up you can indicate which examples are most useful and appropriate.

1 Examples 7

14 Source : enums.java
with GNU General Public License v2.0
from Cloudslab

static Object lambda2(Object form) {
    Object[] allocVars = SyntaxPattern.allocVars(5, null);
    if (!Lit22.match(form, allocVars, 0)) {
        return syntax_case.error("syntax-case", form);
    }
    Object execute = Lit23.execute(allocVars, TemplateScope.make());
    try {
        Symbol t$Mnname = (Symbol) execute;
        Symbol t$Mnarr = symbolAppend$V(new Object[] { t$Mnname, Lit24 });
        Object execute2 = Lit25.execute(allocVars, TemplateScope.make());
        try {
            LList e$Mnnames = (LList) execute2;
            lists.length(e$Mnnames);
            LList field$Mndescs = mapNames(t$Mnname, e$Mnnames, 0);
            LList init = makeInit();
            LList values$Mnmethod = makeValues(t$Mnarr, e$Mnnames);
            Object execute3 = Lit26.execute(allocVars, TemplateScope.make());
            try {
                LList opts = (LList) execute3;
                Object execute4 = Lit27.execute(allocVars, TemplateScope.make());
                try {
                    LList other$Mndefs = (LList) execute4;
                    TemplateScope make = TemplateScope.make();
                    Object[] objArr = new Object[2];
                    objArr[0] = Lit28.execute(allocVars, make);
                    Object[] objArr2 = new Object[2];
                    objArr2[0] = std_syntax.datum$To$SyntaxObject(form, t$Mnname);
                    Object execute5 = Lit29.execute(allocVars, make);
                    Object[] objArr3 = new Object[2];
                    objArr3[0] = Lit30.execute(allocVars, make);
                    Object execute6 = Lit31.execute(allocVars, make);
                    Object[] objArr4 = new Object[2];
                    objArr4[0] = std_syntax.datum$To$SyntaxObject(form, opts);
                    Object[] objArr5 = new Object[2];
                    objArr5[0] = std_syntax.datum$To$SyntaxObject(form, init);
                    Object[] objArr6 = new Object[2];
                    objArr6[0] = std_syntax.datum$To$SyntaxObject(form, values$Mnmethod);
                    Object execute7 = Lit32.execute(allocVars, make);
                    Object[] objArr7 = new Object[2];
                    objArr7[0] = Lit33.execute(allocVars, make);
                    Object[] objArr8 = new Object[2];
                    objArr8[0] = std_syntax.datum$To$SyntaxObject(form, t$Mnname);
                    Object[] objArr9 = new Object[2];
                    objArr9[0] = Lit34.execute(allocVars, make);
                    objArr9[1] = Pair.make(Lit35.execute(allocVars, make), Pair.make(Pair.make(Lit36.execute(allocVars, make), Quote.consX$V(new Object[] { std_syntax.datum$To$SyntaxObject(form, t$Mnname), Lit37.execute(allocVars, make) })), Lit38.execute(allocVars, make)));
                    objArr8[1] = Quote.append$V(objArr9);
                    objArr7[1] = Quote.consX$V(objArr8);
                    Pair make2 = Pair.make(execute7, Quote.append$V(objArr7));
                    objArr7 = new Object[2];
                    objArr7[0] = std_syntax.datum$To$SyntaxObject(form, field$Mndescs);
                    objArr7[1] = Quote.append$V(new Object[] { std_syntax.datum$To$SyntaxObject(form, other$Mndefs), Lit39.execute(allocVars, make) });
                    objArr6[1] = Pair.make(make2, Quote.append$V(objArr7));
                    objArr5[1] = Quote.consX$V(objArr6);
                    objArr4[1] = Quote.consX$V(objArr5);
                    objArr3[1] = Pair.make(execute6, Quote.append$V(objArr4));
                    objArr2[1] = Pair.make(execute5, Quote.append$V(objArr3));
                    objArr[1] = Quote.consX$V(objArr2);
                    return Quote.append$V(objArr);
                } catch (ClreplacedCastException e) {
                    throw new WrongType(e, "other-defs", -2, execute4);
                }
            } catch (ClreplacedCastException e2) {
                throw new WrongType(e2, "opts", -2, execute3);
            }
        } catch (ClreplacedCastException e22) {
            throw new WrongType(e22, "e-names", -2, execute2);
        }
    } catch (ClreplacedCastException e222) {
        throw new WrongType(e222, "t-name", -2, execute);
    }
}