From 4520ce8cecc05d9537a24d72326dae00d296f666 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 8 Feb 2013 00:07:02 +0100 Subject: [PATCH] LABELS working and exported No error checking yet --- ecmalisp.js | 1834 +++++++++++++++++++++++++++++---------------------------- ecmalisp.lisp | 22 +- 2 files changed, 956 insertions(+), 900 deletions(-) diff --git a/ecmalisp.js b/ecmalisp.js index 6dff394..acfa167 100644 --- a/ecmalisp.js +++ b/ecmalisp.js @@ -4829,29 +4829,86 @@ var l234 = {name: "FLET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l235 = {name: "*COMPILING-FILE*"}; -(function(){ - (((l235.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l235).value = l3.value)); - return l235; -})(); -var l236 = {name: "EVAL-WHEN-COMPILE"}; -var l237 = {name: "PROGN"}; -var l238 = {name: "EVAL"}; -((l203).value = ({car: l44.fvalue(pv, l236, (function (values){ +var l235 = {name: "LABELS"}; +((l203).value = ({car: l44.fvalue(pv, l235, (function (values,v544){ + checkArgsAtLeast(arguments, 2); var v543= l3.value; - for (var i = arguments.length-1; i>=1; i--) + for (var i = arguments.length-1; i>=2; i--) v543 = {car: arguments[i], cdr: v543}; return (function(){ + return (function(){ + try { + var v547 = l185.value; + var v545 = l73.fvalue(pv, (function(){ + var symbol = l30; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v544); + ((l185).value = l183.fvalue(pv, l73.fvalue(pv, (function(){ + var symbol = l231; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v545), (function(){ + var symbol = l185; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l101)); + return l131.fvalue(values, "(function(){", (function(){ + var symbol = l130; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v546){ + checkArgs(arguments, 2); + return l131.fvalue(values, "var ", l233.fvalue(pv, (function(){ + var tmp = v546; + return tmp === l3.value? l3.value: tmp.car; + })()), " = ", l218.fvalue(pv, l33.fvalue(pv, v546), l35.fvalue(pv, v546)), ";", (function(){ + var symbol = l130; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + }), v544), l219.fvalue(pv, v543, l4.value)), "})()"); + } + finally { + l185.value = v547; + } + })(); + })(); +})), cdr: (function(){ + var symbol = l203; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; +})()})); +var l236 = {name: "*COMPILING-FILE*"}; +(function(){ + (((l236.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l236).value = l3.value)); + return l236; +})(); +var l237 = {name: "EVAL-WHEN-COMPILE"}; +var l238 = {name: "PROGN"}; +var l239 = {name: "EVAL"}; +((l203).value = ({car: l44.fvalue(pv, l237, (function (values){ + var v548= l3.value; + for (var i = arguments.length-1; i>=1; i--) + v548 = {car: arguments[i], cdr: + v548}; + return (function(){ return ((function(){ - var symbol = l235; + var symbol = l236; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l3.value ? (function(){ - l238.fvalue(pv, ({car: l237, cdr: v543})); + l239.fvalue(pv, ({car: l238, cdr: v548})); return l3.value; - })() : l142.fvalue(values, l64.fvalue(pv, l44.fvalue(pv, l237), v543))); + })() : l142.fvalue(values, l64.fvalue(pv, l44.fvalue(pv, l238), v548))); })(); })), cdr: (function(){ var symbol = l203; @@ -4859,19 +4916,19 @@ var l238 = {name: "EVAL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l239 = {name: "DEFINE-TRANSFORMATION"}; -l239; -((l203).value = ({car: l44.fvalue(pv, l237, (function (values){ - var v544= l3.value; +var l240 = {name: "DEFINE-TRANSFORMATION"}; +l240; +((l203).value = ({car: l44.fvalue(pv, l238, (function (values){ + var v549= l3.value; for (var i = arguments.length-1; i>=1; i--) - v544 = {car: arguments[i], cdr: - v544}; + v549 = {car: arguments[i], cdr: + v549}; return (function(){ return (l12.fvalue(pv, (function(){ - var tmp = v544; + var tmp = v549; return tmp === l3.value? l3.value: tmp.cdr; })()) !== l3.value ? l142.fvalue(values, (function(){ - var tmp = v544; + var tmp = v549; return tmp === l3.value? l3.value: tmp.car; })(), (function(){ var symbol = l169; @@ -4883,7 +4940,7 @@ l239; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l219.fvalue(pv, v544, l4.value)), "})()")); + })(), l140.fvalue(pv, l219.fvalue(pv, v549, l4.value)), "})()")); })(); })), cdr: (function(){ var symbol = l203; @@ -4891,31 +4948,31 @@ l239; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l240 = {name: "SPECIAL-VARIABLE-P"}; +var l241 = {name: "SPECIAL-VARIABLE-P"}; (function(){ - (l240).fvalue = (function(v546){ - ((v546)["fname"] = "SPECIAL-VARIABLE-P"); - return v546; - })((function (values,v545){ + (l241).fvalue = (function(v551){ + ((v551)["fname"] = "SPECIAL-VARIABLE-P"); + return v551; + })((function (values,v550){ checkArgs(arguments, 2); return (function(){ - return (l197.fvalue(pv, v545, l102, l199) !== l3.value ? l4.value : l3.value); + return (l197.fvalue(pv, v550, l102, l199) !== l3.value ? l4.value : l3.value); })(); })); - return l240; + return l241; })(); -var l241 = {name: "LET-BINDING-WRAPPER"}; +var l242 = {name: "LET-BINDING-WRAPPER"}; (function(){ - (l241).fvalue = (function(v553){ - ((v553)["fname"] = "LET-BINDING-WRAPPER"); - return v553; - })((function (values,v547,v548){ + (l242).fvalue = (function(v558){ + ((v558)["fname"] = "LET-BINDING-WRAPPER"); + return v558; + })((function (values,v552,v553){ checkArgs(arguments, 3); return (function(){ try { - (l12.fvalue(pv, v547) !== l3.value ? (function(){ + (l12.fvalue(pv, v552) !== l3.value ? (function(){ var values = mv; - throw ({type: 'block', id: 201, values: v548, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 202, values: v553, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) })() : l3.value); return l131.fvalue(values, "try {", (function(){ var symbol = l130; @@ -4927,16 +4984,16 @@ var l241 = {name: "LET-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l135.fvalue(pv, (function (values,v549){ + })(), l135.fvalue(pv, (function (values,v554){ checkArgs(arguments, 2); - return (function(v550){ - return l131.fvalue(values, "tmp = ", v550, ".value;", (function(){ + return (function(v555){ + return l131.fvalue(values, "tmp = ", v555, ".value;", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), v550, ".value = ", (function(){ - var tmp = v549; + })(), v555, ".value = ", (function(){ + var tmp = v554; return tmp === l3.value? l3.value: tmp.cdr; })(), ";", (function(){ var symbol = l130; @@ -4944,7 +5001,7 @@ var l241 = {name: "LET-BINDING-WRAPPER"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - var tmp = v549; + var tmp = v554; return tmp === l3.value? l3.value: tmp.cdr; })(), " = tmp;", (function(){ var symbol = l130; @@ -4953,10 +5010,10 @@ var l241 = {name: "LET-BINDING-WRAPPER"}; return value; })()); })(l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, (function(){ - var tmp = v549; + var tmp = v554; return tmp === l3.value? l3.value: tmp.car; })())))); - }), v547), v548, (function(){ + }), v552), v553, (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -4971,11 +5028,11 @@ var l241 = {name: "LET-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v551){ + })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v556){ checkArgs(arguments, 2); - return (function(v552){ - return l131.fvalue(values, v552, ".value", " = ", (function(){ - var tmp = v551; + return (function(v557){ + return l131.fvalue(values, v557, ".value", " = ", (function(){ + var tmp = v556; return tmp === l3.value? l3.value: tmp.cdr; })(), ";", (function(){ var symbol = l130; @@ -4984,10 +5041,10 @@ var l241 = {name: "LET-BINDING-WRAPPER"}; return value; })()); })(l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, (function(){ - var tmp = v551; + var tmp = v556; return tmp === l3.value? l3.value: tmp.car; })())))); - }), v547)), "}", (function(){ + }), v552)), "}", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -4995,39 +5052,39 @@ var l241 = {name: "LET-BINDING-WRAPPER"}; })()); } catch (cf){ - if (cf.type == 'block' && cf.id == 201) + if (cf.type == 'block' && cf.id == 202) return values.apply(this, forcemv(cf.values)); else throw cf; } })(); })); - return l241; + return l242; })(); -var l242 = {name: "LET"}; -((l203).value = ({car: l44.fvalue(pv, l242, (function (values,v555){ +var l243 = {name: "LET"}; +((l203).value = ({car: l44.fvalue(pv, l243, (function (values,v560){ checkArgsAtLeast(arguments, 2); - var v554= l3.value; + var v559= l3.value; for (var i = arguments.length-1; i>=2; i--) - v554 = {car: arguments[i], cdr: - v554}; + v559 = {car: arguments[i], cdr: + v559}; return (function(){ return (function(){ try { - var v563 = l185.value; - var v556 = l73.fvalue(pv, (function(){ + var v568 = l185.value; + var v561 = l73.fvalue(pv, (function(){ var symbol = l58; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v555); - var v557 = l73.fvalue(pv, (function(){ + })(), v560); + var v562 = l73.fvalue(pv, (function(){ var symbol = l39; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v556); - var v558 = l73.fvalue(pv, (function(){ + })(), v561); + var v563 = l73.fvalue(pv, (function(){ var symbol = l142; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; @@ -5037,31 +5094,31 @@ var l242 = {name: "LET"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v556)); + })(), v561)); ((l185).value = l189.fvalue(pv, l88.fvalue(pv, (function(){ - var symbol = l240; + var symbol = l241; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v557))); - var v559 = l3.value; - return l131.fvalue(values, "(function(", l133.fvalue(pv, l73.fvalue(pv, (function (values,v560){ + })(), v562))); + var v564 = l3.value; + return l131.fvalue(values, "(function(", l133.fvalue(pv, l73.fvalue(pv, (function (values,v565){ checkArgs(arguments, 2); - return (l240.fvalue(pv, v560) !== l3.value ? (function(v561){ - (v559 = ({car: ({car: v560, cdr: v561}), cdr: v559})); - return v561; - })(l187.fvalue(pv, v560)) : l188.fvalue(values, v560)); - }), v557), ","), "){", (function(){ + return (l241.fvalue(pv, v565) !== l3.value ? (function(v566){ + (v564 = ({car: ({car: v565, cdr: v566}), cdr: v564})); + return v566; + })(l187.fvalue(pv, v565)) : l188.fvalue(values, v565)); + }), v562), ","), "){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (function(v562){ - return l140.fvalue(pv, l241.fvalue(pv, v559, v562)); - })(l219.fvalue(pv, v554, l4.value)), "})(", l133.fvalue(pv, v558, ","), ")"); + })(), (function(v567){ + return l140.fvalue(pv, l242.fvalue(pv, v564, v567)); + })(l219.fvalue(pv, v559, l4.value)), "})(", l133.fvalue(pv, v563, ","), ")"); } finally { - l185.value = v563; + l185.value = v568; } })(); })(); @@ -5071,79 +5128,79 @@ var l242 = {name: "LET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l243 = {name: "LET*-INITIALIZE-VALUE"}; +var l244 = {name: "LET*-INITIALIZE-VALUE"}; (function(){ - (l243).fvalue = (function(v570){ - ((v570)["fname"] = "LET*-INITIALIZE-VALUE"); - return v570; - })((function (values,v564){ + (l244).fvalue = (function(v575){ + ((v575)["fname"] = "LET*-INITIALIZE-VALUE"); + return v575; + })((function (values,v569){ checkArgs(arguments, 2); return (function(){ - return (function(v565,v566){ - return (l240.fvalue(pv, v565) !== l3.value ? l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l222), l44.fvalue(pv, v565), l44.fvalue(pv, v566))), ";", (function(){ + return (function(v570,v571){ + return (l241.fvalue(pv, v570) !== l3.value ? l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l222), l44.fvalue(pv, v570), l44.fvalue(pv, v571))), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : (function(){ - var v567 = l187.fvalue(pv, v565); - var v568 = l170.fvalue(pv, v565, l102, v567); - return (function(v569){ - l180.fvalue(pv, v568, (function(){ + var v572 = l187.fvalue(pv, v570); + var v573 = l170.fvalue(pv, v570, l102, v572); + return (function(v574){ + l180.fvalue(pv, v573, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l102); - return v569; - })(l131.fvalue(pv, "var ", v567, " = ", l142.fvalue(pv, v566), ";", (function(){ + return v574; + })(l131.fvalue(pv, "var ", v572, " = ", l142.fvalue(pv, v571), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })()); - })(l39.fvalue(pv, v564),l40.fvalue(pv, v564)); + })(l39.fvalue(pv, v569),l40.fvalue(pv, v569)); })(); })); - return l243; + return l244; })(); -var l244 = {name: "LET*-BINDING-WRAPPER"}; +var l245 = {name: "LET*-BINDING-WRAPPER"}; (function(){ - (l244).fvalue = (function(v579){ - ((v579)["fname"] = "LET*-BINDING-WRAPPER"); - return v579; - })((function (values,v571,v572){ + (l245).fvalue = (function(v584){ + ((v584)["fname"] = "LET*-BINDING-WRAPPER"); + return v584; + })((function (values,v576,v577){ checkArgs(arguments, 3); return (function(){ try { - (l12.fvalue(pv, v571) !== l3.value ? (function(){ + (l12.fvalue(pv, v576) !== l3.value ? (function(){ var values = mv; - throw ({type: 'block', id: 204, values: v572, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 205, values: v577, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) })() : l3.value); - return (function(v574){ + return (function(v579){ return l131.fvalue(values, "try {", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v575){ + })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v580){ checkArgs(arguments, 2); - return (function(v576){ + return (function(v581){ return l131.fvalue(values, "var ", (function(){ - var tmp = v575; + var tmp = v580; return tmp === l3.value? l3.value: tmp.cdr; - })(), " = ", v576, ".value;", (function(){ + })(), " = ", v581, ".value;", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })(l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, (function(){ - var tmp = v575; + var tmp = v580; return tmp === l3.value? l3.value: tmp.car; })())))); - }), v574), v572), "}", (function(){ + }), v579), v577), "}", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5153,11 +5210,11 @@ var l244 = {name: "LET*-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v577){ + })(), l140.fvalue(pv, l135.fvalue(pv, (function (values,v582){ checkArgs(arguments, 2); - return (function(v578){ - return l131.fvalue(values, v578, ".value", " = ", (function(){ - var tmp = v577; + return (function(v583){ + return l131.fvalue(values, v583, ".value", " = ", (function(){ + var tmp = v582; return tmp === l3.value? l3.value: tmp.cdr; })(), ";", (function(){ var symbol = l130; @@ -5166,58 +5223,58 @@ var l244 = {name: "LET*-BINDING-WRAPPER"}; return value; })()); })(l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, (function(){ - var tmp = v577; + var tmp = v582; return tmp === l3.value? l3.value: tmp.car; })())))); - }), v574)), "}", (function(){ + }), v579)), "}", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l73.fvalue(pv, (function (values,v573){ + })(l73.fvalue(pv, (function (values,v578){ checkArgs(arguments, 2); - return ({car: v573, cdr: l187.fvalue(pv, v573)}); + return ({car: v578, cdr: l187.fvalue(pv, v578)}); }), l89.fvalue(pv, (function(){ - var symbol = l240; + var symbol = l241; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v571))); + })(), v576))); } catch (cf){ - if (cf.type == 'block' && cf.id == 204) + if (cf.type == 'block' && cf.id == 205) return values.apply(this, forcemv(cf.values)); else throw cf; } })(); })); - return l244; + return l245; })(); -var l245 = {name: "LET*"}; -((l203).value = ({car: l44.fvalue(pv, l245, (function (values,v581){ +var l246 = {name: "LET*"}; +((l203).value = ({car: l44.fvalue(pv, l246, (function (values,v586){ checkArgsAtLeast(arguments, 2); - var v580= l3.value; + var v585= l3.value; for (var i = arguments.length-1; i>=2; i--) - v580 = {car: arguments[i], cdr: - v580}; + v585 = {car: arguments[i], cdr: + v585}; return (function(){ - return (function(v582,v583){ + return (function(v587,v588){ try { var tmp; tmp = l185.value; - l185.value = v583; - v583 = tmp; + l185.value = v588; + v588 = tmp; return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, (function(v584,v585){ - return l244.fvalue(pv, v584, v585); + })(), l140.fvalue(pv, (function(v589,v590){ + return l245.fvalue(pv, v589, v590); })(l89.fvalue(pv, (function(){ - var symbol = l240; + var symbol = l241; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -5226,22 +5283,22 @@ var l245 = {name: "LET*"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v582)),l131.fvalue(pv, l135.fvalue(pv, (function(){ - var symbol = l243; + })(), v587)),l131.fvalue(pv, l135.fvalue(pv, (function(){ + var symbol = l244; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v582), l219.fvalue(pv, v580, l4.value)))), "})()"); + })(), v587), l219.fvalue(pv, v585, l4.value)))), "})()"); } finally { - l185.value = v583; + l185.value = v588; } })(l73.fvalue(pv, (function(){ var symbol = l58; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v581),l179.fvalue(pv, (function(){ + })(), v586),l179.fvalue(pv, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5254,24 +5311,24 @@ var l245 = {name: "LET*"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l246 = {name: "*BLOCK-COUNTER*"}; +var l247 = {name: "*BLOCK-COUNTER*"}; (function(){ - (((l246.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l246).value = 0)); - return l246; + (((l247.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l247).value = 0)); + return l247; })(); -var l247 = {name: "MULTIPLE-VALUE"}; -var l248 = {name: "USED"}; -((l203).value = ({car: l44.fvalue(pv, l181, (function (values,v587){ +var l248 = {name: "MULTIPLE-VALUE"}; +var l249 = {name: "USED"}; +((l203).value = ({car: l44.fvalue(pv, l181, (function (values,v592){ checkArgsAtLeast(arguments, 2); - var v586= l3.value; + var v591= l3.value; for (var i = arguments.length-1; i>=2; i--) - v586 = {car: arguments[i], cdr: - v586}; + v591 = {car: arguments[i], cdr: + v591}; return (function(){ return (function(){ - var v588 = l17.fvalue(pv, ((l246).value = (function(){ + var v593 = l17.fvalue(pv, ((l247).value = (function(){ var x1 = (function(){ - var symbol = l246; + var symbol = l247; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5281,24 +5338,24 @@ var l248 = {name: "USED"}; if (typeof x2 !== 'number') throw 'Not a number!'; return x1+x2; })())); - var v589 = l170.fvalue(pv, v587, l181, v588); + var v594 = l170.fvalue(pv, v592, l181, v593); ((function(){ var symbol = l169; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? l177.fvalue(pv, l247, v589) : l3.value); + })() !== l3.value ? l177.fvalue(pv, l248, v594) : l3.value); return (function(){ try { - var v591 = l185.value; - ((l185).value = l183.fvalue(pv, l44.fvalue(pv, v589), (function(){ + var v596 = l185.value; + ((l185).value = l183.fvalue(pv, l44.fvalue(pv, v594), (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l181)); - var v590 = l219.fvalue(pv, v586, l4.value); - return (l86.fvalue(pv, l248, l174.fvalue(pv, v589)) !== l3.value ? l131.fvalue(values, "(function(){", (function(){ + var v595 = l219.fvalue(pv, v591, l4.value); + return (l86.fvalue(pv, l249, l174.fvalue(pv, v594)) !== l3.value ? l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5308,7 +5365,7 @@ var l248 = {name: "USED"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, v590), "}", (function(){ + })(), l140.fvalue(pv, v595), "}", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5318,7 +5375,7 @@ var l248 = {name: "USED"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (cf.type == 'block' && cf.id == ", v588, ")", (function(){ + })(), " if (cf.type == 'block' && cf.id == ", v593, ")", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5353,10 +5410,10 @@ var l248 = {name: "USED"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, v590), "})()")); + })(), l140.fvalue(pv, v595), "})()")); } finally { - l185.value = v591; + l185.value = v596; } })(); })(); @@ -5367,39 +5424,39 @@ var l248 = {name: "USED"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l249 = {name: "RETURN-FROM"}; -((l203).value = ({car: l44.fvalue(pv, l249, (function (values,v592,v593){ +var l250 = {name: "RETURN-FROM"}; +((l203).value = ({car: l44.fvalue(pv, l250, (function (values,v597,v598){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); switch(arguments.length-1){ case 1: - v593=l3.value; + v598=l3.value; default: break; } return (function(){ return (function(){ - var v594 = l184.fvalue(pv, v592, (function(){ + var v599 = l184.fvalue(pv, v597, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l181); - var v595 = l86.fvalue(pv, l247, l174.fvalue(pv, v594)); - (l12.fvalue(pv, v594) !== l3.value ? (function(){ - throw l131.fvalue(pv, "Unknown block `", (v592).name, "'."); + var v600 = l86.fvalue(pv, l248, l174.fvalue(pv, v599)); + (l12.fvalue(pv, v599) !== l3.value ? (function(){ + throw l131.fvalue(pv, "Unknown block `", (v597).name, "'."); })() : l3.value); - l177.fvalue(pv, l248, v594); + l177.fvalue(pv, l249, v599); return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, (v595 !== l3.value ? l131.fvalue(pv, "var values = mv;", (function(){ + })(), l140.fvalue(pv, (v600 !== l3.value ? l131.fvalue(pv, "var values = mv;", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : ""), "throw ({", "type: 'block', ", "id: ", l173.fvalue(pv, v594), ", ", "values: ", l142.fvalue(pv, v593, v595), ", ", "message: 'Return from unknown block ", (v592).name, ".'", "})"), "})()"); + })()) : ""), "throw ({", "type: 'block', ", "id: ", l173.fvalue(pv, v599), ", ", "values: ", l142.fvalue(pv, v598, v600), ", ", "message: 'Return from unknown block ", (v597).name, ".'", "})"), "})()"); })(); })(); })), cdr: (function(){ @@ -5408,20 +5465,20 @@ var l249 = {name: "RETURN-FROM"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l250 = {name: "CATCH"}; -((l203).value = ({car: l44.fvalue(pv, l250, (function (values,v597){ +var l251 = {name: "CATCH"}; +((l203).value = ({car: l44.fvalue(pv, l251, (function (values,v602){ checkArgsAtLeast(arguments, 2); - var v596= l3.value; + var v601= l3.value; for (var i = arguments.length-1; i>=2; i--) - v596 = {car: arguments[i], cdr: - v596}; + v601 = {car: arguments[i], cdr: + v601}; return (function(){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var id = ", l142.fvalue(pv, v597), ";", (function(){ + })(), l140.fvalue(pv, "var id = ", l142.fvalue(pv, v602), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5431,7 +5488,7 @@ var l250 = {name: "CATCH"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l219.fvalue(pv, v596, l4.value)), (function(){ + })(), l140.fvalue(pv, l219.fvalue(pv, v601, l4.value)), (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5484,8 +5541,8 @@ var l250 = {name: "CATCH"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l251 = {name: "THROW"}; -((l203).value = ({car: l44.fvalue(pv, l251, (function (values,v598,v599){ +var l252 = {name: "THROW"}; +((l203).value = ({car: l44.fvalue(pv, l252, (function (values,v603,v604){ checkArgs(arguments, 3); return (function(){ return l131.fvalue(values, "(function(){", (function(){ @@ -5498,7 +5555,7 @@ var l251 = {name: "THROW"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "throw ({", "type: 'catch', ", "id: ", l142.fvalue(pv, v598), ", ", "values: ", l142.fvalue(pv, v599, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); + })(), "throw ({", "type: 'catch', ", "id: ", l142.fvalue(pv, v603), ", ", "values: ", l142.fvalue(pv, v604, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); })(); })), cdr: (function(){ var symbol = l203; @@ -5506,56 +5563,56 @@ var l251 = {name: "THROW"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l252 = {name: "*TAGBODY-COUNTER*"}; -(function(){ - (((l252.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l252).value = 0)); - return l252; -})(); -var l253 = {name: "*GO-TAG-COUNTER*"}; +var l253 = {name: "*TAGBODY-COUNTER*"}; (function(){ (((l253.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l253).value = 0)); return l253; })(); -var l254 = {name: "GO-TAG-P"}; +var l254 = {name: "*GO-TAG-COUNTER*"}; +(function(){ + (((l254.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l254).value = 0)); + return l254; +})(); +var l255 = {name: "GO-TAG-P"}; (function(){ - (l254).fvalue = (function(v602){ - ((v602)["fname"] = "GO-TAG-P"); - return v602; - })((function (values,v600){ + (l255).fvalue = (function(v607){ + ((v607)["fname"] = "GO-TAG-P"); + return v607; + })((function (values,v605){ checkArgs(arguments, 2); return (function(){ - return (function(v601){ - return (v601 !== l3.value ? v601 : ((function(){ - var tmp = v600; + return (function(v606){ + return (v606 !== l3.value ? v606 : ((function(){ + var tmp = v605; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l3.value)); - })(l79.fvalue(pv, v600)); + })(l79.fvalue(pv, v605)); })(); })); - return l254; + return l255; })(); -var l255 = {name: "DECLARE-TAGBODY-TAGS"}; +var l256 = {name: "DECLARE-TAGBODY-TAGS"}; (function(){ - (l255).fvalue = (function(v608){ - ((v608)["fname"] = "DECLARE-TAGBODY-TAGS"); - return v608; - })((function (values,v603,v604){ + (l256).fvalue = (function(v613){ + ((v613)["fname"] = "DECLARE-TAGBODY-TAGS"); + return v613; + })((function (values,v608,v609){ checkArgs(arguments, 3); return (function(){ - return (function(v607){ - return l183.fvalue(values, v607, (function(){ + return (function(v612){ + return l183.fvalue(values, v612, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l182); - })(l73.fvalue(pv, (function (values,v605){ + })(l73.fvalue(pv, (function (values,v610){ checkArgs(arguments, 2); - return (function(v606){ - return l170.fvalue(values, v605, l182, l44.fvalue(pv, v603, v606)); - })(l17.fvalue(pv, ((l253).value = (function(){ + return (function(v611){ + return l170.fvalue(values, v610, l182, l44.fvalue(pv, v608, v611)); + })(l17.fvalue(pv, ((l254).value = (function(){ var x1 = (function(){ - var symbol = l253; + var symbol = l254; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5566,46 +5623,46 @@ var l255 = {name: "DECLARE-TAGBODY-TAGS"}; return x1+x2; })()))); }), l89.fvalue(pv, (function(){ - var symbol = l254; + var symbol = l255; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v604))); + })(), v609))); })(); })); - return l255; + return l256; })(); -var l256 = {name: "TAGBODY"}; -((l203).value = ({car: l44.fvalue(pv, l256, (function (values){ - var v609= l3.value; +var l257 = {name: "TAGBODY"}; +((l203).value = ({car: l44.fvalue(pv, l257, (function (values){ + var v614= l3.value; for (var i = arguments.length-1; i>=1; i--) - v609 = {car: arguments[i], cdr: - v609}; + v614 = {car: arguments[i], cdr: + v614}; return (function(){ try { (l92.fvalue(pv, (function(){ - var symbol = l254; + var symbol = l255; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v609) !== l3.value ? l3.value : (function(){ + })(), v614) !== l3.value ? l3.value : (function(){ var values = mv; - throw ({type: 'block', id: 212, values: l142.fvalue(values, l64.fvalue(pv, l44.fvalue(pv, l237), v609, l44.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'}) + throw ({type: 'block', id: 213, values: l142.fvalue(values, l64.fvalue(pv, l44.fvalue(pv, l238), v614, l44.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'}) })()); - (l254.fvalue(pv, (function(){ - var tmp = v609; + (l255.fvalue(pv, (function(){ + var tmp = v614; return tmp === l3.value? l3.value: tmp.car; - })()) !== l3.value ? l3.value : (v609 = ({car: l16.fvalue(pv, "START"), cdr: v609}))); - return (function(v610){ - return (function(v612,v611){ + })()) !== l3.value ? l3.value : (v614 = ({car: l16.fvalue(pv, "START"), cdr: v614}))); + return (function(v615){ + return (function(v617,v616){ try { var tmp; tmp = l185.value; - l185.value = v612; - v612 = tmp; - (function(v613){ - return (v611 = l40.fvalue(pv, l173.fvalue(pv, v613))); - })(l184.fvalue(pv, l39.fvalue(pv, v609), (function(){ + l185.value = v617; + v617 = tmp; + (function(v618){ + return (v616 = l40.fvalue(pv, l173.fvalue(pv, v618))); + })(l184.fvalue(pv, l39.fvalue(pv, v614), (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5616,7 +5673,7 @@ var l256 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var tagbody_", v610, " = ", v611, ";", (function(){ + })(), l140.fvalue(pv, "var tagbody_", v615, " = ", v616, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5636,39 +5693,39 @@ var l256 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, (function(v614){ - return l131.fvalue(pv, "switch(tagbody_", v610, "){", (function(){ + })(), l140.fvalue(pv, (function(v619){ + return l131.fvalue(pv, "switch(tagbody_", v615, "){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "case ", v611, ":", (function(){ + })(), "case ", v616, ":", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - return (function(v615,v616){ + return (function(v620,v621){ (function(){ - while(v615 !== l3.value){ - (v616 = (function(){ - var tmp = v615; + while(v620 !== l3.value){ + (v621 = (function(){ + var tmp = v620; return tmp === l3.value? l3.value: tmp.car; })()); (function(){ - (v614 = l131.fvalue(pv, v614, (l27.fvalue(pv, l254.fvalue(pv, v616)) !== l3.value ? l140.fvalue(pv, l142.fvalue(pv, v616), ";", (function(){ + (v619 = l131.fvalue(pv, v619, (l27.fvalue(pv, l255.fvalue(pv, v621)) !== l3.value ? l140.fvalue(pv, l142.fvalue(pv, v621), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : (function(v617){ - return l131.fvalue(pv, "case ", l40.fvalue(pv, l173.fvalue(pv, v617)), ":", (function(){ + })()) : (function(v622){ + return l131.fvalue(pv, "case ", l40.fvalue(pv, l173.fvalue(pv, v622)), ":", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l184.fvalue(pv, v616, (function(){ + })(l184.fvalue(pv, v621, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5676,15 +5733,15 @@ var l256 = {name: "TAGBODY"}; })(), l182))))); return l3.value; })(); - (v615 = (function(){ - var tmp = v615; + (v620 = (function(){ + var tmp = v620; return tmp === l3.value? l3.value: tmp.cdr; })()); }return l3.value; })(); - return v614; + return v619; })((function(){ - var tmp = v609; + var tmp = v614; return tmp === l3.value? l3.value: tmp.cdr; })(),l3.value); })(), "default:", (function(){ @@ -5713,12 +5770,12 @@ var l256 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (jump.type == 'tagbody' && jump.id == ", v610, ")", (function(){ + })(), " if (jump.type == 'tagbody' && jump.id == ", v615, ")", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " tagbody_", v610, " = jump.label;", (function(){ + })(), " tagbody_", v615, " = jump.label;", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5751,18 +5808,18 @@ var l256 = {name: "TAGBODY"}; })()), "})()"); } finally { - l185.value = v612; + l185.value = v617; } - })(l255.fvalue(pv, v610, v609),l3.value); + })(l256.fvalue(pv, v615, v614),l3.value); })(l17.fvalue(pv, (function(){ - var symbol = l252; + var symbol = l253; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); } catch (cf){ - if (cf.type == 'block' && cf.id == 212) + if (cf.type == 'block' && cf.id == 213) return values.apply(this, forcemv(cf.values)); else throw cf; @@ -5774,33 +5831,33 @@ var l256 = {name: "TAGBODY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l257 = {name: "GO"}; -((l203).value = ({car: l44.fvalue(pv, l257, (function (values,v618){ +var l258 = {name: "GO"}; +((l203).value = ({car: l44.fvalue(pv, l258, (function (values,v623){ checkArgs(arguments, 2); return (function(){ - return (function(v619,v620){ - return (v619 !== l3.value ? l131.fvalue(values, "(function(){", (function(){ + return (function(v624,v625){ + return (v624 !== l3.value ? l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l173.fvalue(pv, v619)), ", ", "label: ", l40.fvalue(pv, l173.fvalue(pv, v619)), ", ", "message: 'Attempt to GO to non-existing tag ", v620, "'", "})", (function(){ + })(), l140.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l173.fvalue(pv, v624)), ", ", "label: ", l40.fvalue(pv, l173.fvalue(pv, v624)), ", ", "message: 'Attempt to GO to non-existing tag ", v625, "'", "})", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()") : (function(){ - throw l131.fvalue(pv, "Unknown tag `", v620, "'."); + throw l131.fvalue(pv, "Unknown tag `", v625, "'."); })()); - })(l184.fvalue(pv, v618, (function(){ + })(l184.fvalue(pv, v623, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l182),(((function(){ - var tmp = v618; + var tmp = v623; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? (v618).name : (l79.fvalue(pv, v618) !== l3.value ? l17.fvalue(pv, v618) : l3.value))); + })()?l4.value: l3.value) !== l3.value ? (v623).name : (l79.fvalue(pv, v623) !== l3.value ? l17.fvalue(pv, v623) : l3.value))); })(); })), cdr: (function(){ var symbol = l203; @@ -5808,13 +5865,13 @@ var l257 = {name: "GO"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l258 = {name: "UNWIND-PROTECT"}; -((l203).value = ({car: l44.fvalue(pv, l258, (function (values,v622){ +var l259 = {name: "UNWIND-PROTECT"}; +((l203).value = ({car: l44.fvalue(pv, l259, (function (values,v627){ checkArgsAtLeast(arguments, 2); - var v621= l3.value; + var v626= l3.value; for (var i = arguments.length-1; i>=2; i--) - v621 = {car: arguments[i], cdr: - v621}; + v626 = {car: arguments[i], cdr: + v626}; return (function(){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; @@ -5831,7 +5888,7 @@ var l258 = {name: "UNWIND-PROTECT"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "ret = ", l142.fvalue(pv, v622), ";", (function(){ + })(), l140.fvalue(pv, "ret = ", l142.fvalue(pv, v627), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5841,7 +5898,7 @@ var l258 = {name: "UNWIND-PROTECT"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l219.fvalue(pv, v621)), "}", (function(){ + })(), l140.fvalue(pv, l219.fvalue(pv, v626)), "}", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5859,20 +5916,20 @@ var l258 = {name: "UNWIND-PROTECT"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l259 = {name: "MULTIPLE-VALUE-CALL"}; -((l203).value = ({car: l44.fvalue(pv, l259, (function (values,v624){ +var l260 = {name: "MULTIPLE-VALUE-CALL"}; +((l203).value = ({car: l44.fvalue(pv, l260, (function (values,v629){ checkArgsAtLeast(arguments, 2); - var v623= l3.value; + var v628= l3.value; for (var i = arguments.length-1; i>=2; i--) - v623 = {car: arguments[i], cdr: - v623}; + v628 = {car: arguments[i], cdr: + v628}; return (function(){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var func = ", l142.fvalue(pv, v624), ";", (function(){ + })(), l140.fvalue(pv, "var func = ", l142.fvalue(pv, v629), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5902,9 +5959,9 @@ var l259 = {name: "MULTIPLE-VALUE-CALL"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l135.fvalue(pv, (function (values,v625){ + })(), l135.fvalue(pv, (function (values,v630){ checkArgs(arguments, 2); - return l131.fvalue(values, "vs = ", l142.fvalue(pv, v625, l4.value), ";", (function(){ + return l131.fvalue(values, "vs = ", l142.fvalue(pv, v630, l4.value), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5930,7 +5987,7 @@ var l259 = {name: "MULTIPLE-VALUE-CALL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); - }), v623), "return func.apply(window, args);", (function(){ + }), v628), "return func.apply(window, args);", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5948,20 +6005,20 @@ var l259 = {name: "MULTIPLE-VALUE-CALL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l260 = {name: "MULTIPLE-VALUE-PROG1"}; -((l203).value = ({car: l44.fvalue(pv, l260, (function (values,v627){ +var l261 = {name: "MULTIPLE-VALUE-PROG1"}; +((l203).value = ({car: l44.fvalue(pv, l261, (function (values,v632){ checkArgsAtLeast(arguments, 2); - var v626= l3.value; + var v631= l3.value; for (var i = arguments.length-1; i>=2; i--) - v626 = {car: arguments[i], cdr: - v626}; + v631 = {car: arguments[i], cdr: + v631}; return (function(){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var args = ", l142.fvalue(pv, v627, (function(){ + })(), l140.fvalue(pv, "var args = ", l142.fvalue(pv, v632, (function(){ var symbol = l169; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5971,7 +6028,7 @@ var l260 = {name: "MULTIPLE-VALUE-PROG1"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l219.fvalue(pv, v626), "return args;", (function(){ + })(), l219.fvalue(pv, v631), "return args;", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5984,61 +6041,61 @@ var l260 = {name: "MULTIPLE-VALUE-PROG1"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l261 = {name: "BACKQUOTE-EXPAND-1"}; +var l262 = {name: "BACKQUOTE-EXPAND-1"}; (function(){ - (l261).fvalue = (function(v630){ - ((v630)["fname"] = "BACKQUOTE-EXPAND-1"); - return v630; - })((function (values,v628){ + (l262).fvalue = (function(v635){ + ((v635)["fname"] = "BACKQUOTE-EXPAND-1"); + return v635; + })((function (values,v633){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v628; + var tmp = v633; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? l44.fvalue(values, l164, v628) : (l45.fvalue(pv, v628) !== l3.value ? v628 : ((((function(){ - var tmp = v628; + })()?l4.value: l3.value) !== l3.value ? l44.fvalue(values, l164, v633) : (l45.fvalue(pv, v633) !== l3.value ? v633 : ((((function(){ + var tmp = v633; return tmp === l3.value? l3.value: tmp.car; })() === l167)?l4.value: l3.value) !== l3.value ? (function(){ - var tmp = v628; + var tmp = v633; return tmp === l3.value? l3.value: tmp.car; })() : ((((function(){ - var tmp = v628; + var tmp = v633; return tmp === l3.value? l3.value: tmp.car; - })() === l165)?l4.value: l3.value) !== l3.value ? l261.fvalue(values, l261.fvalue(pv, l33.fvalue(pv, v628))) : ({car: l64, cdr: l73.fvalue(pv, (function (values,v629){ + })() === l165)?l4.value: l3.value) !== l3.value ? l262.fvalue(values, l262.fvalue(pv, l33.fvalue(pv, v633))) : ({car: l64, cdr: l73.fvalue(pv, (function (values,v634){ checkArgs(arguments, 2); - return ((l59.fvalue(pv, v629) !== l3.value ? (((function(){ - var tmp = v629; + return ((l59.fvalue(pv, v634) !== l3.value ? (((function(){ + var tmp = v634; return tmp === l3.value? l3.value: tmp.car; - })() === l167)?l4.value: l3.value) : l3.value) !== l3.value ? l44.fvalue(values, l44, l33.fvalue(pv, v629)) : ((l59.fvalue(pv, v629) !== l3.value ? (((function(){ - var tmp = v629; + })() === l167)?l4.value: l3.value) : l3.value) !== l3.value ? l44.fvalue(values, l44, l33.fvalue(pv, v634)) : ((l59.fvalue(pv, v634) !== l3.value ? (((function(){ + var tmp = v634; return tmp === l3.value? l3.value: tmp.car; - })() === l166)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v629) : l44.fvalue(values, l44, l261.fvalue(pv, v629)))); - }), v628)}))))); + })() === l166)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v634) : l44.fvalue(values, l44, l262.fvalue(pv, v634)))); + }), v633)}))))); })(); })); - return l261; + return l262; })(); -var l262 = {name: "BACKQUOTE-EXPAND"}; +var l263 = {name: "BACKQUOTE-EXPAND"}; (function(){ - (l262).fvalue = (function(v632){ - ((v632)["fname"] = "BACKQUOTE-EXPAND"); - return v632; - })((function (values,v631){ + (l263).fvalue = (function(v637){ + ((v637)["fname"] = "BACKQUOTE-EXPAND"); + return v637; + })((function (values,v636){ checkArgs(arguments, 2); return (function(){ - return ((l59.fvalue(pv, v631) !== l3.value ? (((function(){ - var tmp = v631; + return ((l59.fvalue(pv, v636) !== l3.value ? (((function(){ + var tmp = v636; return tmp === l3.value? l3.value: tmp.car; - })() === l165)?l4.value: l3.value) : l3.value) !== l3.value ? l261.fvalue(values, l33.fvalue(pv, v631)) : v631); + })() === l165)?l4.value: l3.value) : l3.value) !== l3.value ? l262.fvalue(values, l33.fvalue(pv, v636)) : v636); })(); })); - return l262; + return l263; })(); l165; -((l203).value = ({car: l44.fvalue(pv, l165, (function (values,v633){ +((l203).value = ({car: l44.fvalue(pv, l165, (function (values,v638){ checkArgs(arguments, 2); return (function(){ - return l142.fvalue(values, l261.fvalue(pv, v633)); + return l142.fvalue(values, l262.fvalue(pv, v638)); })(); })), cdr: (function(){ var symbol = l203; @@ -6046,56 +6103,56 @@ l165; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l263 = {name: "*BUILTINS*"}; +var l264 = {name: "*BUILTINS*"}; (function(){ - (((l263.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l263).value = l3.value)); - return l263; + (((l264.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l264).value = l3.value)); + return l264; })(); -var l264 = {name: "DEFINE-RAW-BUILTIN"}; -l264; -var l265 = {name: "DEFINE-BUILTIN"}; +var l265 = {name: "DEFINE-RAW-BUILTIN"}; l265; -var l266 = {name: "TYPE-CHECK"}; +var l266 = {name: "DEFINE-BUILTIN"}; l266; -var l267 = {name: "VARIABLE-ARITY-CALL"}; -(function(){ - (l267).fvalue = (function(v642){ - ((v642)["fname"] = "VARIABLE-ARITY-CALL"); - return v642; - })((function (values,v634,v635){ +var l267 = {name: "TYPE-CHECK"}; +l267; +var l268 = {name: "VARIABLE-ARITY-CALL"}; +(function(){ + (l268).fvalue = (function(v647){ + ((v647)["fname"] = "VARIABLE-ARITY-CALL"); + return v647; + })((function (values,v639,v640){ checkArgs(arguments, 3); return (function(){ (((function(){ - var tmp = v634; + var tmp = v639; 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(v636,v637,v638){ + return (function(v641,v642,v643){ (function(){ - return (function(v639,v640){ + return (function(v644,v645){ (function(){ - while(v639 !== l3.value){ - (v640 = (function(){ - var tmp = v639; + while(v644 !== l3.value){ + (v645 = (function(){ + var tmp = v644; return tmp === l3.value? l3.value: tmp.car; })()); (function(){ - (function(v641){ - (v637 = ({car: v641, cdr: v637})); - return (v638 = l131.fvalue(pv, v638, l131.fvalue(pv, "var ", v641, " = ", l142.fvalue(pv, v640), ";", (function(){ + (function(v646){ + (v642 = ({car: v646, cdr: v642})); + return (v643 = l131.fvalue(pv, v643, l131.fvalue(pv, "var ", v646, " = ", l142.fvalue(pv, v645), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "if (typeof ", v641, " !== 'number') throw 'Not a number!';", (function(){ + })(), "if (typeof ", v646, " !== 'number') throw 'Not a number!';", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()))); - })(l131.fvalue(pv, "x", l17.fvalue(pv, (v636 = (function(){ - var x1 = v636; + })(l131.fvalue(pv, "x", l17.fvalue(pv, (v641 = (function(){ + var x1 = v641; if (typeof x1 !== 'number') throw 'Not a number!'; var x2 = 1; if (typeof x2 !== 'number') throw 'Not a number!'; @@ -6103,34 +6160,34 @@ var l267 = {name: "VARIABLE-ARITY-CALL"}; })())))); return l3.value; })(); - (v639 = (function(){ - var tmp = v639; + (v644 = (function(){ + var tmp = v644; return tmp === l3.value? l3.value: tmp.cdr; })()); }return l3.value; })(); return l3.value; - })(v634,l3.value); + })(v639,l3.value); })(); return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, v638, (v635)(pv, l66.fvalue(pv, v637))), "})()"); + })(), l140.fvalue(pv, v643, (v640)(pv, l66.fvalue(pv, v642))), "})()"); })(0,l3,""); })(); })); - return l267; + return l268; })(); -var l268 = {name: "VARIABLE-ARITY"}; -l268; -var l269 = {name: "NUM-OP-NUM"}; +var l269 = {name: "VARIABLE-ARITY"}; +l269; +var l270 = {name: "NUM-OP-NUM"}; (function(){ - (l269).fvalue = (function(v646){ - ((v646)["fname"] = "NUM-OP-NUM"); - return v646; - })((function (values,v643,v644,v645){ + (l270).fvalue = (function(v651){ + ((v651)["fname"] = "NUM-OP-NUM"); + return v651; + })((function (values,v648,v649,v650){ checkArgs(arguments, 4); return (function(){ return l131.fvalue(values, "(function(){", (function(){ @@ -6138,12 +6195,12 @@ var l269 = {name: "NUM-OP-NUM"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v643, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v648, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l131.fvalue(pv, "var ", "y", " = ", v645, ";", (function(){ + })()), l131.fvalue(pv, "var ", "y", " = ", v650, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6168,7 +6225,7 @@ var l269 = {name: "NUM-OP-NUM"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l131.fvalue(pv, "return ", l131.fvalue(pv, "x", v644, "y"), ";", (function(){ + })())), l131.fvalue(pv, "return ", l131.fvalue(pv, "x", v649, "y"), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6176,17 +6233,17 @@ var l269 = {name: "NUM-OP-NUM"}; })())), "})()"); })(); })); - return l269; + return l270; })(); -((l263).value = ({car: l44.fvalue(pv, l61, (function (values){ - var v647= l3.value; +((l264).value = ({car: l44.fvalue(pv, l61, (function (values){ + var v652= l3.value; for (var i = arguments.length-1; i>=1; i--) - v647 = {car: arguments[i], cdr: - v647}; + v652 = {car: arguments[i], cdr: + v652}; return (function(){ - return (l12.fvalue(pv, v647) !== l3.value ? "0" : l267.fvalue(values, v647, (function (values,v648){ + return (l12.fvalue(pv, v652) !== l3.value ? "0" : l268.fvalue(values, v652, (function (values,v653){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l133.fvalue(pv, v648, "+"), ";", (function(){ + return l131.fvalue(values, "return ", l133.fvalue(pv, v653, "+"), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6195,48 +6252,48 @@ var l269 = {name: "NUM-OP-NUM"}; }))); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l62, (function (values,v650){ +((l264).value = ({car: l44.fvalue(pv, l62, (function (values,v655){ checkArgsAtLeast(arguments, 2); - var v649= l3.value; + var v654= l3.value; for (var i = arguments.length-1; i>=2; i--) - v649 = {car: arguments[i], cdr: - v649}; + v654 = {car: arguments[i], cdr: + v654}; return (function(){ - return (function(v651){ - return l267.fvalue(values, v651, (function (values,v652){ + return (function(v656){ + return l268.fvalue(values, v656, (function (values,v657){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", (l12.fvalue(pv, v649) !== l3.value ? l131.fvalue(pv, "-", (function(){ - var tmp = v652; + return l131.fvalue(values, "return ", (l12.fvalue(pv, v654) !== l3.value ? l131.fvalue(pv, "-", (function(){ + var tmp = v657; return tmp === l3.value? l3.value: tmp.car; - })()) : l133.fvalue(pv, v652, "-")), ";", (function(){ + })()) : l133.fvalue(pv, v657, "-")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v650, cdr: v649})); + })(({car: v655, cdr: v654})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l20, (function (values){ - var v653= l3.value; +((l264).value = ({car: l44.fvalue(pv, l20, (function (values){ + var v658= l3.value; for (var i = arguments.length-1; i>=1; i--) - v653 = {car: arguments[i], cdr: - v653}; + v658 = {car: arguments[i], cdr: + v658}; return (function(){ - return (l12.fvalue(pv, v653) !== l3.value ? "1" : l267.fvalue(values, v653, (function (values,v654){ + return (l12.fvalue(pv, v658) !== l3.value ? "1" : l268.fvalue(values, v658, (function (values,v659){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l133.fvalue(pv, v654, "*"), ";", (function(){ + return l131.fvalue(values, "return ", l133.fvalue(pv, v659, "*"), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6245,234 +6302,234 @@ var l269 = {name: "NUM-OP-NUM"}; }))); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l21, (function (values,v656){ +((l264).value = ({car: l44.fvalue(pv, l21, (function (values,v661){ checkArgsAtLeast(arguments, 2); - var v655= l3.value; + var v660= l3.value; for (var i = arguments.length-1; i>=2; i--) - v655 = {car: arguments[i], cdr: - v655}; + v660 = {car: arguments[i], cdr: + v660}; return (function(){ - return (function(v657){ - return l267.fvalue(values, v657, (function (values,v658){ + return (function(v662){ + return l268.fvalue(values, v662, (function (values,v663){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", (l12.fvalue(pv, v655) !== l3.value ? l131.fvalue(pv, "1 /", (function(){ - var tmp = v658; + return l131.fvalue(values, "return ", (l12.fvalue(pv, v660) !== l3.value ? l131.fvalue(pv, "1 /", (function(){ + var tmp = v663; return tmp === l3.value? l3.value: tmp.car; - })()) : l133.fvalue(pv, v658, "/")), ";", (function(){ + })()) : l133.fvalue(pv, v663, "/")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v656, cdr: v655})); + })(({car: v661, cdr: v660})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l270 = {name: "MOD"}; -((l263).value = ({car: l44.fvalue(pv, l270, (function (values,v659,v660){ +var l271 = {name: "MOD"}; +((l264).value = ({car: l44.fvalue(pv, l271, (function (values,v664,v665){ checkArgs(arguments, 3); return (function(){ - return (function(v661,v662){ - return l269.fvalue(values, v661, "%", v662); - })(l142.fvalue(pv, v659),l142.fvalue(pv, v660)); + return (function(v666,v667){ + return l270.fvalue(values, v666, "%", v667); + })(l142.fvalue(pv, v664),l142.fvalue(pv, v665)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l271 = {name: "COMPARISON-CONJUNTION"}; +var l272 = {name: "COMPARISON-CONJUNTION"}; (function(){ - (l271).fvalue = (function(v665){ - ((v665)["fname"] = "COMPARISON-CONJUNTION"); - return v665; - })((function (values,v663,v664){ + (l272).fvalue = (function(v670){ + ((v670)["fname"] = "COMPARISON-CONJUNTION"); + return v670; + })((function (values,v668,v669){ checkArgs(arguments, 3); return (function(){ return (l12.fvalue(pv, (function(){ - var tmp = v663; + var tmp = v668; return tmp === l3.value? l3.value: tmp.cdr; - })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v663)) !== l3.value ? l131.fvalue(values, (function(){ - var tmp = v663; + })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v668)) !== l3.value ? l131.fvalue(values, (function(){ + var tmp = v668; return tmp === l3.value? l3.value: tmp.car; - })(), v664, l33.fvalue(pv, v663)) : l131.fvalue(values, (function(){ - var tmp = v663; + })(), v669, l33.fvalue(pv, v668)) : l131.fvalue(values, (function(){ + var tmp = v668; return tmp === l3.value? l3.value: tmp.car; - })(), v664, l33.fvalue(pv, v663), " && ", l271.fvalue(pv, (function(){ - var tmp = v663; + })(), v669, l33.fvalue(pv, v668), " && ", l272.fvalue(pv, (function(){ + var tmp = v668; return tmp === l3.value? l3.value: tmp.cdr; - })(), v664)))); + })(), v669)))); })(); })); - return l271; + return l272; })(); -var l272 = {name: "DEFINE-BUILTIN-COMPARISON"}; -l272; -var l273 = {name: ">"}; -((l263).value = ({car: l44.fvalue(pv, l273, (function (values,v667){ +var l273 = {name: "DEFINE-BUILTIN-COMPARISON"}; +l273; +var l274 = {name: ">"}; +((l264).value = ({car: l44.fvalue(pv, l274, (function (values,v672){ checkArgsAtLeast(arguments, 2); - var v666= l3.value; + var v671= l3.value; for (var i = arguments.length-1; i>=2; i--) - v666 = {car: arguments[i], cdr: - v666}; + v671 = {car: arguments[i], cdr: + v671}; return (function(){ - return (function(v668){ - return l267.fvalue(values, v668, (function (values,v669){ + return (function(v673){ + return l268.fvalue(values, v673, (function (values,v674){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l141.fvalue(pv, l271.fvalue(pv, v669, ">")), ";", (function(){ + return l131.fvalue(values, "return ", l141.fvalue(pv, l272.fvalue(pv, v674, ">")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v667, cdr: v666})); + })(({car: v672, cdr: v671})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l274 = {name: "<"}; -((l263).value = ({car: l44.fvalue(pv, l274, (function (values,v671){ +var l275 = {name: "<"}; +((l264).value = ({car: l44.fvalue(pv, l275, (function (values,v676){ checkArgsAtLeast(arguments, 2); - var v670= l3.value; + var v675= l3.value; for (var i = arguments.length-1; i>=2; i--) - v670 = {car: arguments[i], cdr: - v670}; + v675 = {car: arguments[i], cdr: + v675}; return (function(){ - return (function(v672){ - return l267.fvalue(values, v672, (function (values,v673){ + return (function(v677){ + return l268.fvalue(values, v677, (function (values,v678){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l141.fvalue(pv, l271.fvalue(pv, v673, "<")), ";", (function(){ + return l131.fvalue(values, "return ", l141.fvalue(pv, l272.fvalue(pv, v678, "<")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v671, cdr: v670})); + })(({car: v676, cdr: v675})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l275 = {name: ">="}; -((l263).value = ({car: l44.fvalue(pv, l275, (function (values,v675){ +var l276 = {name: ">="}; +((l264).value = ({car: l44.fvalue(pv, l276, (function (values,v680){ checkArgsAtLeast(arguments, 2); - var v674= l3.value; + var v679= l3.value; for (var i = arguments.length-1; i>=2; i--) - v674 = {car: arguments[i], cdr: - v674}; + v679 = {car: arguments[i], cdr: + v679}; return (function(){ - return (function(v676){ - return l267.fvalue(values, v676, (function (values,v677){ + return (function(v681){ + return l268.fvalue(values, v681, (function (values,v682){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l141.fvalue(pv, l271.fvalue(pv, v677, ">=")), ";", (function(){ + return l131.fvalue(values, "return ", l141.fvalue(pv, l272.fvalue(pv, v682, ">=")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v675, cdr: v674})); + })(({car: v680, cdr: v679})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l276 = {name: "<="}; -((l263).value = ({car: l44.fvalue(pv, l276, (function (values,v679){ +var l277 = {name: "<="}; +((l264).value = ({car: l44.fvalue(pv, l277, (function (values,v684){ checkArgsAtLeast(arguments, 2); - var v678= l3.value; + var v683= l3.value; for (var i = arguments.length-1; i>=2; i--) - v678 = {car: arguments[i], cdr: - v678}; + v683 = {car: arguments[i], cdr: + v683}; return (function(){ - return (function(v680){ - return l267.fvalue(values, v680, (function (values,v681){ + return (function(v685){ + return l268.fvalue(values, v685, (function (values,v686){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l141.fvalue(pv, l271.fvalue(pv, v681, "<=")), ";", (function(){ + return l131.fvalue(values, "return ", l141.fvalue(pv, l272.fvalue(pv, v686, "<=")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v679, cdr: v678})); + })(({car: v684, cdr: v683})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l19, (function (values,v683){ +((l264).value = ({car: l44.fvalue(pv, l19, (function (values,v688){ checkArgsAtLeast(arguments, 2); - var v682= l3.value; + var v687= l3.value; for (var i = arguments.length-1; i>=2; i--) - v682 = {car: arguments[i], cdr: - v682}; + v687 = {car: arguments[i], cdr: + v687}; return (function(){ - return (function(v684){ - return l267.fvalue(values, v684, (function (values,v685){ + return (function(v689){ + return l268.fvalue(values, v689, (function (values,v690){ checkArgs(arguments, 2); - return l131.fvalue(values, "return ", l141.fvalue(pv, l271.fvalue(pv, v685, "==")), ";", (function(){ + return l131.fvalue(values, "return ", l141.fvalue(pv, l272.fvalue(pv, v690, "==")), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v683, cdr: v682})); + })(({car: v688, cdr: v687})); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l277 = {name: "NUMBERP"}; -((l263).value = ({car: l44.fvalue(pv, l277, (function (values,v686){ +var l278 = {name: "NUMBERP"}; +((l264).value = ({car: l44.fvalue(pv, l278, (function (values,v691){ checkArgs(arguments, 2); return (function(){ - return (function(v687){ - return l141.fvalue(values, l131.fvalue(pv, "(typeof (", v687, ") == \"number\")")); - })(l142.fvalue(pv, v686)); + return (function(v692){ + return l141.fvalue(values, l131.fvalue(pv, "(typeof (", v692, ") == \"number\")")); + })(l142.fvalue(pv, v691)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l278 = {name: "FLOOR"}; -((l263).value = ({car: l44.fvalue(pv, l278, (function (values,v688){ +var l279 = {name: "FLOOR"}; +((l264).value = ({car: l44.fvalue(pv, l279, (function (values,v693){ checkArgs(arguments, 2); return (function(){ - return (function(v689){ + return (function(v694){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v689, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v694, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6493,37 +6550,37 @@ var l278 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v688)); + })(l142.fvalue(pv, v693)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l28, (function (values,v690,v691){ +((l264).value = ({car: l44.fvalue(pv, l28, (function (values,v695,v696){ checkArgs(arguments, 3); return (function(){ - return (function(v692,v693){ - return l131.fvalue(values, "({car: ", v692, ", cdr: ", v693, "})"); - })(l142.fvalue(pv, v690),l142.fvalue(pv, v691)); + return (function(v697,v698){ + return l131.fvalue(values, "({car: ", v697, ", cdr: ", v698, "})"); + })(l142.fvalue(pv, v695),l142.fvalue(pv, v696)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l29, (function (values,v694){ +((l264).value = ({car: l44.fvalue(pv, l29, (function (values,v699){ checkArgs(arguments, 2); return (function(){ - return (function(v695){ + return (function(v700){ return l141.fvalue(values, l131.fvalue(pv, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var tmp = ", v695, ";", (function(){ + })(), l140.fvalue(pv, "var tmp = ", v700, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6534,24 +6591,24 @@ var l278 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l142.fvalue(pv, v694)); + })(l142.fvalue(pv, v699)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l30, (function (values,v696){ +((l264).value = ({car: l44.fvalue(pv, l30, (function (values,v701){ checkArgs(arguments, 2); return (function(){ - return (function(v697){ + return (function(v702){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var tmp = ", v697, ";", (function(){ + })(), l140.fvalue(pv, "var tmp = ", v702, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6562,24 +6619,24 @@ var l278 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v696)); + })(l142.fvalue(pv, v701)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l31, (function (values,v698){ +((l264).value = ({car: l44.fvalue(pv, l31, (function (values,v703){ checkArgs(arguments, 2); return (function(){ - return (function(v699){ + return (function(v704){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var tmp = ", v699, ";", (function(){ + })(), l140.fvalue(pv, "var tmp = ", v704, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6590,25 +6647,25 @@ var l278 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v698)); + })(l142.fvalue(pv, v703)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l279 = {name: "RPLACA"}; -((l263).value = ({car: l44.fvalue(pv, l279, (function (values,v700,v701){ +var l280 = {name: "RPLACA"}; +((l264).value = ({car: l44.fvalue(pv, l280, (function (values,v705,v706){ checkArgs(arguments, 3); return (function(){ - return (function(v702,v703){ + return (function(v707,v708){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v702, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v707, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6623,31 +6680,31 @@ var l279 = {name: "RPLACA"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l131.fvalue(pv, "return ", l131.fvalue(pv, "(x.car = ", v703, ", x)"), ";", (function(){ + })())), l131.fvalue(pv, "return ", l131.fvalue(pv, "(x.car = ", v708, ", x)"), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v700),l142.fvalue(pv, v701)); + })(l142.fvalue(pv, v705),l142.fvalue(pv, v706)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l280 = {name: "RPLACD"}; -((l263).value = ({car: l44.fvalue(pv, l280, (function (values,v704,v705){ +var l281 = {name: "RPLACD"}; +((l264).value = ({car: l44.fvalue(pv, l281, (function (values,v709,v710){ checkArgs(arguments, 3); return (function(){ - return (function(v706,v707){ + return (function(v711,v712){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v706, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v711, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6662,31 +6719,31 @@ var l280 = {name: "RPLACD"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l131.fvalue(pv, "return ", l131.fvalue(pv, "(x.cdr = ", v707, ", x)"), ";", (function(){ + })())), l131.fvalue(pv, "return ", l131.fvalue(pv, "(x.cdr = ", v712, ", x)"), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v704),l142.fvalue(pv, v705)); + })(l142.fvalue(pv, v709),l142.fvalue(pv, v710)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l281 = {name: "SYMBOLP"}; -((l263).value = ({car: l44.fvalue(pv, l281, (function (values,v708){ +var l282 = {name: "SYMBOLP"}; +((l264).value = ({car: l44.fvalue(pv, l282, (function (values,v713){ checkArgs(arguments, 2); return (function(){ - return (function(v709){ + return (function(v714){ return l141.fvalue(values, l131.fvalue(pv, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var tmp = ", v709, ";", (function(){ + })(), l140.fvalue(pv, "var tmp = ", v714, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6697,25 +6754,25 @@ var l281 = {name: "SYMBOLP"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l142.fvalue(pv, v708)); + })(l142.fvalue(pv, v713)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l282 = {name: "MAKE-SYMBOL"}; -((l263).value = ({car: l44.fvalue(pv, l282, (function (values,v710){ +var l283 = {name: "MAKE-SYMBOL"}; +((l264).value = ({car: l44.fvalue(pv, l283, (function (values,v715){ checkArgs(arguments, 2); return (function(){ - return (function(v711){ + return (function(v716){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "name", " = ", v711, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "name", " = ", v716, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6736,79 +6793,79 @@ var l282 = {name: "MAKE-SYMBOL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v710)); + })(l142.fvalue(pv, v715)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l283 = {name: "SYMBOL-NAME"}; -((l263).value = ({car: l44.fvalue(pv, l283, (function (values,v712){ +var l284 = {name: "SYMBOL-NAME"}; +((l264).value = ({car: l44.fvalue(pv, l284, (function (values,v717){ checkArgs(arguments, 2); return (function(){ - return (function(v713){ - return l131.fvalue(values, "(", v713, ").name"); - })(l142.fvalue(pv, v712)); + return (function(v718){ + return l131.fvalue(values, "(", v718, ").name"); + })(l142.fvalue(pv, v717)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l221, (function (values,v714,v715){ +((l264).value = ({car: l44.fvalue(pv, l221, (function (values,v719,v720){ checkArgs(arguments, 3); return (function(){ - return (function(v716,v717){ - return l131.fvalue(values, "(", v716, ").value = ", v717); - })(l142.fvalue(pv, v714),l142.fvalue(pv, v715)); + return (function(v721,v722){ + return l131.fvalue(values, "(", v721, ").value = ", v722); + })(l142.fvalue(pv, v719),l142.fvalue(pv, v720)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l284 = {name: "FSET"}; -((l263).value = ({car: l44.fvalue(pv, l284, (function (values,v718,v719){ +var l285 = {name: "FSET"}; +((l264).value = ({car: l44.fvalue(pv, l285, (function (values,v723,v724){ checkArgs(arguments, 3); return (function(){ - return (function(v720,v721){ - return l131.fvalue(values, "(", v720, ").fvalue = ", v721); - })(l142.fvalue(pv, v718),l142.fvalue(pv, v719)); + return (function(v725,v726){ + return l131.fvalue(values, "(", v725, ").fvalue = ", v726); + })(l142.fvalue(pv, v723),l142.fvalue(pv, v724)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l18, (function (values,v722){ +((l264).value = ({car: l44.fvalue(pv, l18, (function (values,v727){ checkArgs(arguments, 2); return (function(){ - return (function(v723){ - return l141.fvalue(values, l131.fvalue(pv, "(", v723, ".value !== undefined)")); - })(l142.fvalue(pv, v722)); + return (function(v728){ + return l141.fvalue(values, l131.fvalue(pv, "(", v728, ".value !== undefined)")); + })(l142.fvalue(pv, v727)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l285 = {name: "SYMBOL-VALUE"}; -((l263).value = ({car: l44.fvalue(pv, l285, (function (values,v724){ +var l286 = {name: "SYMBOL-VALUE"}; +((l264).value = ({car: l44.fvalue(pv, l286, (function (values,v729){ checkArgs(arguments, 2); return (function(){ - return (function(v725){ + return (function(v730){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var symbol = ", v725, ";", (function(){ + })(), l140.fvalue(pv, "var symbol = ", v730, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6829,24 +6886,24 @@ var l285 = {name: "SYMBOL-VALUE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v724)); + })(l142.fvalue(pv, v729)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l230, (function (values,v726){ +((l264).value = ({car: l44.fvalue(pv, l230, (function (values,v731){ checkArgs(arguments, 2); return (function(){ - return (function(v727){ + return (function(v732){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var symbol = ", v727, ";", (function(){ + })(), l140.fvalue(pv, "var symbol = ", v732, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6867,81 +6924,81 @@ var l285 = {name: "SYMBOL-VALUE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v726)); + })(l142.fvalue(pv, v731)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l286 = {name: "SYMBOL-PLIST"}; -((l263).value = ({car: l44.fvalue(pv, l286, (function (values,v728){ +var l287 = {name: "SYMBOL-PLIST"}; +((l264).value = ({car: l44.fvalue(pv, l287, (function (values,v733){ checkArgs(arguments, 2); return (function(){ - return (function(v729){ - return l131.fvalue(values, "((", v729, ").plist || ", l142.fvalue(pv, l3.value), ")"); - })(l142.fvalue(pv, v728)); + return (function(v734){ + return l131.fvalue(values, "((", v734, ").plist || ", l142.fvalue(pv, l3.value), ")"); + })(l142.fvalue(pv, v733)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l287 = {name: "LAMBDA-CODE"}; -((l263).value = ({car: l44.fvalue(pv, l287, (function (values,v730){ +var l288 = {name: "LAMBDA-CODE"}; +((l264).value = ({car: l44.fvalue(pv, l288, (function (values,v735){ checkArgs(arguments, 2); return (function(){ - return (function(v731){ - return l131.fvalue(values, "(", v731, ").toString()"); - })(l142.fvalue(pv, v730)); + return (function(v736){ + return l131.fvalue(values, "(", v736, ").toString()"); + })(l142.fvalue(pv, v735)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l288 = {name: "EQ"}; -((l263).value = ({car: l44.fvalue(pv, l288, (function (values,v732,v733){ +var l289 = {name: "EQ"}; +((l264).value = ({car: l44.fvalue(pv, l289, (function (values,v737,v738){ checkArgs(arguments, 3); return (function(){ - return (function(v734,v735){ - return l141.fvalue(values, l131.fvalue(pv, "(", v734, " === ", v735, ")")); - })(l142.fvalue(pv, v732),l142.fvalue(pv, v733)); + return (function(v739,v740){ + return l141.fvalue(values, l131.fvalue(pv, "(", v739, " === ", v740, ")")); + })(l142.fvalue(pv, v737),l142.fvalue(pv, v738)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l289 = {name: "EQUAL"}; -((l263).value = ({car: l44.fvalue(pv, l289, (function (values,v736,v737){ +var l290 = {name: "EQUAL"}; +((l264).value = ({car: l44.fvalue(pv, l290, (function (values,v741,v742){ checkArgs(arguments, 3); return (function(){ - return (function(v738,v739){ - return l141.fvalue(values, l131.fvalue(pv, "(", v738, " == ", v739, ")")); - })(l142.fvalue(pv, v736),l142.fvalue(pv, v737)); + return (function(v743,v744){ + return l141.fvalue(values, l131.fvalue(pv, "(", v743, " == ", v744, ")")); + })(l142.fvalue(pv, v741),l142.fvalue(pv, v742)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l290 = {name: "CHAR-TO-STRING"}; -((l263).value = ({car: l44.fvalue(pv, l290, (function (values,v740){ +var l291 = {name: "CHAR-TO-STRING"}; +((l264).value = ({car: l44.fvalue(pv, l291, (function (values,v745){ checkArgs(arguments, 2); return (function(){ - return (function(v741){ + return (function(v746){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v741, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v746, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6962,39 +7019,39 @@ var l290 = {name: "CHAR-TO-STRING"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v740)); + })(l142.fvalue(pv, v745)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l291 = {name: "STRINGP"}; -((l263).value = ({car: l44.fvalue(pv, l291, (function (values,v742){ +var l292 = {name: "STRINGP"}; +((l264).value = ({car: l44.fvalue(pv, l292, (function (values,v747){ checkArgs(arguments, 2); return (function(){ - return (function(v743){ - return l141.fvalue(values, l131.fvalue(pv, "(typeof(", v743, ") == \"string\")")); - })(l142.fvalue(pv, v742)); + return (function(v748){ + return l141.fvalue(values, l131.fvalue(pv, "(typeof(", v748, ") == \"string\")")); + })(l142.fvalue(pv, v747)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l292 = {name: "STRING-UPCASE"}; -((l263).value = ({car: l44.fvalue(pv, l292, (function (values,v744){ +var l293 = {name: "STRING-UPCASE"}; +((l264).value = ({car: l44.fvalue(pv, l293, (function (values,v749){ checkArgs(arguments, 2); return (function(){ - return (function(v745){ + return (function(v750){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v745, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v750, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7015,25 +7072,25 @@ var l292 = {name: "STRING-UPCASE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v744)); + })(l142.fvalue(pv, v749)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l293 = {name: "STRING-LENGTH"}; -((l263).value = ({car: l44.fvalue(pv, l293, (function (values,v746){ +var l294 = {name: "STRING-LENGTH"}; +((l264).value = ({car: l44.fvalue(pv, l294, (function (values,v751){ checkArgs(arguments, 2); return (function(){ - return (function(v747){ + return (function(v752){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v747, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v752, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7054,21 +7111,21 @@ var l293 = {name: "STRING-LENGTH"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v746)); + })(l142.fvalue(pv, v751)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l294 = {name: "SLICE"}; -((l263).value = ({car: l44.fvalue(pv, l294, (function (values,v748,v749,v750){ +var l295 = {name: "SLICE"}; +((l264).value = ({car: l44.fvalue(pv, l295, (function (values,v753,v754,v755){ checkArgsAtLeast(arguments, 3); checkArgsAtMost(arguments, 4); switch(arguments.length-1){ case 2: - v750=l3.value; + v755=l3.value; default: break; } return (function(){ @@ -7077,12 +7134,12 @@ var l294 = {name: "SLICE"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var str = ", l142.fvalue(pv, v748), ";", (function(){ + })(), l140.fvalue(pv, "var str = ", l142.fvalue(pv, v753), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var a = ", l142.fvalue(pv, v749), ";", (function(){ + })(), "var a = ", l142.fvalue(pv, v754), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7092,7 +7149,7 @@ var l294 = {name: "SLICE"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (v750 !== l3.value ? l131.fvalue(pv, "b = ", l142.fvalue(pv, v750), ";", (function(){ + })(), (v755 !== l3.value ? l131.fvalue(pv, "b = ", l142.fvalue(pv, v755), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7105,27 +7162,27 @@ var l294 = {name: "SLICE"}; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l295 = {name: "CHAR"}; -((l263).value = ({car: l44.fvalue(pv, l295, (function (values,v751,v752){ +var l296 = {name: "CHAR"}; +((l264).value = ({car: l44.fvalue(pv, l296, (function (values,v756,v757){ checkArgs(arguments, 3); return (function(){ - return (function(v753,v754){ + return (function(v758,v759){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "string", " = ", v753, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "string", " = ", v758, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l131.fvalue(pv, "var ", "index", " = ", v754, ";", (function(){ + })()), l131.fvalue(pv, "var ", "index", " = ", v759, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7156,29 +7213,29 @@ var l295 = {name: "CHAR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v751),l142.fvalue(pv, v752)); + })(l142.fvalue(pv, v756),l142.fvalue(pv, v757)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l72, (function (values,v755,v756){ +((l264).value = ({car: l44.fvalue(pv, l72, (function (values,v760,v761){ checkArgs(arguments, 3); return (function(){ - return (function(v757,v758){ + return (function(v762,v763){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "string1", " = ", v757, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "string1", " = ", v762, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l131.fvalue(pv, "var ", "string2", " = ", v758, ";", (function(){ + })()), l131.fvalue(pv, "var ", "string2", " = ", v763, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7209,23 +7266,23 @@ var l295 = {name: "CHAR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v755),l142.fvalue(pv, v756)); + })(l142.fvalue(pv, v760),l142.fvalue(pv, v761)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l296 = {name: "FUNCALL"}; -((l263).value = ({car: l44.fvalue(pv, l296, (function (values,v760){ +var l297 = {name: "FUNCALL"}; +((l264).value = ({car: l44.fvalue(pv, l297, (function (values,v765){ checkArgsAtLeast(arguments, 2); - var v759= l3.value; + var v764= l3.value; for (var i = arguments.length-1; i>=2; i--) - v759 = {car: arguments[i], cdr: - v759}; + v764 = {car: arguments[i], cdr: + v764}; return (function(){ - return l131.fvalue(values, "(", l142.fvalue(pv, v760), ")(", l133.fvalue(pv, ({car: ((function(){ + return l131.fvalue(values, "(", l142.fvalue(pv, v765), ")(", l133.fvalue(pv, ({car: ((function(){ var symbol = l169; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7235,29 +7292,29 @@ var l296 = {name: "FUNCALL"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v759)}), ", "), ")"); + })(), v764)}), ", "), ")"); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l297 = {name: "APPLY"}; -((l263).value = ({car: l44.fvalue(pv, l297, (function (values,v762){ +var l298 = {name: "APPLY"}; +((l264).value = ({car: l44.fvalue(pv, l298, (function (values,v767){ checkArgsAtLeast(arguments, 2); - var v761= l3.value; + var v766= l3.value; for (var i = arguments.length-1; i>=2; i--) - v761 = {car: arguments[i], cdr: - v761}; + v766 = {car: arguments[i], cdr: + v766}; return (function(){ - return (l12.fvalue(pv, v761) !== l3.value ? l131.fvalue(values, "(", l142.fvalue(pv, v762), ")()") : (function(v763,v764){ + return (l12.fvalue(pv, v766) !== l3.value ? l131.fvalue(values, "(", l142.fvalue(pv, v767), ")()") : (function(v768,v769){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var f = ", l142.fvalue(pv, v762), ";", (function(){ + })(), l140.fvalue(pv, "var f = ", l142.fvalue(pv, v767), ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7272,12 +7329,12 @@ var l297 = {name: "APPLY"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v763)}), ", "), "];", (function(){ + })(), v768)}), ", "), "];", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var tail = (", l142.fvalue(pv, v764), ");", (function(){ + })(), "var tail = (", l142.fvalue(pv, v769), ");", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7308,28 +7365,28 @@ var l297 = {name: "APPLY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l85.fvalue(pv, v761),(function(){ - var tmp = l84.fvalue(pv, v761); + })(l85.fvalue(pv, v766),(function(){ + var tmp = l84.fvalue(pv, v766); return tmp === l3.value? l3.value: tmp.car; })())); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l298 = {name: "JS-EVAL"}; -((l263).value = ({car: l44.fvalue(pv, l298, (function (values,v765){ +var l299 = {name: "JS-EVAL"}; +((l264).value = ({car: l44.fvalue(pv, l299, (function (values,v770){ checkArgs(arguments, 2); return (function(){ - return (function(v766){ + return (function(v771){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "string", " = ", v766, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "string", " = ", v771, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7390,40 +7447,40 @@ var l298 = {name: "JS-EVAL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v765)); + })(l142.fvalue(pv, v770)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l299 = {name: "ERROR"}; -((l263).value = ({car: l44.fvalue(pv, l299, (function (values,v767){ +var l300 = {name: "ERROR"}; +((l264).value = ({car: l44.fvalue(pv, l300, (function (values,v772){ checkArgs(arguments, 2); return (function(){ - return (function(v768){ + return (function(v773){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "throw ", v768, ";", (function(){ + })(), l140.fvalue(pv, "throw ", v773, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v767)); + })(l142.fvalue(pv, v772)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l300 = {name: "NEW"}; -((l263).value = ({car: l44.fvalue(pv, l300, (function (values){ +var l301 = {name: "NEW"}; +((l264).value = ({car: l44.fvalue(pv, l301, (function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ @@ -7431,36 +7488,36 @@ var l300 = {name: "NEW"}; })(); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l301 = {name: "OBJECTP"}; -((l263).value = ({car: l44.fvalue(pv, l301, (function (values,v769){ +var l302 = {name: "OBJECTP"}; +((l264).value = ({car: l44.fvalue(pv, l302, (function (values,v774){ checkArgs(arguments, 2); return (function(){ - return (function(v770){ - return l141.fvalue(values, l131.fvalue(pv, "(typeof (", v770, ") === 'object')")); - })(l142.fvalue(pv, v769)); + return (function(v775){ + return l141.fvalue(values, l131.fvalue(pv, "(typeof (", v775, ") === 'object')")); + })(l142.fvalue(pv, v774)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l302 = {name: "OGET"}; -((l263).value = ({car: l44.fvalue(pv, l302, (function (values,v771,v772){ +var l303 = {name: "OGET"}; +((l264).value = ({car: l44.fvalue(pv, l303, (function (values,v776,v777){ checkArgs(arguments, 3); return (function(){ - return (function(v773,v774){ + return (function(v778,v779){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var tmp = ", "(", v773, ")[", v774, "];", (function(){ + })(), l140.fvalue(pv, "var tmp = ", "(", v778, ")[", v779, "];", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7471,67 +7528,67 @@ var l302 = {name: "OGET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v771),l142.fvalue(pv, v772)); + })(l142.fvalue(pv, v776),l142.fvalue(pv, v777)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l303 = {name: "OSET"}; -((l263).value = ({car: l44.fvalue(pv, l303, (function (values,v775,v776,v777){ +var l304 = {name: "OSET"}; +((l264).value = ({car: l44.fvalue(pv, l304, (function (values,v780,v781,v782){ checkArgs(arguments, 4); return (function(){ - return (function(v778,v779,v780){ - return l131.fvalue(values, "((", v778, ")[", v779, "] = ", v780, ")"); - })(l142.fvalue(pv, v775),l142.fvalue(pv, v776),l142.fvalue(pv, v777)); + return (function(v783,v784,v785){ + return l131.fvalue(values, "((", v783, ")[", v784, "] = ", v785, ")"); + })(l142.fvalue(pv, v780),l142.fvalue(pv, v781),l142.fvalue(pv, v782)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l304 = {name: "IN"}; -((l263).value = ({car: l44.fvalue(pv, l304, (function (values,v781,v782){ +var l305 = {name: "IN"}; +((l264).value = ({car: l44.fvalue(pv, l305, (function (values,v786,v787){ checkArgs(arguments, 3); return (function(){ - return (function(v783,v784){ - return l141.fvalue(values, l131.fvalue(pv, "((", v783, ") in (", v784, "))")); - })(l142.fvalue(pv, v781),l142.fvalue(pv, v782)); + return (function(v788,v789){ + return l141.fvalue(values, l131.fvalue(pv, "((", v788, ") in (", v789, "))")); + })(l142.fvalue(pv, v786),l142.fvalue(pv, v787)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l305 = {name: "FUNCTIONP"}; -((l263).value = ({car: l44.fvalue(pv, l305, (function (values,v785){ +var l306 = {name: "FUNCTIONP"}; +((l264).value = ({car: l44.fvalue(pv, l306, (function (values,v790){ checkArgs(arguments, 2); return (function(){ - return (function(v786){ - return l141.fvalue(values, l131.fvalue(pv, "(typeof ", v786, " == 'function')")); - })(l142.fvalue(pv, v785)); + return (function(v791){ + return l141.fvalue(values, l131.fvalue(pv, "(typeof ", v791, " == 'function')")); + })(l142.fvalue(pv, v790)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l306 = {name: "WRITE-STRING"}; -((l263).value = ({car: l44.fvalue(pv, l306, (function (values,v787){ +var l307 = {name: "WRITE-STRING"}; +((l264).value = ({car: l44.fvalue(pv, l307, (function (values,v792){ checkArgs(arguments, 2); return (function(){ - return (function(v788){ + return (function(v793){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v788, ";", (function(){ + })(), l140.fvalue(pv, l131.fvalue(pv, "var ", "x", " = ", v793, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7552,19 +7609,19 @@ var l306 = {name: "WRITE-STRING"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l142.fvalue(pv, v787)); + })(l142.fvalue(pv, v792)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l307 = {name: "MAKE-ARRAY"}; -((l263).value = ({car: l44.fvalue(pv, l307, (function (values,v789){ +var l308 = {name: "MAKE-ARRAY"}; +((l264).value = ({car: l44.fvalue(pv, l308, (function (values,v794){ checkArgs(arguments, 2); return (function(){ - return (function(v790){ + return (function(v795){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; @@ -7575,7 +7632,7 @@ var l307 = {name: "MAKE-ARRAY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "for (var i = 0; i < ", v790, "; i++)", (function(){ + })(), "for (var i = 0; i < ", v795, "; i++)", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7591,49 +7648,49 @@ var l307 = {name: "MAKE-ARRAY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v789)); + })(l142.fvalue(pv, v794)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l308 = {name: "ARRAYP"}; -((l263).value = ({car: l44.fvalue(pv, l308, (function (values,v791){ +var l309 = {name: "ARRAYP"}; +((l264).value = ({car: l44.fvalue(pv, l309, (function (values,v796){ checkArgs(arguments, 2); return (function(){ - return (function(v792){ + return (function(v797){ return l141.fvalue(values, l131.fvalue(pv, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var x = ", v792, ";", (function(){ + })(), l140.fvalue(pv, "var x = ", v797, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return typeof x === 'object' && 'length' in x;"), "})()")); - })(l142.fvalue(pv, v791)); + })(l142.fvalue(pv, v796)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l309 = {name: "AREF"}; -((l263).value = ({car: l44.fvalue(pv, l309, (function (values,v793,v794){ +var l310 = {name: "AREF"}; +((l264).value = ({car: l44.fvalue(pv, l310, (function (values,v798,v799){ checkArgs(arguments, 3); return (function(){ - return (function(v795,v796){ + return (function(v800,v801){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var x = ", "(", v795, ")[", v796, "];", (function(){ + })(), l140.fvalue(pv, "var x = ", "(", v800, ")[", v801, "];", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7649,30 +7706,30 @@ var l309 = {name: "AREF"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v793),l142.fvalue(pv, v794)); + })(l142.fvalue(pv, v798),l142.fvalue(pv, v799)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l310 = {name: "ASET"}; -((l263).value = ({car: l44.fvalue(pv, l310, (function (values,v797,v798,v799){ +var l311 = {name: "ASET"}; +((l264).value = ({car: l44.fvalue(pv, l311, (function (values,v802,v803,v804){ checkArgs(arguments, 4); return (function(){ - return (function(v800,v801,v802){ + return (function(v805,v806,v807){ return l131.fvalue(values, "(function(){", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l140.fvalue(pv, "var x = ", v800, ";", (function(){ + })(), l140.fvalue(pv, "var x = ", v805, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var i = ", v801, ";", (function(){ + })(), "var i = ", v806, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7682,22 +7739,22 @@ var l310 = {name: "ASET"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return x[i] = ", v802, ";", (function(){ + })(), "return x[i] = ", v807, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l142.fvalue(pv, v797),l142.fvalue(pv, v798),l142.fvalue(pv, v799)); + })(l142.fvalue(pv, v802),l142.fvalue(pv, v803),l142.fvalue(pv, v804)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l311 = {name: "GET-UNIX-TIME"}; -((l263).value = ({car: l44.fvalue(pv, l311, (function (values){ +var l312 = {name: "GET-UNIX-TIME"}; +((l264).value = ({car: l44.fvalue(pv, l312, (function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ @@ -7705,35 +7762,35 @@ var l311 = {name: "GET-UNIX-TIME"}; })(); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l312 = {name: "VALUES-ARRAY"}; -((l263).value = ({car: l44.fvalue(pv, l312, (function (values,v803){ +var l313 = {name: "VALUES-ARRAY"}; +((l264).value = ({car: l44.fvalue(pv, l313, (function (values,v808){ checkArgs(arguments, 2); return (function(){ - return (function(v804){ + return (function(v809){ return ((function(){ var symbol = l169; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l3.value ? l131.fvalue(values, "values.apply(this, ", v804, ")") : l131.fvalue(values, "pv.apply(this, ", v804, ")")); - })(l142.fvalue(pv, v803)); + })() !== l3.value ? l131.fvalue(values, "values.apply(this, ", v809, ")") : l131.fvalue(values, "pv.apply(this, ", v809, ")")); + })(l142.fvalue(pv, v808)); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l263).value = ({car: l44.fvalue(pv, l139, (function (values){ - var v805= l3.value; +((l264).value = ({car: l44.fvalue(pv, l139, (function (values){ + var v810= l3.value; for (var i = arguments.length-1; i>=1; i--) - v805 = {car: arguments[i], cdr: - v805}; + v810 = {car: arguments[i], cdr: + v810}; return (function(){ return ((function(){ var symbol = l169; @@ -7745,32 +7802,32 @@ var l312 = {name: "VALUES-ARRAY"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v805), ", "), ")") : l131.fvalue(values, "pv(", l133.fvalue(pv, l73.fvalue(pv, (function(){ + })(), v810), ", "), ")") : l131.fvalue(values, "pv(", l133.fvalue(pv, l73.fvalue(pv, (function(){ var symbol = l142; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v805), ", "), ")")); + })(), v810), ", "), ")")); })(); })), cdr: (function(){ - var symbol = l263; + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); (function(){ - (l195).fvalue = (function(v808){ - ((v808)["fname"] = "MACRO"); - return v808; - })((function (values,v806){ + (l195).fvalue = (function(v813){ + ((v813)["fname"] = "MACRO"); + return v813; + })((function (values,v811){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v806; + var tmp = v811; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? (function(v807){ - return (((l172.fvalue(pv, v807) === l195)?l4.value: l3.value) !== l3.value ? v807 : l3.value); - })(l184.fvalue(pv, v806, (function(){ + })()?l4.value: l3.value) !== l3.value ? (function(v812){ + return (((l172.fvalue(pv, v812) === l195)?l4.value: l3.value) !== l3.value ? v812 : l3.value); + })(l184.fvalue(pv, v811, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7780,25 +7837,25 @@ var l312 = {name: "VALUES-ARRAY"}; })); return l195; })(); -var l313 = {name: "LS-MACROEXPAND-1"}; +var l314 = {name: "LS-MACROEXPAND-1"}; (function(){ - (l313).fvalue = (function(v813){ - ((v813)["fname"] = "LS-MACROEXPAND-1"); - return v813; - })((function (values,v809){ + (l314).fvalue = (function(v818){ + ((v818)["fname"] = "LS-MACROEXPAND-1"); + return v818; + })((function (values,v814){ checkArgs(arguments, 2); return (function(){ - return (function(v810){ - return (v810 !== l3.value ? (function(v811){ - (l59.fvalue(pv, v811) !== l3.value ? (function(v812){ - l175.fvalue(pv, v810, v812); - return (v811 = v812); - })(l238.fvalue(pv, v811)) : l3.value); + return (function(v815){ + return (v815 !== l3.value ? (function(v816){ + (l59.fvalue(pv, v816) !== l3.value ? (function(v817){ + l175.fvalue(pv, v815, v817); + return (v816 = v817); + })(l239.fvalue(pv, v816)) : l3.value); return (function(){ - var f = v811; + var f = v816; var args = [values]; var tail = ((function(){ - var tmp = v809; + var tmp = v814; return tmp === l3.value? l3.value: tmp.cdr; })()); while (tail != l3.value){ @@ -7807,66 +7864,66 @@ var l313 = {name: "LS-MACROEXPAND-1"}; } return f.apply(this, args); })(); - })(l173.fvalue(pv, v810)) : v809); + })(l173.fvalue(pv, v815)) : v814); })(l195.fvalue(pv, (function(){ - var tmp = v809; + var tmp = v814; return tmp === l3.value? l3.value: tmp.car; })())); })(); })); - return l313; + return l314; })(); -var l314 = {name: "COMPILE-FUNCALL"}; -var l315 = {name: "G764"}; +var l315 = {name: "COMPILE-FUNCALL"}; +var l316 = {name: "G796"}; (function(){ - (l314).fvalue = (function(v818){ - ((v818)["fname"] = "COMPILE-FUNCALL"); - return v818; - })((function (values,v814,v815){ + (l315).fvalue = (function(v823){ + ((v823)["fname"] = "COMPILE-FUNCALL"); + return v823; + })((function (values,v819,v820){ checkArgs(arguments, 3); return (function(){ return (function(){ - var v816 = ((function(){ + var v821 = ((function(){ var symbol = l169; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l3.value ? "values" : "pv"); - var v817 = l131.fvalue(pv, "(", l133.fvalue(pv, ({car: v816, cdr: l73.fvalue(pv, (function(){ + var v822 = l131.fvalue(pv, "(", l133.fvalue(pv, ({car: v821, cdr: l73.fvalue(pv, (function(){ var symbol = l142; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v815)}), ", "), ")"); - return (l233.fvalue(pv, v814) !== l3.value ? l131.fvalue(values, l233.fvalue(pv, v814), v817) : ((((function(){ - var tmp = v814; + })(), v820)}), ", "), ")"); + return (l233.fvalue(pv, v819) !== l3.value ? l131.fvalue(values, l233.fvalue(pv, v819), v822) : ((((function(){ + var tmp = v819; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? (((l119.fvalue(pv, v814) === l110.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){ - var symbol = l315; + })()?l4.value: l3.value) !== l3.value ? (((l119.fvalue(pv, v819) === l110.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){ + var symbol = l316; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() : l3.value) : l3.value) !== l3.value ? l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, v814))), ".fvalue", v817) : l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l101), l44.fvalue(pv, v814))), v817))); + })() : l3.value) : l3.value) !== l3.value ? l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, v819))), ".fvalue", v822) : l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l101), l44.fvalue(pv, v819))), v822))); })(); })(); })); - return l314; + return l315; })(); (function(){ - (l219).fvalue = (function(v821){ - ((v821)["fname"] = "LS-COMPILE-BLOCK"); - return v821; - })((function (values,v819,v820){ + (l219).fvalue = (function(v826){ + ((v826)["fname"] = "LS-COMPILE-BLOCK"); + return v826; + })((function (values,v824,v825){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); switch(arguments.length-1){ case 1: - v820=l3.value; + v825=l3.value; default: break; } return (function(){ - return (v820 !== l3.value ? l131.fvalue(values, l219.fvalue(pv, l85.fvalue(pv, v819)), "return ", l142.fvalue(pv, (function(){ - var tmp = l84.fvalue(pv, v819); + return (v825 !== l3.value ? l131.fvalue(values, l219.fvalue(pv, l85.fvalue(pv, v824)), "return ", l142.fvalue(pv, (function(){ + var tmp = l84.fvalue(pv, v824); return tmp === l3.value? l3.value: tmp.car; })(), (function(){ var symbol = l169; @@ -7883,7 +7940,7 @@ var l315 = {name: "G764"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v819)), l131.fvalue(pv, ";", (function(){ + })(), v824)), l131.fvalue(pv, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7894,171 +7951,171 @@ var l315 = {name: "G764"}; return l219; })(); (function(){ - (l142).fvalue = (function(v831){ - ((v831)["fname"] = "LS-COMPILE"); - return v831; - })((function (values,v822,v823){ + (l142).fvalue = (function(v836){ + ((v836)["fname"] = "LS-COMPILE"); + return v836; + })((function (values,v827,v828){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); switch(arguments.length-1){ case 1: - v823=l3.value; + v828=l3.value; default: break; } return (function(){ - return (function(v824){ + return (function(v829){ try { var tmp; tmp = l169.value; - l169.value = v824; - v824 = tmp; + l169.value = v829; + v829 = tmp; return (((function(){ - var tmp = v822; + var tmp = v827; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l3.value) !== l3.value ? (function(v825){ - return ((v825 !== l3.value ? l27.fvalue(pv, l86.fvalue(pv, l199, l174.fvalue(pv, v825))) : l3.value) !== l3.value ? l173.fvalue(values, v825) : ((function(v826){ - return (v826 !== l3.value ? v826 : l86.fvalue(pv, l201, l174.fvalue(pv, v825))); - })(l118.fvalue(pv, v822)) !== l3.value ? l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, v822))), ".value") : l142.fvalue(values, l64.fvalue(pv, l44.fvalue(pv, l285), l44.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, v822))))))); - })(l184.fvalue(pv, v822, (function(){ + })()?l4.value: l3.value) !== l3.value ? (function(v830){ + return ((v830 !== l3.value ? l27.fvalue(pv, l86.fvalue(pv, l199, l174.fvalue(pv, v830))) : l3.value) !== l3.value ? l173.fvalue(values, v830) : ((function(v831){ + return (v831 !== l3.value ? v831 : l86.fvalue(pv, l201, l174.fvalue(pv, v830))); + })(l118.fvalue(pv, v827)) !== l3.value ? l131.fvalue(values, l142.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, v827))), ".value") : l142.fvalue(values, l64.fvalue(pv, l44.fvalue(pv, l286), l44.fvalue(pv, l64.fvalue(pv, l44.fvalue(pv, l164), l44.fvalue(pv, v827))))))); + })(l184.fvalue(pv, v827, (function(){ var symbol = l185; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l102)) : (l79.fvalue(pv, v822) !== l3.value ? l17.fvalue(values, v822) : (((typeof(v822) == "string")?l4.value: l3.value) !== l3.value ? l131.fvalue(values, "\"", l145.fvalue(pv, v822), "\"") : (((function(){ - var x = v822; + })(), l102)) : (l79.fvalue(pv, v827) !== l3.value ? l17.fvalue(values, v827) : (((typeof(v827) == "string")?l4.value: l3.value) !== l3.value ? l131.fvalue(values, "\"", l145.fvalue(pv, v827), "\"") : (((function(){ + var x = v827; return typeof x === 'object' && 'length' in x; - })()?l4.value: l3.value) !== l3.value ? l228.fvalue(values, v822) : (l59.fvalue(pv, v822) !== l3.value ? (function(v827,v828){ - return (l94.fvalue(pv, v827, (function(){ + })()?l4.value: l3.value) !== l3.value ? l228.fvalue(values, v827) : (l59.fvalue(pv, v827) !== l3.value ? (function(v832,v833){ + return (l94.fvalue(pv, v832, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l3.value ? (function(v829){ + })()) !== l3.value ? (function(v834){ return (function(){ - var f = v829; + var f = v834; var args = [values]; - var tail = (v828); + var tail = (v833); while (tail != l3.value){ args.push(tail.car); tail = tail.cdr; } return f.apply(this, args); })(); - })(l40.fvalue(pv, l94.fvalue(pv, v827, (function(){ + })(l40.fvalue(pv, l94.fvalue(pv, v832, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : ((l94.fvalue(pv, v827, (function(){ - var symbol = l263; + })()))) : ((l94.fvalue(pv, v832, (function(){ + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l3.value ? l27.fvalue(pv, l197.fvalue(pv, v827, l101, l200)) : l3.value) !== l3.value ? (function(v830){ + })()) !== l3.value ? l27.fvalue(pv, l197.fvalue(pv, v832, l101, l200)) : l3.value) !== l3.value ? (function(v835){ return (function(){ - var f = v830; + var f = v835; var args = [values]; - var tail = (v828); + var tail = (v833); while (tail != l3.value){ args.push(tail.car); tail = tail.cdr; } return f.apply(this, args); })(); - })(l40.fvalue(pv, l94.fvalue(pv, v827, (function(){ - var symbol = l263; + })(l40.fvalue(pv, l94.fvalue(pv, v832, (function(){ + var symbol = l264; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : (l195.fvalue(pv, v827) !== l3.value ? l142.fvalue(values, l313.fvalue(pv, v822), v823) : l314.fvalue(values, v827, v828)))); + })()))) : (l195.fvalue(pv, v832) !== l3.value ? l142.fvalue(values, l314.fvalue(pv, v827), v828) : l315.fvalue(values, v832, v833)))); })((function(){ - var tmp = v822; + var tmp = v827; return tmp === l3.value? l3.value: tmp.car; })(),(function(){ - var tmp = v822; + var tmp = v827; return tmp === l3.value? l3.value: tmp.cdr; })()) : (function(){ throw "How should I compile this?"; })()))))); } finally { - l169.value = v824; + l169.value = v829; } - })(v823); + })(v828); })(); })); return l142; })(); -var l316 = {name: "LS-COMPILE-TOPLEVEL"}; +var l317 = {name: "LS-COMPILE-TOPLEVEL"}; (function(){ - (l316).fvalue = (function(v838){ - ((v838)["fname"] = "LS-COMPILE-TOPLEVEL"); - return v838; - })((function (values,v832,v833){ + (l317).fvalue = (function(v843){ + ((v843)["fname"] = "LS-COMPILE-TOPLEVEL"); + return v843; + })((function (values,v837,v838){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); switch(arguments.length-1){ case 1: - v833=l3.value; + v838=l3.value; default: break; } return (function(){ - return (function(v834){ + return (function(v839){ try { var tmp; tmp = l190.value; - l190.value = v834; - v834 = tmp; + l190.value = v839; + v839 = tmp; return ((((function(){ - var tmp = v832; + var tmp = v837; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l3.value) !== l3.value ? (((function(){ - var tmp = v832; + var tmp = v837; return tmp === l3.value? l3.value: tmp.car; - })() === l237)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v836){ + })() === l238)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v841){ return l133.fvalue(values, l88.fvalue(pv, (function(){ var symbol = l192; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v836)); - })(l73.fvalue(pv, (function (values,v835){ + })(), v841)); + })(l73.fvalue(pv, (function (values,v840){ checkArgs(arguments, 2); - return l316.fvalue(values, v835, l4.value); + return l317.fvalue(values, v840, l4.value); }), (function(){ - var tmp = v832; + var tmp = v837; return tmp === l3.value? l3.value: tmp.cdr; - })())) : (function(v837){ + })())) : (function(v842){ return l131.fvalue(values, l134.fvalue(pv, l193.fvalue(pv), l131.fvalue(pv, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), (v837 !== l3.value ? l131.fvalue(pv, v837, ";", (function(){ + })())), (v842 !== l3.value ? l131.fvalue(pv, v842, ";", (function(){ var symbol = l130; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : "")); - })(l142.fvalue(pv, v832, v833))); + })(l142.fvalue(pv, v837, v838))); } finally { - l190.value = v834; + l190.value = v839; } })(l3.value); })(); })); - return l316; + return l317; })(); (function(){ - (l238).fvalue = (function(v840){ - ((v840)["fname"] = "EVAL"); - return v840; - })((function (values,v839){ + (l239).fvalue = (function(v845){ + ((v845)["fname"] = "EVAL"); + return v845; + })((function (values,v844){ checkArgs(arguments, 2); return (function(){ return (function(){ - var string = l316.fvalue(pv, v839, l4.value); + var string = l317.fvalue(pv, v844, l4.value); if (typeof string != 'string') throw 'The value ' + string + ' is not a type string.'; return (function(){ @@ -8072,11 +8129,11 @@ var l316 = {name: "LS-COMPILE-TOPLEVEL"}; })(); })(); })); - return l238; + return l239; })(); -var l317 = {name: "&BODY"}; -var l318 = QIList(l208,l207,l317,l20,l15,l120,l61,l62,l21,l22,l23,l274,l276,l19,l19,l273,l275,l54,l64,l297,l309,l308,l310,l94,l45,l181,l18,l18,l85,l32,l38,l36,l33,l30,l30,l52,l250,l34,l37,l35,l31,l31,l295,l77,l78,l76,l51,l28,l29,l75,l47,l2,l9,l11,l1,l8,l90,l98,l68,l69,l100,l49,l50,l53,l288,l26,l289,l299,l238,l93,l128,l97,l110,l123,l39,l234,l42,l284,l296,l101,l305,l16,l129,l257,l74,l205,l121,l46,l79,l79,l127,l118,l5,l84,l71,l242,l245,l106,l44,l59,l307,l107,l282,l73,l86,l81,l270,l103,l259,l104,l260,l3,l27,l83,l82,l12,l277,l55,l111,l113,l109,l162,l80,l144,l147,l202,l56,l57,l237,l67,l48,l164,l87,l88,l89,l13,l249,l65,l66,l279,l280,l40,l221,l222,l92,l292,l95,l96,l291,l91,l230,l283,l119,l286,l285,l281,l4,l256,l41,l251,l25,l7,l258,l139,l138,l102,l146,l6,l99,l306,l24,l3); -l128.fvalue(values, l318); +var l318 = {name: "&BODY"}; +var l319 = QIList(l208,l207,l318,l20,l15,l120,l61,l62,l21,l22,l23,l275,l277,l19,l19,l274,l276,l54,l64,l298,l310,l309,l311,l94,l45,l181,l18,l18,l85,l32,l38,l36,l33,l30,l30,l52,l251,l34,l37,l35,l31,l31,l296,l77,l78,l76,l51,l28,l29,l75,l47,l2,l9,l11,l1,l8,l90,l98,l68,l69,l100,l49,l50,l53,l289,l26,l290,l300,l239,l93,l128,l97,l110,l123,l39,l234,l42,l285,l297,l101,l306,l16,l129,l258,l74,l205,l121,l46,l79,l79,l127,l118,l235,l5,l84,l71,l243,l246,l106,l44,l59,l308,l107,l283,l73,l86,l81,l271,l103,l260,l104,l261,l3,l27,l83,l82,l12,l278,l55,l111,l113,l109,l162,l80,l144,l147,l202,l56,l57,l238,l67,l48,l164,l87,l88,l89,l13,l250,l65,l66,l280,l281,l40,l221,l222,l92,l293,l95,l96,l292,l91,l230,l284,l119,l287,l286,l282,l4,l257,l41,l252,l25,l7,l259,l139,l138,l102,l146,l6,l99,l307,l24,l3); +l128.fvalue(values, l319); ((l120).value = (function(){ var symbol = l116; var value = symbol.value; @@ -8110,61 +8167,62 @@ l128.fvalue(values, l318); return func; })()); (lisp.eval = (function(){ - var symbol = l238; + var symbol = l239; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); -(lisp.compile = (function (values,v841){ +(lisp.compile = (function (values,v846){ checkArgs(arguments, 2); - return l316.fvalue(values, v841, l4.value); + return l317.fvalue(values, v846, l4.value); })); -(lisp.evalString = (function (values,v842){ +(lisp.evalString = (function (values,v847){ checkArgs(arguments, 2); - return l238.fvalue(values, l168.fvalue(pv, v842)); + return l239.fvalue(values, l168.fvalue(pv, v847)); })); -(lisp.compileString = (function (values,v843){ +(lisp.compileString = (function (values,v848){ checkArgs(arguments, 2); - return l316.fvalue(values, l168.fvalue(pv, v843), l4.value); + return l317.fvalue(values, l168.fvalue(pv, v848), l4.value); })); -var l319 = QIList(QIList(l317,"l317"),QIList(l316,"l316"),QIList(l315,"l315"),QIList(l314,"l314"),QIList(l313,"l313"),QIList(l312,"l312"),QIList(l311,"l311"),QIList(l310,"l310"),QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l205,"l205"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3); -var l320 = {name: "OP"}; -var l321 = {name: "SYM"}; -var l322 = {name: "X"}; -var l323 = {name: "ARGS"}; -var l324 = {name: "BODY"}; -var l325 = {name: "DECLS"}; -var l326 = {name: "DECL"}; -var l327 = {name: "NAME"}; -var l328 = {name: "ARG"}; -var l329 = {name: "FORM"}; -var l330 = {name: "PACKAGE-DESIGNATOR"}; -var l331 = {name: "VALUE-FROM"}; -var l332 = {name: "VARIABLES"}; -var l333 = {name: "VARLIST"}; -var l334 = {name: "ENDLIST"}; -var l335 = {name: "V"}; -var l336 = {name: "PAIRS"}; -var l337 = {name: "ASSIGNMENTS"}; -var l338 = {name: "VALUE"}; -var l339 = {name: "FORM1"}; -var l340 = {name: "RESULT"}; -var l341 = {name: "FORMS"}; -var l342 = {name: "G"}; -var l343 = {name: "CLAUSULES"}; -var l344 = {name: "!FORM"}; -var l345 = {name: "CLAUSULE"}; -var l346 = {name: "ITER"}; -var l347 = {name: "G!TO"}; -var l348 = {name: "VAR"}; -var l349 = {name: "TO"}; -var l350 = {name: "G!LIST"}; -var l351 = {name: "PLACE"}; -var l352 = {name: "DELTA"}; -var l353 = {name: "CONDITION"}; -var l354 = {name: "DOCSTRING"}; -var l355 = QIList(QIList(QIList(l263,l102,l3,QIList(l199,l3),l3),QIList(l253,l102,l3,QIList(l199,l3),l3),QIList(l252,l102,l3,QIList(l199,l3),l3),QIList(l246,l102,l3,QIList(l199,l3),l3),QIList(l235,l102,l3,QIList(l199,l3),l3),QIList(l226,l102,l3,QIList(l199,l3),l3),QIList(l225,l102,l3,QIList(l199,l3),l3),QIList(l206,l102,l3,QIList(l199,l3),l3),QIList(l203,l102,l3,QIList(l199,l3),l3),QIList(l190,l102,l3,QIList(l199,l3),l3),QIList(l186,l102,l3,QIList(l199,l3),l3),QIList(l185,l102,l3,QIList(l199,l3),l3),QIList(l169,l102,l3,QIList(l199,l3),l3),QIList(l163,l102,l3,QIList(l199,l3),l3),QIList(l130,l102,l3,QIList(l199,l3),l3),QIList(l120,l102,l3,QIList(l199,l3),l3),QIList(l117,l102,l3,QIList(l199,l3),l3),QIList(l116,l102,l3,QIList(l199,l3),l3),QIList(l115,l102,l3,QIList(l199,l3),l3),QIList(l105,l102,l3,QIList(l199,l3),l3),QIList(l15,l102,l3,QIList(l199,l3),l3),QIList(l4,l102,l3,QIList(l199,l201,l3),l3),QIList(l3,l102,l3,QIList(l199,l201,l3),l3),l3),QIList(QIList(l272,l195,QIList(l101,QIList(l5,QIList(l320,l321,l3),QIList(l165,QIList(l264,QIList(l167,l320,l3),QIList(l322,l208,l323,l3),QIList(l242,QIList(QIList(l323,QIList(l28,l322,l323,l3),l3),l3),QIList(l268,l323,QIList(l141,QIList(l271,l323,QIList(l167,l321,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l268,l195,QIList(l101,QIList(l5,QIList(l323,l208,l324,l3),QIList(l7,QIList(l281,l323,l3),QIList(l299,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l165,QIList(l267,QIList(l167,l323,l3),QIList(l5,QIList(QIList(l167,l323,l3),l3),QIList(l131,"return ",QIList(l166,l324,l3),";",l130,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l266,l195,QIList(l101,QIList(l5,QIList(l325,l208,l324,l3),QIList(l165,QIList(l143,QIList(l166,QIList(l73,QIList(l5,QIList(l326,l3),QIList(l165,QIList(l131,"var ",QIList(l167,QIList(l39,l326,l3),l3)," = ",QIList(l167,QIList(l41,l326,l3),l3),";",l130,l3),l3),l3),l325,l3),l3),QIList(l166,QIList(l73,QIList(l5,QIList(l326,l3),QIList(l165,QIList(l131,"if (typeof ",QIList(l167,QIList(l39,l326,l3),l3)," != '",QIList(l167,QIList(l40,l326,l3),l3),"')",l130,QIList(l140,"throw 'The value ' + ",QIList(l167,QIList(l39,l326,l3),l3)," + ' is not a type ",QIList(l167,QIList(l40,l326,l3),l3),".';",l130,l3),l3),l3),l3),l325,l3),l3),QIList(l131,"return ",QIList(l237,QIList(l166,l324,l3),l3),";",l130,l3),l3),l3),l3),l3),l3,l3),QIList(l265,l195,QIList(l101,QIList(l5,QIList(l327,l323,l208,l324,l3),QIList(l165,QIList(l237,QIList(l264,QIList(l167,l327,l3),QIList(l167,l323,l3),QIList(l242,QIList(l167,QIList(l73,QIList(l5,QIList(l328,l3),QIList(l165,QIList(QIList(l167,l328,l3),QIList(l142,QIList(l167,l328,l3),l3),l3),l3),l3),l323,l3),l3),QIList(l166,l324,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l264,l195,QIList(l101,QIList(l5,QIList(l327,l323,l208,l324,l3),QIList(l165,QIList(l48,QIList(l44,QIList(l164,QIList(l167,l327,l3),l3),QIList(l5,QIList(l167,l323,l3),QIList(l181,QIList(l167,l327,l3),QIList(l166,l324,l3),l3),l3),l3),l263,l3),l3),l3),l3),l3,l3),QIList(l165,l195,QIList(l101,QIList(l5,QIList(l329,l3),QIList(l261,l329,l3),l3),l3),l3,l3),QIList(l239,l195,QIList(l101,QIList(l5,QIList(l327,l323,l329,l3),QIList(l165,QIList(l204,QIList(l167,l327,l3),QIList(l167,l323,l3),QIList(l142,QIList(l167,l329,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l204,l195,QIList(l101,QIList(l5,QIList(l327,l323,l208,l324,l3),QIList(l165,QIList(l48,QIList(l44,QIList(l164,QIList(l167,l327,l3),l3),QIList(l5,QIList(l167,l323,l3),QIList(l181,QIList(l167,l327,l3),QIList(l166,l324,l3),l3),l3),l3),l203,l3),l3),l3),l3),l3,l3),QIList(l143,l195,QIList(l101,QIList(l5,QIList(l208,l324,l3),QIList(l165,QIList(l131,"(function(){",l130,QIList(l140,QIList(l166,l324,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l132,l195,QIList(l101,QIList(l5,QIList(l102,l208,l329,l3),QIList(l165,QIList(l222,QIList(l167,l102,l3),QIList(l131,QIList(l167,l102,l3),QIList(l237,QIList(l166,l329,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l121,l195,QIList(l101,QIList(l5,QIList(l330,l3),QIList(l165,QIList(l236,QIList(l222,l120,QIList(l108,QIList(l167,l330,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l104,l195,QIList(l101,QIList(l5,QIList(l331,l3),QIList(l165,QIList(l259,QIList(l101,l44,l3),QIList(l167,l331,l3),l3),l3),l3),l3),l3,l3),QIList(l103,l195,QIList(l101,QIList(l5,QIList(l332,l331,l208,l324,l3),QIList(l165,QIList(l259,QIList(l5,QIList(l207,QIList(l166,l332,l3),l208,QIList(l167,QIList(l16,l3),l3),l3),QIList(l166,l324,l3),l3),QIList(l167,l331,l3),l3),l3),l3),l3),l3,l3),QIList(l69,l195,QIList(l101,QIList(l5,QIList(l333,l334,l208,l324,l3),QIList(l165,QIList(l181,l3,QIList(l245,QIList(l167,QIList(l73,QIList(l5,QIList(l322,l3),QIList(l44,QIList(l39,l322,l3),QIList(l40,l322,l3),l3),l3),l333,l3),l3),QIList(l14,l4,QIList(l6,QIList(l167,QIList(l30,l334,l3),l3),QIList(l13,QIList(l237,QIList(l167,QIList(l31,l334,l3),l3),l3),l3),l3),QIList(l256,QIList(l166,l324,l3),l3),QIList(l222,QIList(l166,QIList(l297,QIList(l101,l64,l3),QIList(l73,QIList(l5,QIList(l335,l3),QIList(l54,QIList(l29,QIList(l35,l335,l3),l3),QIList(l44,QIList(l39,l335,l3),QIList(l41,l335,l3),l3),l3),l3),l333,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l68,l195,QIList(l101,QIList(l5,QIList(l333,l334,l208,l324,l3),QIList(l165,QIList(l181,l3,QIList(l242,QIList(l167,QIList(l73,QIList(l5,QIList(l322,l3),QIList(l44,QIList(l39,l322,l3),QIList(l40,l322,l3),l3),l3),l333,l3),l3),QIList(l14,l4,QIList(l6,QIList(l167,QIList(l30,l334,l3),l3),QIList(l13,QIList(l237,QIList(l167,QIList(l31,l334,l3),l3),l3),l3),l3),QIList(l256,QIList(l166,l324,l3),l3),QIList(l67,QIList(l166,QIList(l297,QIList(l101,l64,l3),QIList(l73,QIList(l5,QIList(l335,l3),QIList(l54,QIList(l29,QIList(l35,l335,l3),l3),QIList(l44,QIList(l39,l335,l3),QIList(l41,l335,l3),l3),l3),l3),l333,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l195,QIList(l101,QIList(l5,QIList(l208,l336,l3),QIList(l242,QIList(QIList(l337,QIList(l164,l3,l3),l3),l3),QIList(l14,l4,QIList(l51,QIList(QIList(l12,l336,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l336,l3),l3),QIList(l299,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l242,QIList(QIList(l102,QIList(l30,l336,l3),l3),QIList(l338,QIList(l33,l336,l3),l3),l3),QIList(l48,QIList(l165,QIList(QIList(l167,l102,l3),QIList(l167,QIList(l16,l3),l3),QIList(l167,l338,l3),l3),l3),l337,l3),QIList(l222,l336,QIList(l35,l336,l3),l3),l3),l3),l3),l3),QIList(l222,l337,QIList(l66,l337,l3),l3),QIList(l165,QIList(l242,QIList(l167,QIList(l73,QIList(l101,l31,l3),l337,l3),l3),QIList(l222,QIList(l166,QIList(l60,QIList(l101,l64,l3),QIList(l73,QIList(l101,l85,l3),l337,l3),QIList(l164,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l57,l195,QIList(l101,QIList(l5,QIList(l339,l340,l208,l324,l3),QIList(l165,QIList(l56,QIList(l237,QIList(l167,l339,l3),QIList(l167,l340,l3),l3),QIList(l166,l324,l3),l3),l3),l3),l3),l3,l3),QIList(l56,l195,QIList(l101,QIList(l5,QIList(l329,l208,l324,l3),QIList(l242,QIList(QIList(l338,QIList(l16,l3),l3),l3),QIList(l165,QIList(l242,QIList(QIList(QIList(l167,l338,l3),QIList(l167,l329,l3),l3),l3),QIList(l166,l324,l3),QIList(l167,l338,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l55,l195,QIList(l101,QIList(l5,QIList(l208,l341,l3),QIList(l51,QIList(QIList(l12,l341,l3),l3,l3),QIList(QIList(l12,QIList(l31,l341,l3),l3),QIList(l30,l341,l3),l3),QIList(l4,QIList(l242,QIList(QIList(l342,QIList(l16,l3),l3),l3),QIList(l165,QIList(l242,QIList(QIList(QIList(l167,l342,l3),QIList(l167,QIList(l30,l341,l3),l3),l3),l3),QIList(l205,QIList(l167,l342,l3),QIList(l167,l342,l3),QIList(l55,QIList(l166,QIList(l31,l341,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l195,QIList(l101,QIList(l5,QIList(l208,l341,l3),QIList(l51,QIList(QIList(l12,l341,l3),l4,l3),QIList(QIList(l12,QIList(l31,l341,l3),l3),QIList(l30,l341,l3),l3),QIList(l4,QIList(l165,QIList(l205,QIList(l167,QIList(l30,l341,l3),l3),QIList(l54,QIList(l166,QIList(l31,l341,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l195,QIList(l101,QIList(l5,QIList(l329,l208,l343,l3),QIList(l165,QIList(l52,QIList(l167,l329,l3),QIList(l166,QIList(l64,l343,QIList(l165,QIList(QIList(l4,QIList(l299,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l195,QIList(l101,QIList(l5,QIList(l329,l208,l343,l3),QIList(l242,QIList(QIList(l344,QIList(l16,l3),l3),l3),QIList(l165,QIList(l242,QIList(QIList(QIList(l167,l344,l3),QIList(l167,l329,l3),l3),l3),QIList(l51,QIList(l166,QIList(l73,QIList(l5,QIList(l345,l3),QIList(l205,QIList(l288,QIList(l30,l345,l3),l4,l3),l345,QIList(l165,QIList(QIList(l26,QIList(l167,l344,l3),QIList(l164,QIList(l167,QIList(l30,l345,l3),l3),l3),l3),QIList(l166,QIList(l31,l345,l3),l3),l3),l3),l3),l3),l343,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l195,QIList(l101,QIList(l5,QIList(l208,l343,l3),QIList(l205,QIList(l12,l343,l3),l3,QIList(l205,QIList(l288,QIList(l32,l343,l3),l4,l3),QIList(l165,QIList(l237,QIList(l166,QIList(l34,l343,l3),l3),l3),l3),QIList(l165,QIList(l205,QIList(l167,QIList(l32,l343,l3),l3),QIList(l237,QIList(l166,QIList(l34,l343,l3),l3),l3),QIList(l51,QIList(l166,QIList(l31,l343,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l195,QIList(l101,QIList(l5,QIList(l346,l208,l324,l3),QIList(l242,QIList(QIList(l347,QIList(l16,l3),l3),QIList(l348,QIList(l39,l346,l3),l3),QIList(l349,QIList(l40,l346,l3),l3),QIList(l340,QIList(l41,l346,l3),l3),l3),QIList(l165,QIList(l181,l3,QIList(l242,QIList(QIList(QIList(l167,l348,l3),0,l3),QIList(QIList(l167,l347,l3),QIList(l167,l349,l3),l3),l3),QIList(l229,QIList(l274,QIList(l167,l348,l3),QIList(l167,l347,l3),l3),QIList(l256,QIList(l166,l324,l3),l3),QIList(l46,QIList(l167,l348,l3),l3),l3),QIList(l167,l340,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l195,QIList(l101,QIList(l5,QIList(l346,l208,l324,l3),QIList(l242,QIList(QIList(l348,QIList(l39,l346,l3),l3),QIList(l350,QIList(l16,l3),l3),l3),QIList(l165,QIList(l181,l3,QIList(l242,QIList(QIList(QIList(l167,l350,l3),QIList(l167,QIList(l40,l346,l3),l3),l3),QIList(QIList(l167,l348,l3),l3,l3),l3),QIList(l229,QIList(l167,l350,l3),QIList(l222,QIList(l167,l348,l3),QIList(l30,QIList(l167,l350,l3),l3),l3),QIList(l256,QIList(l166,l324,l3),l3),QIList(l222,QIList(l167,l350,l3),QIList(l31,QIList(l167,l350,l3),l3),l3),l3),QIList(l167,QIList(l41,l346,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l195,QIList(l101,QIList(l5,QIList(l322,l351,l3),QIList(l165,QIList(l222,QIList(l167,l351,l3),QIList(l28,QIList(l167,l322,l3),QIList(l167,l351,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l195,QIList(l101,QIList(l5,QIList(l322,l207,QIList(l352,1,l3),l3),QIList(l165,QIList(l222,QIList(l167,l322,l3),QIList(l62,QIList(l167,l322,l3),QIList(l167,l352,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l195,QIList(l101,QIList(l5,QIList(l322,l207,QIList(l352,1,l3),l3),QIList(l165,QIList(l222,QIList(l167,l322,l3),QIList(l61,QIList(l167,l322,l3),QIList(l167,l352,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l195,QIList(l101,QIList(l5,QIList(l353,l208,l324,l3),QIList(l165,QIList(l181,l3,QIList(l229,QIList(l167,l353,l3),QIList(l166,l324,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l195,QIList(l101,QIList(l5,QIList(l207,l338,l3),QIList(l165,QIList(l249,l3,QIList(l167,l338,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l195,QIList(l101,QIList(l5,QIList(l327,l323,l208,l324,l3),QIList(l165,QIList(l237,QIList(l284,QIList(l164,QIList(l167,l327,l3),l3),QIList(l10,QIList(l167,QIList(l283,l327,l3),l3),QIList(l167,l323,l3),QIList(l166,QIList(l205,QIList(l54,QIList(l291,QIList(l30,l324,l3),l3),QIList(l27,QIList(l12,QIList(l31,l324,l3),l3),l3),l3),QIList(l165,QIList(QIList(l167,QIList(l30,l324,l3),l3),QIList(l181,QIList(l167,l327,l3),QIList(l166,QIList(l31,l324,l3),l3),l3),l3),l3),QIList(l165,QIList(QIList(l181,QIList(l167,l327,l3),QIList(l166,l324,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l164,QIList(l167,l327,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l195,QIList(l101,QIList(l5,QIList(l327,l323,l208,l324,l3),QIList(l242,QIList(QIList(l322,QIList(l16,"FN",l3),l3),l3),QIList(l165,QIList(l242,QIList(QIList(QIList(l167,l322,l3),QIList(l5,QIList(l167,l323,l3),QIList(l166,l324,l3),l3),l3),l3),QIList(l303,QIList(l167,l322,l3),"fname",QIList(l167,l327,l3),l3),QIList(l167,l322,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l195,QIList(l101,QIList(l5,QIList(l327,l338,l207,l354,l3),QIList(l165,QIList(l237,QIList(l222,QIList(l167,l327,l3),QIList(l167,l338,l3),l3),QIList(l166,QIList(l6,QIList(l291,l354,l3),QIList(l165,QIList(QIList(l303,QIList(l164,QIList(l167,l327,l3),l3),"vardoc",QIList(l167,l354,l3),l3),l3),l3),l3),l3),QIList(l164,QIList(l167,l327,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l195,QIList(l101,QIList(l5,QIList(l327,l338,l207,l354,l3),QIList(l165,QIList(l237,QIList(l2,QIList(l199,QIList(l167,l327,l3),l3),l3),QIList(l7,QIList(l18,QIList(l164,QIList(l167,l327,l3),l3),l3),QIList(l222,QIList(l167,l327,l3),QIList(l167,l338,l3),l3),l3),QIList(l166,QIList(l6,QIList(l291,l354,l3),QIList(l165,QIList(QIList(l303,QIList(l164,QIList(l167,l327,l3),l3),"vardoc",QIList(l167,l354,l3),l3),l3),l3),l3),l3),QIList(l164,QIList(l167,l327,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l195,QIList(l101,QIList(l5,QIList(l353,l208,l324,l3),QIList(l165,QIList(l205,QIList(l167,l353,l3),l3,QIList(l237,QIList(l166,l324,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l195,QIList(l101,QIList(l5,QIList(l353,l208,l324,l3),QIList(l165,QIList(l205,QIList(l167,l353,l3),QIList(l237,QIList(l166,l324,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l195,QIList(l101,QIList(l5,QIList(l323,l208,l324,l3),QIList(l165,QIList(l101,QIList(l5,QIList(l167,l323,l3),QIList(l166,l324,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l195,QIList(l101,QIList(l5,QIList(l208,l325,l3),QIList(l165,QIList(l236,QIList(l166,QIList(l73,QIList(l5,QIList(l326,l3),QIList(l165,QIList(l198,QIList(l164,QIList(l167,l326,l3),l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l195,QIList(l101,QIList(l5,QIList(l327,l323,l208,l324,l3),QIList(l165,QIList(l236,QIList(l194,QIList(l164,QIList(l167,l327,l3),l3),QIList(l164,QIList(l101,QIList(l5,QIList(l167,QIList(l73,QIList(l101,QIList(l5,QIList(l322,l3),QIList(l205,QIList(l288,l322,QIList(l164,l317,l3),l3),QIList(l164,l208,l3),l322,l3),l3),l3),l323,l3),l3),QIList(l166,l324,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3); -(function(){ +var l320 = QIList(QIList(l318,"l318"),QIList(l317,"l317"),QIList(l316,"l316"),QIList(l315,"l315"),QIList(l314,"l314"),QIList(l313,"l313"),QIList(l312,"l312"),QIList(l311,"l311"),QIList(l310,"l310"),QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l205,"l205"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3); +var l321 = {name: "OP"}; +var l322 = {name: "SYM"}; +var l323 = {name: "X"}; +var l324 = {name: "ARGS"}; +var l325 = {name: "BODY"}; +var l326 = {name: "DECLS"}; +var l327 = {name: "DECL"}; +var l328 = {name: "NAME"}; +var l329 = {name: "ARG"}; +var l330 = {name: "FORM"}; +var l331 = {name: "PACKAGE-DESIGNATOR"}; +var l332 = {name: "VALUE-FROM"}; +var l333 = {name: "VARIABLES"}; +var l334 = {name: "VARLIST"}; +var l335 = {name: "ENDLIST"}; +var l336 = {name: "V"}; +var l337 = {name: "PAIRS"}; +var l338 = {name: "ASSIGNMENTS"}; +var l339 = {name: "VALUE"}; +var l340 = {name: "FORM1"}; +var l341 = {name: "RESULT"}; +var l342 = {name: "FORMS"}; +var l343 = {name: "G"}; +var l344 = {name: "CLAUSULES"}; +var l345 = {name: "!FORM"}; +var l346 = {name: "CLAUSULE"}; +var l347 = {name: "ITER"}; +var l348 = {name: "G!TO"}; +var l349 = {name: "VAR"}; +var l350 = {name: "TO"}; +var l351 = {name: "G!LIST"}; +var l352 = {name: "PLACE"}; +var l353 = {name: "DELTA"}; +var l354 = {name: "CONDITION"}; +var l355 = {name: "DOCSTRING"}; +var l356 = QIList(QIList(QIList(l264,l102,l3,QIList(l199,l3),l3),QIList(l254,l102,l3,QIList(l199,l3),l3),QIList(l253,l102,l3,QIList(l199,l3),l3),QIList(l247,l102,l3,QIList(l199,l3),l3),QIList(l236,l102,l3,QIList(l199,l3),l3),QIList(l226,l102,l3,QIList(l199,l3),l3),QIList(l225,l102,l3,QIList(l199,l3),l3),QIList(l206,l102,l3,QIList(l199,l3),l3),QIList(l203,l102,l3,QIList(l199,l3),l3),QIList(l190,l102,l3,QIList(l199,l3),l3),QIList(l186,l102,l3,QIList(l199,l3),l3),QIList(l185,l102,l3,QIList(l199,l3),l3),QIList(l169,l102,l3,QIList(l199,l3),l3),QIList(l163,l102,l3,QIList(l199,l3),l3),QIList(l130,l102,l3,QIList(l199,l3),l3),QIList(l120,l102,l3,QIList(l199,l3),l3),QIList(l117,l102,l3,QIList(l199,l3),l3),QIList(l116,l102,l3,QIList(l199,l3),l3),QIList(l115,l102,l3,QIList(l199,l3),l3),QIList(l105,l102,l3,QIList(l199,l3),l3),QIList(l15,l102,l3,QIList(l199,l3),l3),QIList(l4,l102,l3,QIList(l199,l201,l3),l3),QIList(l3,l102,l3,QIList(l199,l201,l3),l3),l3),QIList(QIList(l273,l195,QIList(l101,QIList(l5,QIList(l321,l322,l3),QIList(l165,QIList(l265,QIList(l167,l321,l3),QIList(l323,l208,l324,l3),QIList(l243,QIList(QIList(l324,QIList(l28,l323,l324,l3),l3),l3),QIList(l269,l324,QIList(l141,QIList(l272,l324,QIList(l167,l322,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l269,l195,QIList(l101,QIList(l5,QIList(l324,l208,l325,l3),QIList(l7,QIList(l282,l324,l3),QIList(l300,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l165,QIList(l268,QIList(l167,l324,l3),QIList(l5,QIList(QIList(l167,l324,l3),l3),QIList(l131,"return ",QIList(l166,l325,l3),";",l130,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l267,l195,QIList(l101,QIList(l5,QIList(l326,l208,l325,l3),QIList(l165,QIList(l143,QIList(l166,QIList(l73,QIList(l5,QIList(l327,l3),QIList(l165,QIList(l131,"var ",QIList(l167,QIList(l39,l327,l3),l3)," = ",QIList(l167,QIList(l41,l327,l3),l3),";",l130,l3),l3),l3),l326,l3),l3),QIList(l166,QIList(l73,QIList(l5,QIList(l327,l3),QIList(l165,QIList(l131,"if (typeof ",QIList(l167,QIList(l39,l327,l3),l3)," != '",QIList(l167,QIList(l40,l327,l3),l3),"')",l130,QIList(l140,"throw 'The value ' + ",QIList(l167,QIList(l39,l327,l3),l3)," + ' is not a type ",QIList(l167,QIList(l40,l327,l3),l3),".';",l130,l3),l3),l3),l3),l326,l3),l3),QIList(l131,"return ",QIList(l238,QIList(l166,l325,l3),l3),";",l130,l3),l3),l3),l3),l3),l3,l3),QIList(l266,l195,QIList(l101,QIList(l5,QIList(l328,l324,l208,l325,l3),QIList(l165,QIList(l238,QIList(l265,QIList(l167,l328,l3),QIList(l167,l324,l3),QIList(l243,QIList(l167,QIList(l73,QIList(l5,QIList(l329,l3),QIList(l165,QIList(QIList(l167,l329,l3),QIList(l142,QIList(l167,l329,l3),l3),l3),l3),l3),l324,l3),l3),QIList(l166,l325,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l265,l195,QIList(l101,QIList(l5,QIList(l328,l324,l208,l325,l3),QIList(l165,QIList(l48,QIList(l44,QIList(l164,QIList(l167,l328,l3),l3),QIList(l5,QIList(l167,l324,l3),QIList(l181,QIList(l167,l328,l3),QIList(l166,l325,l3),l3),l3),l3),l264,l3),l3),l3),l3),l3,l3),QIList(l165,l195,QIList(l101,QIList(l5,QIList(l330,l3),QIList(l262,l330,l3),l3),l3),l3,l3),QIList(l240,l195,QIList(l101,QIList(l5,QIList(l328,l324,l330,l3),QIList(l165,QIList(l204,QIList(l167,l328,l3),QIList(l167,l324,l3),QIList(l142,QIList(l167,l330,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l204,l195,QIList(l101,QIList(l5,QIList(l328,l324,l208,l325,l3),QIList(l165,QIList(l48,QIList(l44,QIList(l164,QIList(l167,l328,l3),l3),QIList(l5,QIList(l167,l324,l3),QIList(l181,QIList(l167,l328,l3),QIList(l166,l325,l3),l3),l3),l3),l203,l3),l3),l3),l3),l3,l3),QIList(l143,l195,QIList(l101,QIList(l5,QIList(l208,l325,l3),QIList(l165,QIList(l131,"(function(){",l130,QIList(l140,QIList(l166,l325,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l132,l195,QIList(l101,QIList(l5,QIList(l102,l208,l330,l3),QIList(l165,QIList(l222,QIList(l167,l102,l3),QIList(l131,QIList(l167,l102,l3),QIList(l238,QIList(l166,l330,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l121,l195,QIList(l101,QIList(l5,QIList(l331,l3),QIList(l165,QIList(l237,QIList(l222,l120,QIList(l108,QIList(l167,l331,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l104,l195,QIList(l101,QIList(l5,QIList(l332,l3),QIList(l165,QIList(l260,QIList(l101,l44,l3),QIList(l167,l332,l3),l3),l3),l3),l3),l3,l3),QIList(l103,l195,QIList(l101,QIList(l5,QIList(l333,l332,l208,l325,l3),QIList(l165,QIList(l260,QIList(l5,QIList(l207,QIList(l166,l333,l3),l208,QIList(l167,QIList(l16,l3),l3),l3),QIList(l166,l325,l3),l3),QIList(l167,l332,l3),l3),l3),l3),l3),l3,l3),QIList(l69,l195,QIList(l101,QIList(l5,QIList(l334,l335,l208,l325,l3),QIList(l165,QIList(l181,l3,QIList(l246,QIList(l167,QIList(l73,QIList(l5,QIList(l323,l3),QIList(l44,QIList(l39,l323,l3),QIList(l40,l323,l3),l3),l3),l334,l3),l3),QIList(l14,l4,QIList(l6,QIList(l167,QIList(l30,l335,l3),l3),QIList(l13,QIList(l238,QIList(l167,QIList(l31,l335,l3),l3),l3),l3),l3),QIList(l257,QIList(l166,l325,l3),l3),QIList(l222,QIList(l166,QIList(l298,QIList(l101,l64,l3),QIList(l73,QIList(l5,QIList(l336,l3),QIList(l54,QIList(l29,QIList(l35,l336,l3),l3),QIList(l44,QIList(l39,l336,l3),QIList(l41,l336,l3),l3),l3),l3),l334,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l68,l195,QIList(l101,QIList(l5,QIList(l334,l335,l208,l325,l3),QIList(l165,QIList(l181,l3,QIList(l243,QIList(l167,QIList(l73,QIList(l5,QIList(l323,l3),QIList(l44,QIList(l39,l323,l3),QIList(l40,l323,l3),l3),l3),l334,l3),l3),QIList(l14,l4,QIList(l6,QIList(l167,QIList(l30,l335,l3),l3),QIList(l13,QIList(l238,QIList(l167,QIList(l31,l335,l3),l3),l3),l3),l3),QIList(l257,QIList(l166,l325,l3),l3),QIList(l67,QIList(l166,QIList(l298,QIList(l101,l64,l3),QIList(l73,QIList(l5,QIList(l336,l3),QIList(l54,QIList(l29,QIList(l35,l336,l3),l3),QIList(l44,QIList(l39,l336,l3),QIList(l41,l336,l3),l3),l3),l3),l334,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l195,QIList(l101,QIList(l5,QIList(l208,l337,l3),QIList(l243,QIList(QIList(l338,QIList(l164,l3,l3),l3),l3),QIList(l14,l4,QIList(l51,QIList(QIList(l12,l337,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l337,l3),l3),QIList(l300,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l243,QIList(QIList(l102,QIList(l30,l337,l3),l3),QIList(l339,QIList(l33,l337,l3),l3),l3),QIList(l48,QIList(l165,QIList(QIList(l167,l102,l3),QIList(l167,QIList(l16,l3),l3),QIList(l167,l339,l3),l3),l3),l338,l3),QIList(l222,l337,QIList(l35,l337,l3),l3),l3),l3),l3),l3),QIList(l222,l338,QIList(l66,l338,l3),l3),QIList(l165,QIList(l243,QIList(l167,QIList(l73,QIList(l101,l31,l3),l338,l3),l3),QIList(l222,QIList(l166,QIList(l60,QIList(l101,l64,l3),QIList(l73,QIList(l101,l85,l3),l338,l3),QIList(l164,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l57,l195,QIList(l101,QIList(l5,QIList(l340,l341,l208,l325,l3),QIList(l165,QIList(l56,QIList(l238,QIList(l167,l340,l3),QIList(l167,l341,l3),l3),QIList(l166,l325,l3),l3),l3),l3),l3),l3,l3),QIList(l56,l195,QIList(l101,QIList(l5,QIList(l330,l208,l325,l3),QIList(l243,QIList(QIList(l339,QIList(l16,l3),l3),l3),QIList(l165,QIList(l243,QIList(QIList(QIList(l167,l339,l3),QIList(l167,l330,l3),l3),l3),QIList(l166,l325,l3),QIList(l167,l339,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l55,l195,QIList(l101,QIList(l5,QIList(l208,l342,l3),QIList(l51,QIList(QIList(l12,l342,l3),l3,l3),QIList(QIList(l12,QIList(l31,l342,l3),l3),QIList(l30,l342,l3),l3),QIList(l4,QIList(l243,QIList(QIList(l343,QIList(l16,l3),l3),l3),QIList(l165,QIList(l243,QIList(QIList(QIList(l167,l343,l3),QIList(l167,QIList(l30,l342,l3),l3),l3),l3),QIList(l205,QIList(l167,l343,l3),QIList(l167,l343,l3),QIList(l55,QIList(l166,QIList(l31,l342,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l195,QIList(l101,QIList(l5,QIList(l208,l342,l3),QIList(l51,QIList(QIList(l12,l342,l3),l4,l3),QIList(QIList(l12,QIList(l31,l342,l3),l3),QIList(l30,l342,l3),l3),QIList(l4,QIList(l165,QIList(l205,QIList(l167,QIList(l30,l342,l3),l3),QIList(l54,QIList(l166,QIList(l31,l342,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l195,QIList(l101,QIList(l5,QIList(l330,l208,l344,l3),QIList(l165,QIList(l52,QIList(l167,l330,l3),QIList(l166,QIList(l64,l344,QIList(l165,QIList(QIList(l4,QIList(l300,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l195,QIList(l101,QIList(l5,QIList(l330,l208,l344,l3),QIList(l243,QIList(QIList(l345,QIList(l16,l3),l3),l3),QIList(l165,QIList(l243,QIList(QIList(QIList(l167,l345,l3),QIList(l167,l330,l3),l3),l3),QIList(l51,QIList(l166,QIList(l73,QIList(l5,QIList(l346,l3),QIList(l205,QIList(l289,QIList(l30,l346,l3),l4,l3),l346,QIList(l165,QIList(QIList(l26,QIList(l167,l345,l3),QIList(l164,QIList(l167,QIList(l30,l346,l3),l3),l3),l3),QIList(l166,QIList(l31,l346,l3),l3),l3),l3),l3),l3),l344,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l195,QIList(l101,QIList(l5,QIList(l208,l344,l3),QIList(l205,QIList(l12,l344,l3),l3,QIList(l205,QIList(l289,QIList(l32,l344,l3),l4,l3),QIList(l165,QIList(l238,QIList(l166,QIList(l34,l344,l3),l3),l3),l3),QIList(l165,QIList(l205,QIList(l167,QIList(l32,l344,l3),l3),QIList(l238,QIList(l166,QIList(l34,l344,l3),l3),l3),QIList(l51,QIList(l166,QIList(l31,l344,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l195,QIList(l101,QIList(l5,QIList(l347,l208,l325,l3),QIList(l243,QIList(QIList(l348,QIList(l16,l3),l3),QIList(l349,QIList(l39,l347,l3),l3),QIList(l350,QIList(l40,l347,l3),l3),QIList(l341,QIList(l41,l347,l3),l3),l3),QIList(l165,QIList(l181,l3,QIList(l243,QIList(QIList(QIList(l167,l349,l3),0,l3),QIList(QIList(l167,l348,l3),QIList(l167,l350,l3),l3),l3),QIList(l229,QIList(l275,QIList(l167,l349,l3),QIList(l167,l348,l3),l3),QIList(l257,QIList(l166,l325,l3),l3),QIList(l46,QIList(l167,l349,l3),l3),l3),QIList(l167,l341,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l195,QIList(l101,QIList(l5,QIList(l347,l208,l325,l3),QIList(l243,QIList(QIList(l349,QIList(l39,l347,l3),l3),QIList(l351,QIList(l16,l3),l3),l3),QIList(l165,QIList(l181,l3,QIList(l243,QIList(QIList(QIList(l167,l351,l3),QIList(l167,QIList(l40,l347,l3),l3),l3),QIList(QIList(l167,l349,l3),l3,l3),l3),QIList(l229,QIList(l167,l351,l3),QIList(l222,QIList(l167,l349,l3),QIList(l30,QIList(l167,l351,l3),l3),l3),QIList(l257,QIList(l166,l325,l3),l3),QIList(l222,QIList(l167,l351,l3),QIList(l31,QIList(l167,l351,l3),l3),l3),l3),QIList(l167,QIList(l41,l347,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l195,QIList(l101,QIList(l5,QIList(l323,l352,l3),QIList(l165,QIList(l222,QIList(l167,l352,l3),QIList(l28,QIList(l167,l323,l3),QIList(l167,l352,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l195,QIList(l101,QIList(l5,QIList(l323,l207,QIList(l353,1,l3),l3),QIList(l165,QIList(l222,QIList(l167,l323,l3),QIList(l62,QIList(l167,l323,l3),QIList(l167,l353,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l195,QIList(l101,QIList(l5,QIList(l323,l207,QIList(l353,1,l3),l3),QIList(l165,QIList(l222,QIList(l167,l323,l3),QIList(l61,QIList(l167,l323,l3),QIList(l167,l353,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l195,QIList(l101,QIList(l5,QIList(l354,l208,l325,l3),QIList(l165,QIList(l181,l3,QIList(l229,QIList(l167,l354,l3),QIList(l166,l325,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l195,QIList(l101,QIList(l5,QIList(l207,l339,l3),QIList(l165,QIList(l250,l3,QIList(l167,l339,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l195,QIList(l101,QIList(l5,QIList(l328,l324,l208,l325,l3),QIList(l165,QIList(l238,QIList(l285,QIList(l164,QIList(l167,l328,l3),l3),QIList(l10,QIList(l167,QIList(l284,l328,l3),l3),QIList(l167,l324,l3),QIList(l166,QIList(l205,QIList(l54,QIList(l292,QIList(l30,l325,l3),l3),QIList(l27,QIList(l12,QIList(l31,l325,l3),l3),l3),l3),QIList(l165,QIList(QIList(l167,QIList(l30,l325,l3),l3),QIList(l181,QIList(l167,l328,l3),QIList(l166,QIList(l31,l325,l3),l3),l3),l3),l3),QIList(l165,QIList(QIList(l181,QIList(l167,l328,l3),QIList(l166,l325,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l164,QIList(l167,l328,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l195,QIList(l101,QIList(l5,QIList(l328,l324,l208,l325,l3),QIList(l243,QIList(QIList(l323,QIList(l16,"FN",l3),l3),l3),QIList(l165,QIList(l243,QIList(QIList(QIList(l167,l323,l3),QIList(l5,QIList(l167,l324,l3),QIList(l166,l325,l3),l3),l3),l3),QIList(l304,QIList(l167,l323,l3),"fname",QIList(l167,l328,l3),l3),QIList(l167,l323,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l195,QIList(l101,QIList(l5,QIList(l328,l339,l207,l355,l3),QIList(l165,QIList(l238,QIList(l222,QIList(l167,l328,l3),QIList(l167,l339,l3),l3),QIList(l166,QIList(l6,QIList(l292,l355,l3),QIList(l165,QIList(QIList(l304,QIList(l164,QIList(l167,l328,l3),l3),"vardoc",QIList(l167,l355,l3),l3),l3),l3),l3),l3),QIList(l164,QIList(l167,l328,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l195,QIList(l101,QIList(l5,QIList(l328,l339,l207,l355,l3),QIList(l165,QIList(l238,QIList(l2,QIList(l199,QIList(l167,l328,l3),l3),l3),QIList(l7,QIList(l18,QIList(l164,QIList(l167,l328,l3),l3),l3),QIList(l222,QIList(l167,l328,l3),QIList(l167,l339,l3),l3),l3),QIList(l166,QIList(l6,QIList(l292,l355,l3),QIList(l165,QIList(QIList(l304,QIList(l164,QIList(l167,l328,l3),l3),"vardoc",QIList(l167,l355,l3),l3),l3),l3),l3),l3),QIList(l164,QIList(l167,l328,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l195,QIList(l101,QIList(l5,QIList(l354,l208,l325,l3),QIList(l165,QIList(l205,QIList(l167,l354,l3),l3,QIList(l238,QIList(l166,l325,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l195,QIList(l101,QIList(l5,QIList(l354,l208,l325,l3),QIList(l165,QIList(l205,QIList(l167,l354,l3),QIList(l238,QIList(l166,l325,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l195,QIList(l101,QIList(l5,QIList(l324,l208,l325,l3),QIList(l165,QIList(l101,QIList(l5,QIList(l167,l324,l3),QIList(l166,l325,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l195,QIList(l101,QIList(l5,QIList(l208,l326,l3),QIList(l165,QIList(l237,QIList(l166,QIList(l73,QIList(l5,QIList(l327,l3),QIList(l165,QIList(l198,QIList(l164,QIList(l167,l327,l3),l3),l3),l3),l3),l326,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l195,QIList(l101,QIList(l5,QIList(l328,l324,l208,l325,l3),QIList(l165,QIList(l237,QIList(l194,QIList(l164,QIList(l167,l328,l3),l3),QIList(l164,QIList(l101,QIList(l5,QIList(l167,QIList(l73,QIList(l101,QIList(l5,QIList(l323,l3),QIList(l205,QIList(l289,l323,QIList(l164,l318,l3),l3),QIList(l164,l208,l3),l323,l3),l3),l3),l324,l3),l3),QIList(l166,l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3); +(function(){ + l122.fvalue(pv, l318); l122.fvalue(pv, l317); l122.fvalue(pv, l316); l122.fvalue(pv, l315); @@ -8481,10 +8539,10 @@ var l355 = QIList(QIList(QIList(l263,l102,l3,QIList(l199,l3),l3),QIList(l253,l10 l122.fvalue(pv, l3); l122.fvalue(pv, l2); l122.fvalue(pv, l1); - ((l225).value = l319); - ((l185).value = l355); - ((l186).value = 843); + ((l225).value = l320); + ((l185).value = l356); + ((l186).value = 848); ((l15).value = 217); - return ((l246).value = 286); + return ((l247).value = 287); })(); -((l226).value = 355); +((l226).value = 356); diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 62fe386..748d485 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -1439,19 +1439,17 @@ (define-compilation labels (definitions &rest body) (let* ((fnames (mapcar #'car definitions)) - (fbody (mapcar #'cdr definitions)) (*environment* (extend-lexenv (mapcar #'make-function-binding fnames) *environment* - 'function)) - (cfuncs (mapcar #'compile-function-definition fbody))) - (concat "(function(){" *newline* - (join (mapcar (lambda (func) - ()) - definitions)) - (let ((body (ls-compile-block body t))) - (indent body)) - "})"))) + 'function))) + (js!selfcall + (mapconcat (lambda (func) + (concat "var " (translate-function (car func)) + " = " (compile-lambda (cadr func) (cddr func)) + ";" *newline*)) + definitions) + (ls-compile-block body t)))) @@ -2235,8 +2233,8 @@ disassemble do do* documentation dolist dotimes ecase eq eql equal error eval every export fdefinition find-package find-symbol first flet fourth fset funcall function functionp gensym get-universal-time - go identity if in-package incf integerp integerp intern keywordp lambda - last length let let* list-all-packages list listp make-array + go identity if in-package incf integerp integerp intern keywordp labels + lambda last length let let* list-all-packages list listp make-array make-package make-symbol mapcar member minusp mod multiple-value-bind multiple-value-call multiple-value-list multiple-value-prog1 nil not nth nthcdr null numberp or package-name package-use-list packagep -- 1.7.10.4