From: David Vazquez Date: Thu, 31 Jan 2013 00:39:45 +0000 (+0000) Subject: Fix a bug related to SETQ which DO* uncovered X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=04eb2ffe0a6043e3d1f979088f4ca90463b07b79;p=jscl.git Fix a bug related to SETQ which DO* uncovered --- diff --git a/ecmalisp.js b/ecmalisp.js index 4f10d35..18cedcb 100644 --- a/ecmalisp.js +++ b/ecmalisp.js @@ -846,9 +846,13 @@ var l65 = {name: "REVERSE"}; })(); var l66 = {name: "PSETQ"}; l66; -var l67 = {name: "LIST-LENGTH"}; +var l67 = {name: "DO"}; +l67; +var l68 = {name: "DO*"}; +l68; +var l69 = {name: "LIST-LENGTH"}; (function(){ - (l67).fvalue = (function(v94){ + (l69).fvalue = (function(v94){ ((v94)["fname"] = "LIST-LENGTH"); return v94; })((function (values,v92){ @@ -876,11 +880,11 @@ var l67 = {name: "LIST-LENGTH"}; })(0); })(); })); - return l67; + return l69; })(); -var l68 = {name: "LENGTH"}; +var l70 = {name: "LENGTH"}; (function(){ - (l68).fvalue = (function(v96){ + (l70).fvalue = (function(v96){ ((v96)["fname"] = "LENGTH"); return v96; })((function (values,v95){ @@ -897,14 +901,14 @@ var l68 = {name: "LENGTH"}; })()?l4.value: l3.value) !== l3.value ? (function(){ var tmp = (v95)["length"]; return tmp == undefined? l3.value: tmp ; - })() : (l58.fvalue(pv, v95) !== l3.value ? l67.fvalue(values, v95) : l3.value))); + })() : (l58.fvalue(pv, v95) !== l3.value ? l69.fvalue(values, v95) : l3.value))); })(); })); - return l68; + return l70; })(); -var l69 = {name: "CONCAT-TWO"}; +var l71 = {name: "CONCAT-TWO"}; (function(){ - (l69).fvalue = (function(v99){ + (l71).fvalue = (function(v99){ ((v99)["fname"] = "CONCAT-TWO"); return v99; })((function (values,v97,v98){ @@ -921,11 +925,11 @@ var l69 = {name: "CONCAT-TWO"}; })(); })(); })); - return l69; + return l71; })(); -var l70 = {name: "MAPCAR"}; +var l72 = {name: "MAPCAR"}; (function(){ - (l70).fvalue = (function(v102){ + (l72).fvalue = (function(v102){ ((v102)["fname"] = "MAPCAR"); return v102; })((function (values,v100,v101){ @@ -934,17 +938,17 @@ var l70 = {name: "MAPCAR"}; return (l12.fvalue(pv, v101) !== l3.value ? l3 : ({car: (v100)(pv, (function(){ var tmp = v101; return tmp === l3.value? l3.value: tmp.car; - })()), cdr: l70.fvalue(pv, v100, (function(){ + })()), cdr: l72.fvalue(pv, v100, (function(){ var tmp = v101; return tmp === l3.value? l3.value: tmp.cdr; })())})); })(); })); - return l70; + return l72; })(); -var l71 = {name: "IDENTITY"}; +var l73 = {name: "IDENTITY"}; (function(){ - (l71).fvalue = (function(v104){ + (l73).fvalue = (function(v104){ ((v104)["fname"] = "IDENTITY"); return v104; })((function (values,v103){ @@ -953,29 +957,29 @@ var l71 = {name: "IDENTITY"}; return v103; })(); })); - return l71; + return l73; })(); -var l72 = {name: "COPY-LIST"}; +var l74 = {name: "COPY-LIST"}; (function(){ - (l72).fvalue = (function(v106){ + (l74).fvalue = (function(v106){ ((v106)["fname"] = "COPY-LIST"); return v106; })((function (values,v105){ checkArgs(arguments, 2); return (function(){ - return l70.fvalue(values, (function(){ - var symbol = l71; + return l72.fvalue(values, (function(){ + var symbol = l73; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v105); })(); })); - return l72; + return l74; })(); -var l73 = {name: "CODE-CHAR"}; +var l75 = {name: "CODE-CHAR"}; (function(){ - (l73).fvalue = (function(v108){ + (l75).fvalue = (function(v108){ ((v108)["fname"] = "CODE-CHAR"); return v108; })((function (values,v107){ @@ -984,11 +988,11 @@ var l73 = {name: "CODE-CHAR"}; return v107; })(); })); - return l73; + return l75; })(); -var l74 = {name: "CHAR-CODE"}; +var l76 = {name: "CHAR-CODE"}; (function(){ - (l74).fvalue = (function(v110){ + (l76).fvalue = (function(v110){ ((v110)["fname"] = "CHAR-CODE"); return v110; })((function (values,v109){ @@ -997,11 +1001,11 @@ var l74 = {name: "CHAR-CODE"}; return v109; })(); })); - return l74; + return l76; })(); -var l75 = {name: "CHAR="}; +var l77 = {name: "CHAR="}; (function(){ - (l75).fvalue = (function(v113){ + (l77).fvalue = (function(v113){ ((v113)["fname"] = "CHAR="); return v113; })((function (values,v111,v112){ @@ -1016,11 +1020,11 @@ var l75 = {name: "CHAR="}; })(); })(); })); - return l75; + return l77; })(); -var l76 = {name: "INTEGERP"}; +var l78 = {name: "INTEGERP"}; (function(){ - (l76).fvalue = (function(v115){ + (l78).fvalue = (function(v115){ ((v115)["fname"] = "INTEGERP"); return v115; })((function (values,v114){ @@ -1040,11 +1044,11 @@ var l76 = {name: "INTEGERP"}; })() : l3.value); })(); })); - return l76; + return l78; })(); -var l77 = {name: "PLUSP"}; +var l79 = {name: "PLUSP"}; (function(){ - (l77).fvalue = (function(v117){ + (l79).fvalue = (function(v117){ ((v117)["fname"] = "PLUSP"); return v117; })((function (values,v116){ @@ -1059,11 +1063,11 @@ var l77 = {name: "PLUSP"}; })(); })(); })); - return l77; + return l79; })(); -var l78 = {name: "MINUSP"}; +var l80 = {name: "MINUSP"}; (function(){ - (l78).fvalue = (function(v119){ + (l80).fvalue = (function(v119){ ((v119)["fname"] = "MINUSP"); return v119; })((function (values,v118){ @@ -1078,7 +1082,7 @@ var l78 = {name: "MINUSP"}; })(); })(); })); - return l78; + return l80; })(); (function(){ (l58).fvalue = (function(v122){ @@ -1097,9 +1101,9 @@ var l78 = {name: "MINUSP"}; })); return l58; })(); -var l79 = {name: "NTHCDR"}; +var l81 = {name: "NTHCDR"}; (function(){ - (l79).fvalue = (function(v125){ + (l81).fvalue = (function(v125){ ((v125)["fname"] = "NTHCDR"); return v125; })((function (values,v123,v124){ @@ -1107,7 +1111,7 @@ var l79 = {name: "NTHCDR"}; return (function(){ (function(){ return (function(){ - while((l77.fvalue(pv, v123) !== l3.value ? v124 : l3.value) !== l3.value){ + while((l79.fvalue(pv, v123) !== l3.value ? v124 : l3.value) !== l3.value){ (v123 = l23.fvalue(pv, v123)); (v124 = (function(){ var tmp = v124; @@ -1119,27 +1123,27 @@ var l79 = {name: "NTHCDR"}; return v124; })(); })); - return l79; + return l81; })(); -var l80 = {name: "NTH"}; +var l82 = {name: "NTH"}; (function(){ - (l80).fvalue = (function(v128){ + (l82).fvalue = (function(v128){ ((v128)["fname"] = "NTH"); return v128; })((function (values,v126,v127){ checkArgs(arguments, 3); return (function(){ return (function(){ - var tmp = l79.fvalue(pv, v126, v127); + var tmp = l81.fvalue(pv, v126, v127); return tmp === l3.value? l3.value: tmp.car; })(); })(); })); - return l80; + return l82; })(); -var l81 = {name: "LAST"}; +var l83 = {name: "LAST"}; (function(){ - (l81).fvalue = (function(v130){ + (l83).fvalue = (function(v130){ ((v130)["fname"] = "LAST"); return v130; })((function (values,v129){ @@ -1164,11 +1168,11 @@ var l81 = {name: "LAST"}; return v129; })(); })); - return l81; + return l83; })(); -var l82 = {name: "BUTLAST"}; +var l84 = {name: "BUTLAST"}; (function(){ - (l82).fvalue = (function(v132){ + (l84).fvalue = (function(v132){ ((v132)["fname"] = "BUTLAST"); return v132; })((function (values,v131){ @@ -1183,17 +1187,17 @@ var l82 = {name: "BUTLAST"}; })()?l4.value: l3.value) !== l3.value ? ({car: (function(){ var tmp = v131; return tmp === l3.value? l3.value: tmp.car; - })(), cdr: l82.fvalue(pv, (function(){ + })(), cdr: l84.fvalue(pv, (function(){ var tmp = v131; return tmp === l3.value? l3.value: tmp.cdr; })())}) : l3.value); })(); })); - return l82; + return l84; })(); -var l83 = {name: "MEMBER"}; +var l85 = {name: "MEMBER"}; (function(){ - (l83).fvalue = (function(v135){ + (l85).fvalue = (function(v135){ ((v135)["fname"] = "MEMBER"); return v135; })((function (values,v133,v134){ @@ -1226,11 +1230,11 @@ var l83 = {name: "MEMBER"}; })(); })(); })); - return l83; + return l85; })(); -var l84 = {name: "REMOVE"}; +var l86 = {name: "REMOVE"}; (function(){ - (l84).fvalue = (function(v138){ + (l86).fvalue = (function(v138){ ((v138)["fname"] = "REMOVE"); return v138; })((function (values,v136,v137){ @@ -1239,23 +1243,23 @@ var l84 = {name: "REMOVE"}; return (l12.fvalue(pv, v137) !== l3.value ? l3.value : (l26.fvalue(pv, v136, (function(){ var tmp = v137; return tmp === l3.value? l3.value: tmp.car; - })()) !== l3.value ? l84.fvalue(values, v136, (function(){ + })()) !== l3.value ? l86.fvalue(values, v136, (function(){ var tmp = v137; return tmp === l3.value? l3.value: tmp.cdr; })()) : ({car: (function(){ var tmp = v137; return tmp === l3.value? l3.value: tmp.car; - })(), cdr: l84.fvalue(pv, v136, (function(){ + })(), cdr: l86.fvalue(pv, v136, (function(){ var tmp = v137; return tmp === l3.value? l3.value: tmp.cdr; })())}))); })(); })); - return l84; + return l86; })(); -var l85 = {name: "REMOVE-IF"}; +var l87 = {name: "REMOVE-IF"}; (function(){ - (l85).fvalue = (function(v141){ + (l87).fvalue = (function(v141){ ((v141)["fname"] = "REMOVE-IF"); return v141; })((function (values,v139,v140){ @@ -1264,23 +1268,23 @@ var l85 = {name: "REMOVE-IF"}; return (l12.fvalue(pv, v140) !== l3.value ? l3.value : ((v139)(pv, (function(){ var tmp = v140; return tmp === l3.value? l3.value: tmp.car; - })()) !== l3.value ? l85.fvalue(values, v139, (function(){ + })()) !== l3.value ? l87.fvalue(values, v139, (function(){ var tmp = v140; return tmp === l3.value? l3.value: tmp.cdr; })()) : ({car: (function(){ var tmp = v140; return tmp === l3.value? l3.value: tmp.car; - })(), cdr: l85.fvalue(pv, v139, (function(){ + })(), cdr: l87.fvalue(pv, v139, (function(){ var tmp = v140; return tmp === l3.value? l3.value: tmp.cdr; })())}))); })(); })); - return l85; + return l87; })(); -var l86 = {name: "REMOVE-IF-NOT"}; +var l88 = {name: "REMOVE-IF-NOT"}; (function(){ - (l86).fvalue = (function(v144){ + (l88).fvalue = (function(v144){ ((v144)["fname"] = "REMOVE-IF-NOT"); return v144; })((function (values,v142,v143){ @@ -1292,20 +1296,20 @@ var l86 = {name: "REMOVE-IF-NOT"}; })()) !== l3.value ? ({car: (function(){ var tmp = v143; return tmp === l3.value? l3.value: tmp.car; - })(), cdr: l86.fvalue(pv, v142, (function(){ + })(), cdr: l88.fvalue(pv, v142, (function(){ var tmp = v143; return tmp === l3.value? l3.value: tmp.cdr; - })())}) : l86.fvalue(values, v142, (function(){ + })())}) : l88.fvalue(values, v142, (function(){ var tmp = v143; return tmp === l3.value? l3.value: tmp.cdr; })()))); })(); })); - return l86; + return l88; })(); -var l87 = {name: "DIGIT-CHAR-P"}; +var l89 = {name: "DIGIT-CHAR-P"}; (function(){ - (l87).fvalue = (function(v146){ + (l89).fvalue = (function(v146){ ((v146)["fname"] = "DIGIT-CHAR-P"); return v146; })((function (values,v145){ @@ -1332,11 +1336,11 @@ var l87 = {name: "DIGIT-CHAR-P"}; })() : l3.value); })(); })); - return l87; + return l89; })(); -var l88 = {name: "SUBSEQ"}; +var l90 = {name: "SUBSEQ"}; (function(){ - (l88).fvalue = (function(v150){ + (l90).fvalue = (function(v150){ ((v150)["fname"] = "SUBSEQ"); return v150; })((function (values,v147,v148,v149){ @@ -1364,11 +1368,11 @@ var l88 = {name: "SUBSEQ"}; })()); })(); })); - return l88; + return l90; })(); -var l89 = {name: "PARSE-INTEGER"}; +var l91 = {name: "PARSE-INTEGER"}; (function(){ - (l89).fvalue = (function(v155){ + (l91).fvalue = (function(v155){ ((v155)["fname"] = "PARSE-INTEGER"); return v155; })((function (values,v151){ @@ -1393,7 +1397,7 @@ var l89 = {name: "PARSE-INTEGER"}; return x1*x2; })(); if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = l87.fvalue(pv, (function(){ + var x2 = l89.fvalue(pv, (function(){ var string = v151; var index = v153; if (typeof string != 'string') @@ -1416,14 +1420,14 @@ var l89 = {name: "PARSE-INTEGER"}; })(); })(); return v152; - })(0,0,l68.fvalue(pv, v151)); + })(0,0,l70.fvalue(pv, v151)); })(); })); - return l89; + return l91; })(); -var l90 = {name: "SOME"}; +var l92 = {name: "SOME"}; (function(){ - (l90).fvalue = (function(v162){ + (l92).fvalue = (function(v162){ ((v162)["fname"] = "SOME"); return v162; })((function (values,v156,v157){ @@ -1463,7 +1467,7 @@ var l90 = {name: "SOME"}; })(); })(); return l3.value; - })(0,l68.fvalue(pv, v157)) : (l58.fvalue(pv, v157) !== l3.value ? (function(){ + })(0,l70.fvalue(pv, v157)) : (l58.fvalue(pv, v157) !== l3.value ? (function(){ try { return (function(v160,v161){ (function(){ @@ -1506,11 +1510,11 @@ var l90 = {name: "SOME"}; } })(); })); - return l90; + return l92; })(); -var l91 = {name: "EVERY"}; +var l93 = {name: "EVERY"}; (function(){ - (l91).fvalue = (function(v169){ + (l93).fvalue = (function(v169){ ((v169)["fname"] = "EVERY"); return v169; })((function (values,v163,v164){ @@ -1550,7 +1554,7 @@ var l91 = {name: "EVERY"}; })(); })(); return l4.value; - })(0,l68.fvalue(pv, v164)) : (l58.fvalue(pv, v164) !== l3.value ? (function(){ + })(0,l70.fvalue(pv, v164)) : (l58.fvalue(pv, v164) !== l3.value ? (function(){ try { return (function(v167,v168){ (function(){ @@ -1593,11 +1597,11 @@ var l91 = {name: "EVERY"}; } })(); })); - return l91; + return l93; })(); -var l92 = {name: "ASSOC"}; +var l94 = {name: "ASSOC"}; (function(){ - (l92).fvalue = (function(v172){ + (l94).fvalue = (function(v172){ ((v172)["fname"] = "ASSOC"); return v172; })((function (values,v170,v171){ @@ -1629,11 +1633,11 @@ var l92 = {name: "ASSOC"}; })(); })(); })); - return l92; + return l94; })(); -var l93 = {name: "STRING"}; +var l95 = {name: "STRING"}; (function(){ - (l93).fvalue = (function(v174){ + (l95).fvalue = (function(v174){ ((v174)["fname"] = "STRING"); return v174; })((function (values,v173){ @@ -1650,11 +1654,11 @@ var l93 = {name: "STRING"}; })())); })(); })); - return l93; + return l95; })(); -var l94 = {name: "STRING="}; +var l96 = {name: "STRING="}; (function(){ - (l94).fvalue = (function(v177){ + (l96).fvalue = (function(v177){ ((v177)["fname"] = "STRING="); return v177; })((function (values,v175,v176){ @@ -1663,11 +1667,11 @@ var l94 = {name: "STRING="}; return ((v175 == v176)?l4.value: l3.value); })(); })); - return l94; + return l96; })(); -var l95 = {name: "FDEFINITION"}; +var l97 = {name: "FDEFINITION"}; (function(){ - (l95).fvalue = (function(v179){ + (l97).fvalue = (function(v179){ ((v179)["fname"] = "FDEFINITION"); return v179; })((function (values,v178){ @@ -1686,28 +1690,28 @@ var l95 = {name: "FDEFINITION"}; })())); })(); })); - return l95; + return l97; })(); -var l96 = {name: "DISASSEMBLE"}; -var l97 = {name: "WRITE-LINE"}; +var l98 = {name: "DISASSEMBLE"}; +var l99 = {name: "WRITE-LINE"}; (function(){ - (l96).fvalue = (function(v181){ + (l98).fvalue = (function(v181){ ((v181)["fname"] = "DISASSEMBLE"); return v181; })((function (values,v180){ checkArgs(arguments, 2); return (function(){ - l97.fvalue(pv, (l95.fvalue(pv, v180)).toString()); + l99.fvalue(pv, (l97.fvalue(pv, v180)).toString()); return l3.value; })(); })); - return l96; + return l98; })(); -var l98 = {name: "DOCUMENTATION"}; -var l99 = {name: "FUNCTION"}; -var l100 = {name: "VARIABLE"}; +var l100 = {name: "DOCUMENTATION"}; +var l101 = {name: "FUNCTION"}; +var l102 = {name: "VARIABLE"}; (function(){ - (l98).fvalue = (function(v186){ + (l100).fvalue = (function(v186){ ((v186)["fname"] = "DOCUMENTATION"); return v186; })((function(){ @@ -1715,12 +1719,12 @@ var l100 = {name: "VARIABLE"}; checkArgs(arguments, 3); return (function(){ return (function(v184){ - return (l26.fvalue(pv, v184, l99) !== l3.value ? (function(v185){ + return (l26.fvalue(pv, v184, l101) !== l3.value ? (function(v185){ return (function(){ var tmp = (v185)["docstring"]; return tmp == undefined? l3.value: tmp ; })(); - })(l95.fvalue(pv, v182)) : (l26.fvalue(pv, v184, l100) !== l3.value ? (function(){ + })(l97.fvalue(pv, v182)) : (l26.fvalue(pv, v184, l102) !== l3.value ? (function(){ (((function(){ var tmp = v182; return (typeof tmp == 'object' && 'name' in tmp); @@ -1740,35 +1744,35 @@ var l100 = {name: "VARIABLE"}; func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.'; return func; })()); - return l98; + return l100; })(); -var l101 = {name: "*PACKAGE-LIST*"}; +var l103 = {name: "*PACKAGE-LIST*"}; (function(){ - (((l101.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l101).value = l3.value)); - return l101; + (((l103.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l103).value = l3.value)); + return l103; })(); -var l102 = {name: "LIST-ALL-PACKAGES"}; +var l104 = {name: "LIST-ALL-PACKAGES"}; (function(){ - (l102).fvalue = (function(v187){ + (l104).fvalue = (function(v187){ ((v187)["fname"] = "LIST-ALL-PACKAGES"); return v187; })((function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ - var symbol = l101; + var symbol = l103; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(); })(); })); - return l102; + return l104; })(); -var l103 = {name: "MAKE-PACKAGE"}; -var l104 = {name: "FIND-PACKAGE-OR-FAIL"}; +var l105 = {name: "MAKE-PACKAGE"}; +var l106 = {name: "FIND-PACKAGE-OR-FAIL"}; (function(){ - (l103).fvalue = (function(v192){ + (l105).fvalue = (function(v192){ ((v192)["fname"] = "MAKE-PACKAGE"); return v192; })((function (values,v188,v189){ @@ -1785,26 +1789,26 @@ var l104 = {name: "FIND-PACKAGE-OR-FAIL"}; ((v190)["symbols"] = {}); ((v190)["exports"] = {}); ((v190)["use"] = v191); - ((l101).value = ({car: v190, cdr: (function(){ - var symbol = l101; + ((l103).value = ({car: v190, cdr: (function(){ + var symbol = l103; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); return v190; - })({},l70.fvalue(pv, (function(){ - var symbol = l104; + })({},l72.fvalue(pv, (function(){ + var symbol = l106; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v189)); })(); })); - return l103; + return l105; })(); -var l105 = {name: "PACKAGEP"}; +var l107 = {name: "PACKAGEP"}; (function(){ - (l105).fvalue = (function(v194){ + (l107).fvalue = (function(v194){ ((v194)["fname"] = "PACKAGEP"); return v194; })((function (values,v193){ @@ -1813,19 +1817,19 @@ var l105 = {name: "PACKAGEP"}; return (((typeof (v193) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v193))?l4.value: l3.value) : l3.value); })(); })); - return l105; + return l107; })(); -var l106 = {name: "FIND-PACKAGE"}; -var l107 = {name: "PACKAGE-NAME"}; +var l108 = {name: "FIND-PACKAGE"}; +var l109 = {name: "PACKAGE-NAME"}; (function(){ - (l106).fvalue = (function(v199){ + (l108).fvalue = (function(v199){ ((v199)["fname"] = "FIND-PACKAGE"); return v199; })((function (values,v195){ checkArgs(arguments, 2); return (function(){ try { - (l105.fvalue(pv, v195) !== l3.value ? (function(){ + (l107.fvalue(pv, v195) !== l3.value ? (function(){ var values = mv; throw ({type: 'block', id: 86, values: v195, message: 'Return from unknown block FIND-PACKAGE.'}) })() : l3.value); @@ -1840,7 +1844,7 @@ var l107 = {name: "PACKAGE-NAME"}; return tmp === l3.value? l3.value: tmp.car; })()); (function(){ - (l94.fvalue(pv, l107.fvalue(pv, v198), v196) !== l3.value ? (function(){ + (l96.fvalue(pv, l109.fvalue(pv, v198), v196) !== l3.value ? (function(){ var values = mv; throw ({type: 'block', id: 87, values: v198, message: 'Return from unknown block NIL.'}) })() : l3.value); @@ -1854,7 +1858,7 @@ var l107 = {name: "PACKAGE-NAME"}; })(); return l3.value; })((function(){ - var symbol = l101; + var symbol = l103; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -1867,7 +1871,7 @@ var l107 = {name: "PACKAGE-NAME"}; throw cf; } })(); - })(l93.fvalue(pv, v195)); + })(l95.fvalue(pv, v195)); } catch (cf){ if (cf.type == 'block' && cf.id == 86) @@ -1877,10 +1881,10 @@ var l107 = {name: "PACKAGE-NAME"}; } })(); })); - return l106; + return l108; })(); (function(){ - (l104).fvalue = (function(v202){ + (l106).fvalue = (function(v202){ ((v202)["fname"] = "FIND-PACKAGE-OR-FAIL"); return v202; })((function (values,v200){ @@ -1890,13 +1894,13 @@ var l107 = {name: "PACKAGE-NAME"}; return (v201 !== l3.value ? v201 : (function(){ throw "Package unknown."; })()); - })(l106.fvalue(pv, v200)); + })(l108.fvalue(pv, v200)); })(); })); - return l104; + return l106; })(); (function(){ - (l107).fvalue = (function(v205){ + (l109).fvalue = (function(v205){ ((v205)["fname"] = "PACKAGE-NAME"); return v205; })((function (values,v203){ @@ -1907,14 +1911,14 @@ var l107 = {name: "PACKAGE-NAME"}; var tmp = (v204)["packageName"]; return tmp == undefined? l3.value: tmp ; })(); - })(l104.fvalue(pv, v203)); + })(l106.fvalue(pv, v203)); })(); })); - return l107; + return l109; })(); -var l108 = {name: "%PACKAGE-SYMBOLS"}; +var l110 = {name: "%PACKAGE-SYMBOLS"}; (function(){ - (l108).fvalue = (function(v208){ + (l110).fvalue = (function(v208){ ((v208)["fname"] = "%PACKAGE-SYMBOLS"); return v208; })((function (values,v206){ @@ -1925,14 +1929,14 @@ var l108 = {name: "%PACKAGE-SYMBOLS"}; var tmp = (v207)["symbols"]; return tmp == undefined? l3.value: tmp ; })(); - })(l104.fvalue(pv, v206)); + })(l106.fvalue(pv, v206)); })(); })); - return l108; + return l110; })(); -var l109 = {name: "PACKAGE-USE-LIST"}; +var l111 = {name: "PACKAGE-USE-LIST"}; (function(){ - (l109).fvalue = (function(v211){ + (l111).fvalue = (function(v211){ ((v211)["fname"] = "PACKAGE-USE-LIST"); return v211; })((function (values,v209){ @@ -1943,14 +1947,14 @@ var l109 = {name: "PACKAGE-USE-LIST"}; var tmp = (v210)["use"]; return tmp == undefined? l3.value: tmp ; })(); - })(l104.fvalue(pv, v209)); + })(l106.fvalue(pv, v209)); })(); })); - return l109; + return l111; })(); -var l110 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"}; +var l112 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"}; (function(){ - (l110).fvalue = (function(v214){ + (l112).fvalue = (function(v214){ ((v214)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS"); return v214; })((function (values,v212){ @@ -1961,35 +1965,35 @@ var l110 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"}; var tmp = (v213)["exports"]; return tmp == undefined? l3.value: tmp ; })(); - })(l104.fvalue(pv, v212)); + })(l106.fvalue(pv, v212)); })(); })); - return l110; + return l112; })(); -var l111 = {name: "*COMMON-LISP-PACKAGE*"}; +var l113 = {name: "*COMMON-LISP-PACKAGE*"}; (function(){ - (((l111.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l111).value = l103.fvalue(pv, "CL"))); - return l111; + (((l113.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l113).value = l105.fvalue(pv, "CL"))); + return l113; })(); -var l112 = {name: "*USER-PACKAGE*"}; +var l114 = {name: "*USER-PACKAGE*"}; (function(){ - (((l112.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l112).value = l103.fvalue(pv, "CL-USER", l43.fvalue(pv, (function(){ - var symbol = l111; + (((l114.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l114).value = l105.fvalue(pv, "CL-USER", l43.fvalue(pv, (function(){ + var symbol = l113; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())))); - return l112; + return l114; })(); -var l113 = {name: "*KEYWORD-PACKAGE*"}; +var l115 = {name: "*KEYWORD-PACKAGE*"}; (function(){ - (((l113.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l113).value = l103.fvalue(pv, "KEYWORD"))); - return l113; + (((l115.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l115).value = l105.fvalue(pv, "KEYWORD"))); + return l115; })(); -var l114 = {name: "KEYWORDP"}; -var l115 = {name: "SYMBOL-PACKAGE"}; +var l116 = {name: "KEYWORDP"}; +var l117 = {name: "SYMBOL-PACKAGE"}; (function(){ - (l114).fvalue = (function(v216){ + (l116).fvalue = (function(v216){ ((v216)["fname"] = "KEYWORDP"); return v216; })((function (values,v215){ @@ -1998,31 +2002,31 @@ var l115 = {name: "SYMBOL-PACKAGE"}; return (((function(){ var tmp = v215; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? ((l115.fvalue(pv, v215) === (function(){ - var symbol = l113; + })()?l4.value: l3.value) !== l3.value ? ((l117.fvalue(pv, v215) === (function(){ + var symbol = l115; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l3.value) : l3.value); })(); })); - return l114; + return l116; })(); -var l116 = {name: "*PACKAGE*"}; +var l118 = {name: "*PACKAGE*"}; (function(){ - (((l116.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l116).value = (function(){ - var symbol = l111; + (((l118.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l118).value = (function(){ + var symbol = l113; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); - return l116; + return l118; })(); -var l117 = {name: "IN-PACKAGE"}; -l117; -var l118 = {name: "%INTERN-SYMBOL"}; +var l119 = {name: "IN-PACKAGE"}; +l119; +var l120 = {name: "%INTERN-SYMBOL"}; (function(){ - (l118).fvalue = (function(v219){ + (l120).fvalue = (function(v219){ ((v219)["fname"] = "%INTERN-SYMBOL"); return v219; })((function (values,v217){ @@ -2030,25 +2034,25 @@ var l118 = {name: "%INTERN-SYMBOL"}; return (function(){ return (function(v218){ ((v217)["package"] = (function(){ - var symbol = l111; + var symbol = l113; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); return ((v218)[(v217).name] = v217); - })(l108.fvalue(pv, (function(){ - var symbol = l111; + })(l110.fvalue(pv, (function(){ + var symbol = l113; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })(); })); - return l118; + return l120; })(); -var l119 = {name: "%FIND-SYMBOL"}; +var l121 = {name: "%FIND-SYMBOL"}; (function(){ - (l119).fvalue = (function(v227){ + (l121).fvalue = (function(v227){ ((v227)["fname"] = "%FIND-SYMBOL"); return v227; })((function (values,v220,v221){ @@ -2077,7 +2081,7 @@ var l119 = {name: "%FIND-SYMBOL"}; return tmp == undefined? l3.value: tmp ; })(), cdr: l4.value}), message: 'Return from unknown block %FIND-SYMBOL.'}) })() : l3.value); - })(l110.fvalue(pv, v225)); + })(l112.fvalue(pv, v225)); return l3.value; })(); (v224 = (function(){ @@ -2087,10 +2091,10 @@ var l119 = {name: "%FIND-SYMBOL"}; }return l3.value; })(); return ({car: l3.value, cdr: l3.value}); - })(l109.fvalue(pv, v222),l3.value); + })(l111.fvalue(pv, v222),l3.value); })()); - })(l108.fvalue(pv, v222)); - })(l104.fvalue(pv, v221)); + })(l110.fvalue(pv, v222)); + })(l106.fvalue(pv, v221)); } catch (cf){ if (cf.type == 'block' && cf.id == 95) @@ -2100,11 +2104,11 @@ var l119 = {name: "%FIND-SYMBOL"}; } })(); })); - return l119; + return l121; })(); -var l120 = {name: "FIND-SYMBOL"}; +var l122 = {name: "FIND-SYMBOL"}; (function(){ - (l120).fvalue = (function(v230){ + (l122).fvalue = (function(v230){ ((v230)["fname"] = "FIND-SYMBOL"); return v230; })((function (values,v228,v229){ @@ -2113,7 +2117,7 @@ var l120 = {name: "FIND-SYMBOL"}; switch(arguments.length-1){ case 1: v229=(function(){ - var symbol = l116; + var symbol = l118; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -2122,17 +2126,17 @@ var l120 = {name: "FIND-SYMBOL"}; } return (function(){ return (function(){ - var tmp = l119.fvalue(pv, v228, v229); + var tmp = l121.fvalue(pv, v228, v229); return tmp === l3.value? l3.value: tmp.car; })(); })(); })); - return l120; + return l122; })(); -var l121 = {name: "INTERN"}; -var l122 = {name: "EXPORT"}; +var l123 = {name: "INTERN"}; +var l124 = {name: "EXPORT"}; (function(){ - (l121).fvalue = (function(v237){ + (l123).fvalue = (function(v237){ ((v237)["fname"] = "INTERN"); return v237; })((function (values,v231,v232){ @@ -2141,7 +2145,7 @@ var l122 = {name: "EXPORT"}; switch(arguments.length-1){ case 1: v232=(function(){ - var symbol = l116; + var symbol = l118; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -2165,13 +2169,13 @@ var l122 = {name: "EXPORT"}; return (function(v236){ ((v236)["package"] = v233); (((v233 === (function(){ - var symbol = l113; + var symbol = l115; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l3.value) !== l3.value ? (function(){ ((v236)["value"] = v236); - return l122.fvalue(pv, l43.fvalue(pv, v236), v233); + return l124.fvalue(pv, l43.fvalue(pv, v236), v233); })() : l3.value); return ((v235)[v231] = v236); })((function(){ @@ -2180,15 +2184,15 @@ var l122 = {name: "EXPORT"}; throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })()); - })(l108.fvalue(pv, v233))); - })(l119.fvalue(pv, v231, v233)); - })(l104.fvalue(pv, v232)); + })(l110.fvalue(pv, v233))); + })(l121.fvalue(pv, v231, v233)); + })(l106.fvalue(pv, v232)); })(); })); - return l121; + return l123; })(); (function(){ - (l115).fvalue = (function(v239){ + (l117).fvalue = (function(v239){ ((v239)["fname"] = "SYMBOL-PACKAGE"); return v239; })((function (values,v238){ @@ -2206,10 +2210,10 @@ var l122 = {name: "EXPORT"}; })(); })(); })); - return l115; + return l117; })(); (function(){ - (l122).fvalue = (function(v245){ + (l124).fvalue = (function(v245){ ((v245)["fname"] = "EXPORT"); return v245; })((function (values,v240,v241){ @@ -2218,7 +2222,7 @@ var l122 = {name: "EXPORT"}; switch(arguments.length-1){ case 1: v241=(function(){ - var symbol = l116; + var symbol = l118; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -2248,14 +2252,14 @@ var l122 = {name: "EXPORT"}; return l4.value; })(v240,l3.value); })(); - })(l110.fvalue(pv, v241)); + })(l112.fvalue(pv, v241)); })(); })); - return l122; + return l124; })(); -var l123 = {name: "GET-UNIVERSAL-TIME"}; +var l125 = {name: "GET-UNIVERSAL-TIME"}; (function(){ - (l123).fvalue = (function(v246){ + (l125).fvalue = (function(v246){ ((v246)["fname"] = "GET-UNIVERSAL-TIME"); return v246; })((function (values){ @@ -2270,16 +2274,16 @@ var l123 = {name: "GET-UNIVERSAL-TIME"}; })(); })(); })); - return l123; + return l125; })(); -var l124 = {name: "*NEWLINE*"}; +var l126 = {name: "*NEWLINE*"}; (function(){ - (((l124.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l124).value = l93.fvalue(pv, l73.fvalue(pv, 10)))); - return l124; + (((l126.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l126).value = l95.fvalue(pv, l75.fvalue(pv, 10)))); + return l126; })(); -var l125 = {name: "CONCAT"}; +var l127 = {name: "CONCAT"}; (function(){ - (l125).fvalue = (function(v248){ + (l127).fvalue = (function(v248){ ((v248)["fname"] = "CONCAT"); return v248; })((function (values){ @@ -2289,20 +2293,20 @@ var l125 = {name: "CONCAT"}; v247}; return (function(){ return l59.fvalue(values, (function(){ - var symbol = l69; + var symbol = l71; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v247, ""); })(); })); - return l125; + return l127; })(); -var l126 = {name: "CONCATF"}; -l126; -var l127 = {name: "JOIN"}; +var l128 = {name: "CONCATF"}; +l128; +var l129 = {name: "JOIN"}; (function(){ - (l127).fvalue = (function(v251){ + (l129).fvalue = (function(v251){ ((v251)["fname"] = "JOIN"); return v251; })((function (values,v249,v250){ @@ -2320,20 +2324,20 @@ var l127 = {name: "JOIN"}; })()) !== l3.value ? (function(){ var tmp = v249; return tmp === l3.value? l3.value: tmp.car; - })() : l125.fvalue(values, (function(){ + })() : l127.fvalue(values, (function(){ var tmp = v249; return tmp === l3.value? l3.value: tmp.car; - })(), v250, l127.fvalue(pv, (function(){ + })(), v250, l129.fvalue(pv, (function(){ var tmp = v249; return tmp === l3.value? l3.value: tmp.cdr; })(), v250)))); })(); })); - return l127; + return l129; })(); -var l128 = {name: "JOIN-TRAILING"}; +var l130 = {name: "JOIN-TRAILING"}; (function(){ - (l128).fvalue = (function(v254){ + (l130).fvalue = (function(v254){ ((v254)["fname"] = "JOIN-TRAILING"); return v254; })((function (values,v252,v253){ @@ -2345,33 +2349,33 @@ var l128 = {name: "JOIN-TRAILING"}; default: break; } return (function(){ - return (l12.fvalue(pv, v252) !== l3.value ? "" : l125.fvalue(values, (function(){ + return (l12.fvalue(pv, v252) !== l3.value ? "" : l127.fvalue(values, (function(){ var tmp = v252; return tmp === l3.value? l3.value: tmp.car; - })(), v253, l128.fvalue(pv, (function(){ + })(), v253, l130.fvalue(pv, (function(){ var tmp = v252; return tmp === l3.value? l3.value: tmp.cdr; })(), v253))); })(); })); - return l128; + return l130; })(); -var l129 = {name: "MAPCONCAT"}; +var l131 = {name: "MAPCONCAT"}; (function(){ - (l129).fvalue = (function(v257){ + (l131).fvalue = (function(v257){ ((v257)["fname"] = "MAPCONCAT"); return v257; })((function (values,v255,v256){ checkArgs(arguments, 3); return (function(){ - return l127.fvalue(values, l70.fvalue(pv, v255, v256)); + return l129.fvalue(values, l72.fvalue(pv, v255, v256)); })(); })); - return l129; + return l131; })(); -var l130 = {name: "VECTOR-TO-LIST"}; +var l132 = {name: "VECTOR-TO-LIST"}; (function(){ - (l130).fvalue = (function(v263){ + (l132).fvalue = (function(v263){ ((v263)["fname"] = "VECTOR-TO-LIST"); return v263; })((function (values,v258){ @@ -2408,14 +2412,14 @@ var l130 = {name: "VECTOR-TO-LIST"}; return l65.fvalue(values, v259); })(0,v260); })(); - })(l3.value,l68.fvalue(pv, v258)); + })(l3.value,l70.fvalue(pv, v258)); })(); })); - return l130; + return l132; })(); -var l131 = {name: "LIST-TO-VECTOR"}; +var l133 = {name: "LIST-TO-VECTOR"}; (function(){ - (l131).fvalue = (function(v269){ + (l133).fvalue = (function(v269){ ((v269)["fname"] = "LIST-TO-VECTOR"); return v269; })((function (values,v264){ @@ -2457,30 +2461,30 @@ var l131 = {name: "LIST-TO-VECTOR"}; })(); })((function(){ var r = []; - for (var i = 0; i < l68.fvalue(pv, v264); i++) + for (var i = 0; i < l70.fvalue(pv, v264); i++) r.push(l3.value); return r; })(),0); })(); })); - return l131; + return l133; })(); -var l132 = {name: "VALUES-LIST"}; +var l134 = {name: "VALUES-LIST"}; (function(){ - (l132).fvalue = (function(v271){ + (l134).fvalue = (function(v271){ ((v271)["fname"] = "VALUES-LIST"); return v271; })((function (values,v270){ checkArgs(arguments, 2); return (function(){ - return values.apply(this, l131.fvalue(pv, v270)); + return values.apply(this, l133.fvalue(pv, v270)); })(); })); - return l132; + return l134; })(); -var l133 = {name: "VALUES"}; +var l135 = {name: "VALUES"}; (function(){ - (l133).fvalue = (function(v273){ + (l135).fvalue = (function(v273){ ((v273)["fname"] = "VALUES"); return v273; })((function (values){ @@ -2489,18 +2493,18 @@ var l133 = {name: "VALUES"}; v272 = {car: arguments[i], cdr: v272}; return (function(){ - return l132.fvalue(values, v272); + return l134.fvalue(values, v272); })(); })); - return l133; + return l135; })(); -var l134 = {name: "MULTIPLE-VALUE-BIND"}; -l134; -var l135 = {name: "MULTIPLE-VALUE-LIST"}; -l135; -var l136 = {name: "INDENT"}; +var l136 = {name: "MULTIPLE-VALUE-BIND"}; +l136; +var l137 = {name: "MULTIPLE-VALUE-LIST"}; +l137; +var l138 = {name: "INDENT"}; (function(){ - (l136).fvalue = (function(v280){ + (l138).fvalue = (function(v280){ ((v280)["fname"] = "INDENT"); return v280; })((function (values){ @@ -2511,7 +2515,7 @@ var l136 = {name: "INDENT"}; return (function(){ return (function(v275){ return (function(v276,v277,v278){ - (l77.fvalue(pv, l68.fvalue(pv, v275)) !== l3.value ? (v276 = l125.fvalue(pv, v276, " ")) : l3.value); + (l79.fvalue(pv, l70.fvalue(pv, v275)) !== l3.value ? (v276 = l127.fvalue(pv, v276, " ")) : l3.value); (function(){ return (function(){ while((function(){ @@ -2522,8 +2526,8 @@ var l136 = {name: "INDENT"}; return (x1") : l125.fvalue(values, "#")); + return l127.fvalue(values, (l12.fvalue(pv, v288) !== l3.value ? "#" : (((v288 === l108.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l109.fvalue(pv, v288))), ":", v289); + })(l117.fvalue(pv, v287),(v287).name)) : (l78.fvalue(pv, v287) !== l3.value ? l17.fvalue(values, v287) : (((typeof(v287) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l143.fvalue(pv, v287), "\"") : (((typeof v287 == 'function')?l4.value: l3.value) !== l3.value ? (function(v290){ + return (v290 !== l3.value ? l127.fvalue(values, "#") : l127.fvalue(values, "#")); })((function(){ var tmp = (v287)["fname"]; return tmp == undefined? l3.value: tmp ; - })()) : (l58.fvalue(pv, v287) !== l3.value ? l125.fvalue(values, "(", l128.fvalue(pv, l70.fvalue(pv, (function(){ - var symbol = l140; + })()) : (l58.fvalue(pv, v287) !== l3.value ? l127.fvalue(values, "(", l130.fvalue(pv, l72.fvalue(pv, (function(){ + var symbol = l142; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l82.fvalue(pv, v287)), " "), (function(v291){ + })(), l84.fvalue(pv, v287)), " "), (function(v291){ return (l12.fvalue(pv, (function(){ var tmp = v291; return tmp === l3.value? l3.value: tmp.cdr; - })()) !== l3.value ? l140.fvalue(pv, (function(){ + })()) !== l3.value ? l142.fvalue(pv, (function(){ var tmp = v291; return tmp === l3.value? l3.value: tmp.car; - })()) : l125.fvalue(pv, l140.fvalue(pv, (function(){ + })()) : l127.fvalue(pv, l142.fvalue(pv, (function(){ var tmp = v291; return tmp === l3.value? l3.value: tmp.car; - })()), " . ", l140.fvalue(pv, (function(){ + })()), " . ", l142.fvalue(pv, (function(){ var tmp = v291; return tmp === l3.value? l3.value: tmp.cdr; })()))); - })(l81.fvalue(pv, v287)), ")") : (((function(){ + })(l83.fvalue(pv, v287)), ")") : (((function(){ var x = v287; return typeof x === 'object' && 'length' in x; - })()?l4.value: l3.value) !== l3.value ? l125.fvalue(values, "#", l140.fvalue(pv, l130.fvalue(pv, v287))) : (l105.fvalue(pv, v287) !== l3.value ? l125.fvalue(values, "#") : l3.value))))))); + })()?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "#", l142.fvalue(pv, l132.fvalue(pv, v287))) : (l107.fvalue(pv, v287) !== l3.value ? l127.fvalue(values, "#") : l3.value))))))); })(); })); - return l140; + return l142; })(); (function(){ - (l97).fvalue = (function(v294){ + (l99).fvalue = (function(v294){ ((v294)["fname"] = "WRITE-LINE"); return v294; })((function (values,v293){ @@ -2703,7 +2707,7 @@ var l141 = {name: "ESCAPE-STRING"}; })(); (function(){ var x = (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -2715,11 +2719,11 @@ var l141 = {name: "ESCAPE-STRING"}; return v293; })(); })); - return l97; + return l99; })(); -var l142 = {name: "WARN"}; +var l144 = {name: "WARN"}; (function(){ - (l142).fvalue = (function(v296){ + (l144).fvalue = (function(v296){ ((v296)["fname"] = "WARN"); return v296; })((function (values,v295){ @@ -2731,28 +2735,28 @@ var l142 = {name: "WARN"}; throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); })(); - return l97.fvalue(values, v295); + return l99.fvalue(values, v295); })(); })); - return l142; + return l144; })(); -var l143 = {name: "PRINT"}; +var l145 = {name: "PRINT"}; (function(){ - (l143).fvalue = (function(v298){ + (l145).fvalue = (function(v298){ ((v298)["fname"] = "PRINT"); return v298; })((function (values,v297){ checkArgs(arguments, 2); return (function(){ - l97.fvalue(pv, l140.fvalue(pv, v297)); + l99.fvalue(pv, l142.fvalue(pv, v297)); return v297; })(); })); - return l143; + return l145; })(); -var l144 = {name: "MAKE-STRING-STREAM"}; +var l146 = {name: "MAKE-STRING-STREAM"}; (function(){ - (l144).fvalue = (function(v300){ + (l146).fvalue = (function(v300){ ((v300)["fname"] = "MAKE-STRING-STREAM"); return v300; })((function (values,v299){ @@ -2761,11 +2765,11 @@ var l144 = {name: "MAKE-STRING-STREAM"}; return ({car: v299, cdr: 0}); })(); })); - return l144; + return l146; })(); -var l145 = {name: "%PEEK-CHAR"}; +var l147 = {name: "%PEEK-CHAR"}; (function(){ - (l145).fvalue = (function(v302){ + (l147).fvalue = (function(v302){ ((v302)["fname"] = "%PEEK-CHAR"); return v302; })((function (values,v301){ @@ -2777,7 +2781,7 @@ var l145 = {name: "%PEEK-CHAR"}; return tmp === l3.value? l3.value: tmp.cdr; })(); if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = l68.fvalue(pv, (function(){ + var x2 = l70.fvalue(pv, (function(){ var tmp = v301; return tmp === l3.value? l3.value: tmp.car; })()); @@ -2800,11 +2804,11 @@ var l145 = {name: "%PEEK-CHAR"}; })() : l3.value); })(); })); - return l145; + return l147; })(); -var l146 = {name: "%READ-CHAR"}; +var l148 = {name: "%READ-CHAR"}; (function(){ - (l146).fvalue = (function(v305){ + (l148).fvalue = (function(v305){ ((v305)["fname"] = "%READ-CHAR"); return v305; })((function (values,v303){ @@ -2816,7 +2820,7 @@ var l146 = {name: "%READ-CHAR"}; return tmp === l3.value? l3.value: tmp.cdr; })(); if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = l68.fvalue(pv, (function(){ + var x2 = l70.fvalue(pv, (function(){ var tmp = v303; return tmp === l3.value? l3.value: tmp.car; })()); @@ -2850,11 +2854,11 @@ var l146 = {name: "%READ-CHAR"}; })()) : l3.value); })(); })); - return l146; + return l148; })(); -var l147 = {name: "WHITESPACEP"}; +var l149 = {name: "WHITESPACEP"}; (function(){ - (l147).fvalue = (function(v309){ + (l149).fvalue = (function(v309){ ((v309)["fname"] = "WHITESPACEP"); return v309; })((function (values,v306){ @@ -2862,39 +2866,39 @@ var l147 = {name: "WHITESPACEP"}; return (function(){ return (function(v307){ return (v307 !== l3.value ? v307 : (function(v308){ - return (v308 !== l3.value ? v308 : l75.fvalue(values, v306, 9)); - })(l75.fvalue(pv, v306, 10))); - })(l75.fvalue(pv, v306, 32)); + return (v308 !== l3.value ? v308 : l77.fvalue(values, v306, 9)); + })(l77.fvalue(pv, v306, 10))); + })(l77.fvalue(pv, v306, 32)); })(); })); - return l147; + return l149; })(); -var l148 = {name: "SKIP-WHITESPACES"}; +var l150 = {name: "SKIP-WHITESPACES"}; (function(){ - (l148).fvalue = (function(v312){ + (l150).fvalue = (function(v312){ ((v312)["fname"] = "SKIP-WHITESPACES"); return v312; })((function (values,v310){ checkArgs(arguments, 2); return (function(){ return (function(v311){ - (v311 = l145.fvalue(pv, v310)); + (v311 = l147.fvalue(pv, v310)); return (function(){ return (function(){ - while((v311 !== l3.value ? l147.fvalue(pv, v311) : l3.value) !== l3.value){ - l146.fvalue(pv, v310); - (v311 = l145.fvalue(pv, v310)); + while((v311 !== l3.value ? l149.fvalue(pv, v311) : l3.value) !== l3.value){ + l148.fvalue(pv, v310); + (v311 = l147.fvalue(pv, v310)); }return l3.value; })(); })(); })(l3.value); })(); })); - return l148; + return l150; })(); -var l149 = {name: "TERMINALP"}; +var l151 = {name: "TERMINALP"}; (function(){ - (l149).fvalue = (function(v317){ + (l151).fvalue = (function(v317){ ((v317)["fname"] = "TERMINALP"); return v317; })((function (values,v313){ @@ -2903,30 +2907,30 @@ var l149 = {name: "TERMINALP"}; return (function(v314){ return (v314 !== l3.value ? v314 : (function(v315){ return (v315 !== l3.value ? v315 : (function(v316){ - return (v316 !== l3.value ? v316 : l75.fvalue(values, 40, v313)); - })(l75.fvalue(pv, 41, v313))); - })(l147.fvalue(pv, v313))); + return (v316 !== l3.value ? v316 : l77.fvalue(values, 40, v313)); + })(l77.fvalue(pv, 41, v313))); + })(l149.fvalue(pv, v313))); })(l12.fvalue(pv, v313)); })(); })); - return l149; + return l151; })(); -var l150 = {name: "READ-UNTIL"}; +var l152 = {name: "READ-UNTIL"}; (function(){ - (l150).fvalue = (function(v322){ + (l152).fvalue = (function(v322){ ((v322)["fname"] = "READ-UNTIL"); return v322; })((function (values,v318,v319){ checkArgs(arguments, 3); return (function(){ return (function(v320,v321){ - (v321 = l145.fvalue(pv, v318)); + (v321 = l147.fvalue(pv, v318)); (function(){ return (function(){ while((v321 !== l3.value ? l27.fvalue(pv, (v319)(pv, v321)) : l3.value) !== l3.value){ - (v320 = l125.fvalue(pv, v320, l93.fvalue(pv, v321))); - l146.fvalue(pv, v318); - (v321 = l145.fvalue(pv, v318)); + (v320 = l127.fvalue(pv, v320, l95.fvalue(pv, v321))); + l148.fvalue(pv, v318); + (v321 = l147.fvalue(pv, v318)); }return l3.value; })(); })(); @@ -2934,86 +2938,86 @@ var l150 = {name: "READ-UNTIL"}; })("",l3.value); })(); })); - return l150; + return l152; })(); -var l151 = {name: "SKIP-WHITESPACES-AND-COMMENTS"}; +var l153 = {name: "SKIP-WHITESPACES-AND-COMMENTS"}; (function(){ - (l151).fvalue = (function(v326){ + (l153).fvalue = (function(v326){ ((v326)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS"); return v326; })((function (values,v323){ checkArgs(arguments, 2); return (function(){ return (function(v324){ - l148.fvalue(pv, v323); - (v324 = l145.fvalue(pv, v323)); + l150.fvalue(pv, v323); + (v324 = l147.fvalue(pv, v323)); return (function(){ return (function(){ - while((v324 !== l3.value ? l75.fvalue(pv, v324, 59) : l3.value) !== l3.value){ - l150.fvalue(pv, v323, (function (values,v325){ + while((v324 !== l3.value ? l77.fvalue(pv, v324, 59) : l3.value) !== l3.value){ + l152.fvalue(pv, v323, (function (values,v325){ checkArgs(arguments, 2); - return l75.fvalue(values, v325, 10); + return l77.fvalue(values, v325, 10); })); - l148.fvalue(pv, v323); - (v324 = l145.fvalue(pv, v323)); + l150.fvalue(pv, v323); + (v324 = l147.fvalue(pv, v323)); }return l3.value; })(); })(); })(l3.value); })(); })); - return l151; + return l153; })(); -var l152 = {name: "%READ-LIST"}; -var l153 = {name: "LS-READ"}; +var l154 = {name: "%READ-LIST"}; +var l155 = {name: "LS-READ"}; (function(){ - (l152).fvalue = (function(v330){ + (l154).fvalue = (function(v330){ ((v330)["fname"] = "%READ-LIST"); return v330; })((function (values,v327){ checkArgs(arguments, 2); return (function(){ - l151.fvalue(pv, v327); + l153.fvalue(pv, v327); return (function(v328){ return (l12.fvalue(pv, v328) !== l3.value ? (function(){ throw "Unspected EOF"; - })() : (l75.fvalue(pv, v328, 41) !== l3.value ? (function(){ - l146.fvalue(pv, v327); + })() : (l77.fvalue(pv, v328, 41) !== l3.value ? (function(){ + l148.fvalue(pv, v327); return l3.value; - })() : (l75.fvalue(pv, v328, 46) !== l3.value ? (function(){ - l146.fvalue(pv, v327); + })() : (l77.fvalue(pv, v328, 46) !== l3.value ? (function(){ + l148.fvalue(pv, v327); return (function(v329){ - l151.fvalue(pv, v327); - (l75.fvalue(pv, l146.fvalue(pv, v327), 41) !== l3.value ? l3.value : (function(){ + l153.fvalue(pv, v327); + (l77.fvalue(pv, l148.fvalue(pv, v327), 41) !== l3.value ? l3.value : (function(){ throw "')' was expected."; })()); return v329; - })(l153.fvalue(pv, v327)); - })() : ({car: l153.fvalue(pv, v327), cdr: l152.fvalue(pv, v327)})))); - })(l145.fvalue(pv, v327)); + })(l155.fvalue(pv, v327)); + })() : ({car: l155.fvalue(pv, v327), cdr: l154.fvalue(pv, v327)})))); + })(l147.fvalue(pv, v327)); })(); })); - return l152; + return l154; })(); -var l154 = {name: "READ-STRING"}; +var l156 = {name: "READ-STRING"}; (function(){ - (l154).fvalue = (function(v334){ + (l156).fvalue = (function(v334){ ((v334)["fname"] = "READ-STRING"); return v334; })((function (values,v331){ checkArgs(arguments, 2); return (function(){ return (function(v332,v333){ - (v333 = l146.fvalue(pv, v331)); + (v333 = l148.fvalue(pv, v331)); (function(){ return (function(){ while(l27.fvalue(pv, l26.fvalue(pv, v333, 34)) !== l3.value){ (l12.fvalue(pv, v333) !== l3.value ? (function(){ throw "Unexpected EOF"; })() : l3.value); - (l26.fvalue(pv, v333, 92) !== l3.value ? (v333 = l146.fvalue(pv, v331)) : l3.value); - (v332 = l125.fvalue(pv, v332, l93.fvalue(pv, v333))); - (v333 = l146.fvalue(pv, v331)); + (l26.fvalue(pv, v333, 92) !== l3.value ? (v333 = l148.fvalue(pv, v331)) : l3.value); + (v332 = l127.fvalue(pv, v332, l95.fvalue(pv, v333))); + (v333 = l148.fvalue(pv, v331)); }return l3.value; })(); })(); @@ -3021,22 +3025,22 @@ var l154 = {name: "READ-STRING"}; })("",l3.value); })(); })); - return l154; + return l156; })(); -var l155 = {name: "READ-SHARP"}; +var l157 = {name: "READ-SHARP"}; (function(){ - (l155).fvalue = (function(v339){ + (l157).fvalue = (function(v339){ ((v339)["fname"] = "READ-SHARP"); return v339; })((function (values,v335){ checkArgs(arguments, 2); return (function(){ - l146.fvalue(pv, v335); + l148.fvalue(pv, v335); return (function(v336){ - return (l26.fvalue(pv, v336, 39) !== l3.value ? l43.fvalue(values, l99, l153.fvalue(pv, v335)) : (l26.fvalue(pv, v336, 40) !== l3.value ? l131.fvalue(values, l152.fvalue(pv, v335)) : (l26.fvalue(pv, v336, 58) !== l3.value ? (function(){ + return (l26.fvalue(pv, v336, 39) !== l3.value ? l43.fvalue(values, l101, l155.fvalue(pv, v335)) : (l26.fvalue(pv, v336, 40) !== l3.value ? l133.fvalue(values, l154.fvalue(pv, v335)) : (l26.fvalue(pv, v336, 58) !== l3.value ? (function(){ var name = (function(){ - var x = l150.fvalue(pv, v335, (function(){ - var symbol = l149; + var x = l152.fvalue(pv, v335, (function(){ + var symbol = l151; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -3049,7 +3053,7 @@ var l155 = {name: "READ-SHARP"}; throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })() : (l26.fvalue(pv, v336, 92) !== l3.value ? (function(v337){ - return (l94.fvalue(pv, v337, "space") !== l3.value ? l74.fvalue(values, 32) : (l94.fvalue(pv, v337, "tab") !== l3.value ? l74.fvalue(values, 9) : (l94.fvalue(pv, v337, "newline") !== l3.value ? l74.fvalue(values, 10) : l74.fvalue(values, (function(){ + return (l96.fvalue(pv, v337, "space") !== l3.value ? l76.fvalue(values, 32) : (l96.fvalue(pv, v337, "tab") !== l3.value ? l76.fvalue(values, 9) : (l96.fvalue(pv, v337, "newline") !== l3.value ? l76.fvalue(values, 10) : l76.fvalue(values, (function(){ var string = v337; var index = 0; if (typeof string != 'string') @@ -3058,34 +3062,34 @@ var l155 = {name: "READ-SHARP"}; throw 'The value ' + index + ' is not a type number.'; return string.charCodeAt(index); })())))); - })(l125.fvalue(pv, l93.fvalue(pv, l146.fvalue(pv, v335)), l150.fvalue(pv, v335, (function(){ - var symbol = l149; + })(l127.fvalue(pv, l95.fvalue(pv, l148.fvalue(pv, v335)), l152.fvalue(pv, v335, (function(){ + var symbol = l151; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()))) : (l26.fvalue(pv, v336, 43) !== l3.value ? (function(v338){ - return (l94.fvalue(pv, v338, "common-lisp") !== l3.value ? (function(){ - l153.fvalue(pv, v335); - return l153.fvalue(values, v335); - })() : (l94.fvalue(pv, v338, "ecmalisp") !== l3.value ? l153.fvalue(values, v335) : (function(){ + return (l96.fvalue(pv, v338, "common-lisp") !== l3.value ? (function(){ + l155.fvalue(pv, v335); + return l155.fvalue(values, v335); + })() : (l96.fvalue(pv, v338, "ecmalisp") !== l3.value ? l155.fvalue(values, v335) : (function(){ throw "Unknown reader form."; })())); - })(l150.fvalue(pv, v335, (function(){ - var symbol = l149; + })(l152.fvalue(pv, v335, (function(){ + var symbol = l151; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })())) : (function(){ throw "ECASE expression failed."; })()))))); - })(l146.fvalue(pv, v335)); + })(l148.fvalue(pv, v335)); })(); })); - return l155; + return l157; })(); -var l156 = {name: "READ-SYMBOL"}; +var l158 = {name: "READ-SYMBOL"}; (function(){ - (l156).fvalue = (function(v347){ + (l158).fvalue = (function(v347){ ((v347)["fname"] = "READ-SYMBOL"); return v347; })((function (values,v340){ @@ -3101,7 +3105,7 @@ var l156 = {name: "READ-SYMBOL"}; var x2 = v341; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=1; i--) v482 = {car: arguments[i], cdr: @@ -4270,7 +4273,7 @@ var l217 = {name: "SETQ"}; })()) !== l3.value ? (function(){ throw "Odd paris in SETQ"; })() : (function(){ - (v483 = l125.fvalue(pv, v483, l125.fvalue(pv, l215.fvalue(pv, (function(){ + (v483 = l127.fvalue(pv, v483, l127.fvalue(pv, l216.fvalue(pv, (function(){ var tmp = v482; return tmp === l3.value? l3.value: tmp.car; })(), l33.fvalue(pv, v482)), (l12.fvalue(pv, l35.fvalue(pv, v482)) !== l3.value ? "" : ", ")))); @@ -4286,41 +4289,41 @@ var l217 = {name: "SETQ"}; throw cf; } })(); - return l125.fvalue(values, "(", v483, ")"); + return l127.fvalue(values, "(", v483, ")"); })(""); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l218 = {name: "JS-VREF"}; -((l198).value = ({car: l43.fvalue(pv, l218, (function (values,v484){ +var l219 = {name: "JS-VREF"}; +((l199).value = ({car: l43.fvalue(pv, l219, (function (values,v484){ checkArgs(arguments, 2); return (function(){ return v484; })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l219 = {name: "JS-VSET"}; -((l198).value = ({car: l43.fvalue(pv, l219, (function (values,v485,v486){ +var l220 = {name: "JS-VSET"}; +((l199).value = ({car: l43.fvalue(pv, l220, (function (values,v485,v486){ checkArgs(arguments, 3); return (function(){ - return l125.fvalue(values, "(", v485, " = ", l138.fvalue(pv, v486), ")"); + return l127.fvalue(values, "(", v485, " = ", l140.fvalue(pv, v486), ")"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); (function(){ - (l141).fvalue = (function(v493){ + (l143).fvalue = (function(v493){ ((v493)["fname"] = "ESCAPE-STRING"); return v493; })((function (values,v487){ @@ -4338,13 +4341,13 @@ var l219 = {name: "JS-VSET"}; })() !== l3.value){ (function(v491){ ((function(v492){ - return (v492 !== l3.value ? v492 : l75.fvalue(pv, v491, 92)); - })(l75.fvalue(pv, v491, 34)) !== l3.value ? (v488 = l125.fvalue(pv, v488, "\\")) : l3.value); - (l75.fvalue(pv, v491, 10) !== l3.value ? (function(){ - (v488 = l125.fvalue(pv, v488, "\\")); + return (v492 !== l3.value ? v492 : l77.fvalue(pv, v491, 92)); + })(l77.fvalue(pv, v491, 34)) !== l3.value ? (v488 = l127.fvalue(pv, v488, "\\")) : l3.value); + (l77.fvalue(pv, v491, 10) !== l3.value ? (function(){ + (v488 = l127.fvalue(pv, v488, "\\")); return (v491 = 110); })() : l3.value); - return (v488 = l125.fvalue(pv, v488, l93.fvalue(pv, v491))); + return (v488 = l127.fvalue(pv, v488, l95.fvalue(pv, v491))); })((function(){ var string = v487; var index = v489; @@ -4365,32 +4368,32 @@ var l219 = {name: "JS-VSET"}; })(); })(); return v488; - })("",0,l68.fvalue(pv, v487)); + })("",0,l70.fvalue(pv, v487)); })(); })); - return l141; + return l143; })(); -var l220 = {name: "*LITERAL-SYMBOLS*"}; +var l221 = {name: "*LITERAL-SYMBOLS*"}; (function(){ - (((l220.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l220).value = l3.value)); - return l220; + (((l221.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l221).value = l3.value)); + return l221; })(); -var l221 = {name: "*LITERAL-COUNTER*"}; +var l222 = {name: "*LITERAL-COUNTER*"}; (function(){ - (((l221.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l221).value = 0)); - return l221; + (((l222.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l222).value = 0)); + return l222; })(); -var l222 = {name: "GENLIT"}; +var l223 = {name: "GENLIT"}; (function(){ - (l222).fvalue = (function(v494){ + (l223).fvalue = (function(v494){ ((v494)["fname"] = "GENLIT"); return v494; })((function (values){ checkArgsAtMost(arguments, 1); return (function(){ - return l125.fvalue(values, "l", l17.fvalue(pv, ((l221).value = (function(){ + return l127.fvalue(values, "l", l17.fvalue(pv, ((l222).value = (function(){ var x1 = (function(){ - var symbol = l221; + var symbol = l222; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4402,11 +4405,11 @@ var l222 = {name: "GENLIT"}; })()))); })(); })); - return l222; + return l223; })(); -var l223 = {name: "LITERAL"}; +var l224 = {name: "LITERAL"}; (function(){ - (l223).fvalue = (function(v509){ + (l224).fvalue = (function(v509){ ((v509)["fname"] = "LITERAL"); return v509; })((function (values,v495,v496){ @@ -4418,25 +4421,25 @@ var l223 = {name: "LITERAL"}; default: break; } return (function(){ - return (l76.fvalue(pv, v495) !== l3.value ? l17.fvalue(values, v495) : (((typeof(v495) == "string")?l4.value: l3.value) !== l3.value ? l125.fvalue(values, "\"", l141.fvalue(pv, v495), "\"") : (((function(){ + return (l78.fvalue(pv, v495) !== l3.value ? l17.fvalue(values, v495) : (((typeof(v495) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l143.fvalue(pv, v495), "\"") : (((function(){ var tmp = v495; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l3.value) !== l3.value ? (function(v497){ return (v497 !== l3.value ? v497 : (function(v499,v500){ - ((l220).value = ({car: ({car: v495, cdr: v499}), cdr: (function(){ - var symbol = l220; + ((l221).value = ({car: ({car: v495, cdr: v499}), cdr: (function(){ + var symbol = l221; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); - l186.fvalue(pv, l125.fvalue(pv, "var ", v499, " = ", v500)); + l187.fvalue(pv, l127.fvalue(pv, "var ", v499, " = ", v500)); return v499; - })(l222.fvalue(pv),(function(v498){ - return (l12.fvalue(pv, v498) !== l3.value ? l125.fvalue(pv, "{name: \"", l141.fvalue(pv, (v495).name), "\"}") : l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l121), l43.fvalue(pv, (v495).name), l43.fvalue(pv, l107.fvalue(pv, v498))))); - })(l115.fvalue(pv, v495)))); + })(l223.fvalue(pv),(function(v498){ + return (l12.fvalue(pv, v498) !== l3.value ? l127.fvalue(pv, "{name: \"", l143.fvalue(pv, (v495).name), "\"}") : l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l123), l43.fvalue(pv, (v495).name), l43.fvalue(pv, l109.fvalue(pv, v498))))); + })(l117.fvalue(pv, v495)))); })((function(){ - var tmp = l92.fvalue(pv, v495, (function(){ - var symbol = l220; + var tmp = l94.fvalue(pv, v495, (function(){ + var symbol = l221; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4446,135 +4449,135 @@ var l223 = {name: "LITERAL"}; var tmp = v495; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l3.value) !== l3.value ? (function(){ - var v501 = l82.fvalue(pv, v495); - var v502 = l81.fvalue(pv, v495); - var v503 = l125.fvalue(pv, "QIList(", l128.fvalue(pv, l70.fvalue(pv, (function (values,v504){ + var v501 = l84.fvalue(pv, v495); + var v502 = l83.fvalue(pv, v495); + var v503 = l127.fvalue(pv, "QIList(", l130.fvalue(pv, l72.fvalue(pv, (function (values,v504){ checkArgs(arguments, 2); - return l223.fvalue(values, v504, l4.value); - }), v501), ","), l223.fvalue(pv, (function(){ + return l224.fvalue(values, v504, l4.value); + }), v501), ","), l224.fvalue(pv, (function(){ var tmp = v502; return tmp === l3.value? l3.value: tmp.car; - })(), l4.value), ",", l223.fvalue(pv, (function(){ + })(), l4.value), ",", l224.fvalue(pv, (function(){ var tmp = v502; return tmp === l3.value? l3.value: tmp.cdr; })(), l4.value), ")"); return (v496 !== l3.value ? v503 : (function(v505){ - l186.fvalue(pv, l125.fvalue(pv, "var ", v505, " = ", v503)); + l187.fvalue(pv, l127.fvalue(pv, "var ", v505, " = ", v503)); return v505; - })(l222.fvalue(pv))); + })(l223.fvalue(pv))); })() : (((function(){ var x = v495; return typeof x === 'object' && 'length' in x; })()?l4.value: l3.value) !== l3.value ? (function(v506){ return (function(v507){ return (v496 !== l3.value ? v507 : (function(v508){ - l186.fvalue(pv, l125.fvalue(pv, "var ", v508, " = ", v507)); + l187.fvalue(pv, l127.fvalue(pv, "var ", v508, " = ", v507)); return v508; - })(l222.fvalue(pv))); - })(l125.fvalue(pv, "[", l127.fvalue(pv, l70.fvalue(pv, (function(){ - var symbol = l223; + })(l223.fvalue(pv))); + })(l127.fvalue(pv, "[", l129.fvalue(pv, l72.fvalue(pv, (function(){ + var symbol = l224; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v506), ", "), "]")); - })(l130.fvalue(pv, v495)) : l3.value))))); + })(l132.fvalue(pv, v495)) : l3.value))))); })(); })); - return l223; + return l224; })(); -((l198).value = ({car: l43.fvalue(pv, l158, (function (values,v510){ +((l199).value = ({car: l43.fvalue(pv, l160, (function (values,v510){ checkArgs(arguments, 2); return (function(){ - return l223.fvalue(values, v510); + return l224.fvalue(values, v510); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l224 = {name: "%WHILE"}; -((l198).value = ({car: l43.fvalue(pv, l224, (function (values,v512){ +var l225 = {name: "%WHILE"}; +((l199).value = ({car: l43.fvalue(pv, l225, (function (values,v512){ checkArgsAtLeast(arguments, 2); var v511= l3.value; for (var i = arguments.length-1; i>=2; i--) v511 = {car: arguments[i], cdr: v511}; return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "while(", l138.fvalue(pv, v512), " !== ", l138.fvalue(pv, l3.value), "){", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "while(", l140.fvalue(pv, v512), " !== ", l140.fvalue(pv, l3.value), "){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l214.fvalue(pv, v511)), "}", "return ", l138.fvalue(pv, l3.value), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l215.fvalue(pv, v511)), "}", "return ", l140.fvalue(pv, l3.value), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l225 = {name: "SYMBOL-FUNCTION"}; -((l198).value = ({car: l43.fvalue(pv, l99, (function (values,v513){ +var l226 = {name: "SYMBOL-FUNCTION"}; +((l199).value = ({car: l43.fvalue(pv, l101, (function (values,v513){ checkArgs(arguments, 2); return (function(){ return ((l58.fvalue(pv, v513) !== l3.value ? (((function(){ var tmp = v513; return tmp === l3.value? l3.value: tmp.car; - })() === l5)?l4.value: l3.value) : l3.value) !== l3.value ? l213.fvalue(values, l33.fvalue(pv, v513), l35.fvalue(pv, v513)) : (((function(){ + })() === l5)?l4.value: l3.value) : l3.value) !== l3.value ? l214.fvalue(values, l33.fvalue(pv, v513), l35.fvalue(pv, v513)) : (((function(){ var tmp = v513; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l225), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, v513))))) : l3.value)); + })()?l4.value: l3.value) !== l3.value ? l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l226), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v513))))) : l3.value)); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l226 = {name: "*COMPILING-FILE*"}; +var l227 = {name: "*COMPILING-FILE*"}; (function(){ - (((l226.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l226).value = l3.value)); - return l226; + (((l227.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l227).value = l3.value)); + return l227; })(); -var l227 = {name: "EVAL-WHEN-COMPILE"}; -var l228 = {name: "EVAL"}; -var l229 = {name: "PROGN"}; -((l198).value = ({car: l43.fvalue(pv, l227, (function (values){ +var l228 = {name: "EVAL-WHEN-COMPILE"}; +var l229 = {name: "EVAL"}; +var l230 = {name: "PROGN"}; +((l199).value = ({car: l43.fvalue(pv, l228, (function (values){ var v514= l3.value; for (var i = arguments.length-1; i>=1; i--) v514 = {car: arguments[i], cdr: v514}; return (function(){ return ((function(){ - var symbol = l226; + var symbol = l227; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l3.value ? (function(){ - l228.fvalue(pv, ({car: l229, cdr: v514})); + l229.fvalue(pv, ({car: l230, cdr: v514})); return l3.value; - })() : l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l229), v514))); + })() : l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l230), v514))); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l230 = {name: "DEFINE-TRANSFORMATION"}; -l230; -((l198).value = ({car: l43.fvalue(pv, l229, (function (values){ +var l231 = {name: "DEFINE-TRANSFORMATION"}; +l231; +((l199).value = ({car: l43.fvalue(pv, l230, (function (values){ var v515= l3.value; for (var i = arguments.length-1; i>=1; i--) v515 = {car: arguments[i], cdr: @@ -4583,43 +4586,43 @@ l230; return (l12.fvalue(pv, (function(){ var tmp = v515; return tmp === l3.value? l3.value: tmp.cdr; - })()) !== l3.value ? l138.fvalue(values, (function(){ + })()) !== l3.value ? l140.fvalue(values, (function(){ var tmp = v515; return tmp === l3.value? l3.value: tmp.car; })(), (function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + })()) : l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l214.fvalue(pv, v515, l4.value)), "})()")); + })(), l138.fvalue(pv, l215.fvalue(pv, v515, l4.value)), "})()")); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l231 = {name: "SPECIAL-VARIABLE-P"}; +var l232 = {name: "SPECIAL-VARIABLE-P"}; (function(){ - (l231).fvalue = (function(v517){ + (l232).fvalue = (function(v517){ ((v517)["fname"] = "SPECIAL-VARIABLE-P"); return v517; })((function (values,v516){ checkArgs(arguments, 2); return (function(){ - return (l192.fvalue(pv, v516, l100, l194) !== l3.value ? l4.value : l3.value); + return (l193.fvalue(pv, v516, l102, l195) !== l3.value ? l4.value : l3.value); })(); })); - return l231; + return l232; })(); -var l232 = {name: "LET-BINDING-WRAPPER"}; +var l233 = {name: "LET-BINDING-WRAPPER"}; (function(){ - (l232).fvalue = (function(v524){ + (l233).fvalue = (function(v524){ ((v524)["fname"] = "LET-BINDING-WRAPPER"); return v524; })((function (values,v518,v519){ @@ -4630,21 +4633,21 @@ var l232 = {name: "LET-BINDING-WRAPPER"}; var values = mv; throw ({type: 'block', id: 195, values: v519, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) })() : l3.value); - return l125.fvalue(values, "try {", (function(){ - var symbol = l124; + return l127.fvalue(values, "try {", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tmp;", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tmp;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l129.fvalue(pv, (function (values,v520){ + })(), l131.fvalue(pv, (function (values,v520){ checkArgs(arguments, 2); return (function(v521){ - return l125.fvalue(values, "tmp = ", v521, ".value;", (function(){ - var symbol = l124; + return l127.fvalue(values, "tmp = ", v521, ".value;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4652,7 +4655,7 @@ var l232 = {name: "LET-BINDING-WRAPPER"}; var tmp = v520; return tmp === l3.value? l3.value: tmp.cdr; })(), ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4660,48 +4663,48 @@ var l232 = {name: "LET-BINDING-WRAPPER"}; var tmp = v520; return tmp === l3.value? l3.value: tmp.cdr; })(), " = tmp;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, (function(){ + })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){ var tmp = v520; return tmp === l3.value? l3.value: tmp.car; })())))); }), v518), v519, (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "finally {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l129.fvalue(pv, (function (values,v522){ + })(), l138.fvalue(pv, l131.fvalue(pv, (function (values,v522){ checkArgs(arguments, 2); return (function(v523){ - return l125.fvalue(values, v523, ".value", " = ", (function(){ + return l127.fvalue(values, v523, ".value", " = ", (function(){ var tmp = v522; return tmp === l3.value? l3.value: tmp.cdr; })(), ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, (function(){ + })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){ var tmp = v522; return tmp === l3.value? l3.value: tmp.car; })())))); }), v518)), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4715,11 +4718,10 @@ var l232 = {name: "LET-BINDING-WRAPPER"}; } })(); })); - return l232; + return l233; })(); -var l233 = {name: "LET"}; -var l234 = {name: "DYNAMIC-BINDINGS"}; -((l198).value = ({car: l43.fvalue(pv, l233, (function (values,v526){ +var l234 = {name: "LET"}; +((l199).value = ({car: l43.fvalue(pv, l234, (function (values,v526){ checkArgsAtLeast(arguments, 2); var v525= l3.value; for (var i = arguments.length-1; i>=2; i--) @@ -4728,59 +4730,59 @@ var l234 = {name: "DYNAMIC-BINDINGS"}; return (function(){ return (function(){ try { - var v534 = l179.value; - var v527 = l70.fvalue(pv, (function(){ + var v534 = l181.value; + var v527 = l72.fvalue(pv, (function(){ var symbol = l57; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v526); - var v528 = l70.fvalue(pv, (function(){ + var v528 = l72.fvalue(pv, (function(){ var symbol = l39; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v527); - var v529 = l70.fvalue(pv, (function(){ - var symbol = l138; + var v529 = l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l70.fvalue(pv, (function(){ + })(), l72.fvalue(pv, (function(){ var symbol = l40; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v527)); - ((l179).value = l183.fvalue(pv, l85.fvalue(pv, (function(){ - var symbol = l231; + ((l181).value = l185.fvalue(pv, l87.fvalue(pv, (function(){ + var symbol = l232; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v528))); var v530 = l3.value; - return l125.fvalue(values, "(function(", l127.fvalue(pv, l70.fvalue(pv, (function (values,v531){ + return l127.fvalue(values, "(function(", l129.fvalue(pv, l72.fvalue(pv, (function (values,v531){ checkArgs(arguments, 2); - return (l231.fvalue(pv, v531) !== l3.value ? (function(v532){ - ((l234).value = ({car: ({car: v531, cdr: v532}), cdr: v530})); + return (l232.fvalue(pv, v531) !== l3.value ? (function(v532){ + (v530 = ({car: ({car: v531, cdr: v532}), cdr: v530})); return v532; - })(l181.fvalue(pv, v531)) : l182.fvalue(values, v531)); + })(l183.fvalue(pv, v531)) : l184.fvalue(values, v531)); }), v528), ","), "){", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(v533){ - return l136.fvalue(pv, l232.fvalue(pv, v530, v533)); - })(l214.fvalue(pv, v525, l4.value)), "})(", l127.fvalue(pv, v529, ","), ")"); + return l138.fvalue(pv, l233.fvalue(pv, v530, v533)); + })(l215.fvalue(pv, v525, l4.value)), "})(", l129.fvalue(pv, v529, ","), ")"); } finally { - l179.value = v534; + l181.value = v534; } })(); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4794,24 +4796,24 @@ var l235 = {name: "LET*-INITIALIZE-VALUE"}; checkArgs(arguments, 2); return (function(){ return (function(v536,v537){ - return (l231.fvalue(pv, v536) !== l3.value ? l125.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l217), l43.fvalue(pv, v536), l43.fvalue(pv, v537))), ";", (function(){ - var symbol = l124; + return (l232.fvalue(pv, v536) !== l3.value ? l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l218), l43.fvalue(pv, v536), l43.fvalue(pv, v537))), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : (function(){ - var v538 = l181.fvalue(pv, v536); - var v539 = l164.fvalue(pv, v536, l100, v538); + var v538 = l183.fvalue(pv, v536); + var v539 = l166.fvalue(pv, v536, l102, v538); return (function(v540){ - l174.fvalue(pv, v539, (function(){ - var symbol = l179; + l176.fvalue(pv, v539, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l100); + })(), l102); return v540; - })(l125.fvalue(pv, "var ", v538, " = ", l138.fvalue(pv, v537), ";", (function(){ - var symbol = l124; + })(l127.fvalue(pv, "var ", v538, " = ", l140.fvalue(pv, v537), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4836,64 +4838,64 @@ var l236 = {name: "LET*-BINDING-WRAPPER"}; throw ({type: 'block', id: 198, values: v543, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) })() : l3.value); return (function(v545){ - return l125.fvalue(values, "try {", (function(){ - var symbol = l124; + return l127.fvalue(values, "try {", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l129.fvalue(pv, (function (values,v546){ + })(), l138.fvalue(pv, l131.fvalue(pv, (function (values,v546){ checkArgs(arguments, 2); return (function(v547){ - return l125.fvalue(values, "var ", (function(){ + return l127.fvalue(values, "var ", (function(){ var tmp = v546; return tmp === l3.value? l3.value: tmp.cdr; })(), " = ", v547, ".value;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, (function(){ + })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){ var tmp = v546; return tmp === l3.value? l3.value: tmp.car; })())))); }), v545), v543), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "finally {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l129.fvalue(pv, (function (values,v548){ + })(), l138.fvalue(pv, l131.fvalue(pv, (function (values,v548){ checkArgs(arguments, 2); return (function(v549){ - return l125.fvalue(values, v549, ".value", " = ", (function(){ + return l127.fvalue(values, v549, ".value", " = ", (function(){ var tmp = v548; return tmp === l3.value? l3.value: tmp.cdr; })(), ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, (function(){ + })(l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){ var tmp = v548; return tmp === l3.value? l3.value: tmp.car; })())))); }), v545)), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l70.fvalue(pv, (function (values,v544){ + })(l72.fvalue(pv, (function (values,v544){ checkArgs(arguments, 2); - return ({car: v544, cdr: l181.fvalue(pv, v544)}); - }), l86.fvalue(pv, (function(){ - var symbol = l231; + return ({car: v544, cdr: l183.fvalue(pv, v544)}); + }), l88.fvalue(pv, (function(){ + var symbol = l232; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -4910,7 +4912,7 @@ var l236 = {name: "LET*-BINDING-WRAPPER"}; return l236; })(); var l237 = {name: "LET*"}; -((l198).value = ({car: l43.fvalue(pv, l237, (function (values,v552){ +((l199).value = ({car: l43.fvalue(pv, l237, (function (values,v552){ checkArgsAtLeast(arguments, 2); var v551= l3.value; for (var i = arguments.length-1; i>=2; i--) @@ -4920,50 +4922,50 @@ var l237 = {name: "LET*"}; return (function(v553,v554){ try { var tmp; - tmp = l179.value; - l179.value = v554; + tmp = l181.value; + l181.value = v554; v554 = tmp; - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, (function(v555,v556){ + })(), l138.fvalue(pv, (function(v555,v556){ return l236.fvalue(pv, v555, v556); - })(l86.fvalue(pv, (function(){ - var symbol = l231; + })(l88.fvalue(pv, (function(){ + var symbol = l232; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l70.fvalue(pv, (function(){ + })(), l72.fvalue(pv, (function(){ var symbol = l39; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v553)),l125.fvalue(pv, l129.fvalue(pv, (function(){ + })(), v553)),l127.fvalue(pv, l131.fvalue(pv, (function(){ var symbol = l235; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v553), l214.fvalue(pv, v551, l4.value)))), "})()"); + })(), v553), l215.fvalue(pv, v551, l4.value)))), "})()"); } finally { - l179.value = v554; + l181.value = v554; } - })(l70.fvalue(pv, (function(){ + })(l72.fvalue(pv, (function(){ var symbol = l57; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v552),l173.fvalue(pv, (function(){ - var symbol = l179; + })(), v552),l175.fvalue(pv, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -4975,7 +4977,7 @@ var l238 = {name: "*BLOCK-COUNTER*"}; })(); var l239 = {name: "MULTIPLE-VALUE"}; var l240 = {name: "USED"}; -((l198).value = ({car: l43.fvalue(pv, l175, (function (values,v558){ +((l199).value = ({car: l43.fvalue(pv, l177, (function (values,v558){ checkArgsAtLeast(arguments, 2); var v557= l3.value; for (var i = arguments.length-1; i>=2; i--) @@ -4995,94 +4997,94 @@ var l240 = {name: "USED"}; if (typeof x2 !== 'number') throw 'Not a number!'; return x1+x2; })())); - var v560 = l164.fvalue(pv, v558, l175, v559); + var v560 = l166.fvalue(pv, v558, l177, v559); ((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? l171.fvalue(pv, l239, v560) : l3.value); + })() !== l3.value ? l173.fvalue(pv, l239, v560) : l3.value); return (function(){ try { - var v562 = l179.value; - ((l179).value = l177.fvalue(pv, l43.fvalue(pv, v560), (function(){ - var symbol = l179; + var v562 = l181.value; + ((l181).value = l179.fvalue(pv, l43.fvalue(pv, v560), (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l175)); - var v561 = l214.fvalue(pv, v557, l4.value); - return (l83.fvalue(pv, l240, l168.fvalue(pv, v560)) !== l3.value ? l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + })(), l177)); + var v561 = l215.fvalue(pv, v557, l4.value); + return (l85.fvalue(pv, l240, l170.fvalue(pv, v560)) !== l3.value ? l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "try {", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "try {", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, v561), "}", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, v561), "}", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "catch (cf){", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " if (cf.type == 'block' && cf.id == ", v559, ")", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), ((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l3.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " else", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " throw cf;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()") : l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + })()), "})()") : l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, v561), "})()")); + })(), l138.fvalue(pv, v561), "})()")); } finally { - l179.value = v562; + l181.value = v562; } })(); })(); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l241 = {name: "RETURN-FROM"}; -((l198).value = ({car: l43.fvalue(pv, l241, (function (values,v563,v564){ +((l199).value = ({car: l43.fvalue(pv, l241, (function (values,v563,v564){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); switch(arguments.length-1){ @@ -5092,130 +5094,130 @@ var l241 = {name: "RETURN-FROM"}; } return (function(){ return (function(){ - var v565 = l178.fvalue(pv, v563, (function(){ - var symbol = l179; + var v565 = l180.fvalue(pv, v563, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l175); - var v566 = l83.fvalue(pv, l239, l168.fvalue(pv, v565)); + })(), l177); + var v566 = l85.fvalue(pv, l239, l170.fvalue(pv, v565)); (l12.fvalue(pv, v565) !== l3.value ? (function(){ - throw l125.fvalue(pv, "Unknown block `", (v563).name, "'."); + throw l127.fvalue(pv, "Unknown block `", (v563).name, "'."); })() : l3.value); - l171.fvalue(pv, l240, v565); - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + l173.fvalue(pv, l240, v565); + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, (v566 !== l3.value ? l125.fvalue(pv, "var values = mv;", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, (v566 !== l3.value ? l127.fvalue(pv, "var values = mv;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : ""), "throw ({", "type: 'block', ", "id: ", l167.fvalue(pv, v565), ", ", "values: ", l138.fvalue(pv, v564, v566), ", ", "message: 'Return from unknown block ", (v563).name, ".'", "})"), "})()"); + })()) : ""), "throw ({", "type: 'block', ", "id: ", l169.fvalue(pv, v565), ", ", "values: ", l140.fvalue(pv, v564, v566), ", ", "message: 'Return from unknown block ", (v563).name, ".'", "})"), "})()"); })(); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l242 = {name: "CATCH"}; -((l198).value = ({car: l43.fvalue(pv, l242, (function (values,v568){ +((l199).value = ({car: l43.fvalue(pv, l242, (function (values,v568){ checkArgsAtLeast(arguments, 2); var v567= l3.value; for (var i = arguments.length-1; i>=2; i--) v567 = {car: arguments[i], cdr: v567}; return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var id = ", l138.fvalue(pv, v568), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var id = ", l140.fvalue(pv, v568), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "try {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l214.fvalue(pv, v567, l4.value)), (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l215.fvalue(pv, v567, l4.value)), (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "catch (cf){", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " if (cf.type == 'catch' && cf.id == id)", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), ((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l3.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " else", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " throw cf;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l243 = {name: "THROW"}; -((l198).value = ({car: l43.fvalue(pv, l243, (function (values,v569,v570){ +((l199).value = ({car: l43.fvalue(pv, l243, (function (values,v569,v570){ checkArgs(arguments, 3); return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var values = mv;", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var values = mv;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "throw ({", "type: 'catch', ", "id: ", l138.fvalue(pv, v569), ", ", "values: ", l138.fvalue(pv, v570, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); + })(), "throw ({", "type: 'catch', ", "id: ", l140.fvalue(pv, v569), ", ", "values: ", l140.fvalue(pv, v570, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5243,7 +5245,7 @@ var l246 = {name: "GO-TAG-P"}; var tmp = v571; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l3.value)); - })(l76.fvalue(pv, v571)); + })(l78.fvalue(pv, v571)); })(); })); return l246; @@ -5257,16 +5259,16 @@ var l247 = {name: "DECLARE-TAGBODY-TAGS"}; checkArgs(arguments, 3); return (function(){ return (function(v578){ - return l177.fvalue(values, v578, (function(){ - var symbol = l179; + return l179.fvalue(values, v578, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l176); - })(l70.fvalue(pv, (function (values,v576){ + })(), l178); + })(l72.fvalue(pv, (function (values,v576){ checkArgs(arguments, 2); return (function(v577){ - return l164.fvalue(values, v576, l176, l43.fvalue(pv, v574, v577)); + return l166.fvalue(values, v576, l178, l43.fvalue(pv, v574, v577)); })(l17.fvalue(pv, ((l245).value = (function(){ var x1 = (function(){ var symbol = l245; @@ -5279,7 +5281,7 @@ var l247 = {name: "DECLARE-TAGBODY-TAGS"}; if (typeof x2 !== 'number') throw 'Not a number!'; return x1+x2; })()))); - }), l86.fvalue(pv, (function(){ + }), l88.fvalue(pv, (function(){ var symbol = l246; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; @@ -5290,21 +5292,21 @@ var l247 = {name: "DECLARE-TAGBODY-TAGS"}; return l247; })(); var l248 = {name: "TAGBODY"}; -((l198).value = ({car: l43.fvalue(pv, l248, (function (values){ +((l199).value = ({car: l43.fvalue(pv, l248, (function (values){ var v580= l3.value; for (var i = arguments.length-1; i>=1; i--) v580 = {car: arguments[i], cdr: v580}; return (function(){ try { - (l90.fvalue(pv, (function(){ + (l92.fvalue(pv, (function(){ var symbol = l246; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v580) !== l3.value ? l3.value : (function(){ var values = mv; - throw ({type: 'block', id: 206, values: l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l229), v580, l43.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'}) + throw ({type: 'block', id: 206, values: l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l230), v580, l43.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'}) })()); (l246.fvalue(pv, (function(){ var tmp = v580; @@ -5314,50 +5316,50 @@ var l248 = {name: "TAGBODY"}; return (function(v583,v582){ try { var tmp; - tmp = l179.value; - l179.value = v583; + tmp = l181.value; + l181.value = v583; v583 = tmp; (function(v584){ - return (v582 = l40.fvalue(pv, l167.fvalue(pv, v584))); - })(l178.fvalue(pv, l39.fvalue(pv, v580), (function(){ - var symbol = l179; + return (v582 = l40.fvalue(pv, l169.fvalue(pv, v584))); + })(l180.fvalue(pv, l39.fvalue(pv, v580), (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l176)); - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + })(), l178)); + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tagbody_", v581, " = ", v582, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tagbody_", v581, " = ", v582, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "tbloop:", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "while (true) {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "try {", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "try {", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, (function(v585){ - return l125.fvalue(pv, "switch(tagbody_", v581, "){", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, (function(v585){ + return l127.fvalue(pv, "switch(tagbody_", v581, "){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "case ", v582, ":", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5370,24 +5372,24 @@ var l248 = {name: "TAGBODY"}; return tmp === l3.value? l3.value: tmp.car; })()); (function(){ - (v585 = l125.fvalue(pv, v585, (l27.fvalue(pv, l246.fvalue(pv, v587)) !== l3.value ? l136.fvalue(pv, l138.fvalue(pv, v587), ";", (function(){ - var symbol = l124; + (v585 = l127.fvalue(pv, v585, (l27.fvalue(pv, l246.fvalue(pv, v587)) !== l3.value ? l138.fvalue(pv, l140.fvalue(pv, v587), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : (function(v588){ - return l125.fvalue(pv, "case ", l40.fvalue(pv, l167.fvalue(pv, v588)), ":", (function(){ - var symbol = l124; + return l127.fvalue(pv, "case ", l40.fvalue(pv, l169.fvalue(pv, v588)), ":", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l178.fvalue(pv, v587, (function(){ - var symbol = l179; + })(l180.fvalue(pv, v587, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l176))))); + })(), l178))))); return l3.value; })(); (v586 = (function(){ @@ -5402,70 +5404,70 @@ var l248 = {name: "TAGBODY"}; return tmp === l3.value? l3.value: tmp.cdr; })(),l3.value); })(), "default:", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " break tbloop;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })("")), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "catch (jump) {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " if (jump.type == 'tagbody' && jump.id == ", v581, ")", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " tagbody_", v581, " = jump.label;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " else", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " throw(jump);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return ", l138.fvalue(pv, l3.value), ";", (function(){ - var symbol = l124; + })(), "return ", l140.fvalue(pv, l3.value), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); } finally { - l179.value = v583; + l181.value = v583; } })(l247.fvalue(pv, v581, v580),l3.value); })(l17.fvalue(pv, (function(){ @@ -5483,217 +5485,217 @@ var l248 = {name: "TAGBODY"}; } })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l249 = {name: "GO"}; -((l198).value = ({car: l43.fvalue(pv, l249, (function (values,v589){ +((l199).value = ({car: l43.fvalue(pv, l249, (function (values,v589){ checkArgs(arguments, 2); return (function(){ return (function(v590,v591){ - return (v590 !== l3.value ? l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return (v590 !== l3.value ? l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l167.fvalue(pv, v590)), ", ", "label: ", l40.fvalue(pv, l167.fvalue(pv, v590)), ", ", "message: 'Attempt to GO to non-existing tag ", v591, "'", "})", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l169.fvalue(pv, v590)), ", ", "label: ", l40.fvalue(pv, l169.fvalue(pv, v590)), ", ", "message: 'Attempt to GO to non-existing tag ", v591, "'", "})", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()") : (function(){ - throw l125.fvalue(pv, "Unknown tag `", v591, "'."); + throw l127.fvalue(pv, "Unknown tag `", v591, "'."); })()); - })(l178.fvalue(pv, v589, (function(){ - var symbol = l179; + })(l180.fvalue(pv, v589, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l176),(((function(){ + })(), l178),(((function(){ var tmp = v589; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? (v589).name : (l76.fvalue(pv, v589) !== l3.value ? l17.fvalue(pv, v589) : l3.value))); + })()?l4.value: l3.value) !== l3.value ? (v589).name : (l78.fvalue(pv, v589) !== l3.value ? l17.fvalue(pv, v589) : l3.value))); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l250 = {name: "UNWIND-PROTECT"}; -((l198).value = ({car: l43.fvalue(pv, l250, (function (values,v593){ +((l199).value = ({car: l43.fvalue(pv, l250, (function (values,v593){ checkArgsAtLeast(arguments, 2); var v592= l3.value; for (var i = arguments.length-1; i>=2; i--) v592 = {car: arguments[i], cdr: v592}; return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var ret = ", l138.fvalue(pv, l3.value), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var ret = ", l140.fvalue(pv, l3.value), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "try {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "ret = ", l138.fvalue(pv, v593), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "ret = ", l140.fvalue(pv, v593), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "} finally {", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l214.fvalue(pv, v592)), "}", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l215.fvalue(pv, v592)), "}", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return ret;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l251 = {name: "MULTIPLE-VALUE-CALL"}; -((l198).value = ({car: l43.fvalue(pv, l251, (function (values,v595){ +((l199).value = ({car: l43.fvalue(pv, l251, (function (values,v595){ checkArgsAtLeast(arguments, 2); var v594= l3.value; for (var i = arguments.length-1; i>=2; i--) v594 = {car: arguments[i], cdr: v594}; return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var func = ", l138.fvalue(pv, v595), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var func = ", l140.fvalue(pv, v595), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var args = [", ((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l3.value ? "values" : "pv"), "];", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return ", l125.fvalue(pv, "(function(){", (function(){ - var symbol = l124; + })(), "return ", l127.fvalue(pv, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var values = mv;", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var values = mv;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var vs;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l129.fvalue(pv, (function (values,v596){ + })(), l131.fvalue(pv, (function (values,v596){ checkArgs(arguments, 2); - return l125.fvalue(values, "vs = ", l138.fvalue(pv, v596, l4.value), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "vs = ", l140.fvalue(pv, v596, l4.value), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "args = args.concat(vs);", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "args = args.concat(vs);", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "else", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "args.push(vs);", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "args.push(vs);", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); }), v594), "return func.apply(window, args);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"), ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); var l252 = {name: "MULTIPLE-VALUE-PROG1"}; -((l198).value = ({car: l43.fvalue(pv, l252, (function (values,v598){ +((l199).value = ({car: l43.fvalue(pv, l252, (function (values,v598){ checkArgsAtLeast(arguments, 2); var v597= l3.value; for (var i = arguments.length-1; i>=2; i--) v597 = {car: arguments[i], cdr: v597}; return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var args = ", l138.fvalue(pv, v598, (function(){ - var symbol = l163; + })(), l138.fvalue(pv, "var args = ", l140.fvalue(pv, v598, (function(){ + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l214.fvalue(pv, v597), "return args;", (function(){ - var symbol = l124; + })(), l215.fvalue(pv, v597), "return args;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5709,24 +5711,24 @@ var l253 = {name: "BACKQUOTE-EXPAND-1"}; return (((function(){ var tmp = v599; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? l43.fvalue(values, l158, v599) : (l44.fvalue(pv, v599) !== l3.value ? v599 : ((((function(){ + })()?l4.value: l3.value) !== l3.value ? l43.fvalue(values, l160, v599) : (l44.fvalue(pv, v599) !== l3.value ? v599 : ((((function(){ var tmp = v599; return tmp === l3.value? l3.value: tmp.car; - })() === l161)?l4.value: l3.value) !== l3.value ? (function(){ + })() === l163)?l4.value: l3.value) !== l3.value ? (function(){ var tmp = v599; return tmp === l3.value? l3.value: tmp.car; })() : ((((function(){ var tmp = v599; return tmp === l3.value? l3.value: tmp.car; - })() === l159)?l4.value: l3.value) !== l3.value ? l253.fvalue(values, l253.fvalue(pv, l33.fvalue(pv, v599))) : ({car: l63, cdr: l70.fvalue(pv, (function (values,v600){ + })() === l161)?l4.value: l3.value) !== l3.value ? l253.fvalue(values, l253.fvalue(pv, l33.fvalue(pv, v599))) : ({car: l63, cdr: l72.fvalue(pv, (function (values,v600){ checkArgs(arguments, 2); return ((l58.fvalue(pv, v600) !== l3.value ? (((function(){ var tmp = v600; return tmp === l3.value? l3.value: tmp.car; - })() === l161)?l4.value: l3.value) : l3.value) !== l3.value ? l43.fvalue(values, l43, l33.fvalue(pv, v600)) : ((l58.fvalue(pv, v600) !== l3.value ? (((function(){ + })() === l163)?l4.value: l3.value) : l3.value) !== l3.value ? l43.fvalue(values, l43, l33.fvalue(pv, v600)) : ((l58.fvalue(pv, v600) !== l3.value ? (((function(){ var tmp = v600; return tmp === l3.value? l3.value: tmp.car; - })() === l160)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v600) : l43.fvalue(values, l43, l253.fvalue(pv, v600)))); + })() === l162)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v600) : l43.fvalue(values, l43, l253.fvalue(pv, v600)))); }), v599)}))))); })(); })); @@ -5743,19 +5745,19 @@ var l254 = {name: "BACKQUOTE-EXPAND"}; return ((l58.fvalue(pv, v602) !== l3.value ? (((function(){ var tmp = v602; return tmp === l3.value? l3.value: tmp.car; - })() === l159)?l4.value: l3.value) : l3.value) !== l3.value ? l253.fvalue(values, l33.fvalue(pv, v602)) : v602); + })() === l161)?l4.value: l3.value) : l3.value) !== l3.value ? l253.fvalue(values, l33.fvalue(pv, v602)) : v602); })(); })); return l254; })(); -l159; -((l198).value = ({car: l43.fvalue(pv, l159, (function (values,v604){ +l161; +((l199).value = ({car: l43.fvalue(pv, l161, (function (values,v604){ checkArgs(arguments, 2); return (function(){ - return l138.fvalue(values, l253.fvalue(pv, v604)); + return l140.fvalue(values, l253.fvalue(pv, v604)); })(); })), cdr: (function(){ - var symbol = l198; + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5797,18 +5799,18 @@ var l259 = {name: "VARIABLE-ARITY-CALL"}; (function(){ (function(v612){ (v608 = ({car: v612, cdr: v608})); - return (v609 = l125.fvalue(pv, v609, l125.fvalue(pv, "var ", v612, " = ", l138.fvalue(pv, v611), ";", (function(){ - var symbol = l124; + return (v609 = l127.fvalue(pv, v609, l127.fvalue(pv, "var ", v612, " = ", l140.fvalue(pv, v611), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (typeof ", v612, " !== 'number') throw 'Not a number!';", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()))); - })(l125.fvalue(pv, "x", l17.fvalue(pv, (v607 = (function(){ + })(l127.fvalue(pv, "x", l17.fvalue(pv, (v607 = (function(){ var x1 = v607; if (typeof x1 !== 'number') throw 'Not a number!'; var x2 = 1; @@ -5826,12 +5828,12 @@ var l259 = {name: "VARIABLE-ARITY-CALL"}; return l3.value; })(v605,l3.value); })(); - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, v609, (v606)(pv, l65.fvalue(pv, v608))), "})()"); + })(), l138.fvalue(pv, v609, (v606)(pv, l65.fvalue(pv, v608))), "})()"); })(0,l3,""); })(); })); @@ -5847,43 +5849,43 @@ var l261 = {name: "NUM-OP-NUM"}; })((function (values,v614,v615,v616){ checkArgs(arguments, 4); return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v614, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v614, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "var ", "y", " = ", v616, ";", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "var ", "y", " = ", v616, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", l125.fvalue(pv, "x", v615, "y"), ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "x", v615, "y"), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5900,8 +5902,8 @@ var l261 = {name: "NUM-OP-NUM"}; return (function(){ return (l12.fvalue(pv, v618) !== l3.value ? "0" : l259.fvalue(values, v618, (function (values,v619){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l127.fvalue(pv, v619, "+"), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l129.fvalue(pv, v619, "+"), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5924,11 +5926,11 @@ var l261 = {name: "NUM-OP-NUM"}; return (function(v622){ return l259.fvalue(values, v622, (function (values,v623){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", (l12.fvalue(pv, v620) !== l3.value ? l125.fvalue(pv, "-", (function(){ + return l127.fvalue(values, "return ", (l12.fvalue(pv, v620) !== l3.value ? l127.fvalue(pv, "-", (function(){ var tmp = v623; return tmp === l3.value? l3.value: tmp.car; - })()) : l127.fvalue(pv, v623, "-")), ";", (function(){ - var symbol = l124; + })()) : l129.fvalue(pv, v623, "-")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5950,8 +5952,8 @@ var l261 = {name: "NUM-OP-NUM"}; return (function(){ return (l12.fvalue(pv, v624) !== l3.value ? "1" : l259.fvalue(values, v624, (function (values,v625){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l127.fvalue(pv, v625, "*"), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l129.fvalue(pv, v625, "*"), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5974,11 +5976,11 @@ var l261 = {name: "NUM-OP-NUM"}; return (function(v628){ return l259.fvalue(values, v628, (function (values,v629){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", (l12.fvalue(pv, v626) !== l3.value ? l125.fvalue(pv, "1 /", (function(){ + return l127.fvalue(values, "return ", (l12.fvalue(pv, v626) !== l3.value ? l127.fvalue(pv, "1 /", (function(){ var tmp = v629; return tmp === l3.value? l3.value: tmp.car; - })()) : l127.fvalue(pv, v629, "/")), ";", (function(){ - var symbol = l124; + })()) : l129.fvalue(pv, v629, "/")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5998,7 +6000,7 @@ var l262 = {name: "MOD"}; return (function(){ return (function(v632,v633){ return l261.fvalue(values, v632, "%", v633); - })(l138.fvalue(pv, v630),l138.fvalue(pv, v631)); + })(l140.fvalue(pv, v630),l140.fvalue(pv, v631)); })(); })), cdr: (function(){ var symbol = l255; @@ -6017,10 +6019,10 @@ var l263 = {name: "COMPARISON-CONJUNTION"}; return (l12.fvalue(pv, (function(){ var tmp = v634; return tmp === l3.value? l3.value: tmp.cdr; - })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v634)) !== l3.value ? l125.fvalue(values, (function(){ + })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v634)) !== l3.value ? l127.fvalue(values, (function(){ var tmp = v634; return tmp === l3.value? l3.value: tmp.car; - })(), v635, l33.fvalue(pv, v634)) : l125.fvalue(values, (function(){ + })(), v635, l33.fvalue(pv, v634)) : l127.fvalue(values, (function(){ var tmp = v634; return tmp === l3.value? l3.value: tmp.car; })(), v635, l33.fvalue(pv, v634), " && ", l263.fvalue(pv, (function(){ @@ -6044,8 +6046,8 @@ var l265 = {name: ">"}; return (function(v639){ return l259.fvalue(values, v639, (function (values,v640){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v640, ">")), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v640, ">")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6070,8 +6072,8 @@ var l266 = {name: "<"}; return (function(v643){ return l259.fvalue(values, v643, (function (values,v644){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v644, "<")), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v644, "<")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6096,8 +6098,8 @@ var l267 = {name: ">="}; return (function(v647){ return l259.fvalue(values, v647, (function (values,v648){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v648, ">=")), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v648, ">=")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6122,8 +6124,8 @@ var l268 = {name: "<="}; return (function(v651){ return l259.fvalue(values, v651, (function (values,v652){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v652, "<=")), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v652, "<=")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6147,8 +6149,8 @@ var l268 = {name: "<="}; return (function(v655){ return l259.fvalue(values, v655, (function (values,v656){ checkArgs(arguments, 2); - return l125.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v656, "==")), ";", (function(){ - var symbol = l124; + return l127.fvalue(values, "return ", l139.fvalue(pv, l263.fvalue(pv, v656, "==")), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6167,8 +6169,8 @@ var l269 = {name: "NUMBERP"}; checkArgs(arguments, 2); return (function(){ return (function(v658){ - return l137.fvalue(values, l125.fvalue(pv, "(typeof (", v658, ") == \"number\")")); - })(l138.fvalue(pv, v657)); + return l139.fvalue(values, l127.fvalue(pv, "(typeof (", v658, ") == \"number\")")); + })(l140.fvalue(pv, v657)); })(); })), cdr: (function(){ var symbol = l255; @@ -6181,33 +6183,33 @@ var l270 = {name: "FLOOR"}; checkArgs(arguments, 2); return (function(){ return (function(v660){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v660, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v660, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v659)); + })(l140.fvalue(pv, v659)); })(); })), cdr: (function(){ var symbol = l255; @@ -6219,8 +6221,8 @@ var l270 = {name: "FLOOR"}; checkArgs(arguments, 3); return (function(){ return (function(v663,v664){ - return l125.fvalue(values, "({car: ", v663, ", cdr: ", v664, "})"); - })(l138.fvalue(pv, v661),l138.fvalue(pv, v662)); + return l127.fvalue(values, "({car: ", v663, ", cdr: ", v664, "})"); + })(l140.fvalue(pv, v661),l140.fvalue(pv, v662)); })(); })), cdr: (function(){ var symbol = l255; @@ -6232,23 +6234,23 @@ var l270 = {name: "FLOOR"}; checkArgs(arguments, 2); return (function(){ return (function(v666){ - return l137.fvalue(values, l125.fvalue(pv, "(function(){", (function(){ - var symbol = l124; + return l139.fvalue(values, l127.fvalue(pv, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tmp = ", v666, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tmp = ", v666, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l138.fvalue(pv, v665)); + })(l140.fvalue(pv, v665)); })(); })), cdr: (function(){ var symbol = l255; @@ -6260,23 +6262,23 @@ var l270 = {name: "FLOOR"}; checkArgs(arguments, 2); return (function(){ return (function(v668){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tmp = ", v668, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tmp = ", v668, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp === ", l138.fvalue(pv, l3.value), "? ", l138.fvalue(pv, l3.value), ": tmp.car;", (function(){ - var symbol = l124; + })(), "return tmp === ", l140.fvalue(pv, l3.value), "? ", l140.fvalue(pv, l3.value), ": tmp.car;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v667)); + })(l140.fvalue(pv, v667)); })(); })), cdr: (function(){ var symbol = l255; @@ -6288,23 +6290,23 @@ var l270 = {name: "FLOOR"}; checkArgs(arguments, 2); return (function(){ return (function(v670){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tmp = ", v670, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tmp = ", v670, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp === ", l138.fvalue(pv, l3.value), "? ", l138.fvalue(pv, l3.value), ": tmp.cdr;", (function(){ - var symbol = l124; + })(), "return tmp === ", l140.fvalue(pv, l3.value), "? ", l140.fvalue(pv, l3.value), ": tmp.cdr;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v669)); + })(l140.fvalue(pv, v669)); })(); })), cdr: (function(){ var symbol = l255; @@ -6317,33 +6319,33 @@ var l271 = {name: "RPLACA"}; checkArgs(arguments, 3); return (function(){ return (function(v673,v674){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v673, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v673, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", l125.fvalue(pv, "(x.car = ", v674, ", x)"), ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "(x.car = ", v674, ", x)"), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v671),l138.fvalue(pv, v672)); + })(l140.fvalue(pv, v671),l140.fvalue(pv, v672)); })(); })), cdr: (function(){ var symbol = l255; @@ -6356,33 +6358,33 @@ var l272 = {name: "RPLACD"}; checkArgs(arguments, 3); return (function(){ return (function(v677,v678){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v677, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v677, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", l125.fvalue(pv, "(x.cdr = ", v678, ", x)"), ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "(x.cdr = ", v678, ", x)"), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v675),l138.fvalue(pv, v676)); + })(l140.fvalue(pv, v675),l140.fvalue(pv, v676)); })(); })), cdr: (function(){ var symbol = l255; @@ -6395,23 +6397,23 @@ var l273 = {name: "SYMBOLP"}; checkArgs(arguments, 2); return (function(){ return (function(v680){ - return l137.fvalue(values, l125.fvalue(pv, "(function(){", (function(){ - var symbol = l124; + return l139.fvalue(values, l127.fvalue(pv, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tmp = ", v680, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tmp = ", v680, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l138.fvalue(pv, v679)); + })(l140.fvalue(pv, v679)); })(); })), cdr: (function(){ var symbol = l255; @@ -6424,33 +6426,33 @@ var l274 = {name: "MAKE-SYMBOL"}; checkArgs(arguments, 2); return (function(){ return (function(v682){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "name", " = ", v682, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "name", " = ", v682, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "({name: name})", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "({name: name})", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v681)); + })(l140.fvalue(pv, v681)); })(); })), cdr: (function(){ var symbol = l255; @@ -6463,8 +6465,8 @@ var l275 = {name: "SYMBOL-NAME"}; checkArgs(arguments, 2); return (function(){ return (function(v684){ - return l125.fvalue(values, "(", v684, ").name"); - })(l138.fvalue(pv, v683)); + return l127.fvalue(values, "(", v684, ").name"); + })(l140.fvalue(pv, v683)); })(); })), cdr: (function(){ var symbol = l255; @@ -6472,12 +6474,12 @@ var l275 = {name: "SYMBOL-NAME"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l255).value = ({car: l43.fvalue(pv, l216, (function (values,v685,v686){ +((l255).value = ({car: l43.fvalue(pv, l217, (function (values,v685,v686){ checkArgs(arguments, 3); return (function(){ return (function(v687,v688){ - return l125.fvalue(values, "(", v687, ").value = ", v688); - })(l138.fvalue(pv, v685),l138.fvalue(pv, v686)); + return l127.fvalue(values, "(", v687, ").value = ", v688); + })(l140.fvalue(pv, v685),l140.fvalue(pv, v686)); })(); })), cdr: (function(){ var symbol = l255; @@ -6490,8 +6492,8 @@ var l276 = {name: "FSET"}; checkArgs(arguments, 3); return (function(){ return (function(v691,v692){ - return l125.fvalue(values, "(", v691, ").fvalue = ", v692); - })(l138.fvalue(pv, v689),l138.fvalue(pv, v690)); + return l127.fvalue(values, "(", v691, ").fvalue = ", v692); + })(l140.fvalue(pv, v689),l140.fvalue(pv, v690)); })(); })), cdr: (function(){ var symbol = l255; @@ -6503,8 +6505,8 @@ var l276 = {name: "FSET"}; checkArgs(arguments, 2); return (function(){ return (function(v694){ - return l137.fvalue(values, l125.fvalue(pv, "(", v694, ".value !== undefined)")); - })(l138.fvalue(pv, v693)); + return l139.fvalue(values, l127.fvalue(pv, "(", v694, ".value !== undefined)")); + })(l140.fvalue(pv, v693)); })(); })), cdr: (function(){ var symbol = l255; @@ -6517,33 +6519,33 @@ var l277 = {name: "SYMBOL-VALUE"}; checkArgs(arguments, 2); return (function(){ return (function(v696){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var symbol = ", v696, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var symbol = ", v696, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var value = symbol.value;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return value;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v695)); + })(l140.fvalue(pv, v695)); })(); })), cdr: (function(){ var symbol = l255; @@ -6551,37 +6553,37 @@ var l277 = {name: "SYMBOL-VALUE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l255).value = ({car: l43.fvalue(pv, l225, (function (values,v697){ +((l255).value = ({car: l43.fvalue(pv, l226, (function (values,v697){ checkArgs(arguments, 2); return (function(){ return (function(v698){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var symbol = ", v698, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var symbol = ", v698, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var func = symbol.fvalue;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return func;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v697)); + })(l140.fvalue(pv, v697)); })(); })), cdr: (function(){ var symbol = l255; @@ -6594,8 +6596,8 @@ var l278 = {name: "SYMBOL-PLIST"}; checkArgs(arguments, 2); return (function(){ return (function(v700){ - return l125.fvalue(values, "((", v700, ").plist || ", l138.fvalue(pv, l3.value), ")"); - })(l138.fvalue(pv, v699)); + return l127.fvalue(values, "((", v700, ").plist || ", l140.fvalue(pv, l3.value), ")"); + })(l140.fvalue(pv, v699)); })(); })), cdr: (function(){ var symbol = l255; @@ -6608,8 +6610,8 @@ var l279 = {name: "LAMBDA-CODE"}; checkArgs(arguments, 2); return (function(){ return (function(v702){ - return l125.fvalue(values, "(", v702, ").toString()"); - })(l138.fvalue(pv, v701)); + return l127.fvalue(values, "(", v702, ").toString()"); + })(l140.fvalue(pv, v701)); })(); })), cdr: (function(){ var symbol = l255; @@ -6622,8 +6624,8 @@ var l280 = {name: "EQ"}; checkArgs(arguments, 3); return (function(){ return (function(v705,v706){ - return l137.fvalue(values, l125.fvalue(pv, "(", v705, " === ", v706, ")")); - })(l138.fvalue(pv, v703),l138.fvalue(pv, v704)); + return l139.fvalue(values, l127.fvalue(pv, "(", v705, " === ", v706, ")")); + })(l140.fvalue(pv, v703),l140.fvalue(pv, v704)); })(); })), cdr: (function(){ var symbol = l255; @@ -6636,8 +6638,8 @@ var l281 = {name: "EQUAL"}; checkArgs(arguments, 3); return (function(){ return (function(v709,v710){ - return l137.fvalue(values, l125.fvalue(pv, "(", v709, " == ", v710, ")")); - })(l138.fvalue(pv, v707),l138.fvalue(pv, v708)); + return l139.fvalue(values, l127.fvalue(pv, "(", v709, " == ", v710, ")")); + })(l140.fvalue(pv, v707),l140.fvalue(pv, v708)); })(); })), cdr: (function(){ var symbol = l255; @@ -6650,33 +6652,33 @@ var l282 = {name: "CHAR-TO-STRING"}; checkArgs(arguments, 2); return (function(){ return (function(v712){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v712, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v712, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v711)); + })(l140.fvalue(pv, v711)); })(); })), cdr: (function(){ var symbol = l255; @@ -6689,8 +6691,8 @@ var l283 = {name: "STRINGP"}; checkArgs(arguments, 2); return (function(){ return (function(v714){ - return l137.fvalue(values, l125.fvalue(pv, "(typeof(", v714, ") == \"string\")")); - })(l138.fvalue(pv, v713)); + return l139.fvalue(values, l127.fvalue(pv, "(typeof(", v714, ") == \"string\")")); + })(l140.fvalue(pv, v713)); })(); })), cdr: (function(){ var symbol = l255; @@ -6703,33 +6705,33 @@ var l284 = {name: "STRING-UPCASE"}; checkArgs(arguments, 2); return (function(){ return (function(v716){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v716, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v716, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v715)); + })(l140.fvalue(pv, v715)); })(); })), cdr: (function(){ var symbol = l255; @@ -6742,33 +6744,33 @@ var l285 = {name: "STRING-LENGTH"}; checkArgs(arguments, 2); return (function(){ return (function(v718){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v718, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v718, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "x.length", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "x.length", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v717)); + })(l140.fvalue(pv, v717)); })(); })), cdr: (function(){ var symbol = l255; @@ -6786,33 +6788,33 @@ var l286 = {name: "SLICE"}; default: break; } return (function(){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var str = ", l138.fvalue(pv, v719), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var str = ", l140.fvalue(pv, v719), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var a = ", l138.fvalue(pv, v720), ";", (function(){ - var symbol = l124; + })(), "var a = ", l140.fvalue(pv, v720), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var b;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (v721 !== l3.value ? l125.fvalue(pv, "b = ", l138.fvalue(pv, v721), ";", (function(){ - var symbol = l124; + })(), (v721 !== l3.value ? l127.fvalue(pv, "b = ", l140.fvalue(pv, v721), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : ""), "return str.slice(a,b);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6829,48 +6831,48 @@ var l287 = {name: "CHAR"}; checkArgs(arguments, 3); return (function(){ return (function(v724,v725){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "string", " = ", v724, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "string", " = ", v724, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "var ", "index", " = ", v725, ";", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "var ", "index", " = ", v725, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v722),l138.fvalue(pv, v723)); + })(l140.fvalue(pv, v722),l140.fvalue(pv, v723)); })(); })), cdr: (function(){ var symbol = l255; @@ -6878,52 +6880,52 @@ var l287 = {name: "CHAR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l255).value = ({car: l43.fvalue(pv, l69, (function (values,v726,v727){ +((l255).value = ({car: l43.fvalue(pv, l71, (function (values,v726,v727){ checkArgs(arguments, 3); return (function(){ return (function(v728,v729){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "string1", " = ", v728, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "string1", " = ", v728, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "var ", "string2", " = ", v729, ";", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "var ", "string2", " = ", v729, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v726),l138.fvalue(pv, v727)); + })(l140.fvalue(pv, v726),l140.fvalue(pv, v727)); })(); })), cdr: (function(){ var symbol = l255; @@ -6939,13 +6941,13 @@ var l288 = {name: "FUNCALL"}; v730 = {car: arguments[i], cdr: v730}; return (function(){ - return l125.fvalue(values, "(", l138.fvalue(pv, v731), ")(", l127.fvalue(pv, ({car: ((function(){ - var symbol = l163; + return l127.fvalue(values, "(", l140.fvalue(pv, v731), ")(", l129.fvalue(pv, ({car: ((function(){ + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? "values" : "pv"), cdr: l70.fvalue(pv, (function(){ - var symbol = l138; + })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -6965,65 +6967,65 @@ var l289 = {name: "APPLY"}; v732 = {car: arguments[i], cdr: v732}; return (function(){ - return (l12.fvalue(pv, v732) !== l3.value ? l125.fvalue(values, "(", l138.fvalue(pv, v733), ")()") : (function(v734,v735){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return (l12.fvalue(pv, v732) !== l3.value ? l127.fvalue(values, "(", l140.fvalue(pv, v733), ")()") : (function(v734,v735){ + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var f = ", l138.fvalue(pv, v733), ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var f = ", l140.fvalue(pv, v733), ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var args = [", l127.fvalue(pv, ({car: ((function(){ - var symbol = l163; + })(), "var args = [", l129.fvalue(pv, ({car: ((function(){ + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? "values" : "pv"), cdr: l70.fvalue(pv, (function(){ - var symbol = l138; + })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v734)}), ", "), "];", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var tail = (", l138.fvalue(pv, v735), ");", (function(){ - var symbol = l124; + })(), "var tail = (", l140.fvalue(pv, v735), ");", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "while (tail != ", l138.fvalue(pv, l3.value), "){", (function(){ - var symbol = l124; + })(), "while (tail != ", l140.fvalue(pv, l3.value), "){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " args.push(tail.car);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " tail = tail.cdr;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return f.apply(this, args);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l82.fvalue(pv, v732),(function(){ - var tmp = l81.fvalue(pv, v732); + })(l84.fvalue(pv, v732),(function(){ + var tmp = l83.fvalue(pv, v732); return tmp === l3.value? l3.value: tmp.car; })())); })(); @@ -7038,73 +7040,73 @@ var l290 = {name: "JS-EVAL"}; checkArgs(arguments, 2); return (function(){ return (function(v737){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "string", " = ", v737, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "string", " = ", v737, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", ((function(){ - var symbol = l163; + })())), l127.fvalue(pv, "return ", ((function(){ + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? l125.fvalue(pv, "(function(){", (function(){ - var symbol = l124; + })() !== l3.value ? l127.fvalue(pv, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "v = [v];", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "v = [v];", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "v['multiple-value'] = true;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "}", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return values.apply(this, v);", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()") : "eval.apply(window, [string])"), ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v736)); + })(l140.fvalue(pv, v736)); })(); })), cdr: (function(){ var symbol = l255; @@ -7117,18 +7119,18 @@ var l291 = {name: "ERROR"}; checkArgs(arguments, 2); return (function(){ return (function(v739){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw ", v739, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw ", v739, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v738)); + })(l140.fvalue(pv, v738)); })(); })), cdr: (function(){ var symbol = l255; @@ -7155,8 +7157,8 @@ var l293 = {name: "OBJECTP"}; checkArgs(arguments, 2); return (function(){ return (function(v741){ - return l137.fvalue(values, l125.fvalue(pv, "(typeof (", v741, ") === 'object')")); - })(l138.fvalue(pv, v740)); + return l139.fvalue(values, l127.fvalue(pv, "(typeof (", v741, ") === 'object')")); + })(l140.fvalue(pv, v740)); })(); })), cdr: (function(){ var symbol = l255; @@ -7169,23 +7171,23 @@ var l294 = {name: "OGET"}; checkArgs(arguments, 3); return (function(){ return (function(v744,v745){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var tmp = ", "(", v744, ")[", v745, "];", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var tmp = ", "(", v744, ")[", v745, "];", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp == undefined? ", l138.fvalue(pv, l3.value), ": tmp ;", (function(){ - var symbol = l124; + })(), "return tmp == undefined? ", l140.fvalue(pv, l3.value), ": tmp ;", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v742),l138.fvalue(pv, v743)); + })(l140.fvalue(pv, v742),l140.fvalue(pv, v743)); })(); })), cdr: (function(){ var symbol = l255; @@ -7198,8 +7200,8 @@ var l295 = {name: "OSET"}; checkArgs(arguments, 4); return (function(){ return (function(v749,v750,v751){ - return l125.fvalue(values, "((", v749, ")[", v750, "] = ", v751, ")"); - })(l138.fvalue(pv, v746),l138.fvalue(pv, v747),l138.fvalue(pv, v748)); + return l127.fvalue(values, "((", v749, ")[", v750, "] = ", v751, ")"); + })(l140.fvalue(pv, v746),l140.fvalue(pv, v747),l140.fvalue(pv, v748)); })(); })), cdr: (function(){ var symbol = l255; @@ -7212,8 +7214,8 @@ var l296 = {name: "IN"}; checkArgs(arguments, 3); return (function(){ return (function(v754,v755){ - return l137.fvalue(values, l125.fvalue(pv, "((", v754, ") in (", v755, "))")); - })(l138.fvalue(pv, v752),l138.fvalue(pv, v753)); + return l139.fvalue(values, l127.fvalue(pv, "((", v754, ") in (", v755, "))")); + })(l140.fvalue(pv, v752),l140.fvalue(pv, v753)); })(); })), cdr: (function(){ var symbol = l255; @@ -7226,8 +7228,8 @@ var l297 = {name: "FUNCTIONP"}; checkArgs(arguments, 2); return (function(){ return (function(v757){ - return l137.fvalue(values, l125.fvalue(pv, "(typeof ", v757, " == 'function')")); - })(l138.fvalue(pv, v756)); + return l139.fvalue(values, l127.fvalue(pv, "(typeof ", v757, " == 'function')")); + })(l140.fvalue(pv, v756)); })(); })), cdr: (function(){ var symbol = l255; @@ -7240,33 +7242,33 @@ var l298 = {name: "WRITE-STRING"}; checkArgs(arguments, 2); return (function(){ return (function(v759){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, l125.fvalue(pv, "var ", "x", " = ", v759, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v759, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l125.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l124; + })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l125.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ - var symbol = l124; + })())), l127.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l138.fvalue(pv, v758)); + })(l140.fvalue(pv, v758)); })(); })), cdr: (function(){ var symbol = l255; @@ -7279,33 +7281,33 @@ var l299 = {name: "MAKE-ARRAY"}; checkArgs(arguments, 2); return (function(){ return (function(v761){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var r = [];", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var r = [];", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "for (var i = 0; i < ", v761, "; i++)", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "r.push(", l138.fvalue(pv, l3.value), ");", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "r.push(", l140.fvalue(pv, l3.value), ");", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "return r;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v760)); + })(l140.fvalue(pv, v760)); })(); })), cdr: (function(){ var symbol = l255; @@ -7318,18 +7320,18 @@ var l300 = {name: "ARRAYP"}; checkArgs(arguments, 2); return (function(){ return (function(v763){ - return l137.fvalue(values, l125.fvalue(pv, "(function(){", (function(){ - var symbol = l124; + return l139.fvalue(values, l127.fvalue(pv, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var x = ", v763, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var x = ", v763, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return typeof x === 'object' && 'length' in x;"), "})()")); - })(l138.fvalue(pv, v762)); + })(l140.fvalue(pv, v762)); })(); })), cdr: (function(){ var symbol = l255; @@ -7342,28 +7344,28 @@ var l301 = {name: "AREF"}; checkArgs(arguments, 3); return (function(){ return (function(v766,v767){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var x = ", "(", v766, ")[", v767, "];", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var x = ", "(", v766, ")[", v767, "];", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (x === undefined) throw 'Out of range';", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return x;", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v764),l138.fvalue(pv, v765)); + })(l140.fvalue(pv, v764),l140.fvalue(pv, v765)); })(); })), cdr: (function(){ var symbol = l255; @@ -7376,33 +7378,33 @@ var l302 = {name: "ASET"}; checkArgs(arguments, 4); return (function(){ return (function(v771,v772,v773){ - return l125.fvalue(values, "(function(){", (function(){ - var symbol = l124; + return l127.fvalue(values, "(function(){", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l136.fvalue(pv, "var x = ", v771, ";", (function(){ - var symbol = l124; + })(), l138.fvalue(pv, "var x = ", v771, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var i = ", v772, ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return x[i] = ", v773, ";", (function(){ - var symbol = l124; + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l138.fvalue(pv, v768),l138.fvalue(pv, v769),l138.fvalue(pv, v770)); + })(l140.fvalue(pv, v768),l140.fvalue(pv, v769),l140.fvalue(pv, v770)); })(); })), cdr: (function(){ var symbol = l255; @@ -7415,7 +7417,7 @@ var l303 = {name: "GET-UNIX-TIME"}; checkArgsAtMost(arguments, 1); return (function(){ return (function(){ - return l125.fvalue(values, "(Math.round(new Date() / 1000))"); + return l127.fvalue(values, "(Math.round(new Date() / 1000))"); })(); })(); })), cdr: (function(){ @@ -7430,12 +7432,12 @@ var l304 = {name: "VALUES-ARRAY"}; return (function(){ return (function(v775){ return ((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? l125.fvalue(values, "values.apply(this, ", v775, ")") : l125.fvalue(values, "pv.apply(this, ", v775, ")")); - })(l138.fvalue(pv, v774)); + })() !== l3.value ? l127.fvalue(values, "values.apply(this, ", v775, ")") : l127.fvalue(values, "pv.apply(this, ", v775, ")")); + })(l140.fvalue(pv, v774)); })(); })), cdr: (function(){ var symbol = l255; @@ -7443,24 +7445,24 @@ var l304 = {name: "VALUES-ARRAY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l255).value = ({car: l43.fvalue(pv, l133, (function (values){ +((l255).value = ({car: l43.fvalue(pv, l135, (function (values){ var v776= l3.value; for (var i = arguments.length-1; i>=1; i--) v776 = {car: arguments[i], cdr: v776}; return (function(){ return ((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? l125.fvalue(values, "values(", l127.fvalue(pv, l70.fvalue(pv, (function(){ - var symbol = l138; + })() !== l3.value ? l127.fvalue(values, "values(", l129.fvalue(pv, l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v776), ", "), ")") : l125.fvalue(values, "pv(", l127.fvalue(pv, l70.fvalue(pv, (function(){ - var symbol = l138; + })(), v776), ", "), ")") : l127.fvalue(values, "pv(", l129.fvalue(pv, l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -7473,7 +7475,7 @@ var l304 = {name: "VALUES-ARRAY"}; return value; })()})); (function(){ - (l190).fvalue = (function(v779){ + (l191).fvalue = (function(v779){ ((v779)["fname"] = "MACRO"); return v779; })((function (values,v777){ @@ -7483,16 +7485,16 @@ var l304 = {name: "VALUES-ARRAY"}; var tmp = v777; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l3.value) !== l3.value ? (function(v778){ - return (((l166.fvalue(pv, v778) === l190)?l4.value: l3.value) !== l3.value ? v778 : l3.value); - })(l178.fvalue(pv, v777, (function(){ - var symbol = l179; + return (((l168.fvalue(pv, v778) === l191)?l4.value: l3.value) !== l3.value ? v778 : l3.value); + })(l180.fvalue(pv, v777, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l99)) : l3.value); + })(), l101)) : l3.value); })(); })); - return l190; + return l191; })(); var l305 = {name: "LS-MACROEXPAND-1"}; (function(){ @@ -7505,9 +7507,9 @@ var l305 = {name: "LS-MACROEXPAND-1"}; return (function(v781){ return (v781 !== l3.value ? (function(v782){ (l58.fvalue(pv, v782) !== l3.value ? (function(v783){ - l169.fvalue(pv, v781, v783); + l171.fvalue(pv, v781, v783); return (v782 = v783); - })(l228.fvalue(pv, v782)) : l3.value); + })(l229.fvalue(pv, v782)) : l3.value); return (function(){ var f = v782; var args = [values]; @@ -7521,8 +7523,8 @@ var l305 = {name: "LS-MACROEXPAND-1"}; } return f.apply(this, args); })(); - })(l167.fvalue(pv, v781)) : v780); - })(l190.fvalue(pv, (function(){ + })(l169.fvalue(pv, v781)) : v780); + })(l191.fvalue(pv, (function(){ var tmp = v780; return tmp === l3.value? l3.value: tmp.car; })())); @@ -7531,7 +7533,7 @@ var l305 = {name: "LS-MACROEXPAND-1"}; return l305; })(); var l306 = {name: "COMPILE-FUNCALL"}; -var l307 = {name: "G922"}; +var l307 = {name: "G766"}; (function(){ (l306).fvalue = (function(v788){ ((v788)["fname"] = "COMPILE-FUNCALL"); @@ -7543,24 +7545,24 @@ var l307 = {name: "G922"}; return ((((function(){ var tmp = v785; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? (((l115.fvalue(pv, v785) === l106.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){ + })()?l4.value: l3.value) !== l3.value ? (((l117.fvalue(pv, v785) === l108.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){ var symbol = l307; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() : l3.value) : l3.value) !== l3.value ? l125.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, v785))), ".fvalue(", l127.fvalue(pv, ({car: v787, cdr: l70.fvalue(pv, (function(){ - var symbol = l138; + })() : l3.value) : l3.value) !== l3.value ? l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v785))), ".fvalue(", l129.fvalue(pv, ({car: v787, cdr: l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v786)}), ", "), ")") : l125.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l99), l43.fvalue(pv, v785))), "(", l127.fvalue(pv, ({car: v787, cdr: l70.fvalue(pv, (function(){ - var symbol = l138; + })(), v786)}), ", "), ")") : l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l101), l43.fvalue(pv, v785))), "(", l129.fvalue(pv, ({car: v787, cdr: l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v786)}), ", "), ")")); })(((function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -7570,7 +7572,7 @@ var l307 = {name: "G922"}; return l306; })(); (function(){ - (l214).fvalue = (function(v791){ + (l215).fvalue = (function(v791){ ((v791)["fname"] = "LS-COMPILE-BLOCK"); return v791; })((function (values,v789,v790){ @@ -7582,36 +7584,36 @@ var l307 = {name: "G922"}; default: break; } return (function(){ - return (v790 !== l3.value ? l125.fvalue(values, l214.fvalue(pv, l82.fvalue(pv, v789)), "return ", l138.fvalue(pv, (function(){ - var tmp = l81.fvalue(pv, v789); + return (v790 !== l3.value ? l127.fvalue(values, l215.fvalue(pv, l84.fvalue(pv, v789)), "return ", l140.fvalue(pv, (function(){ + var tmp = l83.fvalue(pv, v789); return tmp === l3.value? l3.value: tmp.car; })(), (function(){ - var symbol = l163; + var symbol = l165; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), ";") : l128.fvalue(values, l85.fvalue(pv, (function(){ - var symbol = l187; + })()), ";") : l130.fvalue(values, l87.fvalue(pv, (function(){ + var symbol = l188; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l70.fvalue(pv, (function(){ - var symbol = l138; + })(), l72.fvalue(pv, (function(){ + var symbol = l140; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v789)), l125.fvalue(pv, ";", (function(){ - var symbol = l124; + })(), v789)), l127.fvalue(pv, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()))); })(); })); - return l214; + return l215; })(); (function(){ - (l138).fvalue = (function(v801){ + (l140).fvalue = (function(v801){ ((v801)["fname"] = "LS-COMPILE"); return v801; })((function (values,v792,v793){ @@ -7626,27 +7628,27 @@ var l307 = {name: "G922"}; return (function(v794){ try { var tmp; - tmp = l163.value; - l163.value = v794; + tmp = l165.value; + l165.value = v794; v794 = tmp; return (((function(){ var tmp = v792; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l3.value) !== l3.value ? (function(v795){ - return ((v795 !== l3.value ? l27.fvalue(pv, l83.fvalue(pv, l194, l168.fvalue(pv, v795))) : l3.value) !== l3.value ? l167.fvalue(values, v795) : ((function(v796){ - return (v796 !== l3.value ? v796 : l83.fvalue(pv, l196, l168.fvalue(pv, v795))); - })(l114.fvalue(pv, v792)) !== l3.value ? l125.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, v792))), ".value") : l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l277), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l158), l43.fvalue(pv, v792))))))); - })(l178.fvalue(pv, v792, (function(){ - var symbol = l179; + return ((v795 !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l195, l170.fvalue(pv, v795))) : l3.value) !== l3.value ? l169.fvalue(values, v795) : ((function(v796){ + return (v796 !== l3.value ? v796 : l85.fvalue(pv, l197, l170.fvalue(pv, v795))); + })(l116.fvalue(pv, v792)) !== l3.value ? l127.fvalue(values, l140.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v792))), ".value") : l140.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l277), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v792))))))); + })(l180.fvalue(pv, v792, (function(){ + var symbol = l181; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l100)) : (l76.fvalue(pv, v792) !== l3.value ? l17.fvalue(values, v792) : (((typeof(v792) == "string")?l4.value: l3.value) !== l3.value ? l125.fvalue(values, "\"", l141.fvalue(pv, v792), "\"") : (((function(){ + })(), l102)) : (l78.fvalue(pv, v792) !== l3.value ? l17.fvalue(values, v792) : (((typeof(v792) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l143.fvalue(pv, v792), "\"") : (((function(){ var x = v792; return typeof x === 'object' && 'length' in x; - })()?l4.value: l3.value) !== l3.value ? l223.fvalue(values, v792) : (l58.fvalue(pv, v792) !== l3.value ? (function(v797,v798){ - return (l92.fvalue(pv, v797, (function(){ - var symbol = l198; + })()?l4.value: l3.value) !== l3.value ? l224.fvalue(values, v792) : (l58.fvalue(pv, v792) !== l3.value ? (function(v797,v798){ + return (l94.fvalue(pv, v797, (function(){ + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -7661,17 +7663,17 @@ var l307 = {name: "G922"}; } return f.apply(this, args); })(); - })(l40.fvalue(pv, l92.fvalue(pv, v797, (function(){ - var symbol = l198; + })(l40.fvalue(pv, l94.fvalue(pv, v797, (function(){ + var symbol = l199; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : ((l92.fvalue(pv, v797, (function(){ + })()))) : ((l94.fvalue(pv, v797, (function(){ var symbol = l255; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l3.value ? l27.fvalue(pv, l192.fvalue(pv, v797, l99, l195)) : l3.value) !== l3.value ? (function(v800){ + })()) !== l3.value ? l27.fvalue(pv, l193.fvalue(pv, v797, l101, l196)) : l3.value) !== l3.value ? (function(v800){ return (function(){ var f = v800; var args = [values]; @@ -7682,12 +7684,12 @@ var l307 = {name: "G922"}; } return f.apply(this, args); })(); - })(l40.fvalue(pv, l92.fvalue(pv, v797, (function(){ + })(l40.fvalue(pv, l94.fvalue(pv, v797, (function(){ var symbol = l255; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : (l190.fvalue(pv, v797) !== l3.value ? l138.fvalue(values, l305.fvalue(pv, v792), v793) : l306.fvalue(values, v797, v798)))); + })()))) : (l191.fvalue(pv, v797) !== l3.value ? l140.fvalue(values, l305.fvalue(pv, v792), v793) : l306.fvalue(values, v797, v798)))); })((function(){ var tmp = v792; return tmp === l3.value? l3.value: tmp.car; @@ -7699,12 +7701,12 @@ var l307 = {name: "G922"}; })()))))); } finally { - l163.value = v794; + l165.value = v794; } })(v793); })(); })); - return l138; + return l140; })(); var l308 = {name: "LS-COMPILE-TOPLEVEL"}; (function(){ @@ -7723,8 +7725,8 @@ var l308 = {name: "LS-COMPILE-TOPLEVEL"}; return (function(v804){ try { var tmp; - tmp = l185.value; - l185.value = v804; + tmp = l186.value; + l186.value = v804; v804 = tmp; return ((((function(){ var tmp = v802; @@ -7732,35 +7734,35 @@ var l308 = {name: "LS-COMPILE-TOPLEVEL"}; })()?l4.value: l3.value) !== l3.value ? (((function(){ var tmp = v802; return tmp === l3.value? l3.value: tmp.car; - })() === l229)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v806){ - return l127.fvalue(values, l85.fvalue(pv, (function(){ - var symbol = l187; + })() === l230)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v806){ + return l129.fvalue(values, l87.fvalue(pv, (function(){ + var symbol = l188; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), v806)); - })(l70.fvalue(pv, (function (values,v805){ + })(l72.fvalue(pv, (function (values,v805){ checkArgs(arguments, 2); return l308.fvalue(values, v805, l4.value); }), (function(){ var tmp = v802; return tmp === l3.value? l3.value: tmp.cdr; })())) : (function(v807){ - return l125.fvalue(values, l128.fvalue(pv, l188.fvalue(pv), l125.fvalue(pv, ";", (function(){ - var symbol = l124; + return l127.fvalue(values, l130.fvalue(pv, l189.fvalue(pv), l127.fvalue(pv, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), (v807 !== l3.value ? l125.fvalue(pv, v807, ";", (function(){ - var symbol = l124; + })())), (v807 !== l3.value ? l127.fvalue(pv, v807, ";", (function(){ + var symbol = l126; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : "")); - })(l138.fvalue(pv, v802, v803))); + })(l140.fvalue(pv, v802, v803))); } finally { - l185.value = v804; + l186.value = v804; } })(l3.value); })(); @@ -7768,7 +7770,7 @@ var l308 = {name: "LS-COMPILE-TOPLEVEL"}; return l308; })(); (function(){ - (l228).fvalue = (function(v810){ + (l229).fvalue = (function(v810){ ((v810)["fname"] = "EVAL"); return v810; })((function (values,v809){ @@ -7789,13 +7791,13 @@ var l308 = {name: "LS-COMPILE-TOPLEVEL"}; })(); })(); })); - return l228; + return l229; })(); var l309 = {name: "&BODY"}; -var l310 = QIList(l203,l202,l309,l20,l15,l116,l60,l61,l21,l22,l23,l266,l268,l19,l19,l265,l267,l53,l63,l289,l301,l300,l302,l92,l44,l175,l18,l18,l82,l32,l38,l36,l33,l30,l30,l51,l242,l34,l37,l35,l31,l31,l287,l74,l75,l73,l50,l28,l29,l72,l46,l2,l9,l11,l1,l8,l87,l96,l98,l48,l49,l52,l280,l26,l281,l291,l228,l91,l122,l95,l106,l120,l39,l42,l276,l288,l99,l297,l16,l123,l249,l71,l200,l117,l45,l76,l76,l121,l114,l5,l81,l68,l233,l237,l102,l43,l58,l299,l103,l274,l70,l83,l78,l262,l134,l251,l135,l252,l3,l27,l80,l79,l12,l269,l54,l107,l109,l105,l77,l140,l143,l197,l55,l56,l229,l66,l47,l158,l84,l85,l86,l13,l241,l64,l65,l271,l272,l40,l216,l217,l90,l284,l93,l94,l283,l88,l225,l275,l115,l278,l277,l273,l4,l248,l41,l243,l25,l7,l250,l133,l132,l100,l142,l6,l97,l298,l24,l3); -l122.fvalue(values, l310); -((l116).value = (function(){ - var symbol = l112; +var l310 = QIList(l204,l203,l309,l20,l15,l118,l60,l61,l21,l22,l23,l266,l268,l19,l19,l265,l267,l53,l63,l289,l301,l300,l302,l94,l44,l177,l18,l18,l84,l32,l38,l36,l33,l30,l30,l51,l242,l34,l37,l35,l31,l31,l287,l76,l77,l75,l50,l28,l29,l74,l46,l2,l9,l11,l1,l8,l89,l98,l67,l68,l100,l48,l49,l52,l280,l26,l281,l291,l229,l93,l124,l97,l108,l122,l39,l42,l276,l288,l101,l297,l16,l125,l249,l73,l201,l119,l45,l78,l78,l123,l116,l5,l83,l70,l234,l237,l104,l43,l58,l299,l105,l274,l72,l85,l80,l262,l136,l251,l137,l252,l3,l27,l82,l81,l12,l269,l54,l109,l111,l107,l79,l142,l145,l198,l55,l56,l230,l66,l47,l160,l86,l87,l88,l13,l241,l64,l65,l271,l272,l40,l217,l218,l92,l284,l95,l96,l283,l90,l226,l275,l117,l278,l277,l273,l4,l248,l41,l243,l25,l7,l250,l135,l134,l102,l144,l6,l99,l298,l24,l3); +l124.fvalue(values, l310); +((l118).value = (function(){ + var symbol = l114; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -7815,19 +7817,19 @@ l122.fvalue(values, l310); })(); (lisp = {}); (lisp.read = (function(){ - var symbol = l162; + var symbol = l164; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); (lisp.print = (function(){ - var symbol = l140; + var symbol = l142; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); (lisp.eval = (function(){ - var symbol = l228; + var symbol = l229; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -7838,13 +7840,13 @@ l122.fvalue(values, l310); })); (lisp.evalString = (function (values,v812){ checkArgs(arguments, 2); - return l228.fvalue(values, l162.fvalue(pv, v812)); + return l229.fvalue(values, l164.fvalue(pv, v812)); })); (lisp.compileString = (function (values,v813){ checkArgs(arguments, 2); - return l308.fvalue(values, l162.fvalue(pv, v813), l4.value); + return l308.fvalue(values, l164.fvalue(pv, v813), l4.value); })); -var l311 = QIList(QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l209,"l209"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l205,"l205"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3); +var l311 = QIList(QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l209,"l209"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3); var l312 = {name: "OP"}; var l313 = {name: "SYM"}; var l314 = {name: "X"}; @@ -7858,339 +7860,342 @@ var l321 = {name: "FORM"}; var l322 = {name: "VALUE-FROM"}; var l323 = {name: "VARIABLES"}; var l324 = {name: "PACKAGE-DESIGNATOR"}; -var l325 = {name: "PAIRS"}; -var l326 = {name: "ASSIGNMENTS"}; -var l327 = {name: "VALUE"}; -var l328 = {name: "FORM1"}; -var l329 = {name: "RESULT"}; -var l330 = {name: "FORMS"}; -var l331 = {name: "G"}; -var l332 = {name: "CLAUSULES"}; -var l333 = {name: "!FORM"}; -var l334 = {name: "CLAUSULE"}; -var l335 = {name: "ITER"}; -var l336 = {name: "G!TO"}; -var l337 = {name: "VAR"}; -var l338 = {name: "TO"}; -var l339 = {name: "G!LIST"}; -var l340 = {name: "PLACE"}; -var l341 = {name: "DELTA"}; -var l342 = {name: "CONDITION"}; -var l343 = {name: "DOCSTRING"}; -var l344 = QIList(QIList(QIList(l255,l100,l3,QIList(l194,l3),l3),QIList(l245,l100,l3,QIList(l194,l3),l3),QIList(l244,l100,l3,QIList(l194,l3),l3),QIList(l238,l100,l3,QIList(l194,l3),l3),QIList(l226,l100,l3,QIList(l194,l3),l3),QIList(l221,l100,l3,QIList(l194,l3),l3),QIList(l220,l100,l3,QIList(l194,l3),l3),QIList(l201,l100,l3,QIList(l194,l3),l3),QIList(l198,l100,l3,QIList(l194,l3),l3),QIList(l185,l100,l3,QIList(l194,l3),l3),QIList(l180,l100,l3,QIList(l194,l3),l3),QIList(l179,l100,l3,QIList(l194,l3),l3),QIList(l163,l100,l3,QIList(l194,l3),l3),QIList(l157,l100,l3,QIList(l194,l3),l3),QIList(l124,l100,l3,QIList(l194,l3),l3),QIList(l116,l100,l3,QIList(l194,l3),l3),QIList(l113,l100,l3,QIList(l194,l3),l3),QIList(l112,l100,l3,QIList(l194,l3),l3),QIList(l111,l100,l3,QIList(l194,l3),l3),QIList(l101,l100,l3,QIList(l194,l3),l3),QIList(l15,l100,l3,QIList(l194,l3),l3),QIList(l4,l100,l3,QIList(l194,l196,l3),l3),QIList(l3,l100,l3,QIList(l194,l196,l3),l3),l3),QIList(QIList(l264,l190,QIList(l99,QIList(l5,QIList(l312,l313,l3),QIList(l159,QIList(l256,QIList(l161,l312,l3),QIList(l314,l203,l315,l3),QIList(l233,QIList(QIList(l315,QIList(l28,l314,l315,l3),l3),l3),QIList(l260,l315,QIList(l137,QIList(l263,l315,QIList(l161,l313,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l260,l190,QIList(l99,QIList(l5,QIList(l315,l203,l316,l3),QIList(l7,QIList(l273,l315,l3),QIList(l291,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l159,QIList(l259,QIList(l161,l315,l3),QIList(l5,QIList(QIList(l161,l315,l3),l3),QIList(l125,"return ",QIList(l160,l316,l3),";",l124,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l258,l190,QIList(l99,QIList(l5,QIList(l317,l203,l316,l3),QIList(l159,QIList(l139,QIList(l160,QIList(l70,QIList(l5,QIList(l318,l3),QIList(l159,QIList(l125,"var ",QIList(l161,QIList(l39,l318,l3),l3)," = ",QIList(l161,QIList(l41,l318,l3),l3),";",l124,l3),l3),l3),l317,l3),l3),QIList(l160,QIList(l70,QIList(l5,QIList(l318,l3),QIList(l159,QIList(l125,"if (typeof ",QIList(l161,QIList(l39,l318,l3),l3)," != '",QIList(l161,QIList(l40,l318,l3),l3),"')",l124,QIList(l136,"throw 'The value ' + ",QIList(l161,QIList(l39,l318,l3),l3)," + ' is not a type ",QIList(l161,QIList(l40,l318,l3),l3),".';",l124,l3),l3),l3),l3),l317,l3),l3),QIList(l125,"return ",QIList(l229,QIList(l160,l316,l3),l3),";",l124,l3),l3),l3),l3),l3),l3,l3),QIList(l257,l190,QIList(l99,QIList(l5,QIList(l319,l315,l203,l316,l3),QIList(l159,QIList(l229,QIList(l256,QIList(l161,l319,l3),QIList(l161,l315,l3),QIList(l233,QIList(l161,QIList(l70,QIList(l5,QIList(l320,l3),QIList(l159,QIList(QIList(l161,l320,l3),QIList(l138,QIList(l161,l320,l3),l3),l3),l3),l3),l315,l3),l3),QIList(l160,l316,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l256,l190,QIList(l99,QIList(l5,QIList(l319,l315,l203,l316,l3),QIList(l159,QIList(l47,QIList(l43,QIList(l158,QIList(l161,l319,l3),l3),QIList(l5,QIList(l161,l315,l3),QIList(l175,QIList(l161,l319,l3),QIList(l160,l316,l3),l3),l3),l3),l255,l3),l3),l3),l3),l3,l3),QIList(l159,l190,QIList(l99,QIList(l5,QIList(l321,l3),QIList(l253,l321,l3),l3),l3),l3,l3),QIList(l230,l190,QIList(l99,QIList(l5,QIList(l319,l315,l321,l3),QIList(l159,QIList(l199,QIList(l161,l319,l3),QIList(l161,l315,l3),QIList(l138,QIList(l161,l321,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l199,l190,QIList(l99,QIList(l5,QIList(l319,l315,l203,l316,l3),QIList(l159,QIList(l47,QIList(l43,QIList(l158,QIList(l161,l319,l3),l3),QIList(l5,QIList(l161,l315,l3),QIList(l175,QIList(l161,l319,l3),QIList(l160,l316,l3),l3),l3),l3),l198,l3),l3),l3),l3),l3,l3),QIList(l139,l190,QIList(l99,QIList(l5,QIList(l203,l316,l3),QIList(l159,QIList(l125,"(function(){",l124,QIList(l136,QIList(l160,l316,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l135,l190,QIList(l99,QIList(l5,QIList(l322,l3),QIList(l159,QIList(l251,QIList(l99,l43,l3),QIList(l161,l322,l3),l3),l3),l3),l3),l3,l3),QIList(l134,l190,QIList(l99,QIList(l5,QIList(l323,l322,l203,l316,l3),QIList(l159,QIList(l251,QIList(l5,QIList(l202,QIList(l160,l323,l3),l203,QIList(l161,QIList(l16,l3),l3),l3),QIList(l160,l316,l3),l3),QIList(l161,l322,l3),l3),l3),l3),l3),l3,l3),QIList(l126,l190,QIList(l99,QIList(l5,QIList(l100,l203,l321,l3),QIList(l159,QIList(l217,QIList(l161,l100,l3),QIList(l125,QIList(l161,l100,l3),QIList(l229,QIList(l160,l321,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l117,l190,QIList(l99,QIList(l5,QIList(l324,l3),QIList(l159,QIList(l227,QIList(l217,l116,QIList(l104,QIList(l161,l324,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l66,l190,QIList(l99,QIList(l5,QIList(l203,l325,l3),QIList(l233,QIList(QIList(l326,QIList(l158,l3,l3),l3),l3),QIList(l14,l4,QIList(l50,QIList(QIList(l12,l325,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l325,l3),l3),QIList(l291,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l233,QIList(QIList(l100,QIList(l30,l325,l3),l3),QIList(l327,QIList(l33,l325,l3),l3),l3),QIList(l47,QIList(l159,QIList(QIList(l161,l100,l3),QIList(l161,QIList(l16,l3),l3),QIList(l161,l327,l3),l3),l3),l326,l3),QIList(l217,l325,QIList(l35,l325,l3),l3),l3),l3),l3),l3),QIList(l217,l326,QIList(l65,l326,l3),l3),QIList(l159,QIList(l233,QIList(l161,QIList(l70,QIList(l99,l31,l3),l326,l3),l3),QIList(l217,QIList(l160,QIList(l59,QIList(l99,l63,l3),QIList(l70,QIList(l99,l82,l3),l326,l3),QIList(l158,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l56,l190,QIList(l99,QIList(l5,QIList(l328,l329,l203,l316,l3),QIList(l159,QIList(l55,QIList(l229,QIList(l161,l328,l3),QIList(l161,l329,l3),l3),QIList(l160,l316,l3),l3),l3),l3),l3),l3,l3),QIList(l55,l190,QIList(l99,QIList(l5,QIList(l321,l203,l316,l3),QIList(l233,QIList(QIList(l327,QIList(l16,l3),l3),l3),QIList(l159,QIList(l233,QIList(QIList(QIList(l161,l327,l3),QIList(l161,l321,l3),l3),l3),QIList(l160,l316,l3),QIList(l161,l327,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l190,QIList(l99,QIList(l5,QIList(l203,l330,l3),QIList(l50,QIList(QIList(l12,l330,l3),l3,l3),QIList(QIList(l12,QIList(l31,l330,l3),l3),QIList(l30,l330,l3),l3),QIList(l4,QIList(l233,QIList(QIList(l331,QIList(l16,l3),l3),l3),QIList(l159,QIList(l233,QIList(QIList(QIList(l161,l331,l3),QIList(l161,QIList(l30,l330,l3),l3),l3),l3),QIList(l200,QIList(l161,l331,l3),QIList(l161,l331,l3),QIList(l54,QIList(l160,QIList(l31,l330,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l190,QIList(l99,QIList(l5,QIList(l203,l330,l3),QIList(l50,QIList(QIList(l12,l330,l3),l4,l3),QIList(QIList(l12,QIList(l31,l330,l3),l3),QIList(l30,l330,l3),l3),QIList(l4,QIList(l159,QIList(l200,QIList(l161,QIList(l30,l330,l3),l3),QIList(l53,QIList(l160,QIList(l31,l330,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l190,QIList(l99,QIList(l5,QIList(l321,l203,l332,l3),QIList(l159,QIList(l51,QIList(l161,l321,l3),QIList(l160,QIList(l63,l332,QIList(l159,QIList(QIList(l4,QIList(l291,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l190,QIList(l99,QIList(l5,QIList(l321,l203,l332,l3),QIList(l233,QIList(QIList(l333,QIList(l16,l3),l3),l3),QIList(l159,QIList(l233,QIList(QIList(QIList(l161,l333,l3),QIList(l161,l321,l3),l3),l3),QIList(l50,QIList(l160,QIList(l70,QIList(l5,QIList(l334,l3),QIList(l200,QIList(l280,QIList(l30,l334,l3),l4,l3),l334,QIList(l159,QIList(QIList(l26,QIList(l161,l333,l3),QIList(l158,QIList(l161,QIList(l30,l334,l3),l3),l3),l3),QIList(l160,QIList(l31,l334,l3),l3),l3),l3),l3),l3),l332,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l190,QIList(l99,QIList(l5,QIList(l203,l332,l3),QIList(l200,QIList(l12,l332,l3),l3,QIList(l200,QIList(l280,QIList(l32,l332,l3),l4,l3),QIList(l159,QIList(l229,QIList(l160,QIList(l34,l332,l3),l3),l3),l3),QIList(l159,QIList(l200,QIList(l161,QIList(l32,l332,l3),l3),QIList(l229,QIList(l160,QIList(l34,l332,l3),l3),l3),QIList(l50,QIList(l160,QIList(l31,l332,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l190,QIList(l99,QIList(l5,QIList(l335,l203,l316,l3),QIList(l233,QIList(QIList(l336,QIList(l16,l3),l3),QIList(l337,QIList(l39,l335,l3),l3),QIList(l338,QIList(l40,l335,l3),l3),QIList(l329,QIList(l41,l335,l3),l3),l3),QIList(l159,QIList(l175,l3,QIList(l233,QIList(QIList(QIList(l161,l337,l3),0,l3),QIList(QIList(l161,l336,l3),QIList(l161,l338,l3),l3),l3),QIList(l224,QIList(l266,QIList(l161,l337,l3),QIList(l161,l336,l3),l3),QIList(l248,QIList(l160,l316,l3),l3),QIList(l45,QIList(l161,l337,l3),l3),l3),QIList(l161,l329,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l190,QIList(l99,QIList(l5,QIList(l335,l203,l316,l3),QIList(l233,QIList(QIList(l337,QIList(l39,l335,l3),l3),QIList(l339,QIList(l16,l3),l3),l3),QIList(l159,QIList(l175,l3,QIList(l233,QIList(QIList(QIList(l161,l339,l3),QIList(l161,QIList(l40,l335,l3),l3),l3),QIList(QIList(l161,l337,l3),l3,l3),l3),QIList(l224,QIList(l161,l339,l3),QIList(l217,QIList(l161,l337,l3),QIList(l30,QIList(l161,l339,l3),l3),l3),QIList(l248,QIList(l160,l316,l3),l3),QIList(l217,QIList(l161,l339,l3),QIList(l31,QIList(l161,l339,l3),l3),l3),l3),QIList(l161,QIList(l41,l335,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l190,QIList(l99,QIList(l5,QIList(l314,l340,l3),QIList(l159,QIList(l217,QIList(l161,l340,l3),QIList(l28,QIList(l161,l314,l3),QIList(l161,l340,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l190,QIList(l99,QIList(l5,QIList(l314,l202,QIList(l341,1,l3),l3),QIList(l159,QIList(l217,QIList(l161,l314,l3),QIList(l61,QIList(l161,l314,l3),QIList(l161,l341,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l45,l190,QIList(l99,QIList(l5,QIList(l314,l202,QIList(l341,1,l3),l3),QIList(l159,QIList(l217,QIList(l161,l314,l3),QIList(l60,QIList(l161,l314,l3),QIList(l161,l341,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l190,QIList(l99,QIList(l5,QIList(l342,l203,l316,l3),QIList(l159,QIList(l175,l3,QIList(l224,QIList(l161,l342,l3),QIList(l160,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l190,QIList(l99,QIList(l5,QIList(l202,l327,l3),QIList(l159,QIList(l241,l3,QIList(l161,l327,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l190,QIList(l99,QIList(l5,QIList(l319,l315,l203,l316,l3),QIList(l159,QIList(l229,QIList(l276,QIList(l158,QIList(l161,l319,l3),l3),QIList(l10,QIList(l161,QIList(l275,l319,l3),l3),QIList(l161,l315,l3),QIList(l160,QIList(l200,QIList(l53,QIList(l283,QIList(l30,l316,l3),l3),QIList(l27,QIList(l12,QIList(l31,l316,l3),l3),l3),l3),QIList(l159,QIList(QIList(l161,QIList(l30,l316,l3),l3),QIList(l175,QIList(l161,l319,l3),QIList(l160,QIList(l31,l316,l3),l3),l3),l3),l3),QIList(l159,QIList(QIList(l175,QIList(l161,l319,l3),QIList(l160,l316,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l158,QIList(l161,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l190,QIList(l99,QIList(l5,QIList(l319,l315,l203,l316,l3),QIList(l233,QIList(QIList(l314,QIList(l16,"FN",l3),l3),l3),QIList(l159,QIList(l233,QIList(QIList(QIList(l161,l314,l3),QIList(l5,QIList(l161,l315,l3),QIList(l160,l316,l3),l3),l3),l3),QIList(l295,QIList(l161,l314,l3),"fname",QIList(l161,l319,l3),l3),QIList(l161,l314,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l190,QIList(l99,QIList(l5,QIList(l319,l327,l202,l343,l3),QIList(l159,QIList(l229,QIList(l217,QIList(l161,l319,l3),QIList(l161,l327,l3),l3),QIList(l160,QIList(l6,QIList(l283,l343,l3),QIList(l159,QIList(QIList(l295,QIList(l158,QIList(l161,l319,l3),l3),"vardoc",QIList(l161,l343,l3),l3),l3),l3),l3),l3),QIList(l158,QIList(l161,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l190,QIList(l99,QIList(l5,QIList(l319,l327,l202,l343,l3),QIList(l159,QIList(l229,QIList(l2,QIList(l194,QIList(l161,l319,l3),l3),l3),QIList(l7,QIList(l18,QIList(l158,QIList(l161,l319,l3),l3),l3),QIList(l217,QIList(l161,l319,l3),QIList(l161,l327,l3),l3),l3),QIList(l160,QIList(l6,QIList(l283,l343,l3),QIList(l159,QIList(QIList(l295,QIList(l158,QIList(l161,l319,l3),l3),"vardoc",QIList(l161,l343,l3),l3),l3),l3),l3),l3),QIList(l158,QIList(l161,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l190,QIList(l99,QIList(l5,QIList(l342,l203,l316,l3),QIList(l159,QIList(l200,QIList(l161,l342,l3),l3,QIList(l229,QIList(l160,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l190,QIList(l99,QIList(l5,QIList(l342,l203,l316,l3),QIList(l159,QIList(l200,QIList(l161,l342,l3),QIList(l229,QIList(l160,l316,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l190,QIList(l99,QIList(l5,QIList(l315,l203,l316,l3),QIList(l159,QIList(l99,QIList(l5,QIList(l161,l315,l3),QIList(l160,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l190,QIList(l99,QIList(l5,QIList(l203,l317,l3),QIList(l159,QIList(l227,QIList(l160,QIList(l70,QIList(l5,QIList(l318,l3),QIList(l159,QIList(l193,QIList(l158,QIList(l161,l318,l3),l3),l3),l3),l3),l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l190,QIList(l99,QIList(l5,QIList(l319,l315,l203,l316,l3),QIList(l159,QIList(l227,QIList(l189,QIList(l158,QIList(l161,l319,l3),l3),QIList(l158,QIList(l99,QIList(l5,QIList(l161,QIList(l70,QIList(l99,QIList(l5,QIList(l314,l3),QIList(l200,QIList(l280,l314,QIList(l158,l309,l3),l3),QIList(l158,l203,l3),l314,l3),l3),l3),l315,l3),l3),QIList(l160,l316,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3); -(function(){ - l118.fvalue(pv, l309); - l118.fvalue(pv, l308); - l118.fvalue(pv, l307); - l118.fvalue(pv, l306); - l118.fvalue(pv, l305); - l118.fvalue(pv, l304); - l118.fvalue(pv, l303); - l118.fvalue(pv, l302); - l118.fvalue(pv, l301); - l118.fvalue(pv, l300); - l118.fvalue(pv, l299); - l118.fvalue(pv, l298); - l118.fvalue(pv, l297); - l118.fvalue(pv, l296); - l118.fvalue(pv, l295); - l118.fvalue(pv, l294); - l118.fvalue(pv, l293); - l118.fvalue(pv, l292); - l118.fvalue(pv, l291); - l118.fvalue(pv, l290); - l118.fvalue(pv, l289); - l118.fvalue(pv, l288); - l118.fvalue(pv, l287); - l118.fvalue(pv, l286); - l118.fvalue(pv, l285); - l118.fvalue(pv, l284); - l118.fvalue(pv, l283); - l118.fvalue(pv, l282); - l118.fvalue(pv, l281); - l118.fvalue(pv, l280); - l118.fvalue(pv, l279); - l118.fvalue(pv, l278); - l118.fvalue(pv, l277); - l118.fvalue(pv, l276); - l118.fvalue(pv, l275); - l118.fvalue(pv, l274); - l118.fvalue(pv, l273); - l118.fvalue(pv, l272); - l118.fvalue(pv, l271); - l118.fvalue(pv, l270); - l118.fvalue(pv, l269); - l118.fvalue(pv, l268); - l118.fvalue(pv, l267); - l118.fvalue(pv, l266); - l118.fvalue(pv, l265); - l118.fvalue(pv, l264); - l118.fvalue(pv, l263); - l118.fvalue(pv, l262); - l118.fvalue(pv, l261); - l118.fvalue(pv, l260); - l118.fvalue(pv, l259); - l118.fvalue(pv, l258); - l118.fvalue(pv, l257); - l118.fvalue(pv, l256); - l118.fvalue(pv, l255); - l118.fvalue(pv, l254); - l118.fvalue(pv, l253); - l118.fvalue(pv, l252); - l118.fvalue(pv, l251); - l118.fvalue(pv, l250); - l118.fvalue(pv, l249); - l118.fvalue(pv, l248); - l118.fvalue(pv, l247); - l118.fvalue(pv, l246); - l118.fvalue(pv, l245); - l118.fvalue(pv, l244); - l118.fvalue(pv, l243); - l118.fvalue(pv, l242); - l118.fvalue(pv, l241); - l118.fvalue(pv, l240); - l118.fvalue(pv, l239); - l118.fvalue(pv, l238); - l118.fvalue(pv, l237); - l118.fvalue(pv, l236); - l118.fvalue(pv, l235); - l118.fvalue(pv, l234); - l118.fvalue(pv, l233); - l118.fvalue(pv, l232); - l118.fvalue(pv, l231); - l118.fvalue(pv, l230); - l118.fvalue(pv, l229); - l118.fvalue(pv, l228); - l118.fvalue(pv, l227); - l118.fvalue(pv, l226); - l118.fvalue(pv, l225); - l118.fvalue(pv, l224); - l118.fvalue(pv, l223); - l118.fvalue(pv, l222); - l118.fvalue(pv, l221); - l118.fvalue(pv, l220); - l118.fvalue(pv, l219); - l118.fvalue(pv, l218); - l118.fvalue(pv, l217); - l118.fvalue(pv, l216); - l118.fvalue(pv, l215); - l118.fvalue(pv, l214); - l118.fvalue(pv, l213); - l118.fvalue(pv, l212); - l118.fvalue(pv, l211); - l118.fvalue(pv, l210); - l118.fvalue(pv, l209); - l118.fvalue(pv, l208); - l118.fvalue(pv, l207); - l118.fvalue(pv, l206); - l118.fvalue(pv, l205); - l118.fvalue(pv, l203); - l118.fvalue(pv, l202); - l118.fvalue(pv, l201); - l118.fvalue(pv, l200); - l118.fvalue(pv, l199); - l118.fvalue(pv, l198); - l118.fvalue(pv, l197); - l118.fvalue(pv, l196); - l118.fvalue(pv, l195); - l118.fvalue(pv, l194); - l118.fvalue(pv, l193); - l118.fvalue(pv, l192); - l118.fvalue(pv, l191); - l118.fvalue(pv, l190); - l118.fvalue(pv, l189); - l118.fvalue(pv, l188); - l118.fvalue(pv, l187); - l118.fvalue(pv, l186); - l118.fvalue(pv, l185); - l118.fvalue(pv, l184); - l118.fvalue(pv, l183); - l118.fvalue(pv, l182); - l118.fvalue(pv, l181); - l118.fvalue(pv, l180); - l118.fvalue(pv, l179); - l118.fvalue(pv, l178); - l118.fvalue(pv, l177); - l118.fvalue(pv, l176); - l118.fvalue(pv, l175); - l118.fvalue(pv, l174); - l118.fvalue(pv, l173); - l118.fvalue(pv, l172); - l118.fvalue(pv, l171); - l118.fvalue(pv, l170); - l118.fvalue(pv, l169); - l118.fvalue(pv, l168); - l118.fvalue(pv, l167); - l118.fvalue(pv, l166); - l118.fvalue(pv, l165); - l118.fvalue(pv, l164); - l118.fvalue(pv, l163); - l118.fvalue(pv, l162); - l118.fvalue(pv, l161); - l118.fvalue(pv, l160); - l118.fvalue(pv, l159); - l118.fvalue(pv, l158); - l118.fvalue(pv, l157); - l118.fvalue(pv, l156); - l118.fvalue(pv, l155); - l118.fvalue(pv, l154); - l118.fvalue(pv, l153); - l118.fvalue(pv, l152); - l118.fvalue(pv, l151); - l118.fvalue(pv, l150); - l118.fvalue(pv, l149); - l118.fvalue(pv, l148); - l118.fvalue(pv, l147); - l118.fvalue(pv, l146); - l118.fvalue(pv, l145); - l118.fvalue(pv, l144); - l118.fvalue(pv, l143); - l118.fvalue(pv, l142); - l118.fvalue(pv, l141); - l118.fvalue(pv, l140); - l118.fvalue(pv, l139); - l118.fvalue(pv, l138); - l118.fvalue(pv, l137); - l118.fvalue(pv, l136); - l118.fvalue(pv, l135); - l118.fvalue(pv, l134); - l118.fvalue(pv, l133); - l118.fvalue(pv, l132); - l118.fvalue(pv, l131); - l118.fvalue(pv, l130); - l118.fvalue(pv, l129); - l118.fvalue(pv, l128); - l118.fvalue(pv, l127); - l118.fvalue(pv, l126); - l118.fvalue(pv, l125); - l118.fvalue(pv, l124); - l118.fvalue(pv, l123); - l118.fvalue(pv, l122); - l118.fvalue(pv, l121); - l118.fvalue(pv, l120); - l118.fvalue(pv, l119); - l118.fvalue(pv, l118); - l118.fvalue(pv, l117); - l118.fvalue(pv, l116); - l118.fvalue(pv, l115); - l118.fvalue(pv, l114); - l118.fvalue(pv, l113); - l118.fvalue(pv, l112); - l118.fvalue(pv, l111); - l118.fvalue(pv, l110); - l118.fvalue(pv, l109); - l118.fvalue(pv, l108); - l118.fvalue(pv, l107); - l118.fvalue(pv, l106); - l118.fvalue(pv, l105); - l118.fvalue(pv, l104); - l118.fvalue(pv, l103); - l118.fvalue(pv, l102); - l118.fvalue(pv, l101); - l118.fvalue(pv, l100); - l118.fvalue(pv, l99); - l118.fvalue(pv, l98); - l118.fvalue(pv, l97); - l118.fvalue(pv, l96); - l118.fvalue(pv, l95); - l118.fvalue(pv, l94); - l118.fvalue(pv, l93); - l118.fvalue(pv, l92); - l118.fvalue(pv, l91); - l118.fvalue(pv, l90); - l118.fvalue(pv, l89); - l118.fvalue(pv, l88); - l118.fvalue(pv, l87); - l118.fvalue(pv, l86); - l118.fvalue(pv, l85); - l118.fvalue(pv, l84); - l118.fvalue(pv, l83); - l118.fvalue(pv, l82); - l118.fvalue(pv, l81); - l118.fvalue(pv, l80); - l118.fvalue(pv, l79); - l118.fvalue(pv, l78); - l118.fvalue(pv, l77); - l118.fvalue(pv, l76); - l118.fvalue(pv, l75); - l118.fvalue(pv, l74); - l118.fvalue(pv, l73); - l118.fvalue(pv, l72); - l118.fvalue(pv, l71); - l118.fvalue(pv, l70); - l118.fvalue(pv, l69); - l118.fvalue(pv, l68); - l118.fvalue(pv, l67); - l118.fvalue(pv, l66); - l118.fvalue(pv, l65); - l118.fvalue(pv, l64); - l118.fvalue(pv, l63); - l118.fvalue(pv, l62); - l118.fvalue(pv, l61); - l118.fvalue(pv, l60); - l118.fvalue(pv, l59); - l118.fvalue(pv, l58); - l118.fvalue(pv, l57); - l118.fvalue(pv, l56); - l118.fvalue(pv, l55); - l118.fvalue(pv, l54); - l118.fvalue(pv, l53); - l118.fvalue(pv, l52); - l118.fvalue(pv, l51); - l118.fvalue(pv, l50); - l118.fvalue(pv, l49); - l118.fvalue(pv, l48); - l118.fvalue(pv, l47); - l118.fvalue(pv, l46); - l118.fvalue(pv, l45); - l118.fvalue(pv, l44); - l118.fvalue(pv, l43); - l118.fvalue(pv, l42); - l118.fvalue(pv, l41); - l118.fvalue(pv, l40); - l118.fvalue(pv, l39); - l118.fvalue(pv, l38); - l118.fvalue(pv, l37); - l118.fvalue(pv, l36); - l118.fvalue(pv, l35); - l118.fvalue(pv, l34); - l118.fvalue(pv, l33); - l118.fvalue(pv, l32); - l118.fvalue(pv, l31); - l118.fvalue(pv, l30); - l118.fvalue(pv, l29); - l118.fvalue(pv, l28); - l118.fvalue(pv, l27); - l118.fvalue(pv, l26); - l118.fvalue(pv, l25); - l118.fvalue(pv, l24); - l118.fvalue(pv, l23); - l118.fvalue(pv, l22); - l118.fvalue(pv, l21); - l118.fvalue(pv, l20); - l118.fvalue(pv, l19); - l118.fvalue(pv, l18); - l118.fvalue(pv, l17); - l118.fvalue(pv, l16); - l118.fvalue(pv, l15); - l118.fvalue(pv, l14); - l118.fvalue(pv, l13); - l118.fvalue(pv, l12); - l118.fvalue(pv, l11); - l118.fvalue(pv, l10); - l118.fvalue(pv, l9); - l118.fvalue(pv, l8); - l118.fvalue(pv, l7); - l118.fvalue(pv, l6); - l118.fvalue(pv, l5); - l118.fvalue(pv, l4); - l118.fvalue(pv, l3); - l118.fvalue(pv, l2); - l118.fvalue(pv, l1); - ((l220).value = l311); - ((l179).value = l344); - ((l180).value = 813); +var l325 = {name: "VARLIST"}; +var l326 = {name: "ENDLIST"}; +var l327 = {name: "V"}; +var l328 = {name: "PAIRS"}; +var l329 = {name: "ASSIGNMENTS"}; +var l330 = {name: "VALUE"}; +var l331 = {name: "FORM1"}; +var l332 = {name: "RESULT"}; +var l333 = {name: "FORMS"}; +var l334 = {name: "G"}; +var l335 = {name: "CLAUSULES"}; +var l336 = {name: "!FORM"}; +var l337 = {name: "CLAUSULE"}; +var l338 = {name: "ITER"}; +var l339 = {name: "G!TO"}; +var l340 = {name: "VAR"}; +var l341 = {name: "TO"}; +var l342 = {name: "G!LIST"}; +var l343 = {name: "PLACE"}; +var l344 = {name: "DELTA"}; +var l345 = {name: "CONDITION"}; +var l346 = {name: "DOCSTRING"}; +var l347 = QIList(QIList(QIList(l255,l102,l3,QIList(l195,l3),l3),QIList(l245,l102,l3,QIList(l195,l3),l3),QIList(l244,l102,l3,QIList(l195,l3),l3),QIList(l238,l102,l3,QIList(l195,l3),l3),QIList(l227,l102,l3,QIList(l195,l3),l3),QIList(l222,l102,l3,QIList(l195,l3),l3),QIList(l221,l102,l3,QIList(l195,l3),l3),QIList(l202,l102,l3,QIList(l195,l3),l3),QIList(l199,l102,l3,QIList(l195,l3),l3),QIList(l186,l102,l3,QIList(l195,l3),l3),QIList(l182,l102,l3,QIList(l195,l3),l3),QIList(l181,l102,l3,QIList(l195,l3),l3),QIList(l165,l102,l3,QIList(l195,l3),l3),QIList(l159,l102,l3,QIList(l195,l3),l3),QIList(l126,l102,l3,QIList(l195,l3),l3),QIList(l118,l102,l3,QIList(l195,l3),l3),QIList(l115,l102,l3,QIList(l195,l3),l3),QIList(l114,l102,l3,QIList(l195,l3),l3),QIList(l113,l102,l3,QIList(l195,l3),l3),QIList(l103,l102,l3,QIList(l195,l3),l3),QIList(l15,l102,l3,QIList(l195,l3),l3),QIList(l4,l102,l3,QIList(l195,l197,l3),l3),QIList(l3,l102,l3,QIList(l195,l197,l3),l3),l3),QIList(QIList(l264,l191,QIList(l101,QIList(l5,QIList(l312,l313,l3),QIList(l161,QIList(l256,QIList(l163,l312,l3),QIList(l314,l204,l315,l3),QIList(l234,QIList(QIList(l315,QIList(l28,l314,l315,l3),l3),l3),QIList(l260,l315,QIList(l139,QIList(l263,l315,QIList(l163,l313,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l260,l191,QIList(l101,QIList(l5,QIList(l315,l204,l316,l3),QIList(l7,QIList(l273,l315,l3),QIList(l291,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l161,QIList(l259,QIList(l163,l315,l3),QIList(l5,QIList(QIList(l163,l315,l3),l3),QIList(l127,"return ",QIList(l162,l316,l3),";",l126,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l258,l191,QIList(l101,QIList(l5,QIList(l317,l204,l316,l3),QIList(l161,QIList(l141,QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l127,"var ",QIList(l163,QIList(l39,l318,l3),l3)," = ",QIList(l163,QIList(l41,l318,l3),l3),";",l126,l3),l3),l3),l317,l3),l3),QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l127,"if (typeof ",QIList(l163,QIList(l39,l318,l3),l3)," != '",QIList(l163,QIList(l40,l318,l3),l3),"')",l126,QIList(l138,"throw 'The value ' + ",QIList(l163,QIList(l39,l318,l3),l3)," + ' is not a type ",QIList(l163,QIList(l40,l318,l3),l3),".';",l126,l3),l3),l3),l3),l317,l3),l3),QIList(l127,"return ",QIList(l230,QIList(l162,l316,l3),l3),";",l126,l3),l3),l3),l3),l3),l3,l3),QIList(l257,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l230,QIList(l256,QIList(l163,l319,l3),QIList(l163,l315,l3),QIList(l234,QIList(l163,QIList(l72,QIList(l5,QIList(l320,l3),QIList(l161,QIList(QIList(l163,l320,l3),QIList(l140,QIList(l163,l320,l3),l3),l3),l3),l3),l315,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l256,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l47,QIList(l43,QIList(l160,QIList(l163,l319,l3),l3),QIList(l5,QIList(l163,l315,l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l255,l3),l3),l3),l3),l3,l3),QIList(l161,l191,QIList(l101,QIList(l5,QIList(l321,l3),QIList(l253,l321,l3),l3),l3),l3,l3),QIList(l231,l191,QIList(l101,QIList(l5,QIList(l319,l315,l321,l3),QIList(l161,QIList(l200,QIList(l163,l319,l3),QIList(l163,l315,l3),QIList(l140,QIList(l163,l321,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l200,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l47,QIList(l43,QIList(l160,QIList(l163,l319,l3),l3),QIList(l5,QIList(l163,l315,l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l199,l3),l3),l3),l3),l3,l3),QIList(l141,l191,QIList(l101,QIList(l5,QIList(l204,l316,l3),QIList(l161,QIList(l127,"(function(){",l126,QIList(l138,QIList(l162,l316,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l137,l191,QIList(l101,QIList(l5,QIList(l322,l3),QIList(l161,QIList(l251,QIList(l101,l43,l3),QIList(l163,l322,l3),l3),l3),l3),l3),l3,l3),QIList(l136,l191,QIList(l101,QIList(l5,QIList(l323,l322,l204,l316,l3),QIList(l161,QIList(l251,QIList(l5,QIList(l203,QIList(l162,l323,l3),l204,QIList(l163,QIList(l16,l3),l3),l3),QIList(l162,l316,l3),l3),QIList(l163,l322,l3),l3),l3),l3),l3),l3,l3),QIList(l128,l191,QIList(l101,QIList(l5,QIList(l102,l204,l321,l3),QIList(l161,QIList(l218,QIList(l163,l102,l3),QIList(l127,QIList(l163,l102,l3),QIList(l230,QIList(l162,l321,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l119,l191,QIList(l101,QIList(l5,QIList(l324,l3),QIList(l161,QIList(l228,QIList(l218,l118,QIList(l106,QIList(l163,l324,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l68,l191,QIList(l101,QIList(l5,QIList(l325,l326,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l237,QIList(l163,QIList(l72,QIList(l5,QIList(l314,l3),QIList(l43,QIList(l39,l314,l3),QIList(l40,l314,l3),l3),l3),l325,l3),l3),QIList(l14,l4,QIList(l6,QIList(l163,QIList(l30,l326,l3),l3),QIList(l13,QIList(l230,QIList(l163,QIList(l31,l326,l3),l3),l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l218,QIList(l162,QIList(l289,QIList(l101,l63,l3),QIList(l72,QIList(l5,QIList(l327,l3),QIList(l53,QIList(l29,QIList(l35,l327,l3),l3),QIList(l43,QIList(l39,l327,l3),QIList(l41,l327,l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l191,QIList(l101,QIList(l5,QIList(l325,l326,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(l163,QIList(l72,QIList(l5,QIList(l314,l3),QIList(l43,QIList(l39,l314,l3),QIList(l40,l314,l3),l3),l3),l325,l3),l3),QIList(l14,l4,QIList(l6,QIList(l163,QIList(l30,l326,l3),l3),QIList(l13,QIList(l230,QIList(l163,QIList(l31,l326,l3),l3),l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l66,QIList(l162,QIList(l289,QIList(l101,l63,l3),QIList(l72,QIList(l5,QIList(l327,l3),QIList(l53,QIList(l29,QIList(l35,l327,l3),l3),QIList(l43,QIList(l39,l327,l3),QIList(l41,l327,l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l66,l191,QIList(l101,QIList(l5,QIList(l204,l328,l3),QIList(l234,QIList(QIList(l329,QIList(l160,l3,l3),l3),l3),QIList(l14,l4,QIList(l50,QIList(QIList(l12,l328,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l328,l3),l3),QIList(l291,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l234,QIList(QIList(l102,QIList(l30,l328,l3),l3),QIList(l330,QIList(l33,l328,l3),l3),l3),QIList(l47,QIList(l161,QIList(QIList(l163,l102,l3),QIList(l163,QIList(l16,l3),l3),QIList(l163,l330,l3),l3),l3),l329,l3),QIList(l218,l328,QIList(l35,l328,l3),l3),l3),l3),l3),l3),QIList(l218,l329,QIList(l65,l329,l3),l3),QIList(l161,QIList(l234,QIList(l163,QIList(l72,QIList(l101,l31,l3),l329,l3),l3),QIList(l218,QIList(l162,QIList(l59,QIList(l101,l63,l3),QIList(l72,QIList(l101,l84,l3),l329,l3),QIList(l160,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l56,l191,QIList(l101,QIList(l5,QIList(l331,l332,l204,l316,l3),QIList(l161,QIList(l55,QIList(l230,QIList(l163,l331,l3),QIList(l163,l332,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3,l3),QIList(l55,l191,QIList(l101,QIList(l5,QIList(l321,l204,l316,l3),QIList(l234,QIList(QIList(l330,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l330,l3),QIList(l163,l321,l3),l3),l3),QIList(l162,l316,l3),QIList(l163,l330,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l191,QIList(l101,QIList(l5,QIList(l204,l333,l3),QIList(l50,QIList(QIList(l12,l333,l3),l3,l3),QIList(QIList(l12,QIList(l31,l333,l3),l3),QIList(l30,l333,l3),l3),QIList(l4,QIList(l234,QIList(QIList(l334,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l334,l3),QIList(l163,QIList(l30,l333,l3),l3),l3),l3),QIList(l201,QIList(l163,l334,l3),QIList(l163,l334,l3),QIList(l54,QIList(l162,QIList(l31,l333,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l191,QIList(l101,QIList(l5,QIList(l204,l333,l3),QIList(l50,QIList(QIList(l12,l333,l3),l4,l3),QIList(QIList(l12,QIList(l31,l333,l3),l3),QIList(l30,l333,l3),l3),QIList(l4,QIList(l161,QIList(l201,QIList(l163,QIList(l30,l333,l3),l3),QIList(l53,QIList(l162,QIList(l31,l333,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l191,QIList(l101,QIList(l5,QIList(l321,l204,l335,l3),QIList(l161,QIList(l51,QIList(l163,l321,l3),QIList(l162,QIList(l63,l335,QIList(l161,QIList(QIList(l4,QIList(l291,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l191,QIList(l101,QIList(l5,QIList(l321,l204,l335,l3),QIList(l234,QIList(QIList(l336,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l336,l3),QIList(l163,l321,l3),l3),l3),QIList(l50,QIList(l162,QIList(l72,QIList(l5,QIList(l337,l3),QIList(l201,QIList(l280,QIList(l30,l337,l3),l4,l3),l337,QIList(l161,QIList(QIList(l26,QIList(l163,l336,l3),QIList(l160,QIList(l163,QIList(l30,l337,l3),l3),l3),l3),QIList(l162,QIList(l31,l337,l3),l3),l3),l3),l3),l3),l335,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l191,QIList(l101,QIList(l5,QIList(l204,l335,l3),QIList(l201,QIList(l12,l335,l3),l3,QIList(l201,QIList(l280,QIList(l32,l335,l3),l4,l3),QIList(l161,QIList(l230,QIList(l162,QIList(l34,l335,l3),l3),l3),l3),QIList(l161,QIList(l201,QIList(l163,QIList(l32,l335,l3),l3),QIList(l230,QIList(l162,QIList(l34,l335,l3),l3),l3),QIList(l50,QIList(l162,QIList(l31,l335,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l191,QIList(l101,QIList(l5,QIList(l338,l204,l316,l3),QIList(l234,QIList(QIList(l339,QIList(l16,l3),l3),QIList(l340,QIList(l39,l338,l3),l3),QIList(l341,QIList(l40,l338,l3),l3),QIList(l332,QIList(l41,l338,l3),l3),l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(QIList(QIList(l163,l340,l3),0,l3),QIList(QIList(l163,l339,l3),QIList(l163,l341,l3),l3),l3),QIList(l225,QIList(l266,QIList(l163,l340,l3),QIList(l163,l339,l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l45,QIList(l163,l340,l3),l3),l3),QIList(l163,l332,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l191,QIList(l101,QIList(l5,QIList(l338,l204,l316,l3),QIList(l234,QIList(QIList(l340,QIList(l39,l338,l3),l3),QIList(l342,QIList(l16,l3),l3),l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(QIList(QIList(l163,l342,l3),QIList(l163,QIList(l40,l338,l3),l3),l3),QIList(QIList(l163,l340,l3),l3,l3),l3),QIList(l225,QIList(l163,l342,l3),QIList(l218,QIList(l163,l340,l3),QIList(l30,QIList(l163,l342,l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l218,QIList(l163,l342,l3),QIList(l31,QIList(l163,l342,l3),l3),l3),l3),QIList(l163,QIList(l41,l338,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l191,QIList(l101,QIList(l5,QIList(l314,l343,l3),QIList(l161,QIList(l218,QIList(l163,l343,l3),QIList(l28,QIList(l163,l314,l3),QIList(l163,l343,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l191,QIList(l101,QIList(l5,QIList(l314,l203,QIList(l344,1,l3),l3),QIList(l161,QIList(l218,QIList(l163,l314,l3),QIList(l61,QIList(l163,l314,l3),QIList(l163,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l45,l191,QIList(l101,QIList(l5,QIList(l314,l203,QIList(l344,1,l3),l3),QIList(l161,QIList(l218,QIList(l163,l314,l3),QIList(l60,QIList(l163,l314,l3),QIList(l163,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l191,QIList(l101,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l225,QIList(l163,l345,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l191,QIList(l101,QIList(l5,QIList(l203,l330,l3),QIList(l161,QIList(l241,l3,QIList(l163,l330,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l230,QIList(l276,QIList(l160,QIList(l163,l319,l3),l3),QIList(l10,QIList(l163,QIList(l275,l319,l3),l3),QIList(l163,l315,l3),QIList(l162,QIList(l201,QIList(l53,QIList(l283,QIList(l30,l316,l3),l3),QIList(l27,QIList(l12,QIList(l31,l316,l3),l3),l3),l3),QIList(l161,QIList(QIList(l163,QIList(l30,l316,l3),l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,QIList(l31,l316,l3),l3),l3),l3),l3),QIList(l161,QIList(QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l234,QIList(QIList(l314,QIList(l16,"FN",l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l314,l3),QIList(l5,QIList(l163,l315,l3),QIList(l162,l316,l3),l3),l3),l3),QIList(l295,QIList(l163,l314,l3),"fname",QIList(l163,l319,l3),l3),QIList(l163,l314,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l191,QIList(l101,QIList(l5,QIList(l319,l330,l203,l346,l3),QIList(l161,QIList(l230,QIList(l218,QIList(l163,l319,l3),QIList(l163,l330,l3),l3),QIList(l162,QIList(l6,QIList(l283,l346,l3),QIList(l161,QIList(QIList(l295,QIList(l160,QIList(l163,l319,l3),l3),"vardoc",QIList(l163,l346,l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l191,QIList(l101,QIList(l5,QIList(l319,l330,l203,l346,l3),QIList(l161,QIList(l230,QIList(l2,QIList(l195,QIList(l163,l319,l3),l3),l3),QIList(l7,QIList(l18,QIList(l160,QIList(l163,l319,l3),l3),l3),QIList(l218,QIList(l163,l319,l3),QIList(l163,l330,l3),l3),l3),QIList(l162,QIList(l6,QIList(l283,l346,l3),QIList(l161,QIList(QIList(l295,QIList(l160,QIList(l163,l319,l3),l3),"vardoc",QIList(l163,l346,l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l191,QIList(l101,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l201,QIList(l163,l345,l3),l3,QIList(l230,QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l191,QIList(l101,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l201,QIList(l163,l345,l3),QIList(l230,QIList(l162,l316,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l191,QIList(l101,QIList(l5,QIList(l315,l204,l316,l3),QIList(l161,QIList(l101,QIList(l5,QIList(l163,l315,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l191,QIList(l101,QIList(l5,QIList(l204,l317,l3),QIList(l161,QIList(l228,QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l194,QIList(l160,QIList(l163,l318,l3),l3),l3),l3),l3),l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l191,QIList(l101,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l228,QIList(l190,QIList(l160,QIList(l163,l319,l3),l3),QIList(l160,QIList(l101,QIList(l5,QIList(l163,QIList(l72,QIList(l101,QIList(l5,QIList(l314,l3),QIList(l201,QIList(l280,l314,QIList(l160,l309,l3),l3),QIList(l160,l204,l3),l314,l3),l3),l3),l315,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3); +(function(){ + l120.fvalue(pv, l309); + l120.fvalue(pv, l308); + l120.fvalue(pv, l307); + l120.fvalue(pv, l306); + l120.fvalue(pv, l305); + l120.fvalue(pv, l304); + l120.fvalue(pv, l303); + l120.fvalue(pv, l302); + l120.fvalue(pv, l301); + l120.fvalue(pv, l300); + l120.fvalue(pv, l299); + l120.fvalue(pv, l298); + l120.fvalue(pv, l297); + l120.fvalue(pv, l296); + l120.fvalue(pv, l295); + l120.fvalue(pv, l294); + l120.fvalue(pv, l293); + l120.fvalue(pv, l292); + l120.fvalue(pv, l291); + l120.fvalue(pv, l290); + l120.fvalue(pv, l289); + l120.fvalue(pv, l288); + l120.fvalue(pv, l287); + l120.fvalue(pv, l286); + l120.fvalue(pv, l285); + l120.fvalue(pv, l284); + l120.fvalue(pv, l283); + l120.fvalue(pv, l282); + l120.fvalue(pv, l281); + l120.fvalue(pv, l280); + l120.fvalue(pv, l279); + l120.fvalue(pv, l278); + l120.fvalue(pv, l277); + l120.fvalue(pv, l276); + l120.fvalue(pv, l275); + l120.fvalue(pv, l274); + l120.fvalue(pv, l273); + l120.fvalue(pv, l272); + l120.fvalue(pv, l271); + l120.fvalue(pv, l270); + l120.fvalue(pv, l269); + l120.fvalue(pv, l268); + l120.fvalue(pv, l267); + l120.fvalue(pv, l266); + l120.fvalue(pv, l265); + l120.fvalue(pv, l264); + l120.fvalue(pv, l263); + l120.fvalue(pv, l262); + l120.fvalue(pv, l261); + l120.fvalue(pv, l260); + l120.fvalue(pv, l259); + l120.fvalue(pv, l258); + l120.fvalue(pv, l257); + l120.fvalue(pv, l256); + l120.fvalue(pv, l255); + l120.fvalue(pv, l254); + l120.fvalue(pv, l253); + l120.fvalue(pv, l252); + l120.fvalue(pv, l251); + l120.fvalue(pv, l250); + l120.fvalue(pv, l249); + l120.fvalue(pv, l248); + l120.fvalue(pv, l247); + l120.fvalue(pv, l246); + l120.fvalue(pv, l245); + l120.fvalue(pv, l244); + l120.fvalue(pv, l243); + l120.fvalue(pv, l242); + l120.fvalue(pv, l241); + l120.fvalue(pv, l240); + l120.fvalue(pv, l239); + l120.fvalue(pv, l238); + l120.fvalue(pv, l237); + l120.fvalue(pv, l236); + l120.fvalue(pv, l235); + l120.fvalue(pv, l234); + l120.fvalue(pv, l233); + l120.fvalue(pv, l232); + l120.fvalue(pv, l231); + l120.fvalue(pv, l230); + l120.fvalue(pv, l229); + l120.fvalue(pv, l228); + l120.fvalue(pv, l227); + l120.fvalue(pv, l226); + l120.fvalue(pv, l225); + l120.fvalue(pv, l224); + l120.fvalue(pv, l223); + l120.fvalue(pv, l222); + l120.fvalue(pv, l221); + l120.fvalue(pv, l220); + l120.fvalue(pv, l219); + l120.fvalue(pv, l218); + l120.fvalue(pv, l217); + l120.fvalue(pv, l216); + l120.fvalue(pv, l215); + l120.fvalue(pv, l214); + l120.fvalue(pv, l213); + l120.fvalue(pv, l212); + l120.fvalue(pv, l211); + l120.fvalue(pv, l210); + l120.fvalue(pv, l209); + l120.fvalue(pv, l208); + l120.fvalue(pv, l207); + l120.fvalue(pv, l206); + l120.fvalue(pv, l204); + l120.fvalue(pv, l203); + l120.fvalue(pv, l202); + l120.fvalue(pv, l201); + l120.fvalue(pv, l200); + l120.fvalue(pv, l199); + l120.fvalue(pv, l198); + l120.fvalue(pv, l197); + l120.fvalue(pv, l196); + l120.fvalue(pv, l195); + l120.fvalue(pv, l194); + l120.fvalue(pv, l193); + l120.fvalue(pv, l192); + l120.fvalue(pv, l191); + l120.fvalue(pv, l190); + l120.fvalue(pv, l189); + l120.fvalue(pv, l188); + l120.fvalue(pv, l187); + l120.fvalue(pv, l186); + l120.fvalue(pv, l185); + l120.fvalue(pv, l184); + l120.fvalue(pv, l183); + l120.fvalue(pv, l182); + l120.fvalue(pv, l181); + l120.fvalue(pv, l180); + l120.fvalue(pv, l179); + l120.fvalue(pv, l178); + l120.fvalue(pv, l177); + l120.fvalue(pv, l176); + l120.fvalue(pv, l175); + l120.fvalue(pv, l174); + l120.fvalue(pv, l173); + l120.fvalue(pv, l172); + l120.fvalue(pv, l171); + l120.fvalue(pv, l170); + l120.fvalue(pv, l169); + l120.fvalue(pv, l168); + l120.fvalue(pv, l167); + l120.fvalue(pv, l166); + l120.fvalue(pv, l165); + l120.fvalue(pv, l164); + l120.fvalue(pv, l163); + l120.fvalue(pv, l162); + l120.fvalue(pv, l161); + l120.fvalue(pv, l160); + l120.fvalue(pv, l159); + l120.fvalue(pv, l158); + l120.fvalue(pv, l157); + l120.fvalue(pv, l156); + l120.fvalue(pv, l155); + l120.fvalue(pv, l154); + l120.fvalue(pv, l153); + l120.fvalue(pv, l152); + l120.fvalue(pv, l151); + l120.fvalue(pv, l150); + l120.fvalue(pv, l149); + l120.fvalue(pv, l148); + l120.fvalue(pv, l147); + l120.fvalue(pv, l146); + l120.fvalue(pv, l145); + l120.fvalue(pv, l144); + l120.fvalue(pv, l143); + l120.fvalue(pv, l142); + l120.fvalue(pv, l141); + l120.fvalue(pv, l140); + l120.fvalue(pv, l139); + l120.fvalue(pv, l138); + l120.fvalue(pv, l137); + l120.fvalue(pv, l136); + l120.fvalue(pv, l135); + l120.fvalue(pv, l134); + l120.fvalue(pv, l133); + l120.fvalue(pv, l132); + l120.fvalue(pv, l131); + l120.fvalue(pv, l130); + l120.fvalue(pv, l129); + l120.fvalue(pv, l128); + l120.fvalue(pv, l127); + l120.fvalue(pv, l126); + l120.fvalue(pv, l125); + l120.fvalue(pv, l124); + l120.fvalue(pv, l123); + l120.fvalue(pv, l122); + l120.fvalue(pv, l121); + l120.fvalue(pv, l120); + l120.fvalue(pv, l119); + l120.fvalue(pv, l118); + l120.fvalue(pv, l117); + l120.fvalue(pv, l116); + l120.fvalue(pv, l115); + l120.fvalue(pv, l114); + l120.fvalue(pv, l113); + l120.fvalue(pv, l112); + l120.fvalue(pv, l111); + l120.fvalue(pv, l110); + l120.fvalue(pv, l109); + l120.fvalue(pv, l108); + l120.fvalue(pv, l107); + l120.fvalue(pv, l106); + l120.fvalue(pv, l105); + l120.fvalue(pv, l104); + l120.fvalue(pv, l103); + l120.fvalue(pv, l102); + l120.fvalue(pv, l101); + l120.fvalue(pv, l100); + l120.fvalue(pv, l99); + l120.fvalue(pv, l98); + l120.fvalue(pv, l97); + l120.fvalue(pv, l96); + l120.fvalue(pv, l95); + l120.fvalue(pv, l94); + l120.fvalue(pv, l93); + l120.fvalue(pv, l92); + l120.fvalue(pv, l91); + l120.fvalue(pv, l90); + l120.fvalue(pv, l89); + l120.fvalue(pv, l88); + l120.fvalue(pv, l87); + l120.fvalue(pv, l86); + l120.fvalue(pv, l85); + l120.fvalue(pv, l84); + l120.fvalue(pv, l83); + l120.fvalue(pv, l82); + l120.fvalue(pv, l81); + l120.fvalue(pv, l80); + l120.fvalue(pv, l79); + l120.fvalue(pv, l78); + l120.fvalue(pv, l77); + l120.fvalue(pv, l76); + l120.fvalue(pv, l75); + l120.fvalue(pv, l74); + l120.fvalue(pv, l73); + l120.fvalue(pv, l72); + l120.fvalue(pv, l71); + l120.fvalue(pv, l70); + l120.fvalue(pv, l69); + l120.fvalue(pv, l68); + l120.fvalue(pv, l67); + l120.fvalue(pv, l66); + l120.fvalue(pv, l65); + l120.fvalue(pv, l64); + l120.fvalue(pv, l63); + l120.fvalue(pv, l62); + l120.fvalue(pv, l61); + l120.fvalue(pv, l60); + l120.fvalue(pv, l59); + l120.fvalue(pv, l58); + l120.fvalue(pv, l57); + l120.fvalue(pv, l56); + l120.fvalue(pv, l55); + l120.fvalue(pv, l54); + l120.fvalue(pv, l53); + l120.fvalue(pv, l52); + l120.fvalue(pv, l51); + l120.fvalue(pv, l50); + l120.fvalue(pv, l49); + l120.fvalue(pv, l48); + l120.fvalue(pv, l47); + l120.fvalue(pv, l46); + l120.fvalue(pv, l45); + l120.fvalue(pv, l44); + l120.fvalue(pv, l43); + l120.fvalue(pv, l42); + l120.fvalue(pv, l41); + l120.fvalue(pv, l40); + l120.fvalue(pv, l39); + l120.fvalue(pv, l38); + l120.fvalue(pv, l37); + l120.fvalue(pv, l36); + l120.fvalue(pv, l35); + l120.fvalue(pv, l34); + l120.fvalue(pv, l33); + l120.fvalue(pv, l32); + l120.fvalue(pv, l31); + l120.fvalue(pv, l30); + l120.fvalue(pv, l29); + l120.fvalue(pv, l28); + l120.fvalue(pv, l27); + l120.fvalue(pv, l26); + l120.fvalue(pv, l25); + l120.fvalue(pv, l24); + l120.fvalue(pv, l23); + l120.fvalue(pv, l22); + l120.fvalue(pv, l21); + l120.fvalue(pv, l20); + l120.fvalue(pv, l19); + l120.fvalue(pv, l18); + l120.fvalue(pv, l17); + l120.fvalue(pv, l16); + l120.fvalue(pv, l15); + l120.fvalue(pv, l14); + l120.fvalue(pv, l13); + l120.fvalue(pv, l12); + l120.fvalue(pv, l11); + l120.fvalue(pv, l10); + l120.fvalue(pv, l9); + l120.fvalue(pv, l8); + l120.fvalue(pv, l7); + l120.fvalue(pv, l6); + l120.fvalue(pv, l5); + l120.fvalue(pv, l4); + l120.fvalue(pv, l3); + l120.fvalue(pv, l2); + l120.fvalue(pv, l1); + ((l221).value = l311); + ((l181).value = l347); + ((l182).value = 813); ((l15).value = 207); return ((l238).value = 280); })(); -((l221).value = 344); +((l222).value = 347); diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 7b46a86..cb89dfc 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -302,7 +302,7 @@ (setq ,@(!reduce #'append (mapcar #'butlast assignments) '()))))) (defmacro do (varlist endlist &body body) - `(block nil + `(block nil (let ,(mapcar (lambda (x) (list (first x) (second x))) varlist) (while t (when ,(car endlist) @@ -311,12 +311,12 @@ (psetq ,@(apply #'append (mapcar (lambda (v) - (and (consp (cdr v)) + (and (consp (cddr v)) (list (first v) (third v)))) varlist))))))) (defmacro do* (varlist endlist &body body) - `(block nil + `(block nil (let* ,(mapcar (lambda (x) (list (first x) (second x))) varlist) (while t (when ,(car endlist) @@ -325,10 +325,10 @@ (setq ,@(apply #'append (mapcar (lambda (v) - (and (consp (cdr v)) + (and (consp (cddr v)) (list (first v) (third v)))) varlist))))))) - + (defun list-length (list) (let ((l 0)) (while (not (null list)) @@ -1079,7 +1079,7 @@ (defun extend-local-env (args) (let ((new (copy-lexenv *environment*))) (dolist (symbol args new) - (let ((b (make-binding symbol 'lexical-variable (gvarname symbol)))) + (let ((b (make-binding symbol 'variable (gvarname symbol)))) (push-to-lexenv b new 'variable))))) ;;; Toplevel compilations @@ -1262,7 +1262,9 @@ (defun setq-pair (var val) (let ((b (lookup-in-lexenv var *environment* 'variable))) - (if (eq (binding-type b) 'lexical-variable) + (if (and (eq (binding-type b) 'variable) + (not (member 'special (binding-declarations b))) + (not (member 'constant (binding-declarations b)))) (concat (binding-value b) " = " (ls-compile val)) (ls-compile `(set ',var ,val))))) @@ -1438,7 +1440,7 @@ ;;; Return the code to initialize BINDING, and push it extending the -;;; current lexical environment if the variable is special. +;;; current lexical environment if the variable is not special. (defun let*-initialize-value (binding) (let ((var (first binding)) (value (second binding)))