+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 63)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l83;
+})();
+var l84 = {name: "REMOVE-IF"};
+(function(){
+ (l84).fvalue = (function(v141){
+ ((v141)["fname"] = "REMOVE-IF");
+ return v141;
+ })((function (values,v139,v140){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v140) !== l3.value ? (function(){
+ return l3.value;
+ })() : ((v139)(pv, (function(){
+ var tmp = v140;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) !== l3.value ? (function(){
+ return l84.fvalue(pv, v139, (function(){
+ var tmp = v140;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ })() : (function(){
+ return ({car: (function(){
+ var tmp = v140;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), cdr: l84.fvalue(pv, v139, (function(){
+ var tmp = v140;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())});
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 64)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l84;
+})();
+var l85 = {name: "REMOVE-IF-NOT"};
+(function(){
+ (l85).fvalue = (function(v144){
+ ((v144)["fname"] = "REMOVE-IF-NOT");
+ return v144;
+ })((function (values,v142,v143){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v143) !== l3.value ? (function(){
+ return l3.value;
+ })() : ((v142)(pv, (function(){
+ var tmp = v143;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) !== l3.value ? (function(){
+ return ({car: (function(){
+ var tmp = v143;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), cdr: l85.fvalue(pv, v142, (function(){
+ var tmp = v143;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())});
+ })() : (function(){
+ return l85.fvalue(pv, v142, (function(){
+ var tmp = v143;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 65)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l85;
+})();
+var l86 = {name: "DIGIT-CHAR-P"};
+(function(){
+ (l86).fvalue = (function(v146){
+ ((v146)["fname"] = "DIGIT-CHAR-P");
+ return v146;
+ })((function (values,v145){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var x1 = 48;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v145;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<=x2?l4.value: l3.value);
+ })() !== l3.value ? (function(){
+ var x1 = v145;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 57;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<=x2?l4.value: l3.value);
+ })() : l3.value) !== l3.value ? (function(){
+ var x1 = v145;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 48;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1-x2;
+ })() : l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 66)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l86;
+})();
+var l87 = {name: "SUBSEQ"};
+(function(){
+ (l87).fvalue = (function(v150){
+ ((v150)["fname"] = "SUBSEQ");
+ return v150;
+ })((function (values,v147,v148,v149){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 2:
+ v149=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v147) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return (v149 !== l3.value ? (function(){
+ var str = v147;
+ var a = v148;
+ var b;
+ b = v149;
+ return str.slice(a,b);
+ })() : (function(){
+ var str = v147;
+ var a = v148;
+ var b;
+ return str.slice(a,b);
+ })());
+ })() : (function(){
+ return (function(){
+ throw "Unsupported argument.";
+ })();
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 67)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l87;
+})();
+var l88 = {name: "PARSE-INTEGER"};
+(function(){
+ (l88).fvalue = (function(v155){
+ ((v155)["fname"] = "PARSE-INTEGER");
+ return v155;
+ })((function (values,v151){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v152,v153,v154){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var x1 = v153;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v154;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (v152 = (function(){
+ var x1 = (function(){
+ var x1 = v152;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 10;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1*x2;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = l86.fvalue(pv, (function(){
+ var string = v151;
+ var index = v153;
+ 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);
+ })());
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })());
+ (v153 = (function(){
+ var x1 = v153;
+ 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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 69)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v152;
+ })(0,0,l67.fvalue(pv, v151));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 68)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l88;
+})();
+var l89 = {name: "SOME"};
+(function(){
+ (l89).fvalue = (function(v162){
+ ((v162)["fname"] = "SOME");
+ return v162;
+ })((function (values,v156,v157){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v157) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v158,v159){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var x1 = v158;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v159;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ ((v156)(pv, (function(){
+ var string = v157;
+ var index = v158;
+ 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 ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 70, value: l4.value, message: 'Return from unknown block SOME.'})
+ })();
+ })() : l3.value);
+ (v158 = (function(){
+ var x1 = v158;
+ 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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 71)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return l3.value;
+ })(0,l67.fvalue(pv, v157));
+ })() : (l57.fvalue(pv, v157) !== l3.value ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v160,v161){
+ (function(){
+ while(v160 !== l3.value){
+ (v161 = (function(){
+ var tmp = v160;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ ((v156)(pv, v161) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 72, value: l4.value, message: 'Return from unknown block NIL.'})
+ })();
+ })() : l3.value);
+ return l3.value;
+ })();
+ (v160 = (function(){
+ var tmp = v160;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })(v157,l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 72)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Unknown sequence.";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 70)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l89;
+})();
+var l90 = {name: "EVERY"};
+(function(){
+ (l90).fvalue = (function(v169){
+ ((v169)["fname"] = "EVERY");
+ return v169;
+ })((function (values,v163,v164){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v164) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v165,v166){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var x1 = v165;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v166;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ ((v163)(pv, (function(){
+ var string = v164;
+ var index = v165;
+ 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 ? l3.value : (function(){
+ return (function(){
+ throw ({type: 'block', id: 73, value: l3.value, message: 'Return from unknown block EVERY.'})
+ })();
+ })());
+ (v165 = (function(){
+ var x1 = v165;
+ 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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 74)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return l4.value;
+ })(0,l67.fvalue(pv, v164));
+ })() : (l57.fvalue(pv, v164) !== l3.value ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v167,v168){
+ (function(){
+ while(v167 !== l3.value){
+ (v168 = (function(){
+ var tmp = v167;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ ((v163)(pv, v168) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw ({type: 'block', id: 75, value: l3.value, message: 'Return from unknown block NIL.'})
+ })();
+ })());
+ return l3.value;
+ })();
+ (v167 = (function(){
+ var tmp = v167;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l4.value;
+ })(v164,l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 75)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Unknown sequence.";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 73)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l90;
+})();
+var l91 = {name: "ASSOC"};
+(function(){
+ (l91).fvalue = (function(v172){
+ ((v172)["fname"] = "ASSOC");
+ return v172;
+ })((function (values,v170,v171){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(v171 !== l3.value){
+ (l25.fvalue(pv, v170, l31.fvalue(pv, v171)) !== l3.value ? (function(){
+ throw ({type: 'block', id: 77, value: l3.value, message: 'Return from unknown block NIL.'})
+ })() : (v171 = (function(){
+ var tmp = v171;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 77)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var tmp = v171;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 76)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l91;
+})();
+var l92 = {name: "STRING"};
+(function(){
+ (l92).fvalue = (function(v174){
+ ((v174)["fname"] = "STRING");
+ return v174;
+ })((function (values,v173){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v173) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return v173;
+ })() : (((function(){
+ var tmp = v173;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (v173).name;
+ })() : (function(){
+ return (function(){
+ var x = v173;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 78)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l92;
+})();
+var l93 = {name: "STRING="};
+(function(){
+ (l93).fvalue = (function(v177){
+ ((v177)["fname"] = "STRING=");
+ return v177;
+ })((function (values,v175,v176){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((v175 == v176)?l4.value: l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 79)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l93;
+})();
+var l94 = {name: "FDEFINITION"};
+(function(){
+ (l94).fvalue = (function(v179){
+ ((v179)["fname"] = "FDEFINITION");
+ return v179;
+ })((function (values,v178){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof v178 == 'function')?l4.value: l3.value) !== l3.value ? (function(){
+ return v178;
+ })() : (((function(){
+ var tmp = v178;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(){
+ var symbol = v178;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Invalid function";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 80)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l94;
+})();
+var l95 = {name: "DISASSEMBLE"};
+var l96 = {name: "WRITE-LINE"};
+(function(){
+ (l95).fvalue = (function(v181){
+ ((v181)["fname"] = "DISASSEMBLE");
+ return v181;
+ })((function (values,v180){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l96;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, (l94.fvalue(pv, v180)).toString());
+ return l3.value;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 81)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l95;
+})();
+var l97 = {name: "DOCUMENTATION"};
+var l98 = {name: "FUNCTION"};
+var l99 = {name: "VARIABLE"};
+(function(){
+ (l97).fvalue = (function(v186){
+ ((v186)["fname"] = "DOCUMENTATION");
+ return v186;
+ })((function(){
+ var func = (function (values,v182,v183){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v184){
+ return (l25.fvalue(pv, v184, l98) !== l3.value ? (function(){
+ return (function(v185){
+ return (function(){
+ var tmp = (v185)["docstring"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })(l94.fvalue(pv, v182));
+ })() : (l25.fvalue(pv, v184, l99) !== l3.value ? (function(){
+ (((function(){
+ var tmp = v182;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw "Wrong argument type! it should be a symbol";
+ })();
+ })());
+ return (function(){
+ var tmp = (v182)["vardoc"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()));
+ })(v183);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 82)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ });
+ func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
+ return func;
+ })());
+ return l97;
+})();
+var l100 = {name: "*PACKAGE-LIST*"};
+(function(){
+ (((l100.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l100).value = l3.value);
+ })());
+ return l100;
+})();
+var l101 = {name: "LIST-ALL-PACKAGES"};
+(function(){
+ (l101).fvalue = (function(v187){
+ ((v187)["fname"] = "LIST-ALL-PACKAGES");
+ return v187;
+ })((function (values){
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l100;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 83)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l101;
+})();
+var l102 = {name: "MAKE-PACKAGE"};
+var l103 = {name: "FIND-PACKAGE-OR-FAIL"};
+(function(){
+ (l102).fvalue = (function(v192){
+ ((v192)["fname"] = "MAKE-PACKAGE");
+ return v192;
+ })((function (values,v188,v189){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v189=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(v190,v191){
+ ((v190)["packageName"] = v188);
+ ((v190)["symbols"] = {});
+ ((v190)["exports"] = {});
+ ((v190)["use"] = v191);
+ ((l100).value = ({car: v190, cdr: (function(){
+ var symbol = l100;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ return v190;
+ })({},l69.fvalue(pv, (function(){
+ var symbol = l103;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v189));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 84)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l102;
+})();
+var l104 = {name: "PACKAGEP"};
+(function(){
+ (l104).fvalue = (function(v194){
+ ((v194)["fname"] = "PACKAGEP");
+ return v194;
+ })((function (values,v193){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof (v193) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v193))?l4.value: l3.value) : l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 85)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l104;
+})();
+var l105 = {name: "FIND-PACKAGE"};
+var l106 = {name: "PACKAGE-NAME"};
+(function(){
+ (l105).fvalue = (function(v199){
+ ((v199)["fname"] = "FIND-PACKAGE");
+ return v199;
+ })((function (values,v195){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (l104.fvalue(pv, v195) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 86, value: v195, message: 'Return from unknown block FIND-PACKAGE.'})
+ })();
+ })() : l3.value);
+ return (function(v196){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v197,v198){
+ (function(){
+ while(v197 !== l3.value){
+ (v198 = (function(){
+ var tmp = v197;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (l93.fvalue(pv, (function(){
+ var symbol = l106;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v198), v196) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 87, value: v198, message: 'Return from unknown block NIL.'})
+ })();
+ })() : l3.value);
+ return l3.value;
+ })();
+ (v197 = (function(){
+ var tmp = v197;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })((function(){
+ var symbol = l100;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(),l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 87)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l92.fvalue(pv, v195));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 86)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l105;
+})();
+(function(){
+ (l103).fvalue = (function(v202){
+ ((v202)["fname"] = "FIND-PACKAGE-OR-FAIL");
+ return v202;
+ })((function (values,v200){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v201){
+ return (v201 !== l3.value ? v201 : (function(){
+ throw "Package unknown.";
+ })());
+ })(l105.fvalue(pv, v200));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 88)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l103;
+})();
+(function(){
+ (l106).fvalue = (function(v205){
+ ((v205)["fname"] = "PACKAGE-NAME");
+ return v205;
+ })((function (values,v203){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v204){
+ return (function(){
+ var tmp = (v204)["packageName"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })(l103.fvalue(pv, v203));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 89)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l106;
+})();
+var l107 = {name: "%PACKAGE-SYMBOLS"};
+(function(){
+ (l107).fvalue = (function(v208){
+ ((v208)["fname"] = "%PACKAGE-SYMBOLS");
+ return v208;
+ })((function (values,v206){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v207){
+ return (function(){
+ var tmp = (v207)["symbols"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })(l103.fvalue(pv, v206));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 90)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l107;
+})();
+var l108 = {name: "PACKAGE-USE-LIST"};
+(function(){
+ (l108).fvalue = (function(v211){
+ ((v211)["fname"] = "PACKAGE-USE-LIST");
+ return v211;
+ })((function (values,v209){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v210){
+ return (function(){
+ var tmp = (v210)["use"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })(l103.fvalue(pv, v209));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 91)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l108;
+})();
+var l109 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"};
+(function(){
+ (l109).fvalue = (function(v214){
+ ((v214)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS");
+ return v214;
+ })((function (values,v212){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v213){
+ return (function(){
+ var tmp = (v213)["exports"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })(l103.fvalue(pv, v212));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 92)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l109;
+})();
+var l110 = {name: "*COMMON-LISP-PACKAGE*"};
+(function(){
+ (((l110.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l110).value = l102.fvalue(pv, "CL"));
+ })());
+ return l110;
+})();
+var l111 = {name: "*USER-PACKAGE*"};
+(function(){
+ (((l111.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l111).value = l102.fvalue(pv, "CL-USER", l42.fvalue(pv, (function(){
+ var symbol = l110;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())));
+ })());
+ return l111;
+})();
+var l112 = {name: "*KEYWORD-PACKAGE*"};
+(function(){
+ (((l112.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l112).value = l102.fvalue(pv, "KEYWORD"));
+ })());
+ return l112;
+})();
+var l113 = {name: "KEYWORDP"};
+var l114 = {name: "SYMBOL-PACKAGE"};
+(function(){
+ (l113).fvalue = (function(v216){
+ ((v216)["fname"] = "KEYWORDP");
+ return v216;
+ })((function (values,v215){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var tmp = v215;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (((function(){
+ var symbol = l114;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v215) === (function(){
+ var symbol = l112;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())?l4.value: l3.value) : l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 93)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l113;
+})();
+var l115 = {name: "*PACKAGE*"};
+(function(){
+ (((l115.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l115).value = (function(){
+ var symbol = l110;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })());
+ return l115;
+})();
+var l116 = {name: "IN-PACKAGE"};
+l116;
+var l117 = {name: "%INTERN-SYMBOL"};
+(function(){
+ (l117).fvalue = (function(v219){
+ ((v219)["fname"] = "%INTERN-SYMBOL");
+ return v219;
+ })((function (values,v217){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v218){
+ ((v217)["package"] = (function(){
+ var symbol = l110;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return ((v218)[(v217).name] = v217);
+ })(l107.fvalue(pv, (function(){
+ var symbol = l110;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 94)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l117;
+})();
+var l118 = {name: "%FIND-SYMBOL"};
+(function(){
+ (l118).fvalue = (function(v227){
+ ((v227)["fname"] = "%FIND-SYMBOL");
+ return v227;
+ })((function (values,v220,v221){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v222){
+ return (function(v223){
+ return ((((v220) in (v223))?l4.value: l3.value) !== l3.value ? ({car: (function(){
+ var tmp = (v223)[v220];
+ return tmp == undefined? l3.value: tmp ;
+ })(), cdr: l4.value}) : (function(){
+ try {
+ return (function(){
+ return (function(v224,v225){
+ (function(){
+ while(v224 !== l3.value){
+ (v225 = (function(){
+ var tmp = v224;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v226){
+ return ((((v220) in (v226))?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 95, value: ({car: (function(){
+ var tmp = (v226)[v220];
+ return tmp == undefined? l3.value: tmp ;
+ })(), cdr: l4.value}), message: 'Return from unknown block %FIND-SYMBOL.'})
+ })();
+ })() : l3.value);
+ })(l109.fvalue(pv, v225));
+ return l3.value;
+ })();
+ (v224 = (function(){
+ var tmp = v224;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return ({car: l3.value, cdr: l3.value});
+ })(l108.fvalue(pv, v222),l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 96)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })());
+ })(l107.fvalue(pv, v222));
+ })(l103.fvalue(pv, v221));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 95)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l118;
+})();
+var l119 = {name: "FIND-SYMBOL"};
+(function(){
+ (l119).fvalue = (function(v230){
+ ((v230)["fname"] = "FIND-SYMBOL");
+ return v230;
+ })((function (values,v228,v229){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v229=(function(){
+ var symbol = l115;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var tmp = l118.fvalue(pv, v228, v229);
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 97)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l119;
+})();
+var l120 = {name: "INTERN"};
+var l121 = {name: "EXPORT"};
+(function(){
+ (l120).fvalue = (function(v237){
+ ((v237)["fname"] = "INTERN");
+ return v237;
+ })((function (values,v231,v232){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v232=(function(){
+ var symbol = l115;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(v233){
+ return (function(v234){
+ return ((function(){
+ var tmp = v234;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })() !== l3.value ? (function(){
+ var tmp = v234;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() : (function(v235){
+ (function(){
+ var tmp = (v235)[v231];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ return (function(v236){
+ ((v236)["package"] = v233);
+ (((v233 === (function(){
+ var symbol = l112;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())?l4.value: l3.value) !== l3.value ? (function(){
+ ((v236)["value"] = v236);
+ return (function(){
+ var symbol = l121;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l42.fvalue(pv, v236), v233);
+ })() : l3.value);
+ return ((v235)[v231] = v236);
+ })((function(){
+ var name = v231;
+ if (typeof name != 'string')
+ throw 'The value ' + name + ' is not a type string.';
+ return ({name: name});
+ })());
+ })(l107.fvalue(pv, v233)));
+ })(l118.fvalue(pv, v231, v233));
+ })(l103.fvalue(pv, v232));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 98)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l120;
+})();
+(function(){
+ (l114).fvalue = (function(v239){
+ ((v239)["fname"] = "SYMBOL-PACKAGE");
+ return v239;
+ })((function (values,v238){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (((function(){
+ var tmp = v238;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw "it is not a symbol";
+ })();
+ })());
+ return (function(){
+ var tmp = (v238)["package"];
+ return tmp == undefined? l3.value: tmp ;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 99)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l114;
+})();
+(function(){
+ (l121).fvalue = (function(v245){
+ ((v245)["fname"] = "EXPORT");
+ return v245;
+ })((function (values,v240,v241){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v241=(function(){
+ var symbol = l115;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(v242){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v243,v244){
+ (function(){
+ while(v243 !== l3.value){
+ (v244 = (function(){
+ var tmp = v243;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ ((v242)[(v244).name] = v244);
+ return l3.value;
+ })();
+ (v243 = (function(){
+ var tmp = v243;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l4.value;
+ })(v240,l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 101)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l109.fvalue(pv, v241));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 100)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l121;
+})();
+var l122 = {name: "GET-UNIVERSAL-TIME"};
+(function(){
+ (l122).fvalue = (function(v246){
+ ((v246)["fname"] = "GET-UNIVERSAL-TIME");
+ return v246;
+ })((function (values){
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var x1 = (Math.round(new Date() / 1000));
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 2208988800;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 102)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l122;
+})();
+var l123 = {name: "*NEWLINE*"};
+(function(){
+ (((l123.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l123).value = l92.fvalue(pv, l72.fvalue(pv, 10)));
+ })());
+ return l123;
+})();
+var l124 = {name: "CONCAT"};
+(function(){
+ (l124).fvalue = (function(v248){
+ ((v248)["fname"] = "CONCAT");
+ return v248;
+ })((function (values){
+ var v247= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v247 = {car: arguments[i], cdr:
+ v247};
+ return (function(){
+ try {
+ return (function(){
+ return l58.fvalue(values, (function(){
+ var symbol = l68;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v247, "");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 103)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l124;
+})();
+var l125 = {name: "CONCATF"};
+l125;
+var l126 = {name: "JOIN"};
+(function(){
+ (l126).fvalue = (function(v251){
+ ((v251)["fname"] = "JOIN");
+ return v251;
+ })((function (values,v249,v250){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v250="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v249) !== l3.value ? (function(){
+ return "";
+ })() : (l11.fvalue(pv, (function(){
+ var tmp = v249;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? (function(){
+ return (function(){
+ var tmp = v249;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })() : (function(){
+ return l124.fvalue(pv, (function(){
+ var tmp = v249;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v250, l126.fvalue(pv, (function(){
+ var tmp = v249;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), v250));
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 104)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l126;
+})();
+var l127 = {name: "JOIN-TRAILING"};
+(function(){
+ (l127).fvalue = (function(v254){
+ ((v254)["fname"] = "JOIN-TRAILING");
+ return v254;
+ })((function (values,v252,v253){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v253="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v252) !== l3.value ? "" : l124.fvalue(values, (function(){
+ var tmp = v252;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v253, l127.fvalue(pv, (function(){
+ var tmp = v252;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), v253)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 105)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l127;
+})();
+var l128 = {name: "MAPCONCAT"};
+(function(){
+ (l128).fvalue = (function(v257){
+ ((v257)["fname"] = "MAPCONCAT");
+ return v257;
+ })((function (values,v255,v256){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l126.fvalue(values, l69.fvalue(pv, v255, v256));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 106)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l128;
+})();
+var l129 = {name: "VECTOR-TO-LIST"};
+(function(){
+ (l129).fvalue = (function(v263){
+ ((v263)["fname"] = "VECTOR-TO-LIST");
+ return v263;
+ })((function (values,v258){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v259,v260){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v261,v262){
+ (function(){
+ while((function(){
+ var x1 = v261;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v262;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (function(){
+ (v259 = ({car: (function(){
+ var x = (v258)[v261];
+ if (x === undefined) throw 'Out of range';
+ return x;
+ })(), cdr: v259}));
+ return l3.value;
+ })();
+ (v261 = (function(){
+ var x1 = v261;
+ 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 l64.fvalue(pv, v259);
+ })(0,v260);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 108)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l3.value,l67.fvalue(pv, v258));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 107)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l129;
+})();
+var l130 = {name: "LIST-TO-VECTOR"};
+(function(){
+ (l130).fvalue = (function(v269){
+ ((v269)["fname"] = "LIST-TO-VECTOR");
+ return v269;
+ })((function (values,v264){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v265,v266){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v267,v268){
+ (function(){
+ while(v267 !== l3.value){
+ (v268 = (function(){
+ var tmp = v267;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(){
+ var x = v265;
+ var i = v266;
+ if (i < 0 || i >= x.length) throw 'Out of range';
+ return x[i] = v268;
+ })();
+ (v266 = (function(){
+ var x1 = v266;
+ 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;
+ })();
+ (v267 = (function(){
+ var tmp = v267;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return v265;
+ })(v264,l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 110)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var r = [];
+ for (var i = 0; i < l67.fvalue(pv, v264); i++)
+ r.push(l3.value);
+ return r;
+ })(),0);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 109)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l130;
+})();
+var l131 = {name: "VALUES-LIST"};
+(function(){
+ (l131).fvalue = (function(v271){
+ ((v271)["fname"] = "VALUES-LIST");
+ return v271;
+ })((function (values,v270){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return values.apply(this, l130.fvalue(pv, v270));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 111)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ 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(){
+ try {
+ return (function(){
+ return l131.fvalue(values, v272);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 112)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l132;
+})();
+var l133 = {name: "INDENT"};
+(function(){
+ (l133).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(){
+ try {
+ return (function(){
+ return (function(v275){
+ return (function(v276,v277,v278){
+ (l76.fvalue(pv, l67.fvalue(pv, v275)) !== l3.value ? (function(){
+ return (v276 = l124.fvalue(pv, v276, (function(){
+ return " ";
+ })()));
+ })() : l3.value);
+ (function(){
+ try {
+ return (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, (function(){
+ return 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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 114)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v276;
+ })("",0,l67.fvalue(pv, v275));
+ })(l126.fvalue(pv, v274));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 113)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l133;
+})();
+(function(){
+ (l16).fvalue = (function(v284){
+ ((v284)["fname"] = "INTEGER-TO-STRING");
+ return v284;
+ })((function (values,v281){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l23.fvalue(pv, v281) !== l3.value ? (function(){
+ return "0";
+ })() : (l77.fvalue(pv, v281) !== l3.value ? (function(){
+ return l124.fvalue(pv, "-", 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(){
+ return (function(v282){
+ (function(){
+ try {
+ return (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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 116)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return l126.fvalue(pv, l69.fvalue(pv, (function (values,v283){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ 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);
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 115)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l16;
+})();
+var l134 = {name: "JS!BOOL"};
+var l135 = {name: "LS-COMPILE"};
+(function(){
+ (l134).fvalue = (function(v286){
+ ((v286)["fname"] = "JS!BOOL");
+ return v286;
+ })((function (values,v285){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(values, "(", v285, "?", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l4.value), ": ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l3.value), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 117)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l134;
+})();
+var l136 = {name: "JS!SELFCALL"};
+l136;
+var l137 = {name: "PRIN1-TO-STRING"};
+var l138 = {name: "ESCAPE-STRING"};
+(function(){
+ (l137).fvalue = (function(v292){
+ ((v292)["fname"] = "PRIN1-TO-STRING");
+ return v292;
+ })((function (values,v287){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var tmp = v287;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return ((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(pv, (l11.fvalue(pv, v288) !== l3.value ? (function(){
+ return "#";
+ })() : (((v288 === l105.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? (function(){
+ return "";
+ })() : (function(){
+ return l106.fvalue(pv, v288);
+ })())), ":", v289);
+ })(l114.fvalue(pv, v287),(v287).name));
+ })() : (l75.fvalue(pv, v287) !== l3.value ? (function(){
+ return l16.fvalue(pv, v287);
+ })() : (((typeof(v287) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return l124.fvalue(pv, "\"", (function(){
+ var symbol = l138;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v287), "\"");
+ })() : (((typeof v287 == 'function')?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v290){
+ return (v290 !== l3.value ? l124.fvalue(pv, "#<FUNCTION ", v290, ">") : l124.fvalue(pv, "#<FUNCTION>"));
+ })((function(){
+ var tmp = (v287)["fname"];
+ return tmp == undefined? l3.value: tmp ;
+ })());
+ })() : (l57.fvalue(pv, v287) !== l3.value ? (function(){
+ return l124.fvalue(pv, "(", l127.fvalue(pv, l69.fvalue(pv, (function(){
+ var symbol = l137;
+ 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 ? l137.fvalue(pv, (function(){
+ var tmp = v291;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l124.fvalue(pv, l137.fvalue(pv, (function(){
+ var tmp = v291;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()), " . ", l137.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 ? (function(){
+ return l124.fvalue(pv, "#", l137.fvalue(pv, l129.fvalue(pv, v287)));
+ })() : (l104.fvalue(pv, v287) !== l3.value ? (function(){
+ return l124.fvalue(pv, "#<PACKAGE ", l106.fvalue(pv, v287), ">");
+ })() : l3.value)))))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 118)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l137;
+})();
+(function(){
+ (l96).fvalue = (function(v294){
+ ((v294)["fname"] = "WRITE-LINE");
+ return v294;
+ })((function (values,v293){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 119)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l96;
+})();
+var l139 = {name: "WARN"};
+(function(){
+ (l139).fvalue = (function(v296){
+ ((v296)["fname"] = "WARN");
+ return v296;
+ })((function (values,v295){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 120)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l139;
+})();
+var l140 = {name: "PRINT"};
+(function(){
+ (l140).fvalue = (function(v298){
+ ((v298)["fname"] = "PRINT");
+ return v298;
+ })((function (values,v297){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ l96.fvalue(pv, l137.fvalue(pv, v297));
+ return v297;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 121)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l140;
+})();
+var l141 = {name: "MAKE-STRING-STREAM"};
+(function(){
+ (l141).fvalue = (function(v300){
+ ((v300)["fname"] = "MAKE-STRING-STREAM");
+ return v300;
+ })((function (values,v299){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ({car: v299, cdr: 0});
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 122)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l141;
+})();
+var l142 = {name: "%PEEK-CHAR"};
+(function(){
+ (l142).fvalue = (function(v302){
+ ((v302)["fname"] = "%PEEK-CHAR");
+ return v302;
+ })((function (values,v301){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 123)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l142;
+})();
+var l143 = {name: "%READ-CHAR"};
+(function(){
+ (l143).fvalue = (function(v305){
+ ((v305)["fname"] = "%READ-CHAR");
+ return v305;
+ })((function (values,v303){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 124)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l143;
+})();
+var l144 = {name: "WHITESPACEP"};
+(function(){
+ (l144).fvalue = (function(v309){
+ ((v309)["fname"] = "WHITESPACEP");
+ return v309;
+ })((function (values,v306){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v307){
+ return (v307 !== l3.value ? v307 : (function(v308){
+ return (v308 !== l3.value ? v308 : l74.fvalue(pv, v306, 9));
+ })(l74.fvalue(pv, v306, 10)));
+ })(l74.fvalue(pv, v306, 32));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 125)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l144;
+})();
+var l145 = {name: "SKIP-WHITESPACES"};
+(function(){
+ (l145).fvalue = (function(v312){
+ ((v312)["fname"] = "SKIP-WHITESPACES");
+ return v312;
+ })((function (values,v310){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v311){
+ (v311 = l142.fvalue(pv, v310));
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v311 !== l3.value ? l144.fvalue(pv, v311) : l3.value) !== l3.value){
+ l143.fvalue(pv, v310);
+ (v311 = l142.fvalue(pv, v310));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 127)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 126)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l145;
+})();
+var l146 = {name: "TERMINALP"};
+(function(){
+ (l146).fvalue = (function(v317){
+ ((v317)["fname"] = "TERMINALP");
+ return v317;
+ })((function (values,v313){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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(pv, 40, v313));
+ })(l74.fvalue(pv, 41, v313)));
+ })(l144.fvalue(pv, v313)));
+ })(l11.fvalue(pv, v313));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 128)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l146;
+})();
+var l147 = {name: "READ-UNTIL"};
+(function(){
+ (l147).fvalue = (function(v322){
+ ((v322)["fname"] = "READ-UNTIL");
+ return v322;
+ })((function (values,v318,v319){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v320,v321){
+ (v321 = l142.fvalue(pv, v318));
+ (function(){
+ try {
+ return (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)));
+ l143.fvalue(pv, v318);
+ (v321 = l142.fvalue(pv, v318));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 130)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v320;
+ })("",l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 129)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l147;
+})();
+var l148 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
+(function(){
+ (l148).fvalue = (function(v326){
+ ((v326)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
+ return v326;
+ })((function (values,v323){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v324){
+ l145.fvalue(pv, v323);
+ (v324 = l142.fvalue(pv, v323));
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v324 !== l3.value ? l74.fvalue(pv, v324, 59) : l3.value) !== l3.value){
+ l147.fvalue(pv, v323, (function (values,v325){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l74.fvalue(values, v325, 10);
+
+ }));
+ l145.fvalue(pv, v323);
+ (v324 = l142.fvalue(pv, v323));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 132)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 131)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l148;
+})();
+var l149 = {name: "%READ-LIST"};
+var l150 = {name: "LS-READ"};
+(function(){
+ (l149).fvalue = (function(v330){
+ ((v330)["fname"] = "%READ-LIST");
+ return v330;
+ })((function (values,v327){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ l148.fvalue(pv, v327);
+ return (function(v328){
+ return (l11.fvalue(pv, v328) !== l3.value ? (function(){
+ return (function(){
+ throw "Unspected EOF";
+ })();
+ })() : (l74.fvalue(pv, v328, 41) !== l3.value ? (function(){
+ l143.fvalue(pv, v327);
+ return l3.value;
+ })() : (l74.fvalue(pv, v328, 46) !== l3.value ? (function(){
+ l143.fvalue(pv, v327);
+ return (function(v329){
+ l148.fvalue(pv, v327);
+ (l74.fvalue(pv, l143.fvalue(pv, v327), 41) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw "')' was expected.";
+ })();
+ })());
+ return v329;
+ })((function(){
+ var symbol = l150;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v327));
+ })() : (function(){
+ return ({car: (function(){
+ var symbol = l150;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v327), cdr: l149.fvalue(pv, v327)});
+ })())));
+ })(l142.fvalue(pv, v327));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 133)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l149;
+})();
+var l151 = {name: "READ-STRING"};
+(function(){
+ (l151).fvalue = (function(v334){
+ ((v334)["fname"] = "READ-STRING");
+ return v334;
+ })((function (values,v331){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v332,v333){
+ (v333 = l143.fvalue(pv, v331));
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(l26.fvalue(pv, l25.fvalue(pv, v333, 34)) !== l3.value){
+ (l11.fvalue(pv, v333) !== l3.value ? (function(){
+ return (function(){
+ throw "Unexpected EOF";
+ })();
+ })() : l3.value);
+ (l25.fvalue(pv, v333, 92) !== l3.value ? (function(){
+ return (v333 = l143.fvalue(pv, v331));
+ })() : l3.value);
+ (v332 = l124.fvalue(pv, v332, l92.fvalue(pv, v333)));
+ (v333 = l143.fvalue(pv, v331));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 135)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v332;
+ })("",l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 134)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l151;
+})();
+var l152 = {name: "READ-SHARP"};
+(function(){
+ (l152).fvalue = (function(v339){
+ ((v339)["fname"] = "READ-SHARP");
+ return v339;
+ })((function (values,v335){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ l143.fvalue(pv, v335);
+ return (function(v336){
+ return (l25.fvalue(pv, v336, 39) !== l3.value ? (function(){
+ return l42.fvalue(pv, l98, (function(){
+ var symbol = l150;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v335));
+ })() : (l25.fvalue(pv, v336, 40) !== l3.value ? (function(){
+ return l130.fvalue(pv, l149.fvalue(pv, v335));
+ })() : (l25.fvalue(pv, v336, 58) !== l3.value ? (function(){
+ return (function(){
+ var name = (function(){
+ var x = l147.fvalue(pv, v335, (function(){
+ var symbol = l146;
+ 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(){
+ return (function(v337){
+ return (l93.fvalue(pv, v337, "space") !== l3.value ? (function(){
+ return l73.fvalue(pv, 32);
+ })() : (l93.fvalue(pv, v337, "tab") !== l3.value ? (function(){
+ return l73.fvalue(pv, 9);
+ })() : (l93.fvalue(pv, v337, "newline") !== l3.value ? (function(){
+ return l73.fvalue(pv, 10);
+ })() : (function(){
+ return l73.fvalue(pv, (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, l143.fvalue(pv, v335)), l147.fvalue(pv, v335, (function(){
+ var symbol = l146;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())));
+ })() : (l25.fvalue(pv, v336, 43) !== l3.value ? (function(){
+ return (function(v338){
+ return (l93.fvalue(pv, v338, "common-lisp") !== l3.value ? (function(){
+ (function(){
+ var symbol = l150;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v335);
+ return (function(){
+ var symbol = l150;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v335);
+ })() : (l93.fvalue(pv, v338, "ecmalisp") !== l3.value ? (function(){
+ return (function(){
+ var symbol = l150;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v335);
+ })() : (function(){
+ return (function(){
+ throw "Unknown reader form.";
+ })();
+ })()));
+ })(l147.fvalue(pv, v335, (function(){
+ var symbol = l146;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })())))));
+ })(l143.fvalue(pv, v335));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 136)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l152;
+})();
+var l153 = {name: "READ-SYMBOL"};
+(function(){
+ (l153).fvalue = (function(v347){
+ ((v347)["fname"] = "READ-SYMBOL");
+ return v347;
+ })((function (values,v340){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v341,v342,v343,v344,v345){
+ (v345 = 0);
+ (function(){
+ try {
+ return (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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 138)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ ((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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 137)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l153;
+})();
+var l154 = {name: "*EOF*"};
+(function(){
+ (((l154.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l154).value = l15.fvalue(pv));
+ })());
+ return l154;
+})();
+var l155 = {name: "QUOTE"};
+var l156 = {name: "BACKQUOTE"};
+var l157 = {name: "UNQUOTE-SPLICING"};
+var l158 = {name: "UNQUOTE"};
+(function(){
+ (l150).fvalue = (function(v352){
+ ((v352)["fname"] = "LS-READ");
+ return v352;
+ })((function (values,v348){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ l148.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(){
+ return (function(){
+ var symbol = l154;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : (l74.fvalue(pv, v349, 40) !== l3.value ? (function(){
+ l143.fvalue(pv, v348);
+ return l149.fvalue(pv, v348);
+ })() : (l74.fvalue(pv, v349, 39) !== l3.value ? (function(){
+ l143.fvalue(pv, v348);
+ return l42.fvalue(pv, l155, l150.fvalue(pv, v348));
+ })() : (l74.fvalue(pv, v349, 96) !== l3.value ? (function(){
+ l143.fvalue(pv, v348);
+ return l42.fvalue(pv, l156, l150.fvalue(pv, v348));
+ })() : (l74.fvalue(pv, v349, 34) !== l3.value ? (function(){
+ l143.fvalue(pv, v348);
+ return l151.fvalue(pv, v348);
+ })() : (l74.fvalue(pv, v349, 44) !== l3.value ? (function(){
+ l143.fvalue(pv, v348);
+ return (l25.fvalue(pv, l142.fvalue(pv, v348), 64) !== l3.value ? (function(){
+ l143.fvalue(pv, v348);
+ return l42.fvalue(pv, l157, l150.fvalue(pv, v348));
+ })() : l42.fvalue(pv, l158, l150.fvalue(pv, v348)));
+ })() : (l74.fvalue(pv, v349, 35) !== l3.value ? (function(){
+ return l152.fvalue(pv, v348);
+ })() : (function(){
+ return (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(pv, v351) : l153.fvalue(pv, v351));
+ })(l147.fvalue(pv, v348, (function(){
+ var symbol = l146;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })())))))));
+ })(l142.fvalue(pv, v348));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 139)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l150;
+})();
+var l159 = {name: "LS-READ-FROM-STRING"};
+(function(){
+ (l159).fvalue = (function(v354){
+ ((v354)["fname"] = "LS-READ-FROM-STRING");
+ return v354;
+ })((function (values,v353){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l150.fvalue(values, l141.fvalue(pv, v353));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 140)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l159;
+})();
+var l160 = {name: "*MULTIPLE-VALUE-P*"};
+(function(){
+ (((l160.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l160).value = l3.value);
+ })());
+ return l160;
+})();
+var l161 = {name: "*COMPILATION-UNIT-CHECKS*"};
+(function(){
+ (((l161.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l161).value = l3);
+ })());
+ return l161;
+})();
+var l162 = {name: "MAKE-BINDING"};
+(function(){
+ (l162).fvalue = (function(v359){
+ ((v359)["fname"] = "MAKE-BINDING");
+ return v359;
+ })((function (values,v355,v356,v357,v358){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 5) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 3:
+ v358=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return l42.fvalue(values, v355, v356, v357, v358);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 141)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l162;
+})();
+var l163 = {name: "BINDING-NAME"};
+(function(){
+ (l163).fvalue = (function(v361){
+ ((v361)["fname"] = "BINDING-NAME");
+ return v361;
+ })((function (values,v360){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l38.fvalue(values, v360);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 142)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l163;
+})();
+var l164 = {name: "BINDING-TYPE"};
+(function(){
+ (l164).fvalue = (function(v363){
+ ((v363)["fname"] = "BINDING-TYPE");
+ return v363;
+ })((function (values,v362){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l39.fvalue(values, v362);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 143)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l164;
+})();
+var l165 = {name: "BINDING-VALUE"};
+(function(){
+ (l165).fvalue = (function(v365){
+ ((v365)["fname"] = "BINDING-VALUE");
+ return v365;
+ })((function (values,v364){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l40.fvalue(values, v364);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 144)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l165;
+})();
+var l166 = {name: "BINDING-DECLARATIONS"};
+(function(){
+ (l166).fvalue = (function(v367){
+ ((v367)["fname"] = "BINDING-DECLARATIONS");
+ return v367;
+ })((function (values,v366){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l41.fvalue(values, v366);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 145)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l166;
+})();
+var l167 = {name: "SET-BINDING-VALUE"};
+(function(){
+ (l167).fvalue = (function(v370){
+ ((v370)["fname"] = "SET-BINDING-VALUE");
+ return v370;
+ })((function (values,v368,v369){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ 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);
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 146)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l167;
+})();
+var l168 = {name: "SET-BINDING-DECLARATIONS"};
+(function(){
+ (l168).fvalue = (function(v373){
+ ((v373)["fname"] = "SET-BINDING-DECLARATIONS");
+ return v373;
+ })((function (values,v371,v372){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ 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);
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 147)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l168;
+})();
+var l169 = {name: "PUSH-BINDING-DECLARATION"};
+(function(){
+ (l169).fvalue = (function(v376){
+ ((v376)["fname"] = "PUSH-BINDING-DECLARATION");
+ return v376;
+ })((function (values,v374,v375){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l168.fvalue(values, v375, ({car: v374, cdr: l166.fvalue(pv, v375)}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 148)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l169;
+})();
+var l170 = {name: "MAKE-LEXENV"};
+(function(){
+ (l170).fvalue = (function(v377){
+ ((v377)["fname"] = "MAKE-LEXENV");
+ return v377;
+ })((function (values){
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l42.fvalue(values, l3.value, l3.value, l3.value, l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 149)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l170;
+})();
+var l171 = {name: "COPY-LEXENV"};
+(function(){
+ (l171).fvalue = (function(v379){
+ ((v379)["fname"] = "COPY-LEXENV");
+ return v379;
+ })((function (values,v378){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l71.fvalue(values, v378);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 150)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l171;
+})();
+var l172 = {name: "PUSH-TO-LEXENV"};
+var l173 = {name: "BLOCK"};
+var l174 = {name: "GOTAG"};
+(function(){
+ (l172).fvalue = (function(v384){
+ ((v384)["fname"] = "PUSH-TO-LEXENV");
+ return v384;
+ })((function (values,v380,v381,v382){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v383){
+ return (l25.fvalue(pv, v383, l99) !== l3.value ? (function(){
+ return (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(){
+ return (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, l173) !== l3.value ? (function(){
+ return (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, l174) !== l3.value ? (function(){
+ return (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(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v382);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 151)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l172;
+})();
+var l175 = {name: "EXTEND-LEXENV"};
+(function(){
+ (l175).fvalue = (function(v391){
+ ((v391)["fname"] = "EXTEND-LEXENV");
+ return v391;
+ })((function (values,v385,v386,v387){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v388){
+ return (function(){
+ try {
+ 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(){
+ l172.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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 153)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l171.fvalue(pv, v386));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 152)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l175;
+})();
+var l176 = {name: "LOOKUP-IN-LEXENV"};
+(function(){
+ (l176).fvalue = (function(v396){
+ ((v396)["fname"] = "LOOKUP-IN-LEXENV");
+ return v396;
+ })((function (values,v392,v393,v394){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l91.fvalue(values, v392, (function(v395){
+ return (l25.fvalue(pv, v395, l99) !== l3.value ? (function(){
+ return l38.fvalue(pv, v393);
+ })() : (l25.fvalue(pv, v395, l98) !== l3.value ? (function(){
+ return l39.fvalue(pv, v393);
+ })() : (l25.fvalue(pv, v395, l173) !== l3.value ? (function(){
+ return l40.fvalue(pv, v393);
+ })() : (l25.fvalue(pv, v395, l174) !== l3.value ? (function(){
+ return l41.fvalue(pv, v393);
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v394));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 154)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l176;
+})();
+var l177 = {name: "*ENVIRONMENT*"};
+(function(){
+ (((l177.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l177).value = l170.fvalue(pv));
+ })());
+ return l177;
+})();
+var l178 = {name: "*VARIABLE-COUNTER*"};
+(function(){
+ (((l178.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l178).value = 0);
+ })());
+ return l178;
+})();
+var l179 = {name: "GVARNAME"};
+(function(){
+ (l179).fvalue = (function(v398){
+ ((v398)["fname"] = "GVARNAME");
+ return v398;
+ })((function (values,v397){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(values, "v", l16.fvalue(pv, ((l178).value = (function(){
+ var x1 = (function(){
+ var symbol = l178;
+ 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;
+ })())));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 155)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l179;
+})();
+var l180 = {name: "TRANSLATE-VARIABLE"};
+(function(){
+ (l180).fvalue = (function(v400){
+ ((v400)["fname"] = "TRANSLATE-VARIABLE");
+ return v400;
+ })((function (values,v399){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l165.fvalue(values, l176.fvalue(pv, v399, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 156)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l180;
+})();
+var l181 = {name: "EXTEND-LOCAL-ENV"};
+var l182 = {name: "LEXICAL-VARIABLE"};
+(function(){
+ (l181).fvalue = (function(v406){
+ ((v406)["fname"] = "EXTEND-LOCAL-ENV");
+ return v406;
+ })((function (values,v401){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v402){
+ return (function(){
+ try {
+ 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 l172.fvalue(pv, v405, v402, l99);
+ })(l162.fvalue(pv, v404, l182, l179.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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 158)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })(l171.fvalue(pv, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 157)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l181;
+})();
+var l183 = {name: "*TOPLEVEL-COMPILATIONS*"};
+(function(){
+ (((l183.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l183).value = l3.value);
+ })());
+ return l183;
+})();
+var l184 = {name: "TOPLEVEL-COMPILATION"};
+(function(){
+ (l184).fvalue = (function(v408){
+ ((v408)["fname"] = "TOPLEVEL-COMPILATION");
+ return v408;
+ })((function (values,v407){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((l183).value = ({car: v407, cdr: (function(){
+ var symbol = l183;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 159)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l184;
+})();
+var l185 = {name: "NULL-OR-EMPTY-P"};
+(function(){
+ (l185).fvalue = (function(v410){
+ ((v410)["fname"] = "NULL-OR-EMPTY-P");
+ return v410;
+ })((function (values,v409){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l23.fvalue(values, l67.fvalue(pv, v409));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 160)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l185;
+})();
+var l186 = {name: "GET-TOPLEVEL-COMPILATIONS"};
+(function(){
+ (l186).fvalue = (function(v411){
+ ((v411)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
+ return v411;
+ })((function (values){
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l64.fvalue(values, l84.fvalue(pv, (function(){
+ var symbol = l185;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l183;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 161)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l186;
+})();
+var l187 = {name: "%COMPILE-DEFMACRO"};
+var l188 = {name: "MACRO"};
+(function(){
+ (l187).fvalue = (function(v414){
+ ((v414)["fname"] = "%COMPILE-DEFMACRO");
+ return v414;
+ })((function (values,v412,v413){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ l184.fvalue(pv, (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, v412))));
+ return l172.fvalue(values, l162.fvalue(pv, v412, l188, v413), (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l98);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 162)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l187;
+})();
+var l189 = {name: "GLOBAL-BINDING"};
+(function(){
+ (l189).fvalue = (function(v420){
+ ((v420)["fname"] = "GLOBAL-BINDING");
+ return v420;
+ })((function (values,v415,v416,v417){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v418){
+ return (v418 !== l3.value ? v418 : (function(v419){
+ l172.fvalue(pv, v419, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v417);
+ return v419;
+ })(l162.fvalue(pv, v415, v416, l3.value)));
+ })(l176.fvalue(pv, v415, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v417));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 163)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l189;
+})();
+var l190 = {name: "CLAIMP"};
+(function(){
+ (l190).fvalue = (function(v425){
+ ((v425)["fname"] = "CLAIMP");
+ return v425;
+ })((function (values,v421,v422,v423){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v424){
+ return (v424 !== l3.value ? l82.fvalue(pv, v423, l166.fvalue(pv, v424)) : l3.value);
+ })(l176.fvalue(pv, v421, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v422));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 164)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l190;
+})();
+var l191 = {name: "!PROCLAIM"};
+var l192 = {name: "SPECIAL"};
+var l193 = {name: "NOTINLINE"};
+var l194 = {name: "CONSTANT"};
+var l195 = {name: "NON-OVERRIDABLE"};
+(function(){
+ (l191).fvalue = (function(v440){
+ ((v440)["fname"] = "!PROCLAIM");
+ return v440;
+ })((function (values,v426){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v427){
+ return (l25.fvalue(pv, v427, l192) !== l3.value ? (function(){
+ return (function(){
+ try {
+ return (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 l169.fvalue(pv, l192, v430);
+ })(l189.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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 166)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (l25.fvalue(pv, v427, l193) !== l3.value ? (function(){
+ return (function(){
+ try {
+ return (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 l169.fvalue(pv, l193, v433);
+ })(l189.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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 167)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (l25.fvalue(pv, v427, l194) !== l3.value ? (function(){
+ return (function(){
+ try {
+ return (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 l169.fvalue(pv, l194, v436);
+ })(l189.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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 168)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (l25.fvalue(pv, v427, l195) !== l3.value ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v437,v438){
+ (function(){
+ while(v437 !== l3.value){
+ (v438 = (function(){
+ var tmp = v437;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v439){
+ return l169.fvalue(pv, l195, v439);
+ })(l189.fvalue(pv, v438, l98, l98));
+ return l3.value;
+ })();
+ (v437 = (function(){
+ var tmp = v437;
+ 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);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 169)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : l3.value))));
+ })((function(){
+ var tmp = v426;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 165)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l191;
+})();
+var l196 = {name: "PROCLAIM"};
+(l196).fvalue = (function(){
+ var symbol = l191;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})();
+var l197 = {name: "*COMPILATIONS*"};
+(function(){
+ (((l197.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l197).value = l3.value);
+ })());
+ return l197;
+})();
+var l198 = {name: "DEFINE-COMPILATION"};
+l198;
+var l199 = {name: "IF"};
+((l197).value = ({car: l42.fvalue(pv, l199, (function (values,v441,v442,v443){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(values, "(", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v441), " !== ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l3.value), " ? ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v442, (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), " : ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v443, (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 170)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l200 = {name: "*LAMBDA-LIST-KEYWORDS*"};
+var l201 = {name: "&OPTIONAL"};
+var l202 = {name: "&REST"};
+var l203 = {car: l201, cdr: {car: l202, cdr: l3}};
+(function(){
+ (((l200.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l200).value = l203);
+ })());
+ return l200;
+})();
+var l204 = {name: "LIST-UNTIL-KEYWORD"};
+(function(){
+ (l204).fvalue = (function(v446){
+ ((v446)["fname"] = "LIST-UNTIL-KEYWORD");
+ return v446;
+ })((function (values,v444){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(v445){
+ return (v445 !== l3.value ? v445 : l82.fvalue(pv, (function(){
+ var tmp = v444;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), (function(){
+ var symbol = l200;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })(l11.fvalue(pv, v444)) !== l3.value ? l3.value : ({car: (function(){
+ var tmp = v444;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), cdr: l204.fvalue(pv, (function(){
+ var tmp = v444;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 171)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l204;
+})();
+var l205 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
+(function(){
+ (l205).fvalue = (function(v448){
+ ((v448)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
+ return v448;
+ })((function (values,v447){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l204.fvalue(values, v447);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 172)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l205;
+})();
+var l206 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
+(function(){
+ (l206).fvalue = (function(v450){
+ ((v450)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
+ return v450;
+ })((function (values,v449){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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;
+ })(), l204.fvalue(pv, (function(){
+ var tmp = l82.fvalue(pv, l201, v449);
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 173)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l206;
+})();
+var l207 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
+(function(){
+ (l207).fvalue = (function(v452){
+ ((v452)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
+ return v452;
+ })((function (values,v451){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ 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;
+ })(), l206.fvalue(pv, v451));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 174)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l207;
+})();
+var l208 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
+(function(){
+ (l208).fvalue = (function(v455){
+ ((v455)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
+ return v455;
+ })((function (values,v453){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v454){
+ ((function(){
+ var tmp = v454;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })() !== l3.value ? (function(){
+ return (function(){
+ throw "Bad lambda-list";
+ })();
+ })() : l3.value);
+ return (function(){
+ var tmp = v454;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })(l204.fvalue(pv, (function(){
+ var tmp = l82.fvalue(pv, l202, v453);
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 175)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l208;
+})();
+var l209 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
+(function(){
+ (l209).fvalue = (function(v458){
+ ((v458)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
+ return v458;
+ })((function (values,v457){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v456= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v456 = {car: arguments[i], cdr:
+ v456};
+ return (function(){
+ try {
+ return (function(){
+ return (v457 !== 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;
+ })(), l133.fvalue(pv, "var func = ", l126.fvalue(pv, v456), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "func.docstring = '", v457, "';", (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, v456));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 176)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l209;
+})();
+var l210 = {name: "LAMBDA"};
+var l211 = {name: "LS-COMPILE-BLOCK"};
+((l197).value = ({car: l42.fvalue(pv, l210, (function (values,v460){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v459= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v459 = {car: arguments[i], cdr:
+ v459};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v461,v462,v463,v464){
+ ((((typeof((function(){
+ var tmp = v459;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) == "string")?l4.value: l3.value) !== l3.value ? l26.fvalue(pv, l11.fvalue(pv, (function(){
+ var tmp = v459;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())) : l3.value) !== l3.value ? (function(){
+ (v464 = (function(){
+ var tmp = v459;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ return (v459 = (function(){
+ var tmp = v459;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ })() : l3.value);
+ return (function(v465,v466,v467){
+ try {
+ var tmp;
+ tmp = l177.value;
+ l177.value = v467;
+ v467 = tmp;
+ return l209.fvalue(values, v464, "(function (", l126.fvalue(pv, ({car: "values", cdr: l69.fvalue(pv, (function(){
+ var symbol = l180;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l62.fvalue(pv, v461, v462))}), ","), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, (v461 !== l3.value ? l124.fvalue(pv, "if (arguments.length < ", l16.fvalue(pv, l21.fvalue(pv, v465)), ") throw 'too few arguments';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (l26.fvalue(pv, v463) !== l3.value ? l124.fvalue(pv, "if (arguments.length > ", l16.fvalue(pv, (function(){
+ var x1 = 1;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v465;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ var x3 = v466;
+ if (typeof x3 !== 'number') throw 'Not a number!';
+ return x1+x2+x3;
+ })()), ") throw 'too many arguments';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v462 !== 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(v468,v469,v470){
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var x1 = v470;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v466;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (function(v471){
+ (v469 = ({car: l124.fvalue(pv, "case ", l16.fvalue(pv, (function(){
+ var x1 = v470;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v465;
+ 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;
+ })(), l180.fvalue(pv, (function(){
+ var tmp = v471;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()), "=", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l32.fvalue(pv, v471)), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v469}));
+ return (v470 = (function(){
+ var x1 = v470;
+ 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, v470, v468));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 178)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ (v469 = ({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: v469}));
+ return l126.fvalue(pv, l64.fvalue(pv, v469));
+ })();
+ })(l206.fvalue(pv, v460),l3.value,0), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v463 !== l3.value ? (function(v472){
+ return l124.fvalue(pv, "var ", v472, "= ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(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 = v465;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ var x3 = v466;
+ 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;
+ })(), l133.fvalue(pv, v472, " = ", "{car: arguments[i], cdr: "), v472, "};", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l180.fvalue(pv, v463)) : ""), (function(v473){
+ try {
+ var tmp;
+ tmp = l160.value;
+ l160.value = v473;
+ v473 = tmp;
+ return (function(){
+ var symbol = l211;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v459, l4.value);
+ }
+ finally {
+ l160.value = v473;
+ }
+ })(l4.value)), (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "})");
+ }
+ finally {
+ l177.value = v467;
+ }
+ })(l67.fvalue(pv, v461),l67.fvalue(pv, v462),l181.fvalue(pv, l62.fvalue(pv, l56.fvalue(pv, v463), v461, v462)));
+ })(l205.fvalue(pv, v460),l207.fvalue(pv, v460),l208.fvalue(pv, v460),l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 177)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l212 = {name: "SETQ-PAIR"};
+var l213 = {name: "SET"};
+(function(){
+ (l212).fvalue = (function(v477){
+ ((v477)["fname"] = "SETQ-PAIR");
+ return v477;
+ })((function (values,v474,v475){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v476){
+ return (((l164.fvalue(pv, v476) === l182)?l4.value: l3.value) !== l3.value ? l124.fvalue(values, l165.fvalue(pv, v476), " = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v475)) : (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(values, l62.fvalue(pv, l42.fvalue(pv, l213), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, v474))), l42.fvalue(pv, v475))));
+ })(l176.fvalue(pv, v474, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 179)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l212;
+})();
+var l214 = {name: "SETQ"};
+((l197).value = ({car: l42.fvalue(pv, l214, (function (values){
+ var v478= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v478 = {car: arguments[i], cdr:
+ v478};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v479){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(l4.value !== l3.value){
+ (l11.fvalue(pv, v478) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 181, value: l3.value, message: 'Return from unknown block NIL.'})
+ })();
+ })() : (l11.fvalue(pv, (function(){
+ var tmp = v478;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? (function(){
+ return (function(){
+ throw "Odd paris in SETQ";
+ })();
+ })() : (function(){
+ (v479 = l124.fvalue(pv, v479, (function(){
+ return l124.fvalue(pv, l212.fvalue(pv, (function(){
+ var tmp = v478;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), l32.fvalue(pv, v478)), (l11.fvalue(pv, l34.fvalue(pv, v478)) !== l3.value ? "" : ", "));
+ })()));
+ return (v478 = l34.fvalue(pv, v478));
+ })()));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 181)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return l124.fvalue(values, "(", v479, ")");
+ })("");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 180)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l215 = {name: "JS-VREF"};
+((l197).value = ({car: l42.fvalue(pv, l215, (function (values,v480){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v480;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 182)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l216 = {name: "JS-VSET"};
+((l197).value = ({car: l42.fvalue(pv, l216, (function (values,v481,v482){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(values, "(", v481, " = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v482), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 183)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+(function(){
+ (l138).fvalue = (function(v489){
+ ((v489)["fname"] = "ESCAPE-STRING");
+ return v489;
+ })((function (values,v483){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v484,v485,v486){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var x1 = v485;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = v486;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return (x1<x2?l4.value: l3.value);
+ })() !== l3.value){
+ (function(v487){
+ ((function(v488){
+ return (v488 !== l3.value ? v488 : l74.fvalue(pv, v487, 92));
+ })(l74.fvalue(pv, v487, 34)) !== l3.value ? (function(){
+ return (v484 = l124.fvalue(pv, v484, "\\"));
+ })() : l3.value);
+ (l74.fvalue(pv, v487, 10) !== l3.value ? (function(){
+ (v484 = l124.fvalue(pv, v484, "\\"));
+ return (v487 = 110);
+ })() : l3.value);
+ return (v484 = l124.fvalue(pv, v484, l92.fvalue(pv, v487)));
+ })((function(){
+ var string = v483;
+ var index = v485;
+ 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);
+ })());
+ (v485 = (function(){
+ var x1 = v485;
+ 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;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 185)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v484;
+ })("",0,l67.fvalue(pv, v483));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 184)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l138;
+})();
+var l217 = {name: "*LITERAL-SYMBOLS*"};
+(function(){
+ (((l217.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l217).value = l3.value);
+ })());
+ return l217;
+})();
+var l218 = {name: "*LITERAL-COUNTER*"};
+(function(){
+ (((l218.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l218).value = 0);
+ })());
+ return l218;
+})();
+var l219 = {name: "GENLIT"};
+(function(){
+ (l219).fvalue = (function(v490){
+ ((v490)["fname"] = "GENLIT");
+ return v490;
+ })((function (values){
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(values, "l", l16.fvalue(pv, ((l218).value = (function(){
+ var x1 = (function(){
+ var symbol = l218;
+ 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;
+ })())));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 186)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l219;
+})();
+var l220 = {name: "LITERAL"};
+(function(){
+ (l220).fvalue = (function(v502){
+ ((v502)["fname"] = "LITERAL");
+ return v502;
+ })((function (values,v491,v492){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v492=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (l75.fvalue(pv, v491) !== l3.value ? (function(){
+ return l16.fvalue(pv, v491);
+ })() : (((typeof(v491) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return l124.fvalue(pv, "\"", l138.fvalue(pv, v491), "\"");
+ })() : (((function(){
+ var tmp = v491;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v493){
+ return (v493 !== l3.value ? v493 : (function(v495,v496){
+ ((l217).value = ({car: ({car: v491, cdr: v495}), cdr: (function(){
+ var symbol = l217;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+ l184.fvalue(pv, l124.fvalue(pv, "var ", v495, " = ", v496));
+ return v495;
+ })(l219.fvalue(pv),(function(v494){
+ return (l11.fvalue(pv, v494) !== l3.value ? l124.fvalue(pv, "{name: \"", l138.fvalue(pv, (v491).name), "\"}") : (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l120), l42.fvalue(pv, (v491).name), l42.fvalue(pv, l106.fvalue(pv, v494)))));
+ })(l114.fvalue(pv, v491))));
+ })((function(){
+ var tmp = l91.fvalue(pv, v491, (function(){
+ var symbol = l217;
+ 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 = v491;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v497){
+ return (v492 !== l3.value ? v497 : (function(v498){
+ l184.fvalue(pv, l124.fvalue(pv, "var ", v498, " = ", v497));
+ return v498;
+ })(l219.fvalue(pv)));
+ })(l124.fvalue(pv, "{car: ", l220.fvalue(pv, (function(){
+ var tmp = v491;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), l4.value), ", ", "cdr: ", l220.fvalue(pv, (function(){
+ var tmp = v491;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), l4.value), "}"));
+ })() : (((function(){
+ var x = v491;
+ return typeof x === 'object' && 'length' in x;
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v499){
+ return (function(v500){
+ return (v492 !== l3.value ? v500 : (function(v501){
+ l184.fvalue(pv, l124.fvalue(pv, "var ", v501, " = ", v500));
+ return v501;
+ })(l219.fvalue(pv)));
+ })(l124.fvalue(pv, "[", l126.fvalue(pv, l69.fvalue(pv, (function(){
+ var symbol = l220;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v499), ", "), "]"));
+ })(l129.fvalue(pv, v491));
+ })() : l3.value)))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 187)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l220;
+})();
+((l197).value = ({car: l42.fvalue(pv, l155, (function (values,v503){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l220.fvalue(values, v503);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 188)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l221 = {name: "%WHILE"};
+((l197).value = ({car: l42.fvalue(pv, l221, (function (values,v505){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v504= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v504 = {car: arguments[i], cdr:
+ v504};
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "while(", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v505), " !== ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l3.value), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, (function(){
+ var symbol = l211;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v504)), "}", "return ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l3.value), ";", (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 == 189)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l222 = {name: "SYMBOL-FUNCTION"};
+((l197).value = ({car: l42.fvalue(pv, l98, (function (values,v506){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((l57.fvalue(pv, v506) !== l3.value ? (((function(){
+ var tmp = v506;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l210)?l4.value: l3.value) : l3.value) !== l3.value ? (function(){
+ return (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v506);
+ })() : (((function(){
+ var tmp = v506;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l222), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, v506)))));
+ })() : l3.value));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 190)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l223 = {name: "EVAL-WHEN-COMPILE"};
+var l224 = {name: "EVAL"};
+var l225 = {name: "PROGN"};
+((l197).value = ({car: l42.fvalue(pv, l223, (function (values){
+ var v507= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v507 = {car: arguments[i], cdr:
+ v507};
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l224;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, ({car: l225, cdr: v507}));
+ return l3.value;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 191)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l226 = {name: "DEFINE-TRANSFORMATION"};
+l226;
+((l197).value = ({car: l42.fvalue(pv, l225, (function (values){
+ var v508= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v508 = {car: arguments[i], cdr:
+ v508};
+ return (function(){
+ try {
+ return (function(){
+ return l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, (function(){
+ var symbol = l211;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v508, l4.value)), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 192)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l227 = {name: "SPECIAL-VARIABLE-P"};
+(function(){
+ (l227).fvalue = (function(v510){
+ ((v510)["fname"] = "SPECIAL-VARIABLE-P");
+ return v510;
+ })((function (values,v509){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l190.fvalue(pv, v509, l99, l192) !== l3.value ? l4.value : l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 193)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l227;
+})();
+var l228 = {name: "LET-BINDING-WRAPPER"};
+(function(){
+ (l228).fvalue = (function(v517){
+ ((v517)["fname"] = "LET-BINDING-WRAPPER");
+ return v517;
+ })((function (values,v511,v512){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (l11.fvalue(pv, v511) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 194, value: v512, 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;
+ })(), l133.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,v513){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(v514){
+ return l124.fvalue(values, "tmp = ", v514, ".value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v514, ".value = ", (function(){
+ var tmp = v513;
+ 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 = v513;
+ 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;
+ })());
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, (function(){
+ var tmp = v513;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+
+ }), v511), v512, (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;
+ })(), l133.fvalue(pv, l128.fvalue(pv, (function (values,v515){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(v516){
+ return l124.fvalue(values, v516, ".value", " = ", (function(){
+ var tmp = v515;
+ 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 symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, (function(){
+ var tmp = v515;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+
+ }), v511)), "}", (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 == 194)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l228;
+})();
+var l229 = {name: "LET"};
+var l230 = {name: "DYNAMIC-BINDINGS"};
+((l197).value = ({car: l42.fvalue(pv, l229, (function (values,v519){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v518= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v518 = {car: arguments[i], cdr:
+ v518};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ try {
+ var v527 = l177.value;
+ var v520 = l69.fvalue(pv, (function(){
+ var symbol = l56;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v519);
+ var v521 = l69.fvalue(pv, (function(){
+ var symbol = l38;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v520);
+ var v522 = l69.fvalue(pv, (function(){
+ var symbol = l135;
+ 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;
+ })(), v520));
+ ((l177).value = l181.fvalue(pv, l84.fvalue(pv, (function(){
+ var symbol = l227;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v521)));
+ var v523 = l3.value;
+ return l124.fvalue(values, "(function(", l126.fvalue(pv, l69.fvalue(pv, (function (values,v524){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (l227.fvalue(pv, v524) !== l3.value ? (function(v525){
+ ((l230).value = ({car: ({car: v524, cdr: v525}), cdr: v523}));
+ return v525;
+ })(l179.fvalue(pv, v524)) : l180.fvalue(values, v524));
+
+ }), v521), ","), "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v526){
+ return l133.fvalue(pv, l228.fvalue(pv, v523, v526));
+ })((function(){
+ var symbol = l211;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v518, l4.value)), "})(", l126.fvalue(pv, v522, ","), ")");
+ }
+ finally {
+ l177.value = v527;
+ }
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 195)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l231 = {name: "LET*-INITIALIZE-VALUE"};
+(function(){
+ (l231).fvalue = (function(v534){
+ ((v534)["fname"] = "LET*-INITIALIZE-VALUE");
+ return v534;
+ })((function (values,v528){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v529,v530){
+ return (l227.fvalue(pv, v529) !== l3.value ? l124.fvalue(values, (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l214), l42.fvalue(pv, v529), l42.fvalue(pv, v530))), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var v531 = l179.fvalue(pv, v529);
+ var v532 = l162.fvalue(pv, v529, l99, v531);
+ return (function(v533){
+ l172.fvalue(pv, v532, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99);
+ return v533;
+ })(l124.fvalue(pv, "var ", v531, " = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v530), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })());
+ })(l38.fvalue(pv, v528),l39.fvalue(pv, v528));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 196)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l231;
+})();
+var l232 = {name: "LET*-BINDING-WRAPPER"};
+(function(){
+ (l232).fvalue = (function(v543){
+ ((v543)["fname"] = "LET*-BINDING-WRAPPER");
+ return v543;
+ })((function (values,v535,v536){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (l11.fvalue(pv, v535) !== l3.value ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 197, value: v536, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
+ })();
+ })() : l3.value);
+ return (function(v538){
+ return l124.fvalue(values, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, l128.fvalue(pv, (function (values,v539){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(v540){
+ return l124.fvalue(values, "var ", (function(){
+ var tmp = v539;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), " = ", v540, ".value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, (function(){
+ var tmp = v539;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+
+ }), v538), v536), "}", (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;
+ })(), l133.fvalue(pv, l128.fvalue(pv, (function (values,v541){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(v542){
+ return l124.fvalue(values, v542, ".value", " = ", (function(){
+ var tmp = v541;
+ 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 symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l155), l42.fvalue(pv, (function(){
+ var tmp = v541;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+
+ }), v538)), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l69.fvalue(pv, (function (values,v537){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return ({car: v537, cdr: l179.fvalue(pv, v537)});
+
+ }), l85.fvalue(pv, (function(){
+ var symbol = l227;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v535)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 197)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l232;
+})();
+var l233 = {name: "LET*"};
+((l197).value = ({car: l42.fvalue(pv, l233, (function (values,v545){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v544= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v544 = {car: arguments[i], cdr:
+ v544};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v546,v547){
+ try {
+ var tmp;
+ tmp = l177.value;
+ l177.value = v547;
+ v547 = tmp;
+ return l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, (function(v548,v549){
+ return l232.fvalue(pv, v548, v549);
+ })(l85.fvalue(pv, (function(){
+ var symbol = l227;
+ 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;
+ })(), v546)),l124.fvalue(pv, l128.fvalue(pv, (function(){
+ var symbol = l231;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v546), (function(){
+ var symbol = l211;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v544, l4.value)))), "})()");
+ }
+ finally {
+ l177.value = v547;
+ }
+ })(l69.fvalue(pv, (function(){
+ var symbol = l56;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v545),l171.fvalue(pv, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 198)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l234 = {name: "*BLOCK-COUNTER*"};
+(function(){
+ (((l234.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l234).value = 0);
+ })());
+ return l234;
+})();
+((l197).value = ({car: l42.fvalue(pv, l173, (function (values,v551){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v550= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v550 = {car: arguments[i], cdr:
+ v550};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v552){
+ return (function(v553){
+ return l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v554){
+ try {
+ var tmp;
+ tmp = l177.value;
+ l177.value = v554;
+ v554 = tmp;
+ return l133.fvalue(pv, "return ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l62.fvalue(pv, l42.fvalue(pv, l225), v550), (function(){
+ var symbol = l160;
+ 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 {
+ l177.value = v554;
+ }
+ })(l175.fvalue(pv, l42.fvalue(pv, v553), (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l173)), "}", (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 == ", v552, ")", (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;
+ })()), "})()");
+ })(l162.fvalue(pv, v551, l173, v552));
+ })(l16.fvalue(pv, ((l234).value = (function(){
+ var x1 = (function(){
+ var symbol = l234;
+ 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;
+ })())));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 199)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l235 = {name: "RETURN-FROM"};
+((l197).value = ({car: l42.fvalue(pv, l235, (function (values,v555,v556){
+ if (arguments.length < 2) throw 'too few arguments';