+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "x", v791, "y"), ";", (function(){
+ var symbol = l148;
+=======
+ }));
+ })(({car: v831, cdr: v830}));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l332 = {name: "<="};
+((l319).value = ({car: l47.fvalue(pv, l332, (function (values,v835){
+ checkArgsAtLeast(arguments, 2);
+ var v834= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v834 = {car: arguments[i], cdr:
+ v834};
+ return (function(){
+ return (function(v836){
+ return l323.fvalue(values, v836, (function (values,v837){
+ checkArgs(arguments, 2);
+ return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v837, "<=")), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v835, cdr: v834}));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l21, (function (values,v839){
+ checkArgsAtLeast(arguments, 2);
+ var v838= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v838 = {car: arguments[i], cdr:
+ v838};
+ return (function(){
+ return (function(v840){
+ return l323.fvalue(values, v840, (function (values,v841){
+ checkArgs(arguments, 2);
+ return l190.fvalue(values, "return ", l191.fvalue(pv, l327.fvalue(pv, v841, "==")), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v839, cdr: v838}));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l333 = {name: "NUMBERP"};
+((l319).value = ({car: l47.fvalue(pv, l333, (function (values,v842){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v843){
+ return l191.fvalue(values, l190.fvalue(pv, "(typeof (", v843, ") == \"number\")"));
+ })(l192.fvalue(pv, v842));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l334 = {name: "FLOOR"};
+((l319).value = ({car: l47.fvalue(pv, l334, (function (values,v844){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v845){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v845, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v844));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l30, (function (values,v846,v847){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v848,v849){
+ return l190.fvalue(values, "({car: ", v848, ", cdr: ", v849, "})");
+ })(l192.fvalue(pv, v846),l192.fvalue(pv, v847));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l31, (function (values,v850){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v851){
+ return l191.fvalue(values, l190.fvalue(pv, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var tmp = ", v851, ";", (function(){
+ var symbol = l155;
+ 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 = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l192.fvalue(pv, v850));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l32, (function (values,v852){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v853){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var tmp = ", v853, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l192.fvalue(pv, l5.value), "? ", l192.fvalue(pv, l5.value), ": tmp.car;", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l192.fvalue(pv, v852));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l33, (function (values,v854){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v855){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var tmp = ", v855, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l192.fvalue(pv, l5.value), "? ", l192.fvalue(pv, l5.value), ": tmp.cdr;", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l192.fvalue(pv, v854));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l123, (function (values,v856,v857){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v858,v859){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v858, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", l190.fvalue(pv, "(x.car = ", v859, ", x)"), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v856),l192.fvalue(pv, v857));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l124, (function (values,v860,v861){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v862,v863){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v862, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", l190.fvalue(pv, "(x.cdr = ", v863, ", x)"), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v860),l192.fvalue(pv, v861));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l335 = {name: "SYMBOLP"};
+((l319).value = ({car: l47.fvalue(pv, l335, (function (values,v864){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v865){
+ return l191.fvalue(values, l190.fvalue(pv, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var tmp = ", v865, ";", (function(){
+ var symbol = l155;
+ 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 = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l192.fvalue(pv, v864));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l336 = {name: "MAKE-SYMBOL"};
+((l319).value = ({car: l47.fvalue(pv, l336, (function (values,v866){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v867){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "name", " = ", v867, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "({name: name})", ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v866));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l337 = {name: "SYMBOL-NAME"};
+((l319).value = ({car: l47.fvalue(pv, l337, (function (values,v868){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v869){
+ return l190.fvalue(values, "(", v869, ").name");
+ })(l192.fvalue(pv, v868));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l255, (function (values,v870,v871){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v872,v873){
+ return l190.fvalue(values, "(", v872, ").value = ", v873);
+ })(l192.fvalue(pv, v870),l192.fvalue(pv, v871));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l338 = {name: "FSET"};
+((l319).value = ({car: l47.fvalue(pv, l338, (function (values,v874,v875){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v876,v877){
+ return l190.fvalue(values, "(", v876, ").fvalue = ", v877);
+ })(l192.fvalue(pv, v874),l192.fvalue(pv, v875));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l20, (function (values,v878){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v879){
+ return l191.fvalue(values, l190.fvalue(pv, "(", v879, ".value !== undefined)"));
+ })(l192.fvalue(pv, v878));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l339 = {name: "SYMBOL-VALUE"};
+((l319).value = ({car: l47.fvalue(pv, l339, (function (values,v880){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v881){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var symbol = ", v881, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l155;
+ 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 = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l192.fvalue(pv, v880));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l263, (function (values,v882){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v883){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var symbol = ", v883, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.fvalue;", (function(){
+ var symbol = l155;
+ 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 = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l192.fvalue(pv, v882));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l340 = {name: "SYMBOL-PLIST"};
+((l319).value = ({car: l47.fvalue(pv, l340, (function (values,v884){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v885){
+ return l190.fvalue(values, "((", v885, ").plist || ", l192.fvalue(pv, l5.value), ")");
+ })(l192.fvalue(pv, v884));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l341 = {name: "LAMBDA-CODE"};
+((l319).value = ({car: l47.fvalue(pv, l341, (function (values,v886){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v887){
+ return l190.fvalue(values, "(", v887, ").toString()");
+ })(l192.fvalue(pv, v886));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l342 = {name: "EQ"};
+((l319).value = ({car: l47.fvalue(pv, l342, (function (values,v888,v889){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v890,v891){
+ return l191.fvalue(values, l190.fvalue(pv, "(", v890, " === ", v891, ")"));
+ })(l192.fvalue(pv, v888),l192.fvalue(pv, v889));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l343 = {name: "EQUAL"};
+((l319).value = ({car: l47.fvalue(pv, l343, (function (values,v892,v893){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v894,v895){
+ return l191.fvalue(values, l190.fvalue(pv, "(", v894, " == ", v895, ")"));
+ })(l192.fvalue(pv, v892),l192.fvalue(pv, v893));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l344 = {name: "CHAR-TO-STRING"};
+((l319).value = ({car: l47.fvalue(pv, l344, (function (values,v896){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v897){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v897, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v896));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l345 = {name: "STRINGP"};
+((l319).value = ({car: l47.fvalue(pv, l345, (function (values,v898){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v899){
+ return l191.fvalue(values, l190.fvalue(pv, "(typeof(", v899, ") == \"string\")"));
+ })(l192.fvalue(pv, v898));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l346 = {name: "STRING-UPCASE"};
+((l319).value = ({car: l47.fvalue(pv, l346, (function (values,v900){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v901){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v901, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v900));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l347 = {name: "STRING-LENGTH"};
+((l319).value = ({car: l47.fvalue(pv, l347, (function (values,v902){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v903){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "x", " = ", v903, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "x.length", ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v902));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l348 = {name: "SLICE"};
+((l319).value = ({car: l47.fvalue(pv, l348, (function (values,v904,v905,v906){
+ checkArgsAtLeast(arguments, 3);
+ checkArgsAtMost(arguments, 4);
+ var v906;
+ switch(arguments.length-1){
+ case 2:
+ v906=l5.value;
+ default: break;
+ }
+ return (function(){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "var str = ", l192.fvalue(pv, v904), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var a = ", l192.fvalue(pv, v905), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var b;", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (v906 !== l5.value ? l190.fvalue(pv, "b = ", l192.fvalue(pv, v906), ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l5.value), "return str.slice(a,b);", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+var l349 = {name: "CHAR"};
+((l319).value = ({car: l47.fvalue(pv, l349, (function (values,v907,v908){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v909,v910){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "string", " = ", v909, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "var ", "index", " = ", v910, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l192.fvalue(pv, v907),l192.fvalue(pv, v908));
+ })();
+})), cdr: (function(){
+ var symbol = l319;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+})()}));
+((l319).value = ({car: l47.fvalue(pv, l76, (function (values,v911,v912){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v913,v914){
+ return l190.fvalue(values, "(function(){", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, l190.fvalue(pv, "var ", "string1", " = ", v913, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "var ", "string2", " = ", v914, ";", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l190.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l194.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l155;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l190.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
+ var symbol = l155;
+>>>>>>> backquote
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+<<<<<<< HEAD
+ })();
+ }));
+ return l296;
+})();
+(function(){
+ var v794 = l45.fvalue(pv, l63, (function (values){
+ var v795= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v795 = {car: arguments[i], cdr:
+ v795};
+ return (function(){
+ return (l13.fvalue(pv, v795) !== l5.value ? "0" : l294.fvalue(values, v795, (function (values,v796){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l151.fvalue(pv, v796, "+"), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })));
+ })();
+ }));
+ var v797 = ({car: v794, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v797);
+})();
+(function(){
+ var v798 = l45.fvalue(pv, l64, (function (values,v800){
+ checkArgsAtLeast(arguments, 2);
+ var v799= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v799 = {car: arguments[i], cdr:
+ v799};
+ return (function(){
+ return (function(v801){
+ return l294.fvalue(values, v801, (function (values,v802){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", (l13.fvalue(pv, v799) !== l5.value ? l149.fvalue(pv, "-", (function(){
+ var tmp = v802;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()) : l151.fvalue(pv, v802, "-")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v800, cdr: v799}));
+ })();
+ }));
+ var v803 = ({car: v798, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v803);
+})();
+(function(){
+ var v804 = l45.fvalue(pv, l21, (function (values){
+ var v805= l5.value;
+ for (var i = arguments.length-1; i>=1; i--)
+ v805 = {car: arguments[i], cdr:
+ v805};
+ return (function(){
+ return (l13.fvalue(pv, v805) !== l5.value ? "1" : l294.fvalue(values, v805, (function (values,v806){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l151.fvalue(pv, v806, "*"), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ })));
+ })();
+ }));
+ var v807 = ({car: v804, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v807);
+})();
+(function(){
+ var v808 = l45.fvalue(pv, l22, (function (values,v810){
+ checkArgsAtLeast(arguments, 2);
+ var v809= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v809 = {car: arguments[i], cdr:
+ v809};
+ return (function(){
+ return (function(v811){
+ return l294.fvalue(values, v811, (function (values,v812){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", (l13.fvalue(pv, v809) !== l5.value ? l149.fvalue(pv, "1 /", (function(){
+ var tmp = v812;
+ return tmp === l5.value? l5.value: tmp.car;
+ })()) : l151.fvalue(pv, v812, "/")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v810, cdr: v809}));
+ })();
+ }));
+ var v813 = ({car: v808, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v813);
+})();
+var l297 = {name: "MOD"};
+(function(){
+ var v814 = l45.fvalue(pv, l297, (function (values,v815,v816){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v817,v818){
+ return l296.fvalue(values, v817, "%", v818);
+ })(l185.fvalue(pv, v815),l185.fvalue(pv, v816));
+ })();
+ }));
+ var v819 = ({car: v814, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v819);
+})();
+var l298 = {name: "COMPARISON-CONJUNTION"};
+(function(){
+ (l298).fvalue = (function(v822){
+ ((v822)["fname"] = "COMPARISON-CONJUNTION");
+ return v822;
+ })((function (values,v820,v821){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (l13.fvalue(pv, (function(){
+ var tmp = v820;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })()) !== l5.value ? "true" : (l13.fvalue(pv, l36.fvalue(pv, v820)) !== l5.value ? l149.fvalue(values, (function(){
+ var tmp = v820;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), v821, l34.fvalue(pv, v820)) : l149.fvalue(values, (function(){
+ var tmp = v820;
+ return tmp === l5.value? l5.value: tmp.car;
+ })(), v821, l34.fvalue(pv, v820), " && ", l298.fvalue(pv, (function(){
+ var tmp = v820;
+ return tmp === l5.value? l5.value: tmp.cdr;
+ })(), v821))));
+ })();
+ }));
+ return l298;
+})();
+var l299 = {name: "DEFINE-BUILTIN-COMPARISON"};
+l299;
+var l300 = {name: ">"};
+(function(){
+ var v823 = l45.fvalue(pv, l300, (function (values,v825){
+ checkArgsAtLeast(arguments, 2);
+ var v824= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v824 = {car: arguments[i], cdr:
+ v824};
+ return (function(){
+ return (function(v826){
+ return l294.fvalue(values, v826, (function (values,v827){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v827, ">")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v825, cdr: v824}));
+ })();
+ }));
+ var v828 = ({car: v823, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v828);
+})();
+var l301 = {name: "<"};
+(function(){
+ var v829 = l45.fvalue(pv, l301, (function (values,v831){
+ checkArgsAtLeast(arguments, 2);
+ var v830= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v830 = {car: arguments[i], cdr:
+ v830};
+ return (function(){
+ return (function(v832){
+ return l294.fvalue(values, v832, (function (values,v833){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v833, "<")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v831, cdr: v830}));
+ })();
+ }));
+ var v834 = ({car: v829, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v834);
+})();
+var l302 = {name: ">="};
+(function(){
+ var v835 = l45.fvalue(pv, l302, (function (values,v837){
+ checkArgsAtLeast(arguments, 2);
+ var v836= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v836 = {car: arguments[i], cdr:
+ v836};
+ return (function(){
+ return (function(v838){
+ return l294.fvalue(values, v838, (function (values,v839){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v839, ">=")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v837, cdr: v836}));
+ })();
+ }));
+ var v840 = ({car: v835, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v840);
+})();
+var l303 = {name: "<="};
+(function(){
+ var v841 = l45.fvalue(pv, l303, (function (values,v843){
+ checkArgsAtLeast(arguments, 2);
+ var v842= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v842 = {car: arguments[i], cdr:
+ v842};
+ return (function(){
+ return (function(v844){
+ return l294.fvalue(values, v844, (function (values,v845){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v845, "<=")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v843, cdr: v842}));
+ })();
+ }));
+ var v846 = ({car: v841, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v846);
+})();
+(function(){
+ var v847 = l45.fvalue(pv, l20, (function (values,v849){
+ checkArgsAtLeast(arguments, 2);
+ var v848= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v848 = {car: arguments[i], cdr:
+ v848};
+ return (function(){
+ return (function(v850){
+ return l294.fvalue(values, v850, (function (values,v851){
+ checkArgs(arguments, 2);
+ return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v851, "==")), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })());
+ }));
+ })(({car: v849, cdr: v848}));
+ })();
+ }));
+ var v852 = ({car: v847, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v852);
+})();
+var l304 = {name: "NUMBERP"};
+(function(){
+ var v853 = l45.fvalue(pv, l304, (function (values,v854){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v855){
+ return l184.fvalue(values, l183.fvalue(pv, "(typeof (", v855, ") == \"number\")"));
+ })(l185.fvalue(pv, v854));
+ })();
+ }));
+ var v856 = ({car: v853, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v856);
+})();
+var l305 = {name: "FLOOR"};
+(function(){
+ var v857 = l45.fvalue(pv, l305, (function (values,v858){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v859){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v859, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v858));
+ })();
+ }));
+ var v860 = ({car: v857, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v860);
+})();
+(function(){
+ var v861 = l45.fvalue(pv, l29, (function (values,v862,v863){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v864,v865){
+ return l183.fvalue(values, "({car: ", v864, ", cdr: ", v865, "})");
+ })(l185.fvalue(pv, v862),l185.fvalue(pv, v863));
+ })();
+ }));
+ var v866 = ({car: v861, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v866);
+})();
+(function(){
+ var v867 = l45.fvalue(pv, l30, (function (values,v868){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v869){
+ return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var tmp = ", v869, ";", (function(){
+ var symbol = l148;
+ 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 = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l185.fvalue(pv, v868));
+ })();
+ }));
+ var v870 = ({car: v867, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v870);
+})();
+(function(){
+ var v871 = l45.fvalue(pv, l31, (function (values,v872){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v873){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var tmp = ", v873, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l185.fvalue(pv, l5.value), "? ", l185.fvalue(pv, l5.value), ": tmp.car;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v872));
+ })();
+ }));
+ var v874 = ({car: v871, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v874);
+})();
+(function(){
+ var v875 = l45.fvalue(pv, l32, (function (values,v876){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v877){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var tmp = ", v877, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp === ", l185.fvalue(pv, l5.value), "? ", l185.fvalue(pv, l5.value), ": tmp.cdr;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v876));
+ })();
+ }));
+ var v878 = ({car: v875, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v878);
+})();
+(function(){
+ var v879 = l45.fvalue(pv, l120, (function (values,v880,v881){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v882,v883){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v882, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "(x.car = ", v883, ", x)"), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v880),l185.fvalue(pv, v881));
+ })();
+ }));
+ var v884 = ({car: v879, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v884);
+})();
+(function(){
+ var v885 = l45.fvalue(pv, l121, (function (values,v886,v887){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v888,v889){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v888, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "(x.cdr = ", v889, ", x)"), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v886),l185.fvalue(pv, v887));
+ })();
+ }));
+ var v890 = ({car: v885, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v890);
+})();
+var l306 = {name: "SYMBOLP"};
+(function(){
+ var v891 = l45.fvalue(pv, l306, (function (values,v892){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v893){
+ return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var tmp = ", v893, ";", (function(){
+ var symbol = l148;
+ 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 = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()"));
+ })(l185.fvalue(pv, v892));
+ })();
+ }));
+ var v894 = ({car: v891, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v894);
+})();
+var l307 = {name: "MAKE-SYMBOL"};
+(function(){
+ var v895 = l45.fvalue(pv, l307, (function (values,v896){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v897){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "name", " = ", v897, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "({name: name})", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v896));
+ })();
+ }));
+ var v898 = ({car: v895, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v898);
+})();
+var l308 = {name: "SYMBOL-NAME"};
+(function(){
+ var v899 = l45.fvalue(pv, l308, (function (values,v900){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v901){
+ return l183.fvalue(values, "(", v901, ").name");
+ })(l185.fvalue(pv, v900));
+ })();
+ }));
+ var v902 = ({car: v899, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v902);
+})();
+(function(){
+ var v903 = l45.fvalue(pv, l248, (function (values,v904,v905){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v906,v907){
+ return l183.fvalue(values, "(", v906, ").value = ", v907);
+ })(l185.fvalue(pv, v904),l185.fvalue(pv, v905));
+ })();
+ }));
+ var v908 = ({car: v903, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v908);
+})();
+var l309 = {name: "FSET"};
+(function(){
+ var v909 = l45.fvalue(pv, l309, (function (values,v910,v911){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v912,v913){
+ return l183.fvalue(values, "(", v912, ").fvalue = ", v913);
+ })(l185.fvalue(pv, v910),l185.fvalue(pv, v911));
+ })();
+ }));
+ var v914 = ({car: v909, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v914);
+})();
+(function(){
+ var v915 = l45.fvalue(pv, l19, (function (values,v916){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v917){
+ return l184.fvalue(values, l183.fvalue(pv, "(", v917, ".value !== undefined)"));
+ })(l185.fvalue(pv, v916));
+ })();
+ }));
+ var v918 = ({car: v915, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v918);
+})();
+var l310 = {name: "SYMBOL-VALUE"};
+(function(){
+ var v919 = l45.fvalue(pv, l310, (function (values,v920){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v921){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var symbol = ", v921, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var value = symbol.value;", (function(){
+ var symbol = l148;
+ 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 = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return value;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v920));
+ })();
+ }));
+ var v922 = ({car: v919, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v922);
+})();
+(function(){
+ var v923 = l45.fvalue(pv, l256, (function (values,v924){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v925){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var symbol = ", v925, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var func = symbol.fvalue;", (function(){
+ var symbol = l148;
+ 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 = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return func;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v924));
+ })();
+ }));
+ var v926 = ({car: v923, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v926);
+})();
+var l311 = {name: "SYMBOL-PLIST"};
+(function(){
+ var v927 = l45.fvalue(pv, l311, (function (values,v928){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v929){
+ return l183.fvalue(values, "((", v929, ").plist || ", l185.fvalue(pv, l5.value), ")");
+ })(l185.fvalue(pv, v928));
+ })();
+ }));
+ var v930 = ({car: v927, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v930);
+})();
+var l312 = {name: "LAMBDA-CODE"};
+(function(){
+ var v931 = l45.fvalue(pv, l312, (function (values,v932){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v933){
+ return l183.fvalue(values, "(", v933, ").toString()");
+ })(l185.fvalue(pv, v932));
+ })();
+ }));
+ var v934 = ({car: v931, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v934);
+})();
+var l313 = {name: "EQ"};
+(function(){
+ var v935 = l45.fvalue(pv, l313, (function (values,v936,v937){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v938,v939){
+ return l184.fvalue(values, l183.fvalue(pv, "(", v938, " === ", v939, ")"));
+ })(l185.fvalue(pv, v936),l185.fvalue(pv, v937));
+ })();
+ }));
+ var v940 = ({car: v935, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v940);
+})();
+var l314 = {name: "EQUAL"};
+(function(){
+ var v941 = l45.fvalue(pv, l314, (function (values,v942,v943){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v944,v945){
+ return l184.fvalue(values, l183.fvalue(pv, "(", v944, " == ", v945, ")"));
+ })(l185.fvalue(pv, v942),l185.fvalue(pv, v943));
+ })();
+ }));
+ var v946 = ({car: v941, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v946);
+})();
+var l315 = {name: "CHAR-TO-STRING"};
+(function(){
+ var v947 = l45.fvalue(pv, l315, (function (values,v948){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v949){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v949, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v948));
+ })();
+ }));
+ var v950 = ({car: v947, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v950);
+})();
+var l316 = {name: "STRINGP"};
+(function(){
+ var v951 = l45.fvalue(pv, l316, (function (values,v952){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v953){
+ return l184.fvalue(values, l183.fvalue(pv, "(typeof(", v953, ") == \"string\")"));
+ })(l185.fvalue(pv, v952));
+ })();
+ }));
+ var v954 = ({car: v951, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v954);
+})();
+var l317 = {name: "STRING-UPCASE"};
+(function(){
+ var v955 = l45.fvalue(pv, l317, (function (values,v956){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v957){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v957, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v956));
+ })();
+ }));
+ var v958 = ({car: v955, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v958);
+})();
+var l318 = {name: "STRING-LENGTH"};
+(function(){
+ var v959 = l45.fvalue(pv, l318, (function (values,v960){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v961){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v961, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "x.length", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v960));
+ })();
+ }));
+ var v962 = ({car: v959, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v962);
+})();
+var l319 = {name: "SLICE"};
+(function(){
+ var v963 = l45.fvalue(pv, l319, (function (values,v964,v965,v966){
+ checkArgsAtLeast(arguments, 3);
+ checkArgsAtMost(arguments, 4);
+ var v966;
+ switch(arguments.length-1){
+ case 2:
+ v966=l5.value;
+ default: break;
+ }
+ return (function(){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var str = ", l185.fvalue(pv, v964), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var a = ", l185.fvalue(pv, v965), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var b;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), (v966 !== l5.value ? l183.fvalue(pv, "b = ", l185.fvalue(pv, v966), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()) : l5.value), "return str.slice(a,b);", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })();
+ }));
+ var v967 = ({car: v963, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v967);
+})();
+var l320 = {name: "CHAR"};
+(function(){
+ var v968 = l45.fvalue(pv, l320, (function (values,v969,v970){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v971,v972){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string", " = ", v971, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "var ", "index", " = ", v972, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v969),l185.fvalue(pv, v970));
+ })();
+ }));
+ var v973 = ({car: v968, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v973);
+})();
+(function(){
+ var v974 = l45.fvalue(pv, l74, (function (values,v975,v976){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v977,v978){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string1", " = ", v977, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "var ", "string2", " = ", v978, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v975),l185.fvalue(pv, v976));
+ })();
+ }));
+ var v979 = ({car: v974, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v979);
+})();
+var l321 = {name: "FUNCALL"};
+(function(){
+ var v980 = l45.fvalue(pv, l321, (function (values,v982){
+ checkArgsAtLeast(arguments, 2);
+ var v981= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v981 = {car: arguments[i], cdr:
+ v981};
+ return (function(){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var f = ", l185.fvalue(pv, v982), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof f === 'function'? f: f.fvalue)(", l151.fvalue(pv, ({car: ((function(){
+ var symbol = l188;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l5.value ? "values" : "pv"), cdr: l79.fvalue(pv, (function(){
+ var symbol = l185;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v981)}), ", "), ")"), "})()");
+ })();
+ }));
+ var v983 = ({car: v980, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v983);
+})();
+var l322 = {name: "APPLY"};
+(function(){
+ var v984 = l45.fvalue(pv, l322, (function (values,v986){
+ checkArgsAtLeast(arguments, 2);
+ var v985= l5.value;
+ for (var i = arguments.length-1; i>=2; i--)
+ v985 = {car: arguments[i], cdr:
+ v985};
+ return (function(){
+ return (l13.fvalue(pv, v985) !== l5.value ? l183.fvalue(values, "(", l185.fvalue(pv, v986), ")()") : (function(v987,v988){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var f = ", l185.fvalue(pv, v986), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var args = [", l151.fvalue(pv, ({car: ((function(){
+ var symbol = l188;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l5.value ? "values" : "pv"), cdr: l79.fvalue(pv, (function(){
+ var symbol = l185;
+ var func = symbol.fvalue;
+ if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
+ return func;
+ })(), v987)}), ", "), "];", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "var tail = (", l185.fvalue(pv, v988), ");", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "while (tail != ", l185.fvalue(pv, l5.value), "){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " args.push(tail.car);", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), " tail = tail.cdr;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "}", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return (typeof f === 'function'? f : f.fvalue).apply(this, args);", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l92.fvalue(pv, v985),(function(){
+ var tmp = l91.fvalue(pv, v985);
+ return tmp === l5.value? l5.value: tmp.car;
+ })()));
+ })();
+ }));
+ var v989 = ({car: v984, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v989);
+})();
+var l323 = {name: "JS-EVAL"};
+(function(){
+ var v990 = l45.fvalue(pv, l323, (function (values,v991){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v992){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string", " = ", v992, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", ((function(){
+ var symbol = l188;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })() !== l5.value ? l183.fvalue(pv, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
+ var symbol = l148;
+ 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 = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "v = [v];", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "v['multiple-value'] = true;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "}", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return values.apply(this, v);", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v991));
+ })();
+ }));
+ var v993 = ({car: v990, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v993);
+})();
+var l324 = {name: "ERROR"};
+(function(){
+ var v994 = l45.fvalue(pv, l324, (function (values,v995){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v996){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw ", v996, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v995));
+ })();
+ }));
+ var v997 = ({car: v994, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v997);
+})();
+var l325 = {name: "NEW"};
+(function(){
+ var v998 = l45.fvalue(pv, l325, (function (values){
+ checkArgsAtMost(arguments, 1);
+ return (function(){
+ return (function(){
+ return "{}";
+ })();
+ })();
+ }));
+ var v999 = ({car: v998, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v999);
+})();
+var l326 = {name: "OBJECTP"};
+(function(){
+ var v1000 = l45.fvalue(pv, l326, (function (values,v1001){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v1002){
+ return l184.fvalue(values, l183.fvalue(pv, "(typeof (", v1002, ") === 'object')"));
+ })(l185.fvalue(pv, v1001));
+ })();
+ }));
+ var v1003 = ({car: v1000, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1003);
+})();
+var l327 = {name: "OGET"};
+(function(){
+ var v1004 = l45.fvalue(pv, l327, (function (values,v1005,v1006){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v1007,v1008){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var tmp = ", "(", v1007, ")[", v1008, "];", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return tmp == undefined? ", l185.fvalue(pv, l5.value), ": tmp ;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v1005),l185.fvalue(pv, v1006));
+ })();
+ }));
+ var v1009 = ({car: v1004, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1009);
+})();
+var l328 = {name: "OSET"};
+(function(){
+ var v1010 = l45.fvalue(pv, l328, (function (values,v1011,v1012,v1013){
+ checkArgs(arguments, 4);
+ return (function(){
+ return (function(v1014,v1015,v1016){
+ return l183.fvalue(values, "((", v1014, ")[", v1015, "] = ", v1016, ")");
+ })(l185.fvalue(pv, v1011),l185.fvalue(pv, v1012),l185.fvalue(pv, v1013));
+ })();
+ }));
+ var v1017 = ({car: v1010, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1017);
+})();
+var l329 = {name: "IN"};
+(function(){
+ var v1018 = l45.fvalue(pv, l329, (function (values,v1019,v1020){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v1021,v1022){
+ return l184.fvalue(values, l183.fvalue(pv, "((", v1021, ") in (", v1022, "))"));
+ })(l185.fvalue(pv, v1019),l185.fvalue(pv, v1020));
+ })();
+ }));
+ var v1023 = ({car: v1018, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1023);
+})();
+var l330 = {name: "FUNCTIONP"};
+(function(){
+ var v1024 = l45.fvalue(pv, l330, (function (values,v1025){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v1026){
+ return l184.fvalue(values, l183.fvalue(pv, "(typeof ", v1026, " == 'function')"));
+ })(l185.fvalue(pv, v1025));
+ })();
+ }));
+ var v1027 = ({car: v1024, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1027);
+})();
+var l331 = {name: "WRITE-STRING"};
+(function(){
+ var v1028 = l45.fvalue(pv, l331, (function (values,v1029){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v1030){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v1030, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), l183.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })())), "})()");
+ })(l185.fvalue(pv, v1029));
+ })();
+ }));
+ var v1031 = ({car: v1028, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1031);
+})();
+var l332 = {name: "MAKE-ARRAY"};
+(function(){
+ var v1032 = l45.fvalue(pv, l332, (function (values,v1033){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v1034){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var r = [];", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "for (var i = 0; i < ", v1034, "; i++)", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "r.push(", l185.fvalue(pv, l5.value), ");", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "return r;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v1033));
+ })();
+ }));
+ var v1035 = ({car: v1032, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1035);
+})();
+var l333 = {name: "ARRAYP"};
+(function(){
+ var v1036 = l45.fvalue(pv, l333, (function (values,v1037){
+ checkArgs(arguments, 2);
+ return (function(){
+ return (function(v1038){
+ return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var x = ", v1038, ";", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
+ })(l185.fvalue(pv, v1037));
+ })();
+ }));
+ var v1039 = ({car: v1036, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1039);
+})();
+var l334 = {name: "AREF"};
+(function(){
+ var v1040 = l45.fvalue(pv, l334, (function (values,v1041,v1042){
+ checkArgs(arguments, 3);
+ return (function(){
+ return (function(v1043,v1044){
+ return l183.fvalue(values, "(function(){", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), l187.fvalue(pv, "var x = ", "(", v1043, ")[", v1044, "];", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "if (x === undefined) throw 'Out of range';", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })(), "return x;", (function(){
+ var symbol = l148;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()), "})()");
+ })(l185.fvalue(pv, v1041),l185.fvalue(pv, v1042));
+ })();
+ }));
+ var v1045 = ({car: v1040, cdr: (function(){
+ var symbol = l290;
+ var value = symbol.value;
+ if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
+ return value;
+ })()});
+ return ((l290).value = v1045);
+})();
+var l335 = {name: "ASET"};
+(function(){
+ var v1046 = l45.fvalue(pv, l335, (function (values,v1047,v1048,v1049){
+ checkArgs(arguments, 4);
+=======
+ })(l192.fvalue(pv, v911),l192.fvalue(pv, v912));