+ (l159).fvalue = (function(v322){
+ ((v322)["fname"] = "PRINT");
+ return v322;
+ })((function (values,v321){
+ checkArgs(arguments, 2);
+ return (function(){
+ l106.fvalue(pv, l156.fvalue(pv, v321));
+ return v321;
+ })();
+ }));
+ return l159;
+})();
+var l160 = {name: "MAKE-STRING-STREAM"};
+(function(){
+ (l160).fvalue = (function(v324){
+ ((v324)["fname"] = "MAKE-STRING-STREAM");
+ return v324;
+ })((function (values,v323){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ({car: v323, cdr: 0});
+ })();
+ }));
+ return l160;
+})();
+var l161 = {name: "%PEEK-CHAR"};
+(function(){
+ (l161).fvalue = (function(v326){
+ ((v326)["fname"] = "%PEEK-CHAR");
+ return v326;
+ })((function (values,v325){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((function(){
+ var x1 = (function(){
+ var tmp = v325;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l72.fvalue(pv, (function(){
+ var tmp = v325;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value ? (function(){
+ var string = (function(){
+ var tmp = v325;
+ return tmp === l5.value? l5.value: tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v325;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })();
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })() : l5.value);
+ })();
+ }));
+ return l161;
+})();
+var l162 = {name: "%READ-CHAR"};
+(function(){
+ (l162).fvalue = (function(v329){
+ ((v329)["fname"] = "%READ-CHAR");
+ return v329;
+ })((function (values,v327){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((function(){
+ var x1 = (function(){
+ var tmp = v327;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l72.fvalue(pv, (function(){
+ var tmp = v327;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value ? (function(v328){
+ (function(){
+ var x = v327;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.cdr = l23.fvalue(pv, (function(){
+ var tmp = v327;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })()), x);
+ })();
+ return v328;
+ })((function(){
+ var string = (function(){
+ var tmp = v327;
+ return tmp === l5.value? l5.value: tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v327;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })();
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) : l5.value);
+ })();
+ }));
+ return l162;
+})();
+var l163 = {name: "WHITESPACEP"};
+(function(){
+ (l163).fvalue = (function(v333){
+ ((v333)["fname"] = "WHITESPACEP");
+ return v333;
+ })((function (values,v330){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v331){
+ return (v331 !== l5.value ? v331 : (function(v332){
+ return (v332 !== l5.value ? v332 : l84.fvalue(values, v330, 9));
+ })(l84.fvalue(pv, v330, 10)));
+ })(l84.fvalue(pv, v330, 32));
+ })();
+ }));
+ return l163;
+})();
+var l164 = {name: "SKIP-WHITESPACES"};
+(function(){
+ (l164).fvalue = (function(v336){
+ ((v336)["fname"] = "SKIP-WHITESPACES");
+ return v336;
+ })((function (values,v334){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v335){
+ (v335 = l161.fvalue(pv, v334));
+ return (function(){
+ return (function(){
+ while((v335 !== l5.value ? l163.fvalue(pv, v335) : l5.value) !== l5.value){
+ l162.fvalue(pv, v334);
+ (v335 = l161.fvalue(pv, v334));
+ }return l5.value;
+ })();
+ })();
+ })(l5.value);
+ })();
+ }));
+ return l164;
+})();
+var l165 = {name: "TERMINALP"};
+(function(){
+ (l165).fvalue = (function(v341){
+ ((v341)["fname"] = "TERMINALP");
+ return v341;
+ })((function (values,v337){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v338){
+ return (v338 !== l5.value ? v338 : (function(v339){
+ return (v339 !== l5.value ? v339 : (function(v340){
+ return (v340 !== l5.value ? v340 : l84.fvalue(values, 40, v337));
+ })(l84.fvalue(pv, 41, v337)));
+ })(l163.fvalue(pv, v337)));
+ })(l13.fvalue(pv, v337));
+ })();
+ }));
+ return l165;
+})();
+var l166 = {name: "READ-UNTIL"};
+(function(){
+ (l166).fvalue = (function(v346){
+ ((v346)["fname"] = "READ-UNTIL");
+ return v346;
+ })((function (values,v342,v343){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v344,v345){
+ (v345 = l161.fvalue(pv, v342));
+ (function(){
+ return (function(){
+ while((v345 !== l5.value ? l28.fvalue(pv, (v343)(pv, v345)) : l5.value) !== l5.value){
+ (v344 = l147.fvalue(pv, v344, l102.fvalue(pv, v345)));
+ l162.fvalue(pv, v342);
+ (v345 = l161.fvalue(pv, v342));
+ }return l5.value;
+ })();
+ })();
+ return v344;
+ })("",l5.value);
+ })();
+ }));
+ return l166;
+})();
+var l167 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
+(function(){
+ (l167).fvalue = (function(v350){
+ ((v350)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
+ return v350;
+ })((function (values,v347){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v348){
+ l164.fvalue(pv, v347);
+ (v348 = l161.fvalue(pv, v347));
+ return (function(){
+ return (function(){
+ while((v348 !== l5.value ? l84.fvalue(pv, v348, 59) : l5.value) !== l5.value){
+ l166.fvalue(pv, v347, (function (values,v349){
+ checkArgs(arguments, 2);
+ return l84.fvalue(values, v349, 10);
+ }));
+ l164.fvalue(pv, v347);
+ (v348 = l161.fvalue(pv, v347));
+ }return l5.value;
+ })();
+ })();
+ })(l5.value);
+ })();
+ }));
+ return l167;
+})();
+var l168 = {name: "%READ-LIST"};
+var l169 = {name: "LS-READ"};
+(function(){
+ (l168).fvalue = (function(v354){
+ ((v354)["fname"] = "%READ-LIST");
+ return v354;
+ })((function (values,v351){
+ checkArgs(arguments, 2);
+ return (function(){
+ l167.fvalue(pv, v351);
+ return (function(v352){
+ return (l13.fvalue(pv, v352) !== l5.value ? (function(){
+ throw "Unspected EOF";
+ })() : (l84.fvalue(pv, v352, 41) !== l5.value ? (function(){
+ l162.fvalue(pv, v351);
+ return l5.value;
+ })() : (l84.fvalue(pv, v352, 46) !== l5.value ? (function(){
+ l162.fvalue(pv, v351);
+ return (function(v353){
+ l167.fvalue(pv, v351);
+ (l84.fvalue(pv, l162.fvalue(pv, v351), 41) !== l5.value ? l5.value : (function(){
+ throw "')' was expected.";
+ })());
+ return v353;
+ })(l169.fvalue(pv, v351));
+ })() : ({car: l169.fvalue(pv, v351), cdr: l168.fvalue(pv, v351)}))));
+ })(l161.fvalue(pv, v351));
+ })();
+ }));
+ return l168;
+})();
+var l170 = {name: "READ-STRING"};
+(function(){
+ (l170).fvalue = (function(v358){
+ ((v358)["fname"] = "READ-STRING");
+ return v358;
+ })((function (values,v355){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v356,v357){
+ (v357 = l162.fvalue(pv, v355));
+ (function(){
+ return (function(){
+ while(l28.fvalue(pv, l27.fvalue(pv, v357, 34)) !== l5.value){
+ (l13.fvalue(pv, v357) !== l5.value ? (function(){
+ throw "Unexpected EOF";
+ })() : l5.value);
+ (l27.fvalue(pv, v357, 92) !== l5.value ? (v357 = l162.fvalue(pv, v355)) : l5.value);
+ (v356 = l147.fvalue(pv, v356, l102.fvalue(pv, v357)));
+ (v357 = l162.fvalue(pv, v355));
+ }return l5.value;
+ })();
+ })();
+ return v356;
+ })("",l5.value);
+ })();
+ }));
+ return l170;
+})();
+var l171 = {name: "READ-SHARP"};
+(function(){
+ (l171).fvalue = (function(v363){
+ ((v363)["fname"] = "READ-SHARP");
+ return v363;
+ })((function (values,v359){
+ checkArgs(arguments, 2);
+ return (function(){
+ l162.fvalue(pv, v359);
+ return (function(v360){
+ return (l27.fvalue(pv, v360, 39) !== l5.value ? l45.fvalue(values, l108, l169.fvalue(pv, v359)) : (l27.fvalue(pv, v360, 40) !== l5.value ? l153.fvalue(values, l168.fvalue(pv, v359)) : (l27.fvalue(pv, v360, 58) !== l5.value ? (function(){
+ var name = (function(){
+ var x = l166.fvalue(pv, v359, (function(){
+ var symbol = l165;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })());
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })();
+ if (typeof name != 'string')
+ throw 'The value ' + name + ' is not a type string.';
+ return ({name: name});
+ })() : (l27.fvalue(pv, v360, 92) !== l5.value ? (function(v361){
+ return (l103.fvalue(pv, v361, "space") !== l5.value ? l83.fvalue(values, 32) : (l103.fvalue(pv, v361, "tab") !== l5.value ? l83.fvalue(values, 9) : (l103.fvalue(pv, v361, "newline") !== l5.value ? l83.fvalue(values, 10) : l83.fvalue(values, (function(){
+ var string = v361;
+ var index = 0;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()))));
+ })(l147.fvalue(pv, l102.fvalue(pv, l162.fvalue(pv, v359)), l166.fvalue(pv, v359, (function(){
+ var symbol = l165;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()))) : (l27.fvalue(pv, v360, 43) !== l5.value ? (function(v362){
+ return (l103.fvalue(pv, v362, "common-lisp") !== l5.value ? (function(){
+ l169.fvalue(pv, v359);
+ return l169.fvalue(values, v359);
+ })() : (l103.fvalue(pv, v362, "ecmalisp") !== l5.value ? l169.fvalue(values, v359) : (function(){
+ throw "Unknown reader form.";
+ })()));
+ })(l166.fvalue(pv, v359, (function(){
+ var symbol = l165;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())) : (function(){
+ throw "ECASE expression failed.";
+ })())))));
+ })(l162.fvalue(pv, v359));
+ })();
+ }));
+ return l171;
+})();
+var l172 = {name: "READ-SYMBOL"};
+(function(){
+ (l172).fvalue = (function(v371){
+ ((v371)["fname"] = "READ-SYMBOL");
+ return v371;
+ })((function (values,v364){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v365,v366,v367,v368,v369){
+ (v369 = 0);
+ (function(){
+ return (function(){
+ while(((function(){
+ var x1 = v369;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v365;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value ? l28.fvalue(pv, l84.fvalue(pv, (function(){
+ var string = v364;
+ var index = v369;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 58)) : l5.value) !== l5.value){
+ (v369 = (function(){
+ var x1 = v369;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ }return l5.value;
+ })();
+ })();
+ ((function(){
+ var x1 = v369;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v365;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1==x2?l4.value: l5.value);
+ })() !== l5.value ? (function(){
+ (v367 = v364);
+ (v366 = (function(){
+ var symbol = l136;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return (v368 = l4.value);
+ })() : (function(){
+ (l25.fvalue(pv, v369) !== l5.value ? (v366 = "KEYWORD") : (v366 = (function(){
+ var x = l98.fvalue(pv, v364, 0, v369);
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })()));
+ (v369 = (function(){
+ var x1 = v369;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ (l84.fvalue(pv, (function(){
+ var string = v364;
+ var index = v369;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 58) !== l5.value ? (function(){
+ (v368 = l4.value);
+ return (v369 = (function(){
+ var x1 = v369;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ })() : l5.value);
+ return (v367 = l98.fvalue(pv, v364, v369));
+ })());
+ (v367 = (function(){
+ var x = v367;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })());
+ (v366 = l126.fvalue(pv, v366));
+ return ((function(v370){
+ return (v370 !== l5.value ? v370 : ((v366 === l126.fvalue(pv, "KEYWORD"))?l4.value: l5.value));
+ })(v368) !== l5.value ? l143.fvalue(values, v367, v366) : l139.fvalue(values, v367, v366));
+ })(l72.fvalue(pv, v364),l5.value,l5.value,l5.value,l5.value);
+ })();
+ }));
+ return l172;
+})();
+var l173 = {name: "!PARSE-INTEGER"};
+(function(){
+ (l173).fvalue = (function(v382){
+ ((v382)["fname"] = "!PARSE-INTEGER");
+ return v382;
+ })((function (values,v372,v373){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(){
+ try {
+ return (function(v374,v375,v376,v377){
+ (l25.fvalue(pv, v376) !== l5.value ? (function(){
+ var values = mv;
+ throw ({type: 'block', id: 144, values: values(l5.value, 0), message: 'Return from unknown block NIL.'})
+ })() : l5.value);
+ (function(v378){
+ return (l27.fvalue(pv, v378, 43) !== l5.value ? (v375 = (function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })()) : (l27.fvalue(pv, v378, 45) !== l5.value ? (function(){
+ (v377 = -1);
+ return (v375 = (function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ })() : l5.value));
+ })((function(){
+ var string = v372;
+ var index = 0;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ (((function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v376;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value ? (v374 = l96.fvalue(pv, (function(){
+ var string = v372;
+ var index = v375;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })())) : l5.value) !== l5.value ? l5.value : (function(){
+ var values = mv;
+ throw ({type: 'block', id: 144, values: values(l5.value, v375), message: 'Return from unknown block NIL.'})
+ })());
+ (v375 = (function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ (function(){
+ try {
+ return (function(){
+ while((function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v376;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value){
+ (function(v379){
+ (v379 !== l5.value ? l5.value : (function(){
+ throw ({type: 'block', id: 145, values: l5.value, message: 'Return from unknown block NIL.'})
+ })());
+ (v374 = (function(){
+ var x1 = (function(){
+ var x1 = v374;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1*10;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v379;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ return (v375 = (function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ })(l96.fvalue(pv, (function(){
+ var string = v372;
+ var index = v375;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()));
+ }return l5.value;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 145)
+ return cf.values;
+ else
+ throw cf;
+ }
+ })();
+ return ((function(v380){
+ return (v380 !== l5.value ? v380 : (function(v381){
+ return (v381 !== l5.value ? v381 : l84.fvalue(pv, (function(){
+ var string = v372;
+ var index = v375;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 32));
+ })((function(){
+ var x1 = v375;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v376;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1==x2?l4.value: l5.value);
+ })()));
+ })(v373) !== l5.value ? values((function(){
+ var x1 = v377;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v374;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1*x2;
+ })(), v375) : values(l5.value, v375));
+ })(0,0,l72.fvalue(pv, v372),1);
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 144)
+ return values.apply(this, forcemv(cf.values));
+ else
+ throw cf;
+ }
+ })();
+ })();
+ }));
+ return l173;
+})();
+var l174 = {name: "PARSE-INTEGER"};
+(function(){
+ (l174).fvalue = (function(v384){
+ ((v384)["fname"] = "PARSE-INTEGER");
+ return v384;
+ })((function (values,v383){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l173.fvalue(values, v383, l5.value);
+ })();
+ }));
+ return l174;
+})();
+var l175 = {name: "*EOF*"};
+(function(){
+ (((l175.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l175).value = l17.fvalue(pv)));
+ return l175;
+})();
+var l176 = {name: "QUOTE"};
+var l177 = {name: "BACKQUOTE"};
+var l178 = {name: "UNQUOTE-SPLICING"};
+var l179 = {name: "UNQUOTE"};
+(function(){
+ (l169).fvalue = (function(v390){
+ ((v390)["fname"] = "LS-READ");
+ return v390;
+ })((function (values,v385){
+ checkArgs(arguments, 2);
+ return (function(){
+ l167.fvalue(pv, v385);
+ return (function(v386){
+ return ((function(v387){
+ return (v387 !== l5.value ? v387 : l84.fvalue(pv, v386, 41));
+ })(l13.fvalue(pv, v386)) !== l5.value ? (function(){
+ var symbol = l175;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (l84.fvalue(pv, v386, 40) !== l5.value ? (function(){
+ l162.fvalue(pv, v385);
+ return l168.fvalue(values, v385);
+ })() : (l84.fvalue(pv, v386, 39) !== l5.value ? (function(){
+ l162.fvalue(pv, v385);
+ return l45.fvalue(values, l176, l169.fvalue(pv, v385));
+ })() : (l84.fvalue(pv, v386, 96) !== l5.value ? (function(){
+ l162.fvalue(pv, v385);
+ return l45.fvalue(values, l177, l169.fvalue(pv, v385));
+ })() : (l84.fvalue(pv, v386, 34) !== l5.value ? (function(){
+ l162.fvalue(pv, v385);
+ return l170.fvalue(values, v385);
+ })() : (l84.fvalue(pv, v386, 44) !== l5.value ? (function(){
+ l162.fvalue(pv, v385);
+ return (l27.fvalue(pv, l161.fvalue(pv, v385), 64) !== l5.value ? (function(){
+ l162.fvalue(pv, v385);
+ return l45.fvalue(values, l178, l169.fvalue(pv, v385));
+ })() : l45.fvalue(values, l179, l169.fvalue(pv, v385)));
+ })() : (l84.fvalue(pv, v386, 35) !== l5.value ? l171.fvalue(values, v385) : (function(v388){
+ return (function(v389){
+ return (v389 !== l5.value ? v389 : l172.fvalue(values, v388));
+ })(pv(l173.fvalue(pv, v388, l5.value)));
+ })(l166.fvalue(pv, v385, (function(){
+ var symbol = l165;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())))))))));
+ })(l161.fvalue(pv, v385));
+ })();
+ }));
+ return l169;
+})();
+var l180 = {name: "LS-READ-FROM-STRING"};
+(function(){
+ (l180).fvalue = (function(v392){
+ ((v392)["fname"] = "LS-READ-FROM-STRING");
+ return v392;
+ })((function (values,v391){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l169.fvalue(values, l160.fvalue(pv, v391));
+ })();
+ }));
+ return l180;
+})();
+var l181 = {name: "CODE"};
+(function(){
+ (l181).fvalue = (function(v395){
+ ((v395)["fname"] = "CODE");
+ return v395;
+ })((function (values){
+ var v393= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v393 = {car: arguments[i], cdr:
+ v393};
+ return (function(){
+ return l151.fvalue(values, (function (values,v394){
+ checkArgs(arguments, 2);
+ return (l13.fvalue(pv, v394) !== l5.value ? "" : (l85.fvalue(pv, v394) !== l5.value ? l18.fvalue(values, v394) : (((typeof(v394) == "string")?l4.value: l5.value) !== l5.value ? v394 : (function(){
+ throw "Unknown argument.";
+ })())));
+ }), v393);
+ })();
+ }));
+ return l181;
+})();
+var l182 = {name: "JS!BOOL"};
+var l183 = {name: "LS-COMPILE"};
+(function(){
+ (l182).fvalue = (function(v397){
+ ((v397)["fname"] = "JS!BOOL");
+ return v397;
+ })((function (values,v396){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l181.fvalue(values, "(", v396, "?", l183.fvalue(pv, l4.value), ": ", l183.fvalue(pv, l5.value), ")");
+ })();
+ }));
+ return l182;
+})();
+var l184 = {name: "JS!SELFCALL"};
+l184;
+var l185 = {name: "INDENT"};
+(function(){
+ (l185).fvalue = (function(v404){
+ ((v404)["fname"] = "INDENT");
+ return v404;
+ })((function (values){
+ var v398= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v398 = {car: arguments[i], cdr:
+ v398};
+ return (function(){
+ return (function(v399){
+ return (function(v400,v401,v402){
+ (l86.fvalue(pv, l72.fvalue(pv, v399)) !== l5.value ? (v400 = l147.fvalue(pv, v400, " ")) : l5.value);
+ (function(){
+ return (function(){
+ while((function(){
+ var x1 = v401;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v402;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value){
+ (function(v403){
+ return (v400 = l147.fvalue(pv, v400, v403));
+ })(((l84.fvalue(pv, (function(){
+ var string = v399;
+ var index = v401;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10) !== l5.value ? ((function(){
+ var x1 = v401;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l24.fvalue(pv, v402);
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value ? l28.fvalue(pv, l84.fvalue(pv, (function(){
+ var string = v399;
+ var index = l23.fvalue(pv, v401);
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10)) : l5.value) : l5.value) !== l5.value ? l147.fvalue(pv, l102.fvalue(pv, 10), " ") : l102.fvalue(pv, (function(){
+ var string = v399;
+ var index = v401;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })())));
+ (v401 = (function(){
+ var x1 = v401;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ }return l5.value;
+ })();
+ })();
+ return v400;
+ })("",0,l72.fvalue(pv, v399));
+ })((function(){
+ var f = (function(){
+ var symbol = l181;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })();
+ var args = [pv];
+ var tail = (v398);
+ while (tail != l5.value){
+ args.push(tail.car);
+ tail = tail.cdr;
+ }
+ return f.apply(this, args);
+ })());
+ })();
+ }));
+ return l185;
+})();
+var l186 = {name: "*MULTIPLE-VALUE-P*"};
+(function(){
+ (((l186.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l186).value = l5.value));
+ return l186;
+})();
+var l187 = {name: "MAKE-BINDING"};
+(function(){
+ (l187).fvalue = (function(v409){
+ ((v409)["fname"] = "MAKE-BINDING");
+ return v409;
+ })((function (values,v405,v406,v407,v408){
+ checkArgsAtLeast(arguments, 4);
+ checkArgsAtMost(arguments, 5);
+ switch(arguments.length-1){
+ case 3:
+ v408=l5.value;
+ default: break;
+ }
+ return (function(){
+ return l45.fvalue(values, v405, v406, v407, v408);
+ })();
+ }));
+ return l187;
+})();
+var l188 = {name: "BINDING-NAME"};
+(function(){
+ (l188).fvalue = (function(v411){
+ ((v411)["fname"] = "BINDING-NAME");
+ return v411;
+ })((function (values,v410){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l40.fvalue(values, v410);
+ })();
+ }));
+ return l188;
+})();
+var l189 = {name: "BINDING-TYPE"};
+(function(){
+ (l189).fvalue = (function(v413){
+ ((v413)["fname"] = "BINDING-TYPE");
+ return v413;
+ })((function (values,v412){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l41.fvalue(values, v412);
+ })();
+ }));
+ return l189;
+})();
+var l190 = {name: "BINDING-VALUE"};
+(function(){
+ (l190).fvalue = (function(v415){
+ ((v415)["fname"] = "BINDING-VALUE");
+ return v415;
+ })((function (values,v414){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l42.fvalue(values, v414);
+ })();
+ }));
+ return l190;
+})();
+var l191 = {name: "BINDING-DECLARATIONS"};
+(function(){
+ (l191).fvalue = (function(v417){
+ ((v417)["fname"] = "BINDING-DECLARATIONS");
+ return v417;
+ })((function (values,v416){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l43.fvalue(values, v416);
+ })();
+ }));
+ return l191;
+})();
+var l192 = {name: "SET-BINDING-VALUE"};
+(function(){
+ (l192).fvalue = (function(v420){
+ ((v420)["fname"] = "SET-BINDING-VALUE");
+ return v420;
+ })((function (values,v418,v419){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(){
+ var x = l36.fvalue(pv, v418);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = v419, x);
+ })();
+ })();
+ }));
+ return l192;
+})();
+var l193 = {name: "SET-BINDING-DECLARATIONS"};
+(function(){
+ (l193).fvalue = (function(v423){
+ ((v423)["fname"] = "SET-BINDING-DECLARATIONS");
+ return v423;
+ })((function (values,v421,v422){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(){
+ var x = l38.fvalue(pv, v421);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = v422, x);
+ })();
+ })();
+ }));
+ return l193;
+})();
+var l194 = {name: "PUSH-BINDING-DECLARATION"};
+(function(){
+ (l194).fvalue = (function(v426){
+ ((v426)["fname"] = "PUSH-BINDING-DECLARATION");
+ return v426;
+ })((function (values,v424,v425){
+ checkArgs(arguments, 3);
+ return (function(){
+ return l193.fvalue(values, v425, ({car: v424, cdr: l191.fvalue(pv, v425)}));
+ })();
+ }));
+ return l194;
+})();
+var l195 = {name: "MAKE-LEXENV"};
+(function(){
+ (l195).fvalue = (function(v427){
+ ((v427)["fname"] = "MAKE-LEXENV");
+ return v427;
+ })((function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return l45.fvalue(values, l5.value, l5.value, l5.value, l5.value);
+ })();
+ }));
+ return l195;
+})();
+var l196 = {name: "COPY-LEXENV"};
+(function(){
+ (l196).fvalue = (function(v429){
+ ((v429)["fname"] = "COPY-LEXENV");
+ return v429;
+ })((function (values,v428){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l81.fvalue(values, v428);
+ })();
+ }));
+ return l196;
+})();
+var l197 = {name: "PUSH-TO-LEXENV"};
+var l198 = {name: "BLOCK"};
+var l199 = {name: "GOTAG"};
+(function(){
+ (l197).fvalue = (function(v434){
+ ((v434)["fname"] = "PUSH-TO-LEXENV");
+ return v434;
+ })((function (values,v430,v431,v432){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v433){
+ return (l27.fvalue(pv, v433, l109) !== l5.value ? (function(){
+ var x = v431;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v430, cdr: (function(){
+ var tmp = v431;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()}), x);
+ })() : (l27.fvalue(pv, v433, l108) !== l5.value ? (function(){
+ var x = (function(){
+ var tmp = v431;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })();
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v430, cdr: l34.fvalue(pv, v431)}), x);
+ })() : (l27.fvalue(pv, v433, l198) !== l5.value ? (function(){
+ var x = l36.fvalue(pv, v431);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v430, cdr: l37.fvalue(pv, v431)}), x);
+ })() : (l27.fvalue(pv, v433, l199) !== l5.value ? (function(){
+ var x = l38.fvalue(pv, v431);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v430, cdr: l39.fvalue(pv, v431)}), x);
+ })() : (function(){
+ throw "ECASE expression failed.";
+ })()))));
+ })(v432);
+ })();
+ }));
+ return l197;
+})();
+var l200 = {name: "EXTEND-LEXENV"};
+(function(){
+ (l200).fvalue = (function(v441){
+ ((v441)["fname"] = "EXTEND-LEXENV");
+ return v441;
+ })((function (values,v435,v436,v437){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v438){
+ return (function(){
+ return (function(v439,v440){
+ (function(){
+ while(v439 !== l5.value){
+ (v440 = (function(){
+ var tmp = v439;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ (function(){
+ l197.fvalue(pv, v440, v438, v437);
+ return l5.value;
+ })();
+ (v439 = (function(){
+ var tmp = v439;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ }return l5.value;
+ })();
+ return v438;
+ })(l67.fvalue(pv, v435),l5.value);
+ })();
+ })(l196.fvalue(pv, v436));
+ })();
+ }));
+ return l200;
+})();
+var l201 = {name: "LOOKUP-IN-LEXENV"};
+(function(){
+ (l201).fvalue = (function(v446){
+ ((v446)["fname"] = "LOOKUP-IN-LEXENV");
+ return v446;
+ })((function (values,v442,v443,v444){
+ checkArgs(arguments, 4);
+ return (function(){
+ return l101.fvalue(values, v442, (function(v445){
+ return (l27.fvalue(pv, v445, l109) !== l5.value ? l40.fvalue(pv, v443) : (l27.fvalue(pv, v445, l108) !== l5.value ? l41.fvalue(pv, v443) : (l27.fvalue(pv, v445, l198) !== l5.value ? l42.fvalue(pv, v443) : (l27.fvalue(pv, v445, l199) !== l5.value ? l43.fvalue(pv, v443) : (function(){
+ throw "ECASE expression failed.";
+ })()))));
+ })(v444));
+ })();
+ }));
+ return l201;
+})();
+var l202 = {name: "*ENVIRONMENT*"};
+(function(){
+ (((l202.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l202).value = l195.fvalue(pv)));
+ return l202;
+})();
+var l203 = {name: "*VARIABLE-COUNTER*"};
+(function(){
+ (((l203.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l203).value = 0));
+ return l203;
+})();
+var l204 = {name: "GVARNAME"};
+(function(){
+ (l204).fvalue = (function(v448){
+ ((v448)["fname"] = "GVARNAME");
+ return v448;
+ })((function (values,v447){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l181.fvalue(values, "v", ((l203).value = (function(){
+ var x1 = (function(){
+ var symbol = l203;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })()));
+ })();
+ }));
+ return l204;
+})();
+var l205 = {name: "TRANSLATE-VARIABLE"};
+(function(){
+ (l205).fvalue = (function(v450){
+ ((v450)["fname"] = "TRANSLATE-VARIABLE");
+ return v450;
+ })((function (values,v449){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l190.fvalue(values, l201.fvalue(pv, v449, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l109));
+ })();
+ }));
+ return l205;
+})();
+var l206 = {name: "EXTEND-LOCAL-ENV"};
+(function(){
+ (l206).fvalue = (function(v456){
+ ((v456)["fname"] = "EXTEND-LOCAL-ENV");
+ return v456;
+ })((function (values,v451){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v452){
+ return (function(){
+ return (function(v453,v454){
+ (function(){
+ while(v453 !== l5.value){
+ (v454 = (function(){
+ var tmp = v453;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ (function(){
+ (function(v455){
+ return l197.fvalue(pv, v455, v452, l109);
+ })(l187.fvalue(pv, v454, l109, l204.fvalue(pv, v454)));
+ return l5.value;
+ })();
+ (v453 = (function(){
+ var tmp = v453;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ }return l5.value;
+ })();
+ return v452;
+ })(v451,l5.value);
+ })();
+ })(l196.fvalue(pv, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }));
+ return l206;
+})();
+var l207 = {name: "*TOPLEVEL-COMPILATIONS*"};
+(function(){
+ (((l207.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l207).value = l5.value));
+ return l207;
+})();
+var l208 = {name: "TOPLEVEL-COMPILATION"};
+(function(){
+ (l208).fvalue = (function(v458){
+ ((v458)["fname"] = "TOPLEVEL-COMPILATION");
+ return v458;
+ })((function (values,v457){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((l207).value = ({car: v457, cdr: (function(){
+ var symbol = l207;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ })();
+ }));
+ return l208;
+})();
+var l209 = {name: "NULL-OR-EMPTY-P"};
+(function(){
+ (l209).fvalue = (function(v460){
+ ((v460)["fname"] = "NULL-OR-EMPTY-P");
+ return v460;
+ })((function (values,v459){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l25.fvalue(values, l72.fvalue(pv, v459));
+ })();
+ }));
+ return l209;
+})();
+var l210 = {name: "GET-TOPLEVEL-COMPILATIONS"};
+(function(){
+ (l210).fvalue = (function(v461){
+ ((v461)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
+ return v461;
+ })((function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return l67.fvalue(values, l94.fvalue(pv, (function(){
+ var symbol = l209;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l207;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }));
+ return l210;
+})();
+var l211 = {name: "%COMPILE-DEFMACRO"};
+var l212 = {name: "MACRO"};
+(function(){
+ (l211).fvalue = (function(v464){
+ ((v464)["fname"] = "%COMPILE-DEFMACRO");
+ return v464;
+ })((function (values,v462,v463){
+ checkArgs(arguments, 3);
+ return (function(){
+ l208.fvalue(pv, l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, v462))));
+ l197.fvalue(pv, l187.fvalue(pv, v462, l212, v463), (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l108);
+ return v462;
+ })();
+ }));
+ return l211;
+})();
+var l213 = {name: "GLOBAL-BINDING"};
+(function(){
+ (l213).fvalue = (function(v470){
+ ((v470)["fname"] = "GLOBAL-BINDING");
+ return v470;
+ })((function (values,v465,v466,v467){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v468){
+ return (v468 !== l5.value ? v468 : (function(v469){
+ l197.fvalue(pv, v469, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v467);
+ return v469;
+ })(l187.fvalue(pv, v465, v466, l5.value)));
+ })(l201.fvalue(pv, v465, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v467));
+ })();
+ }));
+ return l213;
+})();
+var l214 = {name: "CLAIMP"};
+(function(){
+ (l214).fvalue = (function(v475){
+ ((v475)["fname"] = "CLAIMP");
+ return v475;
+ })((function (values,v471,v472,v473){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v474){
+ return (v474 !== l5.value ? l92.fvalue(values, v473, l191.fvalue(pv, v474)) : l5.value);
+ })(l201.fvalue(pv, v471, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v472));
+ })();
+ }));
+ return l214;
+})();
+var l215 = {name: "!PROCLAIM"};
+var l216 = {name: "SPECIAL"};
+var l217 = {name: "NOTINLINE"};
+var l218 = {name: "CONSTANT"};
+(function(){
+ (l215).fvalue = (function(v487){
+ ((v487)["fname"] = "!PROCLAIM");
+ return v487;
+ })((function (values,v476){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v477){
+ return (l27.fvalue(pv, v477, l216) !== l5.value ? (function(){
+ return (function(v478,v479){
+ (function(){
+ while(v478 !== l5.value){
+ (v479 = (function(){
+ var tmp = v478;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ (function(){
+ (function(v480){
+ return l194.fvalue(pv, l216, v480);
+ })(l213.fvalue(pv, v479, l109, l109));
+ return l5.value;
+ })();
+ (v478 = (function(){
+ var tmp = v478;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ }return l5.value;
+ })();
+ return l5.value;
+ })((function(){
+ var tmp = v476;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(),l5.value);
+ })() : (l27.fvalue(pv, v477, l217) !== l5.value ? (function(){
+ return (function(v481,v482){
+ (function(){
+ while(v481 !== l5.value){
+ (v482 = (function(){
+ var tmp = v481;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ (function(){
+ (function(v483){
+ return l194.fvalue(pv, l217, v483);
+ })(l213.fvalue(pv, v482, l108, l108));
+ return l5.value;
+ })();
+ (v481 = (function(){
+ var tmp = v481;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ }return l5.value;
+ })();
+ return l5.value;
+ })((function(){
+ var tmp = v476;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(),l5.value);
+ })() : (l27.fvalue(pv, v477, l218) !== l5.value ? (function(){
+ return (function(v484,v485){
+ (function(){
+ while(v484 !== l5.value){
+ (v485 = (function(){
+ var tmp = v484;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ (function(){
+ (function(v486){
+ return l194.fvalue(pv, l218, v486);
+ })(l213.fvalue(pv, v485, l109, l109));
+ return l5.value;
+ })();
+ (v484 = (function(){
+ var tmp = v484;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ }return l5.value;
+ })();
+ return l5.value;
+ })((function(){
+ var tmp = v476;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(),l5.value);
+ })() : l5.value)));
+ })((function(){
+ var tmp = v476;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ })();
+ }));
+ return l215;
+})();
+var l219 = {name: "PROCLAIM"};
+(l219).fvalue = (function(){
+ var symbol = l215;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})();
+var l220 = {name: "*COMPILATIONS*"};
+(function(){
+ (((l220.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l220).value = l5.value));
+ return l220;
+})();
+var l221 = {name: "DEFINE-COMPILATION"};
+l221;
+var l222 = {name: "IF"};
+((l220).value = ({car: l45.fvalue(pv, l222, (function (values,v488,v489,v490){
+ checkArgs(arguments, 4);
+ return (function(){
+ return l181.fvalue(values, "(", l183.fvalue(pv, v488), " !== ", l183.fvalue(pv, l5.value), " ? ", l183.fvalue(pv, v489, (function(){
+ var symbol = l186;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), " : ", l183.fvalue(pv, v490, (function(){
+ var symbol = l186;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ")");
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l223 = {name: "*LAMBDA-LIST-KEYWORDS*"};
+var l224 = {name: "&OPTIONAL"};
+var l225 = {name: "&REST"};
+var l226 = {name: "&KEY"};
+var l227 = QIList(l224,l225,l226,l5);
+(function(){
+ (((l223.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l223).value = l227));
+ return l223;
+})();
+var l228 = {name: "LIST-UNTIL-KEYWORD"};
+(function(){
+ (l228).fvalue = (function(v493){
+ ((v493)["fname"] = "LIST-UNTIL-KEYWORD");
+ return v493;
+ })((function (values,v491){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((function(v492){
+ return (v492 !== l5.value ? v492 : l92.fvalue(pv, (function(){
+ var tmp = v491;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), (function(){
+ var symbol = l223;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })(l13.fvalue(pv, v491)) !== l5.value ? l5.value : ({car: (function(){
+ var tmp = v491;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), cdr: l228.fvalue(pv, (function(){
+ var tmp = v491;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })())}));
+ })();
+ }));
+ return l228;
+})();
+var l229 = {name: "LAMBDA-LIST-SECTION"};
+(function(){
+ (l229).fvalue = (function(v496){
+ ((v496)["fname"] = "LAMBDA-LIST-SECTION");
+ return v496;
+ })((function (values,v494,v495){
+ checkArgs(arguments, 3);
+ return (function(){
+ return l228.fvalue(values, (function(){
+ var tmp = l92.fvalue(pv, v494, v495);
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ })();
+ }));
+ return l229;
+})();
+var l230 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
+(function(){
+ (l230).fvalue = (function(v498){
+ ((v498)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
+ return v498;
+ })((function (values,v497){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l228.fvalue(values, v497);
+ })();
+ }));
+ return l230;
+})();
+var l231 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
+(function(){
+ (l231).fvalue = (function(v500){
+ ((v500)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
+ return v500;
+ })((function (values,v499){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l78.fvalue(values, (function(){
+ var symbol = l59;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l229.fvalue(pv, l224, v499));
+ })();
+ }));
+ return l231;
+})();
+var l232 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
+(function(){
+ (l232).fvalue = (function(v502){
+ ((v502)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
+ return v502;
+ })((function (values,v501){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l78.fvalue(values, (function(){
+ var symbol = l31;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l231.fvalue(pv, v501));
+ })();
+ }));
+ return l232;
+})();
+var l233 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
+(function(){
+ (l233).fvalue = (function(v505){
+ ((v505)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
+ return v505;
+ })((function (values,v503){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v504){
+ ((function(){
+ var tmp = v504;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })() !== l5.value ? (function(){
+ throw "Bad lambda-list";
+ })() : l5.value);
+ return (function(){
+ var tmp = v504;
+ return tmp === l5.value? l5.value: tmp.car;
+ })();
+ })(l229.fvalue(pv, l225, v503));
+ })();
+ }));
+ return l233;
+})();
+var l234 = {name: "LAMBDA-LIST-KEYWORD-ARGUMENTS-CANONICAL"};
+(function(){
+ (l234).fvalue = (function(v513){
+ ((v513)["fname"] = "LAMBDA-LIST-KEYWORD-ARGUMENTS-CANONICAL");
+ return v513;
+ })((function (values,v506){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v512){
+ return l78.fvalue(values, v512, l229.fvalue(pv, l226, v506));
+ })((function (values,v507){
+ checkArgs(arguments, 2);
+ return (function(){
+ var v508 = l59.fvalue(pv, v507);
+ var v509 = l34.fvalue(pv, v508);
+ var v510 = l5.value;
+ var v511 = l5.value;
+ (l60.fvalue(pv, (function(){
+ var tmp = v508;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()) !== l5.value ? (v510 = l34.fvalue(pv, (function(){
+ var tmp = v508;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()), v511 = (function(){
+ var tmp = (function(){
+ var tmp = v508;
+ return tmp === l5.value? l5.value: tmp.car;
+ })();
+ return tmp === l5.value? l5.value: tmp.car;
+ })()) : (v510 = (function(){
+ var tmp = v508;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), v511 = l143.fvalue(pv, ((function(){
+ var tmp = v508;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()).name, "KEYWORD")));
+ return l65.fvalue(pv, l45.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, v511), l45.fvalue(pv, v510))), l45.fvalue(pv, v509));
+ })();
+ }));
+ })();
+ }));
+ return l234;
+})();
+var l235 = {name: "LAMBDA-LIST-KEYWORD-ARGUMENTS"};
+(function(){
+ (l235).fvalue = (function(v516){
+ ((v516)["fname"] = "LAMBDA-LIST-KEYWORD-ARGUMENTS");
+ return v516;
+ })((function (values,v514){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l78.fvalue(values, (function (values,v515){
+ checkArgs(arguments, 2);
+ return l41.fvalue(values, l40.fvalue(pv, v515));
+ }), l234.fvalue(pv, v514));
+ })();
+ }));
+ return l235;
+})();
+var l236 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
+(function(){
+ (l236).fvalue = (function(v519){
+ ((v519)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
+ return v519;
+ })((function (values,v518){
+ checkArgsAtLeast(arguments, 2);
+ var v517= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v517 = {car: arguments[i], cdr:
+ v517};
+ return (function(){
+ return (v518 !== l5.value ? l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "var func = ", l149.fvalue(pv, v517), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "func.docstring = '", v518, "';", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : (function(){
+ var f = (function(){
+ var symbol = l181;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })();
+ var args = [values];
+ var tail = (v517);
+ while (tail != l5.value){
+ args.push(tail.car);
+ tail = tail.cdr;
+ }
+ return f.apply(this, args);
+ })());
+ })();
+ }));
+ return l236;
+})();
+var l237 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
+var l238 = {name: "N/A"};
+(function(){
+ (l237).fvalue = (function(v525){
+ ((v525)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
+ return v525;
+ })((function (values,v520,v521,v522){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v523,v524){
+ return (function(){
+ try {
+ (((function(){
+ var x1 = v523;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return (1<x1?l4.value: l5.value);
+ })() !== l5.value ? l27.fvalue(pv, v523, v524) : l5.value) !== l5.value ? (function(){
+ var values = mv;
+ throw ({type: 'block', id: 192, values: l181.fvalue(values, "checkArgs(arguments, ", v523, ");", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), message: 'Return from unknown block NIL.'})
+ })() : l5.value);
+ return l181.fvalue(values, ((function(){
+ var x1 = v523;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return (1<x1?l4.value: l5.value);
+ })() !== l5.value ? l181.fvalue(pv, "checkArgsAtLeast(arguments, ", v523, ");", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l5.value), (((typeof (v524) == "number")?l4.value: l5.value) !== l5.value ? l181.fvalue(pv, "checkArgsAtMost(arguments, ", v524, ");", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l5.value));
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 192)
+ return values.apply(this, forcemv(cf.values));
+ else
+ throw cf;
+ }
+ })();
+ })(l23.fvalue(pv, v520),(v522 !== l5.value ? l238 : (function(){
+ var x1 = v520;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v521;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return 1+x1+x2;
+ })()));
+ })();
+ }));
+ return l237;
+})();
+var l239 = {name: "COMPILE-LAMBDA-OPTIONAL"};
+(function(){
+ (l239).fvalue = (function(v534){
+ ((v534)["fname"] = "COMPILE-LAMBDA-OPTIONAL");
+ return v534;
+ })((function (values,v526){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(){
+ var v527 = l232.fvalue(pv, v526);
+ var v528 = l72.fvalue(pv, l230.fvalue(pv, v526));
+ var v529 = l72.fvalue(pv, v527);
+ return (v527 !== l5.value ? l181.fvalue(values, "switch(arguments.length-1){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v530,v531,v532){
+ return (function(){
+ (function(){
+ return (function(){
+ while((function(){
+ var x1 = v532;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v529;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value){
+ (function(v533){
+ (v531 = ({car: l181.fvalue(pv, "case ", (function(){
+ var x1 = v532;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v528;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })(), ":", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l205.fvalue(pv, (function(){
+ var tmp = v533;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()), "=", l183.fvalue(pv, l34.fvalue(pv, v533)), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v531}));
+ return (v532 = (function(){
+ var x1 = v532;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ })(l89.fvalue(pv, v532, v530));
+ }return l5.value;
+ })();
+ })();
+ (v531 = ({car: l181.fvalue(pv, "default: break;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v531}));
+ return l149.fvalue(pv, l67.fvalue(pv, v531));
+ })();
+ })(l231.fvalue(pv, v526),l5.value,0), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l5.value);
+ })();
+ })();
+ }));
+ return l239;
+})();
+var l240 = {name: "COMPILE-LAMBDA-REST"};
+(function(){
+ (l240).fvalue = (function(v540){
+ ((v540)["fname"] = "COMPILE-LAMBDA-REST");
+ return v540;
+ })((function (values,v535){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v536,v537,v538){
+ return (v538 !== l5.value ? (function(v539){
+ return l181.fvalue(values, "var ", v539, "= ", l183.fvalue(pv, l5.value), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = arguments.length-1; i>=", (function(){
+ var x1 = v536;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v537;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return 1+x1+x2;
+ })(), "; i--)", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, v539, " = {car: arguments[i], cdr: "), v539, "};", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l205.fvalue(pv, v538)) : l5.value);
+ })(l72.fvalue(pv, l230.fvalue(pv, v535)),l72.fvalue(pv, l232.fvalue(pv, v535)),l233.fvalue(pv, v535));
+ })();
+ }));
+ return l240;
+})();
+var l241 = {name: "COMPILE-LAMBDA-PARSE-KEYWORDS"};
+(function(){
+ (l241).fvalue = (function(v550){
+ ((v550)["fname"] = "COMPILE-LAMBDA-PARSE-KEYWORDS");
+ return v550;
+ })((function (values,v541){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v542,v543,v544){
+ return l181.fvalue(values, l151.fvalue(pv, (function (values,v545){
+ checkArgs(arguments, 2);
+ return (function(v546){
+ return l181.fvalue(values, "var ", l205.fvalue(pv, v546), "; ", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l41.fvalue(pv, (function(){
+ var tmp = v545;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()));
+ }), v544), (function(v548){
+ return (v544 !== l5.value ? l181.fvalue(pv, "var i;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l151.fvalue(pv, v548, v544)) : l5.value);
+ })((function (values,v547){
+ checkArgs(arguments, 2);
+ return l181.fvalue(values, "for (i=", (function(){
+ var x1 = v542;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v543;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return 1+x1+x2;
+ })(), "; i<arguments.length; i+=2){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "if (arguments[i] === ", l183.fvalue(pv, l33.fvalue(pv, v547)), "){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l205.fvalue(pv, l34.fvalue(pv, (function(){
+ var tmp = v547;
+ return tmp === l5.value? l5.value: tmp.car;
+ })())), " = arguments[i+1];", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "break;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (i == arguments.length){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l205.fvalue(pv, l34.fvalue(pv, (function(){
+ var tmp = v547;
+ return tmp === l5.value? l5.value: tmp.car;
+ })())), " = ", l183.fvalue(pv, l34.fvalue(pv, v547)), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })), (v544 !== l5.value ? l181.fvalue(pv, "for (i=", (function(){
+ var x1 = v542;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v543;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return 1+x1+x2;
+ })(), "; i<arguments.length; i+=2){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "if (", l149.fvalue(pv, l78.fvalue(pv, (function (values,v549){
+ checkArgs(arguments, 2);
+ return l147.fvalue(values, "arguments[i] !== ", l183.fvalue(pv, l33.fvalue(pv, v549)));
+ }), v544), " && "), ")", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "throw 'Unknown keyword argument ' + arguments[i].name;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l5.value));
+ })(l72.fvalue(pv, l230.fvalue(pv, v541)),l72.fvalue(pv, l232.fvalue(pv, v541)),l234.fvalue(pv, v541));
+ })();
+ }));
+ return l241;
+})();
+var l242 = {name: "COMPILE-LAMBDA"};
+var l243 = {name: "LS-COMPILE-BLOCK"};
+(function(){
+ (l242).fvalue = (function(v563){
+ ((v563)["fname"] = "COMPILE-LAMBDA");
+ return v563;
+ })((function (values,v551,v552){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v553,v554,v555,v556,v557){
+ ((((typeof((function(){
+ var tmp = v552;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()) == "string")?l4.value: l5.value) !== l5.value ? l28.fvalue(pv, l13.fvalue(pv, (function(){
+ var tmp = v552;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })())) : l5.value) !== l5.value ? (function(){
+ (v557 = (function(){
+ var tmp = v552;
+ return tmp === l5.value? l5.value: tmp.car;
+ })());
+ return (v552 = (function(){
+ var tmp = v552;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ })() : l5.value);
+ return (function(v558,v559,v560){
+ try {
+ var tmp;
+ tmp = l202.value;
+ l202.value = v560;
+ v560 = tmp;
+ return l236.fvalue(values, v557, "(function (", l149.fvalue(pv, ({car: "values", cdr: l78.fvalue(pv, (function(){
+ var symbol = l205;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l65.fvalue(pv, v553, v554))}), ","), "){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l237.fvalue(pv, v558, v559, (function(v561){
+ return (v561 !== l5.value ? v561 : v555);
+ })(v556)), l239.fvalue(pv, v551), l240.fvalue(pv, v551), l241.fvalue(pv, v551), (function(v562){
+ try {
+ var tmp;
+ tmp = l186.value;
+ l186.value = v562;
+ v562 = tmp;
+ return l243.fvalue(pv, v552, l4.value);
+ }
+ finally {
+ l186.value = v562;
+ }
+ })(l4.value)), "})");
+ }
+ finally {
+ l202.value = v560;
+ }
+ })(l72.fvalue(pv, v553),l72.fvalue(pv, v554),l206.fvalue(pv, l65.fvalue(pv, l59.fvalue(pv, v556), v553, v554, v555)));
+ })(l230.fvalue(pv, v551),l232.fvalue(pv, v551),l235.fvalue(pv, v551),l233.fvalue(pv, v551),l5.value);
+ })();
+ }));
+ return l242;
+})();
+var l244 = {name: "SETQ-PAIR"};
+var l245 = {name: "SET"};
+(function(){
+ (l244).fvalue = (function(v567){
+ ((v567)["fname"] = "SETQ-PAIR");
+ return v567;
+ })((function (values,v564,v565){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v566){
+ return ((((l189.fvalue(pv, v566) === l109)?l4.value: l5.value) !== l5.value ? (l28.fvalue(pv, l92.fvalue(pv, l216, l191.fvalue(pv, v566))) !== l5.value ? l28.fvalue(pv, l92.fvalue(pv, l218, l191.fvalue(pv, v566))) : l5.value) : l5.value) !== l5.value ? l181.fvalue(values, l190.fvalue(pv, v566), " = ", l183.fvalue(pv, v565)) : l183.fvalue(values, l65.fvalue(pv, l45.fvalue(pv, l245), l45.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, v564))), l45.fvalue(pv, v565))));
+ })(l201.fvalue(pv, v564, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l109));
+ })();
+ }));
+ return l244;
+})();
+((l220).value = ({car: l45.fvalue(pv, l114, (function (values){
+ var v568= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v568 = {car: arguments[i], cdr:
+ v568};
+ return (function(){
+ return (function(v569){
+ (function(){
+ try {
+ return (function(){
+ while(l4.value !== l5.value){
+ (l13.fvalue(pv, v568) !== l5.value ? (function(){
+ throw ({type: 'block', id: 200, values: l5.value, message: 'Return from unknown block NIL.'})
+ })() : (l13.fvalue(pv, (function(){
+ var tmp = v568;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })()) !== l5.value ? (function(){
+ throw "Odd paris in SETQ";
+ })() : (function(){
+ (v569 = l147.fvalue(pv, v569, l147.fvalue(pv, l244.fvalue(pv, (function(){
+ var tmp = v568;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), l34.fvalue(pv, v568)), (l13.fvalue(pv, l36.fvalue(pv, v568)) !== l5.value ? "" : ", "))));
+ return (v568 = l36.fvalue(pv, v568));
+ })()));
+ }return l5.value;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 200)
+ return cf.values;
+ else
+ throw cf;
+ }
+ })();
+ return l181.fvalue(values, "(", v569, ")");
+ })("");
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l246 = {name: "JS-VREF"};
+((l220).value = ({car: l45.fvalue(pv, l246, (function (values,v570){
+ checkArgs(arguments, 2);
+ return (function(){
+ return v570;
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l247 = {name: "JS-VSET"};
+((l220).value = ({car: l45.fvalue(pv, l247, (function (values,v571,v572){
+ checkArgs(arguments, 3);
+ return (function(){
+ return l181.fvalue(values, "(", v571, " = ", l183.fvalue(pv, v572), ")");
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+(function(){
+ (l157).fvalue = (function(v579){
+ ((v579)["fname"] = "ESCAPE-STRING");
+ return v579;
+ })((function (values,v573){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v574,v575,v576){
+ (function(){
+ return (function(){
+ while((function(){
+ var x1 = v575;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v576;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l5.value);
+ })() !== l5.value){
+ (function(v577){
+ ((function(v578){
+ return (v578 !== l5.value ? v578 : l84.fvalue(pv, v577, 92));
+ })(l84.fvalue(pv, v577, 34)) !== l5.value ? (v574 = l147.fvalue(pv, v574, "\\")) : l5.value);
+ (l84.fvalue(pv, v577, 10) !== l5.value ? (function(){
+ (v574 = l147.fvalue(pv, v574, "\\"));
+ return (v577 = 110);
+ })() : l5.value);
+ return (v574 = l147.fvalue(pv, v574, l102.fvalue(pv, v577)));
+ })((function(){
+ var string = v573;
+ var index = v575;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ (v575 = (function(){
+ var x1 = v575;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ }return l5.value;
+ })();
+ })();
+ return v574;
+ })("",0,l72.fvalue(pv, v573));
+ })();
+ }));
+ return l157;
+})();
+var l248 = {name: "*LITERAL-SYMBOLS*"};
+(function(){
+ (((l248.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l248).value = l5.value));
+ return l248;
+})();
+var l249 = {name: "*LITERAL-COUNTER*"};
+(function(){
+ (((l249.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l249).value = 0));
+ return l249;
+})();
+var l250 = {name: "GENLIT"};
+(function(){
+ (l250).fvalue = (function(v580){
+ ((v580)["fname"] = "GENLIT");
+ return v580;
+ })((function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return l181.fvalue(values, "l", ((l249).value = (function(){
+ var x1 = (function(){
+ var symbol = l249;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })()));
+ })();
+ }));
+ return l250;
+})();
+var l251 = {name: "LITERAL"};
+(function(){
+ (l251).fvalue = (function(v595){
+ ((v595)["fname"] = "LITERAL");
+ return v595;
+ })((function (values,v581,v582){
+ checkArgsAtLeast(arguments, 2);
+ checkArgsAtMost(arguments, 3);
+ switch(arguments.length-1){
+ case 1:
+ v582=l5.value;
+ default: break;
+ }
+ return (function(){
+ return (l85.fvalue(pv, v581) !== l5.value ? l18.fvalue(values, v581) : (((typeof(v581) == "string")?l4.value: l5.value) !== l5.value ? l181.fvalue(values, "\"", l157.fvalue(pv, v581), "\"") : (((function(){
+ var tmp = v581;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l5.value) !== l5.value ? (function(v583){
+ return (v583 !== l5.value ? v583 : (function(v585,v586){
+ ((l248).value = ({car: ({car: v581, cdr: v585}), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ l208.fvalue(pv, l181.fvalue(pv, "var ", v585, " = ", v586));
+ return v585;
+ })(l250.fvalue(pv),(function(v584){
+ return (l13.fvalue(pv, v584) !== l5.value ? l181.fvalue(pv, "{name: \"", l157.fvalue(pv, (v581).name), "\"}") : l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l143), l45.fvalue(pv, (v581).name), l45.fvalue(pv, l127.fvalue(pv, v584)))));
+ })(l135.fvalue(pv, v581))));
+ })((function(){
+ var tmp = l101.fvalue(pv, v581, (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })()) : (((function(){
+ var tmp = v581;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l5.value) !== l5.value ? (function(){
+ var v587 = l91.fvalue(pv, v581);
+ var v588 = l90.fvalue(pv, v581);
+ var v589 = l181.fvalue(pv, "QIList(", l150.fvalue(pv, l78.fvalue(pv, (function (values,v590){
+ checkArgs(arguments, 2);
+ return l251.fvalue(values, v590, l4.value);
+ }), v587), ","), l251.fvalue(pv, (function(){
+ var tmp = v588;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), l4.value), ",", l251.fvalue(pv, (function(){
+ var tmp = v588;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), l4.value), ")");
+ return (v582 !== l5.value ? v589 : (function(v591){
+ l208.fvalue(pv, l181.fvalue(pv, "var ", v591, " = ", v589));
+ return v591;
+ })(l250.fvalue(pv)));
+ })() : (((function(){
+ var x = v581;
+ return typeof x === 'object' && 'length' in x;
+ })()?l4.value: l5.value) !== l5.value ? (function(v592){
+ return (function(v593){
+ return (v582 !== l5.value ? v593 : (function(v594){
+ l208.fvalue(pv, l181.fvalue(pv, "var ", v594, " = ", v593));
+ return v594;
+ })(l250.fvalue(pv)));
+ })(l147.fvalue(pv, "[", l149.fvalue(pv, l78.fvalue(pv, (function(){
+ var symbol = l251;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v592), ", "), "]"));
+ })(l152.fvalue(pv, v581)) : l5.value)))));
+ })();
+ }));
+ return l251;
+})();
+((l220).value = ({car: l45.fvalue(pv, l176, (function (values,v596){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l251.fvalue(values, v596);
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l252 = {name: "%WHILE"};
+((l220).value = ({car: l45.fvalue(pv, l252, (function (values,v598){
+ checkArgsAtLeast(arguments, 2);
+ var v597= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v597 = {car: arguments[i], cdr:
+ v597};
+ return (function(){
+ return l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "while(", l183.fvalue(pv, v598), " !== ", l183.fvalue(pv, l5.value), "){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l243.fvalue(pv, v597)), "}", "return ", l183.fvalue(pv, l5.value), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l253 = {name: "SYMBOL-FUNCTION"};
+((l220).value = ({car: l45.fvalue(pv, l108, (function (values,v599){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((l60.fvalue(pv, v599) !== l5.value ? (((function(){
+ var tmp = v599;
+ return tmp === l5.value? l5.value: tmp.car;
+ })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l242.fvalue(values, l34.fvalue(pv, v599), l36.fvalue(pv, v599)) : (((function(){
+ var tmp = v599;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l5.value) !== l5.value ? (function(v600){
+ return (v600 !== l5.value ? l190.fvalue(values, v600) : l183.fvalue(values, l65.fvalue(pv, l45.fvalue(pv, l253), l45.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, v599))))));
+ })(l201.fvalue(pv, v599, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l108)) : l5.value));
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l254 = {name: "MAKE-FUNCTION-BINDING"};
+(function(){
+ (l254).fvalue = (function(v602){
+ ((v602)["fname"] = "MAKE-FUNCTION-BINDING");
+ return v602;
+ })((function (values,v601){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l187.fvalue(values, v601, l108, l204.fvalue(pv, v601));
+ })();
+ }));
+ return l254;
+})();
+var l255 = {name: "COMPILE-FUNCTION-DEFINITION"};
+(function(){
+ (l255).fvalue = (function(v604){
+ ((v604)["fname"] = "COMPILE-FUNCTION-DEFINITION");
+ return v604;
+ })((function (values,v603){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l242.fvalue(values, (function(){
+ var tmp = v603;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), (function(){
+ var tmp = v603;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })());
+ })();
+ }));
+ return l255;
+})();
+var l256 = {name: "TRANSLATE-FUNCTION"};
+(function(){
+ (l256).fvalue = (function(v607){
+ ((v607)["fname"] = "TRANSLATE-FUNCTION");
+ return v607;
+ })((function (values,v605){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v606){
+ return l190.fvalue(values, v606);
+ })(l201.fvalue(pv, v605, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l108));
+ })();
+ }));
+ return l256;
+})();
+var l257 = {name: "FLET"};
+((l220).value = ({car: l45.fvalue(pv, l257, (function (values,v609){
+ checkArgsAtLeast(arguments, 2);
+ var v608= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v608 = {car: arguments[i], cdr:
+ v608};
+ return (function(){
+ return (function(){
+ try {
+ var v614 = l202.value;
+ var v610 = l78.fvalue(pv, (function(){
+ var symbol = l31;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v609);
+ var v611 = l78.fvalue(pv, (function(){
+ var symbol = l32;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v609);
+ var v612 = l78.fvalue(pv, (function(){
+ var symbol = l255;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v611);
+ ((l202).value = l200.fvalue(pv, l78.fvalue(pv, (function(){
+ var symbol = l254;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v610), (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l108));
+ return l181.fvalue(values, "(function(", l149.fvalue(pv, l78.fvalue(pv, (function(){
+ var symbol = l256;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v610), ","), "){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v613){
+ return l185.fvalue(pv, v613);
+ })(l243.fvalue(pv, v608, l4.value)), "})(", l149.fvalue(pv, v612, ","), ")");
+ }
+ finally {
+ l202.value = v614;
+ }
+ })();
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l258 = {name: "LABELS"};
+((l220).value = ({car: l45.fvalue(pv, l258, (function (values,v616){
+ checkArgsAtLeast(arguments, 2);
+ var v615= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v615 = {car: arguments[i], cdr:
+ v615};
+ return (function(){
+ return (function(){
+ try {
+ var v619 = l202.value;
+ var v617 = l78.fvalue(pv, (function(){
+ var symbol = l31;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v616);
+ ((l202).value = l200.fvalue(pv, l78.fvalue(pv, (function(){
+ var symbol = l254;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v617), (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l108));
+ return l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l151.fvalue(pv, (function (values,v618){
+ checkArgs(arguments, 2);
+ return l181.fvalue(values, "var ", l256.fvalue(pv, (function(){
+ var tmp = v618;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()), " = ", l242.fvalue(pv, l34.fvalue(pv, v618), l36.fvalue(pv, v618)), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }), v616), l243.fvalue(pv, v615, l4.value)), "})()");
+ }
+ finally {
+ l202.value = v619;
+ }
+ })();
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l259 = {name: "*COMPILING-FILE*"};
+(function(){
+ (((l259.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l259).value = l5.value));
+ return l259;
+})();
+var l260 = {name: "EVAL-WHEN-COMPILE"};
+var l261 = {name: "EVAL"};
+((l220).value = ({car: l45.fvalue(pv, l260, (function (values){
+ var v620= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v620 = {car: arguments[i], cdr:
+ v620};
+ return (function(){
+ return ((function(){
+ var symbol = l259;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l5.value ? (function(){
+ l261.fvalue(pv, ({car: l117, cdr: v620}));
+ return l5.value;
+ })() : l183.fvalue(values, l65.fvalue(pv, l45.fvalue(pv, l117), v620)));
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l262 = {name: "DEFINE-TRANSFORMATION"};
+l262;
+((l220).value = ({car: l45.fvalue(pv, l117, (function (values){
+ var v621= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v621 = {car: arguments[i], cdr:
+ v621};
+ return (function(){
+ return (l13.fvalue(pv, (function(){
+ var tmp = v621;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })()) !== l5.value ? l183.fvalue(values, (function(){
+ var tmp = v621;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), (function(){
+ var symbol = l186;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l243.fvalue(pv, v621, l4.value)), "})()"));
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l263 = {name: "SPECIAL-VARIABLE-P"};
+(function(){
+ (l263).fvalue = (function(v623){
+ ((v623)["fname"] = "SPECIAL-VARIABLE-P");
+ return v623;
+ })((function (values,v622){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (l214.fvalue(pv, v622, l109, l216) !== l5.value ? l4.value : l5.value);
+ })();
+ }));
+ return l263;
+})();
+var l264 = {name: "LET-BINDING-WRAPPER"};
+(function(){
+ (l264).fvalue = (function(v630){
+ ((v630)["fname"] = "LET-BINDING-WRAPPER");
+ return v630;
+ })((function (values,v624,v625){
+ checkArgs(arguments, 3);
+ return (function(){
+ try {
+ (l13.fvalue(pv, v624) !== l5.value ? (function(){
+ var values = mv;
+ throw ({type: 'block', id: 218, values: v625, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
+ })() : l5.value);
+ return l181.fvalue(values, "try {", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "var tmp;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l151.fvalue(pv, (function (values,v626){
+ checkArgs(arguments, 2);
+ return (function(v627){
+ return l181.fvalue(values, "tmp = ", v627, ".value;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v627, ".value = ", (function(){
+ var tmp = v626;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var tmp = v626;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), " = tmp;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, (function(){
+ var tmp = v626;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()))));
+ }), v624), v625, (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "finally {", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l151.fvalue(pv, (function (values,v628){
+ checkArgs(arguments, 2);
+ return (function(v629){
+ return l181.fvalue(values, v629, ".value", " = ", (function(){
+ var tmp = v628;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, (function(){
+ var tmp = v628;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()))));
+ }), v624)), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 218)
+ return values.apply(this, forcemv(cf.values));
+ else
+ throw cf;
+ }
+ })();
+ }));
+ return l264;
+})();
+var l265 = {name: "LET"};
+((l220).value = ({car: l45.fvalue(pv, l265, (function (values,v632){
+ checkArgsAtLeast(arguments, 2);
+ var v631= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v631 = {car: arguments[i], cdr:
+ v631};
+ return (function(){
+ return (function(){
+ try {
+ var v640 = l202.value;
+ var v633 = l78.fvalue(pv, (function(){
+ var symbol = l59;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v632);
+ var v634 = l78.fvalue(pv, (function(){
+ var symbol = l40;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v633);
+ var v635 = l78.fvalue(pv, (function(){
+ var symbol = l183;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l78.fvalue(pv, (function(){
+ var symbol = l41;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v633));
+ ((l202).value = l206.fvalue(pv, l94.fvalue(pv, (function(){
+ var symbol = l263;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v634)));
+ var v636 = l5.value;
+ return l181.fvalue(values, "(function(", l149.fvalue(pv, l78.fvalue(pv, (function (values,v637){
+ checkArgs(arguments, 2);
+ return (l263.fvalue(pv, v637) !== l5.value ? (function(v638){
+ (v636 = ({car: ({car: v637, cdr: v638}), cdr: v636}));
+ return v638;
+ })(l204.fvalue(pv, v637)) : l205.fvalue(values, v637));
+ }), v634), ","), "){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v639){
+ return l185.fvalue(pv, l264.fvalue(pv, v636, v639));
+ })(l243.fvalue(pv, v631, l4.value)), "})(", l149.fvalue(pv, v635, ","), ")");
+ }
+ finally {
+ l202.value = v640;
+ }
+ })();
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l266 = {name: "LET*-INITIALIZE-VALUE"};
+(function(){
+ (l266).fvalue = (function(v647){
+ ((v647)["fname"] = "LET*-INITIALIZE-VALUE");
+ return v647;
+ })((function (values,v641){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v642,v643){
+ return (l263.fvalue(pv, v642) !== l5.value ? l181.fvalue(values, l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l114), l45.fvalue(pv, v642), l45.fvalue(pv, v643))), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var v644 = l204.fvalue(pv, v642);
+ var v645 = l187.fvalue(pv, v642, l109, v644);
+ return (function(v646){
+ l197.fvalue(pv, v645, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l109);
+ return v646;
+ })(l181.fvalue(pv, "var ", v644, " = ", l183.fvalue(pv, v643), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })());
+ })(l40.fvalue(pv, v641),l41.fvalue(pv, v641));
+ })();
+ }));
+ return l266;
+})();
+var l267 = {name: "LET*-BINDING-WRAPPER"};
+(function(){
+ (l267).fvalue = (function(v656){
+ ((v656)["fname"] = "LET*-BINDING-WRAPPER");
+ return v656;
+ })((function (values,v648,v649){
+ checkArgs(arguments, 3);
+ return (function(){
+ try {
+ (l13.fvalue(pv, v648) !== l5.value ? (function(){
+ var values = mv;
+ throw ({type: 'block', id: 221, values: v649, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
+ })() : l5.value);
+ return (function(v651){
+ return l181.fvalue(values, "try {", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l151.fvalue(pv, (function (values,v652){
+ checkArgs(arguments, 2);
+ return (function(v653){
+ return l181.fvalue(values, "var ", (function(){
+ var tmp = v652;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), " = ", v653, ".value;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, (function(){
+ var tmp = v652;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()))));
+ }), v651), v649), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "finally {", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, l151.fvalue(pv, (function (values,v654){
+ checkArgs(arguments, 2);
+ return (function(v655){
+ return l181.fvalue(values, v655, ".value", " = ", (function(){
+ var tmp = v654;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l183.fvalue(pv, l65.fvalue(pv, l45.fvalue(pv, l176), l45.fvalue(pv, (function(){
+ var tmp = v654;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()))));
+ }), v651)), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l78.fvalue(pv, (function (values,v650){
+ checkArgs(arguments, 2);
+ return ({car: v650, cdr: l204.fvalue(pv, v650)});
+ }), l95.fvalue(pv, (function(){
+ var symbol = l263;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v648)));
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 221)
+ return values.apply(this, forcemv(cf.values));
+ else
+ throw cf;
+ }
+ })();
+ }));
+ return l267;
+})();
+var l268 = {name: "LET*"};
+((l220).value = ({car: l45.fvalue(pv, l268, (function (values,v658){
+ checkArgsAtLeast(arguments, 2);
+ var v657= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v657 = {car: arguments[i], cdr:
+ v657};
+ return (function(){
+ return (function(v659,v660){
+ try {
+ var tmp;
+ tmp = l202.value;
+ l202.value = v660;
+ v660 = tmp;
+ return l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, (function(v661,v662){
+ return l267.fvalue(pv, v661, v662);
+ })(l95.fvalue(pv, (function(){
+ var symbol = l263;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l78.fvalue(pv, (function(){
+ var symbol = l40;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v659)),l147.fvalue(pv, l151.fvalue(pv, (function(){
+ var symbol = l266;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v659), l243.fvalue(pv, v657, l4.value)))), "})()");
+ }
+ finally {
+ l202.value = v660;
+ }
+ })(l78.fvalue(pv, (function(){
+ var symbol = l59;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v658),l196.fvalue(pv, (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+})), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l269 = {name: "*BLOCK-COUNTER*"};
+(function(){
+ (((l269.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l269).value = 0));
+ return l269;
+})();
+var l270 = {name: "MULTIPLE-VALUE"};
+var l271 = {name: "USED"};
+((l220).value = ({car: l45.fvalue(pv, l198, (function (values,v664){
+ checkArgsAtLeast(arguments, 2);
+ var v663= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v663 = {car: arguments[i], cdr:
+ v663};
+ return (function(){
+ return (function(){
+ var v665 = ((l269).value = (function(){
+ var x1 = (function(){
+ var symbol = l269;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ return x1+1;
+ })());
+ var v666 = l187.fvalue(pv, v664, l198, v665);
+ ((function(){
+ var symbol = l186;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l5.value ? l194.fvalue(pv, l270, v666) : l5.value);
+ return (function(){
+ try {
+ var v668 = l202.value;
+ ((l202).value = l200.fvalue(pv, l45.fvalue(pv, v666), (function(){
+ var symbol = l202;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l198));
+ var v667 = l243.fvalue(pv, v663, l4.value);
+ return (l92.fvalue(pv, l271, l191.fvalue(pv, v666)) !== l5.value ? l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, "try {", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, v667), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (cf.type == 'block' && cf.id == ", v665, ")", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), ((function(){
+ var symbol = l186;
+ 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 = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : l181.fvalue(values, "(function(){", (function(){
+ var symbol = l146;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l185.fvalue(pv, v667), "})()"));
+ }
+ finally {
+ l202.value = v668;
+ }
+ })();
+ })();