+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 66)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l87;
+})();
+var l88 = {name: "DIGIT-CHAR-P"};
+(function(){
+ (l88).function = (function(v147){
+ ((v147)["fname"] = "DIGIT-CHAR-P");
+ return v147;
+ })((function (v146){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((((function(){
+ var x = 48;
+ var y = v146;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? ((function(){
+ var x = v146;
+ var y = 57;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var x = v146;
+ var y = 48;
+ 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 = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 67)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l88;
+})();
+var l89 = {name: "SUBSEQ"};
+(function(){
+ (l89).function = (function(v151){
+ ((v151)["fname"] = "SUBSEQ");
+ return v151;
+ })((function (v148,v149,v150){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length){
+ case 2:
+ v150=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v148) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (v150 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var str = v148;
+ var a = v149;
+ var b;
+ b = v150;
+ return str.slice(a,b);
+ })() : (function(){
+ var str = v148;
+ var a = v149;
+ var b;
+ return str.slice(a,b);
+ })());
+ })() : (function(){
+ return (function(){
+ throw "Unsupported argument.";
+ })();
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 68)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l89;
+})();
+var l90 = {name: "PARSE-INTEGER"};
+(function(){
+ (l90).function = (function(v156){
+ ((v156)["fname"] = "PARSE-INTEGER");
+ return v156;
+ })((function (v152){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v153,v154,v155){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v154;
+ var y = v155;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v153 = (function(){
+ var x = (function(){
+ var x = v153;
+ var y = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x*y;
+ })();
+ var y = (function(){
+ var symbol = l88;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v152;
+ var index = v154;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ if (typeof 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;
+ })();
+ v154 = (function(){
+ var x = v154;
+ 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 (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 70)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v153;
+ })(0,0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v152));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 69)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l90;
+})();
+var l91 = {name: "SOME"};
+(function(){
+ (l91).function = (function(v163){
+ ((v163)["fname"] = "SOME");
+ return v163;
+ })((function (v157,v158){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v158) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v159,v160){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v159;
+ var y = v160;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((v157)((function(){
+ var string = v158;
+ var index = v159;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 71, value: (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block SOME.'})
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ v159 = (function(){
+ var x = v159;
+ 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 (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 72)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v158));
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v158) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v161,v162){
+ (function(){
+ while(v161 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v162 = (function(){
+ var tmp = v161;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ ((v157)(v162) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 73, value: (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block NIL.'})
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v161 = (function(){
+ var tmp = v161;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(v158,(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 73)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Unknown sequence.";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 71)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l91;
+})();
+var l92 = {name: "EVERY"};
+(function(){
+ (l92).function = (function(v170){
+ ((v170)["fname"] = "EVERY");
+ return v170;
+ })((function (v164,v165){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v165) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v166,v167){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v166;
+ var y = v167;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((v164)((function(){
+ var string = v165;
+ var index = v166;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw ({type: 'block', id: 74, value: (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block EVERY.'})
+ })();
+ })());
+ v166 = (function(){
+ var x = v166;
+ 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 (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 75)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v165));
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v165) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v168,v169){
+ (function(){
+ while(v168 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v169 = (function(){
+ var tmp = v168;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ ((v164)(v169) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw ({type: 'block', id: 76, value: (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block NIL.'})
+ })();
+ })());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v168 = (function(){
+ var tmp = v168;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(v165,(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 76)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Unknown sequence.";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 74)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l92;
+})();
+var l93 = {name: "ASSOC"};
+(function(){
+ (l93).function = (function(v173){
+ ((v173)["fname"] = "ASSOC");
+ return v173;
+ })((function (v171,v172){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(v172 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v171, (function(){
+ var symbol = l36;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v172)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ throw ({type: 'block', id: 78, value: (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block NIL.'})
+ })() : v172 = (function(){
+ var tmp = v172;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })());
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 78)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var tmp = v172;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 77)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l93;
+})();
+var l94 = {name: "STRING="};
+(function(){
+ (l94).function = (function(v176){
+ ((v176)["fname"] = "STRING=");
+ return v176;
+ })((function (v174,v175){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((v174 == v175)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 79)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l94;
+})();
+var l95 = {name: "FDEFINITION"};
+(function(){
+ (l95).function = (function(v178){
+ ((v178)["fname"] = "FDEFINITION");
+ return v178;
+ })((function (v177){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof v177 == 'function')?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v177;
+ })() : (((function(){
+ var tmp = v177;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = v177;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Invalid function";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 80)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l95;
+})();
+var l96 = {name: "DISASSEMBLE"};
+var l97 = {name: "WRITE-LINE"};
+(function(){
+ (l96).function = (function(v180){
+ ((v180)["fname"] = "DISASSEMBLE");
+ return v180;
+ })((function (v179){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l97;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(((function(){
+ var symbol = l95;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v179)).toString());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 81)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l96;
+})();
+var l98 = {name: "DOCUMENTATION"};
+var l99 = {name: "FUNCTION"};
+var l100 = {name: "VARIABLE"};
+(function(){
+ (l98).function = (function(v185){
+ ((v185)["fname"] = "DOCUMENTATION");
+ return v185;
+ })((function(){
+ var func = (function (v181,v182){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v183){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v183, l99) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v184){
+ return (function(){
+ var tmp = (v184)["docstring"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })();
+ })((function(){
+ var symbol = l95;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v181));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v183, l100) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (((function(){
+ var tmp = v181;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw "Wrong argument type! it should be a symbol";
+ })();
+ })());
+ return (function(){
+ var tmp = (v181)["vardoc"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })();
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()));
+ })(v182);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 82)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ });
+ func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
+ return func;
+ })());
+ return l98;
+})();
+var l101 = {name: "*NEWLINE*"};
+(function(){
+ (((l101.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l101).value = (function(){
+ var x = (function(){
+ var symbol = l74;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(10);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+ })());
+ return l101;
+})();
+var l102 = {name: "CONCAT"};
+(function(){
+ (l102).function = (function(v187){
+ ((v187)["fname"] = "CONCAT");
+ return v187;
+ })((function (){
+ var v186= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v186 = {car: arguments[i], cdr:
+ v186};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l63;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l70;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v186, "");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 83)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l102;
+})();
+var l103 = {name: "CONCATF"};
+l103;
+var l104 = {name: "JOIN"};
+(function(){
+ (l104).function = (function(v190){
+ ((v190)["fname"] = "JOIN");
+ return v190;
+ })((function (v188,v189){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v189="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v188) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return "";
+ })() : ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })() : (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), v189, (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), v189));
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 84)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l104;
+})();
+var l105 = {name: "JOIN-TRAILING"};
+(function(){
+ (l105).function = (function(v193){
+ ((v193)["fname"] = "JOIN-TRAILING");
+ return v193;
+ })((function (v191,v192){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v192="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v191) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? "" : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v191;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), v192, (function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v191;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), v192)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 85)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l105;
+})();
+var l106 = {name: "MAPCONCAT"};
+(function(){
+ (l106).function = (function(v196){
+ ((v196)["fname"] = "MAPCONCAT");
+ return v196;
+ })((function (v194,v195){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v194, v195));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 86)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l106;
+})();
+var l107 = {name: "INDENT"};
+(function(){
+ (l107).function = (function(v203){
+ ((v203)["fname"] = "INDENT");
+ return v203;
+ })((function (){
+ var v197= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v197 = {car: arguments[i], cdr:
+ v197};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v198){
+ return (function(v199,v200,v201){
+ ((function(){
+ var symbol = l78;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v198)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v199 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199, (function(){
+ return " ";
+ })());
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v200;
+ var y = v201;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(v202){
+ return v199 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199, (function(){
+ return v202;
+ })());
+ })((((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v198;
+ var index = v200;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var x = v200;
+ var y = (function(){
+ var symbol = l27;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v201);
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v198;
+ var index = (function(){
+ var symbol = l26;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v200);
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10)) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })(), " ") : (function(){
+ var x = (function(){
+ var string = v198;
+ var index = v200;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })();
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })()));
+ v200 = (function(){
+ var x = v200;
+ 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 (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 88)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v199;
+ })("",0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v198));
+ })((function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v197));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 87)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l107;
+})();
+(function(){
+ (l19).function = (function(v207){
+ ((v207)["fname"] = "INTEGER-TO-STRING");
+ return v207;
+ })((function (v204){
+ 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 = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return "0";
+ })() : ((function(){
+ var symbol = l79;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("-", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = 0;
+ var y = v204;
+ 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(){
+ return (function(v205){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v205 = ({car: (function(){
+ var x = v204;
+ var y = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x%y;
+ })(), cdr: v205});
+ v204 = (function(){
+ var symbol = l29;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204, 10);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 90)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v206){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var x = (function(){
+ var string = "0123456789";
+ var index = v206;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })();
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+
+ }), v205));
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 89)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l19;
+})();
+var l108 = {name: "JS!BOOL"};
+var l109 = {name: "LS-COMPILE"};
+(function(){
+ (l108).function = (function(v209){
+ ((v209)["fname"] = "JS!BOOL");
+ return v209;
+ })((function (v208){
+ 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 = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v208, "?", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ": ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 91)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l108;
+})();
+var l110 = {name: "JS!SELFCALL"};
+l110;
+var l111 = {name: "PRIN1-TO-STRING"};
+var l112 = {name: "ESCAPE-STRING"};
+(function(){
+ (l111).function = (function(v213){
+ ((v213)["fname"] = "PRIN1-TO-STRING");
+ return v213;
+ })((function (v210){
+ 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 = v210;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (v210).name;
+ })() : ((function(){
+ var symbol = l77;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210);
+ })() : (((typeof(v210) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("\"", (function(){
+ var symbol = l112;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210), "\"");
+ })() : (((typeof v210 == 'function')?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v211){
+ return (v211 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("#<FUNCTION ", v211, ">") : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("#<FUNCTION>"));
+ })((function(){
+ var tmp = (v210)["fname"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })());
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", (function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l83;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210)), " "), (function(v212){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()), " . ", (function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })())));
+ })((function(){
+ var symbol = l82;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210)), ")");
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 92)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l111;
+})();
+(function(){
+ (l97).function = (function(v215){
+ ((v215)["fname"] = "WRITE-LINE");
+ return v215;
+ })((function (v214){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var x = v214;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ (function(){
+ var x = (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ return v214;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 93)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l97;
+})();
+var l113 = {name: "WARN"};
+(function(){
+ (l113).function = (function(v217){
+ ((v217)["fname"] = "WARN");
+ return v217;
+ })((function (v216){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var x = "WARNING: ";
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ return (function(){
+ var symbol = l97;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v216);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 94)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l113;
+})();
+var l114 = {name: "PRINT"};
+(function(){
+ (l114).function = (function(v219){
+ ((v219)["fname"] = "PRINT");
+ return v219;
+ })((function (v218){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l97;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v218));
+ return v218;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 95)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l114;
+})();
+var l115 = {name: "MAKE-STRING-STREAM"};
+(function(){
+ (l115).function = (function(v221){
+ ((v221)["fname"] = "MAKE-STRING-STREAM");
+ return v221;
+ })((function (v220){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ({car: v220, cdr: 0});
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 96)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l115;
+})();
+var l116 = {name: "%PEEK-CHAR"};
+(function(){
+ (l116).function = (function(v223){
+ ((v223)["fname"] = "%PEEK-CHAR");
+ return v223;
+ })((function (v222){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var x = (function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ var y = (function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })());
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var string = (function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 97)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l116;
+})();
+var l117 = {name: "%READ-CHAR"};
+(function(){
+ (l117).function = (function(v226){
+ ((v226)["fname"] = "%READ-CHAR");
+ return v226;
+ })((function (v224){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var x = (function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ var y = (function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })());
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(v225){
+ (function(){
+ var x = v224;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.cdr = (function(){
+ var symbol = l26;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()));
+ })();
+ return v225;
+ })((function(){
+ var string = (function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 98)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l117;
+})();
+var l118 = {name: "WHITESPACEP"};
+(function(){
+ (l118).function = (function(v230){
+ ((v230)["fname"] = "WHITESPACEP");
+ return v230;
+ })((function (v227){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v228){
+ return (v228 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v228 : (function(v229){
+ return (v229 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v229 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227, 9));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227, 10)));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227, 32));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 99)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l118;
+})();
+var l119 = {name: "SKIP-WHITESPACES"};
+(function(){
+ (l119).function = (function(v233){
+ ((v233)["fname"] = "SKIP-WHITESPACES");
+ return v233;
+ })((function (v231){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v232){
+ v232 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v231);
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v232 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v232) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v231);
+ v232 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v231);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 101)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 100)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l119;
+})();
+var l120 = {name: "TERMINALP"};
+(function(){
+ (l120).function = (function(v238){
+ ((v238)["fname"] = "TERMINALP");
+ return v238;
+ })((function (v234){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v235){
+ return (v235 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v235 : (function(v236){
+ return (v236 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v236 : (function(v237){
+ return (v237 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v237 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(40, v234));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(41, v234)));
+ })((function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234)));
+ })((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 102)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l120;
+})();
+var l121 = {name: "READ-UNTIL"};
+(function(){
+ (l121).function = (function(v243){
+ ((v243)["fname"] = "READ-UNTIL");
+ return v243;
+ })((function (v239,v240){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v241,v242){
+ v242 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v242 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((v240)(v242)) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v241 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v241, (function(){
+ var x = v242;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ v242 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 104)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v241;
+ })("",(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 103)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l121;
+})();
+var l122 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
+(function(){
+ (l122).function = (function(v247){
+ ((v247)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
+ return v247;
+ })((function (v244){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v245){
+ (function(){
+ var symbol = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ v245 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v245 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v245, 59) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244, (function (v246){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v246, 10);
+
+ }));
+ (function(){
+ var symbol = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ v245 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 106)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 105)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l122;
+})();
+var l123 = {name: "%READ-LIST"};
+var l124 = {name: "LS-READ"};
+(function(){
+ (l123).function = (function(v251){
+ ((v251)["fname"] = "%READ-LIST");
+ return v251;
+ })((function (v248){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ return (function(v249){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v249) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw "Unspected EOF";
+ })();
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v249, 41) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v249, 46) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ return (function(v250){
+ (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248), 41) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw "')' was expected.";
+ })();
+ })());
+ return v250;
+ })((function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248));
+ })() : (function(){
+ return ({car: (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248), cdr: (function(){
+ var symbol = l123;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248)});
+ })())));
+ })((function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 107)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l123;
+})();
+var l125 = {name: "READ-STRING"};
+(function(){
+ (l125).function = (function(v255){
+ ((v255)["fname"] = "READ-STRING");
+ return v255;
+ })((function (v252){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v253,v254){
+ v254 = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252);
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254, 34)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw "Unexpected EOF";
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254, 92) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v254 = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252);
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ v253 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v253, (function(){
+ var x = v254;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ v254 = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 109)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v253;
+ })("",(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 108)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l125;
+})();
+var l126 = {name: "READ-SHARP"};
+(function(){
+ (l126).function = (function(v260){
+ ((v260)["fname"] = "READ-SHARP");
+ return v260;
+ })((function (v256){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(v257){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 39) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l99, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 92) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v258){
+ return ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v258, "space") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(32);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v258, "tab") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(9);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v258, "newline") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(10);
+ })() : (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v258;
+ var index = 0;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ })())));
+ })((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })(), (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256, (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 43) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v259){
+ return ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v259, "common-lisp") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v259, "ecmalisp") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : (function(){
+ return (function(){
+ throw "Unknown reader form.";
+ })();
+ })()));
+ })((function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256, (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })())));
+ })((function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 110)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l126;
+})();
+var l127 = {name: "*EOF*"};
+(function(){
+ (((l127.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l127).value = (function(){
+ var name = "EOF";
+ if (typeof name != 'string')
+ throw 'The value ' + name + ' is not a type string.';
+ return ({name: name});
+ })();
+ })());
+ return l127;
+})();
+var l128 = {name: "QUOTE"};
+var l129 = {name: "BACKQUOTE"};
+var l130 = {name: "UNQUOTE-SPLICING"};
+var l131 = {name: "UNQUOTE"};
+(function(){
+ (l124).function = (function(v264){
+ ((v264)["fname"] = "LS-READ");
+ return v264;
+ })((function (v261){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(v262){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l127;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 40) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l123;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 39) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 96) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l129, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 34) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l125;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 44) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261), 64) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l130, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })() : (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l131, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261)));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 35) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l126;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ })() : (function(){
+ return (function(v263){
+ return ((function(){
+ var symbol = l92;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l88;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v263) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l90;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v263) : (function(){
+ var symbol = l15;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = v263;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })()));
+ })((function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261, (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })())))))));
+ })((function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 111)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l124;
+})();
+var l132 = {name: "LS-READ-FROM-STRING"};
+(function(){
+ (l132).function = (function(v266){
+ ((v266)["fname"] = "LS-READ-FROM-STRING");
+ return v266;
+ })((function (v265){
+ 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 = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l115;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v265));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 112)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l132;
+})();
+var l133 = {name: "*COMPILATION-UNIT-CHECKS*"};
+(function(){
+ (((l133.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l133).value = l2;
+ })());
+ return l133;
+})();
+var l134 = {name: "MAKE-BINDING"};
+(function(){
+ (l134).function = (function(v271){
+ ((v271)["fname"] = "MAKE-BINDING");
+ return v271;
+ })((function (v267,v268,v269,v270){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v267, v268, v269, v270);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 113)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l134;
+})();
+var l135 = {name: "BINDING-NAME"};
+(function(){
+ (l135).function = (function(v273){
+ ((v273)["fname"] = "BINDING-NAME");
+ return v273;
+ })((function (v272){
+ 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 = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v272);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 114)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l135;
+})();
+var l136 = {name: "BINDING-TYPE"};
+(function(){
+ (l136).function = (function(v275){
+ ((v275)["fname"] = "BINDING-TYPE");
+ return v275;
+ })((function (v274){
+ 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 = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v274);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 115)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l136;
+})();
+var l137 = {name: "BINDING-VALUE"};
+(function(){
+ (l137).function = (function(v277){
+ ((v277)["fname"] = "BINDING-VALUE");
+ return v277;
+ })((function (v276){
+ 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 = l45;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v276);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 116)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l137;
+})();
+var l138 = {name: "SET-BINDING-VALUE"};
+(function(){
+ (l138).function = (function(v280){
+ ((v280)["fname"] = "SET-BINDING-VALUE");
+ return v280;
+ })((function (v278,v279){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var x = (function(){
+ var tmp = (function(){
+ var tmp = v278;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = v279);
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 117)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l138;
+})();
+var l139 = {name: "BINDING-DECLARED"};
+(function(){
+ (l139).function = (function(v282){
+ ((v282)["fname"] = "BINDING-DECLARED");
+ return v282;
+ })((function (v281){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (v281 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l46;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v281) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 118)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l139;
+})();
+var l140 = {name: "MARK-BINDING-AS-DECLARED"};
+(function(){
+ (l140).function = (function(v284){
+ ((v284)["fname"] = "MARK-BINDING-AS-DECLARED");
+ return v284;
+ })((function (v283){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var x = (function(){
+ var symbol = l41;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v283);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 119)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l140;
+})();
+var l141 = {name: "MAKE-LEXENV"};
+(function(){
+ (l141).function = (function(v285){
+ ((v285)["fname"] = "MAKE-LEXENV");
+ return v285;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 120)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l141;
+})();
+var l142 = {name: "COPY-LEXENV"};
+(function(){
+ (l142).function = (function(v287){
+ ((v287)["fname"] = "COPY-LEXENV");
+ return v287;
+ })((function (v286){
+ 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 = l73;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v286);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 121)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l142;
+})();
+var l143 = {name: "PUSH-TO-LEXENV"};
+var l144 = {name: "BLOCK"};
+var l145 = {name: "GOTAG"};
+(function(){
+ (l143).function = (function(v292){
+ ((v292)["fname"] = "PUSH-TO-LEXENV");
+ return v292;
+ })((function (v288,v289,v290){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v291){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l100) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = v289;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var tmp = v289;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l99) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = (function(){
+ var tmp = v289;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289)}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l144) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = (function(){
+ var symbol = l39;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var symbol = l40;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289)}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l145) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = (function(){
+ var symbol = l41;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var symbol = l42;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289)}));
+ })();
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v290);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 122)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l143;
+})();
+var l146 = {name: "EXTEND-LEXENV"};
+(function(){
+ (l146).function = (function(v299){
+ ((v299)["fname"] = "EXTEND-LEXENV");
+ return v299;
+ })((function (v293,v294,v295){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v296){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v297,v298){
+ (function(){
+ while(v297 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v298 = (function(){
+ var tmp = v297;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ (function(){
+ var symbol = l143;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v298, v296, v295);
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v297 = (function(){
+ var tmp = v297;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return v296;
+ })((function(){
+ var symbol = l67;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v293),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 124)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l142;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v294));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 123)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l146;
+})();
+var l147 = {name: "LOOKUP-IN-LEXENV"};
+(function(){
+ (l147).function = (function(v304){
+ ((v304)["fname"] = "LOOKUP-IN-LEXENV");
+ return v304;
+ })((function (v300,v301,v302){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l93;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v300, (function(v303){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l100) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l99) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l144) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l45;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l145) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l46;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v302));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 125)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l147;
+})();
+var l148 = {name: "*GLOBAL-ENVIRONMENT*"};
+(function(){
+ (((l148.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l148).value = (function(){
+ var symbol = l141;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()();
+ })());
+ return l148;
+})();
+var l149 = {name: "*ENVIRONMENT*"};
+(function(){
+ (((l149.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l149).value = (function(){
+ var symbol = l141;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()();
+ })());
+ return l149;
+})();
+var l150 = {name: "CLEAR-UNDECLARED-GLOBAL-BINDINGS"};
+(function(){
+ (l150).function = (function(v306){
+ ((v306)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
+ return v306;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l149).value = (function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v305){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var symbol = l87;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l139;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v305);
+
+ }), (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 126)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l150;
+})();
+var l151 = {name: "*VARIABLE-COUNTER*"};
+(function(){
+ (((l151.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l151).value = 0;
+ })());
+ return l151;
+})();
+var l152 = {name: "GVARNAME"};
+(function(){
+ (l152).function = (function(v308){
+ ((v308)["fname"] = "GVARNAME");
+ return v308;
+ })((function (v307){
+ 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 = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("v", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((l151).value = (function(){
+ var x = (function(){
+ var symbol = l151;
+ 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 == 127)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l152;
+})();
+var l153 = {name: "TRANSLATE-VARIABLE"};
+(function(){
+ (l153).function = (function(v310){
+ ((v310)["fname"] = "TRANSLATE-VARIABLE");
+ return v310;
+ })((function (v309){
+ 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 = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v309, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l100));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 128)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l153;
+})();
+var l154 = {name: "EXTEND-LOCAL-ENV"};
+var l155 = {name: "LEXICAL-VARIABLE"};
+(function(){
+ (l154).function = (function(v316){
+ ((v316)["fname"] = "EXTEND-LOCAL-ENV");
+ return v316;
+ })((function (v311){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v312){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v313,v314){
+ (function(){
+ while(v313 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v314 = (function(){
+ var tmp = v313;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ (function(v315){
+ return (function(){
+ var symbol = l143;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v315, v312, l100);
+ })((function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v314, l155, (function(){
+ var symbol = l152;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v314), (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v313 = (function(){
+ var tmp = v313;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return v312;
+ })(v311,(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 130)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l142;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 129)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l154;
+})();
+var l156 = {name: "*TOPLEVEL-COMPILATIONS*"};
+(function(){
+ (((l156.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l156).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l156;
+})();
+var l157 = {name: "TOPLEVEL-COMPILATION"};
+(function(){
+ (l157).function = (function(v318){
+ ((v318)["fname"] = "TOPLEVEL-COMPILATION");
+ return v318;
+ })((function (v317){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l156).value = ({car: v317, cdr: (function(){
+ var symbol = l156;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 131)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l157;
+})();
+var l158 = {name: "NULL-OR-EMPTY-P"};
+(function(){
+ (l158).function = (function(v320){
+ ((v320)["fname"] = "NULL-OR-EMPTY-P");
+ return v320;
+ })((function (v319){
+ 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 = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v319));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 132)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l158;
+})();
+var l159 = {name: "GET-TOPLEVEL-COMPILATIONS"};
+(function(){
+ (l159).function = (function(v321){
+ ((v321)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
+ return v321;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l67;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l158;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l156;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 133)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l159;
+})();
+var l160 = {name: "%COMPILE-DEFMACRO"};
+var l161 = {name: "MACRO"};
+(function(){
+ (l160).function = (function(v324){
+ ((v324)["fname"] = "%COMPILE-DEFMACRO");
+ return v324;
+ })((function (v322,v323){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l157;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v322))));
+ return (function(){
+ var symbol = l143;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v322, l161, v323, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 134)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l160;
+})();
+var l162 = {name: "*COMPILATIONS*"};
+(function(){
+ (((l162.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l162).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l162;
+})();
+var l163 = {name: "LS-COMPILE-BLOCK"};
+(function(){
+ (l163).function = (function(v327){
+ ((v327)["fname"] = "LS-COMPILE-BLOCK");
+ return v327;
+ })((function (v325,v326){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v326=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (v326 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l83;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v325)), "return ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = (function(){
+ var symbol = l82;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v325);
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()), ";") : (function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l158;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v325)), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 135)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l163;
+})();
+var l164 = {name: "DEFINE-COMPILATION"};
+l164;
+var l165 = {name: "IF"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l165, (function (v328,v329,v330){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v328), " !== ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), " ? ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v329), " : ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v330), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 136)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l166 = {name: "*LAMBDA-LIST-KEYWORDS*"};
+var l167 = {name: "&OPTIONAL"};
+var l168 = {name: "&REST"};
+var l169 = {car: l167, cdr: {car: l168, cdr: l2}};
+(function(){
+ (((l166.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l166).value = l169;
+ })());
+ return l166;
+})();
+var l170 = {name: "LIST-UNTIL-KEYWORD"};
+(function(){
+ (l170).function = (function(v333){
+ ((v333)["fname"] = "LIST-UNTIL-KEYWORD");
+ return v333;
+ })((function (v331){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(v332){
+ return (v332 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v332 : (function(){
+ var symbol = l84;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v331;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), (function(){
+ var symbol = l166;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v331)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : ({car: (function(){
+ var tmp = v331;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), cdr: (function(){
+ var symbol = l170;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v331;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })())}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 137)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l170;
+})();
+var l171 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
+(function(){
+ (l171).function = (function(v335){
+ ((v335)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
+ return v335;
+ })((function (v334){
+ 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 = l170;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v334);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 138)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l171;
+})();
+var l172 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
+(function(){
+ (l172).function = (function(v337){
+ ((v337)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
+ return v337;
+ })((function (v336){
+ 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 = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l61;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l170;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = (function(){
+ var symbol = l84;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l167, v336);
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 139)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l172;
+})();
+var l173 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
+(function(){
+ (l173).function = (function(v339){
+ ((v339)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
+ return v339;
+ })((function (v338){
+ 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 = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l34;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l172;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v338));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 140)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l173;
+})();
+var l174 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
+(function(){
+ (l174).function = (function(v342){
+ ((v342)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
+ return v342;
+ })((function (v340){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v341){
+ ((function(){
+ var tmp = v341;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })() !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw "Bad lambda-list";
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return (function(){
+ var tmp = v341;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })((function(){
+ var symbol = l170;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = (function(){
+ var symbol = l84;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l168, v340);
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 141)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l174;
+})();
+var l175 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
+(function(){
+ (l175).function = (function(v345){
+ ((v345)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
+ return v345;
+ })((function (v344){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v343= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v343 = {car: arguments[i], cdr:
+ v343};
+ return (function(){
+ try {
+ return (function(){
+ return (v344 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var func = ", (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v343), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "func.docstring = '", v344, "';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v343));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 142)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l175;
+})();
+var l176 = {name: "LAMBDA"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l176, (function (v347){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v346= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v346 = {car: arguments[i], cdr:
+ v346};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v348,v349,v350,v351){
+ ((((typeof((function(){
+ var tmp = v346;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v346;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })())) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ v351 = (function(){
+ var tmp = v346;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ return v346 = (function(){
+ var tmp = v346;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return (function(v352,v353,v354){
+ try {
+ var tmp;
+ tmp = l149.value;
+ l149.value = v354;
+ v354 = tmp;
+ return (function(){
+ var symbol = l175;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v351, "(function (", (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l153;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v348, v349)), ","), "){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((v348 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (arguments.length < ", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v352), ") throw 'too few arguments';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), ((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v350) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (arguments.length > ", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = v352;
+ var y = v353;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v349 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("switch(arguments.length){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v355,v356,v357){
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v357;
+ var y = v353;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(v358){
+ v356 = ({car: (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("case ", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = v357;
+ var y = v352;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l153;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v358;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()), "=", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v358)), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v356});
+ return v357 = (function(){
+ var x = v357;
+ 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;
+ })();
+ })((function(){
+ var symbol = l81;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v357, v355));
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 144)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ v356 = ({car: (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("default: break;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v356});
+ return (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l67;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v356));
+ })();
+ })((function(){
+ var symbol = l172;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v347),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(),0), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v350 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(v359){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", v359, "= ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = arguments.length-1; i>=", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = v352;
+ var y = v353;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v359, " = ", "{car: arguments[i], cdr: "), v359, "};", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l153;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v350)) : ""), (function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v346, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "})");
+ }
+ finally {
+ l149.value = v354;
+ }
+ })((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v348),(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v349),(function(){
+ var symbol = l154;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l61;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v350), v348, v349)));
+ })((function(){
+ var symbol = l171;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v347),(function(){
+ var symbol = l173;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v347),(function(){
+ var symbol = l174;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v347),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 143)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l177 = {name: "SETQ"};
+var l178 = {name: "SET"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l177, (function (v360,v361){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v362){
+ return ((((function(){
+ var symbol = l136;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v362) === l155)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v362), " = ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v361)) : (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l178), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v360))), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v361))));
+ })((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v360, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l100));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 145)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l179 = {name: "JS-VREF"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l179, (function (v363){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v363;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 146)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l180 = {name: "JS-VSET"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l180, (function (v364,v365){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v364, " = ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v365), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 147)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+(function(){
+ (l112).function = (function(v372){
+ ((v372)["fname"] = "ESCAPE-STRING");
+ return v372;
+ })((function (v366){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v367,v368,v369){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v368;
+ var y = v369;
+ 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 = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(v370){
+ ((function(v371){
+ return (v371 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v371 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v370, 92));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v370, 34)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v367 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v367, "\\");
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v370, 10) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ v367 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v367, "\\");
+ return v370 = 110;
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return v367 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v367, (function(){
+ var x = v370;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ })((function(){
+ var string = v366;
+ var index = v368;
+ 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);
+ })());
+ v368 = (function(){
+ var x = v368;
+ 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 (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 149)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v367;
+ })("",0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v366));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 148)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l112;
+})();
+var l181 = {name: "*LITERAL-SYMBOLS*"};
+(function(){
+ (((l181.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l181).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l181;
+})();
+var l182 = {name: "*LITERAL-COUNTER*"};
+(function(){
+ (((l182.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l182).value = 0;
+ })());
+ return l182;
+})();
+var l183 = {name: "GENLIT"};
+(function(){
+ (l183).function = (function(v373){
+ ((v373)["fname"] = "GENLIT");
+ return v373;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("l", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((l182).value = (function(){
+ var x = (function(){
+ var symbol = l182;
+ 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 == 150)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l183;
+})();
+var l184 = {name: "LITERAL"};
+(function(){
+ (l184).function = (function(v381){
+ ((v381)["fname"] = "LITERAL");
+ return v381;
+ })((function (v374,v375){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v375=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l77;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v374) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v374);
+ })() : (((typeof(v374) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("\"", (function(){
+ var symbol = l112;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v374), "\"");
+ })() : (((function(){
+ var tmp = v374;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v376){
+ return (v376 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v376 : (function(v377,v378){
+ (l181).value = ({car: ({car: v374, cdr: v377}), cdr: (function(){
+ var symbol = l181;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ (function(){
+ var symbol = l157;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", v377, " = ", v378));
+ return v377;
+ })((function(){
+ var symbol = l183;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l15), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((v374).name)))));
+ })((function(){
+ var tmp = (function(){
+ var symbol = l93;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v374, (function(){
+ var symbol = l181;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })());
+ })() : (((function(){
+ var tmp = v374;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v379){
+ return (v375 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v379 : (function(v380){
+ (function(){
+ var symbol = l157;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", v380, " = ", v379));
+ return v380;
+ })((function(){
+ var symbol = l183;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()()));
+ })((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("{car: ", (function(){
+ var symbol = l184;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v374;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ", ", "cdr: ", (function(){
+ var symbol = l184;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v374;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}"));
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 151)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l184;
+})();
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l128, (function (v382){
+ 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 = l184;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v382);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 152)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l185 = {name: "%WHILE"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l185, (function (v384){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v383= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v383 = {car: arguments[i], cdr:
+ v383};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("while(", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v384), " !== ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v383)), "}", "return ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 153)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l186 = {name: "SYMBOL-FUNCTION"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l99, (function (v385){
+ 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 = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v385) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var tmp = v385;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })() === l176)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v385);
+ })() : (((function(){
+ var tmp = v385;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l186), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v385)))));
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 154)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l187 = {name: "EVAL-WHEN-COMPILE"};
+var l188 = {name: "EVAL"};
+var l189 = {name: "PROGN"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l187, (function (){
+ var v386= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v386 = {car: arguments[i], cdr:
+ v386};
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l188;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(({car: l189, cdr: v386}));
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 155)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l190 = {name: "DEFINE-TRANSFORMATION"};
+l190;
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l189, (function (){
+ var v387= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v387 = {car: arguments[i], cdr:
+ v387};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v387, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 156)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l191 = {name: "DYNAMIC-BINDING-WRAPPER"};
+(function(){
+ (l191).function = (function(v394){
+ ((v394)["fname"] = "DYNAMIC-BINDING-WRAPPER");
+ return v394;
+ })((function (v388,v389){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v388) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v389 : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("try {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var tmp;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v390){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(v391){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("tmp = ", v391, ".value;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), v391, ".value = ", (function(){
+ var tmp = v390;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var tmp = v390;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), " = tmp;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v390;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()))));
+
+ }), v388)), v389), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "finally {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v392){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(v393){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v393, ".value", " = ", (function(){
+ var tmp = v392;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })());
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v392;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()))));
+
+ }), v388), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()))), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 157)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l191;
+})();
+var l192 = {name: "LET"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l192, (function (v396){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v395= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v395 = {car: arguments[i], cdr:
+ v395};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v397){
+ return (function(v398,v399){
+ return (function(v400,v402,v401){
+ try {
+ var tmp;
+ tmp = l149.value;
+ l149.value = v402;
+ v402 = tmp;
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(", (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v403){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (((v403.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(v404){
+ v401 = ({car: ({car: v403, cdr: v404}), cdr: v401});
+ return v404;
+ })((function(){
+ var symbol = l152;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v403)) : (function(){
+ var symbol = l153;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v403));
+
+ }), v398), ","), "){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v405){
+ return (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l191;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v401, v405));
+ })((function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v395, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})(", (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v400, ","), ")");
+ }
+ finally {
+ l149.value = v402;
+ }
+ })((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v399),(function(){
+ var symbol = l154;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l20;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v398)),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v397),(function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v397));
+ })((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l61;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v396));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 158)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l193 = {name: "*BLOCK-COUNTER*"};
+(function(){
+ (((l193.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l193).value = 0;
+ })());
+ return l193;
+})();
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l144, (function (v407){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v406= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v406 = {car: arguments[i], cdr:
+ v406};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v408){
+ return (function(v409){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("try {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v410){
+ try {
+ var tmp;
+ tmp = l149.value;
+ l149.value = v410;
+ v410 = tmp;
+ return (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l189), v406)), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }
+ finally {
+ l149.value = v410;
+ }
+ })((function(){
+ var symbol = l146;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v409), (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l144)), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (cf.type == 'block' && cf.id == ", v408, ")", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v407, l144, v408, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })((function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((l193).value = (function(){
+ var x = (function(){
+ var symbol = l193;
+ 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 == 159)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l194 = {name: "RETURN-FROM"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l194, (function (v411,v412){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v412=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(v413){
+ return (v413 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw ({", "type: 'block', ", "id: ", (function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v413), ", ", "value: ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v412), ", ", "message: 'Return from unknown block ", (v411).name, ".'", "})"), "})()") : (function(){
+ throw (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("Unknown block `", (v411).name, "'.");
+ })());
+ })((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v411, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l144));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 160)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l195 = {name: "CATCH"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l195, (function (v415){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v414= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v414 = {car: arguments[i], cdr:
+ v414};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var id = ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v415), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l189), v414)), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (cf){", (function(){
+ var symbol = l101;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " return cf.value;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw cf;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 161)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l196 = {name: "THROW"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l196, (function (v416,v417){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v417=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw ({", "type: 'catch', ", "id: ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v416), ", ", "value: ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v417), ", ", "message: 'Throw uncatched.'", "})"), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 162)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l197 = {name: "*TAGBODY-COUNTER*"};
+(function(){
+ (((l197.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l197).value = 0;
+ })());
+ return l197;
+})();
+var l198 = {name: "*GO-TAG-COUNTER*"};
+(function(){
+ (((l198.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l198).value = 0;
+ })());
+ return l198;
+})();
+var l199 = {name: "GO-TAG-P"};
+(function(){
+ (l199).function = (function(v420){
+ ((v420)["fname"] = "GO-TAG-P");
+ return v420;
+ })((function (v418){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v419){
+ return (v419 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v419 : ((function(){
+ var tmp = v418;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })((function(){
+ var symbol = l77;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v418));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 163)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l199;
+})();
+var l200 = {name: "DECLARE-TAGBODY-TAGS"};
+(function(){
+ (l200).function = (function(v426){
+ ((v426)["fname"] = "DECLARE-TAGBODY-TAGS");
+ return v426;
+ })((function (v421,v422){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v425){
+ return (function(){
+ var symbol = l146;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v425, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l145);
+ })((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v423){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(v424){
+ return (function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v423, l145, (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v421, v424), (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((l198).value = (function(){
+ var x = (function(){
+ var symbol = l198;
+ 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;
+ })()));
+
+ }), (function(){
+ var symbol = l87;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l199;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v422)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 164)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l200;
+})();
+var l201 = {name: "TAGBODY"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l201, (function (){
+ var v427= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v427 = {car: arguments[i], cdr:
+ v427};
+ return (function(){
+ try {
+ return (function(){
+ ((function(){
+ var symbol = l91;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l199;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v427) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw ({type: 'block', id: 165, value: (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l189), v427, (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l2))), message: 'Return from unknown block TAGBODY.'})
+ })();
+ })());
+ ((function(){
+ var symbol = l199;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v427;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return v427 = ({car: (function(){
+ var symbol = l18;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("START"), cdr: v427});
+ })());
+ return (function(v428){
+ return (function(v430,v429){
+ try {
+ var tmp;
+ tmp = l149.value;
+ l149.value = v430;
+ v430 = tmp;
+ (function(v431){
+ return v429 = (function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v431));
+ })((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v427), (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l145));
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var tagbody_", v428, " = ", v429, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "tbloop:", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (true) {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("try {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(v432){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("switch(tagbody_", v428, "){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "case ", v429, ":", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ try {
+ return (function(){
+ return (function(v433,v434){
+ (function(){
+ while(v433 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v434 = (function(){
+ var tmp = v433;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ v432 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v432, (function(){
+ return ((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l199;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v434)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v434), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(v435){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("case ", (function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v435)), ":", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v434, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l145)));
+ })());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v433 = (function(){
+ var tmp = v433;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return v432;
+ })((function(){
+ var tmp = v427;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 166)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })(), "default:", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " break tbloop;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })("")), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "catch (jump) {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " if (jump.type == 'tagbody' && jump.id == ", v428, ")", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tagbody_", v428, " = jump.label;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " else", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " throw(jump);", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ }
+ finally {
+ l149.value = v430;
+ }
+ })((function(){
+ var symbol = l200;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v428, v427),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l197;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 165)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l202 = {name: "GO"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l202, (function (v436){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v437,v438){
+ return (v437 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw ({", "type: 'tagbody', ", "id: ", (function(){
+ var symbol = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v437)), ", ", "label: ", (function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v437)), ", ", "message: 'Attempt to GO to non-existing tag ", v438, "'", "})", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : (function(){
+ throw (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("Unknown tag `", v438, "'.");
+ })());
+ })((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v436, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l145),(((function(){
+ var tmp = v436;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (v436).name;
+ })() : ((function(){
+ var symbol = l77;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v436) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v436);
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 167)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l203 = {name: "UNWIND-PROTECT"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l203, (function (v440){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v439= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=1; i--)
+ v439 = {car: arguments[i], cdr:
+ v439};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ret = ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "try {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("ret = ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v440), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "} finally {", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v439)), "}", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return ret;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 168)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l204 = {name: "BACKQUOTE-EXPAND-1"};
+(function(){
+ (l204).function = (function(v443){
+ ((v443)["fname"] = "BACKQUOTE-EXPAND-1");
+ return v443;
+ })((function (v441){
+ 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 = v441;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128, v441);
+ })() : ((function(){
+ var symbol = l48;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v441) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v441;
+ })() : ((((function(){
+ var tmp = v441;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })() === l131)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var tmp = v441;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })() : ((((function(){
+ var tmp = v441;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })() === l129)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l204;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l204;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v441)));
+ })() : (function(){
+ return ({car: l65, cdr: (function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v442){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v442) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var tmp = v442;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })() === l131)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l47, (function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v442));
+ })() : (((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v442) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var tmp = v442;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })() === l130)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v442);
+ })() : (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l47, (function(){
+ var symbol = l204;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v442));
+ })()));
+
+ }), v441)});
+ })()))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 169)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l204;
+})();
+var l205 = {name: "BACKQUOTE-EXPAND"};
+(function(){
+ (l205).function = (function(v445){
+ ((v445)["fname"] = "BACKQUOTE-EXPAND");
+ return v445;
+ })((function (v444){
+ 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 = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v444) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var tmp = v444;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })() === l129)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l204;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v444)) : v444);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 170)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l205;
+})();
+l129;
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l129, (function (v446){
+ 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 = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l204;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v446));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 171)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l206 = {name: "DEFINE-BUILTIN"};
+l206;
+var l207 = {name: "TYPE-CHECK"};
+l207;
+var l208 = {name: "NUM-OP-NUM"};
+(function(){
+ (l208).function = (function(v450){
+ ((v450)["fname"] = "NUM-OP-NUM");
+ return v450;
+ })((function (v447,v448,v449){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v447, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "y", " = ", v449, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "y", " != '", "number", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("x", v448, "y");
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 172)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l208;
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l22, (function (v451,v452){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v453,v454){
+ return (function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v453, "+", v454);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v451),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v452));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 173)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l23, (function (v455,v456){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v457,v458){
+ return (function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v457, "-", v458);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v455),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v456));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 174)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l24, (function (v459,v460){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v461,v462){
+ return (function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v461, "*", v462);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v459),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v460));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 175)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l25, (function (v463,v464){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v465,v466){
+ return (function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v465, "/", v466);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v463),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v464));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 176)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l209 = {name: "MOD"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l209, (function (v467,v468){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v469,v470){
+ return (function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v469, "%", v470);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v467),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v468));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 177)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l210 = {name: "<"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l210, (function (v471,v472){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v473,v474){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v473, "<", v474));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v471),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v472));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 178)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l211 = {name: ">"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l211, (function (v475,v476){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v477,v478){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v477, ">", v478));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v475),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v476));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 179)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l21, (function (v479,v480){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v481,v482){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v481, "==", v482));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v479),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v480));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 180)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l212 = {name: "<="};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l212, (function (v483,v484){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v485,v486){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v485, "<=", v486));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v483),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v484));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 181)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l213 = {name: ">="};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l213, (function (v487,v488){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v489,v490){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l208;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v489, ">=", v490));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v487),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v488));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 182)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l214 = {name: "NUMBERP"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l214, (function (v491){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v492){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(typeof (", v492, ") == \"number\")"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v491));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 183)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l215 = {name: "FLOOR"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l215, (function (v493){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v494){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v494, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return "Math.floor(x)";
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v493));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 184)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l32, (function (v495,v496){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v497,v498){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("({car: ", v497, ", cdr: ", v498, "})");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v495),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v496));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 185)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l33, (function (v499){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v500){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var tmp = ", v500, ";", (function(){
+ var symbol = l101;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v499));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 186)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l34, (function (v501){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v502){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var tmp = ", v502, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "? ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ": tmp.car;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v501));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 187)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l35, (function (v503){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v504){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var tmp = ", v504, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "? ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ": tmp.cdr;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v503));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 188)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l216 = {name: "SETCAR"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l216, (function (v505,v506){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v507,v508){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v507, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(x.car = ", v508, ")");
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v505),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v506));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 189)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l217 = {name: "SETCDR"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l217, (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(v511,v512){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v511, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(x.cdr = ", v512, ")");
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v509),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v510));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 190)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l218 = {name: "SYMBOLP"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l218, (function (v513){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v514){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var tmp = ", v514, ";", (function(){
+ var symbol = l101;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v513));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 191)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l219 = {name: "MAKE-SYMBOL"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l219, (function (v515){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v516){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "name", " = ", v516, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return "({name: name})";
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v515));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 192)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l220 = {name: "SYMBOL-NAME"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l220, (function (v517){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v518){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v518, ").name");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v517));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 193)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l178, (function (v519,v520){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v521,v522){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v521, ").value = ", v522);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v519),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v520));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 194)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l221 = {name: "FSET"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l221, (function (v523,v524){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v525,v526){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v525, ").function = ", v526);
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v523),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v524));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 195)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l20, (function (v527){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v528){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v528, ".value !== undefined)"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v527));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 196)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l222 = {name: "SYMBOL-VALUE"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l222, (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(v530){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var symbol = ", v530, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l101;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v529));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 197)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l186, (function (v531){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v532){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var symbol = ", v532, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.function;", (function(){
+ var symbol = l101;
+ 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 = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v531));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 198)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l223 = {name: "SYMBOL-PLIST"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l223, (function (v533){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v534){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("((", v534, ").plist || ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ")");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v533));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 199)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l224 = {name: "LAMBDA-CODE"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l224, (function (v535){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v536){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v536, ").toString()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v535));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 200)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l225 = {name: "EQ"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l225, (function (v537,v538){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v539,v540){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v539, " === ", v540, ")"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v537),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v538));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 201)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l226 = {name: "EQUAL"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l226, (function (v541,v542){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v543,v544){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v543, " == ", v544, ")"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v541),(function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v542));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 202)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l227 = {name: "STRING"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l227, (function (v545){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v546){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v546, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return "String.fromCharCode(x)";
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v545));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 203)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l228 = {name: "STRINGP"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l228, (function (v547){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v548){
+ return (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(typeof(", v548, ") == \"string\")"));
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v547));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 204)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l229 = {name: "STRING-UPCASE"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l229, (function (v549){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v550){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v550, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return "x.toUpperCase()";
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v549));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 205)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l230 = {name: "STRING-LENGTH"};
+(function(){
+ return (l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l230, (function (v551){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v552){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function(){", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", "x", " = ", v552, ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l107;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("return ", (function(){
+ return "x.length";
+ })(), ";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v551));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 206)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ })), cdr: (function(){
+ var symbol = l162;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+})();
+var l231 = {name: "SLICE"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l231, (function (v553,v554,v555){
+ if (arguments.length < 2) throw 'too few arguments';