+ }));
+ return l130;
+})();
+var l131 = {name: "VALUES-LIST"};
+(function(){
+ (l131).fvalue = (function(v271){
+ ((v271)["fname"] = "VALUES-LIST");
+ return v271;
+ })((function (values,v270){
+ checkArgs(arguments, 2);
+ return (function(){
+ return values.apply(this, l130.fvalue(pv, v270));
+ })();
+ }));
+ return l131;
+})();
+var l132 = {name: "VALUES"};
+(function(){
+ (l132).fvalue = (function(v273){
+ ((v273)["fname"] = "VALUES");
+ return v273;
+ })((function (values){
+ var v272= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v272 = {car: arguments[i], cdr:
+ v272};
+ return (function(){
+ return l131.fvalue(values, v272);
+ })();
+ }));
+ return l132;
+})();
+var l133 = {name: "MULTIPLE-VALUE-BIND"};
+l133;
+var l134 = {name: "MULTIPLE-VALUE-LIST"};
+l134;
+var l135 = {name: "INDENT"};
+(function(){
+ (l135).fvalue = (function(v280){
+ ((v280)["fname"] = "INDENT");
+ return v280;
+ })((function (values){
+ var v274= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v274 = {car: arguments[i], cdr:
+ v274};
+ return (function(){
+ return (function(v275){
+ return (function(v276,v277,v278){
+ (l76.fvalue(pv, l67.fvalue(pv, v275)) !== l3.value ? (v276 = l124.fvalue(pv, v276, " ")) : l3.value);
+ (function(){
+ return (function(){
+ while((function(){
+ var x1 = v277;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v278;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (function(v279){
+ return (v276 = l124.fvalue(pv, v276, v279));
+ })(((l74.fvalue(pv, (function(){
+ var string = v275;
+ var index = v277;
+ 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) !== l3.value ? ((function(){
+ var x1 = v277;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l22.fvalue(pv, v278);
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value ? l26.fvalue(pv, l74.fvalue(pv, (function(){
+ var string = v275;
+ var index = l21.fvalue(pv, v277);
+ 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)) : l3.value) : l3.value) !== l3.value ? l124.fvalue(pv, l92.fvalue(pv, 10), " ") : l92.fvalue(pv, (function(){
+ var string = v275;
+ var index = v277;
+ 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);
+ })())));
+ (v277 = (function(){
+ var x1 = v277;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ }return l3.value;
+ })();
+ })();
+ return v276;
+ })("",0,l67.fvalue(pv, v275));
+ })(l126.fvalue(pv, v274));
+ })();
+ }));
+ return l135;
+})();
+(function(){
+ (l16).fvalue = (function(v284){
+ ((v284)["fname"] = "INTEGER-TO-STRING");
+ return v284;
+ })((function (values,v281){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (l23.fvalue(pv, v281) !== l3.value ? "0" : (l77.fvalue(pv, v281) !== l3.value ? l124.fvalue(values, "-", l16.fvalue(pv, (function(){
+ var x1 = 0;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v281;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1-x2;
+ })())) : (function(v282){
+ (function(){
+ return (function(){
+ while(l26.fvalue(pv, l23.fvalue(pv, v281)) !== l3.value){
+ (v282 = ({car: (function(){
+ var x = v281;
+ var y = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x%y;
+ })(), cdr: v282}));
+ (v281 = l24.fvalue(pv, v281, 10));
+ }return l3.value;
+ })();
+ })();
+ return l126.fvalue(values, l69.fvalue(pv, (function (values,v283){
+ checkArgs(arguments, 2);
+ return l92.fvalue(values, (function(){
+ var string = "0123456789";
+ var index = v283;
+ 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);
+ })());
+ }), v282));
+ })(l3.value)));
+ })();
+ }));
+ return l16;
+})();
+var l136 = {name: "JS!BOOL"};
+var l137 = {name: "LS-COMPILE"};
+(function(){
+ (l136).fvalue = (function(v286){
+ ((v286)["fname"] = "JS!BOOL");
+ return v286;
+ })((function (values,v285){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l124.fvalue(values, "(", v285, "?", l137.fvalue(pv, l4.value), ": ", l137.fvalue(pv, l3.value), ")");
+ })();
+ }));
+ return l136;
+})();
+var l138 = {name: "JS!SELFCALL"};
+l138;
+var l139 = {name: "PRIN1-TO-STRING"};
+var l140 = {name: "ESCAPE-STRING"};
+(function(){
+ (l139).fvalue = (function(v292){
+ ((v292)["fname"] = "PRIN1-TO-STRING");
+ return v292;
+ })((function (values,v287){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (((function(){
+ var tmp = v287;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? ((function(){
+ var tmp = l118.fvalue(pv, (v287).name, (function(){
+ var symbol = l115;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })() !== l3.value ? (v287).name : (function(v288,v289){
+ return l124.fvalue(values, (l11.fvalue(pv, v288) !== l3.value ? "#" : (((v288 === l105.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l106.fvalue(pv, v288))), ":", v289);
+ })(l114.fvalue(pv, v287),(v287).name)) : (l75.fvalue(pv, v287) !== l3.value ? l16.fvalue(values, v287) : (((typeof(v287) == "string")?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "\"", l140.fvalue(pv, v287), "\"") : (((typeof v287 == 'function')?l4.value: l3.value) !== l3.value ? (function(v290){
+ return (v290 !== l3.value ? l124.fvalue(values, "#<FUNCTION ", v290, ">") : l124.fvalue(values, "#<FUNCTION>"));
+ })((function(){
+ var tmp = (v287)["fname"];
+ return tmp == undefined? l3.value: tmp ;
+ })()) : (l57.fvalue(pv, v287) !== l3.value ? l124.fvalue(values, "(", l127.fvalue(pv, l69.fvalue(pv, (function(){
+ var symbol = l139;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l81.fvalue(pv, v287)), " "), (function(v291){
+ return (l11.fvalue(pv, (function(){
+ var tmp = v291;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? l139.fvalue(pv, (function(){
+ var tmp = v291;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l124.fvalue(pv, l139.fvalue(pv, (function(){
+ var tmp = v291;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()), " . ", l139.fvalue(pv, (function(){
+ var tmp = v291;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())));
+ })(l80.fvalue(pv, v287)), ")") : (((function(){
+ var x = v287;
+ return typeof x === 'object' && 'length' in x;
+ })()?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "#", l139.fvalue(pv, l129.fvalue(pv, v287))) : (l104.fvalue(pv, v287) !== l3.value ? l124.fvalue(values, "#<PACKAGE ", l106.fvalue(pv, v287), ">") : l3.value)))))));
+ })();
+ }));
+ return l139;
+})();
+(function(){
+ (l96).fvalue = (function(v294){
+ ((v294)["fname"] = "WRITE-LINE");
+ return v294;
+ })((function (values,v293){
+ checkArgs(arguments, 2);
+ return (function(){
+ (function(){
+ var x = v293;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ (function(){
+ var x = (function(){
+ var symbol = l123;
+ 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 v293;
+ })();
+ }));
+ return l96;
+})();
+var l141 = {name: "WARN"};
+(function(){
+ (l141).fvalue = (function(v296){
+ ((v296)["fname"] = "WARN");
+ return v296;
+ })((function (values,v295){
+ checkArgs(arguments, 2);
+ return (function(){
+ (function(){
+ var x = "WARNING: ";
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ return l96.fvalue(values, v295);
+ })();
+ }));
+ return l141;
+})();
+var l142 = {name: "PRINT"};
+(function(){
+ (l142).fvalue = (function(v298){
+ ((v298)["fname"] = "PRINT");
+ return v298;
+ })((function (values,v297){
+ checkArgs(arguments, 2);
+ return (function(){
+ l96.fvalue(pv, l139.fvalue(pv, v297));
+ return v297;
+ })();
+ }));
+ return l142;
+})();
+var l143 = {name: "MAKE-STRING-STREAM"};
+(function(){
+ (l143).fvalue = (function(v300){
+ ((v300)["fname"] = "MAKE-STRING-STREAM");
+ return v300;
+ })((function (values,v299){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ({car: v299, cdr: 0});
+ })();
+ }));
+ return l143;
+})();
+var l144 = {name: "%PEEK-CHAR"};
+(function(){
+ (l144).fvalue = (function(v302){
+ ((v302)["fname"] = "%PEEK-CHAR");
+ return v302;
+ })((function (values,v301){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((function(){
+ var x1 = (function(){
+ var tmp = v301;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l67.fvalue(pv, (function(){
+ var tmp = v301;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value ? (function(){
+ var string = (function(){
+ var tmp = v301;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v301;
+ return tmp === l3.value? l3.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);
+ })() : l3.value);
+ })();
+ }));
+ return l144;
+})();
+var l145 = {name: "%READ-CHAR"};
+(function(){
+ (l145).fvalue = (function(v305){
+ ((v305)["fname"] = "%READ-CHAR");
+ return v305;
+ })((function (values,v303){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((function(){
+ var x1 = (function(){
+ var tmp = v303;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l67.fvalue(pv, (function(){
+ var tmp = v303;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value ? (function(v304){
+ (function(){
+ var x = v303;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.cdr = l21.fvalue(pv, (function(){
+ var tmp = v303;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ return v304;
+ })((function(){
+ var string = (function(){
+ var tmp = v303;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v303;
+ return tmp === l3.value? l3.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);
+ })()) : l3.value);
+ })();
+ }));
+ return l145;
+})();
+var l146 = {name: "WHITESPACEP"};
+(function(){
+ (l146).fvalue = (function(v309){
+ ((v309)["fname"] = "WHITESPACEP");
+ return v309;
+ })((function (values,v306){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v307){
+ return (v307 !== l3.value ? v307 : (function(v308){
+ return (v308 !== l3.value ? v308 : l74.fvalue(values, v306, 9));
+ })(l74.fvalue(pv, v306, 10)));
+ })(l74.fvalue(pv, v306, 32));
+ })();
+ }));
+ return l146;
+})();
+var l147 = {name: "SKIP-WHITESPACES"};
+(function(){
+ (l147).fvalue = (function(v312){
+ ((v312)["fname"] = "SKIP-WHITESPACES");
+ return v312;
+ })((function (values,v310){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v311){
+ (v311 = l144.fvalue(pv, v310));
+ return (function(){
+ return (function(){
+ while((v311 !== l3.value ? l146.fvalue(pv, v311) : l3.value) !== l3.value){
+ l145.fvalue(pv, v310);
+ (v311 = l144.fvalue(pv, v310));
+ }return l3.value;
+ })();
+ })();
+ })(l3.value);
+ })();
+ }));
+ return l147;
+})();
+var l148 = {name: "TERMINALP"};
+(function(){
+ (l148).fvalue = (function(v317){
+ ((v317)["fname"] = "TERMINALP");
+ return v317;
+ })((function (values,v313){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v314){
+ return (v314 !== l3.value ? v314 : (function(v315){
+ return (v315 !== l3.value ? v315 : (function(v316){
+ return (v316 !== l3.value ? v316 : l74.fvalue(values, 40, v313));
+ })(l74.fvalue(pv, 41, v313)));
+ })(l146.fvalue(pv, v313)));
+ })(l11.fvalue(pv, v313));
+ })();
+ }));
+ return l148;
+})();
+var l149 = {name: "READ-UNTIL"};
+(function(){
+ (l149).fvalue = (function(v322){
+ ((v322)["fname"] = "READ-UNTIL");
+ return v322;
+ })((function (values,v318,v319){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v320,v321){
+ (v321 = l144.fvalue(pv, v318));
+ (function(){
+ return (function(){
+ while((v321 !== l3.value ? l26.fvalue(pv, (v319)(pv, v321)) : l3.value) !== l3.value){
+ (v320 = l124.fvalue(pv, v320, l92.fvalue(pv, v321)));
+ l145.fvalue(pv, v318);
+ (v321 = l144.fvalue(pv, v318));
+ }return l3.value;
+ })();
+ })();
+ return v320;
+ })("",l3.value);
+ })();
+ }));
+ return l149;
+})();
+var l150 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
+(function(){
+ (l150).fvalue = (function(v326){
+ ((v326)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
+ return v326;
+ })((function (values,v323){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v324){
+ l147.fvalue(pv, v323);
+ (v324 = l144.fvalue(pv, v323));
+ return (function(){
+ return (function(){
+ while((v324 !== l3.value ? l74.fvalue(pv, v324, 59) : l3.value) !== l3.value){
+ l149.fvalue(pv, v323, (function (values,v325){
+ checkArgs(arguments, 2);
+ return l74.fvalue(values, v325, 10);
+ }));
+ l147.fvalue(pv, v323);
+ (v324 = l144.fvalue(pv, v323));
+ }return l3.value;
+ })();
+ })();
+ })(l3.value);
+ })();
+ }));
+ return l150;
+})();
+var l151 = {name: "%READ-LIST"};
+var l152 = {name: "LS-READ"};
+(function(){
+ (l151).fvalue = (function(v330){
+ ((v330)["fname"] = "%READ-LIST");
+ return v330;
+ })((function (values,v327){
+ checkArgs(arguments, 2);
+ return (function(){
+ l150.fvalue(pv, v327);
+ return (function(v328){
+ return (l11.fvalue(pv, v328) !== l3.value ? (function(){
+ throw "Unspected EOF";
+ })() : (l74.fvalue(pv, v328, 41) !== l3.value ? (function(){
+ l145.fvalue(pv, v327);
+ return l3.value;
+ })() : (l74.fvalue(pv, v328, 46) !== l3.value ? (function(){
+ l145.fvalue(pv, v327);
+ return (function(v329){
+ l150.fvalue(pv, v327);
+ (l74.fvalue(pv, l145.fvalue(pv, v327), 41) !== l3.value ? l3.value : (function(){
+ throw "')' was expected.";
+ })());
+ return v329;
+ })(l152.fvalue(pv, v327));
+ })() : ({car: l152.fvalue(pv, v327), cdr: l151.fvalue(pv, v327)}))));
+ })(l144.fvalue(pv, v327));
+ })();
+ }));
+ return l151;
+})();
+var l153 = {name: "READ-STRING"};
+(function(){
+ (l153).fvalue = (function(v334){
+ ((v334)["fname"] = "READ-STRING");
+ return v334;
+ })((function (values,v331){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v332,v333){
+ (v333 = l145.fvalue(pv, v331));
+ (function(){
+ return (function(){
+ while(l26.fvalue(pv, l25.fvalue(pv, v333, 34)) !== l3.value){
+ (l11.fvalue(pv, v333) !== l3.value ? (function(){
+ throw "Unexpected EOF";
+ })() : l3.value);
+ (l25.fvalue(pv, v333, 92) !== l3.value ? (v333 = l145.fvalue(pv, v331)) : l3.value);
+ (v332 = l124.fvalue(pv, v332, l92.fvalue(pv, v333)));
+ (v333 = l145.fvalue(pv, v331));
+ }return l3.value;
+ })();
+ })();
+ return v332;
+ })("",l3.value);
+ })();
+ }));
+ return l153;
+})();
+var l154 = {name: "READ-SHARP"};
+(function(){
+ (l154).fvalue = (function(v339){
+ ((v339)["fname"] = "READ-SHARP");
+ return v339;
+ })((function (values,v335){
+ checkArgs(arguments, 2);
+ return (function(){
+ l145.fvalue(pv, v335);
+ return (function(v336){
+ return (l25.fvalue(pv, v336, 39) !== l3.value ? l42.fvalue(values, l98, l152.fvalue(pv, v335)) : (l25.fvalue(pv, v336, 40) !== l3.value ? l130.fvalue(values, l151.fvalue(pv, v335)) : (l25.fvalue(pv, v336, 58) !== l3.value ? (function(){
+ var name = (function(){
+ var x = l149.fvalue(pv, v335, (function(){
+ var symbol = l148;
+ 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});
+ })() : (l25.fvalue(pv, v336, 92) !== l3.value ? (function(v337){
+ return (l93.fvalue(pv, v337, "space") !== l3.value ? l73.fvalue(values, 32) : (l93.fvalue(pv, v337, "tab") !== l3.value ? l73.fvalue(values, 9) : (l93.fvalue(pv, v337, "newline") !== l3.value ? l73.fvalue(values, 10) : l73.fvalue(values, (function(){
+ var string = v337;
+ 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);
+ })()))));
+ })(l124.fvalue(pv, l92.fvalue(pv, l145.fvalue(pv, v335)), l149.fvalue(pv, v335, (function(){
+ var symbol = l148;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()))) : (l25.fvalue(pv, v336, 43) !== l3.value ? (function(v338){
+ return (l93.fvalue(pv, v338, "common-lisp") !== l3.value ? (function(){
+ l152.fvalue(pv, v335);
+ return l152.fvalue(values, v335);
+ })() : (l93.fvalue(pv, v338, "ecmalisp") !== l3.value ? l152.fvalue(values, v335) : (function(){
+ throw "Unknown reader form.";
+ })()));
+ })(l149.fvalue(pv, v335, (function(){
+ var symbol = l148;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())) : (function(){
+ throw "ECASE expression failed.";
+ })())))));
+ })(l145.fvalue(pv, v335));
+ })();
+ }));
+ return l154;
+})();
+var l155 = {name: "READ-SYMBOL"};
+(function(){
+ (l155).fvalue = (function(v347){
+ ((v347)["fname"] = "READ-SYMBOL");
+ return v347;
+ })((function (values,v340){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v341,v342,v343,v344,v345){
+ (v345 = 0);
+ (function(){
+ return (function(){
+ while(((function(){
+ var x1 = v345;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v341;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value ? l26.fvalue(pv, l74.fvalue(pv, (function(){
+ var string = v340;
+ var index = v345;
+ 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)) : l3.value) !== l3.value){
+ (v345 = (function(){
+ var x1 = v345;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ }return l3.value;
+ })();
+ })();
+ ((function(){
+ var x1 = v345;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v341;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1==x2?l4.value: l3.value);
+ })() !== l3.value ? (function(){
+ (v343 = v340);
+ (v342 = (function(){
+ var symbol = l115;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return (v344 = l4.value);
+ })() : (function(){
+ (l23.fvalue(pv, v345) !== l3.value ? (v342 = "KEYWORD") : (v342 = (function(){
+ var x = l87.fvalue(pv, v340, 0, v345);
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })()));
+ (v345 = (function(){
+ var x1 = v345;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ (l74.fvalue(pv, (function(){
+ var string = v340;
+ var index = v345;
+ 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) !== l3.value ? (function(){
+ (v344 = l4.value);
+ return (v345 = (function(){
+ var x1 = v345;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ })() : l3.value);
+ return (v343 = l87.fvalue(pv, v340, v345));
+ })());
+ (v343 = (function(){
+ var x = v343;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })());
+ (v342 = l105.fvalue(pv, v342));
+ return ((function(v346){
+ return (v346 !== l3.value ? v346 : ((v342 === l105.fvalue(pv, "KEYWORD"))?l4.value: l3.value));
+ })(v344) !== l3.value ? l120.fvalue(values, v343, v342) : l119.fvalue(values, v343, v342));
+ })(l67.fvalue(pv, v340),l3.value,l3.value,l3.value,l3.value);
+ })();
+ }));
+ return l155;
+})();
+var l156 = {name: "*EOF*"};
+(function(){
+ (((l156.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l156).value = l15.fvalue(pv)));
+ return l156;
+})();
+var l157 = {name: "QUOTE"};
+var l158 = {name: "BACKQUOTE"};
+var l159 = {name: "UNQUOTE-SPLICING"};
+var l160 = {name: "UNQUOTE"};
+(function(){
+ (l152).fvalue = (function(v352){
+ ((v352)["fname"] = "LS-READ");
+ return v352;
+ })((function (values,v348){
+ checkArgs(arguments, 2);
+ return (function(){
+ l150.fvalue(pv, v348);
+ return (function(v349){
+ return ((function(v350){
+ return (v350 !== l3.value ? v350 : l74.fvalue(pv, v349, 41));
+ })(l11.fvalue(pv, v349)) !== l3.value ? (function(){
+ var symbol = l156;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (l74.fvalue(pv, v349, 40) !== l3.value ? (function(){
+ l145.fvalue(pv, v348);
+ return l151.fvalue(values, v348);
+ })() : (l74.fvalue(pv, v349, 39) !== l3.value ? (function(){
+ l145.fvalue(pv, v348);
+ return l42.fvalue(values, l157, l152.fvalue(pv, v348));
+ })() : (l74.fvalue(pv, v349, 96) !== l3.value ? (function(){
+ l145.fvalue(pv, v348);
+ return l42.fvalue(values, l158, l152.fvalue(pv, v348));
+ })() : (l74.fvalue(pv, v349, 34) !== l3.value ? (function(){
+ l145.fvalue(pv, v348);
+ return l153.fvalue(values, v348);
+ })() : (l74.fvalue(pv, v349, 44) !== l3.value ? (function(){
+ l145.fvalue(pv, v348);
+ return (l25.fvalue(pv, l144.fvalue(pv, v348), 64) !== l3.value ? (function(){
+ l145.fvalue(pv, v348);
+ return l42.fvalue(values, l159, l152.fvalue(pv, v348));
+ })() : l42.fvalue(values, l160, l152.fvalue(pv, v348)));
+ })() : (l74.fvalue(pv, v349, 35) !== l3.value ? l154.fvalue(values, v348) : (function(v351){
+ return (l90.fvalue(pv, (function(){
+ var symbol = l86;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v351) !== l3.value ? l88.fvalue(values, v351) : l155.fvalue(values, v351));
+ })(l149.fvalue(pv, v348, (function(){
+ var symbol = l148;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())))))))));
+ })(l144.fvalue(pv, v348));
+ })();
+ }));
+ return l152;
+})();
+var l161 = {name: "LS-READ-FROM-STRING"};
+(function(){
+ (l161).fvalue = (function(v354){
+ ((v354)["fname"] = "LS-READ-FROM-STRING");
+ return v354;
+ })((function (values,v353){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l152.fvalue(values, l143.fvalue(pv, v353));
+ })();
+ }));
+ return l161;
+})();
+var l162 = {name: "*MULTIPLE-VALUE-P*"};
+(function(){
+ (((l162.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l162).value = l3.value));
+ return l162;
+})();
+var l163 = {name: "*COMPILATION-UNIT-CHECKS*"};
+(function(){
+ (((l163.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l163).value = l3));
+ return l163;
+})();
+var l164 = {name: "MAKE-BINDING"};
+(function(){
+ (l164).fvalue = (function(v359){
+ ((v359)["fname"] = "MAKE-BINDING");
+ return v359;
+ })((function (values,v355,v356,v357,v358){
+ checkArgsAtLeast(arguments, 4);
+ checkArgsAtMost(arguments, 5);
+ switch(arguments.length-1){
+ case 3:
+ v358=l3.value;
+ default: break;
+ }
+ return (function(){
+ return l42.fvalue(values, v355, v356, v357, v358);
+ })();
+ }));
+ return l164;
+})();
+var l165 = {name: "BINDING-NAME"};
+(function(){
+ (l165).fvalue = (function(v361){
+ ((v361)["fname"] = "BINDING-NAME");
+ return v361;
+ })((function (values,v360){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l38.fvalue(values, v360);
+ })();
+ }));
+ return l165;
+})();
+var l166 = {name: "BINDING-TYPE"};
+(function(){
+ (l166).fvalue = (function(v363){
+ ((v363)["fname"] = "BINDING-TYPE");
+ return v363;
+ })((function (values,v362){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l39.fvalue(values, v362);
+ })();
+ }));
+ return l166;
+})();
+var l167 = {name: "BINDING-VALUE"};
+(function(){
+ (l167).fvalue = (function(v365){
+ ((v365)["fname"] = "BINDING-VALUE");
+ return v365;
+ })((function (values,v364){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l40.fvalue(values, v364);
+ })();
+ }));
+ return l167;
+})();
+var l168 = {name: "BINDING-DECLARATIONS"};
+(function(){
+ (l168).fvalue = (function(v367){
+ ((v367)["fname"] = "BINDING-DECLARATIONS");
+ return v367;
+ })((function (values,v366){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l41.fvalue(values, v366);
+ })();
+ }));
+ return l168;
+})();
+var l169 = {name: "SET-BINDING-VALUE"};
+(function(){
+ (l169).fvalue = (function(v370){
+ ((v370)["fname"] = "SET-BINDING-VALUE");
+ return v370;
+ })((function (values,v368,v369){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(){
+ var x = l34.fvalue(pv, v368);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = v369);
+ })();
+ })();
+ }));
+ return l169;
+})();
+var l170 = {name: "SET-BINDING-DECLARATIONS"};
+(function(){
+ (l170).fvalue = (function(v373){
+ ((v373)["fname"] = "SET-BINDING-DECLARATIONS");
+ return v373;
+ })((function (values,v371,v372){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(){
+ var x = l36.fvalue(pv, v371);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = v372);
+ })();
+ })();
+ }));
+ return l170;
+})();
+var l171 = {name: "PUSH-BINDING-DECLARATION"};
+(function(){
+ (l171).fvalue = (function(v376){
+ ((v376)["fname"] = "PUSH-BINDING-DECLARATION");
+ return v376;
+ })((function (values,v374,v375){
+ checkArgs(arguments, 3);
+ return (function(){
+ return l170.fvalue(values, v375, ({car: v374, cdr: l168.fvalue(pv, v375)}));
+ })();
+ }));
+ return l171;
+})();
+var l172 = {name: "MAKE-LEXENV"};
+(function(){
+ (l172).fvalue = (function(v377){
+ ((v377)["fname"] = "MAKE-LEXENV");
+ return v377;
+ })((function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return l42.fvalue(values, l3.value, l3.value, l3.value, l3.value);
+ })();
+ }));
+ return l172;
+})();
+var l173 = {name: "COPY-LEXENV"};
+(function(){
+ (l173).fvalue = (function(v379){
+ ((v379)["fname"] = "COPY-LEXENV");
+ return v379;
+ })((function (values,v378){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l71.fvalue(values, v378);
+ })();
+ }));
+ return l173;
+})();
+var l174 = {name: "PUSH-TO-LEXENV"};
+var l175 = {name: "BLOCK"};
+var l176 = {name: "GOTAG"};
+(function(){
+ (l174).fvalue = (function(v384){
+ ((v384)["fname"] = "PUSH-TO-LEXENV");
+ return v384;
+ })((function (values,v380,v381,v382){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v383){
+ return (l25.fvalue(pv, v383, l99) !== l3.value ? (function(){
+ var x = v381;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v380, cdr: (function(){
+ var tmp = v381;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()}));
+ })() : (l25.fvalue(pv, v383, l98) !== l3.value ? (function(){
+ var x = (function(){
+ var tmp = v381;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })();
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v380, cdr: l32.fvalue(pv, v381)}));
+ })() : (l25.fvalue(pv, v383, l175) !== l3.value ? (function(){
+ var x = l34.fvalue(pv, v381);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v380, cdr: l35.fvalue(pv, v381)}));
+ })() : (l25.fvalue(pv, v383, l176) !== l3.value ? (function(){
+ var x = l36.fvalue(pv, v381);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v380, cdr: l37.fvalue(pv, v381)}));
+ })() : (function(){
+ throw "ECASE expression failed.";
+ })()))));
+ })(v382);
+ })();
+ }));
+ return l174;
+})();
+var l177 = {name: "EXTEND-LEXENV"};
+(function(){
+ (l177).fvalue = (function(v391){
+ ((v391)["fname"] = "EXTEND-LEXENV");
+ return v391;
+ })((function (values,v385,v386,v387){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v388){
+ return (function(){
+ return (function(v389,v390){
+ (function(){
+ while(v389 !== l3.value){
+ (v390 = (function(){
+ var tmp = v389;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ l174.fvalue(pv, v390, v388, v387);
+ return l3.value;
+ })();
+ (v389 = (function(){
+ var tmp = v389;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return v388;
+ })(l64.fvalue(pv, v385),l3.value);
+ })();
+ })(l173.fvalue(pv, v386));
+ })();
+ }));
+ return l177;
+})();
+var l178 = {name: "LOOKUP-IN-LEXENV"};
+(function(){
+ (l178).fvalue = (function(v396){
+ ((v396)["fname"] = "LOOKUP-IN-LEXENV");
+ return v396;
+ })((function (values,v392,v393,v394){
+ checkArgs(arguments, 4);
+ return (function(){
+ return l91.fvalue(values, v392, (function(v395){
+ return (l25.fvalue(pv, v395, l99) !== l3.value ? l38.fvalue(pv, v393) : (l25.fvalue(pv, v395, l98) !== l3.value ? l39.fvalue(pv, v393) : (l25.fvalue(pv, v395, l175) !== l3.value ? l40.fvalue(pv, v393) : (l25.fvalue(pv, v395, l176) !== l3.value ? l41.fvalue(pv, v393) : (function(){
+ throw "ECASE expression failed.";
+ })()))));
+ })(v394));
+ })();
+ }));
+ return l178;
+})();
+var l179 = {name: "*ENVIRONMENT*"};
+(function(){
+ (((l179.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l179).value = l172.fvalue(pv)));
+ return l179;
+})();
+var l180 = {name: "*VARIABLE-COUNTER*"};
+(function(){
+ (((l180.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l180).value = 0));
+ return l180;
+})();
+var l181 = {name: "GVARNAME"};
+(function(){
+ (l181).fvalue = (function(v398){
+ ((v398)["fname"] = "GVARNAME");
+ return v398;
+ })((function (values,v397){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l124.fvalue(values, "v", l16.fvalue(pv, ((l180).value = (function(){
+ var x1 = (function(){
+ var symbol = l180;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })())));
+ })();
+ }));
+ return l181;
+})();
+var l182 = {name: "TRANSLATE-VARIABLE"};
+(function(){
+ (l182).fvalue = (function(v400){
+ ((v400)["fname"] = "TRANSLATE-VARIABLE");
+ return v400;
+ })((function (values,v399){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l167.fvalue(values, l178.fvalue(pv, v399, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99));
+ })();
+ }));
+ return l182;
+})();
+var l183 = {name: "EXTEND-LOCAL-ENV"};
+var l184 = {name: "LEXICAL-VARIABLE"};
+(function(){
+ (l183).fvalue = (function(v406){
+ ((v406)["fname"] = "EXTEND-LOCAL-ENV");
+ return v406;
+ })((function (values,v401){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v402){
+ return (function(){
+ return (function(v403,v404){
+ (function(){
+ while(v403 !== l3.value){
+ (v404 = (function(){
+ var tmp = v403;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v405){
+ return l174.fvalue(pv, v405, v402, l99);
+ })(l164.fvalue(pv, v404, l184, l181.fvalue(pv, v404)));
+ return l3.value;
+ })();
+ (v403 = (function(){
+ var tmp = v403;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return v402;
+ })(v401,l3.value);
+ })();
+ })(l173.fvalue(pv, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }));
+ return l183;
+})();
+var l185 = {name: "*TOPLEVEL-COMPILATIONS*"};
+(function(){
+ (((l185.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l185).value = l3.value));
+ return l185;
+})();
+var l186 = {name: "TOPLEVEL-COMPILATION"};
+(function(){
+ (l186).fvalue = (function(v408){
+ ((v408)["fname"] = "TOPLEVEL-COMPILATION");
+ return v408;
+ })((function (values,v407){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((l185).value = ({car: v407, cdr: (function(){
+ var symbol = l185;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ })();
+ }));
+ return l186;
+})();
+var l187 = {name: "NULL-OR-EMPTY-P"};
+(function(){
+ (l187).fvalue = (function(v410){
+ ((v410)["fname"] = "NULL-OR-EMPTY-P");
+ return v410;
+ })((function (values,v409){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l23.fvalue(values, l67.fvalue(pv, v409));
+ })();
+ }));
+ return l187;
+})();
+var l188 = {name: "GET-TOPLEVEL-COMPILATIONS"};
+(function(){
+ (l188).fvalue = (function(v411){
+ ((v411)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
+ return v411;
+ })((function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return l64.fvalue(values, l84.fvalue(pv, (function(){
+ var symbol = l187;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l185;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }));
+ return l188;
+})();
+var l189 = {name: "%COMPILE-DEFMACRO"};
+var l190 = {name: "MACRO"};
+(function(){
+ (l189).fvalue = (function(v414){
+ ((v414)["fname"] = "%COMPILE-DEFMACRO");
+ return v414;
+ })((function (values,v412,v413){
+ checkArgs(arguments, 3);
+ return (function(){
+ l186.fvalue(pv, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v412))));
+ return l174.fvalue(values, l164.fvalue(pv, v412, l190, v413), (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l98);
+ })();
+ }));
+ return l189;
+})();
+var l191 = {name: "GLOBAL-BINDING"};
+(function(){
+ (l191).fvalue = (function(v420){
+ ((v420)["fname"] = "GLOBAL-BINDING");
+ return v420;
+ })((function (values,v415,v416,v417){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v418){
+ return (v418 !== l3.value ? v418 : (function(v419){
+ l174.fvalue(pv, v419, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v417);
+ return v419;
+ })(l164.fvalue(pv, v415, v416, l3.value)));
+ })(l178.fvalue(pv, v415, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v417));
+ })();
+ }));
+ return l191;
+})();
+var l192 = {name: "CLAIMP"};
+(function(){
+ (l192).fvalue = (function(v425){
+ ((v425)["fname"] = "CLAIMP");
+ return v425;
+ })((function (values,v421,v422,v423){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v424){
+ return (v424 !== l3.value ? l82.fvalue(values, v423, l168.fvalue(pv, v424)) : l3.value);
+ })(l178.fvalue(pv, v421, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v422));
+ })();
+ }));
+ return l192;
+})();
+var l193 = {name: "!PROCLAIM"};
+var l194 = {name: "SPECIAL"};
+var l195 = {name: "NOTINLINE"};
+var l196 = {name: "CONSTANT"};
+(function(){
+ (l193).fvalue = (function(v437){
+ ((v437)["fname"] = "!PROCLAIM");
+ return v437;
+ })((function (values,v426){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v427){
+ return (l25.fvalue(pv, v427, l194) !== l3.value ? (function(){
+ return (function(v428,v429){
+ (function(){
+ while(v428 !== l3.value){
+ (v429 = (function(){
+ var tmp = v428;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v430){
+ return l171.fvalue(pv, l194, v430);
+ })(l191.fvalue(pv, v429, l99, l99));
+ return l3.value;
+ })();
+ (v428 = (function(){
+ var tmp = v428;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })((function(){
+ var tmp = v426;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(),l3.value);
+ })() : (l25.fvalue(pv, v427, l195) !== l3.value ? (function(){
+ return (function(v431,v432){
+ (function(){
+ while(v431 !== l3.value){
+ (v432 = (function(){
+ var tmp = v431;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v433){
+ return l171.fvalue(pv, l195, v433);
+ })(l191.fvalue(pv, v432, l98, l98));
+ return l3.value;
+ })();
+ (v431 = (function(){
+ var tmp = v431;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })((function(){
+ var tmp = v426;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(),l3.value);
+ })() : (l25.fvalue(pv, v427, l196) !== l3.value ? (function(){
+ return (function(v434,v435){
+ (function(){
+ while(v434 !== l3.value){
+ (v435 = (function(){
+ var tmp = v434;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v436){
+ return l171.fvalue(pv, l196, v436);
+ })(l191.fvalue(pv, v435, l99, l99));
+ return l3.value;
+ })();
+ (v434 = (function(){
+ var tmp = v434;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })((function(){
+ var tmp = v426;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(),l3.value);
+ })() : l3.value)));
+ })((function(){
+ var tmp = v426;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ })();
+ }));
+ return l193;
+})();
+var l197 = {name: "PROCLAIM"};
+(l197).fvalue = (function(){
+ var symbol = l193;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})();
+var l198 = {name: "*COMPILATIONS*"};
+(function(){
+ (((l198.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l198).value = l3.value));
+ return l198;
+})();
+var l199 = {name: "DEFINE-COMPILATION"};
+l199;
+var l200 = {name: "IF"};
+((l198).value = ({car: l42.fvalue(pv, l200, (function (values,v438,v439,v440){
+ checkArgs(arguments, 4);
+ return (function(){
+ return l124.fvalue(values, "(", l137.fvalue(pv, v438), " !== ", l137.fvalue(pv, l3.value), " ? ", l137.fvalue(pv, v439, (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), " : ", l137.fvalue(pv, v440, (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ")");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l201 = {name: "*LAMBDA-LIST-KEYWORDS*"};
+var l202 = {name: "&OPTIONAL"};
+var l203 = {name: "&REST"};
+var l204 = {car: l202, cdr: {car: l203, cdr: l3}};
+(function(){
+ (((l201.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l201).value = l204));
+ return l201;
+})();
+var l205 = {name: "LIST-UNTIL-KEYWORD"};
+(function(){
+ (l205).fvalue = (function(v443){
+ ((v443)["fname"] = "LIST-UNTIL-KEYWORD");
+ return v443;
+ })((function (values,v441){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((function(v442){
+ return (v442 !== l3.value ? v442 : l82.fvalue(pv, (function(){
+ var tmp = v441;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), (function(){
+ var symbol = l201;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })(l11.fvalue(pv, v441)) !== l3.value ? l3.value : ({car: (function(){
+ var tmp = v441;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), cdr: l205.fvalue(pv, (function(){
+ var tmp = v441;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())}));
+ })();
+ }));
+ return l205;
+})();
+var l206 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
+(function(){
+ (l206).fvalue = (function(v445){
+ ((v445)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
+ return v445;
+ })((function (values,v444){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l205.fvalue(values, v444);
+ })();
+ }));
+ return l206;
+})();
+var l207 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
+(function(){
+ (l207).fvalue = (function(v447){
+ ((v447)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
+ return v447;
+ })((function (values,v446){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l69.fvalue(values, (function(){
+ var symbol = l56;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l205.fvalue(pv, (function(){
+ var tmp = l82.fvalue(pv, l202, v446);
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ }));
+ return l207;
+})();
+var l208 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
+(function(){
+ (l208).fvalue = (function(v449){
+ ((v449)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
+ return v449;
+ })((function (values,v448){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l69.fvalue(values, (function(){
+ var symbol = l29;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l207.fvalue(pv, v448));
+ })();
+ }));
+ return l208;
+})();
+var l209 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
+(function(){
+ (l209).fvalue = (function(v452){
+ ((v452)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
+ return v452;
+ })((function (values,v450){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v451){
+ ((function(){
+ var tmp = v451;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })() !== l3.value ? (function(){
+ throw "Bad lambda-list";
+ })() : l3.value);
+ return (function(){
+ var tmp = v451;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })(l205.fvalue(pv, (function(){
+ var tmp = l82.fvalue(pv, l203, v450);
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ }));
+ return l209;
+})();
+var l210 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
+(function(){
+ (l210).fvalue = (function(v455){
+ ((v455)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
+ return v455;
+ })((function (values,v454){
+ checkArgsAtLeast(arguments, 2);
+ var v453= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v453 = {car: arguments[i], cdr:
+ v453};
+ return (function(){
+ return (v454 !== l3.value ? l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var func = ", l126.fvalue(pv, v453), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "func.docstring = '", v454, "';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : l126.fvalue(values, v453));
+ })();
+ }));
+ return l210;
+})();
+var l211 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
+var l212 = {name: "N/A"};
+(function(){
+ (l211).fvalue = (function(v461){
+ ((v461)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
+ return v461;
+ })((function (values,v456,v457,v458){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v459,v460){
+ return (function(){
+ try {
+ (((function(){
+ var x1 = 1;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v459;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value ? l25.fvalue(pv, v459, v460) : l3.value) !== l3.value ? (function(){
+ throw ({type: 'block', id: 177, value: l124.fvalue(pv, "checkArgs(arguments, ", l16.fvalue(pv, v459), ");", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), message: 'Return from unknown block NIL.'})
+ })() : l3.value);
+ return l124.fvalue(values, ((function(){
+ var x1 = 1;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v459;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value ? l124.fvalue(pv, "checkArgsAtLeast(arguments, ", l16.fvalue(pv, v459), ");", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (((typeof (v460) == "number")?l4.value: l3.value) !== l3.value ? l124.fvalue(pv, "checkArgsAtMost(arguments, ", l16.fvalue(pv, v460), ");", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""));
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 177)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l21.fvalue(pv, v456),(v458 !== l3.value ? l212 : (function(){
+ var x1 = 1;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v456;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ var x3 = v457;
+ if (typeof x3 !== 'number') throw 'Not a number!';
+ return x1+x2+x3;
+ })()));
+ })();
+ }));
+ return l211;
+})();
+var l213 = {name: "LAMBDA"};
+var l214 = {name: "LS-COMPILE-BLOCK"};
+((l198).value = ({car: l42.fvalue(pv, l213, (function (values,v463){
+ checkArgsAtLeast(arguments, 2);
+ var v462= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v462 = {car: arguments[i], cdr:
+ v462};
+ return (function(){
+ return (function(v464,v465,v466,v467){
+ ((((typeof((function(){
+ var tmp = v462;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) == "string")?l4.value: l3.value) !== l3.value ? l26.fvalue(pv, l11.fvalue(pv, (function(){
+ var tmp = v462;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())) : l3.value) !== l3.value ? (function(){
+ (v467 = (function(){
+ var tmp = v462;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ return (v462 = (function(){
+ var tmp = v462;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ })() : l3.value);
+ return (function(v468,v469,v470){
+ try {
+ var tmp;
+ tmp = l179.value;
+ l179.value = v470;
+ v470 = tmp;
+ return l210.fvalue(values, v467, "(function (", l126.fvalue(pv, ({car: "values", cdr: l69.fvalue(pv, (function(){
+ var symbol = l182;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l62.fvalue(pv, v464, v465))}), ","), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l211.fvalue(pv, v468, v469, v466), (v465 !== l3.value ? l124.fvalue(pv, "switch(arguments.length-1){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v471,v472,v473){
+ return (function(){
+ (function(){
+ return (function(){
+ while((function(){
+ var x1 = v473;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v469;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (function(v474){
+ (v472 = ({car: l124.fvalue(pv, "case ", l16.fvalue(pv, (function(){
+ var x1 = v473;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v468;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })()), ":", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l182.fvalue(pv, (function(){
+ var tmp = v474;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()), "=", l137.fvalue(pv, l32.fvalue(pv, v474)), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v472}));
+ return (v473 = (function(){
+ var x1 = v473;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ })(l79.fvalue(pv, v473, v471));
+ }return l3.value;
+ })();
+ })();
+ (v472 = ({car: l124.fvalue(pv, "default: break;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v472}));
+ return l126.fvalue(pv, l64.fvalue(pv, v472));
+ })();
+ })(l207.fvalue(pv, v463),l3.value,0), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v466 !== l3.value ? (function(v475){
+ return l124.fvalue(pv, "var ", v475, "= ", l137.fvalue(pv, l3.value), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = arguments.length-1; i>=", l16.fvalue(pv, (function(){
+ var x1 = 1;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v468;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ var x3 = v469;
+ if (typeof x3 !== 'number') throw 'Not a number!';
+ return x1+x2+x3;
+ })()), "; i--)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, v475, " = ", "{car: arguments[i], cdr: "), v475, "};", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l182.fvalue(pv, v466)) : ""), (function(v476){
+ try {
+ var tmp;
+ tmp = l162.value;
+ l162.value = v476;
+ v476 = tmp;
+ return l214.fvalue(pv, v462, l4.value);
+ }
+ finally {
+ l162.value = v476;
+ }
+ })(l4.value)), "})");
+ }
+ finally {
+ l179.value = v470;
+ }
+ })(l67.fvalue(pv, v464),l67.fvalue(pv, v465),l183.fvalue(pv, l62.fvalue(pv, l56.fvalue(pv, v466), v464, v465)));
+ })(l206.fvalue(pv, v463),l208.fvalue(pv, v463),l209.fvalue(pv, v463),l3.value);
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l215 = {name: "SETQ-PAIR"};
+var l216 = {name: "SET"};
+(function(){
+ (l215).fvalue = (function(v480){
+ ((v480)["fname"] = "SETQ-PAIR");
+ return v480;
+ })((function (values,v477,v478){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v479){
+ return (((l166.fvalue(pv, v479) === l184)?l4.value: l3.value) !== l3.value ? l124.fvalue(values, l167.fvalue(pv, v479), " = ", l137.fvalue(pv, v478)) : l137.fvalue(values, l62.fvalue(pv, l42.fvalue(pv, l216), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v477))), l42.fvalue(pv, v478))));
+ })(l178.fvalue(pv, v477, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99));
+ })();
+ }));
+ return l215;
+})();
+var l217 = {name: "SETQ"};
+((l198).value = ({car: l42.fvalue(pv, l217, (function (values){
+ var v481= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v481 = {car: arguments[i], cdr:
+ v481};
+ return (function(){
+ return (function(v482){
+ (function(){
+ try {
+ return (function(){
+ while(l4.value !== l3.value){
+ (l11.fvalue(pv, v481) !== l3.value ? (function(){
+ throw ({type: 'block', id: 182, value: l3.value, message: 'Return from unknown block NIL.'})
+ })() : (l11.fvalue(pv, (function(){
+ var tmp = v481;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? (function(){
+ throw "Odd paris in SETQ";
+ })() : (function(){
+ (v482 = l124.fvalue(pv, v482, l124.fvalue(pv, l215.fvalue(pv, (function(){
+ var tmp = v481;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), l32.fvalue(pv, v481)), (l11.fvalue(pv, l34.fvalue(pv, v481)) !== l3.value ? "" : ", "))));
+ return (v481 = l34.fvalue(pv, v481));
+ })()));
+ }return l3.value;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 182)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return l124.fvalue(values, "(", v482, ")");
+ })("");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l218 = {name: "JS-VREF"};
+((l198).value = ({car: l42.fvalue(pv, l218, (function (values,v483){
+ checkArgs(arguments, 2);
+ return (function(){
+ return v483;
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l219 = {name: "JS-VSET"};
+((l198).value = ({car: l42.fvalue(pv, l219, (function (values,v484,v485){
+ checkArgs(arguments, 3);
+ return (function(){
+ return l124.fvalue(values, "(", v484, " = ", l137.fvalue(pv, v485), ")");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+(function(){
+ (l140).fvalue = (function(v492){
+ ((v492)["fname"] = "ESCAPE-STRING");
+ return v492;
+ })((function (values,v486){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v487,v488,v489){
+ (function(){
+ return (function(){
+ while((function(){
+ var x1 = v488;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v489;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (function(v490){
+ ((function(v491){
+ return (v491 !== l3.value ? v491 : l74.fvalue(pv, v490, 92));
+ })(l74.fvalue(pv, v490, 34)) !== l3.value ? (v487 = l124.fvalue(pv, v487, "\\")) : l3.value);
+ (l74.fvalue(pv, v490, 10) !== l3.value ? (function(){
+ (v487 = l124.fvalue(pv, v487, "\\"));
+ return (v490 = 110);
+ })() : l3.value);
+ return (v487 = l124.fvalue(pv, v487, l92.fvalue(pv, v490)));
+ })((function(){
+ var string = v486;
+ var index = v488;
+ 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);
+ })());
+ (v488 = (function(){
+ var x1 = v488;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ }return l3.value;
+ })();
+ })();
+ return v487;
+ })("",0,l67.fvalue(pv, v486));
+ })();
+ }));
+ return l140;
+})();
+var l220 = {name: "*LITERAL-SYMBOLS*"};
+(function(){
+ (((l220.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l220).value = l3.value));
+ return l220;
+})();
+var l221 = {name: "*LITERAL-COUNTER*"};
+(function(){
+ (((l221.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l221).value = 0));
+ return l221;
+})();
+var l222 = {name: "GENLIT"};
+(function(){
+ (l222).fvalue = (function(v493){
+ ((v493)["fname"] = "GENLIT");
+ return v493;
+ })((function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return l124.fvalue(values, "l", l16.fvalue(pv, ((l221).value = (function(){
+ var x1 = (function(){
+ var symbol = l221;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })())));
+ })();
+ }));
+ return l222;
+})();
+var l223 = {name: "LITERAL"};
+(function(){
+ (l223).fvalue = (function(v505){
+ ((v505)["fname"] = "LITERAL");
+ return v505;
+ })((function (values,v494,v495){
+ checkArgsAtLeast(arguments, 2);
+ checkArgsAtMost(arguments, 3);
+ switch(arguments.length-1){
+ case 1:
+ v495=l3.value;
+ default: break;
+ }
+ return (function(){
+ return (l75.fvalue(pv, v494) !== l3.value ? l16.fvalue(values, v494) : (((typeof(v494) == "string")?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "\"", l140.fvalue(pv, v494), "\"") : (((function(){
+ var tmp = v494;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(v496){
+ return (v496 !== l3.value ? v496 : (function(v498,v499){
+ ((l220).value = ({car: ({car: v494, cdr: v498}), cdr: (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ l186.fvalue(pv, l124.fvalue(pv, "var ", v498, " = ", v499));
+ return v498;
+ })(l222.fvalue(pv),(function(v497){
+ return (l11.fvalue(pv, v497) !== l3.value ? l124.fvalue(pv, "{name: \"", l140.fvalue(pv, (v494).name), "\"}") : l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l120), l42.fvalue(pv, (v494).name), l42.fvalue(pv, l106.fvalue(pv, v497)))));
+ })(l114.fvalue(pv, v494))));
+ })((function(){
+ var tmp = l91.fvalue(pv, v494, (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) : (((function(){
+ var tmp = v494;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(v500){
+ return (v495 !== l3.value ? v500 : (function(v501){
+ l186.fvalue(pv, l124.fvalue(pv, "var ", v501, " = ", v500));
+ return v501;
+ })(l222.fvalue(pv)));
+ })(l124.fvalue(pv, "{car: ", l223.fvalue(pv, (function(){
+ var tmp = v494;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), l4.value), ", ", "cdr: ", l223.fvalue(pv, (function(){
+ var tmp = v494;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), l4.value), "}")) : (((function(){
+ var x = v494;
+ return typeof x === 'object' && 'length' in x;
+ })()?l4.value: l3.value) !== l3.value ? (function(v502){
+ return (function(v503){
+ return (v495 !== l3.value ? v503 : (function(v504){
+ l186.fvalue(pv, l124.fvalue(pv, "var ", v504, " = ", v503));
+ return v504;
+ })(l222.fvalue(pv)));
+ })(l124.fvalue(pv, "[", l126.fvalue(pv, l69.fvalue(pv, (function(){
+ var symbol = l223;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v502), ", "), "]"));
+ })(l129.fvalue(pv, v494)) : l3.value)))));
+ })();
+ }));
+ return l223;
+})();
+((l198).value = ({car: l42.fvalue(pv, l157, (function (values,v506){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l223.fvalue(values, v506);
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l224 = {name: "%WHILE"};
+((l198).value = ({car: l42.fvalue(pv, l224, (function (values,v508){
+ checkArgsAtLeast(arguments, 2);
+ var v507= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v507 = {car: arguments[i], cdr:
+ v507};
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "while(", l137.fvalue(pv, v508), " !== ", l137.fvalue(pv, l3.value), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l214.fvalue(pv, v507)), "}", "return ", l137.fvalue(pv, l3.value), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l225 = {name: "SYMBOL-FUNCTION"};
+((l198).value = ({car: l42.fvalue(pv, l98, (function (values,v509){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((l57.fvalue(pv, v509) !== l3.value ? (((function(){
+ var tmp = v509;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l213)?l4.value: l3.value) : l3.value) !== l3.value ? l137.fvalue(values, v509) : (((function(){
+ var tmp = v509;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l137.fvalue(values, l62.fvalue(pv, l42.fvalue(pv, l225), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v509))))) : l3.value));
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l226 = {name: "EVAL-WHEN-COMPILE"};
+var l227 = {name: "EVAL"};
+var l228 = {name: "PROGN"};
+((l198).value = ({car: l42.fvalue(pv, l226, (function (values){
+ var v510= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v510 = {car: arguments[i], cdr:
+ v510};
+ return (function(){
+ l227.fvalue(pv, ({car: l228, cdr: v510}));
+ return l3.value;
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l229 = {name: "DEFINE-TRANSFORMATION"};
+l229;
+((l198).value = ({car: l42.fvalue(pv, l228, (function (values){
+ var v511= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v511 = {car: arguments[i], cdr:
+ v511};
+ return (function(){
+ return (l11.fvalue(pv, (function(){
+ var tmp = v511;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? l137.fvalue(values, (function(){
+ var tmp = v511;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l214.fvalue(pv, v511, l4.value)), "})()"));
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l230 = {name: "SPECIAL-VARIABLE-P"};
+(function(){
+ (l230).fvalue = (function(v513){
+ ((v513)["fname"] = "SPECIAL-VARIABLE-P");
+ return v513;
+ })((function (values,v512){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (l192.fvalue(pv, v512, l99, l194) !== l3.value ? l4.value : l3.value);
+ })();
+ }));
+ return l230;
+})();
+var l231 = {name: "LET-BINDING-WRAPPER"};
+(function(){
+ (l231).fvalue = (function(v520){
+ ((v520)["fname"] = "LET-BINDING-WRAPPER");
+ return v520;
+ })((function (values,v514,v515){
+ checkArgs(arguments, 3);
+ return (function(){
+ try {
+ (l11.fvalue(pv, v514) !== l3.value ? (function(){
+ throw ({type: 'block', id: 195, value: v515, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
+ })() : l3.value);
+ return l124.fvalue(values, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tmp;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l128.fvalue(pv, (function (values,v516){
+ checkArgs(arguments, 2);
+ return (function(v517){
+ return l124.fvalue(values, "tmp = ", v517, ".value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v517, ".value = ", (function(){
+ var tmp = v516;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var tmp = v516;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), " = tmp;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
+ var tmp = v516;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+ }), v514), v515, (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "finally {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l128.fvalue(pv, (function (values,v518){
+ checkArgs(arguments, 2);
+ return (function(v519){
+ return l124.fvalue(values, v519, ".value", " = ", (function(){
+ var tmp = v518;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
+ var tmp = v518;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+ }), v514)), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 195)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ }));
+ return l231;
+})();
+var l232 = {name: "LET"};
+var l233 = {name: "DYNAMIC-BINDINGS"};
+((l198).value = ({car: l42.fvalue(pv, l232, (function (values,v522){
+ checkArgsAtLeast(arguments, 2);
+ var v521= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v521 = {car: arguments[i], cdr:
+ v521};
+ return (function(){
+ return (function(){
+ try {
+ var v530 = l179.value;
+ var v523 = l69.fvalue(pv, (function(){
+ var symbol = l56;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v522);
+ var v524 = l69.fvalue(pv, (function(){
+ var symbol = l38;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v523);
+ var v525 = l69.fvalue(pv, (function(){
+ var symbol = l137;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l69.fvalue(pv, (function(){
+ var symbol = l39;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v523));
+ ((l179).value = l183.fvalue(pv, l84.fvalue(pv, (function(){
+ var symbol = l230;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v524)));
+ var v526 = l3.value;
+ return l124.fvalue(values, "(function(", l126.fvalue(pv, l69.fvalue(pv, (function (values,v527){
+ checkArgs(arguments, 2);
+ return (l230.fvalue(pv, v527) !== l3.value ? (function(v528){
+ ((l233).value = ({car: ({car: v527, cdr: v528}), cdr: v526}));
+ return v528;
+ })(l181.fvalue(pv, v527)) : l182.fvalue(values, v527));
+ }), v524), ","), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v529){
+ return l135.fvalue(pv, l231.fvalue(pv, v526, v529));
+ })(l214.fvalue(pv, v521, l4.value)), "})(", l126.fvalue(pv, v525, ","), ")");
+ }
+ finally {
+ l179.value = v530;
+ }
+ })();
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l234 = {name: "LET*-INITIALIZE-VALUE"};
+(function(){
+ (l234).fvalue = (function(v537){
+ ((v537)["fname"] = "LET*-INITIALIZE-VALUE");
+ return v537;
+ })((function (values,v531){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v532,v533){
+ return (l230.fvalue(pv, v532) !== l3.value ? l124.fvalue(values, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l217), l42.fvalue(pv, v532), l42.fvalue(pv, v533))), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var v534 = l181.fvalue(pv, v532);
+ var v535 = l164.fvalue(pv, v532, l99, v534);
+ return (function(v536){
+ l174.fvalue(pv, v535, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99);
+ return v536;
+ })(l124.fvalue(pv, "var ", v534, " = ", l137.fvalue(pv, v533), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })());
+ })(l38.fvalue(pv, v531),l39.fvalue(pv, v531));
+ })();
+ }));
+ return l234;
+})();
+var l235 = {name: "LET*-BINDING-WRAPPER"};
+(function(){
+ (l235).fvalue = (function(v546){
+ ((v546)["fname"] = "LET*-BINDING-WRAPPER");
+ return v546;
+ })((function (values,v538,v539){
+ checkArgs(arguments, 3);
+ return (function(){
+ try {
+ (l11.fvalue(pv, v538) !== l3.value ? (function(){
+ throw ({type: 'block', id: 198, value: v539, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
+ })() : l3.value);
+ return (function(v541){
+ return l124.fvalue(values, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l128.fvalue(pv, (function (values,v542){
+ checkArgs(arguments, 2);
+ return (function(v543){
+ return l124.fvalue(values, "var ", (function(){
+ var tmp = v542;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), " = ", v543, ".value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
+ var tmp = v542;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+ }), v541), v539), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "finally {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l128.fvalue(pv, (function (values,v544){
+ checkArgs(arguments, 2);
+ return (function(v545){
+ return l124.fvalue(values, v545, ".value", " = ", (function(){
+ var tmp = v544;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
+ var tmp = v544;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+ }), v541)), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l69.fvalue(pv, (function (values,v540){
+ checkArgs(arguments, 2);
+ return ({car: v540, cdr: l181.fvalue(pv, v540)});
+ }), l85.fvalue(pv, (function(){
+ var symbol = l230;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v538)));
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 198)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ }));
+ return l235;
+})();
+var l236 = {name: "LET*"};
+((l198).value = ({car: l42.fvalue(pv, l236, (function (values,v548){
+ checkArgsAtLeast(arguments, 2);
+ var v547= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v547 = {car: arguments[i], cdr:
+ v547};
+ return (function(){
+ return (function(v549,v550){
+ try {
+ var tmp;
+ tmp = l179.value;
+ l179.value = v550;
+ v550 = tmp;
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, (function(v551,v552){
+ return l235.fvalue(pv, v551, v552);
+ })(l85.fvalue(pv, (function(){
+ var symbol = l230;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l69.fvalue(pv, (function(){
+ var symbol = l38;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v549)),l124.fvalue(pv, l128.fvalue(pv, (function(){
+ var symbol = l234;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v549), l214.fvalue(pv, v547, l4.value)))), "})()");
+ }
+ finally {
+ l179.value = v550;
+ }
+ })(l69.fvalue(pv, (function(){
+ var symbol = l56;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v548),l173.fvalue(pv, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l237 = {name: "*BLOCK-COUNTER*"};
+(function(){
+ (((l237.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l237).value = 0));
+ return l237;
+})();
+var l238 = {name: "USED"};
+((l198).value = ({car: l42.fvalue(pv, l175, (function (values,v554){
+ checkArgsAtLeast(arguments, 2);
+ var v553= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v553 = {car: arguments[i], cdr:
+ v553};
+ return (function(){
+ return (function(){
+ try {
+ var v558 = l179.value;
+ var v555 = l16.fvalue(pv, ((l237).value = (function(){
+ var x1 = (function(){
+ var symbol = l237;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })()));
+ var v556 = l164.fvalue(pv, v554, l175, v555);
+ ((l179).value = l177.fvalue(pv, l42.fvalue(pv, v556), (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l175));
+ var v557 = l214.fvalue(pv, v553, l4.value);
+ return (l82.fvalue(pv, l238, l168.fvalue(pv, v556)) !== l3.value ? l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, v557), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (cf.type == 'block' && cf.id == ", v555, ")", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l135.fvalue(pv, v557)), "})()"));
+ }
+ finally {
+ l179.value = v558;
+ }
+ })();
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l239 = {name: "RETURN-FROM"};
+((l198).value = ({car: l42.fvalue(pv, l239, (function (values,v559,v560){
+ checkArgsAtLeast(arguments, 2);
+ checkArgsAtMost(arguments, 3);
+ switch(arguments.length-1){
+ case 1:
+ v560=l3.value;
+ default: break;
+ }
+ return (function(){
+ return (function(v561){
+ (l11.fvalue(pv, v561) !== l3.value ? (function(){
+ throw l124.fvalue(pv, "Unknown block `", (v559).name, "'.");
+ })() : l3.value);
+ l171.fvalue(pv, l238, v561);
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw ({", "type: 'block', ", "id: ", l167.fvalue(pv, v561), ", ", "value: ", l137.fvalue(pv, v560), ", ", "message: 'Return from unknown block ", (v559).name, ".'", "})"), "})()");
+ })(l178.fvalue(pv, v559, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l175));
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l240 = {name: "CATCH"};
+((l198).value = ({car: l42.fvalue(pv, l240, (function (values,v563){
+ checkArgsAtLeast(arguments, 2);
+ var v562= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v562 = {car: arguments[i], cdr:
+ v562};
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var id = ", l137.fvalue(pv, v563), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "return ", l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l228), v562)), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (cf.type == 'catch' && cf.id == id)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l241 = {name: "THROW"};
+((l198).value = ({car: l42.fvalue(pv, l241, (function (values,v564,v565){
+ checkArgs(arguments, 3);
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw ({", "type: 'catch', ", "id: ", l137.fvalue(pv, v564), ", ", "value: ", l137.fvalue(pv, v565), ", ", "message: 'Throw uncatched.'", "})"), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l242 = {name: "*TAGBODY-COUNTER*"};
+(function(){
+ (((l242.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l242).value = 0));
+ return l242;
+})();
+var l243 = {name: "*GO-TAG-COUNTER*"};
+(function(){
+ (((l243.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l243).value = 0));
+ return l243;
+})();
+var l244 = {name: "GO-TAG-P"};
+(function(){
+ (l244).fvalue = (function(v568){
+ ((v568)["fname"] = "GO-TAG-P");
+ return v568;
+ })((function (values,v566){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v567){
+ return (v567 !== l3.value ? v567 : ((function(){
+ var tmp = v566;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value));
+ })(l75.fvalue(pv, v566));
+ })();
+ }));
+ return l244;
+})();
+var l245 = {name: "DECLARE-TAGBODY-TAGS"};
+(function(){
+ (l245).fvalue = (function(v574){
+ ((v574)["fname"] = "DECLARE-TAGBODY-TAGS");
+ return v574;
+ })((function (values,v569,v570){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v573){
+ return l177.fvalue(values, v573, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l176);
+ })(l69.fvalue(pv, (function (values,v571){
+ checkArgs(arguments, 2);
+ return (function(v572){
+ return l164.fvalue(values, v571, l176, l42.fvalue(pv, v569, v572));
+ })(l16.fvalue(pv, ((l243).value = (function(){
+ var x1 = (function(){
+ var symbol = l243;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })())));
+ }), l85.fvalue(pv, (function(){
+ var symbol = l244;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v570)));
+ })();
+ }));
+ return l245;
+})();
+var l246 = {name: "TAGBODY"};
+((l198).value = ({car: l42.fvalue(pv, l246, (function (values){
+ var v575= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v575 = {car: arguments[i], cdr:
+ v575};
+ return (function(){
+ try {
+ (l89.fvalue(pv, (function(){
+ var symbol = l244;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v575) !== l3.value ? l3.value : (function(){
+ throw ({type: 'block', id: 206, value: l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l228), v575, l42.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
+ })());
+ (l244.fvalue(pv, (function(){
+ var tmp = v575;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) !== l3.value ? l3.value : (v575 = ({car: l15.fvalue(pv, "START"), cdr: v575})));
+ return (function(v576){
+ return (function(v578,v577){
+ try {
+ var tmp;
+ tmp = l179.value;
+ l179.value = v578;
+ v578 = tmp;
+ (function(v579){
+ return (v577 = l39.fvalue(pv, l167.fvalue(pv, v579)));
+ })(l178.fvalue(pv, l38.fvalue(pv, v575), (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l176));
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tagbody_", v576, " = ", v577, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "tbloop:", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (true) {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, (function(v580){
+ return l124.fvalue(pv, "switch(tagbody_", v576, "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "case ", v577, ":", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ return (function(v581,v582){
+ (function(){
+ while(v581 !== l3.value){
+ (v582 = (function(){
+ var tmp = v581;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (v580 = l124.fvalue(pv, v580, (l26.fvalue(pv, l244.fvalue(pv, v582)) !== l3.value ? l135.fvalue(pv, l137.fvalue(pv, v582), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(v583){
+ return l124.fvalue(pv, "case ", l39.fvalue(pv, l167.fvalue(pv, v583)), ":", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l178.fvalue(pv, v582, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l176)))));
+ return l3.value;
+ })();
+ (v581 = (function(){
+ var tmp = v581;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return v580;
+ })((function(){
+ var tmp = v575;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(),l3.value);
+ })(), "default:", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " break tbloop;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })("")), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (jump) {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (jump.type == 'tagbody' && jump.id == ", v576, ")", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tagbody_", v576, " = jump.label;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw(jump);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ", l137.fvalue(pv, l3.value), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ }
+ finally {
+ l179.value = v578;
+ }
+ })(l245.fvalue(pv, v576, v575),l3.value);
+ })(l16.fvalue(pv, (function(){
+ var symbol = l242;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 206)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l247 = {name: "GO"};
+((l198).value = ({car: l42.fvalue(pv, l247, (function (values,v584){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v585,v586){
+ return (v585 !== l3.value ? l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l38.fvalue(pv, l167.fvalue(pv, v585)), ", ", "label: ", l39.fvalue(pv, l167.fvalue(pv, v585)), ", ", "message: 'Attempt to GO to non-existing tag ", v586, "'", "})", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : (function(){
+ throw l124.fvalue(pv, "Unknown tag `", v586, "'.");
+ })());
+ })(l178.fvalue(pv, v584, (function(){
+ var symbol = l179;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l176),(((function(){
+ var tmp = v584;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (v584).name : (l75.fvalue(pv, v584) !== l3.value ? l16.fvalue(pv, v584) : l3.value)));
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l248 = {name: "UNWIND-PROTECT"};
+((l198).value = ({car: l42.fvalue(pv, l248, (function (values,v588){
+ checkArgsAtLeast(arguments, 2);
+ var v587= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v587 = {car: arguments[i], cdr:
+ v587};
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var ret = ", l137.fvalue(pv, l3.value), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "ret = ", l137.fvalue(pv, v588), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "} finally {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l214.fvalue(pv, v587)), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ret;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l249 = {name: "MULTIPLE-VALUE-CALL"};
+((l198).value = ({car: l42.fvalue(pv, l249, (function (values,v590){
+ checkArgsAtLeast(arguments, 2);
+ var v589= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v589 = {car: arguments[i], cdr:
+ v589};
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var func = ", l137.fvalue(pv, v590), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var args = [", ((function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? "values" : "pv"), "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ", l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var values = mv;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var vs;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l128.fvalue(pv, (function (values,v591){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "vs = ", l137.fvalue(pv, v591, l4.value), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "args = args.concat(vs);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "args.push(vs);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ }), v589), "return func.apply(window, args);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l250 = {name: "MULTIPLE-VALUE-PROG1"};
+((l198).value = ({car: l42.fvalue(pv, l250, (function (values,v593){
+ checkArgsAtLeast(arguments, 2);
+ var v592= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v592 = {car: arguments[i], cdr:
+ v592};
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var args = ", l137.fvalue(pv, v593, (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l214.fvalue(pv, v592), "return args;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l251 = {name: "BACKQUOTE-EXPAND-1"};
+(function(){
+ (l251).fvalue = (function(v596){
+ ((v596)["fname"] = "BACKQUOTE-EXPAND-1");
+ return v596;
+ })((function (values,v594){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (((function(){
+ var tmp = v594;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l42.fvalue(values, l157, v594) : (l43.fvalue(pv, v594) !== l3.value ? v594 : ((((function(){
+ var tmp = v594;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l160)?l4.value: l3.value) !== l3.value ? (function(){
+ var tmp = v594;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() : ((((function(){
+ var tmp = v594;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l158)?l4.value: l3.value) !== l3.value ? l251.fvalue(values, l251.fvalue(pv, l32.fvalue(pv, v594))) : ({car: l62, cdr: l69.fvalue(pv, (function (values,v595){
+ checkArgs(arguments, 2);
+ return ((l57.fvalue(pv, v595) !== l3.value ? (((function(){
+ var tmp = v595;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l160)?l4.value: l3.value) : l3.value) !== l3.value ? l42.fvalue(values, l42, l32.fvalue(pv, v595)) : ((l57.fvalue(pv, v595) !== l3.value ? (((function(){
+ var tmp = v595;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l159)?l4.value: l3.value) : l3.value) !== l3.value ? l32.fvalue(values, v595) : l42.fvalue(values, l42, l251.fvalue(pv, v595))));
+ }), v594)})))));
+ })();
+ }));
+ return l251;
+})();
+var l252 = {name: "BACKQUOTE-EXPAND"};
+(function(){
+ (l252).fvalue = (function(v598){
+ ((v598)["fname"] = "BACKQUOTE-EXPAND");
+ return v598;
+ })((function (values,v597){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((l57.fvalue(pv, v597) !== l3.value ? (((function(){
+ var tmp = v597;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l158)?l4.value: l3.value) : l3.value) !== l3.value ? l251.fvalue(values, l32.fvalue(pv, v597)) : v597);
+ })();
+ }));
+ return l252;
+})();
+l158;
+((l198).value = ({car: l42.fvalue(pv, l158, (function (values,v599){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l137.fvalue(values, l251.fvalue(pv, v599));
+ })();
+})), cdr: (function(){
+ var symbol = l198;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l253 = {name: "*BUILTINS*"};
+(function(){
+ (((l253.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l253).value = l3.value));
+ return l253;
+})();
+var l254 = {name: "DEFINE-RAW-BUILTIN"};
+l254;
+var l255 = {name: "DEFINE-BUILTIN"};
+l255;
+var l256 = {name: "TYPE-CHECK"};
+l256;
+var l257 = {name: "VARIABLE-ARITY-CALL"};
+(function(){
+ (l257).fvalue = (function(v608){
+ ((v608)["fname"] = "VARIABLE-ARITY-CALL");
+ return v608;
+ })((function (values,v600,v601){
+ checkArgs(arguments, 3);
+ return (function(){
+ (((function(){
+ var tmp = v600;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ throw "ARGS must be a non-empty list";
+ })());
+ return (function(v602,v603,v604){
+ (function(){
+ return (function(v605,v606){
+ (function(){
+ while(v605 !== l3.value){
+ (v606 = (function(){
+ var tmp = v605;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v607){
+ (v603 = ({car: v607, cdr: v603}));
+ return (v604 = l124.fvalue(pv, v604, l124.fvalue(pv, "var ", v607, " = ", l137.fvalue(pv, v606), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof ", v607, " !== 'number') throw 'Not a number!';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())));
+ })(l124.fvalue(pv, "x", l16.fvalue(pv, (v602 = (function(){
+ var x1 = v602;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })()))));
+ return l3.value;
+ })();
+ (v605 = (function(){
+ var tmp = v605;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })(v600,l3.value);
+ })();
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, v604, (v601)(pv, l64.fvalue(pv, v603))), "})()");
+ })(0,l3,"");
+ })();
+ }));
+ return l257;
+})();
+var l258 = {name: "VARIABLE-ARITY"};
+l258;
+var l259 = {name: "NUM-OP-NUM"};
+(function(){
+ (l259).fvalue = (function(v612){
+ ((v612)["fname"] = "NUM-OP-NUM");
+ return v612;
+ })((function (values,v609,v610,v611){
+ checkArgs(arguments, 4);
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v609, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "var ", "y", " = ", v611, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", l124.fvalue(pv, "x", v610, "y"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })();
+ }));
+ return l259;
+})();
+((l253).value = ({car: l42.fvalue(pv, l59, (function (values){
+ var v613= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v613 = {car: arguments[i], cdr:
+ v613};
+ return (function(){
+ return (l11.fvalue(pv, v613) !== l3.value ? "0" : l257.fvalue(values, v613, (function (values,v614){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l126.fvalue(pv, v614, "+"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l60, (function (values,v616){
+ checkArgsAtLeast(arguments, 2);
+ var v615= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v615 = {car: arguments[i], cdr:
+ v615};
+ return (function(){
+ return (function(v617){
+ return l257.fvalue(values, v617, (function (values,v618){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", (l11.fvalue(pv, v615) !== l3.value ? l124.fvalue(pv, "-", (function(){
+ var tmp = v618;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l126.fvalue(pv, v618, "-")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v616, cdr: v615}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l19, (function (values){
+ var v619= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v619 = {car: arguments[i], cdr:
+ v619};
+ return (function(){
+ return (l11.fvalue(pv, v619) !== l3.value ? "1" : l257.fvalue(values, v619, (function (values,v620){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l126.fvalue(pv, v620, "*"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l20, (function (values,v622){
+ checkArgsAtLeast(arguments, 2);
+ var v621= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v621 = {car: arguments[i], cdr:
+ v621};
+ return (function(){
+ return (function(v623){
+ return l257.fvalue(values, v623, (function (values,v624){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", (l11.fvalue(pv, v621) !== l3.value ? l124.fvalue(pv, "1 /", (function(){
+ var tmp = v624;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l126.fvalue(pv, v624, "/")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v622, cdr: v621}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l260 = {name: "MOD"};
+((l253).value = ({car: l42.fvalue(pv, l260, (function (values,v625,v626){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v627,v628){
+ return l259.fvalue(values, v627, "%", v628);
+ })(l137.fvalue(pv, v625),l137.fvalue(pv, v626));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l261 = {name: "COMPARISON-CONJUNTION"};
+(function(){
+ (l261).fvalue = (function(v631){
+ ((v631)["fname"] = "COMPARISON-CONJUNTION");
+ return v631;
+ })((function (values,v629,v630){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (l11.fvalue(pv, (function(){
+ var tmp = v629;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? "true" : (l11.fvalue(pv, l34.fvalue(pv, v629)) !== l3.value ? l124.fvalue(values, (function(){
+ var tmp = v629;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v630, l32.fvalue(pv, v629)) : l124.fvalue(values, (function(){
+ var tmp = v629;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v630, l32.fvalue(pv, v629), " && ", l261.fvalue(pv, (function(){
+ var tmp = v629;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), v630))));
+ })();
+ }));
+ return l261;
+})();
+var l262 = {name: "DEFINE-BUILTIN-COMPARISON"};
+l262;
+var l263 = {name: ">"};
+((l253).value = ({car: l42.fvalue(pv, l263, (function (values,v633){
+ checkArgsAtLeast(arguments, 2);
+ var v632= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v632 = {car: arguments[i], cdr:
+ v632};
+ return (function(){
+ return (function(v634){
+ return l257.fvalue(values, v634, (function (values,v635){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v635, ">")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v633, cdr: v632}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l264 = {name: "<"};
+((l253).value = ({car: l42.fvalue(pv, l264, (function (values,v637){
+ checkArgsAtLeast(arguments, 2);
+ var v636= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v636 = {car: arguments[i], cdr:
+ v636};
+ return (function(){
+ return (function(v638){
+ return l257.fvalue(values, v638, (function (values,v639){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v639, "<")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v637, cdr: v636}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l265 = {name: ">="};
+((l253).value = ({car: l42.fvalue(pv, l265, (function (values,v641){
+ checkArgsAtLeast(arguments, 2);
+ var v640= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v640 = {car: arguments[i], cdr:
+ v640};
+ return (function(){
+ return (function(v642){
+ return l257.fvalue(values, v642, (function (values,v643){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v643, ">=")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v641, cdr: v640}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l266 = {name: "<="};
+((l253).value = ({car: l42.fvalue(pv, l266, (function (values,v645){
+ checkArgsAtLeast(arguments, 2);
+ var v644= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v644 = {car: arguments[i], cdr:
+ v644};
+ return (function(){
+ return (function(v646){
+ return l257.fvalue(values, v646, (function (values,v647){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v647, "<=")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v645, cdr: v644}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l18, (function (values,v649){
+ checkArgsAtLeast(arguments, 2);
+ var v648= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v648 = {car: arguments[i], cdr:
+ v648};
+ return (function(){
+ return (function(v650){
+ return l257.fvalue(values, v650, (function (values,v651){
+ checkArgs(arguments, 2);
+ return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v651, "==")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v649, cdr: v648}));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l267 = {name: "NUMBERP"};
+((l253).value = ({car: l42.fvalue(pv, l267, (function (values,v652){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v653){
+ return l136.fvalue(values, l124.fvalue(pv, "(typeof (", v653, ") == \"number\")"));
+ })(l137.fvalue(pv, v652));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l268 = {name: "FLOOR"};
+((l253).value = ({car: l42.fvalue(pv, l268, (function (values,v654){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v655){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v655, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v654));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l27, (function (values,v656,v657){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v658,v659){
+ return l124.fvalue(values, "({car: ", v658, ", cdr: ", v659, "})");
+ })(l137.fvalue(pv, v656),l137.fvalue(pv, v657));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l28, (function (values,v660){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v661){
+ return l136.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tmp = ", v661, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l137.fvalue(pv, v660));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l29, (function (values,v662){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v663){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tmp = ", v663, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l137.fvalue(pv, l3.value), "? ", l137.fvalue(pv, l3.value), ": tmp.car;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v662));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l30, (function (values,v664){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v665){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tmp = ", v665, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l137.fvalue(pv, l3.value), "? ", l137.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v664));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l269 = {name: "SETCAR"};
+((l253).value = ({car: l42.fvalue(pv, l269, (function (values,v666,v667){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v668,v669){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v668, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", l124.fvalue(pv, "(x.car = ", v669, ")"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v666),l137.fvalue(pv, v667));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l270 = {name: "SETCDR"};
+((l253).value = ({car: l42.fvalue(pv, l270, (function (values,v670,v671){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v672,v673){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v672, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", l124.fvalue(pv, "(x.cdr = ", v673, ")"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v670),l137.fvalue(pv, v671));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l271 = {name: "SYMBOLP"};
+((l253).value = ({car: l42.fvalue(pv, l271, (function (values,v674){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v675){
+ return l136.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tmp = ", v675, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l137.fvalue(pv, v674));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l272 = {name: "MAKE-SYMBOL"};
+((l253).value = ({car: l42.fvalue(pv, l272, (function (values,v676){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v677){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "name", " = ", v677, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "({name: name})", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v676));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l273 = {name: "SYMBOL-NAME"};
+((l253).value = ({car: l42.fvalue(pv, l273, (function (values,v678){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v679){
+ return l124.fvalue(values, "(", v679, ").name");
+ })(l137.fvalue(pv, v678));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l216, (function (values,v680,v681){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v682,v683){
+ return l124.fvalue(values, "(", v682, ").value = ", v683);
+ })(l137.fvalue(pv, v680),l137.fvalue(pv, v681));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l274 = {name: "FSET"};
+((l253).value = ({car: l42.fvalue(pv, l274, (function (values,v684,v685){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v686,v687){
+ return l124.fvalue(values, "(", v686, ").fvalue = ", v687);
+ })(l137.fvalue(pv, v684),l137.fvalue(pv, v685));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l17, (function (values,v688){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v689){
+ return l136.fvalue(values, l124.fvalue(pv, "(", v689, ".value !== undefined)"));
+ })(l137.fvalue(pv, v688));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l275 = {name: "SYMBOL-VALUE"};
+((l253).value = ({car: l42.fvalue(pv, l275, (function (values,v690){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v691){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var symbol = ", v691, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v690));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l225, (function (values,v692){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v693){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var symbol = ", v693, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.fvalue;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v692));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l276 = {name: "SYMBOL-PLIST"};
+((l253).value = ({car: l42.fvalue(pv, l276, (function (values,v694){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v695){
+ return l124.fvalue(values, "((", v695, ").plist || ", l137.fvalue(pv, l3.value), ")");
+ })(l137.fvalue(pv, v694));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l277 = {name: "LAMBDA-CODE"};
+((l253).value = ({car: l42.fvalue(pv, l277, (function (values,v696){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v697){
+ return l124.fvalue(values, "(", v697, ").toString()");
+ })(l137.fvalue(pv, v696));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l278 = {name: "EQ"};
+((l253).value = ({car: l42.fvalue(pv, l278, (function (values,v698,v699){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v700,v701){
+ return l136.fvalue(values, l124.fvalue(pv, "(", v700, " === ", v701, ")"));
+ })(l137.fvalue(pv, v698),l137.fvalue(pv, v699));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l279 = {name: "EQUAL"};
+((l253).value = ({car: l42.fvalue(pv, l279, (function (values,v702,v703){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v704,v705){
+ return l136.fvalue(values, l124.fvalue(pv, "(", v704, " == ", v705, ")"));
+ })(l137.fvalue(pv, v702),l137.fvalue(pv, v703));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l280 = {name: "CHAR-TO-STRING"};
+((l253).value = ({car: l42.fvalue(pv, l280, (function (values,v706){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v707){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v707, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v706));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l281 = {name: "STRINGP"};
+((l253).value = ({car: l42.fvalue(pv, l281, (function (values,v708){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v709){
+ return l136.fvalue(values, l124.fvalue(pv, "(typeof(", v709, ") == \"string\")"));
+ })(l137.fvalue(pv, v708));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l282 = {name: "STRING-UPCASE"};
+((l253).value = ({car: l42.fvalue(pv, l282, (function (values,v710){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v711){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v711, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v710));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l283 = {name: "STRING-LENGTH"};
+((l253).value = ({car: l42.fvalue(pv, l283, (function (values,v712){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v713){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v713, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "x.length", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v712));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l284 = {name: "SLICE"};
+((l253).value = ({car: l42.fvalue(pv, l284, (function (values,v714,v715,v716){
+ checkArgsAtLeast(arguments, 3);
+ checkArgsAtMost(arguments, 4);
+ switch(arguments.length-1){
+ case 2:
+ v716=l3.value;
+ default: break;
+ }
+ return (function(){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var str = ", l137.fvalue(pv, v714), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var a = ", l137.fvalue(pv, v715), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var b;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (v716 !== l3.value ? l124.fvalue(pv, "b = ", l137.fvalue(pv, v716), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), "return str.slice(a,b);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l285 = {name: "CHAR"};
+((l253).value = ({car: l42.fvalue(pv, l285, (function (values,v717,v718){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v719,v720){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "string", " = ", v719, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "var ", "index", " = ", v720, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v717),l137.fvalue(pv, v718));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l253).value = ({car: l42.fvalue(pv, l68, (function (values,v721,v722){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v723,v724){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "string1", " = ", v723, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "var ", "string2", " = ", v724, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v721),l137.fvalue(pv, v722));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l286 = {name: "FUNCALL"};
+((l253).value = ({car: l42.fvalue(pv, l286, (function (values,v726){
+ checkArgsAtLeast(arguments, 2);
+ var v725= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v725 = {car: arguments[i], cdr:
+ v725};
+ return (function(){
+ return l124.fvalue(values, "(", l137.fvalue(pv, v726), ")(", l126.fvalue(pv, ({car: ((function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? "values" : "pv"), cdr: l69.fvalue(pv, (function(){
+ var symbol = l137;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v725)}), ", "), ")");
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l287 = {name: "APPLY"};
+((l253).value = ({car: l42.fvalue(pv, l287, (function (values,v728){
+ checkArgsAtLeast(arguments, 2);
+ var v727= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v727 = {car: arguments[i], cdr:
+ v727};
+ return (function(){
+ return (l11.fvalue(pv, v727) !== l3.value ? l124.fvalue(values, "(", l137.fvalue(pv, v728), ")()") : (function(v729,v730){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var f = ", l137.fvalue(pv, v728), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var args = [", l126.fvalue(pv, ({car: ((function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? "values" : "pv"), cdr: l69.fvalue(pv, (function(){
+ var symbol = l137;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v729)}), ", "), "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var tail = (", l137.fvalue(pv, v730), ");", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (tail != ", l137.fvalue(pv, l3.value), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " args.push(tail.car);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tail = tail.cdr;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return f.apply(this, args);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l81.fvalue(pv, v727),(function(){
+ var tmp = l80.fvalue(pv, v727);
+ return tmp === l3.value? l3.value: tmp.car;
+ })()));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l288 = {name: "JS-EVAL"};
+((l253).value = ({car: l42.fvalue(pv, l288, (function (values,v731){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v732){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "string", " = ", v732, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", ((function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "v = [v];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "v['multiple-value'] = true;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return values.apply(this, v);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v731));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l289 = {name: "ERROR"};
+((l253).value = ({car: l42.fvalue(pv, l289, (function (values,v733){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v734){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw ", v734, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v733));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l290 = {name: "NEW"};
+((l253).value = ({car: l42.fvalue(pv, l290, (function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return (function(){
+ return "{}";
+ })();
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l291 = {name: "OBJECTP"};
+((l253).value = ({car: l42.fvalue(pv, l291, (function (values,v735){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v736){
+ return l136.fvalue(values, l124.fvalue(pv, "(typeof (", v736, ") === 'object')"));
+ })(l137.fvalue(pv, v735));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l292 = {name: "OGET"};
+((l253).value = ({car: l42.fvalue(pv, l292, (function (values,v737,v738){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v739,v740){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var tmp = ", "(", v739, ")[", v740, "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp == undefined? ", l137.fvalue(pv, l3.value), ": tmp ;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v737),l137.fvalue(pv, v738));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l293 = {name: "OSET"};
+((l253).value = ({car: l42.fvalue(pv, l293, (function (values,v741,v742,v743){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v744,v745,v746){
+ return l124.fvalue(values, "((", v744, ")[", v745, "] = ", v746, ")");
+ })(l137.fvalue(pv, v741),l137.fvalue(pv, v742),l137.fvalue(pv, v743));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l294 = {name: "IN"};
+((l253).value = ({car: l42.fvalue(pv, l294, (function (values,v747,v748){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v749,v750){
+ return l136.fvalue(values, l124.fvalue(pv, "((", v749, ") in (", v750, "))"));
+ })(l137.fvalue(pv, v747),l137.fvalue(pv, v748));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l295 = {name: "FUNCTIONP"};
+((l253).value = ({car: l42.fvalue(pv, l295, (function (values,v751){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v752){
+ return l136.fvalue(values, l124.fvalue(pv, "(typeof ", v752, " == 'function')"));
+ })(l137.fvalue(pv, v751));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l296 = {name: "WRITE-STRING"};
+((l253).value = ({car: l42.fvalue(pv, l296, (function (values,v753){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v754){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v754, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l137.fvalue(pv, v753));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l297 = {name: "MAKE-ARRAY"};
+((l253).value = ({car: l42.fvalue(pv, l297, (function (values,v755){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v756){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var r = [];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = 0; i < ", v756, "; i++)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "r.push(", l137.fvalue(pv, l3.value), ");", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "return r;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v755));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l298 = {name: "ARRAYP"};
+((l253).value = ({car: l42.fvalue(pv, l298, (function (values,v757){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v758){
+ return l136.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var x = ", v758, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
+ })(l137.fvalue(pv, v757));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l299 = {name: "AREF"};
+((l253).value = ({car: l42.fvalue(pv, l299, (function (values,v759,v760){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v761,v762){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var x = ", "(", v761, ")[", v762, "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (x === undefined) throw 'Out of range';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return x;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v759),l137.fvalue(pv, v760));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l300 = {name: "ASET"};
+((l253).value = ({car: l42.fvalue(pv, l300, (function (values,v763,v764,v765){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v766,v767,v768){
+ return l124.fvalue(values, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l135.fvalue(pv, "var x = ", v766, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var i = ", v767, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return x[i] = ", v768, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l137.fvalue(pv, v763),l137.fvalue(pv, v764),l137.fvalue(pv, v765));
+ })();
+})), cdr: (function(){
+ var symbol = l253;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l301 = {name: "GET-UNIX-TIME"};
+((l253).value = ({car: l42.fvalue(pv, l301, (function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return (function(){
+ return l124.fvalue(values, "(Math.round(new Date() / 1000))");
+ })();