+ 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';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 1:
+ v556=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(v557){
+ return (v557 !== 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, "throw ({", "type: 'block', ", "id: ", l165.fvalue(pv, v557), ", ", "value: ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v556), ", ", "message: 'Return from unknown block ", (v555).name, ".'", "})"), "})()") : (function(){
+ throw l124.fvalue(pv, "Unknown block `", (v555).name, "'.");
+ })());
+ })(l176.fvalue(pv, v555, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l173));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 200)
+ 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 l236 = {name: "CATCH"};
+((l197).value = ({car: l42.fvalue(pv, l236, (function (values,v559){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v558= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v558 = {car: arguments[i], cdr:
+ v558};
+ 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, "var id = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v559), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), 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), v558)), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (cf.type == 'catch' && cf.id == id)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 201)
+ 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 l237 = {name: "THROW"};
+((l197).value = ({car: l42.fvalue(pv, l237, (function (values,v560,v561){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ 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, "throw ({", "type: 'catch', ", "id: ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v560), ", ", "value: ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v561), ", ", "message: 'Throw uncatched.'", "})"), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 202)
+ 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 l238 = {name: "*TAGBODY-COUNTER*"};
+(function(){
+ (((l238.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l238).value = 0);
+ })());
+ return l238;
+})();
+var l239 = {name: "*GO-TAG-COUNTER*"};
+(function(){
+ (((l239.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l239).value = 0);
+ })());
+ return l239;
+})();
+var l240 = {name: "GO-TAG-P"};
+(function(){
+ (l240).fvalue = (function(v564){
+ ((v564)["fname"] = "GO-TAG-P");
+ return v564;
+ })((function (values,v562){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v563){
+ return (v563 !== l3.value ? v563 : ((function(){
+ var tmp = v562;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value));
+ })(l75.fvalue(pv, v562));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 203)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l240;
+})();
+var l241 = {name: "DECLARE-TAGBODY-TAGS"};
+(function(){
+ (l241).fvalue = (function(v570){
+ ((v570)["fname"] = "DECLARE-TAGBODY-TAGS");
+ return v570;
+ })((function (values,v565,v566){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v569){
+ return l175.fvalue(values, v569, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l174);
+ })(l69.fvalue(pv, (function (values,v567){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(v568){
+ return l162.fvalue(values, v567, l174, l42.fvalue(pv, v565, v568));
+ })(l16.fvalue(pv, ((l239).value = (function(){
+ var x1 = (function(){
+ var symbol = l239;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })())));
+
+ }), l85.fvalue(pv, (function(){
+ var symbol = l240;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v566)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 204)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l241;
+})();
+var l242 = {name: "TAGBODY"};
+((l197).value = ({car: l42.fvalue(pv, l242, (function (values){
+ var v571= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v571 = {car: arguments[i], cdr:
+ v571};
+ return (function(){
+ try {
+ return (function(){
+ (l89.fvalue(pv, (function(){
+ var symbol = l240;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v571) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw ({type: 'block', id: 205, 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, l225), v571, l42.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
+ })();
+ })());
+ (l240.fvalue(pv, (function(){
+ var tmp = v571;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) !== l3.value ? l3.value : (function(){
+ return (v571 = ({car: l15.fvalue(pv, "START"), cdr: v571}));
+ })());
+ return (function(v572){
+ return (function(v574,v573){
+ try {
+ var tmp;
+ tmp = l177.value;
+ l177.value = v574;
+ v574 = tmp;
+ (function(v575){
+ return (v573 = l39.fvalue(pv, l165.fvalue(pv, v575)));
+ })(l176.fvalue(pv, l38.fvalue(pv, v571), (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l174));
+ 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, "var tagbody_", v572, " = ", v573, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "tbloop:", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (true) {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, (function(v576){
+ return l124.fvalue(pv, "switch(tagbody_", v572, "){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "case ", v573, ":", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ try {
+ return (function(){
+ return (function(v577,v578){
+ (function(){
+ while(v577 !== l3.value){
+ (v578 = (function(){
+ var tmp = v577;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (v576 = l124.fvalue(pv, v576, (function(){
+ return (l26.fvalue(pv, l240.fvalue(pv, v578)) !== l3.value ? l133.fvalue(pv, (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v578), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(v579){
+ return l124.fvalue(pv, "case ", l39.fvalue(pv, l165.fvalue(pv, v579)), ":", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l176.fvalue(pv, v578, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l174)));
+ })()));
+ return l3.value;
+ })();
+ (v577 = (function(){
+ var tmp = v577;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return v576;
+ })((function(){
+ var tmp = v571;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(),l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 206)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })(), "default:", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " break tbloop;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })("")), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (jump) {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (jump.type == 'tagbody' && jump.id == ", v572, ")", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tagbody_", v572, " = jump.label;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw(jump);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ", (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;
+ })()), "})()");
+ }
+ finally {
+ l177.value = v574;
+ }
+ })(l241.fvalue(pv, v572, v571),l3.value);
+ })(l16.fvalue(pv, (function(){
+ var symbol = l238;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 205)
+ 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 l243 = {name: "GO"};
+((l197).value = ({car: l42.fvalue(pv, l243, (function (values,v580){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v581,v582){
+ return (v581 !== 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, "throw ({", "type: 'tagbody', ", "id: ", l38.fvalue(pv, l165.fvalue(pv, v581)), ", ", "label: ", l39.fvalue(pv, l165.fvalue(pv, v581)), ", ", "message: 'Attempt to GO to non-existing tag ", v582, "'", "})", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : (function(){
+ throw l124.fvalue(pv, "Unknown tag `", v582, "'.");
+ })());
+ })(l176.fvalue(pv, v580, (function(){
+ var symbol = l177;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l174),(((function(){
+ var tmp = v580;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (v580).name;
+ })() : (l75.fvalue(pv, v580) !== l3.value ? (function(){
+ return l16.fvalue(pv, v580);
+ })() : l3.value)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 207)
+ 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 l244 = {name: "UNWIND-PROTECT"};
+((l197).value = ({car: l42.fvalue(pv, l244, (function (values,v584){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v583= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v583 = {car: arguments[i], cdr:
+ v583};
+ 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, "var ret = ", (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;
+ })(), "try {", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "ret = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v584), ";", (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, (function(){
+ var symbol = l211;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v583)), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ret;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 208)
+ 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 l245 = {name: "MULTIPLE-VALUE-CALL"};
+((l197).value = ({car: l42.fvalue(pv, l245, (function (values,v586){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v585= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v585 = {car: arguments[i], cdr:
+ v585};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v587){
+ 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, "var args = [values];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var values = mv;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var vs;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l128.fvalue(pv, (function (values,v588){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "vs = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v588, l4.value), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "args = args.concat(vs);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "else", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "args.push(vs);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+
+ }), v585), "return (", v587, ").apply(window, args);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v586));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 209)
+ 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 l246 = {name: "BACKQUOTE-EXPAND-1"};
+(function(){
+ (l246).fvalue = (function(v591){
+ ((v591)["fname"] = "BACKQUOTE-EXPAND-1");
+ return v591;
+ })((function (values,v589){
+ 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 = v589;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return l42.fvalue(pv, l155, v589);
+ })() : (l43.fvalue(pv, v589) !== l3.value ? (function(){
+ return v589;
+ })() : ((((function(){
+ var tmp = v589;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l158)?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(){
+ var tmp = v589;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })() : ((((function(){
+ var tmp = v589;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l156)?l4.value: l3.value) !== l3.value ? (function(){
+ return l246.fvalue(pv, l246.fvalue(pv, l32.fvalue(pv, v589)));
+ })() : (function(){
+ return ({car: l62, cdr: l69.fvalue(pv, (function (values,v590){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return ((l57.fvalue(pv, v590) !== l3.value ? (((function(){
+ var tmp = v590;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l158)?l4.value: l3.value) : l3.value) !== l3.value ? (function(){
+ return l42.fvalue(pv, l42, l32.fvalue(pv, v590));
+ })() : ((l57.fvalue(pv, v590) !== l3.value ? (((function(){
+ var tmp = v590;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l157)?l4.value: l3.value) : l3.value) !== l3.value ? (function(){
+ return l32.fvalue(pv, v590);
+ })() : (function(){
+ return l42.fvalue(pv, l42, l246.fvalue(pv, v590));
+ })()));
+
+ }), v589)});
+ })()))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 210)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l246;
+})();
+var l247 = {name: "BACKQUOTE-EXPAND"};
+(function(){
+ (l247).fvalue = (function(v593){
+ ((v593)["fname"] = "BACKQUOTE-EXPAND");
+ return v593;
+ })((function (values,v592){
+ 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, v592) !== l3.value ? (((function(){
+ var tmp = v592;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l156)?l4.value: l3.value) : l3.value) !== l3.value ? l246.fvalue(values, l32.fvalue(pv, v592)) : v592);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 211)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l247;
+})();
+l156;
+((l197).value = ({car: l42.fvalue(pv, l156, (function (values,v594){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(values, l246.fvalue(pv, v594));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 212)
+ 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 l248 = {name: "*BUILTINS*"};
+(function(){
+ (((l248.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return ((l248).value = l3.value);
+ })());
+ return l248;
+})();
+var l249 = {name: "DEFINE-RAW-BUILTIN"};
+l249;
+var l250 = {name: "DEFINE-BUILTIN"};
+l250;
+var l251 = {name: "TYPE-CHECK"};
+l251;
+var l252 = {name: "VARIABLE-ARITY-CALL"};
+(function(){
+ (l252).fvalue = (function(v603){
+ ((v603)["fname"] = "VARIABLE-ARITY-CALL");
+ return v603;
+ })((function (values,v595,v596){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (((function(){
+ var tmp = v595;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw "ARGS must be a non-empty list";
+ })();
+ })());
+ return (function(v597,v598,v599){
+ (function(){
+ try {
+ return (function(){
+ return (function(v600,v601){
+ (function(){
+ while(v600 !== l3.value){
+ (v601 = (function(){
+ var tmp = v600;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v602){
+ (v598 = ({car: v602, cdr: v598}));
+ return (v599 = l124.fvalue(pv, v599, (function(){
+ return l124.fvalue(pv, "var ", v602, " = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v601), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof ", v602, " !== 'number') throw 'Not a number!';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })()));
+ })(l124.fvalue(pv, "x", l16.fvalue(pv, (v597 = (function(){
+ var x1 = v597;
+ 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;
+ })();
+ (v600 = (function(){
+ var tmp = v600;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })(v595,l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 214)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ 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, v599, (v596)(pv, l64.fvalue(pv, v598))), "})()");
+ })(0,l3,"");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 213)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l252;
+})();
+var l253 = {name: "VARIABLE-ARITY"};
+l253;
+var l254 = {name: "NUM-OP-NUM"};
+(function(){
+ (l254).fvalue = (function(v607){
+ ((v607)["fname"] = "NUM-OP-NUM");
+ return v607;
+ })((function (values,v604,v605,v606){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ 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, l124.fvalue(pv, "var ", "x", " = ", v604, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "var ", "y", " = ", v606, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return l124.fvalue(pv, "x", v605, "y");
+ })(), ";", (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 == 215)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l254;
+})();
+((l248).value = ({car: l42.fvalue(pv, l59, (function (values){
+ var v608= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v608 = {car: arguments[i], cdr:
+ v608};
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v608) !== l3.value ? "0" : l252.fvalue(pv, v608, (function (values,v609){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l126.fvalue(pv, v609, "+"), ";", (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 == 216)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l248).value = ({car: l42.fvalue(pv, l60, (function (values,v611){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v610= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v610 = {car: arguments[i], cdr:
+ v610};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v612){
+ return l252.fvalue(pv, v612, (function (values,v613){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", (l11.fvalue(pv, v610) !== l3.value ? l124.fvalue(pv, "-", (function(){
+ var tmp = v613;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l126.fvalue(pv, v613, "-")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v611, cdr: v610}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 217)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l248).value = ({car: l42.fvalue(pv, l19, (function (values){
+ var v614= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v614 = {car: arguments[i], cdr:
+ v614};
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v614) !== l3.value ? "1" : l252.fvalue(pv, v614, (function (values,v615){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l126.fvalue(pv, v615, "*"), ";", (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 == 218)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l248).value = ({car: l42.fvalue(pv, l20, (function (values,v617){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v616= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v616 = {car: arguments[i], cdr:
+ v616};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v618){
+ return l252.fvalue(pv, v618, (function (values,v619){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", (l11.fvalue(pv, v616) !== l3.value ? l124.fvalue(pv, "1 /", (function(){
+ var tmp = v619;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l126.fvalue(pv, v619, "/")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v617, cdr: v616}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 219)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l255 = {name: "MOD"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l255, (function (values,v620,v621){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v622,v623){
+ return l254.fvalue(values, v622, "%", v623);
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v620),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v621));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 220)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l256 = {name: "COMPARISON-CONJUNTION"};
+(function(){
+ (l256).fvalue = (function(v626){
+ ((v626)["fname"] = "COMPARISON-CONJUNTION");
+ return v626;
+ })((function (values,v624,v625){
+ 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, (function(){
+ var tmp = v624;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? (function(){
+ return "true";
+ })() : (l11.fvalue(pv, l34.fvalue(pv, v624)) !== l3.value ? (function(){
+ return l124.fvalue(pv, (function(){
+ var tmp = v624;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v625, l32.fvalue(pv, v624));
+ })() : (function(){
+ return l124.fvalue(pv, (function(){
+ var tmp = v624;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v625, l32.fvalue(pv, v624), " && ", l256.fvalue(pv, (function(){
+ var tmp = v624;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), v625));
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 221)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l256;
+})();
+var l257 = {name: "DEFINE-BUILTIN-COMPARISON"};
+l257;
+var l258 = {name: ">"};
+((l248).value = ({car: l42.fvalue(pv, l258, (function (values,v628){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v627= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v627 = {car: arguments[i], cdr:
+ v627};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v629){
+ return l252.fvalue(pv, v629, (function (values,v630){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l134.fvalue(pv, l256.fvalue(pv, v630, ">")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v628, cdr: v627}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 222)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l259 = {name: "<"};
+((l248).value = ({car: l42.fvalue(pv, l259, (function (values,v632){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v631= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v631 = {car: arguments[i], cdr:
+ v631};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v633){
+ return l252.fvalue(pv, v633, (function (values,v634){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l134.fvalue(pv, l256.fvalue(pv, v634, "<")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v632, cdr: v631}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 223)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l260 = {name: ">="};
+((l248).value = ({car: l42.fvalue(pv, l260, (function (values,v636){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v635= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v635 = {car: arguments[i], cdr:
+ v635};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v637){
+ return l252.fvalue(pv, v637, (function (values,v638){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l134.fvalue(pv, l256.fvalue(pv, v638, ">=")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v636, cdr: v635}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 224)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l261 = {name: "<="};
+((l248).value = ({car: l42.fvalue(pv, l261, (function (values,v640){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v639= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v639 = {car: arguments[i], cdr:
+ v639};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v641){
+ return l252.fvalue(pv, v641, (function (values,v642){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l134.fvalue(pv, l256.fvalue(pv, v642, "<=")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v640, cdr: v639}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 225)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l248).value = ({car: l42.fvalue(pv, l18, (function (values,v644){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v643= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v643 = {car: arguments[i], cdr:
+ v643};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v645){
+ return l252.fvalue(pv, v645, (function (values,v646){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return l124.fvalue(values, "return ", l134.fvalue(pv, l256.fvalue(pv, v646, "==")), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+
+ }));
+ })(({car: v644, cdr: v643}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 226)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l262 = {name: "NUMBERP"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l262, (function (values,v647){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v648){
+ return l134.fvalue(values, l124.fvalue(pv, "(typeof (", v648, ") == \"number\")"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v647));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 227)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l263 = {name: "FLOOR"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l263, (function (values,v649){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v650){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v650, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "Math.floor(x)";
+ })(), ";", (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, v649));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 228)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l27, (function (values,v651,v652){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v653,v654){
+ return l124.fvalue(values, "({car: ", v653, ", cdr: ", v654, "})");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v651),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v652));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 229)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l28, (function (values,v655){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v656){
+ return l134.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "var tmp = ", v656, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v655));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 230)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l29, (function (values,v657){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v658){
+ 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, "var tmp = ", v658, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", (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, l3.value), ": tmp.car;", (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, v657));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 231)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l30, (function (values,v659){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v660){
+ 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, "var tmp = ", v660, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", (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, 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, v659));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 232)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l264 = {name: "SETCAR"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l264, (function (values,v661,v662){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v663,v664){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v663, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return l124.fvalue(pv, "(x.car = ", v664, ")");
+ })(), ";", (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, v661),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v662));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 233)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l265 = {name: "SETCDR"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l265, (function (values,v665,v666){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v667,v668){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v667, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return l124.fvalue(pv, "(x.cdr = ", v668, ")");
+ })(), ";", (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, v665),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v666));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 234)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l266 = {name: "SYMBOLP"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l266, (function (values,v669){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v670){
+ return l134.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "var tmp = ", v670, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v669));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 235)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l267 = {name: "MAKE-SYMBOL"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l267, (function (values,v671){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v672){
+ 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, l124.fvalue(pv, "var ", "name", " = ", v672, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "({name: name})";
+ })(), ";", (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, v671));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 236)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l268 = {name: "SYMBOL-NAME"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l268, (function (values,v673){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v674){
+ return l124.fvalue(values, "(", v674, ").name");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v673));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 237)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l213, (function (values,v675,v676){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v677,v678){
+ return l124.fvalue(values, "(", v677, ").value = ", v678);
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v675),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v676));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 238)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l269 = {name: "FSET"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l269, (function (values,v679,v680){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v681,v682){
+ return l124.fvalue(values, "(", v681, ").fvalue = ", v682);
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v679),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v680));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 239)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l17, (function (values,v683){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v684){
+ return l134.fvalue(values, l124.fvalue(pv, "(", v684, ".value !== undefined)"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v683));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 240)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l270 = {name: "SYMBOL-VALUE"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l270, (function (values,v685){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v686){
+ 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, "var symbol = ", v686, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v685));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 241)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l222, (function (values,v687){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v688){
+ 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, "var symbol = ", v688, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.fvalue;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v687));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 242)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l271 = {name: "SYMBOL-PLIST"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l271, (function (values,v689){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v690){
+ return l124.fvalue(values, "((", v690, ").plist || ", (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, v689));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 243)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l272 = {name: "LAMBDA-CODE"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l272, (function (values,v691){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v692){
+ return l124.fvalue(values, "(", v692, ").toString()");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v691));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 244)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l273 = {name: "EQ"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l273, (function (values,v693,v694){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v695,v696){
+ return l134.fvalue(values, l124.fvalue(pv, "(", v695, " === ", v696, ")"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v693),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v694));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 245)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l274 = {name: "EQUAL"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l274, (function (values,v697,v698){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v699,v700){
+ return l134.fvalue(values, l124.fvalue(pv, "(", v699, " == ", v700, ")"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v697),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v698));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 246)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l275 = {name: "CHAR-TO-STRING"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l275, (function (values,v701){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v702){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v702, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "String.fromCharCode(x)";
+ })(), ";", (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, v701));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 247)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l276 = {name: "STRINGP"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l276, (function (values,v703){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v704){
+ return l134.fvalue(values, l124.fvalue(pv, "(typeof(", v704, ") == \"string\")"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v703));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 248)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l277 = {name: "STRING-UPCASE"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l277, (function (values,v705){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v706){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v706, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "x.toUpperCase()";
+ })(), ";", (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, v705));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 249)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l278 = {name: "STRING-LENGTH"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l278, (function (values,v707){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v708){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v708, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "x.length";
+ })(), ";", (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, v707));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 250)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l279 = {name: "SLICE"};
+((l248).value = ({car: l42.fvalue(pv, l279, (function (values,v709,v710,v711){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ switch(arguments.length-1){
+ case 2:
+ v711=l3.value;
+ default: break;
+ }
+ 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, "var str = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v709), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var a = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v710), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var b;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (v711 !== l3.value ? l124.fvalue(pv, "b = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v711), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), "return str.slice(a,b);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 251)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l280 = {name: "CHAR"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l280, (function (values,v712,v713){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v714,v715){
+ 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, l124.fvalue(pv, "var ", "string", " = ", v714, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "var ", "index", " = ", v715, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "string.charCodeAt(index)";
+ })(), ";", (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, v712),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v713));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 252)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l68, (function (values,v716,v717){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v718,v719){
+ 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, l124.fvalue(pv, "var ", "string1", " = ", v718, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "var ", "string2", " = ", v719, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "string1.concat(string2)";
+ })(), ";", (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, v716),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v717));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 253)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l281 = {name: "FUNCALL"};
+((l248).value = ({car: l42.fvalue(pv, l281, (function (values,v721){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v720= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v720 = {car: arguments[i], cdr:
+ v720};
+ 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, v721), ")(", l126.fvalue(pv, ({car: "pv", cdr: l69.fvalue(pv, (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v720)}), ", "), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 254)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l282 = {name: "APPLY"};
+((l248).value = ({car: l42.fvalue(pv, l282, (function (values,v723){
+ if (arguments.length < 2) throw 'too few arguments';
+ var v722= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v722 = {car: arguments[i], cdr:
+ v722};
+ return (function(){
+ try {
+ return (function(){
+ return (l11.fvalue(pv, v722) !== 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, v723), ")()") : (function(v724,v725){
+ 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, "var f = ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v723), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var args = [", l126.fvalue(pv, ({car: "pv", cdr: l69.fvalue(pv, (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v724)}), ", "), "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var tail = (", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v725), ");", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (tail != ", (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;
+ })(), " args.push(tail.car);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tail = tail.cdr;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return f.apply(this, args);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l81.fvalue(pv, v722),(function(){
+ var tmp = l80.fvalue(pv, v722);
+ return tmp === l3.value? l3.value: tmp.car;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 255)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l283 = {name: "JS-EVAL"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l283, (function (values,v726){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v727){
+ 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, l124.fvalue(pv, "var ", "string", " = ", v727, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return ((function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "v = [v];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "v['multiple-value'] = true;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return values.apply(this, v);", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : "eval.apply(window, [string])");
+ })(), ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v726));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 256)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l284 = {name: "ERROR"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l284, (function (values,v728){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v729){
+ 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, "throw ", v729, ";", (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, v728));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 257)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l285 = {name: "NEW"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l285, (function (values){
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ return "{}";
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 258)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l286 = {name: "OBJECTP"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l286, (function (values,v730){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v731){
+ return l134.fvalue(values, l124.fvalue(pv, "(typeof (", v731, ") === 'object')"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v730));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 259)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l287 = {name: "OGET"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l287, (function (values,v732,v733){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v734,v735){
+ 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, "var tmp = ", "(", v734, ")[", v735, "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp == undefined? ", (function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, l3.value), ": 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, v732),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v733));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 260)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l288 = {name: "OSET"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l288, (function (values,v736,v737,v738){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v739,v740,v741){
+ return l124.fvalue(values, "((", v739, ")[", v740, "] = ", v741, ")");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v736),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v737),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v738));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 261)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l289 = {name: "IN"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l289, (function (values,v742,v743){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v744,v745){
+ return l134.fvalue(values, l124.fvalue(pv, "((", v744, ") in (", v745, "))"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v742),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v743));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 262)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l290 = {name: "FUNCTIONP"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l290, (function (values,v746){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v747){
+ return l134.fvalue(values, l124.fvalue(pv, "(typeof ", v747, " == 'function')"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v746));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 263)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l291 = {name: "WRITE-STRING"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l291, (function (values,v748){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v749){
+ 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, l124.fvalue(pv, "var ", "x", " = ", v749, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l124.fvalue(pv, "return ", (function(){
+ return "lisp.write(x)";
+ })(), ";", (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, v748));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 264)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l292 = {name: "MAKE-ARRAY"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l292, (function (values,v750){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v751){
+ 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, "var r = [];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = 0; i < ", v751, "; i++)", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "r.push(", (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;
+ })()), "return r;", (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, v750));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 265)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l293 = {name: "ARRAYP"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l293, (function (values,v752){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v753){
+ return l134.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l133.fvalue(pv, "var x = ", v753, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v752));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 266)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l294 = {name: "AREF"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l294, (function (values,v754,v755){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v756,v757){
+ 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, "var x = ", "(", v756, ")[", v757, "];", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (x === undefined) throw 'Out of range';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return x;", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v754),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v755));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 267)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l295 = {name: "ASET"};
+(function(){
+ return ((l248).value = ({car: l42.fvalue(pv, l295, (function (values,v758,v759,v760){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v761,v762,v763){
+ 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, "var x = ", v761, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var i = ", v762, ";", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
+ var symbol = l123;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return x[i] = ", v763, ";", (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, v758),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v759),(function(){
+ var symbol = l135;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(pv, v760));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 268)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l248;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()}));
+})();
+var l296 = {name: "GET-UNIX-TIME"};