+ var symbol = l68;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v96));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 44)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l69;
+})();
+var l70 = {name: "CONCAT-TWO"};
+(function(){
+ (l70).function = (function(v100){
+ ((v100)["fname"] = "CONCAT-TWO");
+ return v100;
+ })((function (v98,v99){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var string1 = v98;
+ var string2 = v99;
+ if (typeof string1 != 'string')
+ throw 'The value ' + string1 + ' is not a type string.';
+ if (typeof string2 != 'string')
+ throw 'The value ' + string2 + ' is not a type string.';
+ return string1.concat(string2);
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 45)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l70;
+})();
+var l71 = {name: "MAPCAR"};
+(function(){
+ (l71).function = (function(v103){
+ ((v103)["fname"] = "MAPCAR");
+ return v103;
+ })((function (v101,v102){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v102) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? l2 : ({car: (v101)((function(){
+ var tmp = v102;
+ 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 = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v101, (function(){
+ var tmp = v102;
+ 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 == 46)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l71;
+})();
+var l72 = {name: "IDENTITY"};
+(function(){
+ (l72).function = (function(v105){
+ ((v105)["fname"] = "IDENTITY");
+ return v105;
+ })((function (v104){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v104;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 47)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l72;
+})();
+var l73 = {name: "COPY-LIST"};
+(function(){
+ (l73).function = (function(v107){
+ ((v107)["fname"] = "COPY-LIST");
+ return v107;
+ })((function (v106){
+ 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 = l72;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v106);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 48)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l73;
+})();
+var l74 = {name: "CODE-CHAR"};
+(function(){
+ (l74).function = (function(v109){
+ ((v109)["fname"] = "CODE-CHAR");
+ return v109;
+ })((function (v108){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v108;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 49)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l74;
+})();
+var l75 = {name: "CHAR-CODE"};
+(function(){
+ (l75).function = (function(v111){
+ ((v111)["fname"] = "CHAR-CODE");
+ return v111;
+ })((function (v110){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return v110;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 50)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l75;
+})();
+var l76 = {name: "CHAR="};
+(function(){
+ (l76).function = (function(v114){
+ ((v114)["fname"] = "CHAR=");
+ return v114;
+ })((function (v112,v113){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var x = v112;
+ var y = v113;
+ 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;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 51)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l76;
+})();
+var l77 = {name: "INTEGERP"};
+(function(){
+ (l77).function = (function(v116){
+ ((v116)["fname"] = "INTEGERP");
+ return v116;
+ })((function (v115){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof (v115) == "number")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? ((function(){
+ var x = (function(){
+ var x = v115;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return Math.floor(x);
+ })();
+ var y = v115;
+ 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;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 52)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l77;
+})();
+var l78 = {name: "PLUSP"};
+(function(){
+ (l78).function = (function(v118){
+ ((v118)["fname"] = "PLUSP");
+ return v118;
+ })((function (v117){
+ 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 = 0;
+ var y = v117;
+ 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;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 53)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l78;
+})();
+var l79 = {name: "MINUSP"};
+(function(){
+ (l79).function = (function(v120){
+ ((v120)["fname"] = "MINUSP");
+ return v120;
+ })((function (v119){
+ 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 = v119;
+ var y = 0;
+ 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;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 54)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l79;
+})();
+(function(){
+ (l62).function = (function(v123){
+ ((v123)["fname"] = "LISTP");
+ return v123;
+ })((function (v121){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v122){
+ return (v122 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v122 : (function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v121));
+ })(((function(){
+ var tmp = v121;
+ 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;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 55)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l62;
+})();
+var l80 = {name: "NTHCDR"};
+(function(){
+ (l80).function = (function(v126){
+ ((v126)["fname"] = "NTHCDR");
+ return v126;
+ })((function (v124,v125){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var symbol = l78;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v124) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v125 : (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;
+ })()){
+ v124 = (function(){
+ var symbol = l27;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v124);
+ v125 = (function(){
+ var tmp = v125;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 57)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v125;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 56)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l80;
+})();
+var l81 = {name: "NTH"};
+(function(){
+ (l81).function = (function(v129){
+ ((v129)["fname"] = "NTH");
+ return v129;
+ })((function (v127,v128){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var tmp = (function(){
+ var symbol = l80;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v127, v128);
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 58)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l81;
+})();
+var l82 = {name: "LAST"};
+(function(){
+ (l82).function = (function(v131){
+ ((v131)["fname"] = "LAST");
+ return v131;
+ })((function (v130){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var tmp = (function(){
+ var tmp = v130;
+ 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 (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;
+ })()){
+ v130 = (function(){
+ var tmp = v130;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 60)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v130;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 59)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l82;
+})();
+var l83 = {name: "BUTLAST"};
+(function(){
+ (l83).function = (function(v133){
+ ((v133)["fname"] = "BUTLAST");
+ return v133;
+ })((function (v132){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var tmp = (function(){
+ var tmp = v132;
+ 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 (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;
+ })() ? ({car: (function(){
+ var tmp = v132;
+ 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 = l83;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v132;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })())}) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 61)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l83;
+})();
+var l84 = {name: "MEMBER"};
+(function(){
+ (l84).function = (function(v136){
+ ((v136)["fname"] = "MEMBER");
+ return v136;
+ })((function (v134,v135){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(v135 !== (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;
+ })()(v134, (function(){
+ var tmp = v135;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 63, value: v135, message: 'Return from unknown block NIL.'})
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ v135 = (function(){
+ var tmp = v135;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 63)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 62)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l84;
+})();
+var l85 = {name: "REMOVE"};
+(function(){
+ (l85).function = (function(v139){
+ ((v139)["fname"] = "REMOVE");
+ return v139;
+ })((function (v137,v138){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v138) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (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;
+ })()(v137, (function(){
+ var tmp = v138;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l85;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v137, (function(){
+ var tmp = v138;
+ 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(){
+ return ({car: (function(){
+ var tmp = v138;
+ 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 = l85;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v137, (function(){
+ var tmp = v138;
+ 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 == 64)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l85;
+})();
+var l86 = {name: "REMOVE-IF"};
+(function(){
+ (l86).function = (function(v142){
+ ((v142)["fname"] = "REMOVE-IF");
+ return v142;
+ })((function (v140,v141){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v141) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : ((v140)((function(){
+ var tmp = v141;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v140, (function(){
+ var tmp = v141;
+ 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(){
+ return ({car: (function(){
+ var tmp = v141;
+ 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 = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v140, (function(){
+ var tmp = v141;
+ 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 == 65)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l86;
+})();
+var l87 = {name: "REMOVE-IF-NOT"};
+(function(){
+ (l87).function = (function(v145){
+ ((v145)["fname"] = "REMOVE-IF-NOT");
+ return v145;
+ })((function (v143,v144){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v144) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : ((v143)((function(){
+ var tmp = v144;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return ({car: (function(){
+ var tmp = v144;
+ 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 = l87;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v143, (function(){
+ var tmp = v144;
+ 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(){
+ return (function(){
+ var symbol = l87;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v143, (function(){
+ var tmp = v144;
+ 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 == 66)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l87;
+})();
+var l88 = {name: "DIGIT-CHAR-P"};
+(function(){
+ (l88).function = (function(v147){
+ ((v147)["fname"] = "DIGIT-CHAR-P");
+ return v147;
+ })((function (v146){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((((function(){
+ var x = 48;
+ var y = v146;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<=y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? ((function(){
+ var x = v146;
+ var y = 57;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<=y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var x = v146;
+ var y = 48;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x-y;
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 67)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l88;
+})();
+var l89 = {name: "SUBSEQ"};
+(function(){
+ (l89).function = (function(v151){
+ ((v151)["fname"] = "SUBSEQ");
+ return v151;
+ })((function (v148,v149,v150){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ switch(arguments.length){
+ case 2:
+ v150=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v148) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (v150 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var str = v148;
+ var a = v149;
+ var b;
+ b = v150;
+ return str.slice(a,b);
+ })() : (function(){
+ var str = v148;
+ var a = v149;
+ var b;
+ return str.slice(a,b);
+ })());
+ })() : (function(){
+ return (function(){
+ throw "Unsupported argument.";
+ })();
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 68)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l89;
+})();
+var l90 = {name: "PARSE-INTEGER"};
+(function(){
+ (l90).function = (function(v156){
+ ((v156)["fname"] = "PARSE-INTEGER");
+ return v156;
+ })((function (v152){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v153,v154,v155){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v154;
+ var y = v155;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v153 = (function(){
+ var x = (function(){
+ var x = v153;
+ var y = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x*y;
+ })();
+ var y = (function(){
+ var symbol = l88;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v152;
+ var index = v154;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ v154 = (function(){
+ var x = v154;
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 70)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v153;
+ })(0,0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v152));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 69)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l90;
+})();
+var l91 = {name: "SOME"};
+(function(){
+ (l91).function = (function(v163){
+ ((v163)["fname"] = "SOME");
+ return v163;
+ })((function (v157,v158){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v158) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v159,v160){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v159;
+ var y = v160;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((v157)((function(){
+ var string = v158;
+ var index = v159;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 71, value: (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block SOME.'})
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ v159 = (function(){
+ var x = v159;
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 72)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v158));
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v158) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v161,v162){
+ (function(){
+ while(v161 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v162 = (function(){
+ var tmp = v161;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ ((v157)(v162) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw ({type: 'block', id: 73, value: (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block NIL.'})
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v161 = (function(){
+ var tmp = v161;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(v158,(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 73)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Unknown sequence.";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 71)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l91;
+})();
+var l92 = {name: "EVERY"};
+(function(){
+ (l92).function = (function(v170){
+ ((v170)["fname"] = "EVERY");
+ return v170;
+ })((function (v164,v165){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v165) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v166,v167){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v166;
+ var y = v167;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((v164)((function(){
+ var string = v165;
+ var index = v166;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw ({type: 'block', id: 74, value: (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block EVERY.'})
+ })();
+ })());
+ v166 = (function(){
+ var x = v166;
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 75)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v165));
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v165) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v168,v169){
+ (function(){
+ while(v168 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v169 = (function(){
+ var tmp = v168;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ ((v164)(v169) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw ({type: 'block', id: 76, value: (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block NIL.'})
+ })();
+ })());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v168 = (function(){
+ var tmp = v168;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })(v165,(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 76)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Unknown sequence.";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 74)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l92;
+})();
+var l93 = {name: "ASSOC"};
+(function(){
+ (l93).function = (function(v173){
+ ((v173)["fname"] = "ASSOC");
+ return v173;
+ })((function (v171,v172){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(v172 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v171, (function(){
+ var symbol = l36;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v172)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ throw ({type: 'block', id: 78, value: (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), message: 'Return from unknown block NIL.'})
+ })() : v172 = (function(){
+ var tmp = v172;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })());
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 78)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var tmp = v172;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 77)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l93;
+})();
+var l94 = {name: "STRING="};
+(function(){
+ (l94).function = (function(v176){
+ ((v176)["fname"] = "STRING=");
+ return v176;
+ })((function (v174,v175){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((v174 == v175)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 79)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l94;
+})();
+var l95 = {name: "FDEFINITION"};
+(function(){
+ (l95).function = (function(v178){
+ ((v178)["fname"] = "FDEFINITION");
+ return v178;
+ })((function (v177){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof v177 == 'function')?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v177;
+ })() : (((function(){
+ var tmp = v177;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = v177;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })();
+ })() : (function(){
+ return (function(){
+ throw "Invalid function";
+ })();
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 80)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l95;
+})();
+var l96 = {name: "DISASSEMBLE"};
+var l97 = {name: "WRITE-LINE"};
+(function(){
+ (l96).function = (function(v180){
+ ((v180)["fname"] = "DISASSEMBLE");
+ return v180;
+ })((function (v179){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l97;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(((function(){
+ var symbol = l95;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v179)).toString());
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 81)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l96;
+})();
+var l98 = {name: "*NEWLINE*"};
+(function(){
+ (((l98.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 (l98).value = (function(){
+ var x = (function(){
+ var symbol = l74;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(10);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+ })());
+ return l98;
+})();
+var l99 = {name: "CONCAT"};
+(function(){
+ (l99).function = (function(v182){
+ ((v182)["fname"] = "CONCAT");
+ return v182;
+ })((function (){
+ var v181= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v181 = {car: arguments[i], cdr:
+ v181};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l63;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l70;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v181, "");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 82)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l99;
+})();
+var l100 = {name: "CONCATF"};
+l100;
+var l101 = {name: "JOIN"};
+(function(){
+ (l101).function = (function(v185){
+ ((v185)["fname"] = "JOIN");
+ return v185;
+ })((function (v183,v184){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v184="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v183) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return "";
+ })() : ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v183;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var tmp = v183;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })() : (function(){
+ return (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v183;
+ 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;
+ })(), v184, (function(){
+ var symbol = l101;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v183;
+ 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;
+ })(), v184));
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 83)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l101;
+})();
+var l102 = {name: "JOIN-TRAILING"};
+(function(){
+ (l102).function = (function(v188){
+ ((v188)["fname"] = "JOIN-TRAILING");
+ return v188;
+ })((function (v186,v187){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v187="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v186) !== (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 tmp = v186;
+ 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;
+ })(), v187, (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v186;
+ 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;
+ })(), v187)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 84)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l102;
+})();
+var l103 = {name: "MAPCONCAT"};
+(function(){
+ (l103).function = (function(v191){
+ ((v191)["fname"] = "MAPCONCAT");
+ return v191;
+ })((function (v189,v190){
+ 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 = 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;
+ })()(v189, v190));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 85)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l103;
+})();
+var l104 = {name: "INDENT"};
+(function(){
+ (l104).function = (function(v198){
+ ((v198)["fname"] = "INDENT");
+ return v198;
+ })((function (){
+ var v192= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v192 = {car: arguments[i], cdr:
+ v192};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v193){
+ return (function(v194,v195,v196){
+ ((function(){
+ var symbol = l78;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v193)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v194 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v194, (function(){
+ return " ";
+ })());
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v195;
+ var y = v196;
+ 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(v197){
+ return v194 = (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v194, (function(){
+ return v197;
+ })());
+ })((((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v193;
+ var index = v195;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var x = v195;
+ var y = (function(){
+ var symbol = l27;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v196);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v193;
+ var index = (function(){
+ var symbol = l26;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v195);
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10)) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })(), " ") : (function(){
+ var x = (function(){
+ var string = v193;
+ var index = v195;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })();
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })()));
+ v195 = (function(){
+ var x = v195;
+ 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 == 87)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v194;
+ })("",0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v193));
+ })((function(){
+ var symbol = l101;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v192));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 86)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l104;
+})();
+(function(){
+ (l19).function = (function(v202){
+ ((v202)["fname"] = "INTEGER-TO-STRING");
+ return v202;
+ })((function (v199){
+ 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;
+ })()(v199) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return "0";
+ })() : ((function(){
+ var symbol = l79;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199) !== (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 = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = 0;
+ var y = v199;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x-y;
+ })()));
+ })() : (function(){
+ return (function(v200){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v200 = ({car: (function(){
+ var x = v199;
+ var y = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x%y;
+ })(), cdr: v200});
+ v199 = (function(){
+ var symbol = l29;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199, 10);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 89)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (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 (v201){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var x = (function(){
+ var string = "0123456789";
+ var index = v201;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })();
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+
+ }), v200));
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 88)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l19;
+})();
+var l105 = {name: "JS!BOOL"};
+var l106 = {name: "LS-COMPILE"};
+(function(){
+ (l105).function = (function(v204){
+ ((v204)["fname"] = "JS!BOOL");
+ return v204;
+ })((function (v203){
+ 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;
+ })()("(", v203, "?", (function(){
+ var symbol = l106;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ": ", (function(){
+ var symbol = 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;
+ })()), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 90)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l105;
+})();
+var l107 = {name: "JS!SELFCALL"};
+l107;
+var l108 = {name: "PRIN1-TO-STRING"};
+var l109 = {name: "ESCAPE-STRING"};
+(function(){
+ (l108).function = (function(v208){
+ ((v208)["fname"] = "PRIN1-TO-STRING");
+ return v208;
+ })((function (v205){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var tmp = v205;
+ 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 (v205).name;
+ })() : ((function(){
+ var symbol = l77;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v205) !== (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;
+ })()(v205);
+ })() : (((typeof(v205) == "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;
+ })()(v205), "\"");
+ })() : (((typeof v205 == 'function')?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v206){
+ return (v206 !== (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 ", v206, ">") : (function(){
+ var symbol = l99;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("#<FUNCTION>"));
+ })((function(){
+ var tmp = (v205)["fname"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })());
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v205) !== (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 = l102;
+ 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 = l108;
+ 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;
+ })()(v205)), " "), (function(v207){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v207;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v207;
+ 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 = l99;
+ 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;
+ })()((function(){
+ var tmp = v207;
+ 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 = l108;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v207;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })())));
+ })((function(){
+ var symbol = l82;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v205)), ")");
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 91)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l108;
+})();
+(function(){
+ (l97).function = (function(v210){
+ ((v210)["fname"] = "WRITE-LINE");
+ return v210;
+ })((function (v209){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var x = v209;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ (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){