+ (function(){
+ var x = (function(){
+ var symbol = l98;
+ 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 v209;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 92)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l97;
+})();
+var l110 = {name: "WARN"};
+(function(){
+ (l110).function = (function(v212){
+ ((v212)["fname"] = "WARN");
+ return v212;
+ })((function (v211){
+ 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;
+ })()(v211);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 93)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l110;
+})();
+var l111 = {name: "PRINT"};
+(function(){
+ (l111).function = (function(v214){
+ ((v214)["fname"] = "PRINT");
+ return v214;
+ })((function (v213){
+ 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 = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v213));
+ return v213;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 94)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l111;
+})();
+var l112 = {name: "MAKE-STRING-STREAM"};
+(function(){
+ (l112).function = (function(v216){
+ ((v216)["fname"] = "MAKE-STRING-STREAM");
+ return v216;
+ })((function (v215){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ({car: v215, cdr: 0});
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 95)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l112;
+})();
+var l113 = {name: "%PEEK-CHAR"};
+(function(){
+ (l113).function = (function(v218){
+ ((v218)["fname"] = "%PEEK-CHAR");
+ return v218;
+ })((function (v217){
+ 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 = v217;
+ 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 = v217;
+ 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 = v217;
+ 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 = v217;
+ 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 == 96)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l113;
+})();
+var l114 = {name: "%READ-CHAR"};
+(function(){
+ (l114).function = (function(v221){
+ ((v221)["fname"] = "%READ-CHAR");
+ return v221;
+ })((function (v219){
+ 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 = v219;
+ 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 = v219;
+ 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(v220){
+ (function(){
+ var x = v219;
+ 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 = v219;
+ 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 v220;
+ })((function(){
+ var string = (function(){
+ var tmp = v219;
+ 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 = v219;
+ 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 l114;
+})();
+var l115 = {name: "WHITESPACEP"};
+(function(){
+ (l115).function = (function(v225){
+ ((v225)["fname"] = "WHITESPACEP");
+ return v225;
+ })((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(v223){
+ return (v223 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v223 : (function(v224){
+ return (v224 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v224 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v222, 9));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v222, 10)));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v222, 32));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 98)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l115;
+})();
+var l116 = {name: "SKIP-WHITESPACES"};
+(function(){
+ (l116).function = (function(v228){
+ ((v228)["fname"] = "SKIP-WHITESPACES");
+ return v228;
+ })((function (v226){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v227){
+ v227 = (function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v226);
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v227 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l115;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227) : (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 = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v226);
+ v227 = (function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v226);
+ }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 == 100)
+ 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 == 99)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l116;
+})();
+var l117 = {name: "TERMINALP"};
+(function(){
+ (l117).function = (function(v233){
+ ((v233)["fname"] = "TERMINALP");
+ return v233;
+ })((function (v229){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v230){
+ return (v230 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v230 : (function(v231){
+ return (v231 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v231 : (function(v232){
+ return (v232 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v232 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(40, v229));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(41, v229)));
+ })((function(){
+ var symbol = l115;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v229)));
+ })((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v229));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 101)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l117;
+})();
+var l118 = {name: "READ-UNTIL"};
+(function(){
+ (l118).function = (function(v238){
+ ((v238)["fname"] = "READ-UNTIL");
+ return v238;
+ })((function (v234,v235){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v236,v237){
+ v237 = (function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234);
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v237 !== (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;
+ })()((v235)(v237)) : (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;
+ })()){
+ v236 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v236, (function(){
+ var x = v237;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234);
+ v237 = (function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234);
+ }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 == 103)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v236;
+ })("",(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 == 102)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l118;
+})();
+var l119 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
+(function(){
+ (l119).function = (function(v242){
+ ((v242)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
+ return v242;
+ })((function (v239){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v240){
+ (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ v240 = (function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v240 !== (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;
+ })()(v240, 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 = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239, (function (v241){
+ 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;
+ })()(v241, 10);
+
+ }));
+ (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ v240 = (function(){
+ var symbol = l113;
+ 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 == 105)
+ 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 == 104)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l119;
+})();
+var l120 = {name: "%READ-LIST"};
+var l121 = {name: "LS-READ"};
+(function(){
+ (l120).function = (function(v246){
+ ((v246)["fname"] = "%READ-LIST");
+ return v246;
+ })((function (v243){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243);
+ return (function(v244){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244) !== (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;
+ })()(v244, 41) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243);
+ 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;
+ })()(v244, 46) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243);
+ return (function(v245){
+ (function(){
+ var symbol = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243);
+ ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243), 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 v245;
+ })((function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243));
+ })() : (function(){
+ return ({car: (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243), cdr: (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243)});
+ })())));
+ })((function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v243));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 106)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l120;
+})();
+var l122 = {name: "READ-STRING"};
+(function(){
+ (l122).function = (function(v250){
+ ((v250)["fname"] = "READ-STRING");
+ return v250;
+ })((function (v247){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v248,v249){
+ v249 = (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v247);
+ (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;
+ })()(v249, 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;
+ })()(v249) !== (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;
+ })()(v249, 92) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v249 = (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v247);
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ v248 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248, (function(){
+ var x = v249;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ v249 = (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v247);
+ }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 == 108)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v248;
+ })("",(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 == 107)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l122;
+})();
+var l123 = {name: "READ-SHARP"};
+var l124 = {name: "FUNCTION"};
+(function(){
+ (l123).function = (function(v255){
+ ((v255)["fname"] = "READ-SHARP");
+ return v255;
+ })((function (v251){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251);
+ return (function(v252){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252, 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;
+ })()(l124, (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252, 92) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v253){
+ return ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v253, "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;
+ })()(v253, "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;
+ })()(v253, "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 = v253;
+ 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 = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })(), (function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251, (function(){
+ var symbol = l117;
+ 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;
+ })()(v252, 43) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v254){
+ return ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254, "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 = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251);
+ return (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254, "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 = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251);
+ })() : (function(){
+ return (function(){
+ throw "Unknown reader form.";
+ })();
+ })()));
+ })((function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251, (function(){
+ var symbol = l117;
+ 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 = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v251));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 109)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l123;
+})();
+var l125 = {name: "*EOF*"};
+(function(){
+ (((l125.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 (l125).value = (function(){
+ var name = "EOF";
+ if (typeof name != 'string')
+ throw 'The value ' + name + ' is not a type string.';
+ return ({name: name});
+ })();
+ })());
+ return l125;
+})();
+var l126 = {name: "QUOTE"};
+var l127 = {name: "BACKQUOTE"};
+var l128 = {name: "UNQUOTE-SPLICING"};
+var l129 = {name: "UNQUOTE"};
+(function(){
+ (l121).function = (function(v259){
+ ((v259)["fname"] = "LS-READ");
+ return v259;
+ })((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 = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(v257){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l125;
+ 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;
+ })()(v257, 40) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : ((function(){
+ var symbol = l76;
+ 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(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l126, (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 96) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l127, (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 34) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 44) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l113;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256), 64) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l114;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128, (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })() : (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l129, (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256)));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 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 = l123;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : (function(){
+ return (function(v258){
+ 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;
+ })(), v258) !== (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;
+ })()(v258) : (function(){
+ var symbol = l15;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = v258;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })()));
+ })((function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256, (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })())))))));
+ })((function(){
+ var symbol = l113;
+ 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 l121;
+})();
+var l130 = {name: "LS-READ-FROM-STRING"};
+(function(){
+ (l130).function = (function(v261){
+ ((v261)["fname"] = "LS-READ-FROM-STRING");
+ return v261;
+ })((function (v260){
+ 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 = l121;
+ 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;
+ })()(v260));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 111)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l130;
+})();
+var l131 = {name: "*COMPILATION-UNIT-CHECKS*"};
+(function(){
+ (((l131.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 (l131).value = l2;
+ })());
+ return l131;
+})();
+var l132 = {name: "MAKE-BINDING"};
+(function(){
+ (l132).function = (function(v266){
+ ((v266)["fname"] = "MAKE-BINDING");
+ return v266;
+ })((function (v262,v263,v264,v265){
+ 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;
+ })()(v262, v263, v264, v265);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 112)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l132;
+})();
+var l133 = {name: "BINDING-NAME"};
+(function(){
+ (l133).function = (function(v268){
+ ((v268)["fname"] = "BINDING-NAME");
+ return v268;
+ })((function (v267){
+ 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;
+ })()(v267);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 113)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l133;
+})();
+var l134 = {name: "BINDING-TYPE"};
+(function(){
+ (l134).function = (function(v270){
+ ((v270)["fname"] = "BINDING-TYPE");
+ return v270;
+ })((function (v269){
+ 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;
+ })()(v269);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 114)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l134;
+})();
+var l135 = {name: "BINDING-VALUE"};
+(function(){
+ (l135).function = (function(v272){
+ ((v272)["fname"] = "BINDING-VALUE");
+ return v272;
+ })((function (v271){
+ 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;
+ })()(v271);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 115)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l135;
+})();
+var l136 = {name: "BINDING-DECLARED"};
+(function(){
+ (l136).function = (function(v274){
+ ((v274)["fname"] = "BINDING-DECLARED");
+ return v274;
+ })((function (v273){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (v273 !== (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;
+ })()(v273) : (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 == 116)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l136;
+})();
+var l137 = {name: "MARK-BINDING-AS-DECLARED"};
+(function(){
+ (l137).function = (function(v276){
+ ((v276)["fname"] = "MARK-BINDING-AS-DECLARED");
+ return v276;
+ })((function (v275){
+ 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;
+ })()(v275);
+ 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 == 117)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l137;
+})();
+var l138 = {name: "MAKE-LEXENV"};
+(function(){
+ (l138).function = (function(v277){
+ ((v277)["fname"] = "MAKE-LEXENV");
+ return v277;
+ })((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 == 118)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l138;
+})();
+var l139 = {name: "COPY-LEXENV"};
+(function(){
+ (l139).function = (function(v279){
+ ((v279)["fname"] = "COPY-LEXENV");
+ return v279;
+ })((function (v278){
+ 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;
+ })()(v278);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 119)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l139;
+})();
+var l140 = {name: "PUSH-TO-LEXENV"};
+var l141 = {name: "VARIABLE"};
+var l142 = {name: "BLOCK"};
+var l143 = {name: "GOTAG"};
+(function(){
+ (l140).function = (function(v284){
+ ((v284)["fname"] = "PUSH-TO-LEXENV");
+ return v284;
+ })((function (v280,v281,v282){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v283){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v283, l141) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = v281;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v280, cdr: (function(){
+ var tmp = v281;
+ 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;
+ })()(v283, l124) !== (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 = v281;
+ 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: v280, cdr: (function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v281)}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v283, l142) !== (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;
+ })()(v281);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v280, cdr: (function(){
+ var symbol = l40;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v281)}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v283, l143) !== (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;
+ })()(v281);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v280, cdr: (function(){
+ var symbol = l42;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v281)}));
+ })();
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v282);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 120)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l140;
+})();
+var l144 = {name: "EXTEND-LEXENV"};
+(function(){
+ (l144).function = (function(v291){
+ ((v291)["fname"] = "EXTEND-LEXENV");
+ return v291;
+ })((function (v285,v286,v287){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v288){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v289,v290){
+ (function(){
+ while(v289 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v290 = (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(){
+ (function(){
+ var symbol = l140;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v290, v288, v287);
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v289 = (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;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return v288;
+ })((function(){
+ var symbol = l67;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v285),(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 == 122)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l139;
+ 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 l144;
+})();
+var l145 = {name: "LOOKUP-IN-LEXENV"};
+(function(){
+ (l145).function = (function(v296){
+ ((v296)["fname"] = "LOOKUP-IN-LEXENV");
+ return v296;
+ })((function (v292,v293,v294){
+ 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;
+ })()(v292, (function(v295){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v295, l141) !== (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;
+ })()(v293);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v295, l124) !== (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;
+ })()(v293);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v295, l142) !== (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;
+ })()(v293);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v295, l143) !== (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;
+ })()(v293);
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v294));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 123)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l145;
+})();
+var l146 = {name: "*GLOBAL-ENVIRONMENT*"};
+(function(){
+ (((l146.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 (l146).value = (function(){
+ var symbol = l138;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()();
+ })());
+ return l146;
+})();
+var l147 = {name: "*ENVIRONMENT*"};
+(function(){
+ (((l147.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 (l147).value = (function(){
+ var symbol = l138;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()();
+ })());
+ return l147;
+})();
+var l148 = {name: "CLEAR-UNDECLARED-GLOBAL-BINDINGS"};
+(function(){
+ (l148).function = (function(v298){
+ ((v298)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
+ return v298;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l147).value = (function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v297){
+ 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 = l136;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v297);
+
+ }), (function(){
+ var symbol = l147;
+ 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;
+ }
+ })();
+
+ }));
+ return l148;
+})();
+var l149 = {name: "*VARIABLE-COUNTER*"};
+(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 = 0;
+ })());
+ return l149;
+})();
+var l150 = {name: "GVARNAME"};
+(function(){
+ (l150).function = (function(v300){
+ ((v300)["fname"] = "GVARNAME");
+ return v300;
+ })((function (v299){
+ 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 = l99;
+ 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;
+ })()((l149).value = (function(){
+ var x = (function(){
+ var symbol = l149;
+ 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 == 125)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l150;
+})();
+var l151 = {name: "TRANSLATE-VARIABLE"};
+(function(){
+ (l151).function = (function(v302){
+ ((v302)["fname"] = "TRANSLATE-VARIABLE");
+ return v302;
+ })((function (v301){
+ 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 = l135;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l145;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301, (function(){
+ var symbol = l147;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l141));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 126)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l151;
+})();
+var l152 = {name: "EXTEND-LOCAL-ENV"};
+var l153 = {name: "LEXICAL-VARIABLE"};
+(function(){
+ (l152).function = (function(v308){
+ ((v308)["fname"] = "EXTEND-LOCAL-ENV");
+ return v308;
+ })((function (v303){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v304){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v305,v306){
+ (function(){
+ while(v305 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v306 = (function(){
+ var tmp = v305;
+ 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(v307){
+ return (function(){
+ var symbol = l140;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v307, v304, l141);
+ })((function(){
+ var symbol = l132;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v306, l153, (function(){
+ var symbol = l150;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v306), (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;
+ })();
+ })();
+ v305 = (function(){
+ var tmp = v305;
+ 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 v304;
+ })(v303,(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 == 128)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l139;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l147;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 127)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l152;
+})();
+var l154 = {name: "*TOPLEVEL-COMPILATIONS*"};
+(function(){
+ (((l154.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 (l154).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l154;
+})();
+var l155 = {name: "TOPLEVEL-COMPILATION"};
+(function(){
+ (l155).function = (function(v310){
+ ((v310)["fname"] = "TOPLEVEL-COMPILATION");
+ 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 (l154).value = ({car: v309, cdr: (function(){
+ var symbol = l154;
+ 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 l155;
+})();
+var l156 = {name: "NULL-OR-EMPTY-P"};
+(function(){
+ (l156).function = (function(v312){
+ ((v312)["fname"] = "NULL-OR-EMPTY-P");
+ return v312;
+ })((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(){
+ 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;
+ })()(v311));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 130)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l156;
+})();
+var l157 = {name: "GET-TOPLEVEL-COMPILATIONS"};
+(function(){
+ (l157).function = (function(v313){
+ ((v313)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
+ return v313;
+ })((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 = l156;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l154;
+ 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: "%COMPILE-DEFMACRO"};
+var l159 = {name: "MACRO"};
+(function(){
+ (l158).function = (function(v316){
+ ((v316)["fname"] = "%COMPILE-DEFMACRO");
+ return v316;
+ })((function (v314,v315){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l155;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l106;
+ 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;
+ })()(l126), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v314))));
+ return (function(){
+ var symbol = l140;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l132;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v314, l159, v315, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l147;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l124);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 132)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l158;
+})();
+var l160 = {name: "*COMPILATIONS*"};
+(function(){
+ (((l160.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 (l160).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l160;
+})();
+var l161 = {name: "LS-COMPILE-BLOCK"};
+(function(){
+ (l161).function = (function(v319){
+ ((v319)["fname"] = "LS-COMPILE-BLOCK");
+ return v319;
+ })((function (v317,v318){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v318=(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 (v318 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l161;
+ 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;
+ })()(v317)), "return ", (function(){
+ var symbol = l106;
+ 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;
+ })()(v317);
+ 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 = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l156;
+ 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 = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v317)), (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(";", (function(){
+ var symbol = l98;
+ 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 l161;
+})();
+var l162 = {name: "DEFINE-COMPILATION"};
+l162;
+var l163 = {name: "IF"};
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l163, (function (v320,v321,v322){
+ 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 = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", (function(){
+ var symbol = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v320), " !== ", (function(){
+ var symbol = l106;
+ 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 = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v321), " : ", (function(){
+ var symbol = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v322), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 134)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l164 = {name: "*LAMBDA-LIST-KEYWORDS*"};
+var l165 = {name: "&OPTIONAL"};
+var l166 = {name: "&REST"};
+var l167 = {car: l165, cdr: {car: l166, cdr: l2}};
+(function(){
+ (((l164.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 (l164).value = l167;
+ })());
+ return l164;
+})();
+var l168 = {name: "LIST-UNTIL-KEYWORD"};
+(function(){
+ (l168).function = (function(v325){
+ ((v325)["fname"] = "LIST-UNTIL-KEYWORD");
+ return v325;
+ })((function (v323){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(v324){
+ return (v324 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v324 : (function(){
+ var symbol = l84;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v323;
+ 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 = l164;
+ 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;
+ })()(v323)) !== (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 = v323;
+ 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 = l168;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v323;
+ 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 == 135)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l168;
+})();
+var l169 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
+(function(){
+ (l169).function = (function(v327){
+ ((v327)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
+ return v327;
+ })((function (v326){
+ 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 = l168;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v326);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 136)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l169;
+})();
+var l170 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
+(function(){
+ (l170).function = (function(v329){
+ ((v329)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
+ return v329;
+ })((function (v328){
+ 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 = l168;
+ 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;
+ })()(l165, v328);
+ 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-OPTIONAL-ARGUMENTS"};
+(function(){
+ (l171).function = (function(v331){
+ ((v331)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
+ return v331;
+ })((function (v330){
+ 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 = l170;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v330));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 138)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l171;
+})();
+var l172 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
+(function(){
+ (l172).function = (function(v334){
+ ((v334)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
+ return v334;
+ })((function (v332){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v333){
+ ((function(){
+ var tmp = v333;
+ 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 = v333;
+ 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 = l168;
+ 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;
+ })()(l166, v332);
+ 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"};
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l173, (function (v336){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v335= (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--)
+ v335 = {car: arguments[i], cdr:
+ v335};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v337,v338,v339){
+ return (function(v340,v341,v342){
+ try {
+ var tmp;
+ tmp = l147.value;
+ l147.value = v342;
+ v342 = tmp;
+ return (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(function (", (function(){
+ var symbol = l101;
+ 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 = l151;
+ 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;
+ })()(v337, v338)), ","), "){", (function(){
+ var symbol = l98;
+ 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;
+ })()((v337 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l99;
+ 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;
+ })()(v340), ") throw 'too few arguments';", (function(){
+ var symbol = l98;
+ 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;
+ })()(v339) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l99;
+ 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 = v340;
+ var y = v341;
+ 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 = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v338 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("switch(arguments.length){", (function(){
+ var symbol = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(v343,v344,v345){
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v345;
+ var y = v341;
+ 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(v346){
+ v344 = ({car: (function(){
+ var symbol = l99;
+ 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 = v345;
+ var y = v340;
+ 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 = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l151;
+ 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.car;
+ })()), "=", (function(){
+ var symbol = l106;
+ 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;
+ })()(v346)), ";", (function(){
+ var symbol = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v344});
+ return v345 = (function(){
+ var x = v345;
+ 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;
+ })()(v345, v343));
+ }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 == 141)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ v344 = ({car: (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("default: break;", (function(){
+ var symbol = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), cdr: v344});
+ return (function(){
+ var symbol = l101;
+ 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;
+ })()(v344));
+ })();
+ })((function(){
+ var symbol = l170;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v336),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(),0), "}", (function(){
+ var symbol = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), (v339 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(v347){
+ return (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", v347, "= ", (function(){
+ var symbol = l106;
+ 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 = l98;
+ 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 = v340;
+ var y = v341;
+ 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 = l98;
+ 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;
+ })()(v347, " = ", "{car: arguments[i], cdr: "), v347, "};", (function(){
+ var symbol = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })((function(){
+ var symbol = l151;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v339)) : ""), (function(){
+ var symbol = l161;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v335, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), (function(){
+ var symbol = l98;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "})");
+ }
+ finally {
+ l147.value = v342;
+ }
+ })((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v337),(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v338),(function(){
+ var symbol = l152;
+ 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;
+ })()(v339), v337, v338)));
+ })((function(){
+ var symbol = l169;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v336),(function(){
+ var symbol = l171;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v336),(function(){
+ var symbol = l172;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v336));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 140)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l174 = {name: "SETQ"};
+var l175 = {name: "SET"};
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l174, (function (v348,v349){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v350){
+ return ((((function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v350) === l153)?(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 = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l135;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v350), " = ", (function(){
+ var symbol = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v349)) : (function(){
+ var symbol = l106;
+ 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;
+ })()(l175), (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;
+ })()(l126), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v348))), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v349))));
+ })((function(){
+ var symbol = l145;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v348, (function(){
+ var symbol = l147;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l141));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 142)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l176 = {name: "JS-VREF"};
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l176, (function (v351){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v351;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 143)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l177 = {name: "JS-VSET"};
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l177, (function (v352,v353){
+ 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 = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v352, " = ", (function(){
+ var symbol = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v353), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 144)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+(function(){
+ (l109).function = (function(v360){
+ ((v360)["fname"] = "ESCAPE-STRING");
+ return v360;
+ })((function (v354){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v355,v356,v357){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v356;
+ var y = v357;
+ 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){
+ ((function(v359){
+ return (v359 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v359 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v358, 92));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v358, 34)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v355 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v355, "\\");
+ })() : (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;
+ })()(v358, 10) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ v355 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v355, "\\");
+ return v358 = 110;
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return v355 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v355, (function(){
+ var x = v358;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ })((function(){
+ var string = v354;
+ var index = v356;
+ 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);
+ })());
+ v356 = (function(){
+ var x = v356;
+ 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 == 146)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v355;
+ })("",0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v354));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 145)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l109;
+})();
+var l178 = {name: "*LITERAL-SYMBOLS*"};
+(function(){
+ (((l178.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 (l178).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l178;
+})();
+var l179 = {name: "*LITERAL-COUNTER*"};
+(function(){
+ (((l179.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 (l179).value = 0;
+ })());
+ return l179;
+})();
+var l180 = {name: "GENLIT"};
+(function(){
+ (l180).function = (function(v361){
+ ((v361)["fname"] = "GENLIT");
+ return v361;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l99;
+ 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;
+ })()((l179).value = (function(){
+ var x = (function(){
+ var symbol = l179;
+ 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 == 147)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l180;
+})();
+var l181 = {name: "LITERAL"};
+(function(){
+ (l181).function = (function(v369){
+ ((v369)["fname"] = "LITERAL");
+ return v369;
+ })((function (v362,v363){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v363=(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;
+ })()(v362) !== (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;
+ })()(v362);
+ })() : (((typeof(v362) == "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 = l99;
+ 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;
+ })()(v362), "\"");
+ })() : (((function(){
+ var tmp = v362;
+ 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(v364){
+ return (v364 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v364 : (function(v365,v366){
+ (l178).value = ({car: ({car: v362, cdr: v365}), cdr: (function(){
+ var symbol = l178;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ (function(){
+ var symbol = l155;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", v365, " = ", v366));
+ return v365;
+ })((function(){
+ var symbol = l180;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(),(function(){
+ var symbol = l106;
+ 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;
+ })()((v362).name)))));
+ })((function(){
+ var tmp = (function(){
+ var symbol = l93;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v362, (function(){
+ var symbol = l178;
+ 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 = v362;
+ 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(v367){
+ return (v363 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v367 : (function(v368){
+ (function(){
+ var symbol = l155;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("var ", v368, " = ", v367));
+ return v368;
+ })((function(){
+ var symbol = l180;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()()));
+ })((function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("{car: ", (function(){
+ var symbol = l181;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v362;
+ 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 = l181;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v362;
+ 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 == 148)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l181;
+})();
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l126, (function (v370){
+ 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 = l181;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v370);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 149)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+})), cdr: (function(){
+ var symbol = l160;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()});
+var l182 = {name: "%WHILE"};
+(l160).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l182, (function (v372){
+ if (arguments.length < 1) throw 'too few arguments';
+ var v371= (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--)
+ v371 = {car: arguments[i], cdr:
+ v371};