+ (l43).function = (function(v66){
+ ((v66)["fname"] = "FIRST");
+ return v66;
+ })((function (v65){
+ 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 = v65;
+ 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 == 29)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l43;
+})();
+var l44 = {name: "SECOND"};
+(function(){
+ (l44).function = (function(v68){
+ ((v68)["fname"] = "SECOND");
+ return v68;
+ })((function (v67){
+ 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 = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v67);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 30)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l44;
+})();
+var l45 = {name: "THIRD"};
+(function(){
+ (l45).function = (function(v70){
+ ((v70)["fname"] = "THIRD");
+ return v70;
+ })((function (v69){
+ 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 = l40;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v69);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 31)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l45;
+})();
+var l46 = {name: "FOURTH"};
+(function(){
+ (l46).function = (function(v72){
+ ((v72)["fname"] = "FOURTH");
+ return v72;
+ })((function (v71){
+ 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 = l42;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v71);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 32)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l46;
+})();
+var l47 = {name: "LIST"};
+(function(){
+ (l47).function = (function(v74){
+ ((v74)["fname"] = "LIST");
+ return v74;
+ })((function (){
+ var v73= (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--)
+ v73 = {car: arguments[i], cdr:
+ v73};
+ return (function(){
+ try {
+ return (function(){
+ return v73;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 33)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l47;
+})();
+var l48 = {name: "ATOM"};
+(function(){
+ (l48).function = (function(v76){
+ ((v76)["fname"] = "ATOM");
+ return v76;
+ })((function (v75){
+ 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 = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(((function(){
+ var tmp = v75;
+ 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 == 34)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l48;
+})();
+var l49 = {name: "INCF"};
+l49;
+var l50 = {name: "DECF"};
+l50;
+var l51 = {name: "PUSH"};
+l51;
+var l52 = {name: "DOLIST"};
+l52;
+var l53 = {name: "DOTIMES"};
+l53;
+var l54 = {name: "COND"};
+l54;
+var l55 = {name: "CASE"};
+l55;
+var l56 = {name: "ECASE"};
+l56;
+var l57 = {name: "AND"};
+l57;
+var l58 = {name: "OR"};
+l58;
+var l59 = {name: "PROG1"};
+l59;
+var l60 = {name: "PROG2"};
+l60;
+var l61 = {name: "ENSURE-LIST"};
+var l62 = {name: "LISTP"};
+(function(){
+ (l61).function = (function(v78){
+ ((v78)["fname"] = "ENSURE-LIST");
+ return v78;
+ })((function (v77){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v77) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v77 : (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v77));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 35)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l61;
+})();
+var l63 = {name: "!REDUCE"};
+(function(){
+ (l63).function = (function(v82){
+ ((v82)["fname"] = "!REDUCE");
+ return v82;
+ })((function (v79,v80,v81){
+ 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 = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v80) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v81 : (function(){
+ var symbol = l63;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v79, (function(){
+ var tmp = v80;
+ 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;
+ })(), (v79)(v81, (function(){
+ var tmp = v80;
+ 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 == 36)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l63;
+})();
+var l64 = {name: "APPEND-TWO"};
+var l65 = {name: "APPEND"};
+(function(){
+ (l64).function = (function(v85){
+ ((v85)["fname"] = "APPEND-TWO");
+ return v85;
+ })((function (v83,v84){
+ 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;
+ })()(v83) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v84 : ({car: (function(){
+ var tmp = v83;
+ 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 = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v83;
+ 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;
+ })(), v84)}));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 37)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l64;
+})();
+(function(){
+ (l65).function = (function(v87){
+ ((v87)["fname"] = "APPEND");
+ return v87;
+ })((function (){
+ var v86= (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--)
+ v86 = {car: arguments[i], cdr:
+ v86};
+ 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 = l64;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v86, l2);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 38)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l65;
+})();
+var l66 = {name: "REVAPPEND"};
+(function(){
+ (l66).function = (function(v90){
+ ((v90)["fname"] = "REVAPPEND");
+ return v90;
+ })((function (v88,v89){
+ 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(v88 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v89 = ({car: (function(){
+ var tmp = v88;
+ 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: v89});
+ v88 = (function(){
+ var tmp = v88;
+ 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 == 40)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v89;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 39)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l66;
+})();
+var l67 = {name: "REVERSE"};
+(function(){
+ (l67).function = (function(v92){
+ ((v92)["fname"] = "REVERSE");
+ return v92;
+ })((function (v91){
+ 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 = l66;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v91, l2);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 41)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l67;
+})();
+var l68 = {name: "LIST-LENGTH"};
+(function(){
+ (l68).function = (function(v95){
+ ((v95)["fname"] = "LIST-LENGTH");
+ return v95;
+ })((function (v93){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v94){
+ (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 = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v93)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v94 = (function(){
+ var x = v94;
+ 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;
+ })();
+ v93 = (function(){
+ var tmp = v93;
+ 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 == 43)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v94;
+ })(0);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 42)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l68;
+})();
+var l69 = {name: "LENGTH"};
+(function(){
+ (l69).function = (function(v97){
+ ((v97)["fname"] = "LENGTH");
+ return v97;
+ })((function (v96){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((typeof(v96) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var x = v96;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.length;
+ })() : (function(){
+ 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: "DOCUMENTATION"};
+var l99 = {name: "FUNCTION"};
+var l100 = {name: "VARIABLE"};
+(function(){
+ (l98).function = (function(v185){
+ ((v185)["fname"] = "DOCUMENTATION");
+ return v185;
+ })((function(){
+ var func = (function (v181,v182){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v183){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v183, l99) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v184){
+ return (function(){
+ var tmp = (v184)["docstring"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })();
+ })((function(){
+ var symbol = l95;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v181));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v183, l100) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (((function(){
+ var tmp = v181;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw "Wrong argument type! it should be a symbol";
+ })();
+ })());
+ return (function(){
+ var tmp = (v181)["vardoc"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })();
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()));
+ })(v182);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 82)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ });
+ func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
+ return func;
+ })());
+ return l98;
+})();
+var l101 = {name: "*NEWLINE*"};
+(function(){
+ (((l101.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l101).value = (function(){
+ var x = (function(){
+ var symbol = l74;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(10);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+ })());
+ return l101;
+})();
+var l102 = {name: "CONCAT"};
+(function(){
+ (l102).function = (function(v187){
+ ((v187)["fname"] = "CONCAT");
+ return v187;
+ })((function (){
+ var v186= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v186 = {car: arguments[i], cdr:
+ v186};
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l63;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l70;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v186, "");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 83)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l102;
+})();
+var l103 = {name: "CONCATF"};
+l103;
+var l104 = {name: "JOIN"};
+(function(){
+ (l104).function = (function(v190){
+ ((v190)["fname"] = "JOIN");
+ return v190;
+ })((function (v188,v189){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v189="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v188) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return "";
+ })() : ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ })() : (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), v189, (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v188;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), v189));
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 84)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l104;
+})();
+var l105 = {name: "JOIN-TRAILING"};
+(function(){
+ (l105).function = (function(v193){
+ ((v193)["fname"] = "JOIN-TRAILING");
+ return v193;
+ })((function (v191,v192){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v192="";
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v191) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? "" : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v191;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })(), v192, (function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v191;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })(), v192)));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 85)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l105;
+})();
+var l106 = {name: "MAPCONCAT"};
+(function(){
+ (l106).function = (function(v196){
+ ((v196)["fname"] = "MAPCONCAT");
+ return v196;
+ })((function (v194,v195){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v194, v195));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 86)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l106;
+})();
+var l107 = {name: "INDENT"};
+(function(){
+ (l107).function = (function(v203){
+ ((v203)["fname"] = "INDENT");
+ return v203;
+ })((function (){
+ var v197= (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ for (var i = arguments.length-1; i>=0; i--)
+ v197 = {car: arguments[i], cdr:
+ v197};
+ return (function(){
+ try {
+ return (function(){
+ return (function(v198){
+ return (function(v199,v200,v201){
+ ((function(){
+ var symbol = l78;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v198)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v199 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199, (function(){
+ return " ";
+ })());
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while(((function(){
+ var x = v200;
+ var y = v201;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(v202){
+ return v199 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v199, (function(){
+ return v202;
+ })());
+ })((((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v198;
+ var index = v200;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (((function(){
+ var x = v200;
+ var y = (function(){
+ var symbol = l27;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v201);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v198;
+ var index = (function(){
+ var symbol = l26;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v200);
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })(), 10)) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })(), " ") : (function(){
+ var x = (function(){
+ var string = v198;
+ var index = v200;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })();
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })()));
+ v200 = (function(){
+ var x = v200;
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 88)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v199;
+ })("",0,(function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v198));
+ })((function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v197));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 87)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l107;
+})();
+(function(){
+ (l19).function = (function(v207){
+ ((v207)["fname"] = "INTEGER-TO-STRING");
+ return v207;
+ })((function (v204){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ((function(){
+ var symbol = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return "0";
+ })() : ((function(){
+ var symbol = l79;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("-", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = 0;
+ var y = v204;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x-y;
+ })()));
+ })() : (function(){
+ return (function(v205){
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v205 = ({car: (function(){
+ var x = v204;
+ var y = 10;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x%y;
+ })(), cdr: v205});
+ v204 = (function(){
+ var symbol = l29;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v204, 10);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 90)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return (function(){
+ var symbol = l104;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v206){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var x = (function(){
+ var string = "0123456789";
+ var index = v206;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })();
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })();
+
+ }), v205));
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 89)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l19;
+})();
+var l108 = {name: "JS!BOOL"};
+var l109 = {name: "LS-COMPILE"};
+(function(){
+ (l108).function = (function(v209){
+ ((v209)["fname"] = "JS!BOOL");
+ return v209;
+ })((function (v208){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", v208, "?", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ": ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), ")");
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 91)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l108;
+})();
+var l110 = {name: "JS!SELFCALL"};
+l110;
+var l111 = {name: "PRIN1-TO-STRING"};
+var l112 = {name: "ESCAPE-STRING"};
+(function(){
+ (l111).function = (function(v213){
+ ((v213)["fname"] = "PRIN1-TO-STRING");
+ return v213;
+ })((function (v210){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var tmp = v210;
+ return (typeof tmp == 'object' && 'name' in tmp);
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (v210).name;
+ })() : ((function(){
+ var symbol = l77;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210);
+ })() : (((typeof(v210) == "string")?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("\"", (function(){
+ var symbol = l112;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210), "\"");
+ })() : (((typeof v210 == 'function')?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v211){
+ return (v211 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("#<FUNCTION ", v211, ">") : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("#<FUNCTION>"));
+ })((function(){
+ var tmp = (v210)["fname"];
+ return tmp == undefined? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp ;
+ })());
+ })() : ((function(){
+ var symbol = l62;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("(", (function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l83;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210)), " "), (function(v212){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()) : (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()), " . ", (function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v212;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })())));
+ })((function(){
+ var symbol = l82;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v210)), ")");
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())))));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 92)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l111;
+})();
+(function(){
+ (l97).function = (function(v215){
+ ((v215)["fname"] = "WRITE-LINE");
+ return v215;
+ })((function (v214){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var x = v214;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ (function(){
+ var x = (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ return v214;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 93)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l97;
+})();
+var l113 = {name: "WARN"};
+(function(){
+ (l113).function = (function(v217){
+ ((v217)["fname"] = "WARN");
+ return v217;
+ })((function (v216){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var x = "WARNING: ";
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return lisp.write(x);
+ })();
+ return (function(){
+ var symbol = l97;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v216);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 94)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l113;
+})();
+var l114 = {name: "PRINT"};
+(function(){
+ (l114).function = (function(v219){
+ ((v219)["fname"] = "PRINT");
+ return v219;
+ })((function (v218){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l97;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l111;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v218));
+ return v218;
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 95)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l114;
+})();
+var l115 = {name: "MAKE-STRING-STREAM"};
+(function(){
+ (l115).function = (function(v221){
+ ((v221)["fname"] = "MAKE-STRING-STREAM");
+ return v221;
+ })((function (v220){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return ({car: v220, cdr: 0});
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 96)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l115;
+})();
+var l116 = {name: "%PEEK-CHAR"};
+(function(){
+ (l116).function = (function(v223){
+ ((v223)["fname"] = "%PEEK-CHAR");
+ return v223;
+ })((function (v222){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var x = (function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ var y = (function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })());
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var string = (function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v222;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 97)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l116;
+})();
+var l117 = {name: "%READ-CHAR"};
+(function(){
+ (l117).function = (function(v226){
+ ((v226)["fname"] = "%READ-CHAR");
+ return v226;
+ })((function (v224){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (((function(){
+ var x = (function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ var y = (function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })());
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x<y;
+ })()?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(v225){
+ (function(){
+ var x = v224;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.cdr = (function(){
+ var symbol = l26;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })()));
+ })();
+ return v225;
+ })((function(){
+ var string = (function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ var index = (function(){
+ var tmp = v224;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })()) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 98)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l117;
+})();
+var l118 = {name: "WHITESPACEP"};
+(function(){
+ (l118).function = (function(v230){
+ ((v230)["fname"] = "WHITESPACEP");
+ return v230;
+ })((function (v227){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v228){
+ return (v228 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v228 : (function(v229){
+ return (v229 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v229 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227, 9));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227, 10)));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v227, 32));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 99)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l118;
+})();
+var l119 = {name: "SKIP-WHITESPACES"};
+(function(){
+ (l119).function = (function(v233){
+ ((v233)["fname"] = "SKIP-WHITESPACES");
+ return v233;
+ })((function (v231){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v232){
+ v232 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v231);
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v232 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v232) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v231);
+ v232 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v231);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 101)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 100)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l119;
+})();
+var l120 = {name: "TERMINALP"};
+(function(){
+ (l120).function = (function(v238){
+ ((v238)["fname"] = "TERMINALP");
+ return v238;
+ })((function (v234){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v235){
+ return (v235 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v235 : (function(v236){
+ return (v236 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v236 : (function(v237){
+ return (v237 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? v237 : (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(40, v234));
+ })((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(41, v234)));
+ })((function(){
+ var symbol = l118;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234)));
+ })((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v234));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 102)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l120;
+})();
+var l121 = {name: "READ-UNTIL"};
+(function(){
+ (l121).function = (function(v243){
+ ((v243)["fname"] = "READ-UNTIL");
+ return v243;
+ })((function (v239,v240){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v241,v242){
+ v242 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v242 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((v240)(v242)) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v241 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v241, (function(){
+ var x = v242;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ v242 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v239);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 104)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v241;
+ })("",(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 103)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l121;
+})();
+var l122 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
+(function(){
+ (l122).function = (function(v247){
+ ((v247)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
+ return v247;
+ })((function (v244){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v245){
+ (function(){
+ var symbol = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ v245 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((v245 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v245, 59) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244, (function (v246){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v246, 10);
+
+ }));
+ (function(){
+ var symbol = l119;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ v245 = (function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v244);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 106)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 105)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l122;
+})();
+var l123 = {name: "%READ-LIST"};
+var l124 = {name: "LS-READ"};
+(function(){
+ (l123).function = (function(v251){
+ ((v251)["fname"] = "%READ-LIST");
+ return v251;
+ })((function (v248){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ return (function(v249){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v249) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw "Unspected EOF";
+ })();
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v249, 41) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v249, 46) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ return (function(v250){
+ (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248);
+ ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248), 41) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (function(){
+ throw "')' was expected.";
+ })();
+ })());
+ return v250;
+ })((function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248));
+ })() : (function(){
+ return ({car: (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248), cdr: (function(){
+ var symbol = l123;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248)});
+ })())));
+ })((function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v248));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 107)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l123;
+})();
+var l125 = {name: "READ-STRING"};
+(function(){
+ (l125).function = (function(v255){
+ ((v255)["fname"] = "READ-STRING");
+ return v255;
+ })((function (v252){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v253,v254){
+ v254 = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252);
+ (function(){
+ try {
+ return (function(){
+ return (function(){
+ while((function(){
+ var symbol = l31;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254, 34)) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ throw "Unexpected EOF";
+ })();
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v254, 92) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return v254 = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252);
+ })() : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ v253 = (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v253, (function(){
+ var x = v254;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })());
+ v254 = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v252);
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 109)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ return v253;
+ })("",(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 108)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l125;
+})();
+var l126 = {name: "READ-SHARP"};
+(function(){
+ (l126).function = (function(v260){
+ ((v260)["fname"] = "READ-SHARP");
+ return v260;
+ })((function (v256){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(v257){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 39) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l99, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 92) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v258){
+ return ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v258, "space") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(32);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v258, "tab") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(9);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v258, "newline") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(10);
+ })() : (function(){
+ return (function(){
+ var symbol = l75;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var string = v258;
+ var index = 0;
+ if (typeof string != 'string')
+ throw 'The value ' + string + ' is not a type string.';
+ if (typeof index != 'number')
+ throw 'The value ' + index + ' is not a type number.';
+ return string.charCodeAt(index);
+ })());
+ })())));
+ })((function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ return String.fromCharCode(x);
+ })(), (function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256, (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })())));
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v257, 43) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(v259){
+ return ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v259, "common-lisp") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ return (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : ((function(){
+ var symbol = l94;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v259, "ecmalisp") !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256);
+ })() : (function(){
+ return (function(){
+ throw "Unknown reader form.";
+ })();
+ })()));
+ })((function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256, (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })())));
+ })((function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v256));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 110)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l126;
+})();
+var l127 = {name: "*EOF*"};
+(function(){
+ (((l127.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l127).value = (function(){
+ var name = "EOF";
+ if (typeof name != 'string')
+ throw 'The value ' + name + ' is not a type string.';
+ return ({name: name});
+ })();
+ })());
+ return l127;
+})();
+var l128 = {name: "QUOTE"};
+var l129 = {name: "BACKQUOTE"};
+var l130 = {name: "UNQUOTE-SPLICING"};
+var l131 = {name: "UNQUOTE"};
+(function(){
+ (l124).function = (function(v264){
+ ((v264)["fname"] = "LS-READ");
+ return v264;
+ })((function (v261){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l122;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(v262){
+ return ((function(){
+ var symbol = l11;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l127;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 40) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l123;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 39) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 96) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l129, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 34) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l125;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 44) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261), 64) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ (function(){
+ var symbol = l117;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l130, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })() : (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l131, (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261)));
+ })() : ((function(){
+ var symbol = l76;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v262, 35) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l126;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261);
+ })() : (function(){
+ return (function(v263){
+ return ((function(){
+ var symbol = l92;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l88;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v263) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l90;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v263) : (function(){
+ var symbol = l15;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var x = v263;
+ if (typeof x != 'string')
+ throw 'The value ' + x + ' is not a type string.';
+ return x.toUpperCase();
+ })()));
+ })((function(){
+ var symbol = l121;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261, (function(){
+ var symbol = l120;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()));
+ })())))))));
+ })((function(){
+ var symbol = l116;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v261));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 111)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l124;
+})();
+var l132 = {name: "LS-READ-FROM-STRING"};
+(function(){
+ (l132).function = (function(v266){
+ ((v266)["fname"] = "LS-READ-FROM-STRING");
+ return v266;
+ })((function (v265){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l124;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l115;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v265));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 112)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l132;
+})();
+var l133 = {name: "*COMPILATION-UNIT-CHECKS*"};
+(function(){
+ (((l133.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l133).value = l2;
+ })());
+ return l133;
+})();
+var l134 = {name: "MAKE-BINDING"};
+(function(){
+ (l134).function = (function(v271){
+ ((v271)["fname"] = "MAKE-BINDING");
+ return v271;
+ })((function (v267,v268,v269,v270){
+ if (arguments.length < 4) throw 'too few arguments';
+ if (arguments.length > 4) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v267, v268, v269, v270);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 113)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l134;
+})();
+var l135 = {name: "BINDING-NAME"};
+(function(){
+ (l135).function = (function(v273){
+ ((v273)["fname"] = "BINDING-NAME");
+ return v273;
+ })((function (v272){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v272);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 114)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l135;
+})();
+var l136 = {name: "BINDING-TYPE"};
+(function(){
+ (l136).function = (function(v275){
+ ((v275)["fname"] = "BINDING-TYPE");
+ return v275;
+ })((function (v274){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v274);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 115)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l136;
+})();
+var l137 = {name: "BINDING-VALUE"};
+(function(){
+ (l137).function = (function(v277){
+ ((v277)["fname"] = "BINDING-VALUE");
+ return v277;
+ })((function (v276){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l45;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v276);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 116)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l137;
+})();
+var l138 = {name: "SET-BINDING-VALUE"};
+(function(){
+ (l138).function = (function(v280){
+ ((v280)["fname"] = "SET-BINDING-VALUE");
+ return v280;
+ })((function (v278,v279){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var x = (function(){
+ var tmp = (function(){
+ var tmp = v278;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = v279);
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 117)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l138;
+})();
+var l139 = {name: "BINDING-DECLARED"};
+(function(){
+ (l139).function = (function(v282){
+ ((v282)["fname"] = "BINDING-DECLARED");
+ return v282;
+ })((function (v281){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (v281 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l46;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v281) : (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 118)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l139;
+})();
+var l140 = {name: "MARK-BINDING-AS-DECLARED"};
+(function(){
+ (l140).function = (function(v284){
+ ((v284)["fname"] = "MARK-BINDING-AS-DECLARED");
+ return v284;
+ })((function (v283){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var x = (function(){
+ var symbol = l41;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v283);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 119)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l140;
+})();
+var l141 = {name: "MAKE-LEXENV"};
+(function(){
+ (l141).function = (function(v285){
+ ((v285)["fname"] = "MAKE-LEXENV");
+ return v285;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 120)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l141;
+})();
+var l142 = {name: "COPY-LEXENV"};
+(function(){
+ (l142).function = (function(v287){
+ ((v287)["fname"] = "COPY-LEXENV");
+ return v287;
+ })((function (v286){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l73;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v286);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 121)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l142;
+})();
+var l143 = {name: "PUSH-TO-LEXENV"};
+var l144 = {name: "BLOCK"};
+var l145 = {name: "GOTAG"};
+(function(){
+ (l143).function = (function(v292){
+ ((v292)["fname"] = "PUSH-TO-LEXENV");
+ return v292;
+ })((function (v288,v289,v290){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v291){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l100) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = v289;
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var tmp = v289;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l99) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = (function(){
+ var tmp = v289;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var symbol = l37;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289)}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l144) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = (function(){
+ var symbol = l39;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var symbol = l40;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289)}));
+ })();
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v291, l145) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var x = (function(){
+ var symbol = l41;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289);
+ if (typeof x != 'object')
+ throw 'The value ' + x + ' is not a type object.';
+ return (x.car = ({car: v288, cdr: (function(){
+ var symbol = l42;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v289)}));
+ })();
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v290);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 122)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l143;
+})();
+var l146 = {name: "EXTEND-LEXENV"};
+(function(){
+ (l146).function = (function(v299){
+ ((v299)["fname"] = "EXTEND-LEXENV");
+ return v299;
+ })((function (v293,v294,v295){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v296){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v297,v298){
+ (function(){
+ while(v297 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v298 = (function(){
+ var tmp = v297;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ (function(){
+ var symbol = l143;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v298, v296, v295);
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v297 = (function(){
+ var tmp = v297;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return v296;
+ })((function(){
+ var symbol = l67;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v293),(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 124)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l142;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v294));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 123)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l146;
+})();
+var l147 = {name: "LOOKUP-IN-LEXENV"};
+(function(){
+ (l147).function = (function(v304){
+ ((v304)["fname"] = "LOOKUP-IN-LEXENV");
+ return v304;
+ })((function (v300,v301,v302){
+ if (arguments.length < 3) throw 'too few arguments';
+ if (arguments.length > 3) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l93;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v300, (function(v303){
+ return ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l100) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l43;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l99) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l44;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l144) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l45;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : ((function(){
+ var symbol = l30;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v303, l145) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ return (function(){
+ var symbol = l46;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v301);
+ })() : (function(){
+ return (function(){
+ throw "ECASE expression failed.";
+ })();
+ })()))));
+ })(v302));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 125)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l147;
+})();
+var l148 = {name: "*GLOBAL-ENVIRONMENT*"};
+(function(){
+ (((l148.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l148).value = (function(){
+ var symbol = l141;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()();
+ })());
+ return l148;
+})();
+var l149 = {name: "*ENVIRONMENT*"};
+(function(){
+ (((l149.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l149).value = (function(){
+ var symbol = l141;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()();
+ })());
+ return l149;
+})();
+var l150 = {name: "CLEAR-UNDECLARED-GLOBAL-BINDINGS"};
+(function(){
+ (l150).function = (function(v306){
+ ((v306)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
+ return v306;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l149).value = (function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function (v305){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ var symbol = l87;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l139;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v305);
+
+ }), (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 126)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l150;
+})();
+var l151 = {name: "*VARIABLE-COUNTER*"};
+(function(){
+ (((l151.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l151).value = 0;
+ })());
+ return l151;
+})();
+var l152 = {name: "GVARNAME"};
+(function(){
+ (l152).function = (function(v308){
+ ((v308)["fname"] = "GVARNAME");
+ return v308;
+ })((function (v307){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()("v", (function(){
+ var symbol = l19;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((l151).value = (function(){
+ var x = (function(){
+ var symbol = l151;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ var y = 1;
+ if (typeof x != 'number')
+ throw 'The value ' + x + ' is not a type number.';
+ if (typeof y != 'number')
+ throw 'The value ' + y + ' is not a type number.';
+ return x+y;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 127)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l152;
+})();
+var l153 = {name: "TRANSLATE-VARIABLE"};
+(function(){
+ (l153).function = (function(v310){
+ ((v310)["fname"] = "TRANSLATE-VARIABLE");
+ return v310;
+ })((function (v309){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l137;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l147;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v309, (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l100));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 128)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l153;
+})();
+var l154 = {name: "EXTEND-LOCAL-ENV"};
+var l155 = {name: "LEXICAL-VARIABLE"};
+(function(){
+ (l154).function = (function(v316){
+ ((v316)["fname"] = "EXTEND-LOCAL-ENV");
+ return v316;
+ })((function (v311){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(v312){
+ return (function(){
+ try {
+ return (function(){
+ return (function(v313,v314){
+ (function(){
+ while(v313 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()){
+ v314 = (function(){
+ var tmp = v313;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })();
+ (function(){
+ (function(v315){
+ return (function(){
+ var symbol = l143;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v315, v312, l100);
+ })((function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v314, l155, (function(){
+ var symbol = l152;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v314), (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ v313 = (function(){
+ var tmp = v313;
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.cdr;
+ })();
+ }return (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })();
+ return v312;
+ })(v311,(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 130)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+ })((function(){
+ var symbol = l142;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 129)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l154;
+})();
+var l156 = {name: "*TOPLEVEL-COMPILATIONS*"};
+(function(){
+ (((l156.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l156).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l156;
+})();
+var l157 = {name: "TOPLEVEL-COMPILATION"};
+(function(){
+ (l157).function = (function(v318){
+ ((v318)["fname"] = "TOPLEVEL-COMPILATION");
+ return v318;
+ })((function (v317){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (l156).value = ({car: v317, cdr: (function(){
+ var symbol = l156;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 131)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l157;
+})();
+var l158 = {name: "NULL-OR-EMPTY-P"};
+(function(){
+ (l158).function = (function(v320){
+ ((v320)["fname"] = "NULL-OR-EMPTY-P");
+ return v320;
+ })((function (v319){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 1) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l28;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l69;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v319));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 132)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l158;
+})();
+var l159 = {name: "GET-TOPLEVEL-COMPILATIONS"};
+(function(){
+ (l159).function = (function(v321){
+ ((v321)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
+ return v321;
+ })((function (){
+ if (arguments.length > 0) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ return (function(){
+ var symbol = l67;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l158;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l156;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 133)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l159;
+})();
+var l160 = {name: "%COMPILE-DEFMACRO"};
+var l161 = {name: "MACRO"};
+(function(){
+ (l160).function = (function(v324){
+ ((v324)["fname"] = "%COMPILE-DEFMACRO");
+ return v324;
+ })((function (v322,v323){
+ if (arguments.length < 2) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ return (function(){
+ try {
+ return (function(){
+ (function(){
+ var symbol = l157;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l65;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(l128), (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v322))));
+ return (function(){
+ var symbol = l143;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l134;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v322, l161, v323, (function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), (function(){
+ var symbol = l149;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l99);
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 134)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l160;
+})();
+var l162 = {name: "*COMPILATIONS*"};
+(function(){
+ (((l162.value !== undefined)?(function(){
+ var symbol = l3;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() : (function(){
+ return (l162).value = (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ })());
+ return l162;
+})();
+var l163 = {name: "LS-COMPILE-BLOCK"};
+(function(){
+ (l163).function = (function(v327){
+ ((v327)["fname"] = "LS-COMPILE-BLOCK");
+ return v327;
+ })((function (v325,v326){
+ if (arguments.length < 1) throw 'too few arguments';
+ if (arguments.length > 2) throw 'too many arguments';
+ switch(arguments.length){
+ case 1:
+ v326=(function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })();
+ default: break;
+ }
+ return (function(){
+ try {
+ return (function(){
+ return (v326 !== (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() ? (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l163;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l83;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v325)), "return ", (function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var tmp = (function(){
+ var symbol = l82;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(v325);
+ return tmp === (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()? (function(){
+ var symbol = l2;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(): tmp.car;
+ })()), ";") : (function(){
+ var symbol = l105;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l86;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l158;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), (function(){
+ var symbol = l71;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()((function(){
+ var symbol = l109;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v325)), (function(){
+ var symbol = l102;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })()(";", (function(){
+ var symbol = l101;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())));
+ })();
+ }
+ catch (cf){
+ if (cf.type == 'block' && cf.id == 135)
+ return cf.value;
+ else
+ throw cf;
+ }
+ })();
+
+ }));
+ return l163;
+})();
+var l164 = {name: "DEFINE-COMPILATION"};
+l164;
+var l165 = {name: "IF"};
+(l162).value = ({car: (function(){
+ var symbol = l47;
+ var func = symbol.function;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+})()(l165, (function (v328,v329,v330){