+ })()?l4.value: l3.value) !== l3.value ? l44.fvalue(values, l167, v642) : (l45.fvalue(pv, v642) !== l3.value ? v642 : ((((function(){
+ var tmp = v642;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l170)?l4.value: l3.value) !== l3.value ? (function(){
+ var tmp = v642;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() : ((((function(){
+ var tmp = v642;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l168)?l4.value: l3.value) !== l3.value ? l265.fvalue(values, l265.fvalue(pv, l33.fvalue(pv, v642))) : ({car: l64, cdr: l73.fvalue(pv, (function (values,v643){
+ checkArgs(arguments, 2);
+ return ((l59.fvalue(pv, v643) !== l3.value ? (((function(){
+ var tmp = v643;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l170)?l4.value: l3.value) : l3.value) !== l3.value ? l44.fvalue(values, l44, l33.fvalue(pv, v643)) : ((l59.fvalue(pv, v643) !== l3.value ? (((function(){
+ var tmp = v643;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l169)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v643) : l44.fvalue(values, l44, l265.fvalue(pv, v643))));
+ }), v642)})))));
+ })();
+ }));
+ return l265;
+})();
+var l266 = {name: "BACKQUOTE-EXPAND"};
+(function(){
+ (l266).fvalue = (function(v646){
+ ((v646)["fname"] = "BACKQUOTE-EXPAND");
+ return v646;
+ })((function (values,v645){
+ checkArgs(arguments, 2);
+ return (function(){
+ return ((l59.fvalue(pv, v645) !== l3.value ? (((function(){
+ var tmp = v645;
+ return tmp === l3.value? l3.value: tmp.car;
+ })() === l168)?l4.value: l3.value) : l3.value) !== l3.value ? l265.fvalue(values, l33.fvalue(pv, v645)) : v645);
+ })();
+ }));
+ return l266;
+})();
+l168;
+((l206).value = ({car: l44.fvalue(pv, l168, (function (values,v647){
+ checkArgs(arguments, 2);
+ return (function(){
+ return l145.fvalue(values, l265.fvalue(pv, v647));
+ })();
+})), cdr: (function(){
+ var symbol = l206;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l267 = {name: "*BUILTINS*"};
+(function(){
+ (((l267.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l267).value = l3.value));
+ return l267;
+})();
+var l268 = {name: "DEFINE-RAW-BUILTIN"};
+l268;
+var l269 = {name: "DEFINE-BUILTIN"};
+l269;
+var l270 = {name: "TYPE-CHECK"};
+l270;
+var l271 = {name: "VARIABLE-ARITY-CALL"};
+(function(){
+ (l271).fvalue = (function(v656){
+ ((v656)["fname"] = "VARIABLE-ARITY-CALL");
+ return v656;
+ })((function (values,v648,v649){
+ checkArgs(arguments, 3);
+ return (function(){
+ (((function(){
+ var tmp = v648;
+ return (typeof tmp == 'object' && 'car' in tmp);
+ })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
+ throw "ARGS must be a non-empty list";
+ })());
+ return (function(v650,v651,v652){
+ (function(){
+ return (function(v653,v654){
+ (function(){
+ while(v653 !== l3.value){
+ (v654 = (function(){
+ var tmp = v653;
+ return tmp === l3.value? l3.value: tmp.car;
+ })());
+ (function(){
+ (function(v655){
+ (v651 = ({car: v655, cdr: v651}));
+ return (v652 = l134.fvalue(pv, v652, l134.fvalue(pv, "var ", v655, " = ", l145.fvalue(pv, v654), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof ", v655, " !== 'number') throw 'Not a number!';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())));
+ })(l134.fvalue(pv, "x", l17.fvalue(pv, (v650 = (function(){
+ var x1 = v650;
+ if (typeof x1 !== 'number') throw 'Not a number!';
+ var x2 = 1;
+ if (typeof x2 !== 'number') throw 'Not a number!';
+ return x1+x2;
+ })()))));
+ return l3.value;
+ })();
+ (v653 = (function(){
+ var tmp = v653;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })());
+ }return l3.value;
+ })();
+ return l3.value;
+ })(v648,l3.value);
+ })();
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, v652, (v649)(pv, l66.fvalue(pv, v651))), "})()");
+ })(0,l3,"");
+ })();
+ }));
+ return l271;
+})();
+var l272 = {name: "VARIABLE-ARITY"};
+l272;
+var l273 = {name: "NUM-OP-NUM"};
+(function(){
+ (l273).fvalue = (function(v660){
+ ((v660)["fname"] = "NUM-OP-NUM");
+ return v660;
+ })((function (values,v657,v658,v659){
+ checkArgs(arguments, 4);
+ return (function(){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v657, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "var ", "y", " = ", v659, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", l134.fvalue(pv, "x", v658, "y"), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })();
+ }));
+ return l273;
+})();
+((l267).value = ({car: l44.fvalue(pv, l61, (function (values){
+ var v661= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v661 = {car: arguments[i], cdr:
+ v661};
+ return (function(){
+ return (l12.fvalue(pv, v661) !== l3.value ? "0" : l271.fvalue(values, v661, (function (values,v662){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l136.fvalue(pv, v662, "+"), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l62, (function (values,v664){
+ checkArgsAtLeast(arguments, 2);
+ var v663= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v663 = {car: arguments[i], cdr:
+ v663};
+ return (function(){
+ return (function(v665){
+ return l271.fvalue(values, v665, (function (values,v666){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", (l12.fvalue(pv, v663) !== l3.value ? l134.fvalue(pv, "-", (function(){
+ var tmp = v666;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l136.fvalue(pv, v666, "-")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v664, cdr: v663}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l20, (function (values){
+ var v667= l3.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v667 = {car: arguments[i], cdr:
+ v667};
+ return (function(){
+ return (l12.fvalue(pv, v667) !== l3.value ? "1" : l271.fvalue(values, v667, (function (values,v668){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l136.fvalue(pv, v668, "*"), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l21, (function (values,v670){
+ checkArgsAtLeast(arguments, 2);
+ var v669= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v669 = {car: arguments[i], cdr:
+ v669};
+ return (function(){
+ return (function(v671){
+ return l271.fvalue(values, v671, (function (values,v672){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", (l12.fvalue(pv, v669) !== l3.value ? l134.fvalue(pv, "1 /", (function(){
+ var tmp = v672;
+ return tmp === l3.value? l3.value: tmp.car;
+ })()) : l136.fvalue(pv, v672, "/")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v670, cdr: v669}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l274 = {name: "MOD"};
+((l267).value = ({car: l44.fvalue(pv, l274, (function (values,v673,v674){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v675,v676){
+ return l273.fvalue(values, v675, "%", v676);
+ })(l145.fvalue(pv, v673),l145.fvalue(pv, v674));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l275 = {name: "COMPARISON-CONJUNTION"};
+(function(){
+ (l275).fvalue = (function(v679){
+ ((v679)["fname"] = "COMPARISON-CONJUNTION");
+ return v679;
+ })((function (values,v677,v678){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (l12.fvalue(pv, (function(){
+ var tmp = v677;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v677)) !== l3.value ? l134.fvalue(values, (function(){
+ var tmp = v677;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v678, l33.fvalue(pv, v677)) : l134.fvalue(values, (function(){
+ var tmp = v677;
+ return tmp === l3.value? l3.value: tmp.car;
+ })(), v678, l33.fvalue(pv, v677), " && ", l275.fvalue(pv, (function(){
+ var tmp = v677;
+ return tmp === l3.value? l3.value: tmp.cdr;
+ })(), v678))));
+ })();
+ }));
+ return l275;
+})();
+var l276 = {name: "DEFINE-BUILTIN-COMPARISON"};
+l276;
+var l277 = {name: ">"};
+((l267).value = ({car: l44.fvalue(pv, l277, (function (values,v681){
+ checkArgsAtLeast(arguments, 2);
+ var v680= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v680 = {car: arguments[i], cdr:
+ v680};
+ return (function(){
+ return (function(v682){
+ return l271.fvalue(values, v682, (function (values,v683){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l144.fvalue(pv, l275.fvalue(pv, v683, ">")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v681, cdr: v680}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l278 = {name: "<"};
+((l267).value = ({car: l44.fvalue(pv, l278, (function (values,v685){
+ checkArgsAtLeast(arguments, 2);
+ var v684= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v684 = {car: arguments[i], cdr:
+ v684};
+ return (function(){
+ return (function(v686){
+ return l271.fvalue(values, v686, (function (values,v687){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l144.fvalue(pv, l275.fvalue(pv, v687, "<")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v685, cdr: v684}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l279 = {name: ">="};
+((l267).value = ({car: l44.fvalue(pv, l279, (function (values,v689){
+ checkArgsAtLeast(arguments, 2);
+ var v688= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v688 = {car: arguments[i], cdr:
+ v688};
+ return (function(){
+ return (function(v690){
+ return l271.fvalue(values, v690, (function (values,v691){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l144.fvalue(pv, l275.fvalue(pv, v691, ">=")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v689, cdr: v688}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l280 = {name: "<="};
+((l267).value = ({car: l44.fvalue(pv, l280, (function (values,v693){
+ checkArgsAtLeast(arguments, 2);
+ var v692= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v692 = {car: arguments[i], cdr:
+ v692};
+ return (function(){
+ return (function(v694){
+ return l271.fvalue(values, v694, (function (values,v695){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l144.fvalue(pv, l275.fvalue(pv, v695, "<=")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v693, cdr: v692}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l19, (function (values,v697){
+ checkArgsAtLeast(arguments, 2);
+ var v696= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v696 = {car: arguments[i], cdr:
+ v696};
+ return (function(){
+ return (function(v698){
+ return l271.fvalue(values, v698, (function (values,v699){
+ checkArgs(arguments, 2);
+ return l134.fvalue(values, "return ", l144.fvalue(pv, l275.fvalue(pv, v699, "==")), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v697, cdr: v696}));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l281 = {name: "NUMBERP"};
+((l267).value = ({car: l44.fvalue(pv, l281, (function (values,v700){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v701){
+ return l144.fvalue(values, l134.fvalue(pv, "(typeof (", v701, ") == \"number\")"));
+ })(l145.fvalue(pv, v700));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l282 = {name: "FLOOR"};
+((l267).value = ({car: l44.fvalue(pv, l282, (function (values,v702){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v703){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v703, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v702));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l28, (function (values,v704,v705){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v706,v707){
+ return l134.fvalue(values, "({car: ", v706, ", cdr: ", v707, "})");
+ })(l145.fvalue(pv, v704),l145.fvalue(pv, v705));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l29, (function (values,v708){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v709){
+ return l144.fvalue(values, l134.fvalue(pv, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var tmp = ", v709, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l145.fvalue(pv, v708));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l30, (function (values,v710){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v711){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var tmp = ", v711, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l145.fvalue(pv, l3.value), "? ", l145.fvalue(pv, l3.value), ": tmp.car;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l145.fvalue(pv, v710));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l31, (function (values,v712){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v713){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var tmp = ", v713, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l145.fvalue(pv, l3.value), "? ", l145.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l145.fvalue(pv, v712));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l283 = {name: "RPLACA"};
+((l267).value = ({car: l44.fvalue(pv, l283, (function (values,v714,v715){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v716,v717){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v716, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", l134.fvalue(pv, "(x.car = ", v717, ", x)"), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v714),l145.fvalue(pv, v715));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l284 = {name: "RPLACD"};
+((l267).value = ({car: l44.fvalue(pv, l284, (function (values,v718,v719){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v720,v721){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v720, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", l134.fvalue(pv, "(x.cdr = ", v721, ", x)"), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v718),l145.fvalue(pv, v719));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l285 = {name: "SYMBOLP"};
+((l267).value = ({car: l44.fvalue(pv, l285, (function (values,v722){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v723){
+ return l144.fvalue(values, l134.fvalue(pv, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var tmp = ", v723, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l145.fvalue(pv, v722));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l286 = {name: "MAKE-SYMBOL"};
+((l267).value = ({car: l44.fvalue(pv, l286, (function (values,v724){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v725){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "name", " = ", v725, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "({name: name})", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v724));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l287 = {name: "SYMBOL-NAME"};
+((l267).value = ({car: l44.fvalue(pv, l287, (function (values,v726){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v727){
+ return l134.fvalue(values, "(", v727, ").name");
+ })(l145.fvalue(pv, v726));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l224, (function (values,v728,v729){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v730,v731){
+ return l134.fvalue(values, "(", v730, ").value = ", v731);
+ })(l145.fvalue(pv, v728),l145.fvalue(pv, v729));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l288 = {name: "FSET"};
+((l267).value = ({car: l44.fvalue(pv, l288, (function (values,v732,v733){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v734,v735){
+ return l134.fvalue(values, "(", v734, ").fvalue = ", v735);
+ })(l145.fvalue(pv, v732),l145.fvalue(pv, v733));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l18, (function (values,v736){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v737){
+ return l144.fvalue(values, l134.fvalue(pv, "(", v737, ".value !== undefined)"));
+ })(l145.fvalue(pv, v736));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l289 = {name: "SYMBOL-VALUE"};
+((l267).value = ({car: l44.fvalue(pv, l289, (function (values,v738){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v739){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var symbol = ", v739, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l145.fvalue(pv, v738));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l233, (function (values,v740){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v741){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var symbol = ", v741, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.fvalue;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l145.fvalue(pv, v740));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l290 = {name: "SYMBOL-PLIST"};
+((l267).value = ({car: l44.fvalue(pv, l290, (function (values,v742){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v743){
+ return l134.fvalue(values, "((", v743, ").plist || ", l145.fvalue(pv, l3.value), ")");
+ })(l145.fvalue(pv, v742));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l291 = {name: "LAMBDA-CODE"};
+((l267).value = ({car: l44.fvalue(pv, l291, (function (values,v744){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v745){
+ return l134.fvalue(values, "(", v745, ").toString()");
+ })(l145.fvalue(pv, v744));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l292 = {name: "EQ"};
+((l267).value = ({car: l44.fvalue(pv, l292, (function (values,v746,v747){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v748,v749){
+ return l144.fvalue(values, l134.fvalue(pv, "(", v748, " === ", v749, ")"));
+ })(l145.fvalue(pv, v746),l145.fvalue(pv, v747));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l293 = {name: "EQUAL"};
+((l267).value = ({car: l44.fvalue(pv, l293, (function (values,v750,v751){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v752,v753){
+ return l144.fvalue(values, l134.fvalue(pv, "(", v752, " == ", v753, ")"));
+ })(l145.fvalue(pv, v750),l145.fvalue(pv, v751));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l294 = {name: "CHAR-TO-STRING"};
+((l267).value = ({car: l44.fvalue(pv, l294, (function (values,v754){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v755){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v755, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v754));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l295 = {name: "STRINGP"};
+((l267).value = ({car: l44.fvalue(pv, l295, (function (values,v756){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v757){
+ return l144.fvalue(values, l134.fvalue(pv, "(typeof(", v757, ") == \"string\")"));
+ })(l145.fvalue(pv, v756));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l296 = {name: "STRING-UPCASE"};
+((l267).value = ({car: l44.fvalue(pv, l296, (function (values,v758){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v759){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v759, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v758));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l297 = {name: "STRING-LENGTH"};
+((l267).value = ({car: l44.fvalue(pv, l297, (function (values,v760){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v761){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "x", " = ", v761, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "x.length", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v760));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l298 = {name: "SLICE"};
+((l267).value = ({car: l44.fvalue(pv, l298, (function (values,v762,v763,v764){
+ checkArgsAtLeast(arguments, 3);
+ checkArgsAtMost(arguments, 4);
+ switch(arguments.length-1){
+ case 2:
+ v764=l3.value;
+ default: break;
+ }
+ return (function(){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var str = ", l145.fvalue(pv, v762), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var a = ", l145.fvalue(pv, v763), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var b;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (v764 !== l3.value ? l134.fvalue(pv, "b = ", l145.fvalue(pv, v764), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : ""), "return str.slice(a,b);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l299 = {name: "CHAR"};
+((l267).value = ({car: l44.fvalue(pv, l299, (function (values,v765,v766){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v767,v768){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "string", " = ", v767, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "var ", "index", " = ", v768, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v765),l145.fvalue(pv, v766));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l267).value = ({car: l44.fvalue(pv, l72, (function (values,v769,v770){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v771,v772){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "string1", " = ", v771, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "var ", "string2", " = ", v772, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v769),l145.fvalue(pv, v770));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l300 = {name: "FUNCALL"};
+((l267).value = ({car: l44.fvalue(pv, l300, (function (values,v774){
+ checkArgsAtLeast(arguments, 2);
+ var v773= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v773 = {car: arguments[i], cdr:
+ v773};
+ return (function(){
+ return l134.fvalue(values, "(", l145.fvalue(pv, v774), ")(", l136.fvalue(pv, ({car: ((function(){
+ var symbol = l172;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? "values" : "pv"), cdr: l73.fvalue(pv, (function(){
+ var symbol = l145;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v773)}), ", "), ")");
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l301 = {name: "APPLY"};
+((l267).value = ({car: l44.fvalue(pv, l301, (function (values,v776){
+ checkArgsAtLeast(arguments, 2);
+ var v775= l3.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v775 = {car: arguments[i], cdr:
+ v775};
+ return (function(){
+ return (l12.fvalue(pv, v775) !== l3.value ? l134.fvalue(values, "(", l145.fvalue(pv, v776), ")()") : (function(v777,v778){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var f = ", l145.fvalue(pv, v776), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var args = [", l136.fvalue(pv, ({car: ((function(){
+ var symbol = l172;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? "values" : "pv"), cdr: l73.fvalue(pv, (function(){
+ var symbol = l145;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v777)}), ", "), "];", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var tail = (", l145.fvalue(pv, v778), ");", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (tail != ", l145.fvalue(pv, l3.value), "){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " args.push(tail.car);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tail = tail.cdr;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return f.apply(this, args);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l87.fvalue(pv, v775),(function(){
+ var tmp = l86.fvalue(pv, v775);
+ return tmp === l3.value? l3.value: tmp.car;
+ })()));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l302 = {name: "JS-EVAL"};
+((l267).value = ({car: l44.fvalue(pv, l302, (function (values,v779){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v780){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, l134.fvalue(pv, "var ", "string", " = ", v780, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l134.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l134.fvalue(pv, "return ", ((function(){
+ var symbol = l172;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l3.value ? l134.fvalue(pv, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "v = [v];", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "v['multiple-value'] = true;", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return values.apply(this, v);", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l145.fvalue(pv, v779));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l303 = {name: "ERROR"};
+((l267).value = ({car: l44.fvalue(pv, l303, (function (values,v781){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v782){
+ return l134.fvalue(values, "(function(){", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l143.fvalue(pv, "throw ", v782, ";", (function(){
+ var symbol = l133;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l145.fvalue(pv, v781));
+ })();
+})), cdr: (function(){
+ var symbol = l267;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l304 = {name: "NEW"};
+((l267).value = ({car: l44.fvalue(pv, l304, (function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return (function(){
+ return "{}";
+ })();