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