+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v416), " !== ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), " ? ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v417), " : ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v418), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 160)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l192 = {name: "*LAMBDA-LIST-KEYWORDS*"};
+var l193 = {name: "&OPTIONAL"};
+var l194 = {name: "&REST"};
+var l195 = {car: l193, cdr: {car: l194, cdr: l3}};
+(function(){
+ (((l192.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l192).value = l195;
+ })());
+ return l192;
+})();
+var l196 = {name: "LIST-UNTIL-KEYWORD"};
+(function(){
+ (l196).function = (function(v421){
+ ((v421)["fname"] = "LIST-UNTIL-KEYWORD");
+ return v421;
+ })((function (v419){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(v420){
+ return (v420 !== l3.value ? v420 : l81.function((function(){
+ var tmp = v419;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), (function(){
+ var symbol = l192;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })(l11.function(v419)) !== l3.value ? l3.value : ({car: (function(){
+ var tmp = v419;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), cdr: l196.function((function(){
+ var tmp = v419;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 161)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l196;
+})();
+var l197 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
+(function(){
+ (l197).function = (function(v423){
+ ((v423)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
+ return v423;
+ })((function (v422){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l196.function(v422);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 162)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l197;
+})();
+var l198 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
+(function(){
+ (l198).function = (function(v425){
+ ((v425)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
+ return v425;
+ })((function (v424){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l68.function((function(){
+ var symbol = l58;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l196.function((function(){
+ var tmp = l81.function(l193, v424);
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 163)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l198;
+})();
+var l199 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
+(function(){
+ (l199).function = (function(v427){
+ ((v427)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
+ return v427;
+ })((function (v426){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l68.function((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l198.function(v426));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 164)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l199;
+})();
+var l200 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
+(function(){
+ (l200).function = (function(v430){
+ ((v430)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
+ return v430;
+ })((function (v428){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v429){
+ ((function(){
+ var tmp = v429;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })() !== l3.value ? (function(){
+ return (function(){
+ throw "Bad lambda-list";
+ })();
+ })() : l3.value);
+ return (function(){
+ var tmp = v429;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })(l196.function((function(){
+ var tmp = l81.function(l194, v428);
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 165)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l200;
+})();
+var l201 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
+(function(){
+ (l201).function = (function(v433){
+ ((v433)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
+ return v433;
+ })((function (v432){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v431= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v431 = {car: arguments[i], cdr:
+ v431};
+ return (function(){
+ try {
+ return (function(){
+ return (v432 !== l3.value ? l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var func = ", l124.function(v431), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "func.docstring = '", v432, "';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : l124.function(v431));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 166)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l201;
+})();
+var l202 = {name: "LAMBDA"};
+var l203 = {name: "LS-COMPILE-BLOCK"};
+(l189).value = ({car: l44.function(l202, (function (v435){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v434= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v434 = {car: arguments[i], cdr:
+ v434};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v436,v437,v438,v439){
+ ((((typeof((function(){
+ var tmp = v434;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) == "string")?l4.value: l3.value) !== l3.value ? l28.function(l11.function((function(){
+ var tmp = v434;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })())) : l3.value) !== l3.value ? (function(){
+ v439 = (function(){
+ var tmp = v434;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ return v434 = (function(){
+ var tmp = v434;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })();
+ })() : l3.value);
+ return (function(v440,v441,v442){
+ try {
+ var tmp;
+ tmp = l170.value;
+ l170.value = v442;
+ v442 = tmp;
+ return l201.function(v439, "(function (", l124.function(l68.function((function(){
+ var symbol = l173;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), l62.function(v436, v437)), ","), "){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function((v436 !== l3.value ? l122.function("if (arguments.length < ", l16.function(v440), ") throw 'too few arguments';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (l28.function(v438) !== l3.value ? l122.function("if (arguments.length > ", l16.function((function(){
+ var x = v440;
+ var y = v441;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()), ") throw 'too many arguments';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v437 !== l3.value ? l122.function("switch(arguments.length){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v443,v444,v445){
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v445;
+ var y = v441;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?l4.value: l3.value) !== l3.value){
+ (function(v446){
+ v444 = ({car: l122.function("case ", l16.function((function(){
+ var x = v445;
+ var y = v440;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()), ":", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l173.function((function(){
+ var tmp = v446;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()), "=", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l34.function(v446)), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v444});
+ return v445 = (function(){
+ var x = v445;
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ })(l78.function(v445, v443));
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 168)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ v444 = ({car: l122.function("default: break;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v444});
+ return l124.function(l64.function(v444));
+ })();
+ })(l198.function(v435),l3.value,0), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v438 !== l3.value ? (function(v447){
+ return l122.function("var ", v447, "= ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = arguments.length-1; i>=", l16.function((function(){
+ var x = v440;
+ var y = v441;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()), "; i--)", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(v447, " = ", "{car: arguments[i], cdr: "), v447, "};", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l173.function(v438)) : ""), (function(){
+ var symbol = l203;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v434, l4.value)), (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "})");
+ }
+ finally {
+ l170.value = v442;
+ }
+ })(l66.function(v436),l66.function(v437),l174.function(l62.function(l58.function(v438), v436, v437)));
+ })(l197.function(v435),l199.function(v435),l200.function(v435),l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 167)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l204 = {name: "SETQ"};
+var l205 = {name: "SET"};
+(l189).value = ({car: l44.function(l204, (function (v448,v449){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v450){
+ return (((l157.function(v450) === l175)?l4.value: l3.value) !== l3.value ? l122.function(l158.function(v450), " = ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v449)) : (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l205), l44.function(l62.function(l44.function(l149), l44.function(v448))), l44.function(v449))));
+ })(l169.function(v448, (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l98));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 169)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l206 = {name: "JS-VREF"};
+(l189).value = ({car: l44.function(l206, (function (v451){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v451;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 170)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l207 = {name: "JS-VSET"};
+(l189).value = ({car: l44.function(l207, (function (v452,v453){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(", v452, " = ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v453), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 171)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+(function(){
+ (l132).function = (function(v460){
+ ((v460)["fname"] = "ESCAPE-STRING");
+ return v460;
+ })((function (v454){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v455,v456,v457){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v456;
+ var y = v457;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?l4.value: l3.value) !== l3.value){
+ (function(v458){
+ ((function(v459){
+ return (v459 !== l3.value ? v459 : l73.function(v458, 92));
+ })(l73.function(v458, 34)) !== l3.value ? (function(){
+ return v455 = l122.function(v455, "\\");
+ })() : l3.value);
+ (l73.function(v458, 10) !== l3.value ? (function(){
+ v455 = l122.function(v455, "\\");
+ return v458 = 110;
+ })() : l3.value);
+ return v455 = l122.function(v455, l91.function(v458));
+ })((function(){
+ var string = v454;
+ var index = v456;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ v456 = (function(){
+ var x = v456;
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ }return l3.value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 173)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v455;
+ })("",0,l66.function(v454));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 172)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l132;
+})();
+var l208 = {name: "*LITERAL-SYMBOLS*"};
+(function(){
+ (((l208.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l208).value = l3.value;
+ })());
+ return l208;
+})();
+var l209 = {name: "*LITERAL-COUNTER*"};
+(function(){
+ (((l209.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l209).value = 0;
+ })());
+ return l209;
+})();
+var l210 = {name: "GENLIT"};
+(function(){
+ (l210).function = (function(v461){
+ ((v461)["fname"] = "GENLIT");
+ return v461;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("l", l16.function((l209).value = (function(){
+ var x = (function(){
+ var symbol = l209;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 174)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l210;
+})();
+var l211 = {name: "LITERAL"};
+(function(){
+ (l211).function = (function(v469){
+ ((v469)["fname"] = "LITERAL");
+ return v469;
+ })((function (v462,v463){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v463=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (l74.function(v462) !== l3.value ? (function(){
+ return l16.function(v462);
+ })() : (((typeof(v462) == "string")?l4.value: l3.value) !== l3.value ? (function(){
+ return l122.function("\"", l132.function(v462), "\"");
+ })() : (((function(){
+ var tmp = v462;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v464){
+ return (v464 !== l3.value ? v464 : (function(v465,v466){
+ (l208).value = ({car: ({car: v462, cdr: v465}), cdr: (function(){
+ var symbol = l208;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ l177.function(l122.function("var ", v465, " = ", v466));
+ return v465;
+ })(l210.function(),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l119), l44.function((v462).name), l44.function(l105.function(l113.function(v462)))))));
+ })((function(){
+ var tmp = l90.function(v462, (function(){
+ var symbol = l208;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ })() : (((function(){
+ var tmp = v462;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(v467){
+ return (v463 !== l3.value ? v467 : (function(v468){
+ l177.function(l122.function("var ", v468, " = ", v467));
+ return v468;
+ })(l210.function()));
+ })(l122.function("{car: ", l211.function((function(){
+ var tmp = v462;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), l4.value), ", ", "cdr: ", l211.function((function(){
+ var tmp = v462;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), l4.value), "}"));
+ })() : l3.value))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 175)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l211;
+})();
+(l189).value = ({car: l44.function(l149, (function (v470){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l211.function(v470);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 176)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l212 = {name: "%WHILE"};
+(l189).value = ({car: l44.function(l212, (function (v472){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v471= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v471 = {car: arguments[i], cdr:
+ v471};
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("while(", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v472), " !== ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), "){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function((function(){
+ var symbol = l203;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v471)), "}", "return ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 177)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l213 = {name: "SYMBOL-FUNCTION"};
+(l189).value = ({car: l44.function(l97, (function (v473){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((l59.function(v473) !== l3.value ? (((function(){
+ var tmp = v473;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l202)?l4.value: l3.value) : l3.value) !== l3.value ? (function(){
+ return (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v473);
+ })() : (((function(){
+ var tmp = v473;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l213), l44.function(l62.function(l44.function(l149), l44.function(v473)))));
+ })() : l3.value));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 178)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l214 = {name: "EVAL-WHEN-COMPILE"};
+var l215 = {name: "EVAL"};
+var l216 = {name: "PROGN"};
+(l189).value = ({car: l44.function(l214, (function (){
+ var v474= l3.value;
+ for (var i = arguments.length-1; i>=0; i--)
+ v474 = {car: arguments[i], cdr:
+ v474};
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l215;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(({car: l216, cdr: v474}));
+ return l3.value;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 179)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l217 = {name: "DEFINE-TRANSFORMATION"};
+l217;
+(l189).value = ({car: l44.function(l216, (function (){
+ var v475= l3.value;
+ for (var i = arguments.length-1; i>=0; i--)
+ v475 = {car: arguments[i], cdr:
+ v475};
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function((function(){
+ var symbol = l203;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v475, l4.value)), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 180)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l218 = {name: "DYNAMIC-BINDING-WRAPPER"};
+(function(){
+ (l218).function = (function(v482){
+ ((v482)["fname"] = "DYNAMIC-BINDING-WRAPPER");
+ return v482;
+ })((function (v476,v477){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l11.function(v476) !== l3.value ? v477 : l122.function("try {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var tmp;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l124.function(l68.function((function (v478){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(v479){
+ return l122.function("tmp = ", v479, ".value;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v479, ".value = ", (function(){
+ var tmp = v478;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var tmp = v478;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), " = tmp;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l149), l44.function((function(){
+ var tmp = v478;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+
+ }), v476)), v477), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "finally {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l125.function(l68.function((function (v480){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(v481){
+ return l122.function(v481, ".value", " = ", (function(){
+ var tmp = v480;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l149), l44.function((function(){
+ var tmp = v480;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()))));
+
+ }), v476), l122.function(";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()))), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 181)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l218;
+})();
+var l219 = {name: "LET"};
+(l189).value = ({car: l44.function(l219, (function (v484){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v483= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v483 = {car: arguments[i], cdr:
+ v483};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v485){
+ return (function(v486,v487){
+ return (function(v488,v490,v489){
+ try {
+ var tmp;
+ tmp = l170.value;
+ l170.value = v490;
+ v490 = tmp;
+ return l122.function("(function(", l124.function(l68.function((function (v491){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (((v491.value !== undefined)?l4.value: l3.value) !== l3.value ? (function(v492){
+ v489 = ({car: ({car: v491, cdr: v492}), cdr: v489});
+ return v492;
+ })(l172.function(v491)) : l173.function(v491));
+
+ }), v486), ","), "){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v493){
+ return l127.function(l218.function(v489, v493));
+ })((function(){
+ var symbol = l203;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v483, l4.value)), "})(", l124.function(v488, ","), ")");
+ }
+ finally {
+ l170.value = v490;
+ }
+ })(l68.function((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v487),l174.function(l83.function((function(){
+ var symbol = l17;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v486)),l3.value);
+ })(l68.function((function(){
+ var symbol = l40;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v485),l68.function((function(){
+ var symbol = l41;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v485));
+ })(l68.function((function(){
+ var symbol = l58;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v484));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 182)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l220 = {name: "*BLOCK-COUNTER*"};
+(function(){
+ (((l220.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l220).value = 0;
+ })());
+ return l220;
+})();
+(l189).value = ({car: l44.function(l166, (function (v495){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v494= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v494 = {car: arguments[i], cdr:
+ v494};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v496){
+ return (function(v497){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("try {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v498){
+ try {
+ var tmp;
+ tmp = l170.value;
+ l170.value = v498;
+ v498 = tmp;
+ return l127.function("return ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l216), v494)), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }
+ finally {
+ l170.value = v498;
+ }
+ })(l168.function(l44.function(v497), (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l166)), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (cf.type == 'block' && cf.id == ", v496, ")", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l155.function(v495, l166, v496));
+ })(l16.function((l220).value = (function(){
+ var x = (function(){
+ var symbol = l220;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 183)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l221 = {name: "RETURN-FROM"};
+(l189).value = ({car: l44.function(l221, (function (v499,v500){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v500=l3.value;
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(v501){
+ return (v501 !== l3.value ? l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw ({", "type: 'block', ", "id: ", l158.function(v501), ", ", "value: ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v500), ", ", "message: 'Return from unknown block ", (v499).name, ".'", "})"), "})()") : (function(){
+ throw l122.function("Unknown block `", (v499).name, "'.");
+ })());
+ })(l169.function(v499, (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l166));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 184)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l222 = {name: "CATCH"};
+(l189).value = ({car: l44.function(l222, (function (v503){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v502= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v502 = {car: arguments[i], cdr:
+ v502};
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var id = ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v503), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("return ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l216), v502)), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l121;
+ 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 = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 185)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l223 = {name: "THROW"};
+(l189).value = ({car: l44.function(l223, (function (v504,v505){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw ({", "type: 'catch', ", "id: ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v504), ", ", "value: ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v505), ", ", "message: 'Throw uncatched.'", "})"), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 186)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l224 = {name: "*TAGBODY-COUNTER*"};
+(function(){
+ (((l224.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l224).value = 0;
+ })());
+ return l224;
+})();
+var l225 = {name: "*GO-TAG-COUNTER*"};
+(function(){
+ (((l225.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l225).value = 0;
+ })());
+ return l225;
+})();
+var l226 = {name: "GO-TAG-P"};
+(function(){
+ (l226).function = (function(v508){
+ ((v508)["fname"] = "GO-TAG-P");
+ return v508;
+ })((function (v506){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v507){
+ return (v507 !== l3.value ? v507 : ((function(){
+ var tmp = v506;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value));
+ })(l74.function(v506));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 187)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l226;
+})();
+var l227 = {name: "DECLARE-TAGBODY-TAGS"};
+(function(){
+ (l227).function = (function(v514){
+ ((v514)["fname"] = "DECLARE-TAGBODY-TAGS");
+ return v514;
+ })((function (v509,v510){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v513){
+ return l168.function(v513, (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l167);
+ })(l68.function((function (v511){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(v512){
+ return l155.function(v511, l167, l44.function(v509, v512));
+ })(l16.function((l225).value = (function(){
+ var x = (function(){
+ var symbol = l225;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()));
+
+ }), l84.function((function(){
+ var symbol = l226;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v510)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 188)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l227;
+})();
+var l228 = {name: "TAGBODY"};
+(l189).value = ({car: l44.function(l228, (function (){
+ var v515= l3.value;
+ for (var i = arguments.length-1; i>=0; i--)
+ v515 = {car: arguments[i], cdr:
+ v515};
+ return (function(){
+ try {
+ return (function(){
+ (l88.function((function(){
+ var symbol = l226;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v515) !== l3.value ? l3.value : (function(){
+ return (function(){
+ throw ({type: 'block', id: 189, value: (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l62.function(l44.function(l216), v515, l44.function(l3))), message: 'Return from unknown block TAGBODY.'})
+ })();
+ })());
+ (l226.function((function(){
+ var tmp = v515;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) !== l3.value ? l3.value : (function(){
+ return v515 = ({car: l15.function("START"), cdr: v515});
+ })());
+ return (function(v516){
+ return (function(v518,v517){
+ try {
+ var tmp;
+ tmp = l170.value;
+ l170.value = v518;
+ v518 = tmp;
+ (function(v519){
+ return v517 = l41.function(l158.function(v519));
+ })(l169.function(l40.function(v515), (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l167));
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var tagbody_", v516, " = ", v517, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "tbloop:", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (true) {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("try {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function((function(v520){
+ return l122.function("switch(tagbody_", v516, "){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "case ", v517, ":", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ try {
+ return (function(){
+ return (function(v521,v522){
+ (function(){
+ while(v521 !== l3.value){
+ v522 = (function(){
+ var tmp = v521;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ (function(){
+ v520 = l122.function(v520, (function(){
+ return (l28.function(l226.function(v522)) !== l3.value ? l127.function((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v522), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(v523){
+ return l122.function("case ", l41.function(l158.function(v523)), ":", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })(l169.function(v522, (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l167)));
+ })());
+ return l3.value;
+ })();
+ v521 = (function(){
+ var tmp = v521;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })();
+ }return l3.value;
+ })();
+ return v520;
+ })((function(){
+ var tmp = v515;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(),l3.value);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 190)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })(), "default:", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " break tbloop;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })("")), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (jump) {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (jump.type == 'tagbody' && jump.id == ", v516, ")", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tagbody_", v516, " = jump.label;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw(jump);", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ }
+ finally {
+ l170.value = v518;
+ }
+ })(l227.function(v516, v515),l3.value);
+ })(l16.function((function(){
+ var symbol = l224;
+ 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 = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l229 = {name: "GO"};
+(l189).value = ({car: l44.function(l229, (function (v524){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v525,v526){
+ return (v525 !== l3.value ? l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw ({", "type: 'tagbody', ", "id: ", l40.function(l158.function(v525)), ", ", "label: ", l41.function(l158.function(v525)), ", ", "message: 'Attempt to GO to non-existing tag ", v526, "'", "})", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : (function(){
+ throw l122.function("Unknown tag `", v526, "'.");
+ })());
+ })(l169.function(v524, (function(){
+ var symbol = l170;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l167),(((function(){
+ var tmp = v524;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return (v524).name;
+ })() : (l74.function(v524) !== l3.value ? (function(){
+ return l16.function(v524);
+ })() : l3.value)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 191)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l230 = {name: "UNWIND-PROTECT"};
+(l189).value = ({car: l44.function(l230, (function (v528){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v527= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v527 = {car: arguments[i], cdr:
+ v527};
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var ret = ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("ret = ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v528), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "} finally {", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function((function(){
+ var symbol = l203;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v527)), "}", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ret;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 192)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l231 = {name: "BACKQUOTE-EXPAND-1"};
+(function(){
+ (l231).function = (function(v531){
+ ((v531)["fname"] = "BACKQUOTE-EXPAND-1");
+ return v531;
+ })((function (v529){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var tmp = v529;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? (function(){
+ return l44.function(l149, v529);
+ })() : (l45.function(v529) !== l3.value ? (function(){
+ return v529;
+ })() : ((((function(){
+ var tmp = v529;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l152)?l4.value: l3.value) !== l3.value ? (function(){
+ return (function(){
+ var tmp = v529;
+ return tmp === l3.value? l3.value: tmp.car;
+ })();
+ })() : ((((function(){
+ var tmp = v529;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l150)?l4.value: l3.value) !== l3.value ? (function(){
+ return l231.function(l231.function(l34.function(v529)));
+ })() : (function(){
+ return ({car: l62, cdr: l68.function((function (v530){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return ((l59.function(v530) !== l3.value ? (((function(){
+ var tmp = v530;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l152)?l4.value: l3.value) : l3.value) !== l3.value ? (function(){
+ return l44.function(l44, l34.function(v530));
+ })() : ((l59.function(v530) !== l3.value ? (((function(){
+ var tmp = v530;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l151)?l4.value: l3.value) : l3.value) !== l3.value ? (function(){
+ return l34.function(v530);
+ })() : (function(){
+ return l44.function(l44, l231.function(v530));
+ })()));
+
+ }), v529)});
+ })()))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 193)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l231;
+})();
+var l232 = {name: "BACKQUOTE-EXPAND"};
+(function(){
+ (l232).function = (function(v533){
+ ((v533)["fname"] = "BACKQUOTE-EXPAND");
+ return v533;
+ })((function (v532){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((l59.function(v532) !== l3.value ? (((function(){
+ var tmp = v532;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l150)?l4.value: l3.value) : l3.value) !== l3.value ? l231.function(l34.function(v532)) : v532);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 194)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l232;
+})();
+l150;
+(l189).value = ({car: l44.function(l150, (function (v534){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l231.function(v534));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 195)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l189;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l233 = {name: "*BUILTINS*"};
+(function(){
+ (((l233.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ return (l233).value = l3.value;
+ })());
+ return l233;
+})();
+var l234 = {name: "DEFINE-RAW-BUILTIN"};
+l234;
+var l235 = {name: "DEFINE-BUILTIN"};
+l235;
+var l236 = {name: "TYPE-CHECK"};
+l236;
+var l237 = {name: "NUM-OP-NUM"};
+(function(){
+ (l237).function = (function(v538){
+ ((v538)["fname"] = "NUM-OP-NUM");
+ return v538;
+ })((function (v535,v536,v537){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v535, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("var ", "y", " = ", v537, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("if (typeof ", "y", " != '", "number", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return l122.function("x", v536, "y");
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 196)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l237;
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l19, (function (v539,v540){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v541,v542){
+ return l237.function(v541, "+", v542);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v539),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v540));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 197)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l20, (function (v543,v544){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v545,v546){
+ return l237.function(v545, "-", v546);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v543),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v544));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 198)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l21, (function (v547,v548){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v549,v550){
+ return l237.function(v549, "*", v550);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v547),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v548));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 199)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l22, (function (v551,v552){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v553,v554){
+ return l237.function(v553, "/", v554);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v551),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v552));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 200)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l238 = {name: "MOD"};
+(function(){
+ return (l233).value = ({car: l44.function(l238, (function (v555,v556){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v557,v558){
+ return l237.function(v557, "%", v558);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v555),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v556));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 201)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l239 = {name: "<"};
+(function(){
+ return (l233).value = ({car: l44.function(l239, (function (v559,v560){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v561,v562){
+ return l128.function(l237.function(v561, "<", v562));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v559),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v560));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 202)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l240 = {name: ">"};
+(function(){
+ return (l233).value = ({car: l44.function(l240, (function (v563,v564){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v565,v566){
+ return l128.function(l237.function(v565, ">", v566));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v563),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v564));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 203)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l18, (function (v567,v568){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v569,v570){
+ return l128.function(l237.function(v569, "==", v570));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v567),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v568));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 204)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l241 = {name: "<="};
+(function(){
+ return (l233).value = ({car: l44.function(l241, (function (v571,v572){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v573,v574){
+ return l128.function(l237.function(v573, "<=", v574));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v571),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v572));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 205)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l242 = {name: ">="};
+(function(){
+ return (l233).value = ({car: l44.function(l242, (function (v575,v576){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v577,v578){
+ return l128.function(l237.function(v577, ">=", v578));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v575),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v576));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 206)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l243 = {name: "NUMBERP"};
+(function(){
+ return (l233).value = ({car: l44.function(l243, (function (v579){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v580){
+ return l128.function(l122.function("(typeof (", v580, ") == \"number\")"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v579));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 207)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l244 = {name: "FLOOR"};
+(function(){
+ return (l233).value = ({car: l44.function(l244, (function (v581){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v582){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v582, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return "Math.floor(x)";
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v581));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 208)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l29, (function (v583,v584){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v585,v586){
+ return l122.function("({car: ", v585, ", cdr: ", v586, "})");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v583),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v584));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 209)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l30, (function (v587){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v588){
+ return l128.function(l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var tmp = ", v588, ";", (function(){
+ var symbol = l121;
+ 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 = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v587));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 210)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l31, (function (v589){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v590){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var tmp = ", v590, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), "? ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ": tmp.car;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v589));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 211)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l32, (function (v591){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v592){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var tmp = ", v592, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), "? ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ": tmp.cdr;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v591));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 212)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l245 = {name: "SETCAR"};
+(function(){
+ return (l233).value = ({car: l44.function(l245, (function (v593,v594){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v595,v596){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v595, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return l122.function("(x.car = ", v596, ")");
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v593),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v594));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 213)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l246 = {name: "SETCDR"};
+(function(){
+ return (l233).value = ({car: l44.function(l246, (function (v597,v598){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v599,v600){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v599, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return l122.function("(x.cdr = ", v600, ")");
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v597),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v598));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 214)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l247 = {name: "SYMBOLP"};
+(function(){
+ return (l233).value = ({car: l44.function(l247, (function (v601){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v602){
+ return l128.function(l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var tmp = ", v602, ";", (function(){
+ var symbol = l121;
+ 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 = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v601));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 215)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l248 = {name: "MAKE-SYMBOL"};
+(function(){
+ return (l233).value = ({car: l44.function(l248, (function (v603){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v604){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "name", " = ", v604, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return "({name: name})";
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v603));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 216)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l249 = {name: "SYMBOL-NAME"};
+(function(){
+ return (l233).value = ({car: l44.function(l249, (function (v605){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v606){
+ return l122.function("(", v606, ").name");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v605));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 217)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l205, (function (v607,v608){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v609,v610){
+ return l122.function("(", v609, ").value = ", v610);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v607),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v608));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 218)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l250 = {name: "FSET"};
+(function(){
+ return (l233).value = ({car: l44.function(l250, (function (v611,v612){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v613,v614){
+ return l122.function("(", v613, ").function = ", v614);
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v611),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v612));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 219)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l17, (function (v615){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v616){
+ return l128.function(l122.function("(", v616, ".value !== undefined)"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v615));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 220)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l251 = {name: "SYMBOL-VALUE"};
+(function(){
+ return (l233).value = ({car: l44.function(l251, (function (v617){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v618){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var symbol = ", v618, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l121;
+ 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 = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v617));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 221)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l233).value = ({car: l44.function(l213, (function (v619){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v620){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("var symbol = ", v620, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.function;", (function(){
+ var symbol = l121;
+ 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 = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v619));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 222)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l252 = {name: "SYMBOL-PLIST"};
+(function(){
+ return (l233).value = ({car: l44.function(l252, (function (v621){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v622){
+ return l122.function("((", v622, ").plist || ", (function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l3.value), ")");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v621));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 223)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l253 = {name: "LAMBDA-CODE"};
+(function(){
+ return (l233).value = ({car: l44.function(l253, (function (v623){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v624){
+ return l122.function("(", v624, ").toString()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v623));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 224)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l254 = {name: "EQ"};
+(function(){
+ return (l233).value = ({car: l44.function(l254, (function (v625,v626){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v627,v628){
+ return l128.function(l122.function("(", v627, " === ", v628, ")"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v625),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v626));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 225)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l255 = {name: "EQUAL"};
+(function(){
+ return (l233).value = ({car: l44.function(l255, (function (v629,v630){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v631,v632){
+ return l128.function(l122.function("(", v631, " == ", v632, ")"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v629),(function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v630));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 226)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l256 = {name: "CHAR-TO-STRING"};
+(function(){
+ return (l233).value = ({car: l44.function(l256, (function (v633){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v634){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v634, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return "String.fromCharCode(x)";
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v633));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 227)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l257 = {name: "STRINGP"};
+(function(){
+ return (l233).value = ({car: l44.function(l257, (function (v635){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v636){
+ return l128.function(l122.function("(typeof(", v636, ") == \"string\")"));
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v635));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 228)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l258 = {name: "STRING-UPCASE"};
+(function(){
+ return (l233).value = ({car: l44.function(l258, (function (v637){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v638){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v638, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return "x.toUpperCase()";
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v637));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 229)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l259 = {name: "STRING-LENGTH"};
+(function(){
+ return (l233).value = ({car: l44.function(l259, (function (v639){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v640){
+ return l122.function("(function(){", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function(l122.function("var ", "x", " = ", v640, ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l122.function("if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l127.function("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l122.function("return ", (function(){
+ return "x.length";
+ })(), ";", (function(){
+ var symbol = l121;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l129;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v639));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 230)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l233;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l260 = {name: "SLICE"};
+(l233).value = ({car: l44.function(l260, (function (v641,v642,v643){
+ if (arguments.length < 2) throw 'too few arguments';