From eab69a67f89f63c06467cf1dc8c17f0acc5196d9 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 18 Feb 2013 01:46:30 +0000 Subject: [PATCH] Internal do-sequence macro --- ecmalisp.js | 8076 +++++++++++++++++++++++++++++---------------------------- ecmalisp.lisp | 60 +- 2 files changed, 4072 insertions(+), 4064 deletions(-) diff --git a/ecmalisp.js b/ecmalisp.js index a33702d..994bdae 100644 --- a/ecmalisp.js +++ b/ecmalisp.js @@ -1697,86 +1697,89 @@ var l102 = {name: "SUBSEQ"}; })); return l102; })(); -var l103 = {name: "SOME"}; +var l103 = {name: "DO-SEQUENCE"}; +l103; +var l104 = {name: "SOME"}; (function(){ - (l103).fvalue = (function(v189){ - ((v189)["fname"] = "SOME"); - return v189; + (l104).fvalue = (function(v192){ + ((v192)["fname"] = "SOME"); + return v192; })((function (values,v183,v184){ checkArgs(arguments, 3); return (function(){ try { - return (((typeof(v184) == "string")?l4.value: l5.value) !== l5.value ? (function(v185,v186){ - (function(){ + return (function(v185){ + return (((typeof(v185) == "string")?l4.value: l5.value) !== l5.value ? (function(v186){ return (function(){ - while((function(){ - var x1 = v185; - if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v186; - if (typeof x2 !== 'number') throw 'Not a number!'; - return (x1=1; i--) - v226 = {car: arguments[i], cdr: - v226}; + v232 = {car: arguments[i], cdr: + v232}; return (function(){ - return (function(v228){ + return (function(v234){ return (function(){ - return (function(v229){ + return (function(v235){ return (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l13.fvalue(pv, v229) !== l5.value ? (function(){ + (l13.fvalue(pv, v235) !== l5.value ? (function(){ var values = mv; throw ({type: 'block', id: 98, values: l5.value, message: 'Return from unknown block NIL.'}) })() : l5.value); (function(){ - (function(v230){ - return (function(v231){ + (function(v236){ + return (function(v237){ return (((function(){ - var tmp = v231; + var tmp = v237; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (function(){ - var v232 = v230; - var v233 = v232; + var v238 = v236; + var v239 = v238; (function(){ - return (function(v234){ + return (function(v240){ return (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l14.fvalue(pv, v234) !== l5.value ? (function(){ + (l14.fvalue(pv, v240) !== l5.value ? (function(){ throw ({type: 'block', id: 100, values: l5.value, message: 'Return from unknown block NIL.'}) })() : l5.value); (function(){ - (function(v235){ - return (function(v236){ + (function(v241){ + return (function(v242){ return (((function(){ - var tmp = v236; + var tmp = v242; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (function(){ (function(){ - var x = l94.fvalue(pv, v233); + var x = l94.fvalue(pv, v239); if (typeof x != 'object') throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = v235, x); + return (x.cdr = v241, x); })(); return (function(){ return (function(){ - var func = (function (values,v238){ - var v238; + var func = (function (values,v244){ + var v244; switch(arguments.length-1){ case 0: - v238=l5.value; + v244=l5.value; default: break; } - var v237= l5.value; + var v243= l5.value; for (var i = arguments.length-1; i>=2; i--) - v237 = {car: arguments[i], cdr: - v237}; - return (v233 = v238); + v243 = {car: arguments[i], cdr: + v243}; + return (v239 = v244); }); var args = [pv]; return (function(){ var values = mv; var vs; - vs = v235; + vs = v241; if (typeof vs === 'object' && 'multiple-value' in vs) args = args.concat(vs); else @@ -2206,31 +2211,31 @@ var l126 = {name: "NCONC"}; })(); })(); })(); - })() : (l13.fvalue(pv, v236) !== l5.value ? (function(){ - var x = l94.fvalue(pv, v233); + })() : (l13.fvalue(pv, v242) !== l5.value ? (function(){ + var x = l94.fvalue(pv, v239); if (typeof x != 'object') throw 'The value ' + x + ' is not a type object.'; return (x.cdr = l5.value, x); - })() : (l48.fvalue(pv, v236) !== l5.value ? ((function(){ - var tmp = v234; + })() : (l48.fvalue(pv, v242) !== l5.value ? ((function(){ + var tmp = v240; return tmp === l5.value? l5.value: tmp.cdr; - })() !== l5.value ? v228(pv, v235) : (function(){ - var x = l94.fvalue(pv, v233); + })() !== l5.value ? v234(pv, v241) : (function(){ + var x = l94.fvalue(pv, v239); if (typeof x != 'object') throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = v235, x); + return (x.cdr = v241, x); })()) : l5.value))); - })(v235); + })(v241); })((function(){ - var tmp = v234; + var tmp = v240; return tmp === l5.value? l5.value: tmp.car; })()); return l5.value; })(); - (function(v239){ - return (v234 = v239); + (function(v245){ + return (v240 = v245); })((function(){ - var tmp = v234; + var tmp = v240; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; @@ -2244,32 +2249,32 @@ var l126 = {name: "NCONC"}; } })(); })((function(){ - var tmp = v229; + var tmp = v235; return tmp === l5.value? l5.value: tmp.cdr; })()); })(); return (function(){ var values = mv; - throw ({type: 'block', id: 98, values: v232, message: 'Return from unknown block NIL.'}) + throw ({type: 'block', id: 98, values: v238, message: 'Return from unknown block NIL.'}) })(); - })() : (l13.fvalue(pv, v231) !== l5.value ? l5.value : (l48.fvalue(pv, v231) !== l5.value ? ((function(){ - var tmp = v229; + })() : (l13.fvalue(pv, v237) !== l5.value ? l5.value : (l48.fvalue(pv, v237) !== l5.value ? ((function(){ + var tmp = v235; return tmp === l5.value? l5.value: tmp.cdr; - })() !== l5.value ? v228(pv, v230) : (function(){ + })() !== l5.value ? v234(pv, v236) : (function(){ var values = mv; - throw ({type: 'block', id: 98, values: v230, message: 'Return from unknown block NIL.'}) + throw ({type: 'block', id: 98, values: v236, message: 'Return from unknown block NIL.'}) })()) : l5.value))); - })(v230); + })(v236); })((function(){ - var tmp = v229; + var tmp = v235; return tmp === l5.value? l5.value: tmp.car; })()); return l5.value; })(); - (function(v240){ - return (v229 = v240); + (function(v246){ + return (v235 = v246); })((function(){ - var tmp = v229; + var tmp = v235; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; @@ -2282,9 +2287,9 @@ var l126 = {name: "NCONC"}; throw cf; } })(); - })(v226); + })(v232); })(); - })((function (values,v227){ + })((function (values,v233){ checkArgs(arguments, 2); return (function(){ throw "type-error in nconc"; @@ -2292,41 +2297,41 @@ var l126 = {name: "NCONC"}; })); })(); })); - return l126; + return l127; })(); -var l127 = {name: "NRECONC"}; +var l128 = {name: "NRECONC"}; (function(){ - (l127).fvalue = (function(v250){ - ((v250)["fname"] = "NRECONC"); - return v250; - })((function (values,v242,v243){ + (l128).fvalue = (function(v256){ + ((v256)["fname"] = "NRECONC"); + return v256; + })((function (values,v248,v249){ checkArgs(arguments, 3); return (function(){ return (function(){ - return (function(v244,v245,v246){ + return (function(v250,v251,v252){ return (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l48.fvalue(pv, v245) !== l5.value ? (function(){ + (l48.fvalue(pv, v251) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 103, values: v246, message: 'Return from unknown block NIL.'}) + throw ({type: 'block', id: 103, values: v252, message: 'Return from unknown block NIL.'}) })() : l5.value); (function(){ (function(){ - var x = v245; + var x = v251; if (typeof x != 'object') throw 'The value ' + x + ' is not a type object.'; - return (x.cdr = v246, x); + return (x.cdr = v252, x); })(); return l5.value; })(); - (function(v247,v248,v249){ - return (v244 = v247, v245 = v248, v246 = v249); - })((l14.fvalue(pv, v244) !== l5.value ? v244 : (function(){ - var tmp = v244; + (function(v253,v254,v255){ + return (v250 = v253, v251 = v254, v252 = v255); + })((l14.fvalue(pv, v250) !== l5.value ? v250 : (function(){ + var tmp = v250; return tmp === l5.value? l5.value: tmp.cdr; - })()),v244,v245); + })()),v250,v251); }return l5.value; })(); } @@ -2338,154 +2343,154 @@ var l127 = {name: "NRECONC"}; } })(); })((function(){ - var tmp = v242; + var tmp = v248; return tmp === l5.value? l5.value: tmp.cdr; - })(),v242,v243); + })(),v248,v249); })(); })(); })); - return l127; + return l128; })(); -var l128 = {name: "NOTANY"}; +var l129 = {name: "NOTANY"}; (function(){ - (l128).fvalue = (function(v253){ - ((v253)["fname"] = "NOTANY"); - return v253; - })((function (values,v251,v252){ + (l129).fvalue = (function(v259){ + ((v259)["fname"] = "NOTANY"); + return v259; + })((function (values,v257,v258){ checkArgs(arguments, 3); return (function(){ - return l29.fvalue(values, l103.fvalue(pv, v251, v252)); + return l29.fvalue(values, l104.fvalue(pv, v257, v258)); })(); })); - return l128; + return l129; })(); -var l129 = {name: "*PACKAGE-LIST*"}; +var l130 = {name: "*PACKAGE-LIST*"}; (function(){ - (((l129.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l129).value = l5.value)); - return l129; + (((l130.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l130).value = l5.value)); + return l130; })(); -var l130 = {name: "LIST-ALL-PACKAGES"}; +var l131 = {name: "LIST-ALL-PACKAGES"}; (function(){ - (l130).fvalue = (function(v254){ - ((v254)["fname"] = "LIST-ALL-PACKAGES"); - return v254; + (l131).fvalue = (function(v260){ + ((v260)["fname"] = "LIST-ALL-PACKAGES"); + return v260; })((function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ - var symbol = l129; + var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(); })(); })); - return l130; + return l131; })(); -var l131 = {name: "MAKE-PACKAGE"}; -var l132 = {name: "USE", 'package': 'KEYWORD'}; -var l133 = {name: "FIND-PACKAGE-OR-FAIL"}; +var l132 = {name: "MAKE-PACKAGE"}; +var l133 = {name: "USE", 'package': 'KEYWORD'}; +var l134 = {name: "FIND-PACKAGE-OR-FAIL"}; (function(){ - (l131).fvalue = (function(v261){ - ((v261)["fname"] = "MAKE-PACKAGE"); - return v261; - })((function (values,v255){ + (l132).fvalue = (function(v267){ + ((v267)["fname"] = "MAKE-PACKAGE"); + return v267; + })((function (values,v261){ checkArgsAtLeast(arguments, 2); - var v256; + var v262; var i; for (i=2; i=3; i--) - v302 = {car: arguments[i], cdr: - v302}; - return (v304 !== l5.value ? values(v303, v304) : (function(v305){ + v308 = {car: arguments[i], cdr: + v308}; + return (v310 !== l5.value ? values(v309, v310) : (function(v311){ (function(){ - var tmp = (v305)[v299]; + var tmp = (v311)[v305]; return tmp == undefined? l5.value: tmp ; })(); - return (function(v306){ - ((v306)["package"] = v301); - (((v301 === (function(){ - var symbol = l142; + return (function(v312){ + ((v312)["package"] = v307); + (((v307 === (function(){ + var symbol = l143; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? (function(){ - ((v306)["value"] = v306); - return l153.fvalue(pv, l47.fvalue(pv, v306), v301); + ((v312)["value"] = v312); + return l154.fvalue(pv, l47.fvalue(pv, v312), v307); })() : l5.value); - ((v305)[v299] = v306); - return values(v306, l5.value); + ((v311)[v305] = v312); + return values(v312, l5.value); })((function(){ - var name = v299; + var name = v305; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })()); - })(l137.fvalue(pv, v301))); + })(l138.fvalue(pv, v307))); }); var args = [values]; return (function(){ var values = mv; var vs; - vs = l148.fvalue(values, v299, v301); + vs = l149.fvalue(values, v305, v307); if (typeof vs === 'object' && 'multiple-value' in vs) args = args.concat(vs); else @@ -2833,44 +2838,44 @@ var l153 = {name: "EXPORT"}; return func.apply(window, args); })(); })(); - })(l133.fvalue(pv, v300)); + })(l134.fvalue(pv, v306)); })(); })); - return l152; + return l153; })(); (function(){ - (l144).fvalue = (function(v309){ - ((v309)["fname"] = "SYMBOL-PACKAGE"); - return v309; - })((function (values,v308){ + (l145).fvalue = (function(v315){ + ((v315)["fname"] = "SYMBOL-PACKAGE"); + return v315; + })((function (values,v314){ checkArgs(arguments, 2); return (function(){ (((function(){ - var tmp = v308; + var tmp = v314; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ throw "it is not a symbol"; })()); return (function(){ - var tmp = (v308)["package"]; + var tmp = (v314)["package"]; return tmp == undefined? l5.value: tmp ; })(); })(); })); - return l144; + return l145; })(); (function(){ - (l153).fvalue = (function(v315){ - ((v315)["fname"] = "EXPORT"); - return v315; - })((function (values,v310,v311){ + (l154).fvalue = (function(v321){ + ((v321)["fname"] = "EXPORT"); + return v321; + })((function (values,v316,v317){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v311; + var v317; switch(arguments.length-1){ case 1: - v311=(function(){ - var symbol = l145; + v317=(function(){ + var symbol = l146; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -2878,38 +2883,38 @@ var l153 = {name: "EXPORT"}; default: break; } return (function(){ - return (function(v312){ + return (function(v318){ return (function(){ - return (function(v313,v314){ + return (function(v319,v320){ (function(){ - while(v313 !== l5.value){ - (v314 = (function(){ - var tmp = v313; + while(v319 !== l5.value){ + (v320 = (function(){ + var tmp = v319; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - ((v312)[(v314).name] = v314); + ((v318)[(v320).name] = v320); return l5.value; })(); - (v313 = (function(){ - var tmp = v313; + (v319 = (function(){ + var tmp = v319; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); return l4.value; - })(v310,l5.value); + })(v316,l5.value); })(); - })(l139.fvalue(pv, v311)); + })(l140.fvalue(pv, v317)); })(); })); - return l153; + return l154; })(); -var l154 = {name: "GET-UNIVERSAL-TIME"}; +var l155 = {name: "GET-UNIVERSAL-TIME"}; (function(){ - (l154).fvalue = (function(v316){ - ((v316)["fname"] = "GET-UNIVERSAL-TIME"); - return v316; + (l155).fvalue = (function(v322){ + ((v322)["fname"] = "GET-UNIVERSAL-TIME"); + return v322; })((function (values){ checkArgsAtMost(arguments, 1); return (function(){ @@ -2920,250 +2925,250 @@ var l154 = {name: "GET-UNIVERSAL-TIME"}; })(); })(); })); - return l154; + return l155; })(); -var l155 = {name: "*NEWLINE*"}; +var l156 = {name: "*NEWLINE*"}; (function(){ - (((l155.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l155).value = l106.fvalue(pv, l86.fvalue(pv, 10)))); - return l155; + (((l156.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l156).value = l107.fvalue(pv, l86.fvalue(pv, 10)))); + return l156; })(); -var l156 = {name: "CONCAT"}; +var l157 = {name: "CONCAT"}; (function(){ - (l156).fvalue = (function(v318){ - ((v318)["fname"] = "CONCAT"); - return v318; + (l157).fvalue = (function(v324){ + ((v324)["fname"] = "CONCAT"); + return v324; })((function (values){ - var v317= l5.value; + var v323= l5.value; for (var i = arguments.length-1; i>=1; i--) - v317 = {car: arguments[i], cdr: - v317}; + v323 = {car: arguments[i], cdr: + v323}; return (function(){ return l63.fvalue(values, (function(){ var symbol = l76; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v317, l64.value, ""); + })(), v323, l64.value, ""); })(); })); - return l156; + return l157; })(); -var l157 = {name: "CONCATF"}; -l157; -var l158 = {name: "JOIN"}; +var l158 = {name: "CONCATF"}; +l158; +var l159 = {name: "JOIN"}; (function(){ - (l158).fvalue = (function(v321){ - ((v321)["fname"] = "JOIN"); - return v321; - })((function (values,v319,v320){ + (l159).fvalue = (function(v327){ + ((v327)["fname"] = "JOIN"); + return v327; + })((function (values,v325,v326){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v320; + var v326; switch(arguments.length-1){ case 1: - v320=""; + v326=""; default: break; } return (function(){ - return (l13.fvalue(pv, v319) !== l5.value ? "" : (l13.fvalue(pv, (function(){ - var tmp = v319; + return (l13.fvalue(pv, v325) !== l5.value ? "" : (l13.fvalue(pv, (function(){ + var tmp = v325; return tmp === l5.value? l5.value: tmp.cdr; })()) !== l5.value ? (function(){ - var tmp = v319; + var tmp = v325; return tmp === l5.value? l5.value: tmp.car; - })() : l156.fvalue(values, (function(){ - var tmp = v319; + })() : l157.fvalue(values, (function(){ + var tmp = v325; return tmp === l5.value? l5.value: tmp.car; - })(), v320, l158.fvalue(pv, (function(){ - var tmp = v319; + })(), v326, l159.fvalue(pv, (function(){ + var tmp = v325; return tmp === l5.value? l5.value: tmp.cdr; - })(), v320)))); + })(), v326)))); })(); })); - return l158; + return l159; })(); -var l159 = {name: "JOIN-TRAILING"}; +var l160 = {name: "JOIN-TRAILING"}; (function(){ - (l159).fvalue = (function(v324){ - ((v324)["fname"] = "JOIN-TRAILING"); - return v324; - })((function (values,v322,v323){ + (l160).fvalue = (function(v330){ + ((v330)["fname"] = "JOIN-TRAILING"); + return v330; + })((function (values,v328,v329){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v323; + var v329; switch(arguments.length-1){ case 1: - v323=""; + v329=""; default: break; } return (function(){ - return (l13.fvalue(pv, v322) !== l5.value ? "" : l156.fvalue(values, (function(){ - var tmp = v322; + return (l13.fvalue(pv, v328) !== l5.value ? "" : l157.fvalue(values, (function(){ + var tmp = v328; return tmp === l5.value? l5.value: tmp.car; - })(), v323, l159.fvalue(pv, (function(){ - var tmp = v322; + })(), v329, l160.fvalue(pv, (function(){ + var tmp = v328; return tmp === l5.value? l5.value: tmp.cdr; - })(), v323))); + })(), v329))); })(); })); - return l159; + return l160; })(); -var l160 = {name: "MAPCONCAT"}; +var l161 = {name: "MAPCONCAT"}; (function(){ - (l160).fvalue = (function(v327){ - ((v327)["fname"] = "MAPCONCAT"); - return v327; - })((function (values,v325,v326){ + (l161).fvalue = (function(v333){ + ((v333)["fname"] = "MAPCONCAT"); + return v333; + })((function (values,v331,v332){ checkArgs(arguments, 3); return (function(){ - return l158.fvalue(values, l81.fvalue(pv, v325, v326)); + return l159.fvalue(values, l81.fvalue(pv, v331, v332)); })(); })); - return l160; + return l161; })(); -var l161 = {name: "VECTOR-TO-LIST"}; +var l162 = {name: "VECTOR-TO-LIST"}; (function(){ - (l161).fvalue = (function(v335){ - ((v335)["fname"] = "VECTOR-TO-LIST"); - return v335; - })((function (values,v328){ + (l162).fvalue = (function(v341){ + ((v341)["fname"] = "VECTOR-TO-LIST"); + return v341; + })((function (values,v334){ checkArgs(arguments, 2); return (function(){ - return (function(v329,v330){ + return (function(v335,v336){ return (function(){ - return (function(v331,v332){ + return (function(v337,v338){ (function(){ while((function(){ - var x1 = v331; + var x1 = v337; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v332; + var x2 = v338; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1= x.length) throw 'Out of range'; - return x[i] = v340; + return x[i] = v346; })(); - (v338 = (function(){ - var x1 = v338; + (v344 = (function(){ + var x1 = v344; if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; })()); return l5.value; })(); - (v339 = (function(){ - var tmp = v339; + (v345 = (function(){ + var tmp = v345; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); - return v337; - })(v336,l5.value); + return v343; + })(v342,l5.value); })(); })((function(){ var r = []; - for (var i = 0; i < l75.fvalue(pv, v336); i++) + for (var i = 0; i < l75.fvalue(pv, v342); i++) r.push(l5.value); return r; })(),0); })(); })); - return l162; + return l163; })(); -var l163 = {name: "VALUES-LIST"}; +var l164 = {name: "VALUES-LIST"}; (function(){ - (l163).fvalue = (function(v343){ - ((v343)["fname"] = "VALUES-LIST"); - return v343; - })((function (values,v342){ + (l164).fvalue = (function(v349){ + ((v349)["fname"] = "VALUES-LIST"); + return v349; + })((function (values,v348){ checkArgs(arguments, 2); return (function(){ - return values.apply(this, l162.fvalue(pv, v342)); + return values.apply(this, l163.fvalue(pv, v348)); })(); })); - return l163; + return l164; })(); -var l164 = {name: "VALUES"}; +var l165 = {name: "VALUES"}; (function(){ - (l164).fvalue = (function(v345){ - ((v345)["fname"] = "VALUES"); - return v345; + (l165).fvalue = (function(v351){ + ((v351)["fname"] = "VALUES"); + return v351; })((function (values){ - var v344= l5.value; + var v350= l5.value; for (var i = arguments.length-1; i>=1; i--) - v344 = {car: arguments[i], cdr: - v344}; + v350 = {car: arguments[i], cdr: + v350}; return (function(){ - return l163.fvalue(values, v344); + return l164.fvalue(values, v350); })(); })); - return l164; + return l165; })(); (function(){ - (l19).fvalue = (function(v351){ - ((v351)["fname"] = "INTEGER-TO-STRING"); - return v351; - })((function (values,v346){ + (l19).fvalue = (function(v357){ + ((v357)["fname"] = "INTEGER-TO-STRING"); + return v357; + })((function (values,v352){ checkArgs(arguments, 2); return (function(){ - return (l26.fvalue(pv, v346) !== l5.value ? "0" : (l91.fvalue(pv, v346) !== l5.value ? l156.fvalue(values, "-", l19.fvalue(pv, (function(){ - var x1 = v346; + return (l26.fvalue(pv, v352) !== l5.value ? "0" : (l91.fvalue(pv, v352) !== l5.value ? l157.fvalue(values, "-", l19.fvalue(pv, (function(){ + var x1 = v352; if (typeof x1 !== 'number') throw 'Not a number!'; return 0-x1; - })())) : (function(v347){ + })())) : (function(v353){ (function(){ return (function(){ - while(l29.fvalue(pv, l26.fvalue(pv, v346)) !== l5.value){ + while(l29.fvalue(pv, l26.fvalue(pv, v352)) !== l5.value){ (function(){ - var v348 = (function(){ - var x = v346; + var v354 = (function(){ + var x = v352; var y = 10; if (typeof x != 'number') throw 'The value ' + x + ' is not a type number.'; @@ -3171,59 +3176,59 @@ var l164 = {name: "VALUES"}; throw 'The value ' + y + ' is not a type number.'; return x%y; })(); - var v349 = ({car: v348, cdr: v347}); - return (v347 = v349); + var v355 = ({car: v354, cdr: v353}); + return (v353 = v355); })(); - (v346 = l27.fvalue(pv, v346, 10)); + (v352 = l27.fvalue(pv, v352, 10)); }return l5.value; })(); })(); - return l160.fvalue(values, (function (values,v350){ + return l161.fvalue(values, (function (values,v356){ checkArgs(arguments, 2); - return l106.fvalue(values, l101.fvalue(pv, v350)); - }), v347); + return l107.fvalue(values, l101.fvalue(pv, v356)); + }), v353); })(l5.value))); })(); })); return l19; })(); -var l165 = {name: "PRIN1-TO-STRING"}; -var l166 = {name: "ESCAPE-STRING"}; +var l166 = {name: "PRIN1-TO-STRING"}; +var l167 = {name: "ESCAPE-STRING"}; (function(){ - (l165).fvalue = (function(v360){ - ((v360)["fname"] = "PRIN1-TO-STRING"); - return v360; - })((function (values,v352){ + (l166).fvalue = (function(v366){ + ((v366)["fname"] = "PRIN1-TO-STRING"); + return v366; + })((function (values,v358){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v352; + var tmp = v358; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value) !== l5.value ? (function(){ - var func = (function (values,v354,v355){ - var v354; - var v355; + var func = (function (values,v360,v361){ + var v360; + var v361; switch(arguments.length-1){ case 0: - v354=l5.value; + v360=l5.value; case 1: - v355=l5.value; + v361=l5.value; default: break; } - var v353= l5.value; + var v359= l5.value; for (var i = arguments.length-1; i>=3; i--) - v353 = {car: arguments[i], cdr: - v353}; - return ((v355 !== l5.value ? ((v354 === v352)?l4.value: l5.value) : l5.value) !== l5.value ? (v352).name : (function(v356,v357){ - return l156.fvalue(values, (l13.fvalue(pv, v356) !== l5.value ? "#" : (((v356 === l135.fvalue(pv, "KEYWORD"))?l4.value: l5.value) !== l5.value ? "" : l136.fvalue(pv, v356))), ":", v357); - })(l144.fvalue(pv, v352),(v352).name)); + v359 = {car: arguments[i], cdr: + v359}; + return ((v361 !== l5.value ? ((v360 === v358)?l4.value: l5.value) : l5.value) !== l5.value ? (v358).name : (function(v362,v363){ + return l157.fvalue(values, (l13.fvalue(pv, v362) !== l5.value ? "#" : (((v362 === l136.fvalue(pv, "KEYWORD"))?l4.value: l5.value) !== l5.value ? "" : l137.fvalue(pv, v362))), ":", v363); + })(l145.fvalue(pv, v358),(v358).name)); }); var args = [values]; return (function(){ var values = mv; var vs; - vs = l148.fvalue(values, (v352).name, (function(){ - var symbol = l145; + vs = l149.fvalue(values, (v358).name, (function(){ + var symbol = l146; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -3234,54 +3239,54 @@ var l166 = {name: "ESCAPE-STRING"}; args.push(vs); return func.apply(window, args); })(); - })() : (l89.fvalue(pv, v352) !== l5.value ? l19.fvalue(values, v352) : (((typeof(v352) == "string")?l4.value: l5.value) !== l5.value ? l156.fvalue(values, "\"", l166.fvalue(pv, v352), "\"") : (((typeof v352 == 'function')?l4.value: l5.value) !== l5.value ? (function(v358){ - return (v358 !== l5.value ? l156.fvalue(values, "#") : l156.fvalue(values, "#")); + })() : (l89.fvalue(pv, v358) !== l5.value ? l19.fvalue(values, v358) : (((typeof(v358) == "string")?l4.value: l5.value) !== l5.value ? l157.fvalue(values, "\"", l167.fvalue(pv, v358), "\"") : (((typeof v358 == 'function')?l4.value: l5.value) !== l5.value ? (function(v364){ + return (v364 !== l5.value ? l157.fvalue(values, "#") : l157.fvalue(values, "#")); })((function(){ - var tmp = (v352)["fname"]; + var tmp = (v358)["fname"]; return tmp == undefined? l5.value: tmp ; - })()) : (l62.fvalue(pv, v352) !== l5.value ? l156.fvalue(values, "(", l159.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l165; + })()) : (l62.fvalue(pv, v358) !== l5.value ? l157.fvalue(values, "(", l160.fvalue(pv, l81.fvalue(pv, (function(){ + var symbol = l166; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l95.fvalue(pv, v352)), " "), (function(v359){ + })(), l95.fvalue(pv, v358)), " "), (function(v365){ return (l13.fvalue(pv, (function(){ - var tmp = v359; + var tmp = v365; return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? l165.fvalue(pv, (function(){ - var tmp = v359; + })()) !== l5.value ? l166.fvalue(pv, (function(){ + var tmp = v365; return tmp === l5.value? l5.value: tmp.car; - })()) : l156.fvalue(pv, l165.fvalue(pv, (function(){ - var tmp = v359; + })()) : l157.fvalue(pv, l166.fvalue(pv, (function(){ + var tmp = v365; return tmp === l5.value? l5.value: tmp.car; - })()), " . ", l165.fvalue(pv, (function(){ - var tmp = v359; + })()), " . ", l166.fvalue(pv, (function(){ + var tmp = v365; return tmp === l5.value? l5.value: tmp.cdr; })()))); - })(l94.fvalue(pv, v352)), ")") : (((function(){ - var x = v352; + })(l94.fvalue(pv, v358)), ")") : (((function(){ + var x = v358; return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l156.fvalue(values, "#", l165.fvalue(pv, l161.fvalue(pv, v352))) : (l134.fvalue(pv, v352) !== l5.value ? l156.fvalue(values, "#") : l5.value))))))); + })()?l4.value: l5.value) !== l5.value ? l157.fvalue(values, "#", l166.fvalue(pv, l162.fvalue(pv, v358))) : (l135.fvalue(pv, v358) !== l5.value ? l157.fvalue(values, "#") : l5.value))))))); })(); })); - return l165; + return l166; })(); (function(){ - (l110).fvalue = (function(v362){ - ((v362)["fname"] = "WRITE-LINE"); - return v362; - })((function (values,v361){ + (l111).fvalue = (function(v368){ + ((v368)["fname"] = "WRITE-LINE"); + return v368; + })((function (values,v367){ checkArgs(arguments, 2); return (function(){ (function(){ - var x = v361; + var x = v367; if (typeof x != 'string') throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); })(); (function(){ var x = (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -3290,17 +3295,17 @@ var l166 = {name: "ESCAPE-STRING"}; throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); })(); - return v361; + return v367; })(); })); - return l110; + return l111; })(); -var l167 = {name: "WARN"}; +var l168 = {name: "WARN"}; (function(){ - (l167).fvalue = (function(v364){ - ((v364)["fname"] = "WARN"); - return v364; - })((function (values,v363){ + (l168).fvalue = (function(v370){ + ((v370)["fname"] = "WARN"); + return v370; + })((function (values,v369){ checkArgs(arguments, 2); return (function(){ (function(){ @@ -3309,65 +3314,65 @@ var l167 = {name: "WARN"}; throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); })(); - return l110.fvalue(values, v363); + return l111.fvalue(values, v369); })(); })); - return l167; + return l168; })(); -var l168 = {name: "PRINT"}; +var l169 = {name: "PRINT"}; (function(){ - (l168).fvalue = (function(v366){ - ((v366)["fname"] = "PRINT"); - return v366; - })((function (values,v365){ + (l169).fvalue = (function(v372){ + ((v372)["fname"] = "PRINT"); + return v372; + })((function (values,v371){ checkArgs(arguments, 2); return (function(){ - l110.fvalue(pv, l165.fvalue(pv, v365)); - return v365; + l111.fvalue(pv, l166.fvalue(pv, v371)); + return v371; })(); })); - return l168; + return l169; })(); -var l169 = {name: "MAKE-STRING-STREAM"}; +var l170 = {name: "MAKE-STRING-STREAM"}; (function(){ - (l169).fvalue = (function(v368){ - ((v368)["fname"] = "MAKE-STRING-STREAM"); - return v368; - })((function (values,v367){ + (l170).fvalue = (function(v374){ + ((v374)["fname"] = "MAKE-STRING-STREAM"); + return v374; + })((function (values,v373){ checkArgs(arguments, 2); return (function(){ - return ({car: v367, cdr: 0}); + return ({car: v373, cdr: 0}); })(); })); - return l169; + return l170; })(); -var l170 = {name: "%PEEK-CHAR"}; +var l171 = {name: "%PEEK-CHAR"}; (function(){ - (l170).fvalue = (function(v370){ - ((v370)["fname"] = "%PEEK-CHAR"); - return v370; - })((function (values,v369){ + (l171).fvalue = (function(v376){ + ((v376)["fname"] = "%PEEK-CHAR"); + return v376; + })((function (values,v375){ checkArgs(arguments, 2); return (function(){ return ((function(){ var x1 = (function(){ - var tmp = v369; + var tmp = v375; return tmp === l5.value? l5.value: tmp.cdr; })(); if (typeof x1 !== 'number') throw 'Not a number!'; var x2 = l75.fvalue(pv, (function(){ - var tmp = v369; + var tmp = v375; return tmp === l5.value? l5.value: tmp.car; })()); if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=1; i--) - v437 = {car: arguments[i], cdr: - v437}; + v443 = {car: arguments[i], cdr: + v443}; return (function(){ - return l160.fvalue(values, (function (values,v438){ + return l161.fvalue(values, (function (values,v444){ checkArgs(arguments, 2); - return (l13.fvalue(pv, v438) !== l5.value ? "" : (l89.fvalue(pv, v438) !== l5.value ? l19.fvalue(values, v438) : (((typeof(v438) == "string")?l4.value: l5.value) !== l5.value ? v438 : (function(){ + return (l13.fvalue(pv, v444) !== l5.value ? "" : (l89.fvalue(pv, v444) !== l5.value ? l19.fvalue(values, v444) : (((typeof(v444) == "string")?l4.value: l5.value) !== l5.value ? v444 : (function(){ throw "Unknown argument."; })()))); - }), v437); + }), v443); })(); })); - return l190; + return l191; })(); -var l191 = {name: "JS!BOOL"}; -var l192 = {name: "LS-COMPILE"}; +var l192 = {name: "JS!BOOL"}; +var l193 = {name: "LS-COMPILE"}; (function(){ - (l191).fvalue = (function(v441){ - ((v441)["fname"] = "JS!BOOL"); - return v441; - })((function (values,v440){ + (l192).fvalue = (function(v447){ + ((v447)["fname"] = "JS!BOOL"); + return v447; + })((function (values,v446){ checkArgs(arguments, 2); return (function(){ - return l190.fvalue(values, "(", v440, "?", l192.fvalue(pv, l4.value), ": ", l192.fvalue(pv, l5.value), ")"); + return l191.fvalue(values, "(", v446, "?", l193.fvalue(pv, l4.value), ": ", l193.fvalue(pv, l5.value), ")"); })(); })); - return l191; + return l192; })(); -var l193 = {name: "JS!SELFCALL"}; -l193; -var l194 = {name: "INDENT"}; +var l194 = {name: "JS!SELFCALL"}; +l194; +var l195 = {name: "INDENT"}; (function(){ - (l194).fvalue = (function(v448){ - ((v448)["fname"] = "INDENT"); - return v448; + (l195).fvalue = (function(v454){ + ((v454)["fname"] = "INDENT"); + return v454; })((function (values){ - var v442= l5.value; + var v448= l5.value; for (var i = arguments.length-1; i>=1; i--) - v442 = {car: arguments[i], cdr: - v442}; + v448 = {car: arguments[i], cdr: + v448}; return (function(){ - return (function(v443){ - return (function(v444,v445,v446){ - (l90.fvalue(pv, l75.fvalue(pv, v443)) !== l5.value ? (v444 = l156.fvalue(pv, v444, " ")) : l5.value); + return (function(v449){ + return (function(v450,v451,v452){ + (l90.fvalue(pv, l75.fvalue(pv, v449)) !== l5.value ? (v450 = l157.fvalue(pv, v450, " ")) : l5.value); (function(){ return (function(){ while((function(){ - var x1 = v445; + var x1 = v451; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v446; + var x2 = v452; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=2; i--) - v565 = {car: arguments[i], cdr: - v565}; + v571 = {car: arguments[i], cdr: + v571}; return (function(){ - return (v566 !== l5.value ? l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (v572 !== l5.value ? l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var func = ", l158.fvalue(pv, v565), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var func = ", l159.fvalue(pv, v571), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "func.docstring = '", v566, "';", (function(){ - var symbol = l155; + })(), "func.docstring = '", v572, "';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return func;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()") : (function(){ var f = (function(){ - var symbol = l190; + var symbol = l191; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(); var args = [values]; - var tail = (v565); + var tail = (v571); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; @@ -4968,44 +4973,44 @@ var l246 = {name: "LAMBDA-DOCSTRING-WRAPPER"}; })()); })(); })); - return l246; + return l247; })(); -var l247 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"}; -var l248 = {name: "N/A"}; +var l248 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"}; +var l249 = {name: "N/A"}; (function(){ - (l247).fvalue = (function(v573){ - ((v573)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT"); - return v573; - })((function (values,v568,v569,v570){ + (l248).fvalue = (function(v579){ + ((v579)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT"); + return v579; + })((function (values,v574,v575,v576){ checkArgs(arguments, 4); return (function(){ - return (function(v571,v572){ + return (function(v577,v578){ return (function(){ try { (((function(){ - var x1 = v571; + var x1 = v577; if (typeof x1 !== 'number') throw 'Not a number!'; return (1=", (function(){ - var x1 = v588; + var x1 = v594; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v589; + var x2 = v595; if (typeof x2 !== 'number') throw 'Not a number!'; return 1+x1+x2; })(), "; i--)", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, v591, " = {car: arguments[i], cdr: "), v591, "};", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, v597, " = {car: arguments[i], cdr: "), v597, "};", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l214.fvalue(pv, v590)) : l5.value); - })(l75.fvalue(pv, l239.fvalue(pv, v587)),l75.fvalue(pv, l241.fvalue(pv, v587)),l242.fvalue(pv, v587)); + })(l215.fvalue(pv, v596)) : l5.value); + })(l75.fvalue(pv, l240.fvalue(pv, v593)),l75.fvalue(pv, l242.fvalue(pv, v593)),l243.fvalue(pv, v593)); })(); })); - return l250; + return l251; })(); -var l251 = {name: "COMPILE-LAMBDA-PARSE-KEYWORDS"}; +var l252 = {name: "COMPILE-LAMBDA-PARSE-KEYWORDS"}; (function(){ - (l251).fvalue = (function(v603){ - ((v603)["fname"] = "COMPILE-LAMBDA-PARSE-KEYWORDS"); - return v603; - })((function (values,v593){ + (l252).fvalue = (function(v609){ + ((v609)["fname"] = "COMPILE-LAMBDA-PARSE-KEYWORDS"); + return v609; + })((function (values,v599){ checkArgs(arguments, 2); return (function(){ - return (function(v594,v595,v596){ - return l190.fvalue(values, l160.fvalue(pv, (function (values,v597){ + return (function(v600,v601,v602){ + return l191.fvalue(values, l161.fvalue(pv, (function (values,v603){ checkArgs(arguments, 2); - return (function(v598){ - return l190.fvalue(values, "var ", l214.fvalue(pv, v598), "; ", (function(){ - var symbol = l155; + return (function(v604){ + return l191.fvalue(values, "var ", l215.fvalue(pv, v604), "; ", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (l44.fvalue(pv, v597) !== l5.value ? l190.fvalue(pv, "var ", l214.fvalue(pv, l44.fvalue(pv, v597)), " = ", l192.fvalue(pv, l5.value), ";", (function(){ - var symbol = l155; + })(), (l44.fvalue(pv, v603) !== l5.value ? l191.fvalue(pv, "var ", l215.fvalue(pv, l44.fvalue(pv, v603)), " = ", l193.fvalue(pv, l5.value), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : l5.value)); })(l43.fvalue(pv, (function(){ - var tmp = v597; + var tmp = v603; return tmp === l5.value? l5.value: tmp.car; })())); - }), v596), (function(v601){ - return (v596 !== l5.value ? l190.fvalue(pv, "var i;", (function(){ - var symbol = l155; + }), v602), (function(v607){ + return (v602 !== l5.value ? l191.fvalue(pv, "var i;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l160.fvalue(pv, v601, v596)) : l5.value); - })((function (values,v599){ + })(), l161.fvalue(pv, v607, v602)) : l5.value); + })((function (values,v605){ checkArgs(arguments, 2); - return l190.fvalue(values, "for (i=", (function(){ - var x1 = v594; + return l191.fvalue(values, "for (i=", (function(){ + var x1 = v600; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v595; + var x2 = v601; if (typeof x2 !== 'number') throw 'Not a number!'; return 1+x1+x2; })(), "; i=1; i--) - v622 = {car: arguments[i], cdr: - v622}; + v628 = {car: arguments[i], cdr: + v628}; return (function(){ - return (function(v623){ + return (function(v629){ (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l13.fvalue(pv, v622) !== l5.value ? (function(){ + (l13.fvalue(pv, v628) !== l5.value ? (function(){ throw ({type: 'block', id: 215, values: l5.value, message: 'Return from unknown block NIL.'}) })() : (l13.fvalue(pv, (function(){ - var tmp = v622; + var tmp = v628; return tmp === l5.value? l5.value: tmp.cdr; })()) !== l5.value ? (function(){ throw "Odd paris in SETQ"; })() : (function(){ - (v623 = l156.fvalue(pv, v623, l156.fvalue(pv, l254.fvalue(pv, (function(){ - var tmp = v622; + (v629 = l157.fvalue(pv, v629, l157.fvalue(pv, l255.fvalue(pv, (function(){ + var tmp = v628; return tmp === l5.value? l5.value: tmp.car; - })(), l35.fvalue(pv, v622)), (l13.fvalue(pv, l37.fvalue(pv, v622)) !== l5.value ? "" : ", ")))); - return (v622 = l37.fvalue(pv, v622)); + })(), l35.fvalue(pv, v628)), (l13.fvalue(pv, l37.fvalue(pv, v628)) !== l5.value ? "" : ", ")))); + return (v628 = l37.fvalue(pv, v628)); })())); }return l5.value; })(); @@ -5429,120 +5434,120 @@ var l255 = {name: "SET"}; throw cf; } })(); - return l190.fvalue(values, "(", v623, ")"); + return l191.fvalue(values, "(", v629, ")"); })(""); })(); })); - var v624 = ({car: v621, cdr: (function(){ - var symbol = l229; + var v630 = ({car: v627, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v624); + return ((l230).value = v630); })(); -var l256 = {name: "JS-VREF"}; +var l257 = {name: "JS-VREF"}; (function(){ - var v625 = l47.fvalue(pv, l256, (function (values,v626){ + var v631 = l47.fvalue(pv, l257, (function (values,v632){ checkArgs(arguments, 2); return (function(){ - return v626; + return v632; })(); })); - var v627 = ({car: v625, cdr: (function(){ - var symbol = l229; + var v633 = ({car: v631, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v627); + return ((l230).value = v633); })(); -var l257 = {name: "JS-VSET"}; +var l258 = {name: "JS-VSET"}; (function(){ - var v628 = l47.fvalue(pv, l257, (function (values,v629,v630){ + var v634 = l47.fvalue(pv, l258, (function (values,v635,v636){ checkArgs(arguments, 3); return (function(){ - return l190.fvalue(values, "(", v629, " = ", l192.fvalue(pv, v630), ")"); + return l191.fvalue(values, "(", v635, " = ", l193.fvalue(pv, v636), ")"); })(); })); - var v631 = ({car: v628, cdr: (function(){ - var symbol = l229; + var v637 = ({car: v634, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v631); + return ((l230).value = v637); })(); (function(){ - (l166).fvalue = (function(v638){ - ((v638)["fname"] = "ESCAPE-STRING"); - return v638; - })((function (values,v632){ + (l167).fvalue = (function(v644){ + ((v644)["fname"] = "ESCAPE-STRING"); + return v644; + })((function (values,v638){ checkArgs(arguments, 2); return (function(){ - return (function(v633,v634,v635){ + return (function(v639,v640,v641){ (function(){ return (function(){ while((function(){ - var x1 = v634; + var x1 = v640; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v635; + var x2 = v641; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=2; i--) - v661 = {car: arguments[i], cdr: - v661}; + v667 = {car: arguments[i], cdr: + v667}; return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "while(", l192.fvalue(pv, v662), " !== ", l192.fvalue(pv, l5.value), "){", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "while(", l193.fvalue(pv, v668), " !== ", l193.fvalue(pv, l5.value), "){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l253.fvalue(pv, v661)), "}", "return ", l192.fvalue(pv, l5.value), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l254.fvalue(pv, v667)), "}", "return ", l193.fvalue(pv, l5.value), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })); - var v663 = ({car: v660, cdr: (function(){ - var symbol = l229; + var v669 = ({car: v666, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v663); + return ((l230).value = v669); })(); -var l263 = {name: "SYMBOL-FUNCTION"}; +var l264 = {name: "SYMBOL-FUNCTION"}; (function(){ - var v664 = l47.fvalue(pv, l112, (function (values,v665){ + var v670 = l47.fvalue(pv, l113, (function (values,v671){ checkArgs(arguments, 2); return (function(){ - return ((l62.fvalue(pv, v665) !== l5.value ? (((function(){ - var tmp = v665; + return ((l62.fvalue(pv, v671) !== l5.value ? (((function(){ + var tmp = v671; return tmp === l5.value? l5.value: tmp.car; - })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l252.fvalue(values, l35.fvalue(pv, v665), l37.fvalue(pv, v665)) : (((function(){ - var tmp = v665; + })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l253.fvalue(values, l35.fvalue(pv, v671), l37.fvalue(pv, v671)) : (((function(){ + var tmp = v671; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v666){ - return (v666 !== l5.value ? l199.fvalue(values, v666) : l192.fvalue(values, l47.fvalue(pv, l263, l47.fvalue(pv, l185, v665)))); - })(l210.fvalue(pv, v665, (function(){ - var symbol = l211; + })()?l4.value: l5.value) !== l5.value ? (function(v672){ + return (v672 !== l5.value ? l200.fvalue(values, v672) : l193.fvalue(values, l47.fvalue(pv, l264, l47.fvalue(pv, l186, v671)))); + })(l211.fvalue(pv, v671, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l112)) : l5.value)); + })(), l113)) : l5.value)); })(); })); - var v667 = ({car: v664, cdr: (function(){ - var symbol = l229; + var v673 = ({car: v670, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v667); + return ((l230).value = v673); })(); -var l264 = {name: "MAKE-FUNCTION-BINDING"}; +var l265 = {name: "MAKE-FUNCTION-BINDING"}; (function(){ - (l264).fvalue = (function(v669){ - ((v669)["fname"] = "MAKE-FUNCTION-BINDING"); - return v669; - })((function (values,v668){ + (l265).fvalue = (function(v675){ + ((v675)["fname"] = "MAKE-FUNCTION-BINDING"); + return v675; + })((function (values,v674){ checkArgs(arguments, 2); return (function(){ - return l196.fvalue(values, v668, l112, l213.fvalue(pv, v668)); + return l197.fvalue(values, v674, l113, l214.fvalue(pv, v674)); })(); })); - return l264; + return l265; })(); -var l265 = {name: "COMPILE-FUNCTION-DEFINITION"}; +var l266 = {name: "COMPILE-FUNCTION-DEFINITION"}; (function(){ - (l265).fvalue = (function(v671){ - ((v671)["fname"] = "COMPILE-FUNCTION-DEFINITION"); - return v671; - })((function (values,v670){ + (l266).fvalue = (function(v677){ + ((v677)["fname"] = "COMPILE-FUNCTION-DEFINITION"); + return v677; + })((function (values,v676){ checkArgs(arguments, 2); return (function(){ - return l252.fvalue(values, (function(){ - var tmp = v670; + return l253.fvalue(values, (function(){ + var tmp = v676; return tmp === l5.value? l5.value: tmp.car; })(), (function(){ - var tmp = v670; + var tmp = v676; return tmp === l5.value? l5.value: tmp.cdr; })()); })(); })); - return l265; + return l266; })(); -var l266 = {name: "TRANSLATE-FUNCTION"}; +var l267 = {name: "TRANSLATE-FUNCTION"}; (function(){ - (l266).fvalue = (function(v674){ - ((v674)["fname"] = "TRANSLATE-FUNCTION"); - return v674; - })((function (values,v672){ + (l267).fvalue = (function(v680){ + ((v680)["fname"] = "TRANSLATE-FUNCTION"); + return v680; + })((function (values,v678){ checkArgs(arguments, 2); return (function(){ - return (function(v673){ - return l199.fvalue(values, v673); - })(l210.fvalue(pv, v672, (function(){ - var symbol = l211; + return (function(v679){ + return l200.fvalue(values, v679); + })(l211.fvalue(pv, v678, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l112)); + })(), l113)); })(); })); - return l266; + return l267; })(); -var l267 = {name: "FLET"}; +var l268 = {name: "FLET"}; (function(){ - var v675 = l47.fvalue(pv, l267, (function (values,v677){ + var v681 = l47.fvalue(pv, l268, (function (values,v683){ checkArgsAtLeast(arguments, 2); - var v676= l5.value; + var v682= l5.value; for (var i = arguments.length-1; i>=2; i--) - v676 = {car: arguments[i], cdr: - v676}; + v682 = {car: arguments[i], cdr: + v682}; return (function(){ return (function(){ try { - var v682 = l211.value; - var v678 = l81.fvalue(pv, (function(){ + var v688 = l212.value; + var v684 = l81.fvalue(pv, (function(){ var symbol = l32; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v677); - var v679 = l81.fvalue(pv, (function(){ + })(), v683); + var v685 = l81.fvalue(pv, (function(){ var symbol = l33; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v677); - var v680 = l81.fvalue(pv, (function(){ - var symbol = l265; + })(), v683); + var v686 = l81.fvalue(pv, (function(){ + var symbol = l266; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v679); - ((l211).value = l209.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l264; + })(), v685); + ((l212).value = l210.fvalue(pv, l81.fvalue(pv, (function(){ + var symbol = l265; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v678), (function(){ - var symbol = l211; + })(), v684), (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l112)); - return l190.fvalue(values, "(function(", l158.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l266; + })(), l113)); + return l191.fvalue(values, "(function(", l159.fvalue(pv, l81.fvalue(pv, (function(){ + var symbol = l267; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v678), ","), "){", (function(){ - var symbol = l155; + })(), v684), ","), "){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (function(v681){ - return l194.fvalue(pv, v681); - })(l253.fvalue(pv, v676, l4.value)), "})(", l158.fvalue(pv, v680, ","), ")"); + })(), (function(v687){ + return l195.fvalue(pv, v687); + })(l254.fvalue(pv, v682, l4.value)), "})(", l159.fvalue(pv, v686, ","), ")"); } finally { - l211.value = v682; + l212.value = v688; } })(); })(); })); - var v683 = ({car: v675, cdr: (function(){ - var symbol = l229; + var v689 = ({car: v681, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v683); + return ((l230).value = v689); })(); -var l268 = {name: "LABELS"}; +var l269 = {name: "LABELS"}; (function(){ - var v684 = l47.fvalue(pv, l268, (function (values,v686){ + var v690 = l47.fvalue(pv, l269, (function (values,v692){ checkArgsAtLeast(arguments, 2); - var v685= l5.value; + var v691= l5.value; for (var i = arguments.length-1; i>=2; i--) - v685 = {car: arguments[i], cdr: - v685}; + v691 = {car: arguments[i], cdr: + v691}; return (function(){ return (function(){ try { - var v689 = l211.value; - var v687 = l81.fvalue(pv, (function(){ + var v695 = l212.value; + var v693 = l81.fvalue(pv, (function(){ var symbol = l32; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v686); - ((l211).value = l209.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l264; + })(), v692); + ((l212).value = l210.fvalue(pv, l81.fvalue(pv, (function(){ + var symbol = l265; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v687), (function(){ - var symbol = l211; + })(), v693), (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l112)); - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + })(), l113)); + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l160.fvalue(pv, (function (values,v688){ + })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v694){ checkArgs(arguments, 2); - return l190.fvalue(values, "var ", l266.fvalue(pv, (function(){ - var tmp = v688; + return l191.fvalue(values, "var ", l267.fvalue(pv, (function(){ + var tmp = v694; return tmp === l5.value? l5.value: tmp.car; - })()), " = ", l252.fvalue(pv, l35.fvalue(pv, v688), l37.fvalue(pv, v688)), ";", (function(){ - var symbol = l155; + })()), " = ", l253.fvalue(pv, l35.fvalue(pv, v694), l37.fvalue(pv, v694)), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - }), v686), l253.fvalue(pv, v685, l4.value)), "})()"); + }), v692), l254.fvalue(pv, v691, l4.value)), "})()"); } finally { - l211.value = v689; + l212.value = v695; } })(); })(); })); - var v690 = ({car: v684, cdr: (function(){ - var symbol = l229; + var v696 = ({car: v690, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v690); + return ((l230).value = v696); })(); -var l269 = {name: "*COMPILING-FILE*"}; +var l270 = {name: "*COMPILING-FILE*"}; (function(){ - (((l269.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l269).value = l5.value)); - return l269; + (((l270.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l270).value = l5.value)); + return l270; })(); -var l270 = {name: "EVAL-WHEN-COMPILE"}; -var l271 = {name: "EVAL"}; +var l271 = {name: "EVAL-WHEN-COMPILE"}; +var l272 = {name: "EVAL"}; (function(){ - var v691 = l47.fvalue(pv, l270, (function (values){ - var v692= l5.value; + var v697 = l47.fvalue(pv, l271, (function (values){ + var v698= l5.value; for (var i = arguments.length-1; i>=1; i--) - v692 = {car: arguments[i], cdr: - v692}; + v698 = {car: arguments[i], cdr: + v698}; return (function(){ return ((function(){ - var symbol = l269; + var symbol = l270; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? (function(){ - l271.fvalue(pv, ({car: l122, cdr: v692})); + l272.fvalue(pv, ({car: l123, cdr: v698})); return l5.value; - })() : l192.fvalue(values, ({car: l122, cdr: v692}))); + })() : l193.fvalue(values, ({car: l123, cdr: v698}))); })(); })); - var v693 = ({car: v691, cdr: (function(){ - var symbol = l229; + var v699 = ({car: v697, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v693); + return ((l230).value = v699); })(); -var l272 = {name: "DEFINE-TRANSFORMATION"}; -l272; +var l273 = {name: "DEFINE-TRANSFORMATION"}; +l273; (function(){ - var v694 = l47.fvalue(pv, l122, (function (values){ - var v695= l5.value; + var v700 = l47.fvalue(pv, l123, (function (values){ + var v701= l5.value; for (var i = arguments.length-1; i>=1; i--) - v695 = {car: arguments[i], cdr: - v695}; + v701 = {car: arguments[i], cdr: + v701}; return (function(){ return (l13.fvalue(pv, (function(){ - var tmp = v695; + var tmp = v701; return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? l192.fvalue(values, (function(){ - var tmp = v695; + })()) !== l5.value ? l193.fvalue(values, (function(){ + var tmp = v701; return tmp === l5.value? l5.value: tmp.car; })(), (function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + })()) : l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l253.fvalue(pv, v695, l4.value)), "})()")); + })(), l195.fvalue(pv, l254.fvalue(pv, v701, l4.value)), "})()")); })(); })); - var v696 = ({car: v694, cdr: (function(){ - var symbol = l229; + var v702 = ({car: v700, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v696); + return ((l230).value = v702); })(); -var l273 = {name: "SPECIAL-VARIABLE-P"}; +var l274 = {name: "SPECIAL-VARIABLE-P"}; (function(){ - (l273).fvalue = (function(v698){ - ((v698)["fname"] = "SPECIAL-VARIABLE-P"); - return v698; - })((function (values,v697){ + (l274).fvalue = (function(v704){ + ((v704)["fname"] = "SPECIAL-VARIABLE-P"); + return v704; + })((function (values,v703){ checkArgs(arguments, 2); return (function(){ - return (l223.fvalue(pv, v697, l113, l225) !== l5.value ? l4.value : l5.value); + return (l224.fvalue(pv, v703, l114, l226) !== l5.value ? l4.value : l5.value); })(); })); - return l273; + return l274; })(); -var l274 = {name: "LET-BINDING-WRAPPER"}; +var l275 = {name: "LET-BINDING-WRAPPER"}; (function(){ - (l274).fvalue = (function(v705){ - ((v705)["fname"] = "LET-BINDING-WRAPPER"); - return v705; - })((function (values,v699,v700){ + (l275).fvalue = (function(v711){ + ((v711)["fname"] = "LET-BINDING-WRAPPER"); + return v711; + })((function (values,v705,v706){ checkArgs(arguments, 3); return (function(){ try { - (l13.fvalue(pv, v699) !== l5.value ? (function(){ + (l13.fvalue(pv, v705) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 233, values: v700, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 233, values: v706, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) })() : l5.value); - return l190.fvalue(values, "try {", (function(){ - var symbol = l155; + return l191.fvalue(values, "try {", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tmp;", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tmp;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l160.fvalue(pv, (function (values,v701){ + })(), l161.fvalue(pv, (function (values,v707){ checkArgs(arguments, 2); - return (function(v702){ - return l190.fvalue(values, "tmp = ", v702, ".value;", (function(){ - var symbol = l155; + return (function(v708){ + return l191.fvalue(values, "tmp = ", v708, ".value;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), v702, ".value = ", (function(){ - var tmp = v701; + })(), v708, ".value = ", (function(){ + var tmp = v707; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - var tmp = v701; + var tmp = v707; return tmp === l5.value? l5.value: tmp.cdr; })(), " = tmp;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l192.fvalue(pv, l47.fvalue(pv, l185, (function(){ - var tmp = v701; + })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ + var tmp = v707; return tmp === l5.value? l5.value: tmp.car; })()))); - }), v699), v700, (function(){ - var symbol = l155; + }), v705), v706, (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "finally {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l160.fvalue(pv, (function (values,v703){ + })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v709){ checkArgs(arguments, 2); - return (function(v704){ - return l190.fvalue(values, v704, ".value", " = ", (function(){ - var tmp = v703; + return (function(v710){ + return l191.fvalue(values, v710, ".value", " = ", (function(){ + var tmp = v709; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l192.fvalue(pv, l47.fvalue(pv, l185, (function(){ - var tmp = v703; + })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ + var tmp = v709; return tmp === l5.value? l5.value: tmp.car; })()))); - }), v699)), "}", (function(){ - var symbol = l155; + }), v705)), "}", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6078,34 +6083,34 @@ var l274 = {name: "LET-BINDING-WRAPPER"}; } })(); })); - return l274; + return l275; })(); -var l275 = {name: "LET"}; +var l276 = {name: "LET"}; (function(){ - var v706 = l47.fvalue(pv, l275, (function (values,v708){ + var v712 = l47.fvalue(pv, l276, (function (values,v714){ checkArgsAtLeast(arguments, 2); - var v707= l5.value; + var v713= l5.value; for (var i = arguments.length-1; i>=2; i--) - v707 = {car: arguments[i], cdr: - v707}; + v713 = {car: arguments[i], cdr: + v713}; return (function(){ return (function(){ try { - var v718 = l211.value; - var v709 = l81.fvalue(pv, (function(){ + var v724 = l212.value; + var v715 = l81.fvalue(pv, (function(){ var symbol = l61; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v708); - var v710 = l81.fvalue(pv, (function(){ + })(), v714); + var v716 = l81.fvalue(pv, (function(){ var symbol = l42; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v709); - var v711 = l81.fvalue(pv, (function(){ - var symbol = l192; + })(), v715); + var v717 = l81.fvalue(pv, (function(){ + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -6114,160 +6119,160 @@ var l275 = {name: "LET"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v709)); - ((l211).value = l215.fvalue(pv, l98.fvalue(pv, (function(){ - var symbol = l273; + })(), v715)); + ((l212).value = l216.fvalue(pv, l98.fvalue(pv, (function(){ + var symbol = l274; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v710))); - var v712 = l5.value; - return l190.fvalue(values, "(function(", l158.fvalue(pv, l81.fvalue(pv, (function (values,v713){ + })(), v716))); + var v718 = l5.value; + return l191.fvalue(values, "(function(", l159.fvalue(pv, l81.fvalue(pv, (function (values,v719){ checkArgs(arguments, 2); - return (l273.fvalue(pv, v713) !== l5.value ? (function(v714){ + return (l274.fvalue(pv, v719) !== l5.value ? (function(v720){ (function(){ - var v715 = ({car: v713, cdr: v714}); - var v716 = ({car: v715, cdr: v712}); - return (v712 = v716); + var v721 = ({car: v719, cdr: v720}); + var v722 = ({car: v721, cdr: v718}); + return (v718 = v722); })(); - return v714; - })(l213.fvalue(pv, v713)) : l214.fvalue(values, v713)); - }), v710), ","), "){", (function(){ - var symbol = l155; + return v720; + })(l214.fvalue(pv, v719)) : l215.fvalue(values, v719)); + }), v716), ","), "){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (function(v717){ - return l194.fvalue(pv, l274.fvalue(pv, v712, v717)); - })(l253.fvalue(pv, v707, l4.value)), "})(", l158.fvalue(pv, v711, ","), ")"); + })(), (function(v723){ + return l195.fvalue(pv, l275.fvalue(pv, v718, v723)); + })(l254.fvalue(pv, v713, l4.value)), "})(", l159.fvalue(pv, v717, ","), ")"); } finally { - l211.value = v718; + l212.value = v724; } })(); })(); })); - var v719 = ({car: v706, cdr: (function(){ - var symbol = l229; + var v725 = ({car: v712, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v719); + return ((l230).value = v725); })(); -var l276 = {name: "LET*-INITIALIZE-VALUE"}; +var l277 = {name: "LET*-INITIALIZE-VALUE"}; (function(){ - (l276).fvalue = (function(v726){ - ((v726)["fname"] = "LET*-INITIALIZE-VALUE"); - return v726; - })((function (values,v720){ + (l277).fvalue = (function(v732){ + ((v732)["fname"] = "LET*-INITIALIZE-VALUE"); + return v732; + })((function (values,v726){ checkArgs(arguments, 2); return (function(){ - return (function(v721,v722){ - return (l273.fvalue(pv, v721) !== l5.value ? l190.fvalue(values, l192.fvalue(pv, l47.fvalue(pv, l118, v721, v722)), ";", (function(){ - var symbol = l155; + return (function(v727,v728){ + return (l274.fvalue(pv, v727) !== l5.value ? l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l119, v727, v728)), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : (function(){ - var v723 = l213.fvalue(pv, v721); - var v724 = l196.fvalue(pv, v721, l113, v723); - return (function(v725){ - l206.fvalue(pv, v724, (function(){ - var symbol = l211; + var v729 = l214.fvalue(pv, v727); + var v730 = l197.fvalue(pv, v727, l114, v729); + return (function(v731){ + l207.fvalue(pv, v730, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l113); - return v725; - })(l190.fvalue(pv, "var ", v723, " = ", l192.fvalue(pv, v722), ";", (function(){ - var symbol = l155; + })(), l114); + return v731; + })(l191.fvalue(pv, "var ", v729, " = ", l193.fvalue(pv, v728), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })()); - })(l42.fvalue(pv, v720),l43.fvalue(pv, v720)); + })(l42.fvalue(pv, v726),l43.fvalue(pv, v726)); })(); })); - return l276; + return l277; })(); -var l277 = {name: "LET*-BINDING-WRAPPER"}; +var l278 = {name: "LET*-BINDING-WRAPPER"}; (function(){ - (l277).fvalue = (function(v735){ - ((v735)["fname"] = "LET*-BINDING-WRAPPER"); - return v735; - })((function (values,v727,v728){ + (l278).fvalue = (function(v741){ + ((v741)["fname"] = "LET*-BINDING-WRAPPER"); + return v741; + })((function (values,v733,v734){ checkArgs(arguments, 3); return (function(){ try { - (l13.fvalue(pv, v727) !== l5.value ? (function(){ + (l13.fvalue(pv, v733) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 236, values: v728, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 236, values: v734, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) })() : l5.value); - return (function(v730){ - return l190.fvalue(values, "try {", (function(){ - var symbol = l155; + return (function(v736){ + return l191.fvalue(values, "try {", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l160.fvalue(pv, (function (values,v731){ + })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v737){ checkArgs(arguments, 2); - return (function(v732){ - return l190.fvalue(values, "var ", (function(){ - var tmp = v731; + return (function(v738){ + return l191.fvalue(values, "var ", (function(){ + var tmp = v737; return tmp === l5.value? l5.value: tmp.cdr; - })(), " = ", v732, ".value;", (function(){ - var symbol = l155; + })(), " = ", v738, ".value;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l192.fvalue(pv, l47.fvalue(pv, l185, (function(){ - var tmp = v731; + })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ + var tmp = v737; return tmp === l5.value? l5.value: tmp.car; })()))); - }), v730), v728), "}", (function(){ - var symbol = l155; + }), v736), v734), "}", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "finally {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l160.fvalue(pv, (function (values,v733){ + })(), l195.fvalue(pv, l161.fvalue(pv, (function (values,v739){ checkArgs(arguments, 2); - return (function(v734){ - return l190.fvalue(values, v734, ".value", " = ", (function(){ - var tmp = v733; + return (function(v740){ + return l191.fvalue(values, v740, ".value", " = ", (function(){ + var tmp = v739; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l192.fvalue(pv, l47.fvalue(pv, l185, (function(){ - var tmp = v733; + })(l193.fvalue(pv, l47.fvalue(pv, l186, (function(){ + var tmp = v739; return tmp === l5.value? l5.value: tmp.car; })()))); - }), v730)), "}", (function(){ - var symbol = l155; + }), v736)), "}", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l81.fvalue(pv, (function (values,v729){ + })(l81.fvalue(pv, (function (values,v735){ checkArgs(arguments, 2); - return ({car: v729, cdr: l213.fvalue(pv, v729)}); + return ({car: v735, cdr: l214.fvalue(pv, v735)}); }), l99.fvalue(pv, (function(){ - var symbol = l273; + var symbol = l274; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v727))); + })(), v733))); } catch (cf){ if (cf.type == 'block' && cf.id == 236) @@ -6277,32 +6282,32 @@ var l277 = {name: "LET*-BINDING-WRAPPER"}; } })(); })); - return l277; + return l278; })(); -var l278 = {name: "LET*"}; +var l279 = {name: "LET*"}; (function(){ - var v736 = l47.fvalue(pv, l278, (function (values,v738){ + var v742 = l47.fvalue(pv, l279, (function (values,v744){ checkArgsAtLeast(arguments, 2); - var v737= l5.value; + var v743= l5.value; for (var i = arguments.length-1; i>=2; i--) - v737 = {car: arguments[i], cdr: - v737}; + v743 = {car: arguments[i], cdr: + v743}; return (function(){ - return (function(v739,v740){ + return (function(v745,v746){ try { var tmp; - tmp = l211.value; - l211.value = v740; - v740 = tmp; - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + tmp = l212.value; + l212.value = v746; + v746 = tmp; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, (function(v741,v742){ - return l277.fvalue(pv, v741, v742); + })(), l195.fvalue(pv, (function(v747,v748){ + return l278.fvalue(pv, v747, v748); })(l99.fvalue(pv, (function(){ - var symbol = l273; + var symbol = l274; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -6311,56 +6316,56 @@ var l278 = {name: "LET*"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v739)),l156.fvalue(pv, l160.fvalue(pv, (function(){ - var symbol = l276; + })(), v745)),l157.fvalue(pv, l161.fvalue(pv, (function(){ + var symbol = l277; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v739), l253.fvalue(pv, v737, l4.value)))), "})()"); + })(), v745), l254.fvalue(pv, v743, l4.value)))), "})()"); } finally { - l211.value = v740; + l212.value = v746; } })(l81.fvalue(pv, (function(){ var symbol = l61; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v738),l205.fvalue(pv, (function(){ - var symbol = l211; + })(), v744),l206.fvalue(pv, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })(); })); - var v743 = ({car: v736, cdr: (function(){ - var symbol = l229; + var v749 = ({car: v742, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v743); + return ((l230).value = v749); })(); -var l279 = {name: "*BLOCK-COUNTER*"}; +var l280 = {name: "*BLOCK-COUNTER*"}; (function(){ - (((l279.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l279).value = 0)); - return l279; + (((l280.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l280).value = 0)); + return l280; })(); -var l280 = {name: "MULTIPLE-VALUE"}; -var l281 = {name: "USED"}; +var l281 = {name: "MULTIPLE-VALUE"}; +var l282 = {name: "USED"}; (function(){ - var v744 = l47.fvalue(pv, l207, (function (values,v746){ + var v750 = l47.fvalue(pv, l208, (function (values,v752){ checkArgsAtLeast(arguments, 2); - var v745= l5.value; + var v751= l5.value; for (var i = arguments.length-1; i>=2; i--) - v745 = {car: arguments[i], cdr: - v745}; + v751 = {car: arguments[i], cdr: + v751}; return (function(){ return (function(){ - var v747 = ((l279).value = (function(){ + var v753 = ((l280).value = (function(){ var x1 = (function(){ - var symbol = l279; + var symbol = l280; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6368,297 +6373,297 @@ var l281 = {name: "USED"}; if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; })()); - var v748 = l196.fvalue(pv, v746, l207, v747); + var v754 = l197.fvalue(pv, v752, l208, v753); ((function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l203.fvalue(pv, l280, v748) : l5.value); + })() !== l5.value ? l204.fvalue(pv, l281, v754) : l5.value); return (function(){ try { - var v750 = l211.value; - ((l211).value = l209.fvalue(pv, l47.fvalue(pv, v748), (function(){ - var symbol = l211; + var v756 = l212.value; + ((l212).value = l210.fvalue(pv, l47.fvalue(pv, v754), (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l207)); - var v749 = l253.fvalue(pv, v745, l4.value); - return (l96.fvalue(pv, l281, l200.fvalue(pv, v748)) !== l5.value ? l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + })(), l208)); + var v755 = l254.fvalue(pv, v751, l4.value); + return (l96.fvalue(pv, l282, l201.fvalue(pv, v754)) !== l5.value ? l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "try {", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "try {", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, v749), "}", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, v755), "}", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "catch (cf){", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (cf.type == 'block' && cf.id == ", v747, ")", (function(){ - var symbol = l155; + })(), " if (cf.type == 'block' && cf.id == ", v753, ")", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), ((function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " else", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " throw cf;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()") : l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + })()), "})()") : l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, v749), "})()")); + })(), l195.fvalue(pv, v755), "})()")); } finally { - l211.value = v750; + l212.value = v756; } })(); })(); })(); })); - var v751 = ({car: v744, cdr: (function(){ - var symbol = l229; + var v757 = ({car: v750, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v751); + return ((l230).value = v757); })(); -var l282 = {name: "RETURN-FROM"}; +var l283 = {name: "RETURN-FROM"}; (function(){ - var v752 = l47.fvalue(pv, l282, (function (values,v753,v754){ + var v758 = l47.fvalue(pv, l283, (function (values,v759,v760){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v754; + var v760; switch(arguments.length-1){ case 1: - v754=l5.value; + v760=l5.value; default: break; } return (function(){ return (function(){ - var v755 = l210.fvalue(pv, v753, (function(){ - var symbol = l211; + var v761 = l211.fvalue(pv, v759, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l207); - var v756 = l96.fvalue(pv, l280, l200.fvalue(pv, v755)); - (l13.fvalue(pv, v755) !== l5.value ? (function(){ - throw l156.fvalue(pv, "Unknown block `", (v753).name, "'."); + })(), l208); + var v762 = l96.fvalue(pv, l281, l201.fvalue(pv, v761)); + (l13.fvalue(pv, v761) !== l5.value ? (function(){ + throw l157.fvalue(pv, "Unknown block `", (v759).name, "'."); })() : l5.value); - l203.fvalue(pv, l281, v755); - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + l204.fvalue(pv, l282, v761); + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, (v756 !== l5.value ? l190.fvalue(pv, "var values = mv;", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, (v762 !== l5.value ? l191.fvalue(pv, "var values = mv;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l199.fvalue(pv, v755), ", ", "values: ", l192.fvalue(pv, v754, v756), ", ", "message: 'Return from unknown block ", (v753).name, ".'", "})"), "})()"); + })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l200.fvalue(pv, v761), ", ", "values: ", l193.fvalue(pv, v760, v762), ", ", "message: 'Return from unknown block ", (v759).name, ".'", "})"), "})()"); })(); })(); })); - var v757 = ({car: v752, cdr: (function(){ - var symbol = l229; + var v763 = ({car: v758, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v757); + return ((l230).value = v763); })(); -var l283 = {name: "CATCH"}; +var l284 = {name: "CATCH"}; (function(){ - var v758 = l47.fvalue(pv, l283, (function (values,v760){ + var v764 = l47.fvalue(pv, l284, (function (values,v766){ checkArgsAtLeast(arguments, 2); - var v759= l5.value; + var v765= l5.value; for (var i = arguments.length-1; i>=2; i--) - v759 = {car: arguments[i], cdr: - v759}; + v765 = {car: arguments[i], cdr: + v765}; return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var id = ", l192.fvalue(pv, v760), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var id = ", l193.fvalue(pv, v766), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "try {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l253.fvalue(pv, v759, l4.value)), (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l254.fvalue(pv, v765, l4.value)), (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "catch (cf){", (function(){ - var symbol = l155; + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), ((function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " else", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " throw cf;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })); - var v761 = ({car: v758, cdr: (function(){ - var symbol = l229; + var v767 = ({car: v764, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v761); + return ((l230).value = v767); })(); -var l284 = {name: "THROW"}; +var l285 = {name: "THROW"}; (function(){ - var v762 = l47.fvalue(pv, l284, (function (values,v763,v764){ + var v768 = l47.fvalue(pv, l285, (function (values,v769,v770){ checkArgs(arguments, 3); return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var values = mv;", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var values = mv;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "throw ({", "type: 'catch', ", "id: ", l192.fvalue(pv, v763), ", ", "values: ", l192.fvalue(pv, v764, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); + })(), "throw ({", "type: 'catch', ", "id: ", l193.fvalue(pv, v769), ", ", "values: ", l193.fvalue(pv, v770, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); })(); })); - var v765 = ({car: v762, cdr: (function(){ - var symbol = l229; + var v771 = ({car: v768, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v765); -})(); -var l285 = {name: "*TAGBODY-COUNTER*"}; -(function(){ - (((l285.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l285).value = 0)); - return l285; + return ((l230).value = v771); })(); -var l286 = {name: "*GO-TAG-COUNTER*"}; +var l286 = {name: "*TAGBODY-COUNTER*"}; (function(){ (((l286.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l286).value = 0)); return l286; })(); -var l287 = {name: "GO-TAG-P"}; +var l287 = {name: "*GO-TAG-COUNTER*"}; +(function(){ + (((l287.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l287).value = 0)); + return l287; +})(); +var l288 = {name: "GO-TAG-P"}; (function(){ - (l287).fvalue = (function(v768){ - ((v768)["fname"] = "GO-TAG-P"); - return v768; - })((function (values,v766){ + (l288).fvalue = (function(v774){ + ((v774)["fname"] = "GO-TAG-P"); + return v774; + })((function (values,v772){ checkArgs(arguments, 2); return (function(){ - return (function(v767){ - return (v767 !== l5.value ? v767 : ((function(){ - var tmp = v766; + return (function(v773){ + return (v773 !== l5.value ? v773 : ((function(){ + var tmp = v772; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value)); - })(l89.fvalue(pv, v766)); + })(l89.fvalue(pv, v772)); })(); })); - return l287; + return l288; })(); -var l288 = {name: "DECLARE-TAGBODY-TAGS"}; +var l289 = {name: "DECLARE-TAGBODY-TAGS"}; (function(){ - (l288).fvalue = (function(v774){ - ((v774)["fname"] = "DECLARE-TAGBODY-TAGS"); - return v774; - })((function (values,v769,v770){ + (l289).fvalue = (function(v780){ + ((v780)["fname"] = "DECLARE-TAGBODY-TAGS"); + return v780; + })((function (values,v775,v776){ checkArgs(arguments, 3); return (function(){ - return (function(v773){ - return l209.fvalue(values, v773, (function(){ - var symbol = l211; + return (function(v779){ + return l210.fvalue(values, v779, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l208); - })(l81.fvalue(pv, (function (values,v771){ + })(), l209); + })(l81.fvalue(pv, (function (values,v777){ checkArgs(arguments, 2); - return (function(v772){ - return l196.fvalue(values, v771, l208, l47.fvalue(pv, v769, v772)); - })(l19.fvalue(pv, ((l286).value = (function(){ + return (function(v778){ + return l197.fvalue(values, v777, l209, l47.fvalue(pv, v775, v778)); + })(l19.fvalue(pv, ((l287).value = (function(){ var x1 = (function(){ - var symbol = l286; + var symbol = l287; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6667,202 +6672,202 @@ var l288 = {name: "DECLARE-TAGBODY-TAGS"}; return x1+1; })()))); }), l99.fvalue(pv, (function(){ - var symbol = l287; + var symbol = l288; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v770))); + })(), v776))); })(); })); - return l288; + return l289; })(); -var l289 = {name: "TAGBODY"}; -var l290 = QIList(l5,l5); +var l290 = {name: "TAGBODY"}; +var l291 = QIList(l5,l5); (function(){ - var v775 = l47.fvalue(pv, l289, (function (values){ - var v776= l5.value; + var v781 = l47.fvalue(pv, l290, (function (values){ + var v782= l5.value; for (var i = arguments.length-1; i>=1; i--) - v776 = {car: arguments[i], cdr: - v776}; + v782 = {car: arguments[i], cdr: + v782}; return (function(){ try { - (l103.fvalue(pv, (function(){ - var symbol = l287; + (l104.fvalue(pv, (function(){ + var symbol = l288; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v776) !== l5.value ? l5.value : (function(){ + })(), v782) !== l5.value ? l5.value : (function(){ var values = mv; - throw ({type: 'block', id: 244, values: l192.fvalue(values, ({car: l122, cdr: l68.fvalue(pv, v776, l290)})), message: 'Return from unknown block TAGBODY.'}) + throw ({type: 'block', id: 244, values: l193.fvalue(values, ({car: l123, cdr: l68.fvalue(pv, v782, l291)})), message: 'Return from unknown block TAGBODY.'}) })()); - (l287.fvalue(pv, (function(){ - var tmp = v776; + (l288.fvalue(pv, (function(){ + var tmp = v782; return tmp === l5.value? l5.value: tmp.car; })()) !== l5.value ? l5.value : (function(){ - var v777 = l18.fvalue(pv, "START"); - var v778 = ({car: v777, cdr: v776}); - return (v776 = v778); + var v783 = l18.fvalue(pv, "START"); + var v784 = ({car: v783, cdr: v782}); + return (v782 = v784); })()); - return (function(v779){ - return (function(v781,v780){ + return (function(v785){ + return (function(v787,v786){ try { var tmp; - tmp = l211.value; - l211.value = v781; - v781 = tmp; - (function(v782){ - return (v780 = l43.fvalue(pv, l199.fvalue(pv, v782))); - })(l210.fvalue(pv, l42.fvalue(pv, v776), (function(){ - var symbol = l211; + tmp = l212.value; + l212.value = v787; + v787 = tmp; + (function(v788){ + return (v786 = l43.fvalue(pv, l200.fvalue(pv, v788))); + })(l211.fvalue(pv, l42.fvalue(pv, v782), (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l208)); - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + })(), l209)); + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tagbody_", v779, " = ", v780, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tagbody_", v785, " = ", v786, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "tbloop:", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "while (true) {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "try {", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "try {", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, (function(v783){ - return l190.fvalue(pv, "switch(tagbody_", v779, "){", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, (function(v789){ + return l191.fvalue(pv, "switch(tagbody_", v785, "){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "case ", v780, ":", (function(){ - var symbol = l155; + })(), "case ", v786, ":", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - return (function(v784,v785){ + return (function(v790,v791){ (function(){ - while(v784 !== l5.value){ - (v785 = (function(){ - var tmp = v784; + while(v790 !== l5.value){ + (v791 = (function(){ + var tmp = v790; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - (v783 = l156.fvalue(pv, v783, (l29.fvalue(pv, l287.fvalue(pv, v785)) !== l5.value ? l194.fvalue(pv, l192.fvalue(pv, v785), ";", (function(){ - var symbol = l155; + (v789 = l157.fvalue(pv, v789, (l29.fvalue(pv, l288.fvalue(pv, v791)) !== l5.value ? l195.fvalue(pv, l193.fvalue(pv, v791), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : (function(v786){ - return l190.fvalue(pv, "case ", l43.fvalue(pv, l199.fvalue(pv, v786)), ":", (function(){ - var symbol = l155; + })()) : (function(v792){ + return l191.fvalue(pv, "case ", l43.fvalue(pv, l200.fvalue(pv, v792)), ":", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l210.fvalue(pv, v785, (function(){ - var symbol = l211; + })(l211.fvalue(pv, v791, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l208))))); + })(), l209))))); return l5.value; })(); - (v784 = (function(){ - var tmp = v784; + (v790 = (function(){ + var tmp = v790; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); - return v783; + return v789; })((function(){ - var tmp = v776; + var tmp = v782; return tmp === l5.value? l5.value: tmp.cdr; })(),l5.value); })(), "default:", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " break tbloop;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })("")), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "catch (jump) {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (jump.type == 'tagbody' && jump.id == ", v779, ")", (function(){ - var symbol = l155; + })(), " if (jump.type == 'tagbody' && jump.id == ", v785, ")", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " tagbody_", v779, " = jump.label;", (function(){ - var symbol = l155; + })(), " tagbody_", v785, " = jump.label;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " else", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " throw(jump);", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return ", l192.fvalue(pv, l5.value), ";", (function(){ - var symbol = l155; + })(), "return ", l193.fvalue(pv, l5.value), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); } finally { - l211.value = v781; + l212.value = v787; } - })(l288.fvalue(pv, v779, v776),l5.value); + })(l289.fvalue(pv, v785, v782),l5.value); })((function(){ - var symbol = l285; + var symbol = l286; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6876,432 +6881,432 @@ var l290 = QIList(l5,l5); } })(); })); - var v787 = ({car: v775, cdr: (function(){ - var symbol = l229; + var v793 = ({car: v781, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v787); + return ((l230).value = v793); })(); -var l291 = {name: "GO"}; +var l292 = {name: "GO"}; (function(){ - var v788 = l47.fvalue(pv, l291, (function (values,v789){ + var v794 = l47.fvalue(pv, l292, (function (values,v795){ checkArgs(arguments, 2); return (function(){ - return (function(v790,v791){ - (l13.fvalue(pv, v790) !== l5.value ? (function(){ - throw l156.fvalue(pv, "Unknown tag `", v791, "'."); + return (function(v796,v797){ + (l13.fvalue(pv, v796) !== l5.value ? (function(){ + throw l157.fvalue(pv, "Unknown tag `", v797, "'."); })() : l5.value); - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l42.fvalue(pv, l199.fvalue(pv, v790)), ", ", "label: ", l43.fvalue(pv, l199.fvalue(pv, v790)), ", ", "message: 'Attempt to GO to non-existing tag ", v791, "'", "})", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l42.fvalue(pv, l200.fvalue(pv, v796)), ", ", "label: ", l43.fvalue(pv, l200.fvalue(pv, v796)), ", ", "message: 'Attempt to GO to non-existing tag ", v797, "'", "})", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l210.fvalue(pv, v789, (function(){ - var symbol = l211; + })(l211.fvalue(pv, v795, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l208),(((function(){ - var tmp = v789; + })(), l209),(((function(){ + var tmp = v795; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (v789).name : (l89.fvalue(pv, v789) !== l5.value ? l19.fvalue(pv, v789) : l5.value))); + })()?l4.value: l5.value) !== l5.value ? (v795).name : (l89.fvalue(pv, v795) !== l5.value ? l19.fvalue(pv, v795) : l5.value))); })(); })); - var v792 = ({car: v788, cdr: (function(){ - var symbol = l229; + var v798 = ({car: v794, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v792); + return ((l230).value = v798); })(); -var l292 = {name: "UNWIND-PROTECT"}; +var l293 = {name: "UNWIND-PROTECT"}; (function(){ - var v793 = l47.fvalue(pv, l292, (function (values,v795){ + var v799 = l47.fvalue(pv, l293, (function (values,v801){ checkArgsAtLeast(arguments, 2); - var v794= l5.value; + var v800= l5.value; for (var i = arguments.length-1; i>=2; i--) - v794 = {car: arguments[i], cdr: - v794}; + v800 = {car: arguments[i], cdr: + v800}; return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var ret = ", l192.fvalue(pv, l5.value), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var ret = ", l193.fvalue(pv, l5.value), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "try {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "ret = ", l192.fvalue(pv, v795), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "ret = ", l193.fvalue(pv, v801), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "} finally {", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l253.fvalue(pv, v794)), "}", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l254.fvalue(pv, v800)), "}", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return ret;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })); - var v796 = ({car: v793, cdr: (function(){ - var symbol = l229; + var v802 = ({car: v799, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v796); + return ((l230).value = v802); })(); -var l293 = {name: "MULTIPLE-VALUE-CALL"}; +var l294 = {name: "MULTIPLE-VALUE-CALL"}; (function(){ - var v797 = l47.fvalue(pv, l293, (function (values,v799){ + var v803 = l47.fvalue(pv, l294, (function (values,v805){ checkArgsAtLeast(arguments, 2); - var v798= l5.value; + var v804= l5.value; for (var i = arguments.length-1; i>=2; i--) - v798 = {car: arguments[i], cdr: - v798}; + v804 = {car: arguments[i], cdr: + v804}; return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var func = ", l192.fvalue(pv, v799), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var func = ", l193.fvalue(pv, v805), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var args = [", ((function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? "values" : "pv"), "];", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return ", l190.fvalue(pv, "(function(){", (function(){ - var symbol = l155; + })(), "return ", l191.fvalue(pv, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var values = mv;", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var values = mv;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var vs;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l160.fvalue(pv, (function (values,v800){ + })(), l161.fvalue(pv, (function (values,v806){ checkArgs(arguments, 2); - return l190.fvalue(values, "vs = ", l192.fvalue(pv, v800, l4.value), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "vs = ", l193.fvalue(pv, v806, l4.value), ";", (function(){ + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "args = args.concat(vs);", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "args = args.concat(vs);", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "else", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "args.push(vs);", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "args.push(vs);", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); - }), v798), "return func.apply(window, args);", (function(){ - var symbol = l155; + }), v804), "return func.apply(window, args);", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"), ";", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })); - var v801 = ({car: v797, cdr: (function(){ - var symbol = l229; + var v807 = ({car: v803, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v801); + return ((l230).value = v807); })(); -var l294 = {name: "MULTIPLE-VALUE-PROG1"}; +var l295 = {name: "MULTIPLE-VALUE-PROG1"}; (function(){ - var v802 = l47.fvalue(pv, l294, (function (values,v804){ + var v808 = l47.fvalue(pv, l295, (function (values,v810){ checkArgsAtLeast(arguments, 2); - var v803= l5.value; + var v809= l5.value; for (var i = arguments.length-1; i>=2; i--) - v803 = {car: arguments[i], cdr: - v803}; + v809 = {car: arguments[i], cdr: + v809}; return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var args = ", l192.fvalue(pv, v804, (function(){ - var symbol = l195; + })(), l195.fvalue(pv, "var args = ", l193.fvalue(pv, v810, (function(){ + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), ";", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l253.fvalue(pv, v803), "return args;", (function(){ - var symbol = l155; + })(), l254.fvalue(pv, v809), "return args;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })); - var v805 = ({car: v802, cdr: (function(){ - var symbol = l229; + var v811 = ({car: v808, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v805); -})(); -var l295 = {name: "*COMMA*"}; -(function(){ - (((l295.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l295).value = l188)); - return l295; + return ((l230).value = v811); })(); -var l296 = {name: "*COMMA-ATSIGN*"}; +var l296 = {name: "*COMMA*"}; (function(){ - (((l296.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l296).value = l187)); + (((l296.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l296).value = l189)); return l296; })(); -var l297 = {name: "*BQ-LIST*"}; +var l297 = {name: "*COMMA-ATSIGN*"}; (function(){ - (((l297.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l297).value = (function(){ - var name = "BQ-LIST"; - if (typeof name != 'string') - throw 'The value ' + name + ' is not a type string.'; - return ({name: name}); - })())); + (((l297.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l297).value = l188)); return l297; })(); -var l298 = {name: "*BQ-APPEND*"}; +var l298 = {name: "*BQ-LIST*"}; (function(){ (((l298.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l298).value = (function(){ - var name = "BQ-APPEND"; + var name = "BQ-LIST"; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })())); return l298; })(); -var l299 = {name: "*BQ-LIST**"}; +var l299 = {name: "*BQ-APPEND*"}; (function(){ (((l299.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l299).value = (function(){ - var name = "BQ-LIST*"; + var name = "BQ-APPEND"; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })())); return l299; })(); -var l300 = {name: "*BQ-NCONC*"}; +var l300 = {name: "*BQ-LIST**"}; (function(){ (((l300.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l300).value = (function(){ - var name = "BQ-NCONC"; + var name = "BQ-LIST*"; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })())); return l300; })(); -var l301 = {name: "*BQ-CLOBBERABLE*"}; +var l301 = {name: "*BQ-NCONC*"}; (function(){ (((l301.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l301).value = (function(){ - var name = "BQ-CLOBBERABLE"; + var name = "BQ-NCONC"; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })())); return l301; })(); -var l302 = {name: "*BQ-QUOTE*"}; +var l302 = {name: "*BQ-CLOBBERABLE*"}; (function(){ (((l302.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l302).value = (function(){ - var name = "BQ-QUOTE"; + var name = "BQ-CLOBBERABLE"; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })())); return l302; })(); -var l303 = {name: "*BQ-QUOTE-NIL*"}; +var l303 = {name: "*BQ-QUOTE*"}; +(function(){ + (((l303.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l303).value = (function(){ + var name = "BQ-QUOTE"; + if (typeof name != 'string') + throw 'The value ' + name + ' is not a type string.'; + return ({name: name}); + })())); + return l303; +})(); +var l304 = {name: "*BQ-QUOTE-NIL*"}; (function(){ - (((l303.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l303).value = l47.fvalue(pv, (function(){ - var symbol = l302; + (((l304.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l304).value = l47.fvalue(pv, (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l5.value))); - return l303; + return l304; })(); -var l304 = {name: "*BQ-SIMPLIFY*"}; +var l305 = {name: "*BQ-SIMPLIFY*"}; (function(){ - ((l304).value = l4.value); - return l304; + ((l305).value = l4.value); + return l305; })(); -l186; -var l305 = {name: "BQ-COMPLETELY-PROCESS"}; -var l306 = {name: "BQ-PROCESS"}; -var l307 = {name: "BQ-SIMPLIFY"}; -var l308 = {name: "BQ-REMOVE-TOKENS"}; +l187; +var l306 = {name: "BQ-COMPLETELY-PROCESS"}; +var l307 = {name: "BQ-PROCESS"}; +var l308 = {name: "BQ-SIMPLIFY"}; +var l309 = {name: "BQ-REMOVE-TOKENS"}; (function(){ - (l305).fvalue = (function(v808){ - ((v808)["fname"] = "BQ-COMPLETELY-PROCESS"); - return v808; - })((function (values,v806){ + (l306).fvalue = (function(v814){ + ((v814)["fname"] = "BQ-COMPLETELY-PROCESS"); + return v814; + })((function (values,v812){ checkArgs(arguments, 2); return (function(){ - return (function(v807){ - return l308.fvalue(values, ((function(){ - var symbol = l304; + return (function(v813){ + return l309.fvalue(values, ((function(){ + var symbol = l305; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l307.fvalue(pv, v807) : v807)); - })(l306.fvalue(pv, v806)); + })() !== l5.value ? l308.fvalue(pv, v813) : v813)); + })(l307.fvalue(pv, v812)); })(); })); - return l305; + return l306; })(); -var l309 = {name: "BRACKET"}; +var l310 = {name: "BRACKET"}; (function(){ - (l306).fvalue = (function(v814){ - ((v814)["fname"] = "BQ-PROCESS"); - return v814; - })((function (values,v809){ + (l307).fvalue = (function(v820){ + ((v820)["fname"] = "BQ-PROCESS"); + return v820; + })((function (values,v815){ checkArgs(arguments, 2); return (function(){ - return (l48.fvalue(pv, v809) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l302; + return (l48.fvalue(pv, v815) !== l5.value ? l47.fvalue(values, (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), v809) : ((((function(){ - var tmp = v809; + })(), v815) : ((((function(){ + var tmp = v815; return tmp === l5.value? l5.value: tmp.car; - })() === l186)?l4.value: l5.value) !== l5.value ? l306.fvalue(values, l305.fvalue(pv, l35.fvalue(pv, v809))) : ((((function(){ - var tmp = v809; + })() === l187)?l4.value: l5.value) !== l5.value ? l307.fvalue(values, l306.fvalue(pv, l35.fvalue(pv, v815))) : ((((function(){ + var tmp = v815; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l295; + var symbol = l296; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l35.fvalue(values, v809) : ((((function(){ - var tmp = v809; + })())?l4.value: l5.value) !== l5.value ? l35.fvalue(values, v815) : ((((function(){ + var tmp = v815; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l296; + var symbol = l297; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? (function(){ throw "ill-formed"; })() : (function(){ - return (function(v810,v811){ + return (function(v816,v817){ return (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l48.fvalue(pv, v810) !== l5.value ? (function(){ + (l48.fvalue(pv, v816) !== l5.value ? (function(){ var values = mv; throw ({type: 'block', id: 253, values: ({car: (function(){ - var symbol = l298; + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), cdr: l127.fvalue(pv, v811, l47.fvalue(pv, l47.fvalue(pv, (function(){ - var symbol = l302; + })(), cdr: l128.fvalue(pv, v817, l47.fvalue(pv, l47.fvalue(pv, (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), v810)))}), message: 'Return from unknown block NIL.'}) + })(), v816)))}), message: 'Return from unknown block NIL.'}) })() : l5.value); (function(){ ((((function(){ - var tmp = v810; + var tmp = v816; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l295; + var symbol = l296; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? (function(){ - (l13.fvalue(pv, l37.fvalue(pv, v810)) !== l5.value ? l5.value : (function(){ + (l13.fvalue(pv, l37.fvalue(pv, v816)) !== l5.value ? l5.value : (function(){ throw "Malformed"; })()); return (function(){ var values = mv; throw ({type: 'block', id: 253, values: ({car: (function(){ - var symbol = l298; + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), cdr: l127.fvalue(pv, v811, l47.fvalue(pv, l35.fvalue(pv, v810)))}), message: 'Return from unknown block NIL.'}) + })(), cdr: l128.fvalue(pv, v817, l47.fvalue(pv, l35.fvalue(pv, v816)))}), message: 'Return from unknown block NIL.'}) })(); })() : l5.value); ((((function(){ - var tmp = v810; + var tmp = v816; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l296; + var symbol = l297; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -7310,15 +7315,15 @@ var l309 = {name: "BRACKET"}; })() : l5.value); return l5.value; })(); - (function(v812,v813){ - return (v810 = v812, v811 = v813); + (function(v818,v819){ + return (v816 = v818, v817 = v819); })((function(){ - var tmp = v810; + var tmp = v816; return tmp === l5.value? l5.value: tmp.cdr; - })(),({car: l309.fvalue(pv, (function(){ - var tmp = v810; + })(),({car: l310.fvalue(pv, (function(){ + var tmp = v816; return tmp === l5.value? l5.value: tmp.car; - })()), cdr: v811})); + })()), cdr: v817})); }return l5.value; })(); } @@ -7329,286 +7334,286 @@ var l309 = {name: "BRACKET"}; throw cf; } })(); - })(v809,l5); + })(v815,l5); })())))); })(); })); - return l306; + return l307; })(); (function(){ - (l309).fvalue = (function(v816){ - ((v816)["fname"] = "BRACKET"); - return v816; - })((function (values,v815){ + (l310).fvalue = (function(v822){ + ((v822)["fname"] = "BRACKET"); + return v822; + })((function (values,v821){ checkArgs(arguments, 2); return (function(){ - return (l48.fvalue(pv, v815) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l297; + return (l48.fvalue(pv, v821) !== l5.value ? l47.fvalue(values, (function(){ + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l306.fvalue(pv, v815)) : ((((function(){ - var tmp = v815; + })(), l307.fvalue(pv, v821)) : ((((function(){ + var tmp = v821; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l295; + var symbol = l296; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l297; + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l35.fvalue(pv, v815)) : ((((function(){ - var tmp = v815; + })(), l35.fvalue(pv, v821)) : ((((function(){ + var tmp = v821; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l296; + var symbol = l297; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l35.fvalue(values, v815) : l47.fvalue(values, (function(){ - var symbol = l297; + })())?l4.value: l5.value) !== l5.value ? l35.fvalue(values, v821) : l47.fvalue(values, (function(){ + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l306.fvalue(pv, v815))))); + })(), l307.fvalue(pv, v821))))); })(); })); - return l309; + return l310; })(); -var l310 = {name: "MAPTREE"}; +var l311 = {name: "MAPTREE"}; (function(){ - (l310).fvalue = (function(v821){ - ((v821)["fname"] = "MAPTREE"); - return v821; - })((function (values,v817,v818){ + (l311).fvalue = (function(v827){ + ((v827)["fname"] = "MAPTREE"); + return v827; + })((function (values,v823,v824){ checkArgs(arguments, 3); return (function(){ - return (l48.fvalue(pv, v818) !== l5.value ? (function(){ - var f = v817; - return (typeof f === 'function'? f: f.fvalue)(values, v818) - })() : (function(v819,v820){ - return ((l28.fvalue(pv, v819, (function(){ - var tmp = v818; + return (l48.fvalue(pv, v824) !== l5.value ? (function(){ + var f = v823; + return (typeof f === 'function'? f: f.fvalue)(values, v824) + })() : (function(v825,v826){ + return ((l28.fvalue(pv, v825, (function(){ + var tmp = v824; return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l28.fvalue(pv, v820, (function(){ - var tmp = v818; + })()) !== l5.value ? l28.fvalue(pv, v826, (function(){ + var tmp = v824; return tmp === l5.value? l5.value: tmp.cdr; - })()) : l5.value) !== l5.value ? v818 : ({car: v819, cdr: v820})); + })()) : l5.value) !== l5.value ? v824 : ({car: v825, cdr: v826})); })((function(){ - var f = v817; + var f = v823; return (typeof f === 'function'? f: f.fvalue)(pv, (function(){ - var tmp = v818; + var tmp = v824; return tmp === l5.value? l5.value: tmp.car; })()) - })(),l310.fvalue(pv, v817, (function(){ - var tmp = v818; + })(),l311.fvalue(pv, v823, (function(){ + var tmp = v824; return tmp === l5.value? l5.value: tmp.cdr; })()))); })(); })); - return l310; + return l311; })(); -var l311 = {name: "BQ-SPLICING-FROB"}; +var l312 = {name: "BQ-SPLICING-FROB"}; (function(){ - (l311).fvalue = (function(v823){ - ((v823)["fname"] = "BQ-SPLICING-FROB"); - return v823; - })((function (values,v822){ + (l312).fvalue = (function(v829){ + ((v829)["fname"] = "BQ-SPLICING-FROB"); + return v829; + })((function (values,v828){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v822; + var tmp = v828; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v822; + var tmp = v828; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l296; + var symbol = l297; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) : l5.value); })(); })); - return l311; + return l312; })(); -var l312 = {name: "BQ-FROB"}; +var l313 = {name: "BQ-FROB"}; (function(){ - (l312).fvalue = (function(v826){ - ((v826)["fname"] = "BQ-FROB"); - return v826; - })((function (values,v824){ + (l313).fvalue = (function(v832){ + ((v832)["fname"] = "BQ-FROB"); + return v832; + })((function (values,v830){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v824; + var tmp = v830; return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v825){ - return (v825 !== l5.value ? v825 : (((function(){ - var tmp = v824; + })()?l4.value: l5.value) !== l5.value ? (function(v831){ + return (v831 !== l5.value ? v831 : (((function(){ + var tmp = v830; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l296; + var symbol = l297; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value)); })((((function(){ - var tmp = v824; + var tmp = v830; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l295; + var symbol = l296; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value)) : l5.value); })(); })); - return l312; + return l313; })(); -var l313 = {name: "BQ-SIMPLIFY-ARGS"}; +var l314 = {name: "BQ-SIMPLIFY-ARGS"}; (function(){ - (l307).fvalue = (function(v829){ - ((v829)["fname"] = "BQ-SIMPLIFY"); - return v829; - })((function (values,v827){ + (l308).fvalue = (function(v835){ + ((v835)["fname"] = "BQ-SIMPLIFY"); + return v835; + })((function (values,v833){ checkArgs(arguments, 2); return (function(){ - return (l48.fvalue(pv, v827) !== l5.value ? v827 : (function(v828){ + return (l48.fvalue(pv, v833) !== l5.value ? v833 : (function(v834){ return (l29.fvalue(pv, (((function(){ - var tmp = v828; + var tmp = v834; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l298; + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value)) !== l5.value ? v828 : l313.fvalue(values, v828)); + })())?l4.value: l5.value)) !== l5.value ? v834 : l314.fvalue(values, v834)); })(((((function(){ - var tmp = v827; + var tmp = v833; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l302; + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? v827 : l310.fvalue(pv, (function(){ - var symbol = l307; + })())?l4.value: l5.value) !== l5.value ? v833 : l311.fvalue(pv, (function(){ + var symbol = l308; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v827)))); + })(), v833)))); })(); })); - return l307; + return l308; })(); -var l314 = {name: "BQ-ATTACH-APPEND"}; -var l315 = {name: "BQ-ATTACH-CONSES"}; -var l316 = {name: "CDDAR"}; -var l317 = {name: "CAADAR"}; +var l315 = {name: "BQ-ATTACH-APPEND"}; +var l316 = {name: "BQ-ATTACH-CONSES"}; +var l317 = {name: "CDDAR"}; +var l318 = {name: "CAADAR"}; (function(){ - (l313).fvalue = (function(v835){ - ((v835)["fname"] = "BQ-SIMPLIFY-ARGS"); - return v835; - })((function (values,v830){ + (l314).fvalue = (function(v841){ + ((v841)["fname"] = "BQ-SIMPLIFY-ARGS"); + return v841; + })((function (values,v836){ checkArgs(arguments, 2); return (function(){ return (function(){ - return (function(v831,v832){ + return (function(v837,v838){ return (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l13.fvalue(pv, v831) !== l5.value ? (function(){ + (l13.fvalue(pv, v837) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 261, values: v832, message: 'Return from unknown block NIL.'}) + throw ({type: 'block', id: 261, values: v838, message: 'Return from unknown block NIL.'}) })() : l5.value); l5.value; - (function(v833,v834){ - return (v831 = v833, v832 = v834); + (function(v839,v840){ + return (v837 = v839, v838 = v840); })((function(){ - var tmp = v831; + var tmp = v837; return tmp === l5.value? l5.value: tmp.cdr; })(),(l48.fvalue(pv, (function(){ - var tmp = v831; + var tmp = v837; return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l314.fvalue(pv, (function(){ - var symbol = l298; + })()) !== l5.value ? l315.fvalue(pv, (function(){ + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - var tmp = v831; + var tmp = v837; return tmp === l5.value? l5.value: tmp.car; - })(), v832) : ((((l34.fvalue(pv, v831) === (function(){ - var symbol = l297; + })(), v838) : ((((l34.fvalue(pv, v837) === (function(){ + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l128.fvalue(pv, (function(){ - var symbol = l311; + })())?l4.value: l5.value) !== l5.value ? l129.fvalue(pv, (function(){ + var symbol = l312; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l36.fvalue(pv, v831)) : l5.value) !== l5.value ? l315.fvalue(pv, l36.fvalue(pv, v831), v832) : ((((l34.fvalue(pv, v831) === (function(){ - var symbol = l299; + })(), l36.fvalue(pv, v837)) : l5.value) !== l5.value ? l316.fvalue(pv, l36.fvalue(pv, v837), v838) : ((((l34.fvalue(pv, v837) === (function(){ + var symbol = l300; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l128.fvalue(pv, (function(){ - var symbol = l311; + })())?l4.value: l5.value) !== l5.value ? l129.fvalue(pv, (function(){ + var symbol = l312; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l36.fvalue(pv, v831)) : l5.value) !== l5.value ? l315.fvalue(pv, l70.fvalue(pv, (function(){ - var tmp = l70.fvalue(pv, l36.fvalue(pv, v831)); + })(), l36.fvalue(pv, v837)) : l5.value) !== l5.value ? l316.fvalue(pv, l70.fvalue(pv, (function(){ + var tmp = l70.fvalue(pv, l36.fvalue(pv, v837)); return tmp === l5.value? l5.value: tmp.cdr; - })()), l314.fvalue(pv, (function(){ - var symbol = l298; + })()), l315.fvalue(pv, (function(){ + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ var tmp = l94.fvalue(pv, (function(){ - var tmp = v831; + var tmp = v837; return tmp === l5.value? l5.value: tmp.car; })()); return tmp === l5.value? l5.value: tmp.car; - })(), v832)) : ((((l34.fvalue(pv, v831) === (function(){ - var symbol = l302; + })(), v838)) : ((((l34.fvalue(pv, v837) === (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = l38.fvalue(pv, v831); + var tmp = l38.fvalue(pv, v837); return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (l29.fvalue(pv, l312.fvalue(pv, l38.fvalue(pv, v831))) !== l5.value ? l13.fvalue(pv, l316.fvalue(pv, v831)) : l5.value) : l5.value) : l5.value) !== l5.value ? l315.fvalue(pv, l47.fvalue(pv, l47.fvalue(pv, (function(){ - var symbol = l302; + })()?l4.value: l5.value) !== l5.value ? (l29.fvalue(pv, l313.fvalue(pv, l38.fvalue(pv, v837))) !== l5.value ? l13.fvalue(pv, l317.fvalue(pv, v837)) : l5.value) : l5.value) : l5.value) !== l5.value ? l316.fvalue(pv, l47.fvalue(pv, l47.fvalue(pv, (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l317.fvalue(pv, v831))), v832) : (((l34.fvalue(pv, v831) === (function(){ - var symbol = l301; + })(), l318.fvalue(pv, v837))), v838) : (((l34.fvalue(pv, v837) === (function(){ + var symbol = l302; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l314.fvalue(pv, (function(){ - var symbol = l300; + })())?l4.value: l5.value) !== l5.value ? l315.fvalue(pv, (function(){ + var symbol = l301; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l38.fvalue(pv, v831), v832) : l314.fvalue(pv, (function(){ - var symbol = l298; + })(), l38.fvalue(pv, v837), v838) : l315.fvalue(pv, (function(){ + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - var tmp = v831; + var tmp = v837; return tmp === l5.value? l5.value: tmp.car; - })(), v832))))))); + })(), v838))))))); }return l5.value; })(); } @@ -7620,90 +7625,90 @@ var l317 = {name: "CAADAR"}; } })(); })(l70.fvalue(pv, (function(){ - var tmp = v830; + var tmp = v836; return tmp === l5.value? l5.value: tmp.cdr; })()),l5.value); })(); })(); })); - return l313; + return l314; })(); -var l318 = {name: "NULL-OR-QUOTED"}; +var l319 = {name: "NULL-OR-QUOTED"}; (function(){ - (l318).fvalue = (function(v838){ - ((v838)["fname"] = "NULL-OR-QUOTED"); - return v838; - })((function (values,v836){ + (l319).fvalue = (function(v844){ + ((v844)["fname"] = "NULL-OR-QUOTED"); + return v844; + })((function (values,v842){ checkArgs(arguments, 2); return (function(){ - return (function(v837){ - return (v837 !== l5.value ? v837 : (((function(){ - var tmp = v836; + return (function(v843){ + return (v843 !== l5.value ? v843 : (((function(){ + var tmp = v842; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v836; + var tmp = v842; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l302; + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) : l5.value)); - })(l13.fvalue(pv, v836)); + })(l13.fvalue(pv, v842)); })(); })); - return l318; + return l319; })(); (function(){ - (l314).fvalue = (function(v843){ - ((v843)["fname"] = "BQ-ATTACH-APPEND"); - return v843; - })((function (values,v839,v840,v841){ + (l315).fvalue = (function(v849){ + ((v849)["fname"] = "BQ-ATTACH-APPEND"); + return v849; + })((function (values,v845,v846,v847){ checkArgs(arguments, 4); return (function(){ - return ((l318.fvalue(pv, v840) !== l5.value ? l318.fvalue(pv, v841) : l5.value) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l302; + return ((l319.fvalue(pv, v846) !== l5.value ? l319.fvalue(pv, v847) : l5.value) !== l5.value ? l47.fvalue(values, (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l68.fvalue(pv, l35.fvalue(pv, v840), l35.fvalue(pv, v841))) : ((function(v842){ - return (v842 !== l5.value ? v842 : ((v841 == (function(){ - var symbol = l303; + })(), l68.fvalue(pv, l35.fvalue(pv, v846), l35.fvalue(pv, v847))) : ((function(v848){ + return (v848 !== l5.value ? v848 : ((v847 == (function(){ + var symbol = l304; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value)); - })(l13.fvalue(pv, v841)) !== l5.value ? (l311.fvalue(pv, v840) !== l5.value ? l47.fvalue(values, v839, v840) : v840) : ((((function(){ - var tmp = v841; + })(l13.fvalue(pv, v847)) !== l5.value ? (l312.fvalue(pv, v846) !== l5.value ? l47.fvalue(values, v845, v846) : v846) : ((((function(){ + var tmp = v847; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v841; + var tmp = v847; return tmp === l5.value? l5.value: tmp.car; - })() === v839)?l4.value: l5.value) : l5.value) !== l5.value ? l85.fvalue(values, (function(){ - var tmp = v841; + })() === v845)?l4.value: l5.value) : l5.value) !== l5.value ? l85.fvalue(values, (function(){ + var tmp = v847; return tmp === l5.value? l5.value: tmp.car; - })(), v840, (function(){ - var tmp = v841; + })(), v846, (function(){ + var tmp = v847; return tmp === l5.value? l5.value: tmp.cdr; - })()) : l47.fvalue(values, v839, v840, v841)))); + })()) : l47.fvalue(values, v845, v846, v847)))); })(); })); - return l314; + return l315; })(); (function(){ - (l315).fvalue = (function(v848){ - ((v848)["fname"] = "BQ-ATTACH-CONSES"); - return v848; - })((function (values,v844,v845){ + (l316).fvalue = (function(v854){ + ((v854)["fname"] = "BQ-ATTACH-CONSES"); + return v854; + })((function (values,v850,v851){ checkArgs(arguments, 3); return (function(){ - return ((l104.fvalue(pv, (function(){ - var symbol = l318; + return ((l105.fvalue(pv, (function(){ + var symbol = l319; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v844) !== l5.value ? l318.fvalue(pv, v845) : l5.value) !== l5.value ? l47.fvalue(values, (function(){ - var symbol = l302; + })(), v850) !== l5.value ? l319.fvalue(pv, v851) : l5.value) !== l5.value ? l47.fvalue(values, (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -7712,291 +7717,291 @@ var l318 = {name: "NULL-OR-QUOTED"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v844), l35.fvalue(pv, v845))) : ((function(v846){ - return (v846 !== l5.value ? v846 : ((v845 == (function(){ - var symbol = l303; + })(), v850), l35.fvalue(pv, v851))) : ((function(v852){ + return (v852 !== l5.value ? v852 : ((v851 == (function(){ + var symbol = l304; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value)); - })(l13.fvalue(pv, v845)) !== l5.value ? ({car: (function(){ - var symbol = l297; + })(l13.fvalue(pv, v851)) !== l5.value ? ({car: (function(){ + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), cdr: v844}) : ((((function(){ - var tmp = v845; + })(), cdr: v850}) : ((((function(){ + var tmp = v851; return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v847){ - return (v847 !== l5.value ? v847 : (((function(){ - var tmp = v845; + })()?l4.value: l5.value) !== l5.value ? (function(v853){ + return (v853 !== l5.value ? v853 : (((function(){ + var tmp = v851; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l299; + var symbol = l300; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value)); })((((function(){ - var tmp = v845; + var tmp = v851; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l297; + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value)) : l5.value) !== l5.value ? ({car: (function(){ - var tmp = v845; + var tmp = v851; return tmp === l5.value? l5.value: tmp.car; - })(), cdr: l68.fvalue(pv, v844, (function(){ - var tmp = v845; + })(), cdr: l68.fvalue(pv, v850, (function(){ + var tmp = v851; return tmp === l5.value? l5.value: tmp.cdr; })())}) : ({car: (function(){ - var symbol = l299; + var symbol = l300; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), cdr: l68.fvalue(pv, v844, l47.fvalue(pv, v845))})))); + })(), cdr: l68.fvalue(pv, v850, l47.fvalue(pv, v851))})))); })(); })); - return l315; + return l316; })(); (function(){ - (l308).fvalue = (function(v850){ - ((v850)["fname"] = "BQ-REMOVE-TOKENS"); - return v850; - })((function (values,v849){ + (l309).fvalue = (function(v856){ + ((v856)["fname"] = "BQ-REMOVE-TOKENS"); + return v856; + })((function (values,v855){ checkArgs(arguments, 2); return (function(){ - return (((v849 === (function(){ - var symbol = l297; + return (((v855 === (function(){ + var symbol = l298; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l47 : (((v849 === (function(){ - var symbol = l298; + })())?l4.value: l5.value) !== l5.value ? l47 : (((v855 === (function(){ + var symbol = l299; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l68 : (((v849 === (function(){ - var symbol = l300; + })())?l4.value: l5.value) !== l5.value ? l68 : (((v855 === (function(){ + var symbol = l301; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l126 : (((v849 === (function(){ - var symbol = l299; + })())?l4.value: l5.value) !== l5.value ? l127 : (((v855 === (function(){ + var symbol = l300; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l85 : (((v849 === (function(){ - var symbol = l302; + })())?l4.value: l5.value) !== l5.value ? l85 : (((v855 === (function(){ + var symbol = l303; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l185 : (l48.fvalue(pv, v849) !== l5.value ? v849 : ((((function(){ - var tmp = v849; + })())?l4.value: l5.value) !== l5.value ? l186 : (l48.fvalue(pv, v855) !== l5.value ? v855 : ((((function(){ + var tmp = v855; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l301; + var symbol = l302; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? l308.fvalue(values, l35.fvalue(pv, v849)) : (((((function(){ - var tmp = v849; + })())?l4.value: l5.value) !== l5.value ? l309.fvalue(values, l35.fvalue(pv, v855)) : (((((function(){ + var tmp = v855; return tmp === l5.value? l5.value: tmp.car; })() === (function(){ - var symbol = l299; + var symbol = l300; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = l37.fvalue(pv, v849); + var tmp = l37.fvalue(pv, v855); return (typeof tmp == 'object' && 'car' in tmp); - })()?l4.value: l5.value) !== l5.value ? l13.fvalue(pv, l40.fvalue(pv, v849)) : l5.value) : l5.value) !== l5.value ? ({car: l30, cdr: l310.fvalue(pv, (function(){ - var symbol = l308; + })()?l4.value: l5.value) !== l5.value ? l13.fvalue(pv, l40.fvalue(pv, v855)) : l5.value) : l5.value) !== l5.value ? ({car: l30, cdr: l311.fvalue(pv, (function(){ + var symbol = l309; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), (function(){ - var tmp = v849; + var tmp = v855; return tmp === l5.value? l5.value: tmp.cdr; - })())}) : l310.fvalue(values, (function(){ - var symbol = l308; + })())}) : l311.fvalue(values, (function(){ + var symbol = l309; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v849))))))))); + })(), v855))))))))); })(); })); - return l308; + return l309; })(); (function(){ - var v851 = l47.fvalue(pv, l186, (function (values,v852){ + var v857 = l47.fvalue(pv, l187, (function (values,v858){ checkArgs(arguments, 2); return (function(){ - return l192.fvalue(values, l305.fvalue(pv, v852)); + return l193.fvalue(values, l306.fvalue(pv, v858)); })(); })); - var v853 = ({car: v851, cdr: (function(){ - var symbol = l229; + var v859 = ({car: v857, cdr: (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l229).value = v853); + return ((l230).value = v859); })(); -var l319 = {name: "*BUILTINS*"}; +var l320 = {name: "*BUILTINS*"}; (function(){ - (((l319.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l319).value = l5.value)); - return l319; + (((l320.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l320).value = l5.value)); + return l320; })(); -var l320 = {name: "DEFINE-RAW-BUILTIN"}; -l320; -var l321 = {name: "DEFINE-BUILTIN"}; +var l321 = {name: "DEFINE-RAW-BUILTIN"}; l321; -var l322 = {name: "TYPE-CHECK"}; +var l322 = {name: "DEFINE-BUILTIN"}; l322; -var l323 = {name: "VARIABLE-ARITY-CALL"}; -(function(){ - (l323).fvalue = (function(v866){ - ((v866)["fname"] = "VARIABLE-ARITY-CALL"); - return v866; - })((function (values,v854,v855){ +var l323 = {name: "TYPE-CHECK"}; +l323; +var l324 = {name: "VARIABLE-ARITY-CALL"}; +(function(){ + (l324).fvalue = (function(v872){ + ((v872)["fname"] = "VARIABLE-ARITY-CALL"); + return v872; + })((function (values,v860,v861){ checkArgs(arguments, 3); return (function(){ (((function(){ - var tmp = v854; + var tmp = v860; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ throw "ARGS must be a non-empty list"; })()); - return (function(v856,v857,v858){ + return (function(v862,v863,v864){ (function(){ - return (function(v859,v860){ + return (function(v865,v866){ (function(){ - while(v859 !== l5.value){ - (v860 = (function(){ - var tmp = v859; + while(v865 !== l5.value){ + (v866 = (function(){ + var tmp = v865; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - (((typeof (v860) == "number")?l4.value: l5.value) !== l5.value ? (function(){ - var v861 = l19.fvalue(pv, v860); - var v862 = ({car: v861, cdr: v857}); - return (v857 = v862); - })() : (function(v863){ + (((typeof (v866) == "number")?l4.value: l5.value) !== l5.value ? (function(){ + var v867 = l19.fvalue(pv, v866); + var v868 = ({car: v867, cdr: v863}); + return (v863 = v868); + })() : (function(v869){ (function(){ - var v864 = v863; - var v865 = ({car: v864, cdr: v857}); - return (v857 = v865); + var v870 = v869; + var v871 = ({car: v870, cdr: v863}); + return (v863 = v871); })(); - return (v858 = l156.fvalue(pv, v858, l190.fvalue(pv, "var ", v863, " = ", l192.fvalue(pv, v860), ";", (function(){ - var symbol = l155; + return (v864 = l157.fvalue(pv, v864, l191.fvalue(pv, "var ", v869, " = ", l193.fvalue(pv, v866), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "if (typeof ", v863, " !== 'number') throw 'Not a number!';", (function(){ - var symbol = l155; + })(), "if (typeof ", v869, " !== 'number') throw 'Not a number!';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()))); - })(l190.fvalue(pv, "x", (v856 = (function(){ - var x1 = v856; + })(l191.fvalue(pv, "x", (v862 = (function(){ + var x1 = v862; if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; })())))); return l5.value; })(); - (v859 = (function(){ - var tmp = v859; + (v865 = (function(){ + var tmp = v865; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); return l5.value; - })(v854,l5.value); + })(v860,l5.value); })(); - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, v858, (function(){ - var f = v855; - return (typeof f === 'function'? f: f.fvalue)(pv, l70.fvalue(pv, v857)) + })(), l195.fvalue(pv, v864, (function(){ + var f = v861; + return (typeof f === 'function'? f: f.fvalue)(pv, l70.fvalue(pv, v863)) })()), "})()"); })(0,l5,""); })(); })); - return l323; + return l324; })(); -var l324 = {name: "VARIABLE-ARITY"}; -l324; -var l325 = {name: "NUM-OP-NUM"}; +var l325 = {name: "VARIABLE-ARITY"}; +l325; +var l326 = {name: "NUM-OP-NUM"}; (function(){ - (l325).fvalue = (function(v870){ - ((v870)["fname"] = "NUM-OP-NUM"); - return v870; - })((function (values,v867,v868,v869){ + (l326).fvalue = (function(v876){ + ((v876)["fname"] = "NUM-OP-NUM"); + return v876; + })((function (values,v873,v874,v875){ checkArgs(arguments, 4); return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v867, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v873, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "var ", "y", " = ", v869, ";", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "var ", "y", " = ", v875, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", l190.fvalue(pv, "x", v868, "y"), ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", l191.fvalue(pv, "x", v874, "y"), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); })(); })); - return l325; + return l326; })(); (function(){ - var v871 = l47.fvalue(pv, l65, (function (values){ - var v872= l5.value; + var v877 = l47.fvalue(pv, l65, (function (values){ + var v878= l5.value; for (var i = arguments.length-1; i>=1; i--) - v872 = {car: arguments[i], cdr: - v872}; + v878 = {car: arguments[i], cdr: + v878}; return (function(){ - return (l13.fvalue(pv, v872) !== l5.value ? "0" : l323.fvalue(values, v872, (function (values,v873){ + return (l13.fvalue(pv, v878) !== l5.value ? "0" : l324.fvalue(values, v878, (function (values,v879){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l158.fvalue(pv, v873, "+"), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "return ", l159.fvalue(pv, v879, "+"), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -8004,57 +8009,57 @@ var l325 = {name: "NUM-OP-NUM"}; }))); })(); })); - var v874 = ({car: v871, cdr: (function(){ - var symbol = l319; + var v880 = ({car: v877, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v874); + return ((l320).value = v880); })(); (function(){ - var v875 = l47.fvalue(pv, l66, (function (values,v877){ + var v881 = l47.fvalue(pv, l66, (function (values,v883){ checkArgsAtLeast(arguments, 2); - var v876= l5.value; + var v882= l5.value; for (var i = arguments.length-1; i>=2; i--) - v876 = {car: arguments[i], cdr: - v876}; + v882 = {car: arguments[i], cdr: + v882}; return (function(){ - return (function(v878){ - return l323.fvalue(values, v878, (function (values,v879){ + return (function(v884){ + return l324.fvalue(values, v884, (function (values,v885){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", (l13.fvalue(pv, v876) !== l5.value ? l156.fvalue(pv, "-", (function(){ - var tmp = v879; + return l191.fvalue(values, "return ", (l13.fvalue(pv, v882) !== l5.value ? l157.fvalue(pv, "-", (function(){ + var tmp = v885; return tmp === l5.value? l5.value: tmp.car; - })()) : l158.fvalue(pv, v879, "-")), ";", (function(){ - var symbol = l155; + })()) : l159.fvalue(pv, v885, "-")), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v877, cdr: v876})); + })(({car: v883, cdr: v882})); })(); })); - var v880 = ({car: v875, cdr: (function(){ - var symbol = l319; + var v886 = ({car: v881, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v880); + return ((l320).value = v886); })(); (function(){ - var v881 = l47.fvalue(pv, l22, (function (values){ - var v882= l5.value; + var v887 = l47.fvalue(pv, l22, (function (values){ + var v888= l5.value; for (var i = arguments.length-1; i>=1; i--) - v882 = {car: arguments[i], cdr: - v882}; + v888 = {car: arguments[i], cdr: + v888}; return (function(){ - return (l13.fvalue(pv, v882) !== l5.value ? "1" : l323.fvalue(values, v882, (function (values,v883){ + return (l13.fvalue(pv, v888) !== l5.value ? "1" : l324.fvalue(values, v888, (function (values,v889){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l158.fvalue(pv, v883, "*"), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "return ", l159.fvalue(pv, v889, "*"), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -8062,122 +8067,92 @@ var l325 = {name: "NUM-OP-NUM"}; }))); })(); })); - var v884 = ({car: v881, cdr: (function(){ - var symbol = l319; + var v890 = ({car: v887, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v884); + return ((l320).value = v890); })(); (function(){ - var v885 = l47.fvalue(pv, l23, (function (values,v887){ + var v891 = l47.fvalue(pv, l23, (function (values,v893){ checkArgsAtLeast(arguments, 2); - var v886= l5.value; + var v892= l5.value; for (var i = arguments.length-1; i>=2; i--) - v886 = {car: arguments[i], cdr: - v886}; + v892 = {car: arguments[i], cdr: + v892}; return (function(){ - return (function(v888){ - return l323.fvalue(values, v888, (function (values,v889){ + return (function(v894){ + return l324.fvalue(values, v894, (function (values,v895){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", (l13.fvalue(pv, v886) !== l5.value ? l156.fvalue(pv, "1 /", (function(){ - var tmp = v889; + return l191.fvalue(values, "return ", (l13.fvalue(pv, v892) !== l5.value ? l157.fvalue(pv, "1 /", (function(){ + var tmp = v895; return tmp === l5.value? l5.value: tmp.car; - })()) : l158.fvalue(pv, v889, "/")), ";", (function(){ - var symbol = l155; + })()) : l159.fvalue(pv, v895, "/")), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v887, cdr: v886})); + })(({car: v893, cdr: v892})); })(); })); - var v890 = ({car: v885, cdr: (function(){ - var symbol = l319; + var v896 = ({car: v891, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v890); + return ((l320).value = v896); })(); -var l326 = {name: "MOD"}; +var l327 = {name: "MOD"}; (function(){ - var v891 = l47.fvalue(pv, l326, (function (values,v892,v893){ + var v897 = l47.fvalue(pv, l327, (function (values,v898,v899){ checkArgs(arguments, 3); return (function(){ - return (function(v894,v895){ - return l325.fvalue(values, v894, "%", v895); - })(l192.fvalue(pv, v892),l192.fvalue(pv, v893)); + return (function(v900,v901){ + return l326.fvalue(values, v900, "%", v901); + })(l193.fvalue(pv, v898),l193.fvalue(pv, v899)); })(); })); - var v896 = ({car: v891, cdr: (function(){ - var symbol = l319; + var v902 = ({car: v897, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v896); + return ((l320).value = v902); })(); -var l327 = {name: "COMPARISON-CONJUNTION"}; +var l328 = {name: "COMPARISON-CONJUNTION"}; (function(){ - (l327).fvalue = (function(v899){ - ((v899)["fname"] = "COMPARISON-CONJUNTION"); - return v899; - })((function (values,v897,v898){ + (l328).fvalue = (function(v905){ + ((v905)["fname"] = "COMPARISON-CONJUNTION"); + return v905; + })((function (values,v903,v904){ checkArgs(arguments, 3); return (function(){ return (l13.fvalue(pv, (function(){ - var tmp = v897; + var tmp = v903; return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? "true" : (l13.fvalue(pv, l37.fvalue(pv, v897)) !== l5.value ? l156.fvalue(values, (function(){ - var tmp = v897; + })()) !== l5.value ? "true" : (l13.fvalue(pv, l37.fvalue(pv, v903)) !== l5.value ? l157.fvalue(values, (function(){ + var tmp = v903; return tmp === l5.value? l5.value: tmp.car; - })(), v898, l35.fvalue(pv, v897)) : l156.fvalue(values, (function(){ - var tmp = v897; + })(), v904, l35.fvalue(pv, v903)) : l157.fvalue(values, (function(){ + var tmp = v903; return tmp === l5.value? l5.value: tmp.car; - })(), v898, l35.fvalue(pv, v897), " && ", l327.fvalue(pv, (function(){ - var tmp = v897; + })(), v904, l35.fvalue(pv, v903), " && ", l328.fvalue(pv, (function(){ + var tmp = v903; return tmp === l5.value? l5.value: tmp.cdr; - })(), v898)))); - })(); - })); - return l327; -})(); -var l328 = {name: "DEFINE-BUILTIN-COMPARISON"}; -l328; -var l329 = {name: ">"}; -(function(){ - var v900 = l47.fvalue(pv, l329, (function (values,v902){ - checkArgsAtLeast(arguments, 2); - var v901= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v901 = {car: arguments[i], cdr: - v901}; - return (function(){ - return (function(v903){ - return l323.fvalue(values, v903, (function (values,v904){ - checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v904, ">")), ";", (function(){ - var symbol = l155; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v902, cdr: v901})); + })(), v904)))); })(); })); - var v905 = ({car: v900, cdr: (function(){ - var symbol = l319; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()}); - return ((l319).value = v905); + return l328; })(); -var l330 = {name: "<"}; +var l329 = {name: "DEFINE-BUILTIN-COMPARISON"}; +l329; +var l330 = {name: ">"}; (function(){ var v906 = l47.fvalue(pv, l330, (function (values,v908){ checkArgsAtLeast(arguments, 2); @@ -8187,10 +8162,10 @@ var l330 = {name: "<"}; v907}; return (function(){ return (function(v909){ - return l323.fvalue(values, v909, (function (values,v910){ + return l324.fvalue(values, v909, (function (values,v910){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v910, "<")), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v910, ">")), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -8200,14 +8175,14 @@ var l330 = {name: "<"}; })(); })); var v911 = ({car: v906, cdr: (function(){ - var symbol = l319; + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v911); + return ((l320).value = v911); })(); -var l331 = {name: ">="}; +var l331 = {name: "<"}; (function(){ var v912 = l47.fvalue(pv, l331, (function (values,v914){ checkArgsAtLeast(arguments, 2); @@ -8217,10 +8192,10 @@ var l331 = {name: ">="}; v913}; return (function(){ return (function(v915){ - return l323.fvalue(values, v915, (function (values,v916){ + return l324.fvalue(values, v915, (function (values,v916){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v916, ">=")), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v916, "<")), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -8230,14 +8205,14 @@ var l331 = {name: ">="}; })(); })); var v917 = ({car: v912, cdr: (function(){ - var symbol = l319; + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v917); + return ((l320).value = v917); })(); -var l332 = {name: "<="}; +var l332 = {name: ">="}; (function(){ var v918 = l47.fvalue(pv, l332, (function (values,v920){ checkArgsAtLeast(arguments, 2); @@ -8247,10 +8222,10 @@ var l332 = {name: "<="}; v919}; return (function(){ return (function(v921){ - return l323.fvalue(values, v921, (function (values,v922){ + return l324.fvalue(values, v921, (function (values,v922){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v922, "<=")), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v922, ">=")), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -8260,15 +8235,16 @@ var l332 = {name: "<="}; })(); })); var v923 = ({car: v918, cdr: (function(){ - var symbol = l319; + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v923); + return ((l320).value = v923); })(); +var l333 = {name: "<="}; (function(){ - var v924 = l47.fvalue(pv, l21, (function (values,v926){ + var v924 = l47.fvalue(pv, l333, (function (values,v926){ checkArgsAtLeast(arguments, 2); var v925= l5.value; for (var i = arguments.length-1; i>=2; i--) @@ -8276,10 +8252,10 @@ var l332 = {name: "<="}; v925}; return (function(){ return (function(v927){ - return l323.fvalue(values, v927, (function (values,v928){ + return l324.fvalue(values, v927, (function (values,v928){ checkArgs(arguments, 2); - return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v928, "==")), ";", (function(){ - var symbol = l155; + return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v928, "<=")), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -8289,1123 +8265,1152 @@ var l332 = {name: "<="}; })(); })); var v929 = ({car: v924, cdr: (function(){ - var symbol = l319; + var symbol = l320; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l320).value = v929); +})(); +(function(){ + var v930 = l47.fvalue(pv, l21, (function (values,v932){ + checkArgsAtLeast(arguments, 2); + var v931= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v931 = {car: arguments[i], cdr: + v931}; + return (function(){ + return (function(v933){ + return l324.fvalue(values, v933, (function (values,v934){ + checkArgs(arguments, 2); + return l191.fvalue(values, "return ", l192.fvalue(pv, l328.fvalue(pv, v934, "==")), ";", (function(){ + var symbol = l156; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v932, cdr: v931})); + })(); + })); + var v935 = ({car: v930, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v929); + return ((l320).value = v935); })(); -var l333 = {name: "NUMBERP"}; +var l334 = {name: "NUMBERP"}; (function(){ - var v930 = l47.fvalue(pv, l333, (function (values,v931){ + var v936 = l47.fvalue(pv, l334, (function (values,v937){ checkArgs(arguments, 2); return (function(){ - return (function(v932){ - return l191.fvalue(values, l190.fvalue(pv, "(typeof (", v932, ") == \"number\")")); - })(l192.fvalue(pv, v931)); + return (function(v938){ + return l192.fvalue(values, l191.fvalue(pv, "(typeof (", v938, ") == \"number\")")); + })(l193.fvalue(pv, v937)); })(); })); - var v933 = ({car: v930, cdr: (function(){ - var symbol = l319; + var v939 = ({car: v936, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v933); + return ((l320).value = v939); })(); -var l334 = {name: "FLOOR"}; +var l335 = {name: "FLOOR"}; (function(){ - var v934 = l47.fvalue(pv, l334, (function (values,v935){ + var v940 = l47.fvalue(pv, l335, (function (values,v941){ checkArgs(arguments, 2); return (function(){ - return (function(v936){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v942){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v936, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v942, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v935)); + })(l193.fvalue(pv, v941)); })(); })); - var v937 = ({car: v934, cdr: (function(){ - var symbol = l319; + var v943 = ({car: v940, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v937); + return ((l320).value = v943); })(); (function(){ - var v938 = l47.fvalue(pv, l30, (function (values,v939,v940){ + var v944 = l47.fvalue(pv, l30, (function (values,v945,v946){ checkArgs(arguments, 3); return (function(){ - return (function(v941,v942){ - return l190.fvalue(values, "({car: ", v941, ", cdr: ", v942, "})"); - })(l192.fvalue(pv, v939),l192.fvalue(pv, v940)); + return (function(v947,v948){ + return l191.fvalue(values, "({car: ", v947, ", cdr: ", v948, "})"); + })(l193.fvalue(pv, v945),l193.fvalue(pv, v946)); })(); })); - var v943 = ({car: v938, cdr: (function(){ - var symbol = l319; + var v949 = ({car: v944, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v943); + return ((l320).value = v949); })(); (function(){ - var v944 = l47.fvalue(pv, l31, (function (values,v945){ + var v950 = l47.fvalue(pv, l31, (function (values,v951){ checkArgs(arguments, 2); return (function(){ - return (function(v946){ - return l191.fvalue(values, l190.fvalue(pv, "(function(){", (function(){ - var symbol = l155; + return (function(v952){ + return l192.fvalue(values, l191.fvalue(pv, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tmp = ", v946, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tmp = ", v952, ";", (function(){ + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l192.fvalue(pv, v945)); + })(l193.fvalue(pv, v951)); })(); })); - var v947 = ({car: v944, cdr: (function(){ - var symbol = l319; + var v953 = ({car: v950, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v947); + return ((l320).value = v953); })(); (function(){ - var v948 = l47.fvalue(pv, l32, (function (values,v949){ + var v954 = l47.fvalue(pv, l32, (function (values,v955){ checkArgs(arguments, 2); return (function(){ - return (function(v950){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v956){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tmp = ", v950, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tmp = ", v956, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp === ", l192.fvalue(pv, l5.value), "? ", l192.fvalue(pv, l5.value), ": tmp.car;", (function(){ - var symbol = l155; + })(), "return tmp === ", l193.fvalue(pv, l5.value), "? ", l193.fvalue(pv, l5.value), ": tmp.car;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v949)); + })(l193.fvalue(pv, v955)); })(); })); - var v951 = ({car: v948, cdr: (function(){ - var symbol = l319; + var v957 = ({car: v954, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v951); + return ((l320).value = v957); })(); (function(){ - var v952 = l47.fvalue(pv, l33, (function (values,v953){ + var v958 = l47.fvalue(pv, l33, (function (values,v959){ checkArgs(arguments, 2); return (function(){ - return (function(v954){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v960){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tmp = ", v954, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tmp = ", v960, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp === ", l192.fvalue(pv, l5.value), "? ", l192.fvalue(pv, l5.value), ": tmp.cdr;", (function(){ - var symbol = l155; + })(), "return tmp === ", l193.fvalue(pv, l5.value), "? ", l193.fvalue(pv, l5.value), ": tmp.cdr;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v953)); + })(l193.fvalue(pv, v959)); })(); })); - var v955 = ({car: v952, cdr: (function(){ - var symbol = l319; + var v961 = ({car: v958, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v955); + return ((l320).value = v961); })(); (function(){ - var v956 = l47.fvalue(pv, l123, (function (values,v957,v958){ + var v962 = l47.fvalue(pv, l124, (function (values,v963,v964){ checkArgs(arguments, 3); return (function(){ - return (function(v959,v960){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v965,v966){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v959, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v965, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", l190.fvalue(pv, "(x.car = ", v960, ", x)"), ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", l191.fvalue(pv, "(x.car = ", v966, ", x)"), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v957),l192.fvalue(pv, v958)); + })(l193.fvalue(pv, v963),l193.fvalue(pv, v964)); })(); })); - var v961 = ({car: v956, cdr: (function(){ - var symbol = l319; + var v967 = ({car: v962, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v961); + return ((l320).value = v967); })(); (function(){ - var v962 = l47.fvalue(pv, l124, (function (values,v963,v964){ + var v968 = l47.fvalue(pv, l125, (function (values,v969,v970){ checkArgs(arguments, 3); return (function(){ - return (function(v965,v966){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v971,v972){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v965, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v971, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", l190.fvalue(pv, "(x.cdr = ", v966, ", x)"), ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", l191.fvalue(pv, "(x.cdr = ", v972, ", x)"), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v963),l192.fvalue(pv, v964)); + })(l193.fvalue(pv, v969),l193.fvalue(pv, v970)); })(); })); - var v967 = ({car: v962, cdr: (function(){ - var symbol = l319; + var v973 = ({car: v968, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v967); + return ((l320).value = v973); })(); -var l335 = {name: "SYMBOLP"}; +var l336 = {name: "SYMBOLP"}; (function(){ - var v968 = l47.fvalue(pv, l335, (function (values,v969){ + var v974 = l47.fvalue(pv, l336, (function (values,v975){ checkArgs(arguments, 2); return (function(){ - return (function(v970){ - return l191.fvalue(values, l190.fvalue(pv, "(function(){", (function(){ - var symbol = l155; + return (function(v976){ + return l192.fvalue(values, l191.fvalue(pv, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tmp = ", v970, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tmp = ", v976, ";", (function(){ + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l192.fvalue(pv, v969)); + })(l193.fvalue(pv, v975)); })(); })); - var v971 = ({car: v968, cdr: (function(){ - var symbol = l319; + var v977 = ({car: v974, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v971); + return ((l320).value = v977); })(); -var l336 = {name: "MAKE-SYMBOL"}; +var l337 = {name: "MAKE-SYMBOL"}; (function(){ - var v972 = l47.fvalue(pv, l336, (function (values,v973){ + var v978 = l47.fvalue(pv, l337, (function (values,v979){ checkArgs(arguments, 2); return (function(){ - return (function(v974){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v980){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "name", " = ", v974, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "name", " = ", v980, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "({name: name})", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "({name: name})", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v973)); + })(l193.fvalue(pv, v979)); })(); })); - var v975 = ({car: v972, cdr: (function(){ - var symbol = l319; + var v981 = ({car: v978, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v975); + return ((l320).value = v981); })(); -var l337 = {name: "SYMBOL-NAME"}; +var l338 = {name: "SYMBOL-NAME"}; (function(){ - var v976 = l47.fvalue(pv, l337, (function (values,v977){ + var v982 = l47.fvalue(pv, l338, (function (values,v983){ checkArgs(arguments, 2); return (function(){ - return (function(v978){ - return l190.fvalue(values, "(", v978, ").name"); - })(l192.fvalue(pv, v977)); + return (function(v984){ + return l191.fvalue(values, "(", v984, ").name"); + })(l193.fvalue(pv, v983)); })(); })); - var v979 = ({car: v976, cdr: (function(){ - var symbol = l319; + var v985 = ({car: v982, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v979); + return ((l320).value = v985); })(); (function(){ - var v980 = l47.fvalue(pv, l255, (function (values,v981,v982){ + var v986 = l47.fvalue(pv, l256, (function (values,v987,v988){ checkArgs(arguments, 3); return (function(){ - return (function(v983,v984){ - return l190.fvalue(values, "(", v983, ").value = ", v984); - })(l192.fvalue(pv, v981),l192.fvalue(pv, v982)); + return (function(v989,v990){ + return l191.fvalue(values, "(", v989, ").value = ", v990); + })(l193.fvalue(pv, v987),l193.fvalue(pv, v988)); })(); })); - var v985 = ({car: v980, cdr: (function(){ - var symbol = l319; + var v991 = ({car: v986, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v985); + return ((l320).value = v991); })(); -var l338 = {name: "FSET"}; +var l339 = {name: "FSET"}; (function(){ - var v986 = l47.fvalue(pv, l338, (function (values,v987,v988){ + var v992 = l47.fvalue(pv, l339, (function (values,v993,v994){ checkArgs(arguments, 3); return (function(){ - return (function(v989,v990){ - return l190.fvalue(values, "(", v989, ").fvalue = ", v990); - })(l192.fvalue(pv, v987),l192.fvalue(pv, v988)); + return (function(v995,v996){ + return l191.fvalue(values, "(", v995, ").fvalue = ", v996); + })(l193.fvalue(pv, v993),l193.fvalue(pv, v994)); })(); })); - var v991 = ({car: v986, cdr: (function(){ - var symbol = l319; + var v997 = ({car: v992, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v991); + return ((l320).value = v997); })(); (function(){ - var v992 = l47.fvalue(pv, l20, (function (values,v993){ + var v998 = l47.fvalue(pv, l20, (function (values,v999){ checkArgs(arguments, 2); return (function(){ - return (function(v994){ - return l191.fvalue(values, l190.fvalue(pv, "(", v994, ".value !== undefined)")); - })(l192.fvalue(pv, v993)); + return (function(v1000){ + return l192.fvalue(values, l191.fvalue(pv, "(", v1000, ".value !== undefined)")); + })(l193.fvalue(pv, v999)); })(); })); - var v995 = ({car: v992, cdr: (function(){ - var symbol = l319; + var v1001 = ({car: v998, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v995); + return ((l320).value = v1001); })(); -var l339 = {name: "SYMBOL-VALUE"}; +var l340 = {name: "SYMBOL-VALUE"}; (function(){ - var v996 = l47.fvalue(pv, l339, (function (values,v997){ + var v1002 = l47.fvalue(pv, l340, (function (values,v1003){ checkArgs(arguments, 2); return (function(){ - return (function(v998){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1004){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var symbol = ", v998, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var symbol = ", v1004, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var value = symbol.value;", (function(){ - var symbol = l155; + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return value;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v997)); + })(l193.fvalue(pv, v1003)); })(); })); - var v999 = ({car: v996, cdr: (function(){ - var symbol = l319; + var v1005 = ({car: v1002, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v999); + return ((l320).value = v1005); })(); (function(){ - var v1000 = l47.fvalue(pv, l263, (function (values,v1001){ + var v1006 = l47.fvalue(pv, l264, (function (values,v1007){ checkArgs(arguments, 2); return (function(){ - return (function(v1002){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1008){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var symbol = ", v1002, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var symbol = ", v1008, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var func = symbol.fvalue;", (function(){ - var symbol = l155; + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return func;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v1001)); + })(l193.fvalue(pv, v1007)); })(); })); - var v1003 = ({car: v1000, cdr: (function(){ - var symbol = l319; + var v1009 = ({car: v1006, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1003); + return ((l320).value = v1009); })(); -var l340 = {name: "SYMBOL-PLIST"}; +var l341 = {name: "SYMBOL-PLIST"}; (function(){ - var v1004 = l47.fvalue(pv, l340, (function (values,v1005){ + var v1010 = l47.fvalue(pv, l341, (function (values,v1011){ checkArgs(arguments, 2); return (function(){ - return (function(v1006){ - return l190.fvalue(values, "((", v1006, ").plist || ", l192.fvalue(pv, l5.value), ")"); - })(l192.fvalue(pv, v1005)); + return (function(v1012){ + return l191.fvalue(values, "((", v1012, ").plist || ", l193.fvalue(pv, l5.value), ")"); + })(l193.fvalue(pv, v1011)); })(); })); - var v1007 = ({car: v1004, cdr: (function(){ - var symbol = l319; + var v1013 = ({car: v1010, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1007); + return ((l320).value = v1013); })(); -var l341 = {name: "LAMBDA-CODE"}; +var l342 = {name: "LAMBDA-CODE"}; (function(){ - var v1008 = l47.fvalue(pv, l341, (function (values,v1009){ + var v1014 = l47.fvalue(pv, l342, (function (values,v1015){ checkArgs(arguments, 2); return (function(){ - return (function(v1010){ - return l190.fvalue(values, "(", v1010, ").toString()"); - })(l192.fvalue(pv, v1009)); + return (function(v1016){ + return l191.fvalue(values, "(", v1016, ").toString()"); + })(l193.fvalue(pv, v1015)); })(); })); - var v1011 = ({car: v1008, cdr: (function(){ - var symbol = l319; + var v1017 = ({car: v1014, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1011); + return ((l320).value = v1017); })(); -var l342 = {name: "EQ"}; +var l343 = {name: "EQ"}; (function(){ - var v1012 = l47.fvalue(pv, l342, (function (values,v1013,v1014){ + var v1018 = l47.fvalue(pv, l343, (function (values,v1019,v1020){ checkArgs(arguments, 3); return (function(){ - return (function(v1015,v1016){ - return l191.fvalue(values, l190.fvalue(pv, "(", v1015, " === ", v1016, ")")); - })(l192.fvalue(pv, v1013),l192.fvalue(pv, v1014)); + return (function(v1021,v1022){ + return l192.fvalue(values, l191.fvalue(pv, "(", v1021, " === ", v1022, ")")); + })(l193.fvalue(pv, v1019),l193.fvalue(pv, v1020)); })(); })); - var v1017 = ({car: v1012, cdr: (function(){ - var symbol = l319; + var v1023 = ({car: v1018, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1017); + return ((l320).value = v1023); })(); -var l343 = {name: "EQUAL"}; +var l344 = {name: "EQUAL"}; (function(){ - var v1018 = l47.fvalue(pv, l343, (function (values,v1019,v1020){ + var v1024 = l47.fvalue(pv, l344, (function (values,v1025,v1026){ checkArgs(arguments, 3); return (function(){ - return (function(v1021,v1022){ - return l191.fvalue(values, l190.fvalue(pv, "(", v1021, " == ", v1022, ")")); - })(l192.fvalue(pv, v1019),l192.fvalue(pv, v1020)); + return (function(v1027,v1028){ + return l192.fvalue(values, l191.fvalue(pv, "(", v1027, " == ", v1028, ")")); + })(l193.fvalue(pv, v1025),l193.fvalue(pv, v1026)); })(); })); - var v1023 = ({car: v1018, cdr: (function(){ - var symbol = l319; + var v1029 = ({car: v1024, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1023); + return ((l320).value = v1029); })(); -var l344 = {name: "CHAR-TO-STRING"}; +var l345 = {name: "CHAR-TO-STRING"}; (function(){ - var v1024 = l47.fvalue(pv, l344, (function (values,v1025){ + var v1030 = l47.fvalue(pv, l345, (function (values,v1031){ checkArgs(arguments, 2); return (function(){ - return (function(v1026){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1032){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v1026, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1032, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1025)); + })(l193.fvalue(pv, v1031)); })(); })); - var v1027 = ({car: v1024, cdr: (function(){ - var symbol = l319; + var v1033 = ({car: v1030, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1027); + return ((l320).value = v1033); })(); -var l345 = {name: "STRINGP"}; +var l346 = {name: "STRINGP"}; (function(){ - var v1028 = l47.fvalue(pv, l345, (function (values,v1029){ + var v1034 = l47.fvalue(pv, l346, (function (values,v1035){ checkArgs(arguments, 2); return (function(){ - return (function(v1030){ - return l191.fvalue(values, l190.fvalue(pv, "(typeof(", v1030, ") == \"string\")")); - })(l192.fvalue(pv, v1029)); + return (function(v1036){ + return l192.fvalue(values, l191.fvalue(pv, "(typeof(", v1036, ") == \"string\")")); + })(l193.fvalue(pv, v1035)); })(); })); - var v1031 = ({car: v1028, cdr: (function(){ - var symbol = l319; + var v1037 = ({car: v1034, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1031); + return ((l320).value = v1037); })(); -var l346 = {name: "STRING-UPCASE"}; +var l347 = {name: "STRING-UPCASE"}; (function(){ - var v1032 = l47.fvalue(pv, l346, (function (values,v1033){ + var v1038 = l47.fvalue(pv, l347, (function (values,v1039){ checkArgs(arguments, 2); return (function(){ - return (function(v1034){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1040){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v1034, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1040, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1033)); + })(l193.fvalue(pv, v1039)); })(); })); - var v1035 = ({car: v1032, cdr: (function(){ - var symbol = l319; + var v1041 = ({car: v1038, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1035); + return ((l320).value = v1041); })(); -var l347 = {name: "STRING-LENGTH"}; +var l348 = {name: "STRING-LENGTH"}; (function(){ - var v1036 = l47.fvalue(pv, l347, (function (values,v1037){ + var v1042 = l47.fvalue(pv, l348, (function (values,v1043){ checkArgs(arguments, 2); return (function(){ - return (function(v1038){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1044){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v1038, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1044, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "x.length", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "x.length", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1037)); + })(l193.fvalue(pv, v1043)); })(); })); - var v1039 = ({car: v1036, cdr: (function(){ - var symbol = l319; + var v1045 = ({car: v1042, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1039); + return ((l320).value = v1045); })(); -var l348 = {name: "SLICE"}; +var l349 = {name: "SLICE"}; (function(){ - var v1040 = l47.fvalue(pv, l348, (function (values,v1041,v1042,v1043){ + var v1046 = l47.fvalue(pv, l349, (function (values,v1047,v1048,v1049){ checkArgsAtLeast(arguments, 3); checkArgsAtMost(arguments, 4); - var v1043; + var v1049; switch(arguments.length-1){ case 2: - v1043=l5.value; + v1049=l5.value; default: break; } return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var str = ", l192.fvalue(pv, v1041), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var str = ", l193.fvalue(pv, v1047), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var a = ", l192.fvalue(pv, v1042), ";", (function(){ - var symbol = l155; + })(), "var a = ", l193.fvalue(pv, v1048), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "var b;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (v1043 !== l5.value ? l190.fvalue(pv, "b = ", l192.fvalue(pv, v1043), ";", (function(){ - var symbol = l155; + })(), (v1049 !== l5.value ? l191.fvalue(pv, "b = ", l193.fvalue(pv, v1049), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : l5.value), "return str.slice(a,b);", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); })(); })); - var v1044 = ({car: v1040, cdr: (function(){ - var symbol = l319; + var v1050 = ({car: v1046, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1044); + return ((l320).value = v1050); })(); -var l349 = {name: "CHAR"}; +var l350 = {name: "CHAR"}; (function(){ - var v1045 = l47.fvalue(pv, l349, (function (values,v1046,v1047){ + var v1051 = l47.fvalue(pv, l350, (function (values,v1052,v1053){ checkArgs(arguments, 3); return (function(){ - return (function(v1048,v1049){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1054,v1055){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "string", " = ", v1048, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "string", " = ", v1054, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "var ", "index", " = ", v1049, ";", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "var ", "index", " = ", v1055, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1046),l192.fvalue(pv, v1047)); + })(l193.fvalue(pv, v1052),l193.fvalue(pv, v1053)); })(); })); - var v1050 = ({car: v1045, cdr: (function(){ - var symbol = l319; + var v1056 = ({car: v1051, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1050); + return ((l320).value = v1056); })(); (function(){ - var v1051 = l47.fvalue(pv, l76, (function (values,v1052,v1053){ + var v1057 = l47.fvalue(pv, l76, (function (values,v1058,v1059){ checkArgs(arguments, 3); return (function(){ - return (function(v1054,v1055){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1060,v1061){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "string1", " = ", v1054, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "string1", " = ", v1060, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "var ", "string2", " = ", v1055, ";", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "var ", "string2", " = ", v1061, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1052),l192.fvalue(pv, v1053)); + })(l193.fvalue(pv, v1058),l193.fvalue(pv, v1059)); })(); })); - var v1056 = ({car: v1051, cdr: (function(){ - var symbol = l319; + var v1062 = ({car: v1057, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1056); + return ((l320).value = v1062); })(); -var l350 = {name: "FUNCALL"}; +var l351 = {name: "FUNCALL"}; (function(){ - var v1057 = l47.fvalue(pv, l350, (function (values,v1059){ + var v1063 = l47.fvalue(pv, l351, (function (values,v1065){ checkArgsAtLeast(arguments, 2); - var v1058= l5.value; + var v1064= l5.value; for (var i = arguments.length-1; i>=2; i--) - v1058 = {car: arguments[i], cdr: - v1058}; + v1064 = {car: arguments[i], cdr: + v1064}; return (function(){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var f = ", l192.fvalue(pv, v1059), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var f = ", l193.fvalue(pv, v1065), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return (typeof f === 'function'? f: f.fvalue)(", l158.fvalue(pv, ({car: ((function(){ - var symbol = l195; + })(), "return (typeof f === 'function'? f: f.fvalue)(", l159.fvalue(pv, ({car: ((function(){ + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? "values" : "pv"), cdr: l81.fvalue(pv, (function(){ - var symbol = l192; + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1058)}), ", "), ")"), "})()"); + })(), v1064)}), ", "), ")"), "})()"); })(); })); - var v1060 = ({car: v1057, cdr: (function(){ - var symbol = l319; + var v1066 = ({car: v1063, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1060); + return ((l320).value = v1066); })(); -var l351 = {name: "APPLY"}; +var l352 = {name: "APPLY"}; (function(){ - var v1061 = l47.fvalue(pv, l351, (function (values,v1063){ + var v1067 = l47.fvalue(pv, l352, (function (values,v1069){ checkArgsAtLeast(arguments, 2); - var v1062= l5.value; + var v1068= l5.value; for (var i = arguments.length-1; i>=2; i--) - v1062 = {car: arguments[i], cdr: - v1062}; + v1068 = {car: arguments[i], cdr: + v1068}; return (function(){ - return (l13.fvalue(pv, v1062) !== l5.value ? l190.fvalue(values, "(", l192.fvalue(pv, v1063), ")()") : (function(v1064,v1065){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (l13.fvalue(pv, v1068) !== l5.value ? l191.fvalue(values, "(", l193.fvalue(pv, v1069), ")()") : (function(v1070,v1071){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var f = ", l192.fvalue(pv, v1063), ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var f = ", l193.fvalue(pv, v1069), ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var args = [", l158.fvalue(pv, ({car: ((function(){ - var symbol = l195; + })(), "var args = [", l159.fvalue(pv, ({car: ((function(){ + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? "values" : "pv"), cdr: l81.fvalue(pv, (function(){ - var symbol = l192; + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1064)}), ", "), "];", (function(){ - var symbol = l155; + })(), v1070)}), ", "), "];", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var tail = (", l192.fvalue(pv, v1065), ");", (function(){ - var symbol = l155; + })(), "var tail = (", l193.fvalue(pv, v1071), ");", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "while (tail != ", l192.fvalue(pv, l5.value), "){", (function(){ - var symbol = l155; + })(), "while (tail != ", l193.fvalue(pv, l5.value), "){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " args.push(tail.car);", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), " tail = tail.cdr;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return (typeof f === 'function'? f : f.fvalue).apply(this, args);", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l95.fvalue(pv, v1062),(function(){ - var tmp = l94.fvalue(pv, v1062); + })(l95.fvalue(pv, v1068),(function(){ + var tmp = l94.fvalue(pv, v1068); return tmp === l5.value? l5.value: tmp.car; })())); })(); })); - var v1066 = ({car: v1061, cdr: (function(){ - var symbol = l319; + var v1072 = ({car: v1067, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1066); + return ((l320).value = v1072); })(); -var l352 = {name: "JS-EVAL"}; +var l353 = {name: "JS-EVAL"}; (function(){ - var v1067 = l47.fvalue(pv, l352, (function (values,v1068){ + var v1073 = l47.fvalue(pv, l353, (function (values,v1074){ checkArgs(arguments, 2); return (function(){ - return (function(v1069){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1075){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "string", " = ", v1069, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "string", " = ", v1075, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", ((function(){ - var symbol = l195; + })())), l191.fvalue(pv, "return ", ((function(){ + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l190.fvalue(pv, "(function(){", (function(){ - var symbol = l155; + })() !== l5.value ? l191.fvalue(pv, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "v = [v];", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "v = [v];", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "v['multiple-value'] = true;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "}", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return values.apply(this, v);", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()") : "eval.apply(window, [string])"), ";", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1068)); + })(l193.fvalue(pv, v1074)); })(); })); - var v1070 = ({car: v1067, cdr: (function(){ - var symbol = l319; + var v1076 = ({car: v1073, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1070); + return ((l320).value = v1076); })(); -var l353 = {name: "ERROR"}; +var l354 = {name: "ERROR"}; (function(){ - var v1071 = l47.fvalue(pv, l353, (function (values,v1072){ + var v1077 = l47.fvalue(pv, l354, (function (values,v1078){ checkArgs(arguments, 2); return (function(){ - return (function(v1073){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1079){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw ", v1073, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw ", v1079, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v1072)); + })(l193.fvalue(pv, v1078)); })(); })); - var v1074 = ({car: v1071, cdr: (function(){ - var symbol = l319; + var v1080 = ({car: v1077, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1074); + return ((l320).value = v1080); })(); -var l354 = {name: "NEW"}; +var l355 = {name: "NEW"}; (function(){ - var v1075 = l47.fvalue(pv, l354, (function (values){ + var v1081 = l47.fvalue(pv, l355, (function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ @@ -9413,428 +9418,428 @@ var l354 = {name: "NEW"}; })(); })(); })); - var v1076 = ({car: v1075, cdr: (function(){ - var symbol = l319; + var v1082 = ({car: v1081, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1076); + return ((l320).value = v1082); })(); -var l355 = {name: "OBJECTP"}; +var l356 = {name: "OBJECTP"}; (function(){ - var v1077 = l47.fvalue(pv, l355, (function (values,v1078){ + var v1083 = l47.fvalue(pv, l356, (function (values,v1084){ checkArgs(arguments, 2); return (function(){ - return (function(v1079){ - return l191.fvalue(values, l190.fvalue(pv, "(typeof (", v1079, ") === 'object')")); - })(l192.fvalue(pv, v1078)); + return (function(v1085){ + return l192.fvalue(values, l191.fvalue(pv, "(typeof (", v1085, ") === 'object')")); + })(l193.fvalue(pv, v1084)); })(); })); - var v1080 = ({car: v1077, cdr: (function(){ - var symbol = l319; + var v1086 = ({car: v1083, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1080); + return ((l320).value = v1086); })(); -var l356 = {name: "OGET"}; +var l357 = {name: "OGET"}; (function(){ - var v1081 = l47.fvalue(pv, l356, (function (values,v1082,v1083){ + var v1087 = l47.fvalue(pv, l357, (function (values,v1088,v1089){ checkArgs(arguments, 3); return (function(){ - return (function(v1084,v1085){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1090,v1091){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var tmp = ", "(", v1084, ")[", v1085, "];", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var tmp = ", "(", v1090, ")[", v1091, "];", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp == undefined? ", l192.fvalue(pv, l5.value), ": tmp ;", (function(){ - var symbol = l155; + })(), "return tmp == undefined? ", l193.fvalue(pv, l5.value), ": tmp ;", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v1082),l192.fvalue(pv, v1083)); + })(l193.fvalue(pv, v1088),l193.fvalue(pv, v1089)); })(); })); - var v1086 = ({car: v1081, cdr: (function(){ - var symbol = l319; + var v1092 = ({car: v1087, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1086); + return ((l320).value = v1092); })(); -var l357 = {name: "OSET"}; +var l358 = {name: "OSET"}; (function(){ - var v1087 = l47.fvalue(pv, l357, (function (values,v1088,v1089,v1090){ + var v1093 = l47.fvalue(pv, l358, (function (values,v1094,v1095,v1096){ checkArgs(arguments, 4); return (function(){ - return (function(v1091,v1092,v1093){ - return l190.fvalue(values, "((", v1091, ")[", v1092, "] = ", v1093, ")"); - })(l192.fvalue(pv, v1088),l192.fvalue(pv, v1089),l192.fvalue(pv, v1090)); + return (function(v1097,v1098,v1099){ + return l191.fvalue(values, "((", v1097, ")[", v1098, "] = ", v1099, ")"); + })(l193.fvalue(pv, v1094),l193.fvalue(pv, v1095),l193.fvalue(pv, v1096)); })(); })); - var v1094 = ({car: v1087, cdr: (function(){ - var symbol = l319; + var v1100 = ({car: v1093, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1094); + return ((l320).value = v1100); })(); -var l358 = {name: "IN"}; +var l359 = {name: "IN"}; (function(){ - var v1095 = l47.fvalue(pv, l358, (function (values,v1096,v1097){ + var v1101 = l47.fvalue(pv, l359, (function (values,v1102,v1103){ checkArgs(arguments, 3); return (function(){ - return (function(v1098,v1099){ - return l191.fvalue(values, l190.fvalue(pv, "((", v1098, ") in (", v1099, "))")); - })(l192.fvalue(pv, v1096),l192.fvalue(pv, v1097)); + return (function(v1104,v1105){ + return l192.fvalue(values, l191.fvalue(pv, "((", v1104, ") in (", v1105, "))")); + })(l193.fvalue(pv, v1102),l193.fvalue(pv, v1103)); })(); })); - var v1100 = ({car: v1095, cdr: (function(){ - var symbol = l319; + var v1106 = ({car: v1101, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1100); + return ((l320).value = v1106); })(); -var l359 = {name: "FUNCTIONP"}; +var l360 = {name: "FUNCTIONP"}; (function(){ - var v1101 = l47.fvalue(pv, l359, (function (values,v1102){ + var v1107 = l47.fvalue(pv, l360, (function (values,v1108){ checkArgs(arguments, 2); return (function(){ - return (function(v1103){ - return l191.fvalue(values, l190.fvalue(pv, "(typeof ", v1103, " == 'function')")); - })(l192.fvalue(pv, v1102)); + return (function(v1109){ + return l192.fvalue(values, l191.fvalue(pv, "(typeof ", v1109, " == 'function')")); + })(l193.fvalue(pv, v1108)); })(); })); - var v1104 = ({car: v1101, cdr: (function(){ - var symbol = l319; + var v1110 = ({car: v1107, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1104); + return ((l320).value = v1110); })(); -var l360 = {name: "WRITE-STRING"}; +var l361 = {name: "WRITE-STRING"}; (function(){ - var v1105 = l47.fvalue(pv, l360, (function (values,v1106){ + var v1111 = l47.fvalue(pv, l361, (function (values,v1112){ checkArgs(arguments, 2); return (function(){ - return (function(v1107){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1113){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v1107, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, l191.fvalue(pv, "var ", "x", " = ", v1113, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l155; + })()), l191.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l190.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ - var symbol = l155; + })())), l191.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l192.fvalue(pv, v1106)); + })(l193.fvalue(pv, v1112)); })(); })); - var v1108 = ({car: v1105, cdr: (function(){ - var symbol = l319; + var v1114 = ({car: v1111, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1108); + return ((l320).value = v1114); })(); -var l361 = {name: "MAKE-ARRAY"}; +var l362 = {name: "MAKE-ARRAY"}; (function(){ - var v1109 = l47.fvalue(pv, l361, (function (values,v1110){ + var v1115 = l47.fvalue(pv, l362, (function (values,v1116){ checkArgs(arguments, 2); return (function(){ - return (function(v1111){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1117){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var r = [];", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var r = [];", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "for (var i = 0; i < ", v1111, "; i++)", (function(){ - var symbol = l155; + })(), "for (var i = 0; i < ", v1117, "; i++)", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "r.push(", l192.fvalue(pv, l5.value), ");", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "r.push(", l193.fvalue(pv, l5.value), ");", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "return r;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v1110)); + })(l193.fvalue(pv, v1116)); })(); })); - var v1112 = ({car: v1109, cdr: (function(){ - var symbol = l319; + var v1118 = ({car: v1115, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1112); + return ((l320).value = v1118); })(); -var l362 = {name: "ARRAYP"}; +var l363 = {name: "ARRAYP"}; (function(){ - var v1113 = l47.fvalue(pv, l362, (function (values,v1114){ + var v1119 = l47.fvalue(pv, l363, (function (values,v1120){ checkArgs(arguments, 2); return (function(){ - return (function(v1115){ - return l191.fvalue(values, l190.fvalue(pv, "(function(){", (function(){ - var symbol = l155; + return (function(v1121){ + return l192.fvalue(values, l191.fvalue(pv, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var x = ", v1115, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var x = ", v1121, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return typeof x === 'object' && 'length' in x;"), "})()")); - })(l192.fvalue(pv, v1114)); + })(l193.fvalue(pv, v1120)); })(); })); - var v1116 = ({car: v1113, cdr: (function(){ - var symbol = l319; + var v1122 = ({car: v1119, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1116); + return ((l320).value = v1122); })(); -var l363 = {name: "AREF"}; +var l364 = {name: "AREF"}; (function(){ - var v1117 = l47.fvalue(pv, l363, (function (values,v1118,v1119){ + var v1123 = l47.fvalue(pv, l364, (function (values,v1124,v1125){ checkArgs(arguments, 3); return (function(){ - return (function(v1120,v1121){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1126,v1127){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var x = ", "(", v1120, ")[", v1121, "];", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var x = ", "(", v1126, ")[", v1127, "];", (function(){ + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return x;", (function(){ - var symbol = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v1118),l192.fvalue(pv, v1119)); + })(l193.fvalue(pv, v1124),l193.fvalue(pv, v1125)); })(); })); - var v1122 = ({car: v1117, cdr: (function(){ - var symbol = l319; + var v1128 = ({car: v1123, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1122); + return ((l320).value = v1128); })(); -var l364 = {name: "ASET"}; +var l365 = {name: "ASET"}; (function(){ - var v1123 = l47.fvalue(pv, l364, (function (values,v1124,v1125,v1126){ + var v1129 = l47.fvalue(pv, l365, (function (values,v1130,v1131,v1132){ checkArgs(arguments, 4); return (function(){ - return (function(v1127,v1128,v1129){ - return l190.fvalue(values, "(function(){", (function(){ - var symbol = l155; + return (function(v1133,v1134,v1135){ + return l191.fvalue(values, "(function(){", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l194.fvalue(pv, "var x = ", v1127, ";", (function(){ - var symbol = l155; + })(), l195.fvalue(pv, "var x = ", v1133, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var i = ", v1128, ";", (function(){ - var symbol = l155; + })(), "var i = ", v1134, ";", (function(){ + var symbol = l156; 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 = l155; + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return x[i] = ", v1129, ";", (function(){ - var symbol = l155; + })(), "return x[i] = ", v1135, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l192.fvalue(pv, v1124),l192.fvalue(pv, v1125),l192.fvalue(pv, v1126)); + })(l193.fvalue(pv, v1130),l193.fvalue(pv, v1131),l193.fvalue(pv, v1132)); })(); })); - var v1130 = ({car: v1123, cdr: (function(){ - var symbol = l319; + var v1136 = ({car: v1129, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1130); + return ((l320).value = v1136); })(); -var l365 = {name: "GET-UNIX-TIME"}; +var l366 = {name: "GET-UNIX-TIME"}; (function(){ - var v1131 = l47.fvalue(pv, l365, (function (values){ + var v1137 = l47.fvalue(pv, l366, (function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ - return l190.fvalue(values, "(Math.round(new Date() / 1000))"); + return l191.fvalue(values, "(Math.round(new Date() / 1000))"); })(); })(); })); - var v1132 = ({car: v1131, cdr: (function(){ - var symbol = l319; + var v1138 = ({car: v1137, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1132); + return ((l320).value = v1138); })(); -var l366 = {name: "VALUES-ARRAY"}; +var l367 = {name: "VALUES-ARRAY"}; (function(){ - var v1133 = l47.fvalue(pv, l366, (function (values,v1134){ + var v1139 = l47.fvalue(pv, l367, (function (values,v1140){ checkArgs(arguments, 2); return (function(){ - return (function(v1135){ + return (function(v1141){ return ((function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l190.fvalue(values, "values.apply(this, ", v1135, ")") : l190.fvalue(values, "pv.apply(this, ", v1135, ")")); - })(l192.fvalue(pv, v1134)); + })() !== l5.value ? l191.fvalue(values, "values.apply(this, ", v1141, ")") : l191.fvalue(values, "pv.apply(this, ", v1141, ")")); + })(l193.fvalue(pv, v1140)); })(); })); - var v1136 = ({car: v1133, cdr: (function(){ - var symbol = l319; + var v1142 = ({car: v1139, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1136); + return ((l320).value = v1142); })(); (function(){ - var v1137 = l47.fvalue(pv, l164, (function (values){ - var v1138= l5.value; + var v1143 = l47.fvalue(pv, l165, (function (values){ + var v1144= l5.value; for (var i = arguments.length-1; i>=1; i--) - v1138 = {car: arguments[i], cdr: - v1138}; + v1144 = {car: arguments[i], cdr: + v1144}; return (function(){ return ((function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l190.fvalue(values, "values(", l158.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l192; + })() !== l5.value ? l191.fvalue(values, "values(", l159.fvalue(pv, l81.fvalue(pv, (function(){ + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1138), ", "), ")") : l190.fvalue(values, "pv(", l158.fvalue(pv, l81.fvalue(pv, (function(){ - var symbol = l192; + })(), v1144), ", "), ")") : l191.fvalue(values, "pv(", l159.fvalue(pv, l81.fvalue(pv, (function(){ + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1138), ", "), ")")); + })(), v1144), ", "), ")")); })(); })); - var v1139 = ({car: v1137, cdr: (function(){ - var symbol = l319; + var v1145 = ({car: v1143, cdr: (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()}); - return ((l319).value = v1139); + return ((l320).value = v1145); })(); (function(){ - (l221).fvalue = (function(v1142){ - ((v1142)["fname"] = "MACRO"); - return v1142; - })((function (values,v1140){ + (l222).fvalue = (function(v1148){ + ((v1148)["fname"] = "MACRO"); + return v1148; + })((function (values,v1146){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v1140; + var tmp = v1146; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v1141){ - return (((l198.fvalue(pv, v1141) === l221)?l4.value: l5.value) !== l5.value ? v1141 : l5.value); - })(l210.fvalue(pv, v1140, (function(){ - var symbol = l211; + })()?l4.value: l5.value) !== l5.value ? (function(v1147){ + return (((l199.fvalue(pv, v1147) === l222)?l4.value: l5.value) !== l5.value ? v1147 : l5.value); + })(l211.fvalue(pv, v1146, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l112)) : l5.value); + })(), l113)) : l5.value); })(); })); - return l221; + return l222; })(); (function(){ - (l119).fvalue = (function(v1147){ - ((v1147)["fname"] = "LS-MACROEXPAND-1"); - return v1147; - })((function (values,v1143){ + (l120).fvalue = (function(v1153){ + ((v1153)["fname"] = "LS-MACROEXPAND-1"); + return v1153; + })((function (values,v1149){ checkArgs(arguments, 2); return (function(){ - return (function(v1144){ - return (v1144 !== l5.value ? (function(v1145){ - (l62.fvalue(pv, v1145) !== l5.value ? (function(v1146){ - l201.fvalue(pv, v1144, v1146); - return (v1145 = v1146); - })(l271.fvalue(pv, v1145)) : l5.value); + return (function(v1150){ + return (v1150 !== l5.value ? (function(v1151){ + (l62.fvalue(pv, v1151) !== l5.value ? (function(v1152){ + l202.fvalue(pv, v1150, v1152); + return (v1151 = v1152); + })(l272.fvalue(pv, v1151)) : l5.value); return (function(){ - var f = v1145; + var f = v1151; var args = [values]; var tail = ((function(){ - var tmp = v1143; + var tmp = v1149; return tmp === l5.value? l5.value: tmp.cdr; })()); while (tail != l5.value){ @@ -9843,261 +9848,261 @@ var l366 = {name: "VALUES-ARRAY"}; } return (typeof f === 'function'? f : f.fvalue).apply(this, args); })(); - })(l199.fvalue(pv, v1144)) : v1143); - })(l221.fvalue(pv, (function(){ - var tmp = v1143; + })(l200.fvalue(pv, v1150)) : v1149); + })(l222.fvalue(pv, (function(){ + var tmp = v1149; return tmp === l5.value? l5.value: tmp.car; })())); })(); })); - return l119; + return l120; })(); -var l367 = {name: "COMPILE-FUNCALL"}; -var l368 = {name: "G764"}; +var l368 = {name: "COMPILE-FUNCALL"}; +var l369 = {name: "G764"}; (function(){ - (l367).fvalue = (function(v1152){ - ((v1152)["fname"] = "COMPILE-FUNCALL"); - return v1152; - })((function (values,v1148,v1149){ + (l368).fvalue = (function(v1158){ + ((v1158)["fname"] = "COMPILE-FUNCALL"); + return v1158; + })((function (values,v1154,v1155){ checkArgs(arguments, 3); return (function(){ return (function(){ - var v1150 = ((function(){ - var symbol = l195; + var v1156 = ((function(){ + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? "values" : "pv"); - var v1151 = l156.fvalue(pv, "(", l158.fvalue(pv, ({car: v1150, cdr: l81.fvalue(pv, (function(){ - var symbol = l192; + var v1157 = l157.fvalue(pv, "(", l159.fvalue(pv, ({car: v1156, cdr: l81.fvalue(pv, (function(){ + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1149)}), ", "), ")"); - return (l266.fvalue(pv, v1148) !== l5.value ? l156.fvalue(values, l266.fvalue(pv, v1148), v1151) : ((((function(){ - var tmp = v1148; + })(), v1155)}), ", "), ")"); + return (l267.fvalue(pv, v1154) !== l5.value ? l157.fvalue(values, l267.fvalue(pv, v1154), v1157) : ((((function(){ + var tmp = v1154; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((l144.fvalue(pv, v1148) === l135.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ - var symbol = l368; + })()?l4.value: l5.value) !== l5.value ? (((l145.fvalue(pv, v1154) === l136.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ + var symbol = l369; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() : l5.value) : l5.value) !== l5.value ? l190.fvalue(values, l192.fvalue(pv, l47.fvalue(pv, l185, v1148)), ".fvalue", v1151) : l190.fvalue(values, l192.fvalue(pv, l47.fvalue(pv, l112, v1148)), v1151))); + })() : l5.value) : l5.value) !== l5.value ? l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l186, v1154)), ".fvalue", v1157) : l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l113, v1154)), v1157))); })(); })(); })); - return l367; + return l368; })(); (function(){ - (l253).fvalue = (function(v1155){ - ((v1155)["fname"] = "LS-COMPILE-BLOCK"); - return v1155; - })((function (values,v1153,v1154){ + (l254).fvalue = (function(v1161){ + ((v1161)["fname"] = "LS-COMPILE-BLOCK"); + return v1161; + })((function (values,v1159,v1160){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v1154; + var v1160; switch(arguments.length-1){ case 1: - v1154=l5.value; + v1160=l5.value; default: break; } return (function(){ - return (v1154 !== l5.value ? l190.fvalue(values, l253.fvalue(pv, l95.fvalue(pv, v1153)), "return ", l192.fvalue(pv, (function(){ - var tmp = l94.fvalue(pv, v1153); + return (v1160 !== l5.value ? l191.fvalue(values, l254.fvalue(pv, l95.fvalue(pv, v1159)), "return ", l193.fvalue(pv, (function(){ + var tmp = l94.fvalue(pv, v1159); return tmp === l5.value? l5.value: tmp.car; })(), (function(){ - var symbol = l195; + var symbol = l196; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), ";") : l159.fvalue(values, l98.fvalue(pv, (function(){ - var symbol = l218; + })()), ";") : l160.fvalue(values, l98.fvalue(pv, (function(){ + var symbol = l219; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })(), l81.fvalue(pv, (function(){ - var symbol = l192; + var symbol = l193; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1153)), l156.fvalue(pv, ";", (function(){ - var symbol = l155; + })(), v1159)), l157.fvalue(pv, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()))); })(); })); - return l253; + return l254; })(); (function(){ - (l192).fvalue = (function(v1165){ - ((v1165)["fname"] = "LS-COMPILE"); - return v1165; - })((function (values,v1156,v1157){ + (l193).fvalue = (function(v1171){ + ((v1171)["fname"] = "LS-COMPILE"); + return v1171; + })((function (values,v1162,v1163){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v1157; + var v1163; switch(arguments.length-1){ case 1: - v1157=l5.value; + v1163=l5.value; default: break; } return (function(){ - return (function(v1158){ + return (function(v1164){ try { var tmp; - tmp = l195.value; - l195.value = v1158; - v1158 = tmp; + tmp = l196.value; + l196.value = v1164; + v1164 = tmp; return (((function(){ - var tmp = v1156; + var tmp = v1162; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v1159){ - return ((v1159 !== l5.value ? l29.fvalue(pv, l96.fvalue(pv, l225, l200.fvalue(pv, v1159))) : l5.value) !== l5.value ? l199.fvalue(values, v1159) : ((function(v1160){ - return (v1160 !== l5.value ? v1160 : l96.fvalue(pv, l227, l200.fvalue(pv, v1159))); - })(l143.fvalue(pv, v1156)) !== l5.value ? l190.fvalue(values, l192.fvalue(pv, l47.fvalue(pv, l185, v1156)), ".value") : l192.fvalue(values, l47.fvalue(pv, l339, l47.fvalue(pv, l185, v1156))))); - })(l210.fvalue(pv, v1156, (function(){ - var symbol = l211; + })()?l4.value: l5.value) !== l5.value ? (function(v1165){ + return ((v1165 !== l5.value ? l29.fvalue(pv, l96.fvalue(pv, l226, l201.fvalue(pv, v1165))) : l5.value) !== l5.value ? l200.fvalue(values, v1165) : ((function(v1166){ + return (v1166 !== l5.value ? v1166 : l96.fvalue(pv, l228, l201.fvalue(pv, v1165))); + })(l144.fvalue(pv, v1162)) !== l5.value ? l191.fvalue(values, l193.fvalue(pv, l47.fvalue(pv, l186, v1162)), ".value") : l193.fvalue(values, l47.fvalue(pv, l340, l47.fvalue(pv, l186, v1162))))); + })(l211.fvalue(pv, v1162, (function(){ + var symbol = l212; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l113)) : (l89.fvalue(pv, v1156) !== l5.value ? l19.fvalue(values, v1156) : (((typeof(v1156) == "string")?l4.value: l5.value) !== l5.value ? l190.fvalue(values, "\"", l166.fvalue(pv, v1156), "\"") : (((function(){ - var x = v1156; + })(), l114)) : (l89.fvalue(pv, v1162) !== l5.value ? l19.fvalue(values, v1162) : (((typeof(v1162) == "string")?l4.value: l5.value) !== l5.value ? l191.fvalue(values, "\"", l167.fvalue(pv, v1162), "\"") : (((function(){ + var x = v1162; return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l261.fvalue(values, v1156) : (l62.fvalue(pv, v1156) !== l5.value ? (function(v1161,v1162){ - return (l105.fvalue(pv, v1161, (function(){ - var symbol = l229; + })()?l4.value: l5.value) !== l5.value ? l262.fvalue(values, v1162) : (l62.fvalue(pv, v1162) !== l5.value ? (function(v1167,v1168){ + return (l106.fvalue(pv, v1167, (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l5.value ? (function(v1163){ + })()) !== l5.value ? (function(v1169){ return (function(){ - var f = v1163; + var f = v1169; var args = [values]; - var tail = (v1162); + var tail = (v1168); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; } return (typeof f === 'function'? f : f.fvalue).apply(this, args); })(); - })(l43.fvalue(pv, l105.fvalue(pv, v1161, (function(){ - var symbol = l229; + })(l43.fvalue(pv, l106.fvalue(pv, v1167, (function(){ + var symbol = l230; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : ((l105.fvalue(pv, v1161, (function(){ - var symbol = l319; + })()))) : ((l106.fvalue(pv, v1167, (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l5.value ? l29.fvalue(pv, l223.fvalue(pv, v1161, l112, l226)) : l5.value) !== l5.value ? (function(v1164){ + })()) !== l5.value ? l29.fvalue(pv, l224.fvalue(pv, v1167, l113, l227)) : l5.value) !== l5.value ? (function(v1170){ return (function(){ - var f = v1164; + var f = v1170; var args = [values]; - var tail = (v1162); + var tail = (v1168); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; } return (typeof f === 'function'? f : f.fvalue).apply(this, args); })(); - })(l43.fvalue(pv, l105.fvalue(pv, v1161, (function(){ - var symbol = l319; + })(l43.fvalue(pv, l106.fvalue(pv, v1167, (function(){ + var symbol = l320; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : (l221.fvalue(pv, v1161) !== l5.value ? l192.fvalue(values, l119.fvalue(pv, v1156), v1157) : l367.fvalue(values, v1161, v1162)))); + })()))) : (l222.fvalue(pv, v1167) !== l5.value ? l193.fvalue(values, l120.fvalue(pv, v1162), v1163) : l368.fvalue(values, v1167, v1168)))); })((function(){ - var tmp = v1156; + var tmp = v1162; return tmp === l5.value? l5.value: tmp.car; })(),(function(){ - var tmp = v1156; + var tmp = v1162; return tmp === l5.value? l5.value: tmp.cdr; })()) : (function(){ - throw l156.fvalue(pv, "How should I compile ", l165.fvalue(pv, v1156), "?"); + throw l157.fvalue(pv, "How should I compile ", l166.fvalue(pv, v1162), "?"); })()))))); } finally { - l195.value = v1158; + l196.value = v1164; } - })(v1157); + })(v1163); })(); })); - return l192; + return l193; })(); -var l369 = {name: "LS-COMPILE-TOPLEVEL"}; +var l370 = {name: "LS-COMPILE-TOPLEVEL"}; (function(){ - (l369).fvalue = (function(v1172){ - ((v1172)["fname"] = "LS-COMPILE-TOPLEVEL"); - return v1172; - })((function (values,v1166,v1167){ + (l370).fvalue = (function(v1178){ + ((v1178)["fname"] = "LS-COMPILE-TOPLEVEL"); + return v1178; + })((function (values,v1172,v1173){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v1167; + var v1173; switch(arguments.length-1){ case 1: - v1167=l5.value; + v1173=l5.value; default: break; } return (function(){ - return (function(v1168){ + return (function(v1174){ try { var tmp; - tmp = l216.value; - l216.value = v1168; - v1168 = tmp; + tmp = l217.value; + l217.value = v1174; + v1174 = tmp; return ((((function(){ - var tmp = v1166; + var tmp = v1172; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v1166; + var tmp = v1172; return tmp === l5.value? l5.value: tmp.car; - })() === l122)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v1170){ - return l158.fvalue(values, l98.fvalue(pv, (function(){ - var symbol = l218; + })() === l123)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v1176){ + return l159.fvalue(values, l98.fvalue(pv, (function(){ + var symbol = l219; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v1170)); - })(l81.fvalue(pv, (function (values,v1169){ + })(), v1176)); + })(l81.fvalue(pv, (function (values,v1175){ checkArgs(arguments, 2); - return l369.fvalue(values, v1169, l4.value); + return l370.fvalue(values, v1175, l4.value); }), (function(){ - var tmp = v1166; + var tmp = v1172; return tmp === l5.value? l5.value: tmp.cdr; - })())) : (function(v1171){ - return l190.fvalue(values, l159.fvalue(pv, l219.fvalue(pv), l190.fvalue(pv, ";", (function(){ - var symbol = l155; + })())) : (function(v1177){ + return l191.fvalue(values, l160.fvalue(pv, l220.fvalue(pv), l191.fvalue(pv, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), (v1171 !== l5.value ? l190.fvalue(pv, v1171, ";", (function(){ - var symbol = l155; + })())), (v1177 !== l5.value ? l191.fvalue(pv, v1177, ";", (function(){ + var symbol = l156; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : l5.value)); - })(l192.fvalue(pv, v1166, v1167))); + })(l193.fvalue(pv, v1172, v1173))); } finally { - l216.value = v1168; + l217.value = v1174; } })(l5.value); })(); })); - return l369; + return l370; })(); (function(){ - (l271).fvalue = (function(v1174){ - ((v1174)["fname"] = "EVAL"); - return v1174; - })((function (values,v1173){ + (l272).fvalue = (function(v1180){ + ((v1180)["fname"] = "EVAL"); + return v1180; + })((function (values,v1179){ checkArgs(arguments, 2); return (function(){ return (function(){ - var string = l369.fvalue(pv, v1173, l4.value); + var string = l370.fvalue(pv, v1179, l4.value); if (typeof string != 'string') throw 'The value ' + string + ' is not a type string.'; return (function(){ @@ -10111,13 +10116,13 @@ var l369 = {name: "LS-COMPILE-TOPLEVEL"}; })(); })(); })); - return l271; + return l272; })(); -var l370 = {name: "&BODY"}; -var l371 = QIList(l234,l235,l233,l370,l22,l17,l145,l65,l66,l23,l24,l25,l330,l332,l21,l21,l329,l331,l57,l68,l351,l363,l362,l105,l48,l207,l20,l20,l95,l34,l41,l39,l35,l32,l32,l55,l283,l36,l40,l37,l33,l33,l349,l87,l108,l135,l148,l42,l267,l45,l338,l350,l112,l359,l18,l117,l154,l291,l82,l231,l146,l49,l89,l89,l152,l143,l268,l6,l94,l75,l275,l278,l88,l86,l54,l30,l31,l83,l84,l50,l2,l120,l3,l10,l12,l1,l9,l101,l100,l109,l72,l73,l111,l52,l53,l56,l342,l28,l343,l353,l271,l104,l153,l130,l47,l85,l62,l80,l361,l131,l336,l81,l96,l91,l326,l114,l293,l115,l294,l126,l5,l29,l93,l92,l13,l333,l58,l136,l138,l134,l183,l90,l165,l168,l228,l59,l60,l122,l71,l51,l185,l127,l97,l98,l99,l15,l282,l69,l70,l123,l124,l43,l255,l121,l118,l103,l346,l106,l107,l345,l102,l263,l337,l144,l340,l339,l335,l4,l289,l44,l284,l27,l8,l292,l164,l163,l113,l167,l7,l110,l360,l26,l5); -l153.fvalue(values, l371); -((l145).value = (function(){ - var symbol = l141; +var l371 = {name: "&BODY"}; +var l372 = QIList(l235,l236,l234,l371,l22,l17,l146,l65,l66,l23,l24,l25,l331,l333,l21,l21,l330,l332,l57,l68,l352,l364,l363,l106,l48,l208,l20,l20,l95,l34,l41,l39,l35,l32,l32,l55,l284,l36,l40,l37,l33,l33,l350,l87,l109,l136,l149,l42,l268,l45,l339,l351,l113,l360,l18,l118,l155,l292,l82,l232,l147,l49,l89,l89,l153,l144,l269,l6,l94,l75,l276,l279,l88,l86,l54,l30,l31,l83,l84,l50,l2,l121,l3,l10,l12,l1,l9,l101,l100,l110,l72,l73,l112,l52,l53,l56,l343,l28,l344,l354,l272,l105,l154,l131,l47,l85,l62,l80,l362,l132,l337,l81,l96,l91,l327,l115,l294,l116,l295,l127,l5,l29,l93,l92,l13,l334,l58,l137,l139,l135,l184,l90,l166,l169,l229,l59,l60,l123,l71,l51,l186,l128,l97,l98,l99,l15,l283,l69,l70,l124,l125,l43,l256,l122,l119,l104,l347,l107,l108,l346,l102,l264,l338,l145,l341,l340,l336,l4,l290,l44,l285,l27,l8,l293,l165,l164,l114,l168,l7,l111,l361,l26,l5); +l154.fvalue(values, l372); +((l146).value = (function(){ + var symbol = l142; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -10137,512 +10142,519 @@ l153.fvalue(values, l371); })(); (lisp = {}); (lisp.read = (function(){ - var symbol = l189; + var symbol = l190; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); (lisp.print = (function(){ - var symbol = l165; + var symbol = l166; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); (lisp.eval = (function(){ - var symbol = l271; + var symbol = l272; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); -(lisp.compile = (function (values,v1175){ +(lisp.compile = (function (values,v1181){ checkArgs(arguments, 2); - return l369.fvalue(values, v1175, l4.value); + return l370.fvalue(values, v1181, l4.value); })); -(lisp.evalString = (function (values,v1176){ +(lisp.evalString = (function (values,v1182){ checkArgs(arguments, 2); - return l271.fvalue(values, l189.fvalue(pv, v1176)); + return l272.fvalue(values, l190.fvalue(pv, v1182)); })); -(lisp.compileString = (function (values,v1177){ +(lisp.compileString = (function (values,v1183){ checkArgs(arguments, 2); - return l369.fvalue(values, l189.fvalue(pv, v1177), l4.value); + return l370.fvalue(values, l190.fvalue(pv, v1183), l4.value); })); -var l372 = {name: "OP"}; -var l373 = {name: "SYM"}; -var l374 = {name: "X"}; -var l375 = {name: "ARGS"}; -var l376 = {name: "BODY"}; -var l377 = {name: "DECLS"}; -var l378 = {name: "DECL"}; -var l379 = {name: "NAME"}; -var l380 = {name: "ARG"}; -var l381 = {name: "FORM"}; -var l382 = {name: "PACKAGE-DESIGNATOR"}; -var l383 = {name: "CLAUSULES"}; -var l384 = {name: "VALUE"}; -var l385 = {name: "C"}; -var l386 = {name: "INTEGER"}; -var l387 = {name: "PLACE"}; -var l388 = {name: "DUMMIES"}; -var l389 = {name: "VALS"}; -var l390 = {name: "NEWVAL"}; -var l391 = {name: "SETTER"}; -var l392 = {name: "GETTER"}; -var l393 = {name: "G"}; -var l394 = {name: "PAIRS"}; -var l395 = {name: "VARS"}; -var l396 = {name: "STORE-VARS"}; -var l397 = {name: "WRITER-FORM"}; -var l398 = {name: "READER-FORM"}; -var l399 = {name: "RESULT"}; -var l400 = {name: "ACCESS-FN"}; -var l401 = {name: "LAMBDA-LIST"}; -var l402 = {name: "VALUE-FROM"}; -var l403 = {name: "VARIABLES"}; -var l404 = {name: "HEAD"}; -var l405 = {name: "TAIL"}; -var l406 = {name: "COLLECT"}; -var l407 = {name: "VARLIST"}; -var l408 = {name: "ENDLIST"}; -var l409 = {name: "V"}; -var l410 = {name: "ASSIGNMENTS"}; -var l411 = {name: "FORM1"}; -var l412 = {name: "FORMS"}; -var l413 = {name: "!FORM"}; -var l414 = {name: "CLAUSULE"}; -var l415 = {name: "ITER"}; -var l416 = {name: "G!TO"}; -var l417 = {name: "VAR"}; -var l418 = {name: "TO"}; -var l419 = {name: "G!LIST"}; -var l420 = {name: "DELTA"}; -var l421 = {name: "CONDITION"}; -var l422 = {name: "DOCSTRING"}; -var l423 = QIList(QIList(QIList(l319,l113,l5,QIList(l225,l5),l5),QIList(l303,l113,l5,QIList(l225,l5),l5),QIList(l302,l113,l5,QIList(l225,l5),l5),QIList(l301,l113,l5,QIList(l225,l5),l5),QIList(l300,l113,l5,QIList(l225,l5),l5),QIList(l299,l113,l5,QIList(l225,l5),l5),QIList(l298,l113,l5,QIList(l225,l5),l5),QIList(l297,l113,l5,QIList(l225,l5),l5),QIList(l296,l113,l5,QIList(l225,l5),l5),QIList(l295,l113,l5,QIList(l225,l5),l5),QIList(l286,l113,l5,QIList(l225,l5),l5),QIList(l285,l113,l5,QIList(l225,l5),l5),QIList(l279,l113,l5,QIList(l225,l5),l5),QIList(l269,l113,l5,QIList(l225,l5),l5),QIList(l259,l113,l5,QIList(l225,l5),l5),QIList(l258,l113,l5,QIList(l225,l5),l5),QIList(l232,l113,l5,QIList(l225,l5),l5),QIList(l229,l113,l5,QIList(l225,l5),l5),QIList(l216,l113,l5,QIList(l225,l5),l5),QIList(l212,l113,l5,QIList(l225,l5),l5),QIList(l211,l113,l5,QIList(l225,l5),l5),QIList(l195,l113,l5,QIList(l225,l5),l5),QIList(l184,l113,l5,QIList(l225,l5),l5),QIList(l155,l113,l5,QIList(l225,l5),l5),QIList(l145,l113,l5,QIList(l225,l5),l5),QIList(l142,l113,l5,QIList(l225,l5),l5),QIList(l141,l113,l5,QIList(l225,l5),l5),QIList(l140,l113,l5,QIList(l225,l5),l5),QIList(l129,l113,l5,QIList(l225,l5),l5),QIList(l116,l113,l5,QIList(l225,l5),l5),QIList(l17,l113,l5,QIList(l225,l5),l5),QIList(l5,l113,l5,QIList(l227,l225,l5),l5),QIList(l4,l113,l5,QIList(l227,l225,l5),l5),l5),QIList(QIList(l328,l221,QIList(l112,QIList(l6,QIList(l372,l373,l5),QIList(l186,QIList(l320,QIList(l188,l372,l5),QIList(l374,l234,l375,l5),QIList(l275,QIList(QIList(l375,QIList(l30,l374,l375,l5),l5),l5),QIList(l324,l375,QIList(l191,QIList(l327,l375,QIList(l188,l373,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l324,l221,QIList(l112,QIList(l6,QIList(l375,l234,l376,l5),QIList(l8,QIList(l335,l375,l5),QIList(l353,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l186,QIList(l323,QIList(l188,l375,l5),QIList(l6,QIList(QIList(l188,l375,l5),l5),QIList(l190,"return ",QIList(l187,l376,l5),";",l155,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l322,l221,QIList(l112,QIList(l6,QIList(l377,l234,l376,l5),QIList(l186,QIList(l193,QIList(l187,QIList(l81,QIList(l6,QIList(l378,l5),QIList(l186,QIList(l190,"var ",QIList(l188,QIList(l42,l378,l5),l5)," = ",QIList(l188,QIList(l44,l378,l5),l5),";",l155,l5),l5),l5),l377,l5),l5),QIList(l187,QIList(l81,QIList(l6,QIList(l378,l5),QIList(l186,QIList(l190,"if (typeof ",QIList(l188,QIList(l42,l378,l5),l5)," != '",QIList(l188,QIList(l43,l378,l5),l5),"')",l155,QIList(l194,"throw 'The value ' + ",QIList(l188,QIList(l42,l378,l5),l5)," + ' is not a type ",QIList(l188,QIList(l43,l378,l5),l5),".';",l155,l5),l5),l5),l5),l377,l5),l5),QIList(l190,"return ",QIList(l122,QIList(l187,l376,l5),l5),";",l155,l5),l5),l5),l5),l5),l5,l5),QIList(l321,l221,QIList(l112,QIList(l6,QIList(l379,l375,l234,l376,l5),QIList(l186,QIList(l320,QIList(l188,l379,l5),QIList(l188,l375,l5),QIList(l275,QIList(l188,QIList(l81,QIList(l6,QIList(l380,l5),QIList(l186,QIList(QIList(l188,l380,l5),QIList(l192,QIList(l188,l380,l5),l5),l5),l5),l5),l375,l5),l5),QIList(l187,l376,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l320,l221,QIList(l112,QIList(l6,QIList(l379,l375,l234,l376,l5),QIList(l186,QIList(l51,QIList(l47,QIList(l185,QIList(l188,l379,l5),l5),QIList(l6,QIList(l188,l375,l5),QIList(l207,QIList(l188,l379,l5),QIList(l187,l376,l5),l5),l5),l5),l319,l5),l5),l5),l5),l5,l5),QIList(l186,l221,QIList(l112,QIList(l6,QIList(l374,l5),QIList(l305,l374,l5),l5),l5),l5,l5),QIList(l272,l221,QIList(l112,QIList(l6,QIList(l379,l375,l381,l5),QIList(l186,QIList(l230,QIList(l188,l379,l5),QIList(l188,l375,l5),QIList(l192,QIList(l188,l381,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l230,l221,QIList(l112,QIList(l6,QIList(l379,l375,l234,l376,l5),QIList(l186,QIList(l51,QIList(l47,QIList(l185,QIList(l188,l379,l5),l5),QIList(l6,QIList(l188,l375,l5),QIList(l207,QIList(l188,l379,l5),QIList(l187,l376,l5),l5),l5),l5),l229,l5),l5),l5),l5),l5,l5),QIList(l193,l221,QIList(l112,QIList(l6,QIList(l234,l376,l5),QIList(l186,QIList(l190,"(function(){",l155,QIList(l194,QIList(l187,l376,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l157,l221,QIList(l112,QIList(l6,QIList(l113,l234,l381,l5),QIList(l186,QIList(l118,QIList(l188,l113,l5),QIList(l156,QIList(l188,l113,l5),QIList(l122,QIList(l187,l381,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l146,l221,QIList(l112,QIList(l6,QIList(l382,l5),QIList(l186,QIList(l270,QIList(l118,l145,QIList(l133,QIList(l188,l382,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l125,l221,QIList(l112,QIList(l6,QIList(l374,l234,l383,l5),QIList(l275,QIList(QIList(l384,QIList(l18,l5),l5),l5),QIList(l186,QIList(l275,QIList(QIList(QIList(l188,l384,l5),QIList(l188,l374,l5),l5),l5),QIList(l54,QIList(l187,QIList(l81,QIList(l6,QIList(l385,l5),QIList(l231,QIList(l342,QIList(l32,l385,l5),l4,l5),QIList(l186,QIList(QIList(l4,QIList(l187,QIList(l46,l385,l5),l5),l5),l5),l5),QIList(l186,QIList(QIList(QIList(l188,QIList(l56,QIList(l32,l385,l5),QIList(l386,QIList(l185,l89,l5),l5),QIList(l30,QIList(l185,l31,l5),l5),QIList(l106,QIList(l185,l345,l5),l5),QIList(l48,QIList(l185,l48,l5),l5),QIList(l13,QIList(l185,l13,l5),l5),l5),l5),QIList(l188,l384,l5),l5),QIList(l187,QIList(l58,QIList(l46,l385,l5),QIList(l47,l5,l5),l5),l5),l5),l5),l5),l5),l383,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l221,QIList(l112,QIList(l6,QIList(l374,l387,l5),QIList(l114,QIList(l388,l389,l390,l391,l392,l5),QIList(l117,l387,l5),QIList(l275,QIList(QIList(l393,QIList(l18,l5),l5),l5),QIList(l186,QIList(l278,QIList(QIList(QIList(l188,l393,l5),QIList(l188,l374,l5),l5),QIList(l187,QIList(l81,QIList(l112,l47,l5),l388,l389,l5),l5),QIList(QIList(l188,QIList(l32,l390,l5),l5),QIList(l30,QIList(l188,l393,l5),QIList(l188,l392,l5),l5),l5),QIList(l187,QIList(l33,l390,l5),l5),l5),QIList(l188,l391,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l121,l221,QIList(l112,QIList(l6,QIList(l234,l394,l5),QIList(l54,QIList(QIList(l13,l394,l5),l5,l5),QIList(QIList(l13,QIList(l33,l394,l5),l5),QIList(l353,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l37,l394,l5),l5),QIList(l275,QIList(QIList(l387,QIList(l42,l394,l5),l5),QIList(l384,QIList(l43,l394,l5),l5),l5),QIList(l114,QIList(l395,l389,l396,l397,l398,l5),QIList(l117,l387,l5),QIList(l186,QIList(l278,QIList(l188,QIList(l81,QIList(l112,l47,l5),l395,l389,l5),l5),QIList(l114,QIList(l188,l396,l5),QIList(l188,l384,l5),QIList(l188,l397,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l186,QIList(l122,QIList(l187,QIList(l72,QIList(QIList(l394,l394,QIList(l37,l394,l5),l5),QIList(l399,QIList(l185,l5,l5),QIList(l30,QIList(l186,QIList(l121,QIList(l188,QIList(l32,l394,l5),l5),QIList(l188,QIList(l35,l394,l5),l5),l5),l5),l399,l5),l5),l5),QIList(QIList(l13,l394,l5),QIList(l70,l399,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l120,l221,QIList(l112,QIList(l6,QIList(l400,l401,l234,l376,l5),QIList(l8,QIList(l335,l400,l5),QIList(l353,"ACCESS-FN must be a symbol.",l5),l5),QIList(l186,QIList(l122,QIList(l51,QIList(l30,QIList(l185,QIList(l188,l400,l5),l5),QIList(l6,QIList(l188,l401,l5),QIList(l187,l376,l5),l5),l5),l116,l5),QIList(l185,QIList(l188,l400,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l115,l221,QIList(l112,QIList(l6,QIList(l402,l5),QIList(l186,QIList(l293,QIList(l112,l47,l5),QIList(l188,l402,l5),l5),l5),l5),l5),l5,l5),QIList(l114,l221,QIList(l112,QIList(l6,QIList(l403,l402,l234,l376,l5),QIList(l186,QIList(l293,QIList(l6,QIList(l233,QIList(l187,l403,l5),l234,QIList(l188,QIList(l18,l5),l5),l5),QIList(l187,l376,l5),l5),QIList(l188,l402,l5),l5),l5),l5),l5),l5,l5),QIList(l80,l221,QIList(l112,QIList(l6,QIList(l234,l376,l5),QIList(l186,QIList(l16,l4,QIList(l187,l376,l5),l5),l5),l5),l5),l5,l5),QIList(l77,l221,QIList(l112,QIList(l6,QIList(l234,l376,l5),QIList(l275,QIList(QIList(l404,QIList(l18,l5),l5),QIList(l405,QIList(l18,l5),l5),l5),QIList(l186,QIList(l278,QIList(QIList(QIList(l188,l404,l5),QIList(l30,QIList(l185,l79,l5),l5,l5),l5),QIList(QIList(l188,l405,l5),QIList(l188,l404,l5),l5),l5),QIList(l267,QIList(QIList(l406,QIList(l374,l5),QIList(l124,QIList(l188,l405,l5),QIList(l30,l374,l5,l5),l5),QIList(l118,QIList(l188,l405,l5),QIList(l33,QIList(l188,l405,l5),l5),l5),l374,l5),l5),QIList(l187,l376,l5),l5),QIList(l33,QIList(l188,l404,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l73,l221,QIList(l112,QIList(l6,QIList(l407,l408,l234,l376,l5),QIList(l186,QIList(l207,l5,QIList(l278,QIList(l188,QIList(l81,QIList(l6,QIList(l374,l5),QIList(l47,QIList(l42,l374,l5),QIList(l43,l374,l5),l5),l5),l407,l5),l5),QIList(l16,l4,QIList(l7,QIList(l188,QIList(l32,l408,l5),l5),QIList(l15,QIList(l122,QIList(l187,QIList(l33,l408,l5),l5),l5),l5),l5),QIList(l289,QIList(l187,l376,l5),l5),QIList(l118,QIList(l187,QIList(l351,QIList(l112,l68,l5),QIList(l81,QIList(l6,QIList(l409,l5),QIList(l57,QIList(l31,QIList(l37,l409,l5),l5),QIList(l47,QIList(l42,l409,l5),QIList(l44,l409,l5),l5),l5),l5),l407,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l72,l221,QIList(l112,QIList(l6,QIList(l407,l408,l234,l376,l5),QIList(l186,QIList(l207,l5,QIList(l275,QIList(l188,QIList(l81,QIList(l6,QIList(l374,l5),QIList(l47,QIList(l42,l374,l5),QIList(l43,l374,l5),l5),l5),l407,l5),l5),QIList(l16,l4,QIList(l7,QIList(l188,QIList(l32,l408,l5),l5),QIList(l15,QIList(l122,QIList(l187,QIList(l33,l408,l5),l5),l5),l5),l5),QIList(l289,QIList(l187,l376,l5),l5),QIList(l71,QIList(l187,QIList(l351,QIList(l112,l68,l5),QIList(l81,QIList(l6,QIList(l409,l5),QIList(l57,QIList(l31,QIList(l37,l409,l5),l5),QIList(l47,QIList(l42,l409,l5),QIList(l44,l409,l5),l5),l5),l5),l407,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l221,QIList(l112,QIList(l6,QIList(l234,l394,l5),QIList(l275,QIList(QIList(l410,QIList(l185,l5,l5),l5),l5),QIList(l16,l4,QIList(l54,QIList(QIList(l13,l394,l5),QIList(l15,l5),l5),QIList(QIList(l13,QIList(l33,l394,l5),l5),QIList(l353,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l275,QIList(QIList(l113,QIList(l32,l394,l5),l5),QIList(l384,QIList(l35,l394,l5),l5),l5),QIList(l51,QIList(l186,QIList(QIList(l188,l113,l5),QIList(l188,QIList(l18,l5),l5),QIList(l188,l384,l5),l5),l5),l410,l5),QIList(l118,l394,QIList(l37,l394,l5),l5),l5),l5),l5),l5),QIList(l118,l410,QIList(l70,l410,l5),l5),QIList(l186,QIList(l275,QIList(l188,QIList(l81,QIList(l112,l33,l5),l410,l5),l5),QIList(l118,QIList(l187,QIList(l63,QIList(l112,l68,l5),QIList(l81,QIList(l112,l95,l5),l410,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l60,l221,QIList(l112,QIList(l6,QIList(l411,l399,l234,l376,l5),QIList(l186,QIList(l59,QIList(l122,QIList(l188,l411,l5),QIList(l188,l399,l5),l5),QIList(l187,l376,l5),l5),l5),l5),l5),l5,l5),QIList(l59,l221,QIList(l112,QIList(l6,QIList(l381,l234,l376,l5),QIList(l275,QIList(QIList(l384,QIList(l18,l5),l5),l5),QIList(l186,QIList(l275,QIList(QIList(QIList(l188,l384,l5),QIList(l188,l381,l5),l5),l5),QIList(l187,l376,l5),QIList(l188,l384,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l58,l221,QIList(l112,QIList(l6,QIList(l234,l412,l5),QIList(l54,QIList(QIList(l13,l412,l5),l5,l5),QIList(QIList(l13,QIList(l33,l412,l5),l5),QIList(l32,l412,l5),l5),QIList(l4,QIList(l275,QIList(QIList(l393,QIList(l18,l5),l5),l5),QIList(l186,QIList(l275,QIList(QIList(QIList(l188,l393,l5),QIList(l188,QIList(l32,l412,l5),l5),l5),l5),QIList(l231,QIList(l188,l393,l5),QIList(l188,l393,l5),QIList(l58,QIList(l187,QIList(l33,l412,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l57,l221,QIList(l112,QIList(l6,QIList(l234,l412,l5),QIList(l54,QIList(QIList(l13,l412,l5),l4,l5),QIList(QIList(l13,QIList(l33,l412,l5),l5),QIList(l32,l412,l5),l5),QIList(l4,QIList(l186,QIList(l231,QIList(l188,QIList(l32,l412,l5),l5),QIList(l57,QIList(l187,QIList(l33,l412,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l221,QIList(l112,QIList(l6,QIList(l381,l234,l383,l5),QIList(l186,QIList(l55,QIList(l188,l381,l5),QIList(l187,QIList(l68,l383,QIList(l186,QIList(QIList(l4,QIList(l353,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l221,QIList(l112,QIList(l6,QIList(l381,l234,l383,l5),QIList(l275,QIList(QIList(l413,QIList(l18,l5),l5),l5),QIList(l186,QIList(l275,QIList(QIList(QIList(l188,l413,l5),QIList(l188,l381,l5),l5),l5),QIList(l54,QIList(l187,QIList(l81,QIList(l6,QIList(l414,l5),QIList(l231,QIList(l342,QIList(l32,l414,l5),l4,l5),l414,QIList(l186,QIList(QIList(l28,QIList(l188,l413,l5),QIList(l185,QIList(l188,QIList(l32,l414,l5),l5),l5),l5),QIList(l187,QIList(l33,l414,l5),l5),l5),l5),l5),l5),l383,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l221,QIList(l112,QIList(l6,QIList(l234,l383,l5),QIList(l231,QIList(l13,l383,l5),l5,QIList(l231,QIList(l342,QIList(l34,l383,l5),l4,l5),QIList(l186,QIList(l122,QIList(l187,QIList(l36,l383,l5),l5),l5),l5),QIList(l186,QIList(l231,QIList(l188,QIList(l34,l383,l5),l5),QIList(l122,QIList(l187,QIList(l36,l383,l5),l5),l5),QIList(l54,QIList(l187,QIList(l33,l383,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l221,QIList(l112,QIList(l6,QIList(l415,l234,l376,l5),QIList(l275,QIList(QIList(l416,QIList(l18,l5),l5),QIList(l417,QIList(l42,l415,l5),l5),QIList(l418,QIList(l43,l415,l5),l5),QIList(l399,QIList(l44,l415,l5),l5),l5),QIList(l186,QIList(l207,l5,QIList(l275,QIList(QIList(QIList(l188,l417,l5),0,l5),QIList(QIList(l188,l416,l5),QIList(l188,l418,l5),l5),l5),QIList(l262,QIList(l330,QIList(l188,l417,l5),QIList(l188,l416,l5),l5),QIList(l289,QIList(l187,l376,l5),l5),QIList(l49,QIList(l188,l417,l5),l5),l5),QIList(l188,l399,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l221,QIList(l112,QIList(l6,QIList(l415,l234,l376,l5),QIList(l275,QIList(QIList(l417,QIList(l42,l415,l5),l5),QIList(l419,QIList(l18,l5),l5),l5),QIList(l186,QIList(l207,l5,QIList(l275,QIList(QIList(QIList(l188,l419,l5),QIList(l188,QIList(l43,l415,l5),l5),l5),QIList(QIList(l188,l417,l5),l5,l5),l5),QIList(l262,QIList(l188,l419,l5),QIList(l118,QIList(l188,l417,l5),QIList(l32,QIList(l188,l419,l5),l5),l5),QIList(l289,QIList(l187,l376,l5),l5),QIList(l118,QIList(l188,l419,l5),QIList(l33,QIList(l188,l419,l5),l5),l5),l5),QIList(l188,QIList(l44,l415,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l221,QIList(l112,QIList(l6,QIList(l374,l387,l5),QIList(l186,QIList(l118,QIList(l188,l387,l5),QIList(l30,QIList(l188,l374,l5),QIList(l188,l387,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l221,QIList(l112,QIList(l6,QIList(l374,l233,QIList(l420,1,l5),l5),QIList(l186,QIList(l118,QIList(l188,l374,l5),QIList(l66,QIList(l188,l374,l5),QIList(l188,l420,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l221,QIList(l112,QIList(l6,QIList(l374,l233,QIList(l420,1,l5),l5),QIList(l186,QIList(l118,QIList(l188,l374,l5),QIList(l65,QIList(l188,l374,l5),QIList(l188,l420,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l16,l221,QIList(l112,QIList(l6,QIList(l421,l234,l376,l5),QIList(l186,QIList(l207,l5,QIList(l262,QIList(l188,l421,l5),QIList(l187,l376,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l221,QIList(l112,QIList(l6,QIList(l233,l384,l5),QIList(l186,QIList(l282,l5,QIList(l188,l384,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l221,QIList(l112,QIList(l6,QIList(l379,l375,l234,l376,l5),QIList(l186,QIList(l122,QIList(l338,QIList(l185,QIList(l188,l379,l5),l5),QIList(l11,QIList(l188,QIList(l337,l379,l5),l5),QIList(l188,l375,l5),QIList(l187,QIList(l231,QIList(l57,QIList(l345,QIList(l32,l376,l5),l5),QIList(l29,QIList(l13,QIList(l33,l376,l5),l5),l5),l5),QIList(l186,QIList(QIList(l188,QIList(l32,l376,l5),l5),QIList(l207,QIList(l188,l379,l5),QIList(l187,QIList(l33,l376,l5),l5),l5),l5),l5),QIList(l186,QIList(QIList(l207,QIList(l188,l379,l5),QIList(l187,l376,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l185,QIList(l188,l379,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l221,QIList(l112,QIList(l6,QIList(l379,l375,l234,l376,l5),QIList(l275,QIList(QIList(l374,QIList(l18,"FN",l5),l5),l5),QIList(l186,QIList(l275,QIList(QIList(QIList(l188,l374,l5),QIList(l6,QIList(l188,l375,l5),QIList(l187,l376,l5),l5),l5),l5),QIList(l357,QIList(l188,l374,l5),"fname",QIList(l188,l379,l5),l5),QIList(l188,l374,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l221,QIList(l112,QIList(l6,QIList(l379,l384,l233,l422,l5),QIList(l186,QIList(l122,QIList(l118,QIList(l188,l379,l5),QIList(l188,l384,l5),l5),QIList(l187,QIList(l7,QIList(l345,l422,l5),QIList(l186,QIList(QIList(l357,QIList(l185,QIList(l188,l379,l5),l5),"vardoc",QIList(l188,l422,l5),l5),l5),l5),l5),l5),QIList(l185,QIList(l188,l379,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l221,QIList(l112,QIList(l6,QIList(l379,l384,l233,l422,l5),QIList(l186,QIList(l122,QIList(l2,QIList(l225,QIList(l188,l379,l5),l5),l5),QIList(l8,QIList(l20,QIList(l185,QIList(l188,l379,l5),l5),l5),QIList(l118,QIList(l188,l379,l5),QIList(l188,l384,l5),l5),l5),QIList(l187,QIList(l7,QIList(l345,l422,l5),QIList(l186,QIList(QIList(l357,QIList(l185,QIList(l188,l379,l5),l5),"vardoc",QIList(l188,l422,l5),l5),l5),l5),l5),l5),QIList(l185,QIList(l188,l379,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l221,QIList(l112,QIList(l6,QIList(l421,l234,l376,l5),QIList(l186,QIList(l231,QIList(l188,l421,l5),l5,QIList(l122,QIList(l187,l376,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l221,QIList(l112,QIList(l6,QIList(l421,l234,l376,l5),QIList(l186,QIList(l231,QIList(l188,l421,l5),QIList(l122,QIList(l187,l376,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l221,QIList(l112,QIList(l6,QIList(l375,l234,l376,l5),QIList(l186,QIList(l112,QIList(l6,QIList(l188,l375,l5),QIList(l187,l376,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l221,QIList(l112,QIList(l6,QIList(l379,l384,l233,l422,l5),QIList(l186,QIList(l122,QIList(l2,QIList(l225,QIList(l188,l379,l5),l5),l5),QIList(l2,QIList(l227,QIList(l188,l379,l5),l5),l5),QIList(l118,QIList(l188,l379,l5),QIList(l188,l384,l5),l5),QIList(l187,QIList(l7,QIList(l345,l422,l5),QIList(l186,QIList(QIList(l357,QIList(l185,QIList(l188,l379,l5),l5),"vardoc",QIList(l188,l422,l5),l5),l5),l5),l5),l5),QIList(l185,QIList(l188,l379,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l221,QIList(l112,QIList(l6,QIList(l234,l377,l5),QIList(l186,QIList(l270,QIList(l187,QIList(l81,QIList(l6,QIList(l378,l5),QIList(l186,QIList(l224,QIList(l185,QIList(l188,l378,l5),l5),l5),l5),l5),l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l221,QIList(l112,QIList(l6,QIList(l379,l375,l234,l376,l5),QIList(l186,QIList(l270,QIList(l220,QIList(l185,QIList(l188,l379,l5),l5),QIList(l185,QIList(l112,QIList(l6,QIList(l188,QIList(l81,QIList(l112,QIList(l6,QIList(l374,l5),QIList(l231,QIList(l342,l374,QIList(l185,l370,l5),l5),QIList(l185,l234,l5),l374,l5),l5),l5),l375,l5),l5),QIList(l187,l376,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); -((l211).value = l423); -var l424 = QIList(QIList(l422,"l422"),QIList(l421,"l421"),QIList(l420,"l420"),QIList(l419,"l419"),QIList(l418,"l418"),QIList(l417,"l417"),QIList(l416,"l416"),QIList(l415,"l415"),QIList(l414,"l414"),QIList(l413,"l413"),QIList(l412,"l412"),QIList(l411,"l411"),QIList(l410,"l410"),QIList(l409,"l409"),QIList(l408,"l408"),QIList(l407,"l407"),QIList(l406,"l406"),QIList(l405,"l405"),QIList(l404,"l404"),QIList(l403,"l403"),QIList(l402,"l402"),QIList(l401,"l401"),QIList(l400,"l400"),QIList(l399,"l399"),QIList(l398,"l398"),QIList(l397,"l397"),QIList(l396,"l396"),QIList(l395,"l395"),QIList(l394,"l394"),QIList(l393,"l393"),QIList(l392,"l392"),QIList(l391,"l391"),QIList(l390,"l390"),QIList(l389,"l389"),QIList(l388,"l388"),QIList(l387,"l387"),QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QIList(l382,"l382"),QIList(l381,"l381"),QIList(l380,"l380"),QIList(l379,"l379"),QIList(l378,"l378"),QIList(l377,"l377"),QIList(l376,"l376"),QIList(l375,"l375"),QIList(l374,"l374"),QIList(l373,"l373"),QIList(l372,"l372"),QIList(l370,"l370"),QIList(l369,"l369"),QIList(l368,"l368"),QIList(l367,"l367"),QIList(l366,"l366"),QIList(l365,"l365"),QIList(l364,"l364"),QIList(l363,"l363"),QIList(l362,"l362"),QIList(l361,"l361"),QIList(l360,"l360"),QIList(l359,"l359"),QIList(l358,"l358"),QIList(l357,"l357"),QIList(l356,"l356"),QIList(l355,"l355"),QIList(l354,"l354"),QIList(l353,"l353"),QIList(l352,"l352"),QIList(l351,"l351"),QIList(l350,"l350"),QIList(l349,"l349"),QIList(l348,"l348"),QIList(l347,"l347"),QIList(l346,"l346"),QIList(l345,"l345"),QIList(l344,"l344"),QIList(l343,"l343"),QIList(l342,"l342"),QIList(l341,"l341"),QIList(l340,"l340"),QIList(l339,"l339"),QIList(l338,"l338"),QIList(l337,"l337"),QIList(l336,"l336"),QIList(l335,"l335"),QIList(l334,"l334"),QIList(l333,"l333"),QIList(l332,"l332"),QIList(l331,"l331"),QIList(l330,"l330"),QIList(l329,"l329"),QIList(l328,"l328"),QIList(l327,"l327"),QIList(l326,"l326"),QIList(l325,"l325"),QIList(l324,"l324"),QIList(l323,"l323"),QIList(l322,"l322"),QIList(l321,"l321"),QIList(l320,"l320"),QIList(l319,"l319"),QIList(l318,"l318"),QIList(l317,"l317"),QIList(l316,"l316"),QIList(l315,"l315"),QIList(l314,"l314"),QIList(l313,"l313"),QIList(l312,"l312"),QIList(l311,"l311"),QIList(l310,"l310"),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(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(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(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"),l5); -(function(){ - l147.fvalue(pv, l422); - l147.fvalue(pv, l421); - l147.fvalue(pv, l420); - l147.fvalue(pv, l419); - l147.fvalue(pv, l418); - l147.fvalue(pv, l417); - l147.fvalue(pv, l416); - l147.fvalue(pv, l415); - l147.fvalue(pv, l414); - l147.fvalue(pv, l413); - l147.fvalue(pv, l412); - l147.fvalue(pv, l411); - l147.fvalue(pv, l410); - l147.fvalue(pv, l409); - l147.fvalue(pv, l408); - l147.fvalue(pv, l407); - l147.fvalue(pv, l406); - l147.fvalue(pv, l405); - l147.fvalue(pv, l404); - l147.fvalue(pv, l403); - l147.fvalue(pv, l402); - l147.fvalue(pv, l401); - l147.fvalue(pv, l400); - l147.fvalue(pv, l399); - l147.fvalue(pv, l398); - l147.fvalue(pv, l397); - l147.fvalue(pv, l396); - l147.fvalue(pv, l395); - l147.fvalue(pv, l394); - l147.fvalue(pv, l393); - l147.fvalue(pv, l392); - l147.fvalue(pv, l391); - l147.fvalue(pv, l390); - l147.fvalue(pv, l389); - l147.fvalue(pv, l388); - l147.fvalue(pv, l387); - l147.fvalue(pv, l386); - l147.fvalue(pv, l385); - l147.fvalue(pv, l384); - l147.fvalue(pv, l383); - l147.fvalue(pv, l382); - l147.fvalue(pv, l381); - l147.fvalue(pv, l380); - l147.fvalue(pv, l379); - l147.fvalue(pv, l378); - l147.fvalue(pv, l377); - l147.fvalue(pv, l376); - l147.fvalue(pv, l375); - l147.fvalue(pv, l374); - l147.fvalue(pv, l373); - l147.fvalue(pv, l372); - l147.fvalue(pv, l370); - l147.fvalue(pv, l369); - l147.fvalue(pv, l368); - l147.fvalue(pv, l367); - l147.fvalue(pv, l366); - l147.fvalue(pv, l365); - l147.fvalue(pv, l364); - l147.fvalue(pv, l363); - l147.fvalue(pv, l362); - l147.fvalue(pv, l361); - l147.fvalue(pv, l360); - l147.fvalue(pv, l359); - l147.fvalue(pv, l358); - l147.fvalue(pv, l357); - l147.fvalue(pv, l356); - l147.fvalue(pv, l355); - l147.fvalue(pv, l354); - l147.fvalue(pv, l353); - l147.fvalue(pv, l352); - l147.fvalue(pv, l351); - l147.fvalue(pv, l350); - l147.fvalue(pv, l349); - l147.fvalue(pv, l348); - l147.fvalue(pv, l347); - l147.fvalue(pv, l346); - l147.fvalue(pv, l345); - l147.fvalue(pv, l344); - l147.fvalue(pv, l343); - l147.fvalue(pv, l342); - l147.fvalue(pv, l341); - l147.fvalue(pv, l340); - l147.fvalue(pv, l339); - l147.fvalue(pv, l338); - l147.fvalue(pv, l337); - l147.fvalue(pv, l336); - l147.fvalue(pv, l335); - l147.fvalue(pv, l334); - l147.fvalue(pv, l333); - l147.fvalue(pv, l332); - l147.fvalue(pv, l331); - l147.fvalue(pv, l330); - l147.fvalue(pv, l329); - l147.fvalue(pv, l328); - l147.fvalue(pv, l327); - l147.fvalue(pv, l326); - l147.fvalue(pv, l325); - l147.fvalue(pv, l324); - l147.fvalue(pv, l323); - l147.fvalue(pv, l322); - l147.fvalue(pv, l321); - l147.fvalue(pv, l320); - l147.fvalue(pv, l319); - l147.fvalue(pv, l318); - l147.fvalue(pv, l317); - l147.fvalue(pv, l316); - l147.fvalue(pv, l315); - l147.fvalue(pv, l314); - l147.fvalue(pv, l313); - l147.fvalue(pv, l312); - l147.fvalue(pv, l311); - l147.fvalue(pv, l310); - l147.fvalue(pv, l309); - l147.fvalue(pv, l308); - l147.fvalue(pv, l307); - l147.fvalue(pv, l306); - l147.fvalue(pv, l305); - l147.fvalue(pv, l304); - l147.fvalue(pv, l303); - l147.fvalue(pv, l302); - l147.fvalue(pv, l301); - l147.fvalue(pv, l300); - l147.fvalue(pv, l299); - l147.fvalue(pv, l298); - l147.fvalue(pv, l297); - l147.fvalue(pv, l296); - l147.fvalue(pv, l295); - l147.fvalue(pv, l294); - l147.fvalue(pv, l293); - l147.fvalue(pv, l292); - l147.fvalue(pv, l291); - l147.fvalue(pv, l289); - l147.fvalue(pv, l288); - l147.fvalue(pv, l287); - l147.fvalue(pv, l286); - l147.fvalue(pv, l285); - l147.fvalue(pv, l284); - l147.fvalue(pv, l283); - l147.fvalue(pv, l282); - l147.fvalue(pv, l281); - l147.fvalue(pv, l280); - l147.fvalue(pv, l279); - l147.fvalue(pv, l278); - l147.fvalue(pv, l277); - l147.fvalue(pv, l276); - l147.fvalue(pv, l275); - l147.fvalue(pv, l274); - l147.fvalue(pv, l273); - l147.fvalue(pv, l272); - l147.fvalue(pv, l271); - l147.fvalue(pv, l270); - l147.fvalue(pv, l269); - l147.fvalue(pv, l268); - l147.fvalue(pv, l267); - l147.fvalue(pv, l266); - l147.fvalue(pv, l265); - l147.fvalue(pv, l264); - l147.fvalue(pv, l263); - l147.fvalue(pv, l262); - l147.fvalue(pv, l261); - l147.fvalue(pv, l260); - l147.fvalue(pv, l259); - l147.fvalue(pv, l258); - l147.fvalue(pv, l257); - l147.fvalue(pv, l256); - l147.fvalue(pv, l255); - l147.fvalue(pv, l254); - l147.fvalue(pv, l253); - l147.fvalue(pv, l252); - l147.fvalue(pv, l251); - l147.fvalue(pv, l250); - l147.fvalue(pv, l249); - l147.fvalue(pv, l248); - l147.fvalue(pv, l247); - l147.fvalue(pv, l246); - l147.fvalue(pv, l245); - l147.fvalue(pv, l244); - l147.fvalue(pv, l243); - l147.fvalue(pv, l242); - l147.fvalue(pv, l241); - l147.fvalue(pv, l240); - l147.fvalue(pv, l239); - l147.fvalue(pv, l238); - l147.fvalue(pv, l237); - l147.fvalue(pv, l235); - l147.fvalue(pv, l234); - l147.fvalue(pv, l233); - l147.fvalue(pv, l232); - l147.fvalue(pv, l231); - l147.fvalue(pv, l230); - l147.fvalue(pv, l229); - l147.fvalue(pv, l228); - l147.fvalue(pv, l227); - l147.fvalue(pv, l226); - l147.fvalue(pv, l225); - l147.fvalue(pv, l224); - l147.fvalue(pv, l223); - l147.fvalue(pv, l222); - l147.fvalue(pv, l221); - l147.fvalue(pv, l220); - l147.fvalue(pv, l219); - l147.fvalue(pv, l218); - l147.fvalue(pv, l217); - l147.fvalue(pv, l216); - l147.fvalue(pv, l215); - l147.fvalue(pv, l214); - l147.fvalue(pv, l213); - l147.fvalue(pv, l212); - l147.fvalue(pv, l211); - l147.fvalue(pv, l210); - l147.fvalue(pv, l209); - l147.fvalue(pv, l208); - l147.fvalue(pv, l207); - l147.fvalue(pv, l206); - l147.fvalue(pv, l205); - l147.fvalue(pv, l204); - l147.fvalue(pv, l203); - l147.fvalue(pv, l202); - l147.fvalue(pv, l201); - l147.fvalue(pv, l200); - l147.fvalue(pv, l199); - l147.fvalue(pv, l198); - l147.fvalue(pv, l197); - l147.fvalue(pv, l196); - l147.fvalue(pv, l195); - l147.fvalue(pv, l194); - l147.fvalue(pv, l193); - l147.fvalue(pv, l192); - l147.fvalue(pv, l191); - l147.fvalue(pv, l190); - l147.fvalue(pv, l189); - l147.fvalue(pv, l188); - l147.fvalue(pv, l187); - l147.fvalue(pv, l186); - l147.fvalue(pv, l185); - l147.fvalue(pv, l184); - l147.fvalue(pv, l183); - l147.fvalue(pv, l182); - l147.fvalue(pv, l181); - l147.fvalue(pv, l180); - l147.fvalue(pv, l179); - l147.fvalue(pv, l178); - l147.fvalue(pv, l177); - l147.fvalue(pv, l176); - l147.fvalue(pv, l175); - l147.fvalue(pv, l174); - l147.fvalue(pv, l173); - l147.fvalue(pv, l172); - l147.fvalue(pv, l171); - l147.fvalue(pv, l170); - l147.fvalue(pv, l169); - l147.fvalue(pv, l168); - l147.fvalue(pv, l167); - l147.fvalue(pv, l166); - l147.fvalue(pv, l165); - l147.fvalue(pv, l164); - l147.fvalue(pv, l163); - l147.fvalue(pv, l162); - l147.fvalue(pv, l161); - l147.fvalue(pv, l160); - l147.fvalue(pv, l159); - l147.fvalue(pv, l158); - l147.fvalue(pv, l157); - l147.fvalue(pv, l156); - l147.fvalue(pv, l155); - l147.fvalue(pv, l154); - l147.fvalue(pv, l153); - l147.fvalue(pv, l152); - l147.fvalue(pv, l151); - l147.fvalue(pv, l150); - l147.fvalue(pv, l149); - l147.fvalue(pv, l148); - l147.fvalue(pv, l147); - l147.fvalue(pv, l146); - l147.fvalue(pv, l145); - l147.fvalue(pv, l144); - l147.fvalue(pv, l143); - l147.fvalue(pv, l142); - l147.fvalue(pv, l141); - l147.fvalue(pv, l140); - l147.fvalue(pv, l139); - l147.fvalue(pv, l138); - l147.fvalue(pv, l137); - l147.fvalue(pv, l136); - l147.fvalue(pv, l135); - l147.fvalue(pv, l134); - l147.fvalue(pv, l133); - l147.fvalue(pv, l132); - l147.fvalue(pv, l131); - l147.fvalue(pv, l130); - l147.fvalue(pv, l129); - l147.fvalue(pv, l128); - l147.fvalue(pv, l127); - l147.fvalue(pv, l126); - l147.fvalue(pv, l125); - l147.fvalue(pv, l124); - l147.fvalue(pv, l123); - l147.fvalue(pv, l122); - l147.fvalue(pv, l121); - l147.fvalue(pv, l120); - l147.fvalue(pv, l119); - l147.fvalue(pv, l118); - l147.fvalue(pv, l117); - l147.fvalue(pv, l116); - l147.fvalue(pv, l115); - l147.fvalue(pv, l114); - l147.fvalue(pv, l113); - l147.fvalue(pv, l112); - l147.fvalue(pv, l111); - l147.fvalue(pv, l110); - l147.fvalue(pv, l109); - l147.fvalue(pv, l108); - l147.fvalue(pv, l107); - l147.fvalue(pv, l106); - l147.fvalue(pv, l105); - l147.fvalue(pv, l104); - l147.fvalue(pv, l103); - l147.fvalue(pv, l102); - l147.fvalue(pv, l101); - l147.fvalue(pv, l100); - l147.fvalue(pv, l99); - l147.fvalue(pv, l98); - l147.fvalue(pv, l97); - l147.fvalue(pv, l96); - l147.fvalue(pv, l95); - l147.fvalue(pv, l94); - l147.fvalue(pv, l93); - l147.fvalue(pv, l92); - l147.fvalue(pv, l91); - l147.fvalue(pv, l90); - l147.fvalue(pv, l89); - l147.fvalue(pv, l88); - l147.fvalue(pv, l87); - l147.fvalue(pv, l86); - l147.fvalue(pv, l85); - l147.fvalue(pv, l84); - l147.fvalue(pv, l83); - l147.fvalue(pv, l82); - l147.fvalue(pv, l81); - l147.fvalue(pv, l80); - l147.fvalue(pv, l79); - l147.fvalue(pv, l78); - l147.fvalue(pv, l77); - l147.fvalue(pv, l76); - l147.fvalue(pv, l75); - l147.fvalue(pv, l74); - l147.fvalue(pv, l73); - l147.fvalue(pv, l72); - l147.fvalue(pv, l71); - l147.fvalue(pv, l70); - l147.fvalue(pv, l69); - l147.fvalue(pv, l68); - l147.fvalue(pv, l67); - l147.fvalue(pv, l66); - l147.fvalue(pv, l65); - l147.fvalue(pv, l64); - l147.fvalue(pv, l63); - l147.fvalue(pv, l62); - l147.fvalue(pv, l61); - l147.fvalue(pv, l60); - l147.fvalue(pv, l59); - l147.fvalue(pv, l58); - l147.fvalue(pv, l57); - l147.fvalue(pv, l56); - l147.fvalue(pv, l55); - l147.fvalue(pv, l54); - l147.fvalue(pv, l53); - l147.fvalue(pv, l52); - l147.fvalue(pv, l51); - l147.fvalue(pv, l50); - l147.fvalue(pv, l49); - l147.fvalue(pv, l48); - l147.fvalue(pv, l47); - l147.fvalue(pv, l46); - l147.fvalue(pv, l45); - l147.fvalue(pv, l44); - l147.fvalue(pv, l43); - l147.fvalue(pv, l42); - l147.fvalue(pv, l41); - l147.fvalue(pv, l40); - l147.fvalue(pv, l39); - l147.fvalue(pv, l38); - l147.fvalue(pv, l37); - l147.fvalue(pv, l36); - l147.fvalue(pv, l35); - l147.fvalue(pv, l34); - l147.fvalue(pv, l33); - l147.fvalue(pv, l32); - l147.fvalue(pv, l31); - l147.fvalue(pv, l30); - l147.fvalue(pv, l29); - l147.fvalue(pv, l28); - l147.fvalue(pv, l27); - l147.fvalue(pv, l26); - l147.fvalue(pv, l25); - l147.fvalue(pv, l24); - l147.fvalue(pv, l23); - l147.fvalue(pv, l22); - l147.fvalue(pv, l21); - l147.fvalue(pv, l20); - l147.fvalue(pv, l19); - l147.fvalue(pv, l18); - l147.fvalue(pv, l17); - l147.fvalue(pv, l16); - l147.fvalue(pv, l15); - l147.fvalue(pv, l14); - l147.fvalue(pv, l13); - l147.fvalue(pv, l12); - l147.fvalue(pv, l11); - l147.fvalue(pv, l10); - l147.fvalue(pv, l9); - l147.fvalue(pv, l8); - l147.fvalue(pv, l7); - l147.fvalue(pv, l6); - l147.fvalue(pv, l5); - l147.fvalue(pv, l4); - l147.fvalue(pv, l3); - l147.fvalue(pv, l2); - l147.fvalue(pv, l1); - ((l258).value = l424); - ((l212).value = 1177); - ((l17).value = 448); - return ((l279).value = 332); -})(); -((l259).value = 424); +var l373 = {name: "OP"}; +var l374 = {name: "SYM"}; +var l375 = {name: "X"}; +var l376 = {name: "ARGS"}; +var l377 = {name: "BODY"}; +var l378 = {name: "DECLS"}; +var l379 = {name: "DECL"}; +var l380 = {name: "NAME"}; +var l381 = {name: "ARG"}; +var l382 = {name: "FORM"}; +var l383 = {name: "PACKAGE-DESIGNATOR"}; +var l384 = {name: "CLAUSULES"}; +var l385 = {name: "VALUE"}; +var l386 = {name: "C"}; +var l387 = {name: "INTEGER"}; +var l388 = {name: "PLACE"}; +var l389 = {name: "DUMMIES"}; +var l390 = {name: "VALS"}; +var l391 = {name: "NEWVAL"}; +var l392 = {name: "SETTER"}; +var l393 = {name: "GETTER"}; +var l394 = {name: "G"}; +var l395 = {name: "PAIRS"}; +var l396 = {name: "VARS"}; +var l397 = {name: "STORE-VARS"}; +var l398 = {name: "WRITER-FORM"}; +var l399 = {name: "READER-FORM"}; +var l400 = {name: "RESULT"}; +var l401 = {name: "ACCESS-FN"}; +var l402 = {name: "LAMBDA-LIST"}; +var l403 = {name: "VALUE-FROM"}; +var l404 = {name: "VARIABLES"}; +var l405 = {name: "ITERATION"}; +var l406 = {name: "SEQ"}; +var l407 = {name: "INDEX"}; +var l408 = {name: "HEAD"}; +var l409 = {name: "TAIL"}; +var l410 = {name: "COLLECT"}; +var l411 = {name: "VARLIST"}; +var l412 = {name: "ENDLIST"}; +var l413 = {name: "V"}; +var l414 = {name: "ASSIGNMENTS"}; +var l415 = {name: "FORM1"}; +var l416 = {name: "FORMS"}; +var l417 = {name: "!FORM"}; +var l418 = {name: "CLAUSULE"}; +var l419 = {name: "ITER"}; +var l420 = {name: "G!TO"}; +var l421 = {name: "VAR"}; +var l422 = {name: "TO"}; +var l423 = {name: "G!LIST"}; +var l424 = {name: "DELTA"}; +var l425 = {name: "CONDITION"}; +var l426 = {name: "DOCSTRING"}; +var l427 = QIList(QIList(QIList(l320,l114,l5,QIList(l226,l5),l5),QIList(l304,l114,l5,QIList(l226,l5),l5),QIList(l303,l114,l5,QIList(l226,l5),l5),QIList(l302,l114,l5,QIList(l226,l5),l5),QIList(l301,l114,l5,QIList(l226,l5),l5),QIList(l300,l114,l5,QIList(l226,l5),l5),QIList(l299,l114,l5,QIList(l226,l5),l5),QIList(l298,l114,l5,QIList(l226,l5),l5),QIList(l297,l114,l5,QIList(l226,l5),l5),QIList(l296,l114,l5,QIList(l226,l5),l5),QIList(l287,l114,l5,QIList(l226,l5),l5),QIList(l286,l114,l5,QIList(l226,l5),l5),QIList(l280,l114,l5,QIList(l226,l5),l5),QIList(l270,l114,l5,QIList(l226,l5),l5),QIList(l260,l114,l5,QIList(l226,l5),l5),QIList(l259,l114,l5,QIList(l226,l5),l5),QIList(l233,l114,l5,QIList(l226,l5),l5),QIList(l230,l114,l5,QIList(l226,l5),l5),QIList(l217,l114,l5,QIList(l226,l5),l5),QIList(l213,l114,l5,QIList(l226,l5),l5),QIList(l212,l114,l5,QIList(l226,l5),l5),QIList(l196,l114,l5,QIList(l226,l5),l5),QIList(l185,l114,l5,QIList(l226,l5),l5),QIList(l156,l114,l5,QIList(l226,l5),l5),QIList(l146,l114,l5,QIList(l226,l5),l5),QIList(l143,l114,l5,QIList(l226,l5),l5),QIList(l142,l114,l5,QIList(l226,l5),l5),QIList(l141,l114,l5,QIList(l226,l5),l5),QIList(l130,l114,l5,QIList(l226,l5),l5),QIList(l117,l114,l5,QIList(l226,l5),l5),QIList(l17,l114,l5,QIList(l226,l5),l5),QIList(l5,l114,l5,QIList(l228,l226,l5),l5),QIList(l4,l114,l5,QIList(l228,l226,l5),l5),l5),QIList(QIList(l329,l222,QIList(l113,QIList(l6,QIList(l373,l374,l5),QIList(l187,QIList(l321,QIList(l189,l373,l5),QIList(l375,l235,l376,l5),QIList(l276,QIList(QIList(l376,QIList(l30,l375,l376,l5),l5),l5),QIList(l325,l376,QIList(l192,QIList(l328,l376,QIList(l189,l374,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l325,l222,QIList(l113,QIList(l6,QIList(l376,l235,l377,l5),QIList(l8,QIList(l336,l376,l5),QIList(l354,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l187,QIList(l324,QIList(l189,l376,l5),QIList(l6,QIList(QIList(l189,l376,l5),l5),QIList(l191,"return ",QIList(l188,l377,l5),";",l156,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l323,l222,QIList(l113,QIList(l6,QIList(l378,l235,l377,l5),QIList(l187,QIList(l194,QIList(l188,QIList(l81,QIList(l6,QIList(l379,l5),QIList(l187,QIList(l191,"var ",QIList(l189,QIList(l42,l379,l5),l5)," = ",QIList(l189,QIList(l44,l379,l5),l5),";",l156,l5),l5),l5),l378,l5),l5),QIList(l188,QIList(l81,QIList(l6,QIList(l379,l5),QIList(l187,QIList(l191,"if (typeof ",QIList(l189,QIList(l42,l379,l5),l5)," != '",QIList(l189,QIList(l43,l379,l5),l5),"')",l156,QIList(l195,"throw 'The value ' + ",QIList(l189,QIList(l42,l379,l5),l5)," + ' is not a type ",QIList(l189,QIList(l43,l379,l5),l5),".';",l156,l5),l5),l5),l5),l378,l5),l5),QIList(l191,"return ",QIList(l123,QIList(l188,l377,l5),l5),";",l156,l5),l5),l5),l5),l5),l5,l5),QIList(l322,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l321,QIList(l189,l380,l5),QIList(l189,l376,l5),QIList(l276,QIList(l189,QIList(l81,QIList(l6,QIList(l381,l5),QIList(l187,QIList(QIList(l189,l381,l5),QIList(l193,QIList(l189,l381,l5),l5),l5),l5),l5),l376,l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l321,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l51,QIList(l47,QIList(l186,QIList(l189,l380,l5),l5),QIList(l6,QIList(l189,l376,l5),QIList(l208,QIList(l189,l380,l5),QIList(l188,l377,l5),l5),l5),l5),l320,l5),l5),l5),l5),l5,l5),QIList(l187,l222,QIList(l113,QIList(l6,QIList(l375,l5),QIList(l306,l375,l5),l5),l5),l5,l5),QIList(l273,l222,QIList(l113,QIList(l6,QIList(l380,l376,l382,l5),QIList(l187,QIList(l231,QIList(l189,l380,l5),QIList(l189,l376,l5),QIList(l193,QIList(l189,l382,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l231,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l51,QIList(l47,QIList(l186,QIList(l189,l380,l5),l5),QIList(l6,QIList(l189,l376,l5),QIList(l208,QIList(l189,l380,l5),QIList(l188,l377,l5),l5),l5),l5),l230,l5),l5),l5),l5),l5,l5),QIList(l194,l222,QIList(l113,QIList(l6,QIList(l235,l377,l5),QIList(l187,QIList(l191,"(function(){",l156,QIList(l195,QIList(l188,l377,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l158,l222,QIList(l113,QIList(l6,QIList(l114,l235,l382,l5),QIList(l187,QIList(l119,QIList(l189,l114,l5),QIList(l157,QIList(l189,l114,l5),QIList(l123,QIList(l188,l382,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l147,l222,QIList(l113,QIList(l6,QIList(l383,l5),QIList(l187,QIList(l271,QIList(l119,l146,QIList(l134,QIList(l189,l383,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l126,l222,QIList(l113,QIList(l6,QIList(l375,l235,l384,l5),QIList(l276,QIList(QIList(l385,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l385,l5),QIList(l189,l375,l5),l5),l5),QIList(l54,QIList(l188,QIList(l81,QIList(l6,QIList(l386,l5),QIList(l232,QIList(l343,QIList(l32,l386,l5),l4,l5),QIList(l187,QIList(QIList(l4,QIList(l188,QIList(l46,l386,l5),l5),l5),l5),l5),QIList(l187,QIList(QIList(QIList(l189,QIList(l56,QIList(l32,l386,l5),QIList(l387,QIList(l186,l89,l5),l5),QIList(l30,QIList(l186,l31,l5),l5),QIList(l107,QIList(l186,l346,l5),l5),QIList(l48,QIList(l186,l48,l5),l5),QIList(l13,QIList(l186,l13,l5),l5),l5),l5),QIList(l189,l385,l5),l5),QIList(l188,QIList(l58,QIList(l46,l386,l5),QIList(l47,l5,l5),l5),l5),l5),l5),l5),l5),l384,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l222,QIList(l113,QIList(l6,QIList(l375,l388,l5),QIList(l115,QIList(l389,l390,l391,l392,l393,l5),QIList(l118,l388,l5),QIList(l276,QIList(QIList(l394,QIList(l18,l5),l5),l5),QIList(l187,QIList(l279,QIList(QIList(QIList(l189,l394,l5),QIList(l189,l375,l5),l5),QIList(l188,QIList(l81,QIList(l113,l47,l5),l389,l390,l5),l5),QIList(QIList(l189,QIList(l32,l391,l5),l5),QIList(l30,QIList(l189,l394,l5),QIList(l189,l393,l5),l5),l5),QIList(l188,QIList(l33,l391,l5),l5),l5),QIList(l189,l392,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l122,l222,QIList(l113,QIList(l6,QIList(l235,l395,l5),QIList(l54,QIList(QIList(l13,l395,l5),l5,l5),QIList(QIList(l13,QIList(l33,l395,l5),l5),QIList(l354,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l37,l395,l5),l5),QIList(l276,QIList(QIList(l388,QIList(l42,l395,l5),l5),QIList(l385,QIList(l43,l395,l5),l5),l5),QIList(l115,QIList(l396,l390,l397,l398,l399,l5),QIList(l118,l388,l5),QIList(l187,QIList(l279,QIList(l189,QIList(l81,QIList(l113,l47,l5),l396,l390,l5),l5),QIList(l115,QIList(l189,l397,l5),QIList(l189,l385,l5),QIList(l189,l398,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l187,QIList(l123,QIList(l188,QIList(l72,QIList(QIList(l395,l395,QIList(l37,l395,l5),l5),QIList(l400,QIList(l186,l5,l5),QIList(l30,QIList(l187,QIList(l122,QIList(l189,QIList(l32,l395,l5),l5),QIList(l189,QIList(l35,l395,l5),l5),l5),l5),l400,l5),l5),l5),QIList(QIList(l13,l395,l5),QIList(l70,l400,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l121,l222,QIList(l113,QIList(l6,QIList(l401,l402,l235,l377,l5),QIList(l8,QIList(l336,l401,l5),QIList(l354,"ACCESS-FN must be a symbol.",l5),l5),QIList(l187,QIList(l123,QIList(l51,QIList(l30,QIList(l186,QIList(l189,l401,l5),l5),QIList(l6,QIList(l189,l402,l5),QIList(l188,l377,l5),l5),l5),l117,l5),QIList(l186,QIList(l189,l401,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l116,l222,QIList(l113,QIList(l6,QIList(l403,l5),QIList(l187,QIList(l294,QIList(l113,l47,l5),QIList(l189,l403,l5),l5),l5),l5),l5),l5,l5),QIList(l115,l222,QIList(l113,QIList(l6,QIList(l404,l403,l235,l377,l5),QIList(l187,QIList(l294,QIList(l6,QIList(l234,QIList(l188,l404,l5),l235,QIList(l189,QIList(l18,l5),l5),l5),QIList(l188,l377,l5),l5),QIList(l189,l403,l5),l5),l5),l5),l5),l5,l5),QIList(l103,l222,QIList(l113,QIList(l6,QIList(l405,l235,l377,l5),QIList(l276,QIList(QIList(l406,QIList(l18,l5),l5),QIList(l407,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l406,l5),QIList(l189,QIList(l43,l405,l5),l5),l5),l5),QIList(l54,QIList(QIList(l346,QIList(l189,l406,l5),l5),QIList(l276,QIList(QIList(QIList(l189,l407,l5),0,l5),l5),QIList(l53,QIList(QIList(l189,l407,l5),QIList(l75,QIList(l189,l406,l5),l5),l5),QIList(l276,QIList(QIList(QIList(l189,QIList(l42,l405,l5),l5),QIList(l350,QIList(l189,l406,l5),QIList(l189,l407,l5),l5),l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),QIList(QIList(l62,QIList(l189,l406,l5),l5),QIList(l52,QIList(QIList(l189,QIList(l42,l405,l5),l5),QIList(l189,l406,l5),l5),QIList(l188,l377,l5),l5),l5),QIList(l4,QIList(l354,"type-error!",l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l80,l222,QIList(l113,QIList(l6,QIList(l235,l377,l5),QIList(l187,QIList(l16,l4,QIList(l188,l377,l5),l5),l5),l5),l5),l5,l5),QIList(l77,l222,QIList(l113,QIList(l6,QIList(l235,l377,l5),QIList(l276,QIList(QIList(l408,QIList(l18,l5),l5),QIList(l409,QIList(l18,l5),l5),l5),QIList(l187,QIList(l279,QIList(QIList(QIList(l189,l408,l5),QIList(l30,QIList(l186,l79,l5),l5,l5),l5),QIList(QIList(l189,l409,l5),QIList(l189,l408,l5),l5),l5),QIList(l268,QIList(QIList(l410,QIList(l375,l5),QIList(l125,QIList(l189,l409,l5),QIList(l30,l375,l5,l5),l5),QIList(l119,QIList(l189,l409,l5),QIList(l33,QIList(l189,l409,l5),l5),l5),l375,l5),l5),QIList(l188,l377,l5),l5),QIList(l33,QIList(l189,l408,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l73,l222,QIList(l113,QIList(l6,QIList(l411,l412,l235,l377,l5),QIList(l187,QIList(l208,l5,QIList(l279,QIList(l189,QIList(l81,QIList(l6,QIList(l375,l5),QIList(l47,QIList(l42,l375,l5),QIList(l43,l375,l5),l5),l5),l411,l5),l5),QIList(l16,l4,QIList(l7,QIList(l189,QIList(l32,l412,l5),l5),QIList(l15,QIList(l123,QIList(l188,QIList(l33,l412,l5),l5),l5),l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l119,QIList(l188,QIList(l352,QIList(l113,l68,l5),QIList(l81,QIList(l6,QIList(l413,l5),QIList(l57,QIList(l31,QIList(l37,l413,l5),l5),QIList(l47,QIList(l42,l413,l5),QIList(l44,l413,l5),l5),l5),l5),l411,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l72,l222,QIList(l113,QIList(l6,QIList(l411,l412,l235,l377,l5),QIList(l187,QIList(l208,l5,QIList(l276,QIList(l189,QIList(l81,QIList(l6,QIList(l375,l5),QIList(l47,QIList(l42,l375,l5),QIList(l43,l375,l5),l5),l5),l411,l5),l5),QIList(l16,l4,QIList(l7,QIList(l189,QIList(l32,l412,l5),l5),QIList(l15,QIList(l123,QIList(l188,QIList(l33,l412,l5),l5),l5),l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l71,QIList(l188,QIList(l352,QIList(l113,l68,l5),QIList(l81,QIList(l6,QIList(l413,l5),QIList(l57,QIList(l31,QIList(l37,l413,l5),l5),QIList(l47,QIList(l42,l413,l5),QIList(l44,l413,l5),l5),l5),l5),l411,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l222,QIList(l113,QIList(l6,QIList(l235,l395,l5),QIList(l276,QIList(QIList(l414,QIList(l186,l5,l5),l5),l5),QIList(l16,l4,QIList(l54,QIList(QIList(l13,l395,l5),QIList(l15,l5),l5),QIList(QIList(l13,QIList(l33,l395,l5),l5),QIList(l354,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l276,QIList(QIList(l114,QIList(l32,l395,l5),l5),QIList(l385,QIList(l35,l395,l5),l5),l5),QIList(l51,QIList(l187,QIList(QIList(l189,l114,l5),QIList(l189,QIList(l18,l5),l5),QIList(l189,l385,l5),l5),l5),l414,l5),QIList(l119,l395,QIList(l37,l395,l5),l5),l5),l5),l5),l5),QIList(l119,l414,QIList(l70,l414,l5),l5),QIList(l187,QIList(l276,QIList(l189,QIList(l81,QIList(l113,l33,l5),l414,l5),l5),QIList(l119,QIList(l188,QIList(l63,QIList(l113,l68,l5),QIList(l81,QIList(l113,l95,l5),l414,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l60,l222,QIList(l113,QIList(l6,QIList(l415,l400,l235,l377,l5),QIList(l187,QIList(l59,QIList(l123,QIList(l189,l415,l5),QIList(l189,l400,l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5,l5),QIList(l59,l222,QIList(l113,QIList(l6,QIList(l382,l235,l377,l5),QIList(l276,QIList(QIList(l385,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l385,l5),QIList(l189,l382,l5),l5),l5),QIList(l188,l377,l5),QIList(l189,l385,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l58,l222,QIList(l113,QIList(l6,QIList(l235,l416,l5),QIList(l54,QIList(QIList(l13,l416,l5),l5,l5),QIList(QIList(l13,QIList(l33,l416,l5),l5),QIList(l32,l416,l5),l5),QIList(l4,QIList(l276,QIList(QIList(l394,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l394,l5),QIList(l189,QIList(l32,l416,l5),l5),l5),l5),QIList(l232,QIList(l189,l394,l5),QIList(l189,l394,l5),QIList(l58,QIList(l188,QIList(l33,l416,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l57,l222,QIList(l113,QIList(l6,QIList(l235,l416,l5),QIList(l54,QIList(QIList(l13,l416,l5),l4,l5),QIList(QIList(l13,QIList(l33,l416,l5),l5),QIList(l32,l416,l5),l5),QIList(l4,QIList(l187,QIList(l232,QIList(l189,QIList(l32,l416,l5),l5),QIList(l57,QIList(l188,QIList(l33,l416,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l222,QIList(l113,QIList(l6,QIList(l382,l235,l384,l5),QIList(l187,QIList(l55,QIList(l189,l382,l5),QIList(l188,QIList(l68,l384,QIList(l187,QIList(QIList(l4,QIList(l354,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l222,QIList(l113,QIList(l6,QIList(l382,l235,l384,l5),QIList(l276,QIList(QIList(l417,QIList(l18,l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l417,l5),QIList(l189,l382,l5),l5),l5),QIList(l54,QIList(l188,QIList(l81,QIList(l6,QIList(l418,l5),QIList(l232,QIList(l343,QIList(l32,l418,l5),l4,l5),l418,QIList(l187,QIList(QIList(l28,QIList(l189,l417,l5),QIList(l186,QIList(l189,QIList(l32,l418,l5),l5),l5),l5),QIList(l188,QIList(l33,l418,l5),l5),l5),l5),l5),l5),l384,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l222,QIList(l113,QIList(l6,QIList(l235,l384,l5),QIList(l232,QIList(l13,l384,l5),l5,QIList(l232,QIList(l343,QIList(l34,l384,l5),l4,l5),QIList(l187,QIList(l123,QIList(l188,QIList(l36,l384,l5),l5),l5),l5),QIList(l187,QIList(l232,QIList(l189,QIList(l34,l384,l5),l5),QIList(l123,QIList(l188,QIList(l36,l384,l5),l5),l5),QIList(l54,QIList(l188,QIList(l33,l384,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l222,QIList(l113,QIList(l6,QIList(l419,l235,l377,l5),QIList(l276,QIList(QIList(l420,QIList(l18,l5),l5),QIList(l421,QIList(l42,l419,l5),l5),QIList(l422,QIList(l43,l419,l5),l5),QIList(l400,QIList(l44,l419,l5),l5),l5),QIList(l187,QIList(l208,l5,QIList(l276,QIList(QIList(QIList(l189,l421,l5),0,l5),QIList(QIList(l189,l420,l5),QIList(l189,l422,l5),l5),l5),QIList(l263,QIList(l331,QIList(l189,l421,l5),QIList(l189,l420,l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l49,QIList(l189,l421,l5),l5),l5),QIList(l189,l400,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l222,QIList(l113,QIList(l6,QIList(l419,l235,l377,l5),QIList(l276,QIList(QIList(l421,QIList(l42,l419,l5),l5),QIList(l423,QIList(l18,l5),l5),l5),QIList(l187,QIList(l208,l5,QIList(l276,QIList(QIList(QIList(l189,l423,l5),QIList(l189,QIList(l43,l419,l5),l5),l5),QIList(QIList(l189,l421,l5),l5,l5),l5),QIList(l263,QIList(l189,l423,l5),QIList(l119,QIList(l189,l421,l5),QIList(l32,QIList(l189,l423,l5),l5),l5),QIList(l290,QIList(l188,l377,l5),l5),QIList(l119,QIList(l189,l423,l5),QIList(l33,QIList(l189,l423,l5),l5),l5),l5),QIList(l189,QIList(l44,l419,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l222,QIList(l113,QIList(l6,QIList(l375,l388,l5),QIList(l187,QIList(l119,QIList(l189,l388,l5),QIList(l30,QIList(l189,l375,l5),QIList(l189,l388,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l222,QIList(l113,QIList(l6,QIList(l375,l234,QIList(l424,1,l5),l5),QIList(l187,QIList(l119,QIList(l189,l375,l5),QIList(l66,QIList(l189,l375,l5),QIList(l189,l424,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l222,QIList(l113,QIList(l6,QIList(l375,l234,QIList(l424,1,l5),l5),QIList(l187,QIList(l119,QIList(l189,l375,l5),QIList(l65,QIList(l189,l375,l5),QIList(l189,l424,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l16,l222,QIList(l113,QIList(l6,QIList(l425,l235,l377,l5),QIList(l187,QIList(l208,l5,QIList(l263,QIList(l189,l425,l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l222,QIList(l113,QIList(l6,QIList(l234,l385,l5),QIList(l187,QIList(l283,l5,QIList(l189,l385,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l123,QIList(l339,QIList(l186,QIList(l189,l380,l5),l5),QIList(l11,QIList(l189,QIList(l338,l380,l5),l5),QIList(l189,l376,l5),QIList(l188,QIList(l232,QIList(l57,QIList(l346,QIList(l32,l377,l5),l5),QIList(l29,QIList(l13,QIList(l33,l377,l5),l5),l5),l5),QIList(l187,QIList(QIList(l189,QIList(l32,l377,l5),l5),QIList(l208,QIList(l189,l380,l5),QIList(l188,QIList(l33,l377,l5),l5),l5),l5),l5),QIList(l187,QIList(QIList(l208,QIList(l189,l380,l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l276,QIList(QIList(l375,QIList(l18,"FN",l5),l5),l5),QIList(l187,QIList(l276,QIList(QIList(QIList(l189,l375,l5),QIList(l6,QIList(l189,l376,l5),QIList(l188,l377,l5),l5),l5),l5),QIList(l358,QIList(l189,l375,l5),"fname",QIList(l189,l380,l5),l5),QIList(l189,l375,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l222,QIList(l113,QIList(l6,QIList(l380,l385,l234,l426,l5),QIList(l187,QIList(l123,QIList(l119,QIList(l189,l380,l5),QIList(l189,l385,l5),l5),QIList(l188,QIList(l7,QIList(l346,l426,l5),QIList(l187,QIList(QIList(l358,QIList(l186,QIList(l189,l380,l5),l5),"vardoc",QIList(l189,l426,l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l222,QIList(l113,QIList(l6,QIList(l380,l385,l234,l426,l5),QIList(l187,QIList(l123,QIList(l2,QIList(l226,QIList(l189,l380,l5),l5),l5),QIList(l8,QIList(l20,QIList(l186,QIList(l189,l380,l5),l5),l5),QIList(l119,QIList(l189,l380,l5),QIList(l189,l385,l5),l5),l5),QIList(l188,QIList(l7,QIList(l346,l426,l5),QIList(l187,QIList(QIList(l358,QIList(l186,QIList(l189,l380,l5),l5),"vardoc",QIList(l189,l426,l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l222,QIList(l113,QIList(l6,QIList(l425,l235,l377,l5),QIList(l187,QIList(l232,QIList(l189,l425,l5),l5,QIList(l123,QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l222,QIList(l113,QIList(l6,QIList(l425,l235,l377,l5),QIList(l187,QIList(l232,QIList(l189,l425,l5),QIList(l123,QIList(l188,l377,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l222,QIList(l113,QIList(l6,QIList(l376,l235,l377,l5),QIList(l187,QIList(l113,QIList(l6,QIList(l189,l376,l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l222,QIList(l113,QIList(l6,QIList(l380,l385,l234,l426,l5),QIList(l187,QIList(l123,QIList(l2,QIList(l226,QIList(l189,l380,l5),l5),l5),QIList(l2,QIList(l228,QIList(l189,l380,l5),l5),l5),QIList(l119,QIList(l189,l380,l5),QIList(l189,l385,l5),l5),QIList(l188,QIList(l7,QIList(l346,l426,l5),QIList(l187,QIList(QIList(l358,QIList(l186,QIList(l189,l380,l5),l5),"vardoc",QIList(l189,l426,l5),l5),l5),l5),l5),l5),QIList(l186,QIList(l189,l380,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l222,QIList(l113,QIList(l6,QIList(l235,l378,l5),QIList(l187,QIList(l271,QIList(l188,QIList(l81,QIList(l6,QIList(l379,l5),QIList(l187,QIList(l225,QIList(l186,QIList(l189,l379,l5),l5),l5),l5),l5),l378,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l222,QIList(l113,QIList(l6,QIList(l380,l376,l235,l377,l5),QIList(l187,QIList(l271,QIList(l221,QIList(l186,QIList(l189,l380,l5),l5),QIList(l186,QIList(l113,QIList(l6,QIList(l189,QIList(l81,QIList(l113,QIList(l6,QIList(l375,l5),QIList(l232,QIList(l343,l375,QIList(l186,l371,l5),l5),QIList(l186,l235,l5),l375,l5),l5),l5),l376,l5),l5),QIList(l188,l377,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); +((l212).value = l427); +var l428 = QIList(QIList(l426,"l426"),QIList(l425,"l425"),QIList(l424,"l424"),QIList(l423,"l423"),QIList(l422,"l422"),QIList(l421,"l421"),QIList(l420,"l420"),QIList(l419,"l419"),QIList(l418,"l418"),QIList(l417,"l417"),QIList(l416,"l416"),QIList(l415,"l415"),QIList(l414,"l414"),QIList(l413,"l413"),QIList(l412,"l412"),QIList(l411,"l411"),QIList(l410,"l410"),QIList(l409,"l409"),QIList(l408,"l408"),QIList(l407,"l407"),QIList(l406,"l406"),QIList(l405,"l405"),QIList(l404,"l404"),QIList(l403,"l403"),QIList(l402,"l402"),QIList(l401,"l401"),QIList(l400,"l400"),QIList(l399,"l399"),QIList(l398,"l398"),QIList(l397,"l397"),QIList(l396,"l396"),QIList(l395,"l395"),QIList(l394,"l394"),QIList(l393,"l393"),QIList(l392,"l392"),QIList(l391,"l391"),QIList(l390,"l390"),QIList(l389,"l389"),QIList(l388,"l388"),QIList(l387,"l387"),QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QIList(l382,"l382"),QIList(l381,"l381"),QIList(l380,"l380"),QIList(l379,"l379"),QIList(l378,"l378"),QIList(l377,"l377"),QIList(l376,"l376"),QIList(l375,"l375"),QIList(l374,"l374"),QIList(l373,"l373"),QIList(l371,"l371"),QIList(l370,"l370"),QIList(l369,"l369"),QIList(l368,"l368"),QIList(l367,"l367"),QIList(l366,"l366"),QIList(l365,"l365"),QIList(l364,"l364"),QIList(l363,"l363"),QIList(l362,"l362"),QIList(l361,"l361"),QIList(l360,"l360"),QIList(l359,"l359"),QIList(l358,"l358"),QIList(l357,"l357"),QIList(l356,"l356"),QIList(l355,"l355"),QIList(l354,"l354"),QIList(l353,"l353"),QIList(l352,"l352"),QIList(l351,"l351"),QIList(l350,"l350"),QIList(l349,"l349"),QIList(l348,"l348"),QIList(l347,"l347"),QIList(l346,"l346"),QIList(l345,"l345"),QIList(l344,"l344"),QIList(l343,"l343"),QIList(l342,"l342"),QIList(l341,"l341"),QIList(l340,"l340"),QIList(l339,"l339"),QIList(l338,"l338"),QIList(l337,"l337"),QIList(l336,"l336"),QIList(l335,"l335"),QIList(l334,"l334"),QIList(l333,"l333"),QIList(l332,"l332"),QIList(l331,"l331"),QIList(l330,"l330"),QIList(l329,"l329"),QIList(l328,"l328"),QIList(l327,"l327"),QIList(l326,"l326"),QIList(l325,"l325"),QIList(l324,"l324"),QIList(l323,"l323"),QIList(l322,"l322"),QIList(l321,"l321"),QIList(l320,"l320"),QIList(l319,"l319"),QIList(l318,"l318"),QIList(l317,"l317"),QIList(l316,"l316"),QIList(l315,"l315"),QIList(l314,"l314"),QIList(l313,"l313"),QIList(l312,"l312"),QIList(l311,"l311"),QIList(l310,"l310"),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(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(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(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"),l5); +(function(){ + l148.fvalue(pv, l426); + l148.fvalue(pv, l425); + l148.fvalue(pv, l424); + l148.fvalue(pv, l423); + l148.fvalue(pv, l422); + l148.fvalue(pv, l421); + l148.fvalue(pv, l420); + l148.fvalue(pv, l419); + l148.fvalue(pv, l418); + l148.fvalue(pv, l417); + l148.fvalue(pv, l416); + l148.fvalue(pv, l415); + l148.fvalue(pv, l414); + l148.fvalue(pv, l413); + l148.fvalue(pv, l412); + l148.fvalue(pv, l411); + l148.fvalue(pv, l410); + l148.fvalue(pv, l409); + l148.fvalue(pv, l408); + l148.fvalue(pv, l407); + l148.fvalue(pv, l406); + l148.fvalue(pv, l405); + l148.fvalue(pv, l404); + l148.fvalue(pv, l403); + l148.fvalue(pv, l402); + l148.fvalue(pv, l401); + l148.fvalue(pv, l400); + l148.fvalue(pv, l399); + l148.fvalue(pv, l398); + l148.fvalue(pv, l397); + l148.fvalue(pv, l396); + l148.fvalue(pv, l395); + l148.fvalue(pv, l394); + l148.fvalue(pv, l393); + l148.fvalue(pv, l392); + l148.fvalue(pv, l391); + l148.fvalue(pv, l390); + l148.fvalue(pv, l389); + l148.fvalue(pv, l388); + l148.fvalue(pv, l387); + l148.fvalue(pv, l386); + l148.fvalue(pv, l385); + l148.fvalue(pv, l384); + l148.fvalue(pv, l383); + l148.fvalue(pv, l382); + l148.fvalue(pv, l381); + l148.fvalue(pv, l380); + l148.fvalue(pv, l379); + l148.fvalue(pv, l378); + l148.fvalue(pv, l377); + l148.fvalue(pv, l376); + l148.fvalue(pv, l375); + l148.fvalue(pv, l374); + l148.fvalue(pv, l373); + l148.fvalue(pv, l371); + l148.fvalue(pv, l370); + l148.fvalue(pv, l369); + l148.fvalue(pv, l368); + l148.fvalue(pv, l367); + l148.fvalue(pv, l366); + l148.fvalue(pv, l365); + l148.fvalue(pv, l364); + l148.fvalue(pv, l363); + l148.fvalue(pv, l362); + l148.fvalue(pv, l361); + l148.fvalue(pv, l360); + l148.fvalue(pv, l359); + l148.fvalue(pv, l358); + l148.fvalue(pv, l357); + l148.fvalue(pv, l356); + l148.fvalue(pv, l355); + l148.fvalue(pv, l354); + l148.fvalue(pv, l353); + l148.fvalue(pv, l352); + l148.fvalue(pv, l351); + l148.fvalue(pv, l350); + l148.fvalue(pv, l349); + l148.fvalue(pv, l348); + l148.fvalue(pv, l347); + l148.fvalue(pv, l346); + l148.fvalue(pv, l345); + l148.fvalue(pv, l344); + l148.fvalue(pv, l343); + l148.fvalue(pv, l342); + l148.fvalue(pv, l341); + l148.fvalue(pv, l340); + l148.fvalue(pv, l339); + l148.fvalue(pv, l338); + l148.fvalue(pv, l337); + l148.fvalue(pv, l336); + l148.fvalue(pv, l335); + l148.fvalue(pv, l334); + l148.fvalue(pv, l333); + l148.fvalue(pv, l332); + l148.fvalue(pv, l331); + l148.fvalue(pv, l330); + l148.fvalue(pv, l329); + l148.fvalue(pv, l328); + l148.fvalue(pv, l327); + l148.fvalue(pv, l326); + l148.fvalue(pv, l325); + l148.fvalue(pv, l324); + l148.fvalue(pv, l323); + l148.fvalue(pv, l322); + l148.fvalue(pv, l321); + l148.fvalue(pv, l320); + l148.fvalue(pv, l319); + l148.fvalue(pv, l318); + l148.fvalue(pv, l317); + l148.fvalue(pv, l316); + l148.fvalue(pv, l315); + l148.fvalue(pv, l314); + l148.fvalue(pv, l313); + l148.fvalue(pv, l312); + l148.fvalue(pv, l311); + l148.fvalue(pv, l310); + l148.fvalue(pv, l309); + l148.fvalue(pv, l308); + l148.fvalue(pv, l307); + l148.fvalue(pv, l306); + l148.fvalue(pv, l305); + l148.fvalue(pv, l304); + l148.fvalue(pv, l303); + l148.fvalue(pv, l302); + l148.fvalue(pv, l301); + l148.fvalue(pv, l300); + l148.fvalue(pv, l299); + l148.fvalue(pv, l298); + l148.fvalue(pv, l297); + l148.fvalue(pv, l296); + l148.fvalue(pv, l295); + l148.fvalue(pv, l294); + l148.fvalue(pv, l293); + l148.fvalue(pv, l292); + l148.fvalue(pv, l290); + l148.fvalue(pv, l289); + l148.fvalue(pv, l288); + l148.fvalue(pv, l287); + l148.fvalue(pv, l286); + l148.fvalue(pv, l285); + l148.fvalue(pv, l284); + l148.fvalue(pv, l283); + l148.fvalue(pv, l282); + l148.fvalue(pv, l281); + l148.fvalue(pv, l280); + l148.fvalue(pv, l279); + l148.fvalue(pv, l278); + l148.fvalue(pv, l277); + l148.fvalue(pv, l276); + l148.fvalue(pv, l275); + l148.fvalue(pv, l274); + l148.fvalue(pv, l273); + l148.fvalue(pv, l272); + l148.fvalue(pv, l271); + l148.fvalue(pv, l270); + l148.fvalue(pv, l269); + l148.fvalue(pv, l268); + l148.fvalue(pv, l267); + l148.fvalue(pv, l266); + l148.fvalue(pv, l265); + l148.fvalue(pv, l264); + l148.fvalue(pv, l263); + l148.fvalue(pv, l262); + l148.fvalue(pv, l261); + l148.fvalue(pv, l260); + l148.fvalue(pv, l259); + l148.fvalue(pv, l258); + l148.fvalue(pv, l257); + l148.fvalue(pv, l256); + l148.fvalue(pv, l255); + l148.fvalue(pv, l254); + l148.fvalue(pv, l253); + l148.fvalue(pv, l252); + l148.fvalue(pv, l251); + l148.fvalue(pv, l250); + l148.fvalue(pv, l249); + l148.fvalue(pv, l248); + l148.fvalue(pv, l247); + l148.fvalue(pv, l246); + l148.fvalue(pv, l245); + l148.fvalue(pv, l244); + l148.fvalue(pv, l243); + l148.fvalue(pv, l242); + l148.fvalue(pv, l241); + l148.fvalue(pv, l240); + l148.fvalue(pv, l239); + l148.fvalue(pv, l238); + l148.fvalue(pv, l236); + l148.fvalue(pv, l235); + l148.fvalue(pv, l234); + l148.fvalue(pv, l233); + l148.fvalue(pv, l232); + l148.fvalue(pv, l231); + l148.fvalue(pv, l230); + l148.fvalue(pv, l229); + l148.fvalue(pv, l228); + l148.fvalue(pv, l227); + l148.fvalue(pv, l226); + l148.fvalue(pv, l225); + l148.fvalue(pv, l224); + l148.fvalue(pv, l223); + l148.fvalue(pv, l222); + l148.fvalue(pv, l221); + l148.fvalue(pv, l220); + l148.fvalue(pv, l219); + l148.fvalue(pv, l218); + l148.fvalue(pv, l217); + l148.fvalue(pv, l216); + l148.fvalue(pv, l215); + l148.fvalue(pv, l214); + l148.fvalue(pv, l213); + l148.fvalue(pv, l212); + l148.fvalue(pv, l211); + l148.fvalue(pv, l210); + l148.fvalue(pv, l209); + l148.fvalue(pv, l208); + l148.fvalue(pv, l207); + l148.fvalue(pv, l206); + l148.fvalue(pv, l205); + l148.fvalue(pv, l204); + l148.fvalue(pv, l203); + l148.fvalue(pv, l202); + l148.fvalue(pv, l201); + l148.fvalue(pv, l200); + l148.fvalue(pv, l199); + l148.fvalue(pv, l198); + l148.fvalue(pv, l197); + l148.fvalue(pv, l196); + l148.fvalue(pv, l195); + l148.fvalue(pv, l194); + l148.fvalue(pv, l193); + l148.fvalue(pv, l192); + l148.fvalue(pv, l191); + l148.fvalue(pv, l190); + l148.fvalue(pv, l189); + l148.fvalue(pv, l188); + l148.fvalue(pv, l187); + l148.fvalue(pv, l186); + l148.fvalue(pv, l185); + l148.fvalue(pv, l184); + l148.fvalue(pv, l183); + l148.fvalue(pv, l182); + l148.fvalue(pv, l181); + l148.fvalue(pv, l180); + l148.fvalue(pv, l179); + l148.fvalue(pv, l178); + l148.fvalue(pv, l177); + l148.fvalue(pv, l176); + l148.fvalue(pv, l175); + l148.fvalue(pv, l174); + l148.fvalue(pv, l173); + l148.fvalue(pv, l172); + l148.fvalue(pv, l171); + l148.fvalue(pv, l170); + l148.fvalue(pv, l169); + l148.fvalue(pv, l168); + l148.fvalue(pv, l167); + l148.fvalue(pv, l166); + l148.fvalue(pv, l165); + l148.fvalue(pv, l164); + l148.fvalue(pv, l163); + l148.fvalue(pv, l162); + l148.fvalue(pv, l161); + l148.fvalue(pv, l160); + l148.fvalue(pv, l159); + l148.fvalue(pv, l158); + l148.fvalue(pv, l157); + l148.fvalue(pv, l156); + l148.fvalue(pv, l155); + l148.fvalue(pv, l154); + l148.fvalue(pv, l153); + l148.fvalue(pv, l152); + l148.fvalue(pv, l151); + l148.fvalue(pv, l150); + l148.fvalue(pv, l149); + l148.fvalue(pv, l148); + l148.fvalue(pv, l147); + l148.fvalue(pv, l146); + l148.fvalue(pv, l145); + l148.fvalue(pv, l144); + l148.fvalue(pv, l143); + l148.fvalue(pv, l142); + l148.fvalue(pv, l141); + l148.fvalue(pv, l140); + l148.fvalue(pv, l139); + l148.fvalue(pv, l138); + l148.fvalue(pv, l137); + l148.fvalue(pv, l136); + l148.fvalue(pv, l135); + l148.fvalue(pv, l134); + l148.fvalue(pv, l133); + l148.fvalue(pv, l132); + l148.fvalue(pv, l131); + l148.fvalue(pv, l130); + l148.fvalue(pv, l129); + l148.fvalue(pv, l128); + l148.fvalue(pv, l127); + l148.fvalue(pv, l126); + l148.fvalue(pv, l125); + l148.fvalue(pv, l124); + l148.fvalue(pv, l123); + l148.fvalue(pv, l122); + l148.fvalue(pv, l121); + l148.fvalue(pv, l120); + l148.fvalue(pv, l119); + l148.fvalue(pv, l118); + l148.fvalue(pv, l117); + l148.fvalue(pv, l116); + l148.fvalue(pv, l115); + l148.fvalue(pv, l114); + l148.fvalue(pv, l113); + l148.fvalue(pv, l112); + l148.fvalue(pv, l111); + l148.fvalue(pv, l110); + l148.fvalue(pv, l109); + l148.fvalue(pv, l108); + l148.fvalue(pv, l107); + l148.fvalue(pv, l106); + l148.fvalue(pv, l105); + l148.fvalue(pv, l104); + l148.fvalue(pv, l103); + l148.fvalue(pv, l102); + l148.fvalue(pv, l101); + l148.fvalue(pv, l100); + l148.fvalue(pv, l99); + l148.fvalue(pv, l98); + l148.fvalue(pv, l97); + l148.fvalue(pv, l96); + l148.fvalue(pv, l95); + l148.fvalue(pv, l94); + l148.fvalue(pv, l93); + l148.fvalue(pv, l92); + l148.fvalue(pv, l91); + l148.fvalue(pv, l90); + l148.fvalue(pv, l89); + l148.fvalue(pv, l88); + l148.fvalue(pv, l87); + l148.fvalue(pv, l86); + l148.fvalue(pv, l85); + l148.fvalue(pv, l84); + l148.fvalue(pv, l83); + l148.fvalue(pv, l82); + l148.fvalue(pv, l81); + l148.fvalue(pv, l80); + l148.fvalue(pv, l79); + l148.fvalue(pv, l78); + l148.fvalue(pv, l77); + l148.fvalue(pv, l76); + l148.fvalue(pv, l75); + l148.fvalue(pv, l74); + l148.fvalue(pv, l73); + l148.fvalue(pv, l72); + l148.fvalue(pv, l71); + l148.fvalue(pv, l70); + l148.fvalue(pv, l69); + l148.fvalue(pv, l68); + l148.fvalue(pv, l67); + l148.fvalue(pv, l66); + l148.fvalue(pv, l65); + l148.fvalue(pv, l64); + l148.fvalue(pv, l63); + l148.fvalue(pv, l62); + l148.fvalue(pv, l61); + l148.fvalue(pv, l60); + l148.fvalue(pv, l59); + l148.fvalue(pv, l58); + l148.fvalue(pv, l57); + l148.fvalue(pv, l56); + l148.fvalue(pv, l55); + l148.fvalue(pv, l54); + l148.fvalue(pv, l53); + l148.fvalue(pv, l52); + l148.fvalue(pv, l51); + l148.fvalue(pv, l50); + l148.fvalue(pv, l49); + l148.fvalue(pv, l48); + l148.fvalue(pv, l47); + l148.fvalue(pv, l46); + l148.fvalue(pv, l45); + l148.fvalue(pv, l44); + l148.fvalue(pv, l43); + l148.fvalue(pv, l42); + l148.fvalue(pv, l41); + l148.fvalue(pv, l40); + l148.fvalue(pv, l39); + l148.fvalue(pv, l38); + l148.fvalue(pv, l37); + l148.fvalue(pv, l36); + l148.fvalue(pv, l35); + l148.fvalue(pv, l34); + l148.fvalue(pv, l33); + l148.fvalue(pv, l32); + l148.fvalue(pv, l31); + l148.fvalue(pv, l30); + l148.fvalue(pv, l29); + l148.fvalue(pv, l28); + l148.fvalue(pv, l27); + l148.fvalue(pv, l26); + l148.fvalue(pv, l25); + l148.fvalue(pv, l24); + l148.fvalue(pv, l23); + l148.fvalue(pv, l22); + l148.fvalue(pv, l21); + l148.fvalue(pv, l20); + l148.fvalue(pv, l19); + l148.fvalue(pv, l18); + l148.fvalue(pv, l17); + l148.fvalue(pv, l16); + l148.fvalue(pv, l15); + l148.fvalue(pv, l14); + l148.fvalue(pv, l13); + l148.fvalue(pv, l12); + l148.fvalue(pv, l11); + l148.fvalue(pv, l10); + l148.fvalue(pv, l9); + l148.fvalue(pv, l8); + l148.fvalue(pv, l7); + l148.fvalue(pv, l6); + l148.fvalue(pv, l5); + l148.fvalue(pv, l4); + l148.fvalue(pv, l3); + l148.fvalue(pv, l2); + l148.fvalue(pv, l1); + ((l259).value = l428); + ((l213).value = 1183); + ((l17).value = 454); + return ((l280).value = 332); +})(); +((l260).value = 428); diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 9ab908e..8fe11a9 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -495,39 +495,35 @@ (t (error "Unsupported argument.")))) + (defmacro do-sequence (iteration &body body) + (let ((seq (gensym)) + (index (gensym))) + `(let ((,seq ,(second iteration))) + (cond + ;; Strings + ((stringp ,seq) + (let ((,index 0)) + (dotimes (,index (length ,seq)) + (let ((,(first iteration) + (char ,seq ,index))) + ,@body)))) + ;; Lists + ((listp ,seq) + (dolist (,(first iteration) ,seq) + ,@body)) + (t + (error "type-error!")))))) + (defun some (function seq) - (cond - ((stringp seq) - (let ((index 0) - (size (length seq))) - (while (< index size) - (when (funcall function (char seq index)) - (return-from some t)) - (incf index)) - nil)) - ((listp seq) - (dolist (x seq nil) - (when (funcall function x) - (return t)))) - (t - (error "Unknown sequence.")))) + (do-sequence (elt seq) + (when (funcall function elt) + (return-from some t)))) (defun every (function seq) - (cond - ((stringp seq) - (let ((index 0) - (size (length seq))) - (while (< index size) - (unless (funcall function (char seq index)) - (return-from every nil)) - (incf index)) - t)) - ((listp seq) - (dolist (x seq t) - (unless (funcall function x) - (return)))) - (t - (error "Unknown sequence.")))) + (do-sequence (elt seq) + (unless (funcall function elt) + (return-from every nil))) + t) (defun assoc (x alist) (while alist @@ -704,8 +700,8 @@ (defun nreconc (x y) (do ((1st (cdr x) (if (endp 1st) 1st (cdr 1st))) - (2nd x 1st) ; 2nd follows first down the list. - (3rd y 2nd)) ;3rd follows 2nd down the list. + (2nd x 1st) ; 2nd follows first down the list. + (3rd y 2nd)) ;3rd follows 2nd down the list. ((atom 2nd) 3rd) (rplacd 2nd 3rd))) -- 1.7.10.4