From 884a8d2eb7de40b55fbe31bc121ab1ff9392e351 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Tue, 12 Feb 2013 00:50:28 +0000 Subject: [PATCH] Support SVAR in function lambda-lists --- ecmalisp.js | 2493 +++++++++++++++++++++++++++++---------------------------- ecmalisp.lisp | 141 ++-- 2 files changed, 1355 insertions(+), 1279 deletions(-) diff --git a/ecmalisp.js b/ecmalisp.js index 1cc079a..47b7e16 100644 --- a/ecmalisp.js +++ b/ecmalisp.js @@ -107,9 +107,10 @@ var l18 = {name: "INTEGER-TO-STRING"}; return v4; })((function (values,v3){ checkArgsAtMost(arguments, 2); + var v3; switch(arguments.length-1){ case 0: - v3="G"; + v3="G"; default: break; } return (function(){ @@ -1561,9 +1562,10 @@ var l99 = {name: "SUBSEQ"}; })((function (values,v170,v171,v172){ checkArgsAtLeast(arguments, 3); checkArgsAtMost(arguments, 4); + var v172; switch(arguments.length-1){ case 2: - v172=l5.value; + v172=l5.value; default: break; } return (function(){ @@ -2326,14 +2328,15 @@ var l143 = {name: "INHERIT", 'package': 'KEYWORD'}; })((function (values,v250,v251){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v251; switch(arguments.length-1){ case 1: - v251=(function(){ - var symbol = l137; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); + v251=(function(){ + var symbol = l137; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(); default: break; } return (function(){ @@ -2398,25 +2401,28 @@ var l145 = {name: "EXPORT"}; })((function (values,v259,v260){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v260; switch(arguments.length-1){ case 1: - v260=(function(){ - var symbol = l137; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); + v260=(function(){ + var symbol = l137; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(); default: break; } return (function(){ return (function(v261){ return (function(){ var func = (function (values,v263,v264){ + var v263; + var v264; switch(arguments.length-1){ case 0: - v263=l5.value; + v263=l5.value; case 1: - v264=l5.value; + v264=l5.value; default: break; } var v262= l5.value; @@ -2494,14 +2500,15 @@ var l145 = {name: "EXPORT"}; })((function (values,v270,v271){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v271; switch(arguments.length-1){ case 1: - v271=(function(){ - var symbol = l137; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); + v271=(function(){ + var symbol = l137; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(); default: break; } return (function(){ @@ -2585,9 +2592,10 @@ var l150 = {name: "JOIN"}; })((function (values,v279,v280){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v280; switch(arguments.length-1){ case 1: - v280=""; + v280=""; default: break; } return (function(){ @@ -2616,9 +2624,10 @@ var l151 = {name: "JOIN-TRAILING"}; })((function (values,v282,v283){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v283; switch(arguments.length-1){ case 1: - v283=""; + v283=""; default: break; } return (function(){ @@ -2818,11 +2827,13 @@ var l158 = {name: "ESCAPE-STRING"}; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value) !== l5.value ? (function(){ var func = (function (values,v310,v311){ + var v310; + var v311; switch(arguments.length-1){ case 0: - v310=l5.value; + v310=l5.value; case 1: - v311=l5.value; + v311=l5.value; default: break; } var v309= l5.value; @@ -3737,9 +3748,10 @@ var l188 = {name: "MAKE-BINDING"}; })((function (values,v405,v406,v407,v408){ checkArgsAtLeast(arguments, 4); checkArgsAtMost(arguments, 5); + var v408; switch(arguments.length-1){ case 3: - v408=l5.value; + v408=l5.value; default: break; } return (function(){ @@ -4324,7 +4336,7 @@ var l223 = {name: "IF"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l224 = {name: "*LAMBDA-LIST-KEYWORDS*"}; +var l224 = {name: "*LL-KEYWORDS*"}; var l225 = {name: "&OPTIONAL"}; var l226 = {name: "&REST"}; var l227 = {name: "&KEY"}; @@ -4362,10 +4374,10 @@ var l229 = {name: "LIST-UNTIL-KEYWORD"}; })); return l229; })(); -var l230 = {name: "LAMBDA-LIST-SECTION"}; +var l230 = {name: "LL-SECTION"}; (function(){ (l230).fvalue = (function(v496){ - ((v496)["fname"] = "LAMBDA-LIST-SECTION"); + ((v496)["fname"] = "LL-SECTION"); return v496; })((function (values,v494,v495){ checkArgs(arguments, 3); @@ -4378,10 +4390,10 @@ var l230 = {name: "LAMBDA-LIST-SECTION"}; })); return l230; })(); -var l231 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"}; +var l231 = {name: "LL-REQUIRED-ARGUMENTS"}; (function(){ (l231).fvalue = (function(v498){ - ((v498)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS"); + ((v498)["fname"] = "LL-REQUIRED-ARGUMENTS"); return v498; })((function (values,v497){ checkArgs(arguments, 2); @@ -4391,10 +4403,10 @@ var l231 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"}; })); return l231; })(); -var l232 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"}; +var l232 = {name: "LL-OPTIONAL-ARGUMENTS-CANONICAL"}; (function(){ (l232).fvalue = (function(v500){ - ((v500)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"); + ((v500)["fname"] = "LL-OPTIONAL-ARGUMENTS-CANONICAL"); return v500; })((function (values,v499){ checkArgs(arguments, 2); @@ -4409,10 +4421,10 @@ var l232 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"}; })); return l232; })(); -var l233 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"}; +var l233 = {name: "LL-OPTIONAL-ARGUMENTS"}; (function(){ (l233).fvalue = (function(v502){ - ((v502)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS"); + ((v502)["fname"] = "LL-OPTIONAL-ARGUMENTS"); return v502; })((function (values,v501){ checkArgs(arguments, 2); @@ -4427,10 +4439,10 @@ var l233 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"}; })); return l233; })(); -var l234 = {name: "LAMBDA-LIST-REST-ARGUMENT"}; +var l234 = {name: "LL-REST-ARGUMENT"}; (function(){ (l234).fvalue = (function(v505){ - ((v505)["fname"] = "LAMBDA-LIST-REST-ARGUMENT"); + ((v505)["fname"] = "LL-REST-ARGUMENT"); return v505; })((function (values,v503){ checkArgs(arguments, 2); @@ -4451,68 +4463,80 @@ var l234 = {name: "LAMBDA-LIST-REST-ARGUMENT"}; })); return l234; })(); -var l235 = {name: "LAMBDA-LIST-KEYWORD-ARGUMENTS-CANONICAL"}; +var l235 = {name: "LL-KEYWORD-ARGUMENTS-CANONICAL"}; (function(){ - (l235).fvalue = (function(v513){ - ((v513)["fname"] = "LAMBDA-LIST-KEYWORD-ARGUMENTS-CANONICAL"); - return v513; + (l235).fvalue = (function(v510){ + ((v510)["fname"] = "LL-KEYWORD-ARGUMENTS-CANONICAL"); + return v510; })((function (values,v506){ checkArgs(arguments, 2); return (function(){ - return (function(v512){ - return l79.fvalue(values, v512, l230.fvalue(pv, l227, v506)); + return (function(v509){ + return l79.fvalue(values, v509, l230.fvalue(pv, l227, v506)); })((function (values,v507){ checkArgs(arguments, 2); - return (function(){ - var v508 = l59.fvalue(pv, v507); - var v509 = l34.fvalue(pv, v508); - var v510 = l5.value; - var v511 = l5.value; - (l60.fvalue(pv, (function(){ + return (function(v508){ + return ({car: (l60.fvalue(pv, (function(){ var tmp = v508; return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? (v510 = l34.fvalue(pv, (function(){ + })()) !== l5.value ? (function(){ var tmp = v508; return tmp === l5.value? l5.value: tmp.car; - })()), v511 = (function(){ - var tmp = (function(){ - var tmp = v508; - return tmp === l5.value? l5.value: tmp.car; - })(); - return tmp === l5.value? l5.value: tmp.car; - })()) : (v510 = (function(){ + })() : l45.fvalue(pv, l144.fvalue(pv, ((function(){ var tmp = v508; return tmp === l5.value? l5.value: tmp.car; - })(), v511 = l144.fvalue(pv, ((function(){ + })()).name, "KEYWORD"), (function(){ var tmp = v508; return tmp === l5.value? l5.value: tmp.car; - })()).name, "KEYWORD"))); - return l66.fvalue(pv, l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, v511), l45.fvalue(pv, v510))), l45.fvalue(pv, v509)); - })(); + })())), cdr: (function(){ + var tmp = v508; + return tmp === l5.value? l5.value: tmp.cdr; + })()}); + })(l59.fvalue(pv, v507)); })); })(); })); return l235; })(); -var l236 = {name: "LAMBDA-LIST-KEYWORD-ARGUMENTS"}; +var l236 = {name: "LL-KEYWORD-ARGUMENTS"}; (function(){ - (l236).fvalue = (function(v516){ - ((v516)["fname"] = "LAMBDA-LIST-KEYWORD-ARGUMENTS"); - return v516; - })((function (values,v514){ + (l236).fvalue = (function(v513){ + ((v513)["fname"] = "LL-KEYWORD-ARGUMENTS"); + return v513; + })((function (values,v511){ checkArgs(arguments, 2); return (function(){ - return l79.fvalue(values, (function (values,v515){ + return l79.fvalue(values, (function (values,v512){ checkArgs(arguments, 2); - return l41.fvalue(values, l40.fvalue(pv, v515)); - }), l235.fvalue(pv, v514)); + return l41.fvalue(values, l40.fvalue(pv, v512)); + }), l235.fvalue(pv, v511)); })(); })); return l236; })(); -var l237 = {name: "LAMBDA-DOCSTRING-WRAPPER"}; +var l237 = {name: "LL-SVARS"}; (function(){ - (l237).fvalue = (function(v519){ + (l237).fvalue = (function(v516){ + ((v516)["fname"] = "LL-SVARS"); + return v516; + })((function (values,v514){ + checkArgs(arguments, 2); + return (function(){ + return (function(v515){ + return l94.fvalue(values, l5.value, l79.fvalue(pv, (function(){ + var symbol = l42; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v515)); + })(l66.fvalue(pv, l235.fvalue(pv, v514), l232.fvalue(pv, v514))); + })(); + })); + return l237; +})(); +var l238 = {name: "LAMBDA-DOCSTRING-WRAPPER"}; +(function(){ + (l238).fvalue = (function(v519){ ((v519)["fname"] = "LAMBDA-DOCSTRING-WRAPPER"); return v519; })((function (values,v518){ @@ -4559,12 +4583,12 @@ var l237 = {name: "LAMBDA-DOCSTRING-WRAPPER"}; })()); })(); })); - return l237; + return l238; })(); -var l238 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"}; -var l239 = {name: "N/A"}; +var l239 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"}; +var l240 = {name: "N/A"}; (function(){ - (l238).fvalue = (function(v525){ + (l239).fvalue = (function(v525){ ((v525)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT"); return v525; })((function (values,v520,v521,v522){ @@ -4579,7 +4603,7 @@ var l239 = {name: "N/A"}; return (1=1; i--) - v568 = {car: arguments[i], cdr: - v568}; + v569 = {car: arguments[i], cdr: + v569}; return (function(){ - return (function(v569){ + return (function(v570){ (function(){ try { return (function(){ while(l4.value !== l5.value){ - (l13.fvalue(pv, v568) !== l5.value ? (function(){ - throw ({type: 'block', id: 200, values: l5.value, message: 'Return from unknown block NIL.'}) + (l13.fvalue(pv, v569) !== l5.value ? (function(){ + throw ({type: 'block', id: 201, values: l5.value, message: 'Return from unknown block NIL.'}) })() : (l13.fvalue(pv, (function(){ - var tmp = v568; + var tmp = v569; return tmp === l5.value? l5.value: tmp.cdr; })()) !== l5.value ? (function(){ throw "Odd paris in SETQ"; })() : (function(){ - (v569 = l148.fvalue(pv, v569, l148.fvalue(pv, l245.fvalue(pv, (function(){ - var tmp = v568; + (v570 = l148.fvalue(pv, v570, l148.fvalue(pv, l246.fvalue(pv, (function(){ + var tmp = v569; return tmp === l5.value? l5.value: tmp.car; - })(), l34.fvalue(pv, v568)), (l13.fvalue(pv, l36.fvalue(pv, v568)) !== l5.value ? "" : ", ")))); - return (v568 = l36.fvalue(pv, v568)); + })(), l34.fvalue(pv, v569)), (l13.fvalue(pv, l36.fvalue(pv, v569)) !== l5.value ? "" : ", ")))); + return (v569 = l36.fvalue(pv, v569)); })())); }return l5.value; })(); } catch (cf){ - if (cf.type == 'block' && cf.id == 200) + if (cf.type == 'block' && cf.id == 201) return cf.values; else throw cf; } })(); - return l182.fvalue(values, "(", v569, ")"); + return l182.fvalue(values, "(", v570, ")"); })(""); })(); })), cdr: (function(){ @@ -4990,11 +5044,11 @@ var l246 = {name: "SET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l247 = {name: "JS-VREF"}; -((l221).value = ({car: l45.fvalue(pv, l247, (function (values,v570){ +var l248 = {name: "JS-VREF"}; +((l221).value = ({car: l45.fvalue(pv, l248, (function (values,v571){ checkArgs(arguments, 2); return (function(){ - return v570; + return v571; })(); })), cdr: (function(){ var symbol = l221; @@ -5002,11 +5056,11 @@ var l247 = {name: "JS-VREF"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l248 = {name: "JS-VSET"}; -((l221).value = ({car: l45.fvalue(pv, l248, (function (values,v571,v572){ +var l249 = {name: "JS-VSET"}; +((l221).value = ({car: l45.fvalue(pv, l249, (function (values,v572,v573){ checkArgs(arguments, 3); return (function(){ - return l182.fvalue(values, "(", v571, " = ", l184.fvalue(pv, v572), ")"); + return l182.fvalue(values, "(", v572, " = ", l184.fvalue(pv, v573), ")"); })(); })), cdr: (function(){ var symbol = l221; @@ -5015,75 +5069,75 @@ var l248 = {name: "JS-VSET"}; return value; })()})); (function(){ - (l158).fvalue = (function(v579){ - ((v579)["fname"] = "ESCAPE-STRING"); - return v579; - })((function (values,v573){ + (l158).fvalue = (function(v580){ + ((v580)["fname"] = "ESCAPE-STRING"); + return v580; + })((function (values,v574){ checkArgs(arguments, 2); return (function(){ - return (function(v574,v575,v576){ + return (function(v575,v576,v577){ (function(){ return (function(){ while((function(){ - var x1 = v575; + var x1 = v576; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v576; + var x2 = v577; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=2; i--) - v597 = {car: arguments[i], cdr: - v597}; + v598 = {car: arguments[i], cdr: + v598}; return (function(){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "while(", l184.fvalue(pv, v598), " !== ", l184.fvalue(pv, l5.value), "){", (function(){ + })(), l186.fvalue(pv, "while(", l184.fvalue(pv, v599), " !== ", l184.fvalue(pv, l5.value), "){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l244.fvalue(pv, v597)), "}", "return ", l184.fvalue(pv, l5.value), ";", (function(){ + })(), l186.fvalue(pv, l245.fvalue(pv, v598)), "}", "return ", l184.fvalue(pv, l5.value), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5215,19 +5270,19 @@ var l253 = {name: "%WHILE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l254 = {name: "SYMBOL-FUNCTION"}; -((l221).value = ({car: l45.fvalue(pv, l109, (function (values,v599){ +var l255 = {name: "SYMBOL-FUNCTION"}; +((l221).value = ({car: l45.fvalue(pv, l109, (function (values,v600){ checkArgs(arguments, 2); return (function(){ - return ((l60.fvalue(pv, v599) !== l5.value ? (((function(){ - var tmp = v599; + return ((l60.fvalue(pv, v600) !== l5.value ? (((function(){ + var tmp = v600; return tmp === l5.value? l5.value: tmp.car; - })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l243.fvalue(values, l34.fvalue(pv, v599), l36.fvalue(pv, v599)) : (((function(){ - var tmp = v599; + })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l244.fvalue(values, l34.fvalue(pv, v600), l36.fvalue(pv, v600)) : (((function(){ + var tmp = v600; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v600){ - return (v600 !== l5.value ? l191.fvalue(values, v600) : l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l254), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v599)))))); - })(l202.fvalue(pv, v599, (function(){ + })()?l4.value: l5.value) !== l5.value ? (function(v601){ + return (v601 !== l5.value ? l191.fvalue(values, v601) : l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l255), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v600)))))); + })(l202.fvalue(pv, v600, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5240,49 +5295,49 @@ var l254 = {name: "SYMBOL-FUNCTION"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l255 = {name: "MAKE-FUNCTION-BINDING"}; +var l256 = {name: "MAKE-FUNCTION-BINDING"}; (function(){ - (l255).fvalue = (function(v602){ - ((v602)["fname"] = "MAKE-FUNCTION-BINDING"); - return v602; - })((function (values,v601){ + (l256).fvalue = (function(v603){ + ((v603)["fname"] = "MAKE-FUNCTION-BINDING"); + return v603; + })((function (values,v602){ checkArgs(arguments, 2); return (function(){ - return l188.fvalue(values, v601, l109, l205.fvalue(pv, v601)); + return l188.fvalue(values, v602, l109, l205.fvalue(pv, v602)); })(); })); - return l255; + return l256; })(); -var l256 = {name: "COMPILE-FUNCTION-DEFINITION"}; +var l257 = {name: "COMPILE-FUNCTION-DEFINITION"}; (function(){ - (l256).fvalue = (function(v604){ - ((v604)["fname"] = "COMPILE-FUNCTION-DEFINITION"); - return v604; - })((function (values,v603){ + (l257).fvalue = (function(v605){ + ((v605)["fname"] = "COMPILE-FUNCTION-DEFINITION"); + return v605; + })((function (values,v604){ checkArgs(arguments, 2); return (function(){ - return l243.fvalue(values, (function(){ - var tmp = v603; + return l244.fvalue(values, (function(){ + var tmp = v604; return tmp === l5.value? l5.value: tmp.car; })(), (function(){ - var tmp = v603; + var tmp = v604; return tmp === l5.value? l5.value: tmp.cdr; })()); })(); })); - return l256; + return l257; })(); -var l257 = {name: "TRANSLATE-FUNCTION"}; +var l258 = {name: "TRANSLATE-FUNCTION"}; (function(){ - (l257).fvalue = (function(v607){ - ((v607)["fname"] = "TRANSLATE-FUNCTION"); - return v607; - })((function (values,v605){ + (l258).fvalue = (function(v608){ + ((v608)["fname"] = "TRANSLATE-FUNCTION"); + return v608; + })((function (values,v606){ checkArgs(arguments, 2); return (function(){ - return (function(v606){ - return l191.fvalue(values, v606); - })(l202.fvalue(pv, v605, (function(){ + return (function(v607){ + return l191.fvalue(values, v607); + })(l202.fvalue(pv, v606, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5290,64 +5345,64 @@ var l257 = {name: "TRANSLATE-FUNCTION"}; })(), l109)); })(); })); - return l257; + return l258; })(); -var l258 = {name: "FLET"}; -((l221).value = ({car: l45.fvalue(pv, l258, (function (values,v609){ +var l259 = {name: "FLET"}; +((l221).value = ({car: l45.fvalue(pv, l259, (function (values,v610){ checkArgsAtLeast(arguments, 2); - var v608= l5.value; + var v609= l5.value; for (var i = arguments.length-1; i>=2; i--) - v608 = {car: arguments[i], cdr: - v608}; + v609 = {car: arguments[i], cdr: + v609}; return (function(){ return (function(){ try { - var v614 = l203.value; - var v610 = l79.fvalue(pv, (function(){ + var v615 = l203.value; + var v611 = l79.fvalue(pv, (function(){ var symbol = l31; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v609); - var v611 = l79.fvalue(pv, (function(){ + })(), v610); + var v612 = l79.fvalue(pv, (function(){ var symbol = l32; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v609); - var v612 = l79.fvalue(pv, (function(){ - var symbol = l256; + })(), v610); + var v613 = l79.fvalue(pv, (function(){ + var symbol = l257; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v611); + })(), v612); ((l203).value = l201.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l255; + var symbol = l256; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v610), (function(){ + })(), v611), (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l109)); return l182.fvalue(values, "(function(", l150.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l257; + var symbol = l258; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v610), ","), "){", (function(){ + })(), v611), ","), "){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (function(v613){ - return l186.fvalue(pv, v613); - })(l244.fvalue(pv, v608, l4.value)), "})(", l150.fvalue(pv, v612, ","), ")"); + })(), (function(v614){ + return l186.fvalue(pv, v614); + })(l245.fvalue(pv, v609, l4.value)), "})(", l150.fvalue(pv, v613, ","), ")"); } finally { - l203.value = v614; + l203.value = v615; } })(); })(); @@ -5357,29 +5412,29 @@ var l258 = {name: "FLET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l259 = {name: "LABELS"}; -((l221).value = ({car: l45.fvalue(pv, l259, (function (values,v616){ +var l260 = {name: "LABELS"}; +((l221).value = ({car: l45.fvalue(pv, l260, (function (values,v617){ checkArgsAtLeast(arguments, 2); - var v615= l5.value; + var v616= l5.value; for (var i = arguments.length-1; i>=2; i--) - v615 = {car: arguments[i], cdr: - v615}; + v616 = {car: arguments[i], cdr: + v616}; return (function(){ return (function(){ try { - var v619 = l203.value; - var v617 = l79.fvalue(pv, (function(){ + var v620 = l203.value; + var v618 = l79.fvalue(pv, (function(){ var symbol = l31; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v616); + })(), v617); ((l203).value = l201.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l255; + var symbol = l256; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v617), (function(){ + })(), v618), (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5390,21 +5445,21 @@ var l259 = {name: "LABELS"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v618){ + })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v619){ checkArgs(arguments, 2); - return l182.fvalue(values, "var ", l257.fvalue(pv, (function(){ - var tmp = v618; + return l182.fvalue(values, "var ", l258.fvalue(pv, (function(){ + var tmp = v619; return tmp === l5.value? l5.value: tmp.car; - })()), " = ", l243.fvalue(pv, l34.fvalue(pv, v618), l36.fvalue(pv, v618)), ";", (function(){ + })()), " = ", l244.fvalue(pv, l34.fvalue(pv, v619), l36.fvalue(pv, v619)), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - }), v616), l244.fvalue(pv, v615, l4.value)), "})()"); + }), v617), l245.fvalue(pv, v616, l4.value)), "})()"); } finally { - l203.value = v619; + l203.value = v620; } })(); })(); @@ -5414,28 +5469,28 @@ var l259 = {name: "LABELS"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l260 = {name: "*COMPILING-FILE*"}; +var l261 = {name: "*COMPILING-FILE*"}; (function(){ - (((l260.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l260).value = l5.value)); - return l260; + (((l261.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l261).value = l5.value)); + return l261; })(); -var l261 = {name: "EVAL-WHEN-COMPILE"}; -var l262 = {name: "EVAL"}; -((l221).value = ({car: l45.fvalue(pv, l261, (function (values){ - var v620= l5.value; +var l262 = {name: "EVAL-WHEN-COMPILE"}; +var l263 = {name: "EVAL"}; +((l221).value = ({car: l45.fvalue(pv, l262, (function (values){ + var v621= l5.value; for (var i = arguments.length-1; i>=1; i--) - v620 = {car: arguments[i], cdr: - v620}; + v621 = {car: arguments[i], cdr: + v621}; return (function(){ return ((function(){ - var symbol = l260; + var symbol = l261; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? (function(){ - l262.fvalue(pv, ({car: l118, cdr: v620})); + l263.fvalue(pv, ({car: l118, cdr: v621})); return l5.value; - })() : l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l118), v620))); + })() : l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l118), v621))); })(); })), cdr: (function(){ var symbol = l221; @@ -5443,19 +5498,19 @@ var l262 = {name: "EVAL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l263 = {name: "DEFINE-TRANSFORMATION"}; -l263; +var l264 = {name: "DEFINE-TRANSFORMATION"}; +l264; ((l221).value = ({car: l45.fvalue(pv, l118, (function (values){ - var v621= l5.value; + var v622= l5.value; for (var i = arguments.length-1; i>=1; i--) - v621 = {car: arguments[i], cdr: - v621}; + v622 = {car: arguments[i], cdr: + v622}; return (function(){ return (l13.fvalue(pv, (function(){ - var tmp = v621; + var tmp = v622; return tmp === l5.value? l5.value: tmp.cdr; })()) !== l5.value ? l184.fvalue(values, (function(){ - var tmp = v621; + var tmp = v622; return tmp === l5.value? l5.value: tmp.car; })(), (function(){ var symbol = l187; @@ -5467,7 +5522,7 @@ l263; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l244.fvalue(pv, v621, l4.value)), "})()")); + })(), l186.fvalue(pv, l245.fvalue(pv, v622, l4.value)), "})()")); })(); })), cdr: (function(){ var symbol = l221; @@ -5475,31 +5530,31 @@ l263; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l264 = {name: "SPECIAL-VARIABLE-P"}; +var l265 = {name: "SPECIAL-VARIABLE-P"}; (function(){ - (l264).fvalue = (function(v623){ - ((v623)["fname"] = "SPECIAL-VARIABLE-P"); - return v623; - })((function (values,v622){ + (l265).fvalue = (function(v624){ + ((v624)["fname"] = "SPECIAL-VARIABLE-P"); + return v624; + })((function (values,v623){ checkArgs(arguments, 2); return (function(){ - return (l215.fvalue(pv, v622, l110, l217) !== l5.value ? l4.value : l5.value); + return (l215.fvalue(pv, v623, l110, l217) !== l5.value ? l4.value : l5.value); })(); })); - return l264; + return l265; })(); -var l265 = {name: "LET-BINDING-WRAPPER"}; +var l266 = {name: "LET-BINDING-WRAPPER"}; (function(){ - (l265).fvalue = (function(v630){ - ((v630)["fname"] = "LET-BINDING-WRAPPER"); - return v630; - })((function (values,v624,v625){ + (l266).fvalue = (function(v631){ + ((v631)["fname"] = "LET-BINDING-WRAPPER"); + return v631; + })((function (values,v625,v626){ checkArgs(arguments, 3); return (function(){ try { - (l13.fvalue(pv, v624) !== l5.value ? (function(){ + (l13.fvalue(pv, v625) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 218, values: v625, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 219, values: v626, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) })() : l5.value); return l182.fvalue(values, "try {", (function(){ var symbol = l147; @@ -5511,16 +5566,16 @@ var l265 = {name: "LET-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l152.fvalue(pv, (function (values,v626){ + })(), l152.fvalue(pv, (function (values,v627){ checkArgs(arguments, 2); - return (function(v627){ - return l182.fvalue(values, "tmp = ", v627, ".value;", (function(){ + return (function(v628){ + return l182.fvalue(values, "tmp = ", v628, ".value;", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), v627, ".value = ", (function(){ - var tmp = v626; + })(), v628, ".value = ", (function(){ + var tmp = v627; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ var symbol = l147; @@ -5528,7 +5583,7 @@ var l265 = {name: "LET-BINDING-WRAPPER"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - var tmp = v626; + var tmp = v627; return tmp === l5.value? l5.value: tmp.cdr; })(), " = tmp;", (function(){ var symbol = l147; @@ -5537,10 +5592,10 @@ var l265 = {name: "LET-BINDING-WRAPPER"}; return value; })()); })(l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, (function(){ - var tmp = v626; + var tmp = v627; return tmp === l5.value? l5.value: tmp.car; })())))); - }), v624), v625, (function(){ + }), v625), v626, (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5555,11 +5610,11 @@ var l265 = {name: "LET-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v628){ + })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v629){ checkArgs(arguments, 2); - return (function(v629){ - return l182.fvalue(values, v629, ".value", " = ", (function(){ - var tmp = v628; + return (function(v630){ + return l182.fvalue(values, v630, ".value", " = ", (function(){ + var tmp = v629; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ var symbol = l147; @@ -5568,10 +5623,10 @@ var l265 = {name: "LET-BINDING-WRAPPER"}; return value; })()); })(l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, (function(){ - var tmp = v628; + var tmp = v629; return tmp === l5.value? l5.value: tmp.car; })())))); - }), v624)), "}", (function(){ + }), v625)), "}", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5579,39 +5634,39 @@ var l265 = {name: "LET-BINDING-WRAPPER"}; })()); } catch (cf){ - if (cf.type == 'block' && cf.id == 218) + if (cf.type == 'block' && cf.id == 219) return values.apply(this, forcemv(cf.values)); else throw cf; } })(); })); - return l265; + return l266; })(); -var l266 = {name: "LET"}; -((l221).value = ({car: l45.fvalue(pv, l266, (function (values,v632){ +var l267 = {name: "LET"}; +((l221).value = ({car: l45.fvalue(pv, l267, (function (values,v633){ checkArgsAtLeast(arguments, 2); - var v631= l5.value; + var v632= l5.value; for (var i = arguments.length-1; i>=2; i--) - v631 = {car: arguments[i], cdr: - v631}; + v632 = {car: arguments[i], cdr: + v632}; return (function(){ return (function(){ try { - var v640 = l203.value; - var v633 = l79.fvalue(pv, (function(){ + var v641 = l203.value; + var v634 = l79.fvalue(pv, (function(){ var symbol = l59; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v632); - var v634 = l79.fvalue(pv, (function(){ + })(), v633); + var v635 = l79.fvalue(pv, (function(){ var symbol = l40; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v633); - var v635 = l79.fvalue(pv, (function(){ + })(), v634); + var v636 = l79.fvalue(pv, (function(){ var symbol = l184; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; @@ -5621,31 +5676,31 @@ var l266 = {name: "LET"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v633)); + })(), v634)); ((l203).value = l207.fvalue(pv, l95.fvalue(pv, (function(){ - var symbol = l264; + var symbol = l265; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v634))); - var v636 = l5.value; - return l182.fvalue(values, "(function(", l150.fvalue(pv, l79.fvalue(pv, (function (values,v637){ + })(), v635))); + var v637 = l5.value; + return l182.fvalue(values, "(function(", l150.fvalue(pv, l79.fvalue(pv, (function (values,v638){ checkArgs(arguments, 2); - return (l264.fvalue(pv, v637) !== l5.value ? (function(v638){ - (v636 = ({car: ({car: v637, cdr: v638}), cdr: v636})); - return v638; - })(l205.fvalue(pv, v637)) : l206.fvalue(values, v637)); - }), v634), ","), "){", (function(){ + return (l265.fvalue(pv, v638) !== l5.value ? (function(v639){ + (v637 = ({car: ({car: v638, cdr: v639}), cdr: v637})); + return v639; + })(l205.fvalue(pv, v638)) : l206.fvalue(values, v638)); + }), v635), ","), "){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (function(v639){ - return l186.fvalue(pv, l265.fvalue(pv, v636, v639)); - })(l244.fvalue(pv, v631, l4.value)), "})(", l150.fvalue(pv, v635, ","), ")"); + })(), (function(v640){ + return l186.fvalue(pv, l266.fvalue(pv, v637, v640)); + })(l245.fvalue(pv, v632, l4.value)), "})(", l150.fvalue(pv, v636, ","), ")"); } finally { - l203.value = v640; + l203.value = v641; } })(); })(); @@ -5655,79 +5710,79 @@ var l266 = {name: "LET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l267 = {name: "LET*-INITIALIZE-VALUE"}; +var l268 = {name: "LET*-INITIALIZE-VALUE"}; (function(){ - (l267).fvalue = (function(v647){ - ((v647)["fname"] = "LET*-INITIALIZE-VALUE"); - return v647; - })((function (values,v641){ + (l268).fvalue = (function(v648){ + ((v648)["fname"] = "LET*-INITIALIZE-VALUE"); + return v648; + })((function (values,v642){ checkArgs(arguments, 2); return (function(){ - return (function(v642,v643){ - return (l264.fvalue(pv, v642) !== l5.value ? l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l115), l45.fvalue(pv, v642), l45.fvalue(pv, v643))), ";", (function(){ + return (function(v643,v644){ + return (l265.fvalue(pv, v643) !== l5.value ? l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l115), l45.fvalue(pv, v643), l45.fvalue(pv, v644))), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : (function(){ - var v644 = l205.fvalue(pv, v642); - var v645 = l188.fvalue(pv, v642, l110, v644); - return (function(v646){ - l198.fvalue(pv, v645, (function(){ + var v645 = l205.fvalue(pv, v643); + var v646 = l188.fvalue(pv, v643, l110, v645); + return (function(v647){ + l198.fvalue(pv, v646, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l110); - return v646; - })(l182.fvalue(pv, "var ", v644, " = ", l184.fvalue(pv, v643), ";", (function(){ + return v647; + })(l182.fvalue(pv, "var ", v645, " = ", l184.fvalue(pv, v644), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })()); - })(l40.fvalue(pv, v641),l41.fvalue(pv, v641)); + })(l40.fvalue(pv, v642),l41.fvalue(pv, v642)); })(); })); - return l267; + return l268; })(); -var l268 = {name: "LET*-BINDING-WRAPPER"}; +var l269 = {name: "LET*-BINDING-WRAPPER"}; (function(){ - (l268).fvalue = (function(v656){ - ((v656)["fname"] = "LET*-BINDING-WRAPPER"); - return v656; - })((function (values,v648,v649){ + (l269).fvalue = (function(v657){ + ((v657)["fname"] = "LET*-BINDING-WRAPPER"); + return v657; + })((function (values,v649,v650){ checkArgs(arguments, 3); return (function(){ try { - (l13.fvalue(pv, v648) !== l5.value ? (function(){ + (l13.fvalue(pv, v649) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 221, values: v649, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 222, values: v650, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) })() : l5.value); - return (function(v651){ + return (function(v652){ return l182.fvalue(values, "try {", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v652){ + })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v653){ checkArgs(arguments, 2); - return (function(v653){ + return (function(v654){ return l182.fvalue(values, "var ", (function(){ - var tmp = v652; + var tmp = v653; return tmp === l5.value? l5.value: tmp.cdr; - })(), " = ", v653, ".value;", (function(){ + })(), " = ", v654, ".value;", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })(l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, (function(){ - var tmp = v652; + var tmp = v653; return tmp === l5.value? l5.value: tmp.car; })())))); - }), v651), v649), "}", (function(){ + }), v652), v650), "}", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5737,11 +5792,11 @@ var l268 = {name: "LET*-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v654){ + })(), l186.fvalue(pv, l152.fvalue(pv, (function (values,v655){ checkArgs(arguments, 2); - return (function(v655){ - return l182.fvalue(values, v655, ".value", " = ", (function(){ - var tmp = v654; + return (function(v656){ + return l182.fvalue(values, v656, ".value", " = ", (function(){ + var tmp = v655; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ var symbol = l147; @@ -5750,58 +5805,58 @@ var l268 = {name: "LET*-BINDING-WRAPPER"}; return value; })()); })(l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, (function(){ - var tmp = v654; + var tmp = v655; return tmp === l5.value? l5.value: tmp.car; })())))); - }), v651)), "}", (function(){ + }), v652)), "}", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l79.fvalue(pv, (function (values,v650){ + })(l79.fvalue(pv, (function (values,v651){ checkArgs(arguments, 2); - return ({car: v650, cdr: l205.fvalue(pv, v650)}); + return ({car: v651, cdr: l205.fvalue(pv, v651)}); }), l96.fvalue(pv, (function(){ - var symbol = l264; + var symbol = l265; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v648))); + })(), v649))); } catch (cf){ - if (cf.type == 'block' && cf.id == 221) + if (cf.type == 'block' && cf.id == 222) return values.apply(this, forcemv(cf.values)); else throw cf; } })(); })); - return l268; + return l269; })(); -var l269 = {name: "LET*"}; -((l221).value = ({car: l45.fvalue(pv, l269, (function (values,v658){ +var l270 = {name: "LET*"}; +((l221).value = ({car: l45.fvalue(pv, l270, (function (values,v659){ checkArgsAtLeast(arguments, 2); - var v657= l5.value; + var v658= l5.value; for (var i = arguments.length-1; i>=2; i--) - v657 = {car: arguments[i], cdr: - v657}; + v658 = {car: arguments[i], cdr: + v658}; return (function(){ - return (function(v659,v660){ + return (function(v660,v661){ try { var tmp; tmp = l203.value; - l203.value = v660; - v660 = tmp; + l203.value = v661; + v661 = tmp; return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, (function(v661,v662){ - return l268.fvalue(pv, v661, v662); + })(), l186.fvalue(pv, (function(v662,v663){ + return l269.fvalue(pv, v662, v663); })(l96.fvalue(pv, (function(){ - var symbol = l264; + var symbol = l265; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; @@ -5810,22 +5865,22 @@ var l269 = {name: "LET*"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v659)),l148.fvalue(pv, l152.fvalue(pv, (function(){ - var symbol = l267; + })(), v660)),l148.fvalue(pv, l152.fvalue(pv, (function(){ + var symbol = l268; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v659), l244.fvalue(pv, v657, l4.value)))), "})()"); + })(), v660), l245.fvalue(pv, v658, l4.value)))), "})()"); } finally { - l203.value = v660; + l203.value = v661; } })(l79.fvalue(pv, (function(){ var symbol = l59; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v658),l197.fvalue(pv, (function(){ + })(), v659),l197.fvalue(pv, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5838,24 +5893,24 @@ var l269 = {name: "LET*"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l270 = {name: "*BLOCK-COUNTER*"}; +var l271 = {name: "*BLOCK-COUNTER*"}; (function(){ - (((l270.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l270).value = 0)); - return l270; + (((l271.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l271).value = 0)); + return l271; })(); -var l271 = {name: "MULTIPLE-VALUE"}; -var l272 = {name: "USED"}; -((l221).value = ({car: l45.fvalue(pv, l199, (function (values,v664){ +var l272 = {name: "MULTIPLE-VALUE"}; +var l273 = {name: "USED"}; +((l221).value = ({car: l45.fvalue(pv, l199, (function (values,v665){ checkArgsAtLeast(arguments, 2); - var v663= l5.value; + var v664= l5.value; for (var i = arguments.length-1; i>=2; i--) - v663 = {car: arguments[i], cdr: - v663}; + v664 = {car: arguments[i], cdr: + v664}; return (function(){ return (function(){ - var v665 = ((l270).value = (function(){ + var v666 = ((l271).value = (function(){ var x1 = (function(){ - var symbol = l270; + var symbol = l271; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -5863,24 +5918,24 @@ var l272 = {name: "USED"}; if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; })()); - var v666 = l188.fvalue(pv, v664, l199, v665); + var v667 = l188.fvalue(pv, v665, l199, v666); ((function(){ var symbol = l187; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l195.fvalue(pv, l271, v666) : l5.value); + })() !== l5.value ? l195.fvalue(pv, l272, v667) : l5.value); return (function(){ try { - var v668 = l203.value; - ((l203).value = l201.fvalue(pv, l45.fvalue(pv, v666), (function(){ + var v669 = l203.value; + ((l203).value = l201.fvalue(pv, l45.fvalue(pv, v667), (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l199)); - var v667 = l244.fvalue(pv, v663, l4.value); - return (l93.fvalue(pv, l272, l192.fvalue(pv, v666)) !== l5.value ? l182.fvalue(values, "(function(){", (function(){ + var v668 = l245.fvalue(pv, v664, l4.value); + return (l93.fvalue(pv, l273, l192.fvalue(pv, v667)) !== l5.value ? l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5890,7 +5945,7 @@ var l272 = {name: "USED"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, v667), "}", (function(){ + })(), l186.fvalue(pv, v668), "}", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5900,7 +5955,7 @@ var l272 = {name: "USED"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (cf.type == 'block' && cf.id == ", v665, ")", (function(){ + })(), " if (cf.type == 'block' && cf.id == ", v666, ")", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5935,10 +5990,10 @@ var l272 = {name: "USED"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, v667), "})()")); + })(), l186.fvalue(pv, v668), "})()")); } finally { - l203.value = v668; + l203.value = v669; } })(); })(); @@ -5949,39 +6004,40 @@ var l272 = {name: "USED"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l273 = {name: "RETURN-FROM"}; -((l221).value = ({car: l45.fvalue(pv, l273, (function (values,v669,v670){ +var l274 = {name: "RETURN-FROM"}; +((l221).value = ({car: l45.fvalue(pv, l274, (function (values,v670,v671){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v671; switch(arguments.length-1){ case 1: - v670=l5.value; + v671=l5.value; default: break; } return (function(){ return (function(){ - var v671 = l202.fvalue(pv, v669, (function(){ + var v672 = l202.fvalue(pv, v670, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l199); - var v672 = l93.fvalue(pv, l271, l192.fvalue(pv, v671)); - (l13.fvalue(pv, v671) !== l5.value ? (function(){ - throw l148.fvalue(pv, "Unknown block `", (v669).name, "'."); + var v673 = l93.fvalue(pv, l272, l192.fvalue(pv, v672)); + (l13.fvalue(pv, v672) !== l5.value ? (function(){ + throw l148.fvalue(pv, "Unknown block `", (v670).name, "'."); })() : l5.value); - l195.fvalue(pv, l272, v671); + l195.fvalue(pv, l273, v672); return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, (v672 !== l5.value ? l182.fvalue(pv, "var values = mv;", (function(){ + })(), l186.fvalue(pv, (v673 !== l5.value ? l182.fvalue(pv, "var values = mv;", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l191.fvalue(pv, v671), ", ", "values: ", l184.fvalue(pv, v670, v672), ", ", "message: 'Return from unknown block ", (v669).name, ".'", "})"), "})()"); + })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l191.fvalue(pv, v672), ", ", "values: ", l184.fvalue(pv, v671, v673), ", ", "message: 'Return from unknown block ", (v670).name, ".'", "})"), "})()"); })(); })(); })), cdr: (function(){ @@ -5990,20 +6046,20 @@ var l273 = {name: "RETURN-FROM"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l274 = {name: "CATCH"}; -((l221).value = ({car: l45.fvalue(pv, l274, (function (values,v674){ +var l275 = {name: "CATCH"}; +((l221).value = ({car: l45.fvalue(pv, l275, (function (values,v675){ checkArgsAtLeast(arguments, 2); - var v673= l5.value; + var v674= l5.value; for (var i = arguments.length-1; i>=2; i--) - v673 = {car: arguments[i], cdr: - v673}; + v674 = {car: arguments[i], cdr: + v674}; return (function(){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var id = ", l184.fvalue(pv, v674), ";", (function(){ + })(), l186.fvalue(pv, "var id = ", l184.fvalue(pv, v675), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6013,7 +6069,7 @@ var l274 = {name: "CATCH"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l244.fvalue(pv, v673, l4.value)), (function(){ + })(), l186.fvalue(pv, l245.fvalue(pv, v674, l4.value)), (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6066,8 +6122,8 @@ var l274 = {name: "CATCH"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l275 = {name: "THROW"}; -((l221).value = ({car: l45.fvalue(pv, l275, (function (values,v675,v676){ +var l276 = {name: "THROW"}; +((l221).value = ({car: l45.fvalue(pv, l276, (function (values,v676,v677){ checkArgs(arguments, 3); return (function(){ return l182.fvalue(values, "(function(){", (function(){ @@ -6080,7 +6136,7 @@ var l275 = {name: "THROW"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "throw ({", "type: 'catch', ", "id: ", l184.fvalue(pv, v675), ", ", "values: ", l184.fvalue(pv, v676, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); + })(), "throw ({", "type: 'catch', ", "id: ", l184.fvalue(pv, v676), ", ", "values: ", l184.fvalue(pv, v677, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); })(); })), cdr: (function(){ var symbol = l221; @@ -6088,56 +6144,56 @@ var l275 = {name: "THROW"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l276 = {name: "*TAGBODY-COUNTER*"}; -(function(){ - (((l276.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l276).value = 0)); - return l276; -})(); -var l277 = {name: "*GO-TAG-COUNTER*"}; +var l277 = {name: "*TAGBODY-COUNTER*"}; (function(){ (((l277.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l277).value = 0)); return l277; })(); -var l278 = {name: "GO-TAG-P"}; +var l278 = {name: "*GO-TAG-COUNTER*"}; (function(){ - (l278).fvalue = (function(v679){ - ((v679)["fname"] = "GO-TAG-P"); - return v679; - })((function (values,v677){ + (((l278.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l278).value = 0)); + return l278; +})(); +var l279 = {name: "GO-TAG-P"}; +(function(){ + (l279).fvalue = (function(v680){ + ((v680)["fname"] = "GO-TAG-P"); + return v680; + })((function (values,v678){ checkArgs(arguments, 2); return (function(){ - return (function(v678){ - return (v678 !== l5.value ? v678 : ((function(){ - var tmp = v677; + return (function(v679){ + return (v679 !== l5.value ? v679 : ((function(){ + var tmp = v678; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value)); - })(l86.fvalue(pv, v677)); + })(l86.fvalue(pv, v678)); })(); })); - return l278; + return l279; })(); -var l279 = {name: "DECLARE-TAGBODY-TAGS"}; +var l280 = {name: "DECLARE-TAGBODY-TAGS"}; (function(){ - (l279).fvalue = (function(v685){ - ((v685)["fname"] = "DECLARE-TAGBODY-TAGS"); - return v685; - })((function (values,v680,v681){ + (l280).fvalue = (function(v686){ + ((v686)["fname"] = "DECLARE-TAGBODY-TAGS"); + return v686; + })((function (values,v681,v682){ checkArgs(arguments, 3); return (function(){ - return (function(v684){ - return l201.fvalue(values, v684, (function(){ + return (function(v685){ + return l201.fvalue(values, v685, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l200); - })(l79.fvalue(pv, (function (values,v682){ + })(l79.fvalue(pv, (function (values,v683){ checkArgs(arguments, 2); - return (function(v683){ - return l188.fvalue(values, v682, l200, l45.fvalue(pv, v680, v683)); - })(l18.fvalue(pv, ((l277).value = (function(){ + return (function(v684){ + return l188.fvalue(values, v683, l200, l45.fvalue(pv, v681, v684)); + })(l18.fvalue(pv, ((l278).value = (function(){ var x1 = (function(){ - var symbol = l277; + var symbol = l278; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; @@ -6146,46 +6202,46 @@ var l279 = {name: "DECLARE-TAGBODY-TAGS"}; return x1+1; })()))); }), l96.fvalue(pv, (function(){ - var symbol = l278; + var symbol = l279; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v681))); + })(), v682))); })(); })); - return l279; + return l280; })(); -var l280 = {name: "TAGBODY"}; -((l221).value = ({car: l45.fvalue(pv, l280, (function (values){ - var v686= l5.value; +var l281 = {name: "TAGBODY"}; +((l221).value = ({car: l45.fvalue(pv, l281, (function (values){ + var v687= l5.value; for (var i = arguments.length-1; i>=1; i--) - v686 = {car: arguments[i], cdr: - v686}; + v687 = {car: arguments[i], cdr: + v687}; return (function(){ try { (l100.fvalue(pv, (function(){ - var symbol = l278; + var symbol = l279; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v686) !== l5.value ? l5.value : (function(){ + })(), v687) !== l5.value ? l5.value : (function(){ var values = mv; - throw ({type: 'block', id: 229, values: l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l118), v686, l45.fvalue(pv, l5))), message: 'Return from unknown block TAGBODY.'}) + throw ({type: 'block', id: 230, values: l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l118), v687, l45.fvalue(pv, l5))), message: 'Return from unknown block TAGBODY.'}) })()); - (l278.fvalue(pv, (function(){ - var tmp = v686; + (l279.fvalue(pv, (function(){ + var tmp = v687; return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l5.value : (v686 = ({car: l17.fvalue(pv, "START"), cdr: v686}))); - return (function(v687){ - return (function(v689,v688){ + })()) !== l5.value ? l5.value : (v687 = ({car: l17.fvalue(pv, "START"), cdr: v687}))); + return (function(v688){ + return (function(v690,v689){ try { var tmp; tmp = l203.value; - l203.value = v689; - v689 = tmp; - (function(v690){ - return (v688 = l41.fvalue(pv, l191.fvalue(pv, v690))); - })(l202.fvalue(pv, l40.fvalue(pv, v686), (function(){ + l203.value = v690; + v690 = tmp; + (function(v691){ + return (v689 = l41.fvalue(pv, l191.fvalue(pv, v691))); + })(l202.fvalue(pv, l40.fvalue(pv, v687), (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6196,7 +6252,7 @@ var l280 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var tagbody_", v687, " = ", v688, ";", (function(){ + })(), l186.fvalue(pv, "var tagbody_", v688, " = ", v689, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6216,39 +6272,39 @@ var l280 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, (function(v691){ - return l182.fvalue(pv, "switch(tagbody_", v687, "){", (function(){ + })(), l186.fvalue(pv, (function(v692){ + return l182.fvalue(pv, "switch(tagbody_", v688, "){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "case ", v688, ":", (function(){ + })(), "case ", v689, ":", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - return (function(v692,v693){ + return (function(v693,v694){ (function(){ - while(v692 !== l5.value){ - (v693 = (function(){ - var tmp = v692; + while(v693 !== l5.value){ + (v694 = (function(){ + var tmp = v693; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - (v691 = l148.fvalue(pv, v691, (l28.fvalue(pv, l278.fvalue(pv, v693)) !== l5.value ? l186.fvalue(pv, l184.fvalue(pv, v693), ";", (function(){ + (v692 = l148.fvalue(pv, v692, (l28.fvalue(pv, l279.fvalue(pv, v694)) !== l5.value ? l186.fvalue(pv, l184.fvalue(pv, v694), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) : (function(v694){ - return l182.fvalue(pv, "case ", l41.fvalue(pv, l191.fvalue(pv, v694)), ":", (function(){ + })()) : (function(v695){ + return l182.fvalue(pv, "case ", l41.fvalue(pv, l191.fvalue(pv, v695)), ":", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l202.fvalue(pv, v693, (function(){ + })(l202.fvalue(pv, v694, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6256,15 +6312,15 @@ var l280 = {name: "TAGBODY"}; })(), l200))))); return l5.value; })(); - (v692 = (function(){ - var tmp = v692; + (v693 = (function(){ + var tmp = v693; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); - return v691; + return v692; })((function(){ - var tmp = v686; + var tmp = v687; return tmp === l5.value? l5.value: tmp.cdr; })(),l5.value); })(), "default:", (function(){ @@ -6293,12 +6349,12 @@ var l280 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (jump.type == 'tagbody' && jump.id == ", v687, ")", (function(){ + })(), " if (jump.type == 'tagbody' && jump.id == ", v688, ")", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " tagbody_", v687, " = jump.label;", (function(){ + })(), " tagbody_", v688, " = jump.label;", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6331,18 +6387,18 @@ var l280 = {name: "TAGBODY"}; })()), "})()"); } finally { - l203.value = v689; + l203.value = v690; } - })(l279.fvalue(pv, v687, v686),l5.value); + })(l280.fvalue(pv, v688, v687),l5.value); })((function(){ - var symbol = l276; + var symbol = l277; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); } catch (cf){ - if (cf.type == 'block' && cf.id == 229) + if (cf.type == 'block' && cf.id == 230) return values.apply(this, forcemv(cf.values)); else throw cf; @@ -6354,34 +6410,34 @@ var l280 = {name: "TAGBODY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l281 = {name: "GO"}; -((l221).value = ({car: l45.fvalue(pv, l281, (function (values,v695){ +var l282 = {name: "GO"}; +((l221).value = ({car: l45.fvalue(pv, l282, (function (values,v696){ checkArgs(arguments, 2); return (function(){ - return (function(v696,v697){ - (l13.fvalue(pv, v696) !== l5.value ? (function(){ - throw l148.fvalue(pv, "Unknown tag `", v697, "'."); + return (function(v697,v698){ + (l13.fvalue(pv, v697) !== l5.value ? (function(){ + throw l148.fvalue(pv, "Unknown tag `", v698, "'."); })() : l5.value); return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l40.fvalue(pv, l191.fvalue(pv, v696)), ", ", "label: ", l41.fvalue(pv, l191.fvalue(pv, v696)), ", ", "message: 'Attempt to GO to non-existing tag ", v697, "'", "})", (function(){ + })(), l186.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l40.fvalue(pv, l191.fvalue(pv, v697)), ", ", "label: ", l41.fvalue(pv, l191.fvalue(pv, v697)), ", ", "message: 'Attempt to GO to non-existing tag ", v698, "'", "})", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l202.fvalue(pv, v695, (function(){ + })(l202.fvalue(pv, v696, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l200),(((function(){ - var tmp = v695; + var tmp = v696; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (v695).name : (l86.fvalue(pv, v695) !== l5.value ? l18.fvalue(pv, v695) : l5.value))); + })()?l4.value: l5.value) !== l5.value ? (v696).name : (l86.fvalue(pv, v696) !== l5.value ? l18.fvalue(pv, v696) : l5.value))); })(); })), cdr: (function(){ var symbol = l221; @@ -6389,13 +6445,13 @@ var l281 = {name: "GO"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l282 = {name: "UNWIND-PROTECT"}; -((l221).value = ({car: l45.fvalue(pv, l282, (function (values,v699){ +var l283 = {name: "UNWIND-PROTECT"}; +((l221).value = ({car: l45.fvalue(pv, l283, (function (values,v700){ checkArgsAtLeast(arguments, 2); - var v698= l5.value; + var v699= l5.value; for (var i = arguments.length-1; i>=2; i--) - v698 = {car: arguments[i], cdr: - v698}; + v699 = {car: arguments[i], cdr: + v699}; return (function(){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; @@ -6412,7 +6468,7 @@ var l282 = {name: "UNWIND-PROTECT"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "ret = ", l184.fvalue(pv, v699), ";", (function(){ + })(), l186.fvalue(pv, "ret = ", l184.fvalue(pv, v700), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6422,7 +6478,7 @@ var l282 = {name: "UNWIND-PROTECT"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l244.fvalue(pv, v698)), "}", (function(){ + })(), l186.fvalue(pv, l245.fvalue(pv, v699)), "}", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6440,20 +6496,20 @@ var l282 = {name: "UNWIND-PROTECT"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l283 = {name: "MULTIPLE-VALUE-CALL"}; -((l221).value = ({car: l45.fvalue(pv, l283, (function (values,v701){ +var l284 = {name: "MULTIPLE-VALUE-CALL"}; +((l221).value = ({car: l45.fvalue(pv, l284, (function (values,v702){ checkArgsAtLeast(arguments, 2); - var v700= l5.value; + var v701= l5.value; for (var i = arguments.length-1; i>=2; i--) - v700 = {car: arguments[i], cdr: - v700}; + v701 = {car: arguments[i], cdr: + v701}; return (function(){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var func = ", l184.fvalue(pv, v701), ";", (function(){ + })(), l186.fvalue(pv, "var func = ", l184.fvalue(pv, v702), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6483,9 +6539,9 @@ var l283 = {name: "MULTIPLE-VALUE-CALL"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l152.fvalue(pv, (function (values,v702){ + })(), l152.fvalue(pv, (function (values,v703){ checkArgs(arguments, 2); - return l182.fvalue(values, "vs = ", l184.fvalue(pv, v702, l4.value), ";", (function(){ + return l182.fvalue(values, "vs = ", l184.fvalue(pv, v703, l4.value), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6511,7 +6567,7 @@ var l283 = {name: "MULTIPLE-VALUE-CALL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); - }), v700), "return func.apply(window, args);", (function(){ + }), v701), "return func.apply(window, args);", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6529,20 +6585,20 @@ var l283 = {name: "MULTIPLE-VALUE-CALL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l284 = {name: "MULTIPLE-VALUE-PROG1"}; -((l221).value = ({car: l45.fvalue(pv, l284, (function (values,v704){ +var l285 = {name: "MULTIPLE-VALUE-PROG1"}; +((l221).value = ({car: l45.fvalue(pv, l285, (function (values,v705){ checkArgsAtLeast(arguments, 2); - var v703= l5.value; + var v704= l5.value; for (var i = arguments.length-1; i>=2; i--) - v703 = {car: arguments[i], cdr: - v703}; + v704 = {car: arguments[i], cdr: + v704}; return (function(){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var args = ", l184.fvalue(pv, v704, (function(){ + })(), l186.fvalue(pv, "var args = ", l184.fvalue(pv, v705, (function(){ var symbol = l187; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6552,7 +6608,7 @@ var l284 = {name: "MULTIPLE-VALUE-PROG1"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l244.fvalue(pv, v703), "return args;", (function(){ + })(), l245.fvalue(pv, v704), "return args;", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6565,61 +6621,61 @@ var l284 = {name: "MULTIPLE-VALUE-PROG1"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l285 = {name: "BACKQUOTE-EXPAND-1"}; +var l286 = {name: "BACKQUOTE-EXPAND-1"}; (function(){ - (l285).fvalue = (function(v707){ - ((v707)["fname"] = "BACKQUOTE-EXPAND-1"); - return v707; - })((function (values,v705){ + (l286).fvalue = (function(v708){ + ((v708)["fname"] = "BACKQUOTE-EXPAND-1"); + return v708; + })((function (values,v706){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v705; + var tmp = v706; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? l45.fvalue(values, l177, v705) : (l46.fvalue(pv, v705) !== l5.value ? v705 : ((((function(){ - var tmp = v705; + })()?l4.value: l5.value) !== l5.value ? l45.fvalue(values, l177, v706) : (l46.fvalue(pv, v706) !== l5.value ? v706 : ((((function(){ + var tmp = v706; return tmp === l5.value? l5.value: tmp.car; })() === l180)?l4.value: l5.value) !== l5.value ? (function(){ - var tmp = v705; + var tmp = v706; return tmp === l5.value? l5.value: tmp.car; })() : ((((function(){ - var tmp = v705; + var tmp = v706; return tmp === l5.value? l5.value: tmp.car; - })() === l178)?l4.value: l5.value) !== l5.value ? l285.fvalue(values, l285.fvalue(pv, l34.fvalue(pv, v705))) : ({car: l66, cdr: l79.fvalue(pv, (function (values,v706){ + })() === l178)?l4.value: l5.value) !== l5.value ? l286.fvalue(values, l286.fvalue(pv, l34.fvalue(pv, v706))) : ({car: l66, cdr: l79.fvalue(pv, (function (values,v707){ checkArgs(arguments, 2); - return ((l60.fvalue(pv, v706) !== l5.value ? (((function(){ - var tmp = v706; + return ((l60.fvalue(pv, v707) !== l5.value ? (((function(){ + var tmp = v707; return tmp === l5.value? l5.value: tmp.car; - })() === l180)?l4.value: l5.value) : l5.value) !== l5.value ? l45.fvalue(values, l45, l34.fvalue(pv, v706)) : ((l60.fvalue(pv, v706) !== l5.value ? (((function(){ - var tmp = v706; + })() === l180)?l4.value: l5.value) : l5.value) !== l5.value ? l45.fvalue(values, l45, l34.fvalue(pv, v707)) : ((l60.fvalue(pv, v707) !== l5.value ? (((function(){ + var tmp = v707; return tmp === l5.value? l5.value: tmp.car; - })() === l179)?l4.value: l5.value) : l5.value) !== l5.value ? l34.fvalue(values, v706) : l45.fvalue(values, l45, l285.fvalue(pv, v706)))); - }), v705)}))))); + })() === l179)?l4.value: l5.value) : l5.value) !== l5.value ? l34.fvalue(values, v707) : l45.fvalue(values, l45, l286.fvalue(pv, v707)))); + }), v706)}))))); })(); })); - return l285; + return l286; })(); -var l286 = {name: "BACKQUOTE-EXPAND"}; +var l287 = {name: "BACKQUOTE-EXPAND"}; (function(){ - (l286).fvalue = (function(v709){ - ((v709)["fname"] = "BACKQUOTE-EXPAND"); - return v709; - })((function (values,v708){ + (l287).fvalue = (function(v710){ + ((v710)["fname"] = "BACKQUOTE-EXPAND"); + return v710; + })((function (values,v709){ checkArgs(arguments, 2); return (function(){ - return ((l60.fvalue(pv, v708) !== l5.value ? (((function(){ - var tmp = v708; + return ((l60.fvalue(pv, v709) !== l5.value ? (((function(){ + var tmp = v709; return tmp === l5.value? l5.value: tmp.car; - })() === l178)?l4.value: l5.value) : l5.value) !== l5.value ? l285.fvalue(values, l34.fvalue(pv, v708)) : v708); + })() === l178)?l4.value: l5.value) : l5.value) !== l5.value ? l286.fvalue(values, l34.fvalue(pv, v709)) : v709); })(); })); - return l286; + return l287; })(); l178; -((l221).value = ({car: l45.fvalue(pv, l178, (function (values,v710){ +((l221).value = ({car: l45.fvalue(pv, l178, (function (values,v711){ checkArgs(arguments, 2); return (function(){ - return l184.fvalue(values, l285.fvalue(pv, v710)); + return l184.fvalue(values, l286.fvalue(pv, v711)); })(); })), cdr: (function(){ var symbol = l221; @@ -6627,89 +6683,89 @@ l178; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l287 = {name: "*BUILTINS*"}; +var l288 = {name: "*BUILTINS*"}; (function(){ - (((l287.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l287).value = l5.value)); - return l287; + (((l288.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l288).value = l5.value)); + return l288; })(); -var l288 = {name: "DEFINE-RAW-BUILTIN"}; -l288; -var l289 = {name: "DEFINE-BUILTIN"}; +var l289 = {name: "DEFINE-RAW-BUILTIN"}; l289; -var l290 = {name: "TYPE-CHECK"}; +var l290 = {name: "DEFINE-BUILTIN"}; l290; -var l291 = {name: "VARIABLE-ARITY-CALL"}; -(function(){ - (l291).fvalue = (function(v719){ - ((v719)["fname"] = "VARIABLE-ARITY-CALL"); - return v719; - })((function (values,v711,v712){ +var l291 = {name: "TYPE-CHECK"}; +l291; +var l292 = {name: "VARIABLE-ARITY-CALL"}; +(function(){ + (l292).fvalue = (function(v720){ + ((v720)["fname"] = "VARIABLE-ARITY-CALL"); + return v720; + })((function (values,v712,v713){ checkArgs(arguments, 3); return (function(){ (((function(){ - var tmp = v711; + var tmp = v712; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ throw "ARGS must be a non-empty list"; })()); - return (function(v713,v714,v715){ + return (function(v714,v715,v716){ (function(){ - return (function(v716,v717){ + return (function(v717,v718){ (function(){ - while(v716 !== l5.value){ - (v717 = (function(){ - var tmp = v716; + while(v717 !== l5.value){ + (v718 = (function(){ + var tmp = v717; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - (((typeof (v717) == "number")?l4.value: l5.value) !== l5.value ? (v714 = ({car: l18.fvalue(pv, v717), cdr: v714})) : (function(v718){ - (v714 = ({car: v718, cdr: v714})); - return (v715 = l148.fvalue(pv, v715, l182.fvalue(pv, "var ", v718, " = ", l184.fvalue(pv, v717), ";", (function(){ + (((typeof (v718) == "number")?l4.value: l5.value) !== l5.value ? (v715 = ({car: l18.fvalue(pv, v718), cdr: v715})) : (function(v719){ + (v715 = ({car: v719, cdr: v715})); + return (v716 = l148.fvalue(pv, v716, l182.fvalue(pv, "var ", v719, " = ", l184.fvalue(pv, v718), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "if (typeof ", v718, " !== 'number') throw 'Not a number!';", (function(){ + })(), "if (typeof ", v719, " !== 'number') throw 'Not a number!';", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()))); - })(l182.fvalue(pv, "x", (v713 = (function(){ - var x1 = v713; + })(l182.fvalue(pv, "x", (v714 = (function(){ + var x1 = v714; if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; })())))); return l5.value; })(); - (v716 = (function(){ - var tmp = v716; + (v717 = (function(){ + var tmp = v717; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); return l5.value; - })(v711,l5.value); + })(v712,l5.value); })(); return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, v715, (v712)(pv, l68.fvalue(pv, v714))), "})()"); + })(), l186.fvalue(pv, v716, (v713)(pv, l68.fvalue(pv, v715))), "})()"); })(0,l5,""); })(); })); - return l291; + return l292; })(); -var l292 = {name: "VARIABLE-ARITY"}; -l292; -var l293 = {name: "NUM-OP-NUM"}; +var l293 = {name: "VARIABLE-ARITY"}; +l293; +var l294 = {name: "NUM-OP-NUM"}; (function(){ - (l293).fvalue = (function(v723){ - ((v723)["fname"] = "NUM-OP-NUM"); - return v723; - })((function (values,v720,v721,v722){ + (l294).fvalue = (function(v724){ + ((v724)["fname"] = "NUM-OP-NUM"); + return v724; + })((function (values,v721,v722,v723){ checkArgs(arguments, 4); return (function(){ return l182.fvalue(values, "(function(){", (function(){ @@ -6717,12 +6773,12 @@ var l293 = {name: "NUM-OP-NUM"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v720, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v721, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l182.fvalue(pv, "var ", "y", " = ", v722, ";", (function(){ + })()), l182.fvalue(pv, "var ", "y", " = ", v723, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6747,7 +6803,7 @@ var l293 = {name: "NUM-OP-NUM"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l182.fvalue(pv, "return ", l182.fvalue(pv, "x", v721, "y"), ";", (function(){ + })())), l182.fvalue(pv, "return ", l182.fvalue(pv, "x", v722, "y"), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6755,17 +6811,17 @@ var l293 = {name: "NUM-OP-NUM"}; })())), "})()"); })(); })); - return l293; + return l294; })(); -((l287).value = ({car: l45.fvalue(pv, l63, (function (values){ - var v724= l5.value; +((l288).value = ({car: l45.fvalue(pv, l63, (function (values){ + var v725= l5.value; for (var i = arguments.length-1; i>=1; i--) - v724 = {car: arguments[i], cdr: - v724}; + v725 = {car: arguments[i], cdr: + v725}; return (function(){ - return (l13.fvalue(pv, v724) !== l5.value ? "0" : l291.fvalue(values, v724, (function (values,v725){ + return (l13.fvalue(pv, v725) !== l5.value ? "0" : l292.fvalue(values, v725, (function (values,v726){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l150.fvalue(pv, v725, "+"), ";", (function(){ + return l182.fvalue(values, "return ", l150.fvalue(pv, v726, "+"), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6774,48 +6830,48 @@ var l293 = {name: "NUM-OP-NUM"}; }))); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l64, (function (values,v727){ +((l288).value = ({car: l45.fvalue(pv, l64, (function (values,v728){ checkArgsAtLeast(arguments, 2); - var v726= l5.value; + var v727= l5.value; for (var i = arguments.length-1; i>=2; i--) - v726 = {car: arguments[i], cdr: - v726}; + v727 = {car: arguments[i], cdr: + v727}; return (function(){ - return (function(v728){ - return l291.fvalue(values, v728, (function (values,v729){ + return (function(v729){ + return l292.fvalue(values, v729, (function (values,v730){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", (l13.fvalue(pv, v726) !== l5.value ? l148.fvalue(pv, "-", (function(){ - var tmp = v729; + return l182.fvalue(values, "return ", (l13.fvalue(pv, v727) !== l5.value ? l148.fvalue(pv, "-", (function(){ + var tmp = v730; return tmp === l5.value? l5.value: tmp.car; - })()) : l150.fvalue(pv, v729, "-")), ";", (function(){ + })()) : l150.fvalue(pv, v730, "-")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v727, cdr: v726})); + })(({car: v728, cdr: v727})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l21, (function (values){ - var v730= l5.value; +((l288).value = ({car: l45.fvalue(pv, l21, (function (values){ + var v731= l5.value; for (var i = arguments.length-1; i>=1; i--) - v730 = {car: arguments[i], cdr: - v730}; + v731 = {car: arguments[i], cdr: + v731}; return (function(){ - return (l13.fvalue(pv, v730) !== l5.value ? "1" : l291.fvalue(values, v730, (function (values,v731){ + return (l13.fvalue(pv, v731) !== l5.value ? "1" : l292.fvalue(values, v731, (function (values,v732){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l150.fvalue(pv, v731, "*"), ";", (function(){ + return l182.fvalue(values, "return ", l150.fvalue(pv, v732, "*"), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6824,234 +6880,234 @@ var l293 = {name: "NUM-OP-NUM"}; }))); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l22, (function (values,v733){ +((l288).value = ({car: l45.fvalue(pv, l22, (function (values,v734){ checkArgsAtLeast(arguments, 2); - var v732= l5.value; + var v733= l5.value; for (var i = arguments.length-1; i>=2; i--) - v732 = {car: arguments[i], cdr: - v732}; + v733 = {car: arguments[i], cdr: + v733}; return (function(){ - return (function(v734){ - return l291.fvalue(values, v734, (function (values,v735){ + return (function(v735){ + return l292.fvalue(values, v735, (function (values,v736){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", (l13.fvalue(pv, v732) !== l5.value ? l148.fvalue(pv, "1 /", (function(){ - var tmp = v735; + return l182.fvalue(values, "return ", (l13.fvalue(pv, v733) !== l5.value ? l148.fvalue(pv, "1 /", (function(){ + var tmp = v736; return tmp === l5.value? l5.value: tmp.car; - })()) : l150.fvalue(pv, v735, "/")), ";", (function(){ + })()) : l150.fvalue(pv, v736, "/")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v733, cdr: v732})); + })(({car: v734, cdr: v733})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l294 = {name: "MOD"}; -((l287).value = ({car: l45.fvalue(pv, l294, (function (values,v736,v737){ +var l295 = {name: "MOD"}; +((l288).value = ({car: l45.fvalue(pv, l295, (function (values,v737,v738){ checkArgs(arguments, 3); return (function(){ - return (function(v738,v739){ - return l293.fvalue(values, v738, "%", v739); - })(l184.fvalue(pv, v736),l184.fvalue(pv, v737)); + return (function(v739,v740){ + return l294.fvalue(values, v739, "%", v740); + })(l184.fvalue(pv, v737),l184.fvalue(pv, v738)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l295 = {name: "COMPARISON-CONJUNTION"}; +var l296 = {name: "COMPARISON-CONJUNTION"}; (function(){ - (l295).fvalue = (function(v742){ - ((v742)["fname"] = "COMPARISON-CONJUNTION"); - return v742; - })((function (values,v740,v741){ + (l296).fvalue = (function(v743){ + ((v743)["fname"] = "COMPARISON-CONJUNTION"); + return v743; + })((function (values,v741,v742){ checkArgs(arguments, 3); return (function(){ return (l13.fvalue(pv, (function(){ - var tmp = v740; + var tmp = v741; return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? "true" : (l13.fvalue(pv, l36.fvalue(pv, v740)) !== l5.value ? l148.fvalue(values, (function(){ - var tmp = v740; + })()) !== l5.value ? "true" : (l13.fvalue(pv, l36.fvalue(pv, v741)) !== l5.value ? l148.fvalue(values, (function(){ + var tmp = v741; return tmp === l5.value? l5.value: tmp.car; - })(), v741, l34.fvalue(pv, v740)) : l148.fvalue(values, (function(){ - var tmp = v740; + })(), v742, l34.fvalue(pv, v741)) : l148.fvalue(values, (function(){ + var tmp = v741; return tmp === l5.value? l5.value: tmp.car; - })(), v741, l34.fvalue(pv, v740), " && ", l295.fvalue(pv, (function(){ - var tmp = v740; + })(), v742, l34.fvalue(pv, v741), " && ", l296.fvalue(pv, (function(){ + var tmp = v741; return tmp === l5.value? l5.value: tmp.cdr; - })(), v741)))); + })(), v742)))); })(); })); - return l295; + return l296; })(); -var l296 = {name: "DEFINE-BUILTIN-COMPARISON"}; -l296; -var l297 = {name: ">"}; -((l287).value = ({car: l45.fvalue(pv, l297, (function (values,v744){ +var l297 = {name: "DEFINE-BUILTIN-COMPARISON"}; +l297; +var l298 = {name: ">"}; +((l288).value = ({car: l45.fvalue(pv, l298, (function (values,v745){ checkArgsAtLeast(arguments, 2); - var v743= l5.value; + var v744= l5.value; for (var i = arguments.length-1; i>=2; i--) - v743 = {car: arguments[i], cdr: - v743}; + v744 = {car: arguments[i], cdr: + v744}; return (function(){ - return (function(v745){ - return l291.fvalue(values, v745, (function (values,v746){ + return (function(v746){ + return l292.fvalue(values, v746, (function (values,v747){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l183.fvalue(pv, l295.fvalue(pv, v746, ">")), ";", (function(){ + return l182.fvalue(values, "return ", l183.fvalue(pv, l296.fvalue(pv, v747, ">")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v744, cdr: v743})); + })(({car: v745, cdr: v744})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l298 = {name: "<"}; -((l287).value = ({car: l45.fvalue(pv, l298, (function (values,v748){ +var l299 = {name: "<"}; +((l288).value = ({car: l45.fvalue(pv, l299, (function (values,v749){ checkArgsAtLeast(arguments, 2); - var v747= l5.value; + var v748= l5.value; for (var i = arguments.length-1; i>=2; i--) - v747 = {car: arguments[i], cdr: - v747}; + v748 = {car: arguments[i], cdr: + v748}; return (function(){ - return (function(v749){ - return l291.fvalue(values, v749, (function (values,v750){ + return (function(v750){ + return l292.fvalue(values, v750, (function (values,v751){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l183.fvalue(pv, l295.fvalue(pv, v750, "<")), ";", (function(){ + return l182.fvalue(values, "return ", l183.fvalue(pv, l296.fvalue(pv, v751, "<")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v748, cdr: v747})); + })(({car: v749, cdr: v748})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l299 = {name: ">="}; -((l287).value = ({car: l45.fvalue(pv, l299, (function (values,v752){ +var l300 = {name: ">="}; +((l288).value = ({car: l45.fvalue(pv, l300, (function (values,v753){ checkArgsAtLeast(arguments, 2); - var v751= l5.value; + var v752= l5.value; for (var i = arguments.length-1; i>=2; i--) - v751 = {car: arguments[i], cdr: - v751}; + v752 = {car: arguments[i], cdr: + v752}; return (function(){ - return (function(v753){ - return l291.fvalue(values, v753, (function (values,v754){ + return (function(v754){ + return l292.fvalue(values, v754, (function (values,v755){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l183.fvalue(pv, l295.fvalue(pv, v754, ">=")), ";", (function(){ + return l182.fvalue(values, "return ", l183.fvalue(pv, l296.fvalue(pv, v755, ">=")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v752, cdr: v751})); + })(({car: v753, cdr: v752})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l300 = {name: "<="}; -((l287).value = ({car: l45.fvalue(pv, l300, (function (values,v756){ +var l301 = {name: "<="}; +((l288).value = ({car: l45.fvalue(pv, l301, (function (values,v757){ checkArgsAtLeast(arguments, 2); - var v755= l5.value; + var v756= l5.value; for (var i = arguments.length-1; i>=2; i--) - v755 = {car: arguments[i], cdr: - v755}; + v756 = {car: arguments[i], cdr: + v756}; return (function(){ - return (function(v757){ - return l291.fvalue(values, v757, (function (values,v758){ + return (function(v758){ + return l292.fvalue(values, v758, (function (values,v759){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l183.fvalue(pv, l295.fvalue(pv, v758, "<=")), ";", (function(){ + return l182.fvalue(values, "return ", l183.fvalue(pv, l296.fvalue(pv, v759, "<=")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v756, cdr: v755})); + })(({car: v757, cdr: v756})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l20, (function (values,v760){ +((l288).value = ({car: l45.fvalue(pv, l20, (function (values,v761){ checkArgsAtLeast(arguments, 2); - var v759= l5.value; + var v760= l5.value; for (var i = arguments.length-1; i>=2; i--) - v759 = {car: arguments[i], cdr: - v759}; + v760 = {car: arguments[i], cdr: + v760}; return (function(){ - return (function(v761){ - return l291.fvalue(values, v761, (function (values,v762){ + return (function(v762){ + return l292.fvalue(values, v762, (function (values,v763){ checkArgs(arguments, 2); - return l182.fvalue(values, "return ", l183.fvalue(pv, l295.fvalue(pv, v762, "==")), ";", (function(){ + return l182.fvalue(values, "return ", l183.fvalue(pv, l296.fvalue(pv, v763, "==")), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); })); - })(({car: v760, cdr: v759})); + })(({car: v761, cdr: v760})); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l301 = {name: "NUMBERP"}; -((l287).value = ({car: l45.fvalue(pv, l301, (function (values,v763){ +var l302 = {name: "NUMBERP"}; +((l288).value = ({car: l45.fvalue(pv, l302, (function (values,v764){ checkArgs(arguments, 2); return (function(){ - return (function(v764){ - return l183.fvalue(values, l182.fvalue(pv, "(typeof (", v764, ") == \"number\")")); - })(l184.fvalue(pv, v763)); + return (function(v765){ + return l183.fvalue(values, l182.fvalue(pv, "(typeof (", v765, ") == \"number\")")); + })(l184.fvalue(pv, v764)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l302 = {name: "FLOOR"}; -((l287).value = ({car: l45.fvalue(pv, l302, (function (values,v765){ +var l303 = {name: "FLOOR"}; +((l288).value = ({car: l45.fvalue(pv, l303, (function (values,v766){ checkArgs(arguments, 2); return (function(){ - return (function(v766){ + return (function(v767){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v766, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v767, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7072,37 +7128,37 @@ var l302 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v765)); + })(l184.fvalue(pv, v766)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l29, (function (values,v767,v768){ +((l288).value = ({car: l45.fvalue(pv, l29, (function (values,v768,v769){ checkArgs(arguments, 3); return (function(){ - return (function(v769,v770){ - return l182.fvalue(values, "({car: ", v769, ", cdr: ", v770, "})"); - })(l184.fvalue(pv, v767),l184.fvalue(pv, v768)); + return (function(v770,v771){ + return l182.fvalue(values, "({car: ", v770, ", cdr: ", v771, "})"); + })(l184.fvalue(pv, v768),l184.fvalue(pv, v769)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l30, (function (values,v771){ +((l288).value = ({car: l45.fvalue(pv, l30, (function (values,v772){ checkArgs(arguments, 2); return (function(){ - return (function(v772){ + return (function(v773){ return l183.fvalue(values, l182.fvalue(pv, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var tmp = ", v772, ";", (function(){ + })(), l186.fvalue(pv, "var tmp = ", v773, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7113,24 +7169,24 @@ var l302 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l184.fvalue(pv, v771)); + })(l184.fvalue(pv, v772)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l31, (function (values,v773){ +((l288).value = ({car: l45.fvalue(pv, l31, (function (values,v774){ checkArgs(arguments, 2); return (function(){ - return (function(v774){ + return (function(v775){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var tmp = ", v774, ";", (function(){ + })(), l186.fvalue(pv, "var tmp = ", v775, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7141,24 +7197,24 @@ var l302 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v773)); + })(l184.fvalue(pv, v774)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l32, (function (values,v775){ +((l288).value = ({car: l45.fvalue(pv, l32, (function (values,v776){ checkArgs(arguments, 2); return (function(){ - return (function(v776){ + return (function(v777){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var tmp = ", v776, ";", (function(){ + })(), l186.fvalue(pv, "var tmp = ", v777, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7169,24 +7225,24 @@ var l302 = {name: "FLOOR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v775)); + })(l184.fvalue(pv, v776)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l119, (function (values,v777,v778){ +((l288).value = ({car: l45.fvalue(pv, l119, (function (values,v778,v779){ checkArgs(arguments, 3); return (function(){ - return (function(v779,v780){ + return (function(v780,v781){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v779, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v780, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7201,30 +7257,30 @@ var l302 = {name: "FLOOR"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l182.fvalue(pv, "return ", l182.fvalue(pv, "(x.car = ", v780, ", x)"), ";", (function(){ + })())), l182.fvalue(pv, "return ", l182.fvalue(pv, "(x.car = ", v781, ", x)"), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v777),l184.fvalue(pv, v778)); + })(l184.fvalue(pv, v778),l184.fvalue(pv, v779)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l120, (function (values,v781,v782){ +((l288).value = ({car: l45.fvalue(pv, l120, (function (values,v782,v783){ checkArgs(arguments, 3); return (function(){ - return (function(v783,v784){ + return (function(v784,v785){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v783, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v784, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7239,31 +7295,31 @@ var l302 = {name: "FLOOR"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l182.fvalue(pv, "return ", l182.fvalue(pv, "(x.cdr = ", v784, ", x)"), ";", (function(){ + })())), l182.fvalue(pv, "return ", l182.fvalue(pv, "(x.cdr = ", v785, ", x)"), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v781),l184.fvalue(pv, v782)); + })(l184.fvalue(pv, v782),l184.fvalue(pv, v783)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l303 = {name: "SYMBOLP"}; -((l287).value = ({car: l45.fvalue(pv, l303, (function (values,v785){ +var l304 = {name: "SYMBOLP"}; +((l288).value = ({car: l45.fvalue(pv, l304, (function (values,v786){ checkArgs(arguments, 2); return (function(){ - return (function(v786){ + return (function(v787){ return l183.fvalue(values, l182.fvalue(pv, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var tmp = ", v786, ";", (function(){ + })(), l186.fvalue(pv, "var tmp = ", v787, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7274,25 +7330,25 @@ var l303 = {name: "SYMBOLP"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()")); - })(l184.fvalue(pv, v785)); + })(l184.fvalue(pv, v786)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l304 = {name: "MAKE-SYMBOL"}; -((l287).value = ({car: l45.fvalue(pv, l304, (function (values,v787){ +var l305 = {name: "MAKE-SYMBOL"}; +((l288).value = ({car: l45.fvalue(pv, l305, (function (values,v788){ checkArgs(arguments, 2); return (function(){ - return (function(v788){ + return (function(v789){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "name", " = ", v788, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "name", " = ", v789, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7313,79 +7369,79 @@ var l304 = {name: "MAKE-SYMBOL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v787)); + })(l184.fvalue(pv, v788)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l305 = {name: "SYMBOL-NAME"}; -((l287).value = ({car: l45.fvalue(pv, l305, (function (values,v789){ +var l306 = {name: "SYMBOL-NAME"}; +((l288).value = ({car: l45.fvalue(pv, l306, (function (values,v790){ checkArgs(arguments, 2); return (function(){ - return (function(v790){ - return l182.fvalue(values, "(", v790, ").name"); - })(l184.fvalue(pv, v789)); + return (function(v791){ + return l182.fvalue(values, "(", v791, ").name"); + })(l184.fvalue(pv, v790)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l246, (function (values,v791,v792){ +((l288).value = ({car: l45.fvalue(pv, l247, (function (values,v792,v793){ checkArgs(arguments, 3); return (function(){ - return (function(v793,v794){ - return l182.fvalue(values, "(", v793, ").value = ", v794); - })(l184.fvalue(pv, v791),l184.fvalue(pv, v792)); + return (function(v794,v795){ + return l182.fvalue(values, "(", v794, ").value = ", v795); + })(l184.fvalue(pv, v792),l184.fvalue(pv, v793)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l306 = {name: "FSET"}; -((l287).value = ({car: l45.fvalue(pv, l306, (function (values,v795,v796){ +var l307 = {name: "FSET"}; +((l288).value = ({car: l45.fvalue(pv, l307, (function (values,v796,v797){ checkArgs(arguments, 3); return (function(){ - return (function(v797,v798){ - return l182.fvalue(values, "(", v797, ").fvalue = ", v798); - })(l184.fvalue(pv, v795),l184.fvalue(pv, v796)); + return (function(v798,v799){ + return l182.fvalue(values, "(", v798, ").fvalue = ", v799); + })(l184.fvalue(pv, v796),l184.fvalue(pv, v797)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l19, (function (values,v799){ +((l288).value = ({car: l45.fvalue(pv, l19, (function (values,v800){ checkArgs(arguments, 2); return (function(){ - return (function(v800){ - return l183.fvalue(values, l182.fvalue(pv, "(", v800, ".value !== undefined)")); - })(l184.fvalue(pv, v799)); + return (function(v801){ + return l183.fvalue(values, l182.fvalue(pv, "(", v801, ".value !== undefined)")); + })(l184.fvalue(pv, v800)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l307 = {name: "SYMBOL-VALUE"}; -((l287).value = ({car: l45.fvalue(pv, l307, (function (values,v801){ +var l308 = {name: "SYMBOL-VALUE"}; +((l288).value = ({car: l45.fvalue(pv, l308, (function (values,v802){ checkArgs(arguments, 2); return (function(){ - return (function(v802){ + return (function(v803){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var symbol = ", v802, ";", (function(){ + })(), l186.fvalue(pv, "var symbol = ", v803, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7406,24 +7462,24 @@ var l307 = {name: "SYMBOL-VALUE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v801)); + })(l184.fvalue(pv, v802)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l254, (function (values,v803){ +((l288).value = ({car: l45.fvalue(pv, l255, (function (values,v804){ checkArgs(arguments, 2); return (function(){ - return (function(v804){ + return (function(v805){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var symbol = ", v804, ";", (function(){ + })(), l186.fvalue(pv, "var symbol = ", v805, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7444,81 +7500,81 @@ var l307 = {name: "SYMBOL-VALUE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v803)); + })(l184.fvalue(pv, v804)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l308 = {name: "SYMBOL-PLIST"}; -((l287).value = ({car: l45.fvalue(pv, l308, (function (values,v805){ +var l309 = {name: "SYMBOL-PLIST"}; +((l288).value = ({car: l45.fvalue(pv, l309, (function (values,v806){ checkArgs(arguments, 2); return (function(){ - return (function(v806){ - return l182.fvalue(values, "((", v806, ").plist || ", l184.fvalue(pv, l5.value), ")"); - })(l184.fvalue(pv, v805)); + return (function(v807){ + return l182.fvalue(values, "((", v807, ").plist || ", l184.fvalue(pv, l5.value), ")"); + })(l184.fvalue(pv, v806)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l309 = {name: "LAMBDA-CODE"}; -((l287).value = ({car: l45.fvalue(pv, l309, (function (values,v807){ +var l310 = {name: "LAMBDA-CODE"}; +((l288).value = ({car: l45.fvalue(pv, l310, (function (values,v808){ checkArgs(arguments, 2); return (function(){ - return (function(v808){ - return l182.fvalue(values, "(", v808, ").toString()"); - })(l184.fvalue(pv, v807)); + return (function(v809){ + return l182.fvalue(values, "(", v809, ").toString()"); + })(l184.fvalue(pv, v808)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l310 = {name: "EQ"}; -((l287).value = ({car: l45.fvalue(pv, l310, (function (values,v809,v810){ +var l311 = {name: "EQ"}; +((l288).value = ({car: l45.fvalue(pv, l311, (function (values,v810,v811){ checkArgs(arguments, 3); return (function(){ - return (function(v811,v812){ - return l183.fvalue(values, l182.fvalue(pv, "(", v811, " === ", v812, ")")); - })(l184.fvalue(pv, v809),l184.fvalue(pv, v810)); + return (function(v812,v813){ + return l183.fvalue(values, l182.fvalue(pv, "(", v812, " === ", v813, ")")); + })(l184.fvalue(pv, v810),l184.fvalue(pv, v811)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l311 = {name: "EQUAL"}; -((l287).value = ({car: l45.fvalue(pv, l311, (function (values,v813,v814){ +var l312 = {name: "EQUAL"}; +((l288).value = ({car: l45.fvalue(pv, l312, (function (values,v814,v815){ checkArgs(arguments, 3); return (function(){ - return (function(v815,v816){ - return l183.fvalue(values, l182.fvalue(pv, "(", v815, " == ", v816, ")")); - })(l184.fvalue(pv, v813),l184.fvalue(pv, v814)); + return (function(v816,v817){ + return l183.fvalue(values, l182.fvalue(pv, "(", v816, " == ", v817, ")")); + })(l184.fvalue(pv, v814),l184.fvalue(pv, v815)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l312 = {name: "CHAR-TO-STRING"}; -((l287).value = ({car: l45.fvalue(pv, l312, (function (values,v817){ +var l313 = {name: "CHAR-TO-STRING"}; +((l288).value = ({car: l45.fvalue(pv, l313, (function (values,v818){ checkArgs(arguments, 2); return (function(){ - return (function(v818){ + return (function(v819){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v818, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v819, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7539,39 +7595,39 @@ var l312 = {name: "CHAR-TO-STRING"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v817)); + })(l184.fvalue(pv, v818)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l313 = {name: "STRINGP"}; -((l287).value = ({car: l45.fvalue(pv, l313, (function (values,v819){ +var l314 = {name: "STRINGP"}; +((l288).value = ({car: l45.fvalue(pv, l314, (function (values,v820){ checkArgs(arguments, 2); return (function(){ - return (function(v820){ - return l183.fvalue(values, l182.fvalue(pv, "(typeof(", v820, ") == \"string\")")); - })(l184.fvalue(pv, v819)); + return (function(v821){ + return l183.fvalue(values, l182.fvalue(pv, "(typeof(", v821, ") == \"string\")")); + })(l184.fvalue(pv, v820)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l314 = {name: "STRING-UPCASE"}; -((l287).value = ({car: l45.fvalue(pv, l314, (function (values,v821){ +var l315 = {name: "STRING-UPCASE"}; +((l288).value = ({car: l45.fvalue(pv, l315, (function (values,v822){ checkArgs(arguments, 2); return (function(){ - return (function(v822){ + return (function(v823){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v822, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v823, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7592,25 +7648,25 @@ var l314 = {name: "STRING-UPCASE"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v821)); + })(l184.fvalue(pv, v822)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l315 = {name: "STRING-LENGTH"}; -((l287).value = ({car: l45.fvalue(pv, l315, (function (values,v823){ +var l316 = {name: "STRING-LENGTH"}; +((l288).value = ({car: l45.fvalue(pv, l316, (function (values,v824){ checkArgs(arguments, 2); return (function(){ - return (function(v824){ + return (function(v825){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v824, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v825, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7631,21 +7687,22 @@ var l315 = {name: "STRING-LENGTH"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v823)); + })(l184.fvalue(pv, v824)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l316 = {name: "SLICE"}; -((l287).value = ({car: l45.fvalue(pv, l316, (function (values,v825,v826,v827){ +var l317 = {name: "SLICE"}; +((l288).value = ({car: l45.fvalue(pv, l317, (function (values,v826,v827,v828){ checkArgsAtLeast(arguments, 3); checkArgsAtMost(arguments, 4); + var v828; switch(arguments.length-1){ case 2: - v827=l5.value; + v828=l5.value; default: break; } return (function(){ @@ -7654,12 +7711,12 @@ var l316 = {name: "SLICE"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var str = ", l184.fvalue(pv, v825), ";", (function(){ + })(), l186.fvalue(pv, "var str = ", l184.fvalue(pv, v826), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var a = ", l184.fvalue(pv, v826), ";", (function(){ + })(), "var a = ", l184.fvalue(pv, v827), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7669,7 +7726,7 @@ var l316 = {name: "SLICE"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (v827 !== l5.value ? l182.fvalue(pv, "b = ", l184.fvalue(pv, v827), ";", (function(){ + })(), (v828 !== l5.value ? l182.fvalue(pv, "b = ", l184.fvalue(pv, v828), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7682,27 +7739,27 @@ var l316 = {name: "SLICE"}; })()), "})()"); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l317 = {name: "CHAR"}; -((l287).value = ({car: l45.fvalue(pv, l317, (function (values,v828,v829){ +var l318 = {name: "CHAR"}; +((l288).value = ({car: l45.fvalue(pv, l318, (function (values,v829,v830){ checkArgs(arguments, 3); return (function(){ - return (function(v830,v831){ + return (function(v831,v832){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "string", " = ", v830, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "string", " = ", v831, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l182.fvalue(pv, "var ", "index", " = ", v831, ";", (function(){ + })()), l182.fvalue(pv, "var ", "index", " = ", v832, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7733,29 +7790,29 @@ var l317 = {name: "CHAR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v828),l184.fvalue(pv, v829)); + })(l184.fvalue(pv, v829),l184.fvalue(pv, v830)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l74, (function (values,v832,v833){ +((l288).value = ({car: l45.fvalue(pv, l74, (function (values,v833,v834){ checkArgs(arguments, 3); return (function(){ - return (function(v834,v835){ + return (function(v835,v836){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "string1", " = ", v834, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "string1", " = ", v835, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l182.fvalue(pv, "var ", "string2", " = ", v835, ";", (function(){ + })()), l182.fvalue(pv, "var ", "string2", " = ", v836, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7786,23 +7843,23 @@ var l317 = {name: "CHAR"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v832),l184.fvalue(pv, v833)); + })(l184.fvalue(pv, v833),l184.fvalue(pv, v834)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l318 = {name: "FUNCALL"}; -((l287).value = ({car: l45.fvalue(pv, l318, (function (values,v837){ +var l319 = {name: "FUNCALL"}; +((l288).value = ({car: l45.fvalue(pv, l319, (function (values,v838){ checkArgsAtLeast(arguments, 2); - var v836= l5.value; + var v837= l5.value; for (var i = arguments.length-1; i>=2; i--) - v836 = {car: arguments[i], cdr: - v836}; + v837 = {car: arguments[i], cdr: + v837}; return (function(){ - return l182.fvalue(values, "(", l184.fvalue(pv, v837), ")(", l150.fvalue(pv, ({car: ((function(){ + return l182.fvalue(values, "(", l184.fvalue(pv, v838), ")(", l150.fvalue(pv, ({car: ((function(){ var symbol = l187; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7812,29 +7869,29 @@ var l318 = {name: "FUNCALL"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v836)}), ", "), ")"); + })(), v837)}), ", "), ")"); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l319 = {name: "APPLY"}; -((l287).value = ({car: l45.fvalue(pv, l319, (function (values,v839){ +var l320 = {name: "APPLY"}; +((l288).value = ({car: l45.fvalue(pv, l320, (function (values,v840){ checkArgsAtLeast(arguments, 2); - var v838= l5.value; + var v839= l5.value; for (var i = arguments.length-1; i>=2; i--) - v838 = {car: arguments[i], cdr: - v838}; + v839 = {car: arguments[i], cdr: + v839}; return (function(){ - return (l13.fvalue(pv, v838) !== l5.value ? l182.fvalue(values, "(", l184.fvalue(pv, v839), ")()") : (function(v840,v841){ + return (l13.fvalue(pv, v839) !== l5.value ? l182.fvalue(values, "(", l184.fvalue(pv, v840), ")()") : (function(v841,v842){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var f = ", l184.fvalue(pv, v839), ";", (function(){ + })(), l186.fvalue(pv, "var f = ", l184.fvalue(pv, v840), ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7849,12 +7906,12 @@ var l319 = {name: "APPLY"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v840)}), ", "), "];", (function(){ + })(), v841)}), ", "), "];", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var tail = (", l184.fvalue(pv, v841), ");", (function(){ + })(), "var tail = (", l184.fvalue(pv, v842), ");", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7885,28 +7942,28 @@ var l319 = {name: "APPLY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l92.fvalue(pv, v838),(function(){ - var tmp = l91.fvalue(pv, v838); + })(l92.fvalue(pv, v839),(function(){ + var tmp = l91.fvalue(pv, v839); return tmp === l5.value? l5.value: tmp.car; })())); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l320 = {name: "JS-EVAL"}; -((l287).value = ({car: l45.fvalue(pv, l320, (function (values,v842){ +var l321 = {name: "JS-EVAL"}; +((l288).value = ({car: l45.fvalue(pv, l321, (function (values,v843){ checkArgs(arguments, 2); return (function(){ - return (function(v843){ + return (function(v844){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "string", " = ", v843, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "string", " = ", v844, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -7967,40 +8024,40 @@ var l320 = {name: "JS-EVAL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v842)); + })(l184.fvalue(pv, v843)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l321 = {name: "ERROR"}; -((l287).value = ({car: l45.fvalue(pv, l321, (function (values,v844){ +var l322 = {name: "ERROR"}; +((l288).value = ({car: l45.fvalue(pv, l322, (function (values,v845){ checkArgs(arguments, 2); return (function(){ - return (function(v845){ + return (function(v846){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "throw ", v845, ";", (function(){ + })(), l186.fvalue(pv, "throw ", v846, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v844)); + })(l184.fvalue(pv, v845)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l322 = {name: "NEW"}; -((l287).value = ({car: l45.fvalue(pv, l322, (function (values){ +var l323 = {name: "NEW"}; +((l288).value = ({car: l45.fvalue(pv, l323, (function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ @@ -8008,36 +8065,36 @@ var l322 = {name: "NEW"}; })(); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l323 = {name: "OBJECTP"}; -((l287).value = ({car: l45.fvalue(pv, l323, (function (values,v846){ +var l324 = {name: "OBJECTP"}; +((l288).value = ({car: l45.fvalue(pv, l324, (function (values,v847){ checkArgs(arguments, 2); return (function(){ - return (function(v847){ - return l183.fvalue(values, l182.fvalue(pv, "(typeof (", v847, ") === 'object')")); - })(l184.fvalue(pv, v846)); + return (function(v848){ + return l183.fvalue(values, l182.fvalue(pv, "(typeof (", v848, ") === 'object')")); + })(l184.fvalue(pv, v847)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l324 = {name: "OGET"}; -((l287).value = ({car: l45.fvalue(pv, l324, (function (values,v848,v849){ +var l325 = {name: "OGET"}; +((l288).value = ({car: l45.fvalue(pv, l325, (function (values,v849,v850){ checkArgs(arguments, 3); return (function(){ - return (function(v850,v851){ + return (function(v851,v852){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var tmp = ", "(", v850, ")[", v851, "];", (function(){ + })(), l186.fvalue(pv, "var tmp = ", "(", v851, ")[", v852, "];", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8048,67 +8105,67 @@ var l324 = {name: "OGET"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v848),l184.fvalue(pv, v849)); + })(l184.fvalue(pv, v849),l184.fvalue(pv, v850)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l325 = {name: "OSET"}; -((l287).value = ({car: l45.fvalue(pv, l325, (function (values,v852,v853,v854){ +var l326 = {name: "OSET"}; +((l288).value = ({car: l45.fvalue(pv, l326, (function (values,v853,v854,v855){ checkArgs(arguments, 4); return (function(){ - return (function(v855,v856,v857){ - return l182.fvalue(values, "((", v855, ")[", v856, "] = ", v857, ")"); - })(l184.fvalue(pv, v852),l184.fvalue(pv, v853),l184.fvalue(pv, v854)); + return (function(v856,v857,v858){ + return l182.fvalue(values, "((", v856, ")[", v857, "] = ", v858, ")"); + })(l184.fvalue(pv, v853),l184.fvalue(pv, v854),l184.fvalue(pv, v855)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l326 = {name: "IN"}; -((l287).value = ({car: l45.fvalue(pv, l326, (function (values,v858,v859){ +var l327 = {name: "IN"}; +((l288).value = ({car: l45.fvalue(pv, l327, (function (values,v859,v860){ checkArgs(arguments, 3); return (function(){ - return (function(v860,v861){ - return l183.fvalue(values, l182.fvalue(pv, "((", v860, ") in (", v861, "))")); - })(l184.fvalue(pv, v858),l184.fvalue(pv, v859)); + return (function(v861,v862){ + return l183.fvalue(values, l182.fvalue(pv, "((", v861, ") in (", v862, "))")); + })(l184.fvalue(pv, v859),l184.fvalue(pv, v860)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l327 = {name: "FUNCTIONP"}; -((l287).value = ({car: l45.fvalue(pv, l327, (function (values,v862){ +var l328 = {name: "FUNCTIONP"}; +((l288).value = ({car: l45.fvalue(pv, l328, (function (values,v863){ checkArgs(arguments, 2); return (function(){ - return (function(v863){ - return l183.fvalue(values, l182.fvalue(pv, "(typeof ", v863, " == 'function')")); - })(l184.fvalue(pv, v862)); + return (function(v864){ + return l183.fvalue(values, l182.fvalue(pv, "(typeof ", v864, " == 'function')")); + })(l184.fvalue(pv, v863)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l328 = {name: "WRITE-STRING"}; -((l287).value = ({car: l45.fvalue(pv, l328, (function (values,v864){ +var l329 = {name: "WRITE-STRING"}; +((l288).value = ({car: l45.fvalue(pv, l329, (function (values,v865){ checkArgs(arguments, 2); return (function(){ - return (function(v865){ + return (function(v866){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v865, ";", (function(){ + })(), l186.fvalue(pv, l182.fvalue(pv, "var ", "x", " = ", v866, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8129,19 +8186,19 @@ var l328 = {name: "WRITE-STRING"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l184.fvalue(pv, v864)); + })(l184.fvalue(pv, v865)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l329 = {name: "MAKE-ARRAY"}; -((l287).value = ({car: l45.fvalue(pv, l329, (function (values,v866){ +var l330 = {name: "MAKE-ARRAY"}; +((l288).value = ({car: l45.fvalue(pv, l330, (function (values,v867){ checkArgs(arguments, 2); return (function(){ - return (function(v867){ + return (function(v868){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; @@ -8152,7 +8209,7 @@ var l329 = {name: "MAKE-ARRAY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "for (var i = 0; i < ", v867, "; i++)", (function(){ + })(), "for (var i = 0; i < ", v868, "; i++)", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8168,49 +8225,49 @@ var l329 = {name: "MAKE-ARRAY"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v866)); + })(l184.fvalue(pv, v867)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l330 = {name: "ARRAYP"}; -((l287).value = ({car: l45.fvalue(pv, l330, (function (values,v868){ +var l331 = {name: "ARRAYP"}; +((l288).value = ({car: l45.fvalue(pv, l331, (function (values,v869){ checkArgs(arguments, 2); return (function(){ - return (function(v869){ + return (function(v870){ return l183.fvalue(values, l182.fvalue(pv, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var x = ", v869, ";", (function(){ + })(), l186.fvalue(pv, "var x = ", v870, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), "return typeof x === 'object' && 'length' in x;"), "})()")); - })(l184.fvalue(pv, v868)); + })(l184.fvalue(pv, v869)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l331 = {name: "AREF"}; -((l287).value = ({car: l45.fvalue(pv, l331, (function (values,v870,v871){ +var l332 = {name: "AREF"}; +((l288).value = ({car: l45.fvalue(pv, l332, (function (values,v871,v872){ checkArgs(arguments, 3); return (function(){ - return (function(v872,v873){ + return (function(v873,v874){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var x = ", "(", v872, ")[", v873, "];", (function(){ + })(), l186.fvalue(pv, "var x = ", "(", v873, ")[", v874, "];", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8226,30 +8283,30 @@ var l331 = {name: "AREF"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v870),l184.fvalue(pv, v871)); + })(l184.fvalue(pv, v871),l184.fvalue(pv, v872)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l332 = {name: "ASET"}; -((l287).value = ({car: l45.fvalue(pv, l332, (function (values,v874,v875,v876){ +var l333 = {name: "ASET"}; +((l288).value = ({car: l45.fvalue(pv, l333, (function (values,v875,v876,v877){ checkArgs(arguments, 4); return (function(){ - return (function(v877,v878,v879){ + return (function(v878,v879,v880){ return l182.fvalue(values, "(function(){", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l186.fvalue(pv, "var x = ", v877, ";", (function(){ + })(), l186.fvalue(pv, "var x = ", v878, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var i = ", v878, ";", (function(){ + })(), "var i = ", v879, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8259,22 +8316,22 @@ var l332 = {name: "ASET"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return x[i] = ", v879, ";", (function(){ + })(), "return x[i] = ", v880, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()), "})()"); - })(l184.fvalue(pv, v874),l184.fvalue(pv, v875),l184.fvalue(pv, v876)); + })(l184.fvalue(pv, v875),l184.fvalue(pv, v876),l184.fvalue(pv, v877)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l333 = {name: "GET-UNIX-TIME"}; -((l287).value = ({car: l45.fvalue(pv, l333, (function (values){ +var l334 = {name: "GET-UNIX-TIME"}; +((l288).value = ({car: l45.fvalue(pv, l334, (function (values){ checkArgsAtMost(arguments, 1); return (function(){ return (function(){ @@ -8282,35 +8339,35 @@ var l333 = {name: "GET-UNIX-TIME"}; })(); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -var l334 = {name: "VALUES-ARRAY"}; -((l287).value = ({car: l45.fvalue(pv, l334, (function (values,v880){ +var l335 = {name: "VALUES-ARRAY"}; +((l288).value = ({car: l45.fvalue(pv, l335, (function (values,v881){ checkArgs(arguments, 2); return (function(){ - return (function(v881){ + return (function(v882){ return ((function(){ var symbol = l187; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l182.fvalue(values, "values.apply(this, ", v881, ")") : l182.fvalue(values, "pv.apply(this, ", v881, ")")); - })(l184.fvalue(pv, v880)); + })() !== l5.value ? l182.fvalue(values, "values.apply(this, ", v882, ")") : l182.fvalue(values, "pv.apply(this, ", v882, ")")); + })(l184.fvalue(pv, v881)); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); -((l287).value = ({car: l45.fvalue(pv, l156, (function (values){ - var v882= l5.value; +((l288).value = ({car: l45.fvalue(pv, l156, (function (values){ + var v883= l5.value; for (var i = arguments.length-1; i>=1; i--) - v882 = {car: arguments[i], cdr: - v882}; + v883 = {car: arguments[i], cdr: + v883}; return (function(){ return ((function(){ var symbol = l187; @@ -8322,32 +8379,32 @@ var l334 = {name: "VALUES-ARRAY"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v882), ", "), ")") : l182.fvalue(values, "pv(", l150.fvalue(pv, l79.fvalue(pv, (function(){ + })(), v883), ", "), ")") : l182.fvalue(values, "pv(", l150.fvalue(pv, l79.fvalue(pv, (function(){ var symbol = l184; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v882), ", "), ")")); + })(), v883), ", "), ")")); })(); })), cdr: (function(){ - var symbol = l287; + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()})); (function(){ - (l213).fvalue = (function(v885){ - ((v885)["fname"] = "MACRO"); - return v885; - })((function (values,v883){ + (l213).fvalue = (function(v886){ + ((v886)["fname"] = "MACRO"); + return v886; + })((function (values,v884){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v883; + var tmp = v884; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v884){ - return (((l190.fvalue(pv, v884) === l213)?l4.value: l5.value) !== l5.value ? v884 : l5.value); - })(l202.fvalue(pv, v883, (function(){ + })()?l4.value: l5.value) !== l5.value ? (function(v885){ + return (((l190.fvalue(pv, v885) === l213)?l4.value: l5.value) !== l5.value ? v885 : l5.value); + })(l202.fvalue(pv, v884, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8357,25 +8414,25 @@ var l334 = {name: "VALUES-ARRAY"}; })); return l213; })(); -var l335 = {name: "LS-MACROEXPAND-1"}; +var l336 = {name: "LS-MACROEXPAND-1"}; (function(){ - (l335).fvalue = (function(v890){ - ((v890)["fname"] = "LS-MACROEXPAND-1"); - return v890; - })((function (values,v886){ + (l336).fvalue = (function(v891){ + ((v891)["fname"] = "LS-MACROEXPAND-1"); + return v891; + })((function (values,v887){ checkArgs(arguments, 2); return (function(){ - return (function(v887){ - return (v887 !== l5.value ? (function(v888){ - (l60.fvalue(pv, v888) !== l5.value ? (function(v889){ - l193.fvalue(pv, v887, v889); - return (v888 = v889); - })(l262.fvalue(pv, v888)) : l5.value); + return (function(v888){ + return (v888 !== l5.value ? (function(v889){ + (l60.fvalue(pv, v889) !== l5.value ? (function(v890){ + l193.fvalue(pv, v888, v890); + return (v889 = v890); + })(l263.fvalue(pv, v889)) : l5.value); return (function(){ - var f = v888; + var f = v889; var args = [values]; var tail = ((function(){ - var tmp = v886; + var tmp = v887; return tmp === l5.value? l5.value: tmp.cdr; })()); while (tail != l5.value){ @@ -8384,66 +8441,67 @@ var l335 = {name: "LS-MACROEXPAND-1"}; } return f.apply(this, args); })(); - })(l191.fvalue(pv, v887)) : v886); + })(l191.fvalue(pv, v888)) : v887); })(l213.fvalue(pv, (function(){ - var tmp = v886; + var tmp = v887; return tmp === l5.value? l5.value: tmp.car; })())); })(); })); - return l335; + return l336; })(); -var l336 = {name: "COMPILE-FUNCALL"}; -var l337 = {name: "G764"}; +var l337 = {name: "COMPILE-FUNCALL"}; +var l338 = {name: "G764"}; (function(){ - (l336).fvalue = (function(v895){ - ((v895)["fname"] = "COMPILE-FUNCALL"); - return v895; - })((function (values,v891,v892){ + (l337).fvalue = (function(v896){ + ((v896)["fname"] = "COMPILE-FUNCALL"); + return v896; + })((function (values,v892,v893){ checkArgs(arguments, 3); return (function(){ return (function(){ - var v893 = ((function(){ + var v894 = ((function(){ var symbol = l187; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? "values" : "pv"); - var v894 = l148.fvalue(pv, "(", l150.fvalue(pv, ({car: v893, cdr: l79.fvalue(pv, (function(){ + var v895 = l148.fvalue(pv, "(", l150.fvalue(pv, ({car: v894, cdr: l79.fvalue(pv, (function(){ var symbol = l184; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v892)}), ", "), ")"); - return (l257.fvalue(pv, v891) !== l5.value ? l148.fvalue(values, l257.fvalue(pv, v891), v894) : ((((function(){ - var tmp = v891; + })(), v893)}), ", "), ")"); + return (l258.fvalue(pv, v892) !== l5.value ? l148.fvalue(values, l258.fvalue(pv, v892), v895) : ((((function(){ + var tmp = v892; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((l136.fvalue(pv, v891) === l127.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ - var symbol = l337; + })()?l4.value: l5.value) !== l5.value ? (((l136.fvalue(pv, v892) === l127.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ + var symbol = l338; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() : l5.value) : l5.value) !== l5.value ? l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v891))), ".fvalue", v894) : l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l109), l45.fvalue(pv, v891))), v894))); + })() : l5.value) : l5.value) !== l5.value ? l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v892))), ".fvalue", v895) : l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l109), l45.fvalue(pv, v892))), v895))); })(); })(); })); - return l336; + return l337; })(); (function(){ - (l244).fvalue = (function(v898){ - ((v898)["fname"] = "LS-COMPILE-BLOCK"); - return v898; - })((function (values,v896,v897){ + (l245).fvalue = (function(v899){ + ((v899)["fname"] = "LS-COMPILE-BLOCK"); + return v899; + })((function (values,v897,v898){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v898; switch(arguments.length-1){ case 1: - v897=l5.value; + v898=l5.value; default: break; } return (function(){ - return (v897 !== l5.value ? l182.fvalue(values, l244.fvalue(pv, l92.fvalue(pv, v896)), "return ", l184.fvalue(pv, (function(){ - var tmp = l91.fvalue(pv, v896); + return (v898 !== l5.value ? l182.fvalue(values, l245.fvalue(pv, l92.fvalue(pv, v897)), "return ", l184.fvalue(pv, (function(){ + var tmp = l91.fvalue(pv, v897); return tmp === l5.value? l5.value: tmp.car; })(), (function(){ var symbol = l187; @@ -8460,7 +8518,7 @@ var l337 = {name: "G764"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v896)), l148.fvalue(pv, ";", (function(){ + })(), v897)), l148.fvalue(pv, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8468,174 +8526,176 @@ var l337 = {name: "G764"}; })()))); })(); })); - return l244; + return l245; })(); (function(){ - (l184).fvalue = (function(v908){ - ((v908)["fname"] = "LS-COMPILE"); - return v908; - })((function (values,v899,v900){ + (l184).fvalue = (function(v909){ + ((v909)["fname"] = "LS-COMPILE"); + return v909; + })((function (values,v900,v901){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v901; switch(arguments.length-1){ case 1: - v900=l5.value; + v901=l5.value; default: break; } return (function(){ - return (function(v901){ + return (function(v902){ try { var tmp; tmp = l187.value; - l187.value = v901; - v901 = tmp; + l187.value = v902; + v902 = tmp; return (((function(){ - var tmp = v899; + var tmp = v900; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v902){ - return ((v902 !== l5.value ? l28.fvalue(pv, l93.fvalue(pv, l217, l192.fvalue(pv, v902))) : l5.value) !== l5.value ? l191.fvalue(values, v902) : ((function(v903){ - return (v903 !== l5.value ? v903 : l93.fvalue(pv, l219, l192.fvalue(pv, v902))); - })(l135.fvalue(pv, v899)) !== l5.value ? l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v899))), ".value") : l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l307), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v899))))))); - })(l202.fvalue(pv, v899, (function(){ + })()?l4.value: l5.value) !== l5.value ? (function(v903){ + return ((v903 !== l5.value ? l28.fvalue(pv, l93.fvalue(pv, l217, l192.fvalue(pv, v903))) : l5.value) !== l5.value ? l191.fvalue(values, v903) : ((function(v904){ + return (v904 !== l5.value ? v904 : l93.fvalue(pv, l219, l192.fvalue(pv, v903))); + })(l135.fvalue(pv, v900)) !== l5.value ? l182.fvalue(values, l184.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v900))), ".value") : l184.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l308), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l177), l45.fvalue(pv, v900))))))); + })(l202.fvalue(pv, v900, (function(){ var symbol = l203; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l110)) : (l86.fvalue(pv, v899) !== l5.value ? l18.fvalue(values, v899) : (((typeof(v899) == "string")?l4.value: l5.value) !== l5.value ? l182.fvalue(values, "\"", l158.fvalue(pv, v899), "\"") : (((function(){ - var x = v899; + })(), l110)) : (l86.fvalue(pv, v900) !== l5.value ? l18.fvalue(values, v900) : (((typeof(v900) == "string")?l4.value: l5.value) !== l5.value ? l182.fvalue(values, "\"", l158.fvalue(pv, v900), "\"") : (((function(){ + var x = v900; return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l252.fvalue(values, v899) : (l60.fvalue(pv, v899) !== l5.value ? (function(v904,v905){ - return (l102.fvalue(pv, v904, (function(){ + })()?l4.value: l5.value) !== l5.value ? l253.fvalue(values, v900) : (l60.fvalue(pv, v900) !== l5.value ? (function(v905,v906){ + return (l102.fvalue(pv, v905, (function(){ var symbol = l221; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l5.value ? (function(v906){ + })()) !== l5.value ? (function(v907){ return (function(){ - var f = v906; + var f = v907; var args = [values]; - var tail = (v905); + var tail = (v906); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; } return f.apply(this, args); })(); - })(l41.fvalue(pv, l102.fvalue(pv, v904, (function(){ + })(l41.fvalue(pv, l102.fvalue(pv, v905, (function(){ var symbol = l221; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : ((l102.fvalue(pv, v904, (function(){ - var symbol = l287; + })()))) : ((l102.fvalue(pv, v905, (function(){ + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l5.value ? l28.fvalue(pv, l215.fvalue(pv, v904, l109, l218)) : l5.value) !== l5.value ? (function(v907){ + })()) !== l5.value ? l28.fvalue(pv, l215.fvalue(pv, v905, l109, l218)) : l5.value) !== l5.value ? (function(v908){ return (function(){ - var f = v907; + var f = v908; var args = [values]; - var tail = (v905); + var tail = (v906); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; } return f.apply(this, args); })(); - })(l41.fvalue(pv, l102.fvalue(pv, v904, (function(){ - var symbol = l287; + })(l41.fvalue(pv, l102.fvalue(pv, v905, (function(){ + var symbol = l288; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : (l213.fvalue(pv, v904) !== l5.value ? l184.fvalue(values, l335.fvalue(pv, v899), v900) : l336.fvalue(values, v904, v905)))); + })()))) : (l213.fvalue(pv, v905) !== l5.value ? l184.fvalue(values, l336.fvalue(pv, v900), v901) : l337.fvalue(values, v905, v906)))); })((function(){ - var tmp = v899; + var tmp = v900; return tmp === l5.value? l5.value: tmp.car; })(),(function(){ - var tmp = v899; + var tmp = v900; return tmp === l5.value? l5.value: tmp.cdr; })()) : (function(){ throw "How should I compile this?"; })()))))); } finally { - l187.value = v901; + l187.value = v902; } - })(v900); + })(v901); })(); })); return l184; })(); -var l338 = {name: "LS-COMPILE-TOPLEVEL"}; +var l339 = {name: "LS-COMPILE-TOPLEVEL"}; (function(){ - (l338).fvalue = (function(v915){ - ((v915)["fname"] = "LS-COMPILE-TOPLEVEL"); - return v915; - })((function (values,v909,v910){ + (l339).fvalue = (function(v916){ + ((v916)["fname"] = "LS-COMPILE-TOPLEVEL"); + return v916; + })((function (values,v910,v911){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); + var v911; switch(arguments.length-1){ case 1: - v910=l5.value; + v911=l5.value; default: break; } return (function(){ - return (function(v911){ + return (function(v912){ try { var tmp; tmp = l208.value; - l208.value = v911; - v911 = tmp; + l208.value = v912; + v912 = tmp; return ((((function(){ - var tmp = v909; + var tmp = v910; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v909; + var tmp = v910; return tmp === l5.value? l5.value: tmp.car; - })() === l118)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v913){ + })() === l118)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v914){ return l150.fvalue(values, l95.fvalue(pv, (function(){ var symbol = l210; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v913)); - })(l79.fvalue(pv, (function (values,v912){ + })(), v914)); + })(l79.fvalue(pv, (function (values,v913){ checkArgs(arguments, 2); - return l338.fvalue(values, v912, l4.value); + return l339.fvalue(values, v913, l4.value); }), (function(){ - var tmp = v909; + var tmp = v910; return tmp === l5.value? l5.value: tmp.cdr; - })())) : (function(v914){ + })())) : (function(v915){ return l182.fvalue(values, l151.fvalue(pv, l211.fvalue(pv), l182.fvalue(pv, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), (v914 !== l5.value ? l182.fvalue(pv, v914, ";", (function(){ + })())), (v915 !== l5.value ? l182.fvalue(pv, v915, ";", (function(){ var symbol = l147; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : l5.value)); - })(l184.fvalue(pv, v909, v910))); + })(l184.fvalue(pv, v910, v911))); } finally { - l208.value = v911; + l208.value = v912; } })(l5.value); })(); })); - return l338; + return l339; })(); (function(){ - (l262).fvalue = (function(v917){ - ((v917)["fname"] = "EVAL"); - return v917; - })((function (values,v916){ + (l263).fvalue = (function(v918){ + ((v918)["fname"] = "EVAL"); + return v918; + })((function (values,v917){ checkArgs(arguments, 2); return (function(){ return (function(){ - var string = l338.fvalue(pv, v916, l4.value); + var string = l339.fvalue(pv, v917, l4.value); if (typeof string != 'string') throw 'The value ' + string + ' is not a type string.'; return (function(){ @@ -8649,11 +8709,11 @@ var l338 = {name: "LS-COMPILE-TOPLEVEL"}; })(); })(); })); - return l262; + return l263; })(); -var l339 = {name: "&BODY"}; -var l340 = QIList(l226,l227,l225,l339,l21,l16,l137,l63,l64,l22,l23,l24,l298,l300,l20,l20,l297,l299,l55,l66,l319,l331,l330,l102,l46,l199,l19,l19,l92,l33,l39,l37,l34,l31,l31,l53,l274,l35,l38,l36,l32,l32,l317,l84,l85,l83,l52,l29,l30,l81,l82,l48,l2,l3,l10,l12,l1,l9,l98,l97,l106,l70,l71,l108,l50,l51,l54,l310,l27,l311,l321,l262,l101,l145,l105,l127,l140,l40,l258,l43,l306,l318,l109,l327,l17,l146,l281,l80,l223,l138,l47,l86,l86,l144,l135,l259,l6,l91,l73,l266,l269,l122,l45,l60,l329,l123,l304,l79,l93,l88,l294,l111,l283,l112,l284,l5,l28,l90,l89,l13,l301,l56,l128,l130,l126,l175,l87,l157,l160,l220,l57,l58,l118,l69,l49,l177,l94,l95,l96,l14,l273,l67,l68,l119,l120,l41,l246,l117,l115,l100,l314,l103,l104,l313,l99,l254,l305,l136,l308,l307,l303,l4,l280,l42,l275,l26,l8,l282,l156,l155,l110,l159,l7,l107,l328,l25,l5); -l145.fvalue(values, l340); +var l340 = {name: "&BODY"}; +var l341 = QIList(l226,l227,l225,l340,l21,l16,l137,l63,l64,l22,l23,l24,l299,l301,l20,l20,l298,l300,l55,l66,l320,l332,l331,l102,l46,l199,l19,l19,l92,l33,l39,l37,l34,l31,l31,l53,l275,l35,l38,l36,l32,l32,l318,l84,l85,l83,l52,l29,l30,l81,l82,l48,l2,l3,l10,l12,l1,l9,l98,l97,l106,l70,l71,l108,l50,l51,l54,l311,l27,l312,l322,l263,l101,l145,l105,l127,l140,l40,l259,l43,l307,l319,l109,l328,l17,l146,l282,l80,l223,l138,l47,l86,l86,l144,l135,l260,l6,l91,l73,l267,l270,l122,l45,l60,l330,l123,l305,l79,l93,l88,l295,l111,l284,l112,l285,l5,l28,l90,l89,l13,l302,l56,l128,l130,l126,l175,l87,l157,l160,l220,l57,l58,l118,l69,l49,l177,l94,l95,l96,l14,l274,l67,l68,l119,l120,l41,l247,l117,l115,l100,l315,l103,l104,l314,l99,l255,l306,l136,l309,l308,l304,l4,l281,l42,l276,l26,l8,l283,l156,l155,l110,l159,l7,l107,l329,l25,l5); +l145.fvalue(values, l341); ((l137).value = (function(){ var symbol = l133; var value = symbol.value; @@ -8687,72 +8747,73 @@ l145.fvalue(values, l340); return func; })()); (lisp.eval = (function(){ - var symbol = l262; + var symbol = l263; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); -(lisp.compile = (function (values,v918){ +(lisp.compile = (function (values,v919){ checkArgs(arguments, 2); - return l338.fvalue(values, v918, l4.value); + return l339.fvalue(values, v919, l4.value); })); -(lisp.evalString = (function (values,v919){ +(lisp.evalString = (function (values,v920){ checkArgs(arguments, 2); - return l262.fvalue(values, l181.fvalue(pv, v919)); + return l263.fvalue(values, l181.fvalue(pv, v920)); })); -(lisp.compileString = (function (values,v920){ +(lisp.compileString = (function (values,v921){ checkArgs(arguments, 2); - return l338.fvalue(values, l181.fvalue(pv, v920), l4.value); + return l339.fvalue(values, l181.fvalue(pv, v921), l4.value); })); -var l341 = {name: "OP"}; -var l342 = {name: "SYM"}; -var l343 = {name: "X"}; -var l344 = {name: "ARGS"}; -var l345 = {name: "BODY"}; -var l346 = {name: "DECLS"}; -var l347 = {name: "DECL"}; -var l348 = {name: "NAME"}; -var l349 = {name: "ARG"}; -var l350 = {name: "FORM"}; -var l351 = {name: "PACKAGE-DESIGNATOR"}; -var l352 = {name: "PAIRS"}; -var l353 = {name: "PLACE"}; -var l354 = {name: "VALUE"}; -var l355 = {name: "VARS"}; -var l356 = {name: "VALS"}; -var l357 = {name: "STORE-VARS"}; -var l358 = {name: "WRITER-FORM"}; -var l359 = {name: "READER-FORM"}; -var l360 = {name: "RESULT"}; -var l361 = {name: "ACCESS-FN"}; -var l362 = {name: "LAMBDA-LIST"}; -var l363 = {name: "VALUE-FROM"}; -var l364 = {name: "VARIABLES"}; -var l365 = {name: "HEAD"}; -var l366 = {name: "TAIL"}; -var l367 = {name: "COLLECT"}; -var l368 = {name: "VARLIST"}; -var l369 = {name: "ENDLIST"}; -var l370 = {name: "V"}; -var l371 = {name: "ASSIGNMENTS"}; -var l372 = {name: "FORM1"}; -var l373 = {name: "FORMS"}; -var l374 = {name: "G"}; -var l375 = {name: "CLAUSULES"}; -var l376 = {name: "!FORM"}; -var l377 = {name: "CLAUSULE"}; -var l378 = {name: "ITER"}; -var l379 = {name: "G!TO"}; -var l380 = {name: "VAR"}; -var l381 = {name: "TO"}; -var l382 = {name: "G!LIST"}; -var l383 = {name: "DELTA"}; -var l384 = {name: "CONDITION"}; -var l385 = {name: "DOCSTRING"}; -var l386 = QIList(QIList(QIList(l287,l110,l5,QIList(l217,l5),l5),QIList(l277,l110,l5,QIList(l217,l5),l5),QIList(l276,l110,l5,QIList(l217,l5),l5),QIList(l270,l110,l5,QIList(l217,l5),l5),QIList(l260,l110,l5,QIList(l217,l5),l5),QIList(l250,l110,l5,QIList(l217,l5),l5),QIList(l249,l110,l5,QIList(l217,l5),l5),QIList(l224,l110,l5,QIList(l217,l5),l5),QIList(l221,l110,l5,QIList(l217,l5),l5),QIList(l208,l110,l5,QIList(l217,l5),l5),QIList(l204,l110,l5,QIList(l217,l5),l5),QIList(l203,l110,l5,QIList(l217,l5),l5),QIList(l187,l110,l5,QIList(l217,l5),l5),QIList(l176,l110,l5,QIList(l217,l5),l5),QIList(l147,l110,l5,QIList(l217,l5),l5),QIList(l137,l110,l5,QIList(l217,l5),l5),QIList(l134,l110,l5,QIList(l217,l5),l5),QIList(l133,l110,l5,QIList(l217,l5),l5),QIList(l132,l110,l5,QIList(l217,l5),l5),QIList(l121,l110,l5,QIList(l217,l5),l5),QIList(l113,l110,l5,QIList(l217,l5),l5),QIList(l16,l110,l5,QIList(l217,l5),l5),QIList(l5,l110,l5,QIList(l219,l217,l5),l5),QIList(l4,l110,l5,QIList(l219,l217,l5),l5),l5),QIList(QIList(l296,l213,QIList(l109,QIList(l6,QIList(l341,l342,l5),QIList(l178,QIList(l288,QIList(l180,l341,l5),QIList(l343,l226,l344,l5),QIList(l266,QIList(QIList(l344,QIList(l29,l343,l344,l5),l5),l5),QIList(l292,l344,QIList(l183,QIList(l295,l344,QIList(l180,l342,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l292,l213,QIList(l109,QIList(l6,QIList(l344,l226,l345,l5),QIList(l8,QIList(l303,l344,l5),QIList(l321,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l178,QIList(l291,QIList(l180,l344,l5),QIList(l6,QIList(QIList(l180,l344,l5),l5),QIList(l182,"return ",QIList(l179,l345,l5),";",l147,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l290,l213,QIList(l109,QIList(l6,QIList(l346,l226,l345,l5),QIList(l178,QIList(l185,QIList(l179,QIList(l79,QIList(l6,QIList(l347,l5),QIList(l178,QIList(l182,"var ",QIList(l180,QIList(l40,l347,l5),l5)," = ",QIList(l180,QIList(l42,l347,l5),l5),";",l147,l5),l5),l5),l346,l5),l5),QIList(l179,QIList(l79,QIList(l6,QIList(l347,l5),QIList(l178,QIList(l182,"if (typeof ",QIList(l180,QIList(l40,l347,l5),l5)," != '",QIList(l180,QIList(l41,l347,l5),l5),"')",l147,QIList(l186,"throw 'The value ' + ",QIList(l180,QIList(l40,l347,l5),l5)," + ' is not a type ",QIList(l180,QIList(l41,l347,l5),l5),".';",l147,l5),l5),l5),l5),l346,l5),l5),QIList(l182,"return ",QIList(l118,QIList(l179,l345,l5),l5),";",l147,l5),l5),l5),l5),l5),l5,l5),QIList(l289,l213,QIList(l109,QIList(l6,QIList(l348,l344,l226,l345,l5),QIList(l178,QIList(l118,QIList(l288,QIList(l180,l348,l5),QIList(l180,l344,l5),QIList(l266,QIList(l180,QIList(l79,QIList(l6,QIList(l349,l5),QIList(l178,QIList(QIList(l180,l349,l5),QIList(l184,QIList(l180,l349,l5),l5),l5),l5),l5),l344,l5),l5),QIList(l179,l345,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l288,l213,QIList(l109,QIList(l6,QIList(l348,l344,l226,l345,l5),QIList(l178,QIList(l49,QIList(l45,QIList(l177,QIList(l180,l348,l5),l5),QIList(l6,QIList(l180,l344,l5),QIList(l199,QIList(l180,l348,l5),QIList(l179,l345,l5),l5),l5),l5),l287,l5),l5),l5),l5),l5,l5),QIList(l178,l213,QIList(l109,QIList(l6,QIList(l350,l5),QIList(l285,l350,l5),l5),l5),l5,l5),QIList(l263,l213,QIList(l109,QIList(l6,QIList(l348,l344,l350,l5),QIList(l178,QIList(l222,QIList(l180,l348,l5),QIList(l180,l344,l5),QIList(l184,QIList(l180,l350,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l222,l213,QIList(l109,QIList(l6,QIList(l348,l344,l226,l345,l5),QIList(l178,QIList(l49,QIList(l45,QIList(l177,QIList(l180,l348,l5),l5),QIList(l6,QIList(l180,l344,l5),QIList(l199,QIList(l180,l348,l5),QIList(l179,l345,l5),l5),l5),l5),l221,l5),l5),l5),l5),l5,l5),QIList(l185,l213,QIList(l109,QIList(l6,QIList(l226,l345,l5),QIList(l178,QIList(l182,"(function(){",l147,QIList(l186,QIList(l179,l345,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l149,l213,QIList(l109,QIList(l6,QIList(l110,l226,l350,l5),QIList(l178,QIList(l115,QIList(l180,l110,l5),QIList(l148,QIList(l180,l110,l5),QIList(l118,QIList(l179,l350,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l138,l213,QIList(l109,QIList(l6,QIList(l351,l5),QIList(l178,QIList(l261,QIList(l115,l137,QIList(l125,QIList(l180,l351,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l117,l213,QIList(l109,QIList(l6,QIList(l226,l352,l5),QIList(l52,QIList(QIList(l13,l352,l5),l5,l5),QIList(QIList(l13,QIList(l32,l352,l5),l5),QIList(l321,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l36,l352,l5),l5),QIList(l266,QIList(QIList(l353,QIList(l40,l352,l5),l5),QIList(l354,QIList(l41,l352,l5),l5),l5),QIList(l111,QIList(l355,l356,l357,l358,l359,l5),QIList(l114,l353,l5),QIList(l178,QIList(l269,QIList(l180,QIList(l79,QIList(l109,l45,l5),l355,l356,l5),l5),QIList(l111,QIList(l180,l357,l5),QIList(l180,l354,l5),QIList(l180,l358,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l178,QIList(l118,QIList(l179,QIList(l70,QIList(QIList(l352,l352,QIList(l36,l352,l5),l5),QIList(l360,QIList(l177,l5,l5),QIList(l29,QIList(l178,QIList(l117,QIList(l180,QIList(l31,l352,l5),l5),QIList(l180,QIList(l34,l352,l5),l5),l5),l5),l360,l5),l5),l5),QIList(QIList(l13,l352,l5),QIList(l68,l360,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l116,l213,QIList(l109,QIList(l6,QIList(l361,l362,l226,l345,l5),QIList(l8,QIList(l303,l361,l5),QIList(l321,"ACCESS-FN must be a symbol.",l5),l5),QIList(l178,QIList(l118,QIList(l49,QIList(l29,QIList(l177,QIList(l180,l361,l5),l5),QIList(l6,QIList(l180,l362,l5),QIList(l179,l345,l5),l5),l5),l113,l5),QIList(l177,QIList(l180,l361,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l112,l213,QIList(l109,QIList(l6,QIList(l363,l5),QIList(l178,QIList(l283,QIList(l109,l45,l5),QIList(l180,l363,l5),l5),l5),l5),l5),l5,l5),QIList(l111,l213,QIList(l109,QIList(l6,QIList(l364,l363,l226,l345,l5),QIList(l178,QIList(l283,QIList(l6,QIList(l225,QIList(l179,l364,l5),l226,QIList(l180,QIList(l17,l5),l5),l5),QIList(l179,l345,l5),l5),QIList(l180,l363,l5),l5),l5),l5),l5),l5,l5),QIList(l78,l213,QIList(l109,QIList(l6,QIList(l226,l345,l5),QIList(l178,QIList(l15,l4,QIList(l179,l345,l5),l5),l5),l5),l5),l5,l5),QIList(l75,l213,QIList(l109,QIList(l6,QIList(l226,l345,l5),QIList(l266,QIList(QIList(l365,QIList(l17,l5),l5),QIList(l366,QIList(l17,l5),l5),l5),QIList(l178,QIList(l269,QIList(QIList(QIList(l180,l365,l5),QIList(l29,QIList(l177,l77,l5),l5,l5),l5),QIList(QIList(l180,l366,l5),QIList(l180,l365,l5),l5),l5),QIList(l258,QIList(QIList(l367,QIList(l343,l5),QIList(l120,QIList(l180,l366,l5),QIList(l29,l343,l5,l5),l5),QIList(l115,QIList(l180,l366,l5),QIList(l32,QIList(l180,l366,l5),l5),l5),l343,l5),l5),QIList(l179,l345,l5),l5),QIList(l32,QIList(l180,l365,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l213,QIList(l109,QIList(l6,QIList(l368,l369,l226,l345,l5),QIList(l178,QIList(l199,l5,QIList(l269,QIList(l180,QIList(l79,QIList(l6,QIList(l343,l5),QIList(l45,QIList(l40,l343,l5),QIList(l41,l343,l5),l5),l5),l368,l5),l5),QIList(l15,l4,QIList(l7,QIList(l180,QIList(l31,l369,l5),l5),QIList(l14,QIList(l118,QIList(l180,QIList(l32,l369,l5),l5),l5),l5),l5),QIList(l280,QIList(l179,l345,l5),l5),QIList(l115,QIList(l179,QIList(l319,QIList(l109,l66,l5),QIList(l79,QIList(l6,QIList(l370,l5),QIList(l55,QIList(l30,QIList(l36,l370,l5),l5),QIList(l45,QIList(l40,l370,l5),QIList(l42,l370,l5),l5),l5),l5),l368,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l70,l213,QIList(l109,QIList(l6,QIList(l368,l369,l226,l345,l5),QIList(l178,QIList(l199,l5,QIList(l266,QIList(l180,QIList(l79,QIList(l6,QIList(l343,l5),QIList(l45,QIList(l40,l343,l5),QIList(l41,l343,l5),l5),l5),l368,l5),l5),QIList(l15,l4,QIList(l7,QIList(l180,QIList(l31,l369,l5),l5),QIList(l14,QIList(l118,QIList(l180,QIList(l32,l369,l5),l5),l5),l5),l5),QIList(l280,QIList(l179,l345,l5),l5),QIList(l69,QIList(l179,QIList(l319,QIList(l109,l66,l5),QIList(l79,QIList(l6,QIList(l370,l5),QIList(l55,QIList(l30,QIList(l36,l370,l5),l5),QIList(l45,QIList(l40,l370,l5),QIList(l42,l370,l5),l5),l5),l5),l368,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l69,l213,QIList(l109,QIList(l6,QIList(l226,l352,l5),QIList(l266,QIList(QIList(l371,QIList(l177,l5,l5),l5),l5),QIList(l15,l4,QIList(l52,QIList(QIList(l13,l352,l5),QIList(l14,l5),l5),QIList(QIList(l13,QIList(l32,l352,l5),l5),QIList(l321,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l266,QIList(QIList(l110,QIList(l31,l352,l5),l5),QIList(l354,QIList(l34,l352,l5),l5),l5),QIList(l49,QIList(l178,QIList(QIList(l180,l110,l5),QIList(l180,QIList(l17,l5),l5),QIList(l180,l354,l5),l5),l5),l371,l5),QIList(l115,l352,QIList(l36,l352,l5),l5),l5),l5),l5),l5),QIList(l115,l371,QIList(l68,l371,l5),l5),QIList(l178,QIList(l266,QIList(l180,QIList(l79,QIList(l109,l32,l5),l371,l5),l5),QIList(l115,QIList(l179,QIList(l61,QIList(l109,l66,l5),QIList(l79,QIList(l109,l92,l5),l371,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l58,l213,QIList(l109,QIList(l6,QIList(l372,l360,l226,l345,l5),QIList(l178,QIList(l57,QIList(l118,QIList(l180,l372,l5),QIList(l180,l360,l5),l5),QIList(l179,l345,l5),l5),l5),l5),l5),l5,l5),QIList(l57,l213,QIList(l109,QIList(l6,QIList(l350,l226,l345,l5),QIList(l266,QIList(QIList(l354,QIList(l17,l5),l5),l5),QIList(l178,QIList(l266,QIList(QIList(QIList(l180,l354,l5),QIList(l180,l350,l5),l5),l5),QIList(l179,l345,l5),QIList(l180,l354,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l213,QIList(l109,QIList(l6,QIList(l226,l373,l5),QIList(l52,QIList(QIList(l13,l373,l5),l5,l5),QIList(QIList(l13,QIList(l32,l373,l5),l5),QIList(l31,l373,l5),l5),QIList(l4,QIList(l266,QIList(QIList(l374,QIList(l17,l5),l5),l5),QIList(l178,QIList(l266,QIList(QIList(QIList(l180,l374,l5),QIList(l180,QIList(l31,l373,l5),l5),l5),l5),QIList(l223,QIList(l180,l374,l5),QIList(l180,l374,l5),QIList(l56,QIList(l179,QIList(l32,l373,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l213,QIList(l109,QIList(l6,QIList(l226,l373,l5),QIList(l52,QIList(QIList(l13,l373,l5),l4,l5),QIList(QIList(l13,QIList(l32,l373,l5),l5),QIList(l31,l373,l5),l5),QIList(l4,QIList(l178,QIList(l223,QIList(l180,QIList(l31,l373,l5),l5),QIList(l55,QIList(l179,QIList(l32,l373,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l213,QIList(l109,QIList(l6,QIList(l350,l226,l375,l5),QIList(l178,QIList(l53,QIList(l180,l350,l5),QIList(l179,QIList(l66,l375,QIList(l178,QIList(QIList(l4,QIList(l321,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l213,QIList(l109,QIList(l6,QIList(l350,l226,l375,l5),QIList(l266,QIList(QIList(l376,QIList(l17,l5),l5),l5),QIList(l178,QIList(l266,QIList(QIList(QIList(l180,l376,l5),QIList(l180,l350,l5),l5),l5),QIList(l52,QIList(l179,QIList(l79,QIList(l6,QIList(l377,l5),QIList(l223,QIList(l310,QIList(l31,l377,l5),l4,l5),l377,QIList(l178,QIList(QIList(l27,QIList(l180,l376,l5),QIList(l177,QIList(l180,QIList(l31,l377,l5),l5),l5),l5),QIList(l179,QIList(l32,l377,l5),l5),l5),l5),l5),l5),l375,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l213,QIList(l109,QIList(l6,QIList(l226,l375,l5),QIList(l223,QIList(l13,l375,l5),l5,QIList(l223,QIList(l310,QIList(l33,l375,l5),l4,l5),QIList(l178,QIList(l118,QIList(l179,QIList(l35,l375,l5),l5),l5),l5),QIList(l178,QIList(l223,QIList(l180,QIList(l33,l375,l5),l5),QIList(l118,QIList(l179,QIList(l35,l375,l5),l5),l5),QIList(l52,QIList(l179,QIList(l32,l375,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l213,QIList(l109,QIList(l6,QIList(l378,l226,l345,l5),QIList(l266,QIList(QIList(l379,QIList(l17,l5),l5),QIList(l380,QIList(l40,l378,l5),l5),QIList(l381,QIList(l41,l378,l5),l5),QIList(l360,QIList(l42,l378,l5),l5),l5),QIList(l178,QIList(l199,l5,QIList(l266,QIList(QIList(QIList(l180,l380,l5),0,l5),QIList(QIList(l180,l379,l5),QIList(l180,l381,l5),l5),l5),QIList(l253,QIList(l298,QIList(l180,l380,l5),QIList(l180,l379,l5),l5),QIList(l280,QIList(l179,l345,l5),l5),QIList(l47,QIList(l180,l380,l5),l5),l5),QIList(l180,l360,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l213,QIList(l109,QIList(l6,QIList(l378,l226,l345,l5),QIList(l266,QIList(QIList(l380,QIList(l40,l378,l5),l5),QIList(l382,QIList(l17,l5),l5),l5),QIList(l178,QIList(l199,l5,QIList(l266,QIList(QIList(QIList(l180,l382,l5),QIList(l180,QIList(l41,l378,l5),l5),l5),QIList(QIList(l180,l380,l5),l5,l5),l5),QIList(l253,QIList(l180,l382,l5),QIList(l115,QIList(l180,l380,l5),QIList(l31,QIList(l180,l382,l5),l5),l5),QIList(l280,QIList(l179,l345,l5),l5),QIList(l115,QIList(l180,l382,l5),QIList(l32,QIList(l180,l382,l5),l5),l5),l5),QIList(l180,QIList(l42,l378,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l213,QIList(l109,QIList(l6,QIList(l343,l353,l5),QIList(l178,QIList(l115,QIList(l180,l353,l5),QIList(l29,QIList(l180,l343,l5),QIList(l180,l353,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l48,l213,QIList(l109,QIList(l6,QIList(l343,l225,QIList(l383,1,l5),l5),QIList(l178,QIList(l115,QIList(l180,l343,l5),QIList(l64,QIList(l180,l343,l5),QIList(l180,l383,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l47,l213,QIList(l109,QIList(l6,QIList(l343,l225,QIList(l383,1,l5),l5),QIList(l178,QIList(l115,QIList(l180,l343,l5),QIList(l63,QIList(l180,l343,l5),QIList(l180,l383,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l213,QIList(l109,QIList(l6,QIList(l384,l226,l345,l5),QIList(l178,QIList(l199,l5,QIList(l253,QIList(l180,l384,l5),QIList(l179,l345,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l14,l213,QIList(l109,QIList(l6,QIList(l225,l354,l5),QIList(l178,QIList(l273,l5,QIList(l180,l354,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l213,QIList(l109,QIList(l6,QIList(l348,l344,l226,l345,l5),QIList(l178,QIList(l118,QIList(l306,QIList(l177,QIList(l180,l348,l5),l5),QIList(l11,QIList(l180,QIList(l305,l348,l5),l5),QIList(l180,l344,l5),QIList(l179,QIList(l223,QIList(l55,QIList(l313,QIList(l31,l345,l5),l5),QIList(l28,QIList(l13,QIList(l32,l345,l5),l5),l5),l5),QIList(l178,QIList(QIList(l180,QIList(l31,l345,l5),l5),QIList(l199,QIList(l180,l348,l5),QIList(l179,QIList(l32,l345,l5),l5),l5),l5),l5),QIList(l178,QIList(QIList(l199,QIList(l180,l348,l5),QIList(l179,l345,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l348,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l213,QIList(l109,QIList(l6,QIList(l348,l344,l226,l345,l5),QIList(l266,QIList(QIList(l343,QIList(l17,"FN",l5),l5),l5),QIList(l178,QIList(l266,QIList(QIList(QIList(l180,l343,l5),QIList(l6,QIList(l180,l344,l5),QIList(l179,l345,l5),l5),l5),l5),QIList(l325,QIList(l180,l343,l5),"fname",QIList(l180,l348,l5),l5),QIList(l180,l343,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l213,QIList(l109,QIList(l6,QIList(l348,l354,l225,l385,l5),QIList(l178,QIList(l118,QIList(l115,QIList(l180,l348,l5),QIList(l180,l354,l5),l5),QIList(l179,QIList(l7,QIList(l313,l385,l5),QIList(l178,QIList(QIList(l325,QIList(l177,QIList(l180,l348,l5),l5),"vardoc",QIList(l180,l385,l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l348,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l213,QIList(l109,QIList(l6,QIList(l348,l354,l225,l385,l5),QIList(l178,QIList(l118,QIList(l2,QIList(l217,QIList(l180,l348,l5),l5),l5),QIList(l8,QIList(l19,QIList(l177,QIList(l180,l348,l5),l5),l5),QIList(l115,QIList(l180,l348,l5),QIList(l180,l354,l5),l5),l5),QIList(l179,QIList(l7,QIList(l313,l385,l5),QIList(l178,QIList(QIList(l325,QIList(l177,QIList(l180,l348,l5),l5),"vardoc",QIList(l180,l385,l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l348,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l213,QIList(l109,QIList(l6,QIList(l384,l226,l345,l5),QIList(l178,QIList(l223,QIList(l180,l384,l5),l5,QIList(l118,QIList(l179,l345,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l213,QIList(l109,QIList(l6,QIList(l384,l226,l345,l5),QIList(l178,QIList(l223,QIList(l180,l384,l5),QIList(l118,QIList(l179,l345,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l213,QIList(l109,QIList(l6,QIList(l344,l226,l345,l5),QIList(l178,QIList(l109,QIList(l6,QIList(l180,l344,l5),QIList(l179,l345,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l213,QIList(l109,QIList(l6,QIList(l348,l354,l225,l385,l5),QIList(l178,QIList(l118,QIList(l2,QIList(l217,QIList(l180,l348,l5),l5),l5),QIList(l2,QIList(l219,QIList(l180,l348,l5),l5),l5),QIList(l115,QIList(l180,l348,l5),QIList(l180,l354,l5),l5),QIList(l179,QIList(l7,QIList(l313,l385,l5),QIList(l178,QIList(QIList(l325,QIList(l177,QIList(l180,l348,l5),l5),"vardoc",QIList(l180,l385,l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l348,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l213,QIList(l109,QIList(l6,QIList(l226,l346,l5),QIList(l178,QIList(l261,QIList(l179,QIList(l79,QIList(l6,QIList(l347,l5),QIList(l178,QIList(l216,QIList(l177,QIList(l180,l347,l5),l5),l5),l5),l5),l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l213,QIList(l109,QIList(l6,QIList(l348,l344,l226,l345,l5),QIList(l178,QIList(l261,QIList(l212,QIList(l177,QIList(l180,l348,l5),l5),QIList(l177,QIList(l109,QIList(l6,QIList(l180,QIList(l79,QIList(l109,QIList(l6,QIList(l343,l5),QIList(l223,QIList(l310,l343,QIList(l177,l339,l5),l5),QIList(l177,l226,l5),l343,l5),l5),l5),l344,l5),l5),QIList(l179,l345,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); -((l203).value = l386); -var l387 = QIList(QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QIList(l382,"l382"),QIList(l381,"l381"),QIList(l380,"l380"),QIList(l379,"l379"),QIList(l378,"l378"),QIList(l377,"l377"),QIList(l376,"l376"),QIList(l375,"l375"),QIList(l374,"l374"),QIList(l373,"l373"),QIList(l372,"l372"),QIList(l371,"l371"),QIList(l370,"l370"),QIList(l369,"l369"),QIList(l368,"l368"),QIList(l367,"l367"),QIList(l366,"l366"),QIList(l365,"l365"),QIList(l364,"l364"),QIList(l363,"l363"),QIList(l362,"l362"),QIList(l361,"l361"),QIList(l360,"l360"),QIList(l359,"l359"),QIList(l358,"l358"),QIList(l357,"l357"),QIList(l356,"l356"),QIList(l355,"l355"),QIList(l354,"l354"),QIList(l353,"l353"),QIList(l352,"l352"),QIList(l351,"l351"),QIList(l350,"l350"),QIList(l349,"l349"),QIList(l348,"l348"),QIList(l347,"l347"),QIList(l346,"l346"),QIList(l345,"l345"),QIList(l344,"l344"),QIList(l343,"l343"),QIList(l342,"l342"),QIList(l341,"l341"),QIList(l339,"l339"),QIList(l338,"l338"),QIList(l337,"l337"),QIList(l336,"l336"),QIList(l335,"l335"),QIList(l334,"l334"),QIList(l333,"l333"),QIList(l332,"l332"),QIList(l331,"l331"),QIList(l330,"l330"),QIList(l329,"l329"),QIList(l328,"l328"),QIList(l327,"l327"),QIList(l326,"l326"),QIList(l325,"l325"),QIList(l324,"l324"),QIList(l323,"l323"),QIList(l322,"l322"),QIList(l321,"l321"),QIList(l320,"l320"),QIList(l319,"l319"),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(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(l209,"l209"),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"),l5); -(function(){ +var l342 = {name: "OP"}; +var l343 = {name: "SYM"}; +var l344 = {name: "X"}; +var l345 = {name: "ARGS"}; +var l346 = {name: "BODY"}; +var l347 = {name: "DECLS"}; +var l348 = {name: "DECL"}; +var l349 = {name: "NAME"}; +var l350 = {name: "ARG"}; +var l351 = {name: "FORM"}; +var l352 = {name: "PACKAGE-DESIGNATOR"}; +var l353 = {name: "PAIRS"}; +var l354 = {name: "PLACE"}; +var l355 = {name: "VALUE"}; +var l356 = {name: "VARS"}; +var l357 = {name: "VALS"}; +var l358 = {name: "STORE-VARS"}; +var l359 = {name: "WRITER-FORM"}; +var l360 = {name: "READER-FORM"}; +var l361 = {name: "RESULT"}; +var l362 = {name: "ACCESS-FN"}; +var l363 = {name: "LAMBDA-LIST"}; +var l364 = {name: "VALUE-FROM"}; +var l365 = {name: "VARIABLES"}; +var l366 = {name: "HEAD"}; +var l367 = {name: "TAIL"}; +var l368 = {name: "COLLECT"}; +var l369 = {name: "VARLIST"}; +var l370 = {name: "ENDLIST"}; +var l371 = {name: "V"}; +var l372 = {name: "ASSIGNMENTS"}; +var l373 = {name: "FORM1"}; +var l374 = {name: "FORMS"}; +var l375 = {name: "G"}; +var l376 = {name: "CLAUSULES"}; +var l377 = {name: "!FORM"}; +var l378 = {name: "CLAUSULE"}; +var l379 = {name: "ITER"}; +var l380 = {name: "G!TO"}; +var l381 = {name: "VAR"}; +var l382 = {name: "TO"}; +var l383 = {name: "G!LIST"}; +var l384 = {name: "DELTA"}; +var l385 = {name: "CONDITION"}; +var l386 = {name: "DOCSTRING"}; +var l387 = QIList(QIList(QIList(l288,l110,l5,QIList(l217,l5),l5),QIList(l278,l110,l5,QIList(l217,l5),l5),QIList(l277,l110,l5,QIList(l217,l5),l5),QIList(l271,l110,l5,QIList(l217,l5),l5),QIList(l261,l110,l5,QIList(l217,l5),l5),QIList(l251,l110,l5,QIList(l217,l5),l5),QIList(l250,l110,l5,QIList(l217,l5),l5),QIList(l224,l110,l5,QIList(l217,l5),l5),QIList(l221,l110,l5,QIList(l217,l5),l5),QIList(l208,l110,l5,QIList(l217,l5),l5),QIList(l204,l110,l5,QIList(l217,l5),l5),QIList(l203,l110,l5,QIList(l217,l5),l5),QIList(l187,l110,l5,QIList(l217,l5),l5),QIList(l176,l110,l5,QIList(l217,l5),l5),QIList(l147,l110,l5,QIList(l217,l5),l5),QIList(l137,l110,l5,QIList(l217,l5),l5),QIList(l134,l110,l5,QIList(l217,l5),l5),QIList(l133,l110,l5,QIList(l217,l5),l5),QIList(l132,l110,l5,QIList(l217,l5),l5),QIList(l121,l110,l5,QIList(l217,l5),l5),QIList(l113,l110,l5,QIList(l217,l5),l5),QIList(l16,l110,l5,QIList(l217,l5),l5),QIList(l5,l110,l5,QIList(l219,l217,l5),l5),QIList(l4,l110,l5,QIList(l219,l217,l5),l5),l5),QIList(QIList(l297,l213,QIList(l109,QIList(l6,QIList(l342,l343,l5),QIList(l178,QIList(l289,QIList(l180,l342,l5),QIList(l344,l226,l345,l5),QIList(l267,QIList(QIList(l345,QIList(l29,l344,l345,l5),l5),l5),QIList(l293,l345,QIList(l183,QIList(l296,l345,QIList(l180,l343,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l293,l213,QIList(l109,QIList(l6,QIList(l345,l226,l346,l5),QIList(l8,QIList(l304,l345,l5),QIList(l322,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l178,QIList(l292,QIList(l180,l345,l5),QIList(l6,QIList(QIList(l180,l345,l5),l5),QIList(l182,"return ",QIList(l179,l346,l5),";",l147,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l291,l213,QIList(l109,QIList(l6,QIList(l347,l226,l346,l5),QIList(l178,QIList(l185,QIList(l179,QIList(l79,QIList(l6,QIList(l348,l5),QIList(l178,QIList(l182,"var ",QIList(l180,QIList(l40,l348,l5),l5)," = ",QIList(l180,QIList(l42,l348,l5),l5),";",l147,l5),l5),l5),l347,l5),l5),QIList(l179,QIList(l79,QIList(l6,QIList(l348,l5),QIList(l178,QIList(l182,"if (typeof ",QIList(l180,QIList(l40,l348,l5),l5)," != '",QIList(l180,QIList(l41,l348,l5),l5),"')",l147,QIList(l186,"throw 'The value ' + ",QIList(l180,QIList(l40,l348,l5),l5)," + ' is not a type ",QIList(l180,QIList(l41,l348,l5),l5),".';",l147,l5),l5),l5),l5),l347,l5),l5),QIList(l182,"return ",QIList(l118,QIList(l179,l346,l5),l5),";",l147,l5),l5),l5),l5),l5),l5,l5),QIList(l290,l213,QIList(l109,QIList(l6,QIList(l349,l345,l226,l346,l5),QIList(l178,QIList(l118,QIList(l289,QIList(l180,l349,l5),QIList(l180,l345,l5),QIList(l267,QIList(l180,QIList(l79,QIList(l6,QIList(l350,l5),QIList(l178,QIList(QIList(l180,l350,l5),QIList(l184,QIList(l180,l350,l5),l5),l5),l5),l5),l345,l5),l5),QIList(l179,l346,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l289,l213,QIList(l109,QIList(l6,QIList(l349,l345,l226,l346,l5),QIList(l178,QIList(l49,QIList(l45,QIList(l177,QIList(l180,l349,l5),l5),QIList(l6,QIList(l180,l345,l5),QIList(l199,QIList(l180,l349,l5),QIList(l179,l346,l5),l5),l5),l5),l288,l5),l5),l5),l5),l5,l5),QIList(l178,l213,QIList(l109,QIList(l6,QIList(l351,l5),QIList(l286,l351,l5),l5),l5),l5,l5),QIList(l264,l213,QIList(l109,QIList(l6,QIList(l349,l345,l351,l5),QIList(l178,QIList(l222,QIList(l180,l349,l5),QIList(l180,l345,l5),QIList(l184,QIList(l180,l351,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l222,l213,QIList(l109,QIList(l6,QIList(l349,l345,l226,l346,l5),QIList(l178,QIList(l49,QIList(l45,QIList(l177,QIList(l180,l349,l5),l5),QIList(l6,QIList(l180,l345,l5),QIList(l199,QIList(l180,l349,l5),QIList(l179,l346,l5),l5),l5),l5),l221,l5),l5),l5),l5),l5,l5),QIList(l185,l213,QIList(l109,QIList(l6,QIList(l226,l346,l5),QIList(l178,QIList(l182,"(function(){",l147,QIList(l186,QIList(l179,l346,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l149,l213,QIList(l109,QIList(l6,QIList(l110,l226,l351,l5),QIList(l178,QIList(l115,QIList(l180,l110,l5),QIList(l148,QIList(l180,l110,l5),QIList(l118,QIList(l179,l351,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l138,l213,QIList(l109,QIList(l6,QIList(l352,l5),QIList(l178,QIList(l262,QIList(l115,l137,QIList(l125,QIList(l180,l352,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l117,l213,QIList(l109,QIList(l6,QIList(l226,l353,l5),QIList(l52,QIList(QIList(l13,l353,l5),l5,l5),QIList(QIList(l13,QIList(l32,l353,l5),l5),QIList(l322,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l36,l353,l5),l5),QIList(l267,QIList(QIList(l354,QIList(l40,l353,l5),l5),QIList(l355,QIList(l41,l353,l5),l5),l5),QIList(l111,QIList(l356,l357,l358,l359,l360,l5),QIList(l114,l354,l5),QIList(l178,QIList(l270,QIList(l180,QIList(l79,QIList(l109,l45,l5),l356,l357,l5),l5),QIList(l111,QIList(l180,l358,l5),QIList(l180,l355,l5),QIList(l180,l359,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l178,QIList(l118,QIList(l179,QIList(l70,QIList(QIList(l353,l353,QIList(l36,l353,l5),l5),QIList(l361,QIList(l177,l5,l5),QIList(l29,QIList(l178,QIList(l117,QIList(l180,QIList(l31,l353,l5),l5),QIList(l180,QIList(l34,l353,l5),l5),l5),l5),l361,l5),l5),l5),QIList(QIList(l13,l353,l5),QIList(l68,l361,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l116,l213,QIList(l109,QIList(l6,QIList(l362,l363,l226,l346,l5),QIList(l8,QIList(l304,l362,l5),QIList(l322,"ACCESS-FN must be a symbol.",l5),l5),QIList(l178,QIList(l118,QIList(l49,QIList(l29,QIList(l177,QIList(l180,l362,l5),l5),QIList(l6,QIList(l180,l363,l5),QIList(l179,l346,l5),l5),l5),l113,l5),QIList(l177,QIList(l180,l362,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l112,l213,QIList(l109,QIList(l6,QIList(l364,l5),QIList(l178,QIList(l284,QIList(l109,l45,l5),QIList(l180,l364,l5),l5),l5),l5),l5),l5,l5),QIList(l111,l213,QIList(l109,QIList(l6,QIList(l365,l364,l226,l346,l5),QIList(l178,QIList(l284,QIList(l6,QIList(l225,QIList(l179,l365,l5),l226,QIList(l180,QIList(l17,l5),l5),l5),QIList(l179,l346,l5),l5),QIList(l180,l364,l5),l5),l5),l5),l5),l5,l5),QIList(l78,l213,QIList(l109,QIList(l6,QIList(l226,l346,l5),QIList(l178,QIList(l15,l4,QIList(l179,l346,l5),l5),l5),l5),l5),l5,l5),QIList(l75,l213,QIList(l109,QIList(l6,QIList(l226,l346,l5),QIList(l267,QIList(QIList(l366,QIList(l17,l5),l5),QIList(l367,QIList(l17,l5),l5),l5),QIList(l178,QIList(l270,QIList(QIList(QIList(l180,l366,l5),QIList(l29,QIList(l177,l77,l5),l5,l5),l5),QIList(QIList(l180,l367,l5),QIList(l180,l366,l5),l5),l5),QIList(l259,QIList(QIList(l368,QIList(l344,l5),QIList(l120,QIList(l180,l367,l5),QIList(l29,l344,l5,l5),l5),QIList(l115,QIList(l180,l367,l5),QIList(l32,QIList(l180,l367,l5),l5),l5),l344,l5),l5),QIList(l179,l346,l5),l5),QIList(l32,QIList(l180,l366,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l213,QIList(l109,QIList(l6,QIList(l369,l370,l226,l346,l5),QIList(l178,QIList(l199,l5,QIList(l270,QIList(l180,QIList(l79,QIList(l6,QIList(l344,l5),QIList(l45,QIList(l40,l344,l5),QIList(l41,l344,l5),l5),l5),l369,l5),l5),QIList(l15,l4,QIList(l7,QIList(l180,QIList(l31,l370,l5),l5),QIList(l14,QIList(l118,QIList(l180,QIList(l32,l370,l5),l5),l5),l5),l5),QIList(l281,QIList(l179,l346,l5),l5),QIList(l115,QIList(l179,QIList(l320,QIList(l109,l66,l5),QIList(l79,QIList(l6,QIList(l371,l5),QIList(l55,QIList(l30,QIList(l36,l371,l5),l5),QIList(l45,QIList(l40,l371,l5),QIList(l42,l371,l5),l5),l5),l5),l369,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l70,l213,QIList(l109,QIList(l6,QIList(l369,l370,l226,l346,l5),QIList(l178,QIList(l199,l5,QIList(l267,QIList(l180,QIList(l79,QIList(l6,QIList(l344,l5),QIList(l45,QIList(l40,l344,l5),QIList(l41,l344,l5),l5),l5),l369,l5),l5),QIList(l15,l4,QIList(l7,QIList(l180,QIList(l31,l370,l5),l5),QIList(l14,QIList(l118,QIList(l180,QIList(l32,l370,l5),l5),l5),l5),l5),QIList(l281,QIList(l179,l346,l5),l5),QIList(l69,QIList(l179,QIList(l320,QIList(l109,l66,l5),QIList(l79,QIList(l6,QIList(l371,l5),QIList(l55,QIList(l30,QIList(l36,l371,l5),l5),QIList(l45,QIList(l40,l371,l5),QIList(l42,l371,l5),l5),l5),l5),l369,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l69,l213,QIList(l109,QIList(l6,QIList(l226,l353,l5),QIList(l267,QIList(QIList(l372,QIList(l177,l5,l5),l5),l5),QIList(l15,l4,QIList(l52,QIList(QIList(l13,l353,l5),QIList(l14,l5),l5),QIList(QIList(l13,QIList(l32,l353,l5),l5),QIList(l322,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l267,QIList(QIList(l110,QIList(l31,l353,l5),l5),QIList(l355,QIList(l34,l353,l5),l5),l5),QIList(l49,QIList(l178,QIList(QIList(l180,l110,l5),QIList(l180,QIList(l17,l5),l5),QIList(l180,l355,l5),l5),l5),l372,l5),QIList(l115,l353,QIList(l36,l353,l5),l5),l5),l5),l5),l5),QIList(l115,l372,QIList(l68,l372,l5),l5),QIList(l178,QIList(l267,QIList(l180,QIList(l79,QIList(l109,l32,l5),l372,l5),l5),QIList(l115,QIList(l179,QIList(l61,QIList(l109,l66,l5),QIList(l79,QIList(l109,l92,l5),l372,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l58,l213,QIList(l109,QIList(l6,QIList(l373,l361,l226,l346,l5),QIList(l178,QIList(l57,QIList(l118,QIList(l180,l373,l5),QIList(l180,l361,l5),l5),QIList(l179,l346,l5),l5),l5),l5),l5),l5,l5),QIList(l57,l213,QIList(l109,QIList(l6,QIList(l351,l226,l346,l5),QIList(l267,QIList(QIList(l355,QIList(l17,l5),l5),l5),QIList(l178,QIList(l267,QIList(QIList(QIList(l180,l355,l5),QIList(l180,l351,l5),l5),l5),QIList(l179,l346,l5),QIList(l180,l355,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l213,QIList(l109,QIList(l6,QIList(l226,l374,l5),QIList(l52,QIList(QIList(l13,l374,l5),l5,l5),QIList(QIList(l13,QIList(l32,l374,l5),l5),QIList(l31,l374,l5),l5),QIList(l4,QIList(l267,QIList(QIList(l375,QIList(l17,l5),l5),l5),QIList(l178,QIList(l267,QIList(QIList(QIList(l180,l375,l5),QIList(l180,QIList(l31,l374,l5),l5),l5),l5),QIList(l223,QIList(l180,l375,l5),QIList(l180,l375,l5),QIList(l56,QIList(l179,QIList(l32,l374,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l213,QIList(l109,QIList(l6,QIList(l226,l374,l5),QIList(l52,QIList(QIList(l13,l374,l5),l4,l5),QIList(QIList(l13,QIList(l32,l374,l5),l5),QIList(l31,l374,l5),l5),QIList(l4,QIList(l178,QIList(l223,QIList(l180,QIList(l31,l374,l5),l5),QIList(l55,QIList(l179,QIList(l32,l374,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l213,QIList(l109,QIList(l6,QIList(l351,l226,l376,l5),QIList(l178,QIList(l53,QIList(l180,l351,l5),QIList(l179,QIList(l66,l376,QIList(l178,QIList(QIList(l4,QIList(l322,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l213,QIList(l109,QIList(l6,QIList(l351,l226,l376,l5),QIList(l267,QIList(QIList(l377,QIList(l17,l5),l5),l5),QIList(l178,QIList(l267,QIList(QIList(QIList(l180,l377,l5),QIList(l180,l351,l5),l5),l5),QIList(l52,QIList(l179,QIList(l79,QIList(l6,QIList(l378,l5),QIList(l223,QIList(l311,QIList(l31,l378,l5),l4,l5),l378,QIList(l178,QIList(QIList(l27,QIList(l180,l377,l5),QIList(l177,QIList(l180,QIList(l31,l378,l5),l5),l5),l5),QIList(l179,QIList(l32,l378,l5),l5),l5),l5),l5),l5),l376,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l213,QIList(l109,QIList(l6,QIList(l226,l376,l5),QIList(l223,QIList(l13,l376,l5),l5,QIList(l223,QIList(l311,QIList(l33,l376,l5),l4,l5),QIList(l178,QIList(l118,QIList(l179,QIList(l35,l376,l5),l5),l5),l5),QIList(l178,QIList(l223,QIList(l180,QIList(l33,l376,l5),l5),QIList(l118,QIList(l179,QIList(l35,l376,l5),l5),l5),QIList(l52,QIList(l179,QIList(l32,l376,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l213,QIList(l109,QIList(l6,QIList(l379,l226,l346,l5),QIList(l267,QIList(QIList(l380,QIList(l17,l5),l5),QIList(l381,QIList(l40,l379,l5),l5),QIList(l382,QIList(l41,l379,l5),l5),QIList(l361,QIList(l42,l379,l5),l5),l5),QIList(l178,QIList(l199,l5,QIList(l267,QIList(QIList(QIList(l180,l381,l5),0,l5),QIList(QIList(l180,l380,l5),QIList(l180,l382,l5),l5),l5),QIList(l254,QIList(l299,QIList(l180,l381,l5),QIList(l180,l380,l5),l5),QIList(l281,QIList(l179,l346,l5),l5),QIList(l47,QIList(l180,l381,l5),l5),l5),QIList(l180,l361,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l213,QIList(l109,QIList(l6,QIList(l379,l226,l346,l5),QIList(l267,QIList(QIList(l381,QIList(l40,l379,l5),l5),QIList(l383,QIList(l17,l5),l5),l5),QIList(l178,QIList(l199,l5,QIList(l267,QIList(QIList(QIList(l180,l383,l5),QIList(l180,QIList(l41,l379,l5),l5),l5),QIList(QIList(l180,l381,l5),l5,l5),l5),QIList(l254,QIList(l180,l383,l5),QIList(l115,QIList(l180,l381,l5),QIList(l31,QIList(l180,l383,l5),l5),l5),QIList(l281,QIList(l179,l346,l5),l5),QIList(l115,QIList(l180,l383,l5),QIList(l32,QIList(l180,l383,l5),l5),l5),l5),QIList(l180,QIList(l42,l379,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l213,QIList(l109,QIList(l6,QIList(l344,l354,l5),QIList(l178,QIList(l115,QIList(l180,l354,l5),QIList(l29,QIList(l180,l344,l5),QIList(l180,l354,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l48,l213,QIList(l109,QIList(l6,QIList(l344,l225,QIList(l384,1,l5),l5),QIList(l178,QIList(l115,QIList(l180,l344,l5),QIList(l64,QIList(l180,l344,l5),QIList(l180,l384,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l47,l213,QIList(l109,QIList(l6,QIList(l344,l225,QIList(l384,1,l5),l5),QIList(l178,QIList(l115,QIList(l180,l344,l5),QIList(l63,QIList(l180,l344,l5),QIList(l180,l384,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l213,QIList(l109,QIList(l6,QIList(l385,l226,l346,l5),QIList(l178,QIList(l199,l5,QIList(l254,QIList(l180,l385,l5),QIList(l179,l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l14,l213,QIList(l109,QIList(l6,QIList(l225,l355,l5),QIList(l178,QIList(l274,l5,QIList(l180,l355,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l213,QIList(l109,QIList(l6,QIList(l349,l345,l226,l346,l5),QIList(l178,QIList(l118,QIList(l307,QIList(l177,QIList(l180,l349,l5),l5),QIList(l11,QIList(l180,QIList(l306,l349,l5),l5),QIList(l180,l345,l5),QIList(l179,QIList(l223,QIList(l55,QIList(l314,QIList(l31,l346,l5),l5),QIList(l28,QIList(l13,QIList(l32,l346,l5),l5),l5),l5),QIList(l178,QIList(QIList(l180,QIList(l31,l346,l5),l5),QIList(l199,QIList(l180,l349,l5),QIList(l179,QIList(l32,l346,l5),l5),l5),l5),l5),QIList(l178,QIList(QIList(l199,QIList(l180,l349,l5),QIList(l179,l346,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l213,QIList(l109,QIList(l6,QIList(l349,l345,l226,l346,l5),QIList(l267,QIList(QIList(l344,QIList(l17,"FN",l5),l5),l5),QIList(l178,QIList(l267,QIList(QIList(QIList(l180,l344,l5),QIList(l6,QIList(l180,l345,l5),QIList(l179,l346,l5),l5),l5),l5),QIList(l326,QIList(l180,l344,l5),"fname",QIList(l180,l349,l5),l5),QIList(l180,l344,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l213,QIList(l109,QIList(l6,QIList(l349,l355,l225,l386,l5),QIList(l178,QIList(l118,QIList(l115,QIList(l180,l349,l5),QIList(l180,l355,l5),l5),QIList(l179,QIList(l7,QIList(l314,l386,l5),QIList(l178,QIList(QIList(l326,QIList(l177,QIList(l180,l349,l5),l5),"vardoc",QIList(l180,l386,l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l213,QIList(l109,QIList(l6,QIList(l349,l355,l225,l386,l5),QIList(l178,QIList(l118,QIList(l2,QIList(l217,QIList(l180,l349,l5),l5),l5),QIList(l8,QIList(l19,QIList(l177,QIList(l180,l349,l5),l5),l5),QIList(l115,QIList(l180,l349,l5),QIList(l180,l355,l5),l5),l5),QIList(l179,QIList(l7,QIList(l314,l386,l5),QIList(l178,QIList(QIList(l326,QIList(l177,QIList(l180,l349,l5),l5),"vardoc",QIList(l180,l386,l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l213,QIList(l109,QIList(l6,QIList(l385,l226,l346,l5),QIList(l178,QIList(l223,QIList(l180,l385,l5),l5,QIList(l118,QIList(l179,l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l213,QIList(l109,QIList(l6,QIList(l385,l226,l346,l5),QIList(l178,QIList(l223,QIList(l180,l385,l5),QIList(l118,QIList(l179,l346,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l213,QIList(l109,QIList(l6,QIList(l345,l226,l346,l5),QIList(l178,QIList(l109,QIList(l6,QIList(l180,l345,l5),QIList(l179,l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l213,QIList(l109,QIList(l6,QIList(l349,l355,l225,l386,l5),QIList(l178,QIList(l118,QIList(l2,QIList(l217,QIList(l180,l349,l5),l5),l5),QIList(l2,QIList(l219,QIList(l180,l349,l5),l5),l5),QIList(l115,QIList(l180,l349,l5),QIList(l180,l355,l5),l5),QIList(l179,QIList(l7,QIList(l314,l386,l5),QIList(l178,QIList(QIList(l326,QIList(l177,QIList(l180,l349,l5),l5),"vardoc",QIList(l180,l386,l5),l5),l5),l5),l5),l5),QIList(l177,QIList(l180,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l213,QIList(l109,QIList(l6,QIList(l226,l347,l5),QIList(l178,QIList(l262,QIList(l179,QIList(l79,QIList(l6,QIList(l348,l5),QIList(l178,QIList(l216,QIList(l177,QIList(l180,l348,l5),l5),l5),l5),l5),l347,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l213,QIList(l109,QIList(l6,QIList(l349,l345,l226,l346,l5),QIList(l178,QIList(l262,QIList(l212,QIList(l177,QIList(l180,l349,l5),l5),QIList(l177,QIList(l109,QIList(l6,QIList(l180,QIList(l79,QIList(l109,QIList(l6,QIList(l344,l5),QIList(l223,QIList(l311,l344,QIList(l177,l340,l5),l5),QIList(l177,l226,l5),l344,l5),l5),l5),l345,l5),l5),QIList(l179,l346,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); +((l203).value = l387); +var l388 = QIList(QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QIList(l382,"l382"),QIList(l381,"l381"),QIList(l380,"l380"),QIList(l379,"l379"),QIList(l378,"l378"),QIList(l377,"l377"),QIList(l376,"l376"),QIList(l375,"l375"),QIList(l374,"l374"),QIList(l373,"l373"),QIList(l372,"l372"),QIList(l371,"l371"),QIList(l370,"l370"),QIList(l369,"l369"),QIList(l368,"l368"),QIList(l367,"l367"),QIList(l366,"l366"),QIList(l365,"l365"),QIList(l364,"l364"),QIList(l363,"l363"),QIList(l362,"l362"),QIList(l361,"l361"),QIList(l360,"l360"),QIList(l359,"l359"),QIList(l358,"l358"),QIList(l357,"l357"),QIList(l356,"l356"),QIList(l355,"l355"),QIList(l354,"l354"),QIList(l353,"l353"),QIList(l352,"l352"),QIList(l351,"l351"),QIList(l350,"l350"),QIList(l349,"l349"),QIList(l348,"l348"),QIList(l347,"l347"),QIList(l346,"l346"),QIList(l345,"l345"),QIList(l344,"l344"),QIList(l343,"l343"),QIList(l342,"l342"),QIList(l340,"l340"),QIList(l339,"l339"),QIList(l338,"l338"),QIList(l337,"l337"),QIList(l336,"l336"),QIList(l335,"l335"),QIList(l334,"l334"),QIList(l333,"l333"),QIList(l332,"l332"),QIList(l331,"l331"),QIList(l330,"l330"),QIList(l329,"l329"),QIList(l328,"l328"),QIList(l327,"l327"),QIList(l326,"l326"),QIList(l325,"l325"),QIList(l324,"l324"),QIList(l323,"l323"),QIList(l322,"l322"),QIList(l321,"l321"),QIList(l320,"l320"),QIList(l319,"l319"),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(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(l209,"l209"),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"),l5); +(function(){ + l139.fvalue(pv, l386); l139.fvalue(pv, l385); l139.fvalue(pv, l384); l139.fvalue(pv, l383); @@ -8797,7 +8858,7 @@ var l387 = QIList(QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QI l139.fvalue(pv, l344); l139.fvalue(pv, l343); l139.fvalue(pv, l342); - l139.fvalue(pv, l341); + l139.fvalue(pv, l340); l139.fvalue(pv, l339); l139.fvalue(pv, l338); l139.fvalue(pv, l337); @@ -9136,9 +9197,9 @@ var l387 = QIList(QIList(l385,"l385"),QIList(l384,"l384"),QIList(l383,"l383"),QI l139.fvalue(pv, l3); l139.fvalue(pv, l2); l139.fvalue(pv, l1); - ((l249).value = l387); - ((l204).value = 920); - ((l16).value = 234); - return ((l270).value = 303); + ((l250).value = l388); + ((l204).value = 921); + ((l16).value = 235); + return ((l271).value = 304); })(); -((l250).value = 387); +((l251).value = 388); diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 9ad5be6..9e17b2b 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -1296,51 +1296,53 @@ " : " (ls-compile false *multiple-value-p*) ")")) -(defvar *lambda-list-keywords* '(&optional &rest &key)) +(defvar *ll-keywords* '(&optional &rest &key)) (defun list-until-keyword (list) - (if (or (null list) (member (car list) *lambda-list-keywords*)) + (if (or (null list) (member (car list) *ll-keywords*)) nil (cons (car list) (list-until-keyword (cdr list))))) -(defun lambda-list-section (keyword lambda-list) - (list-until-keyword (cdr (member keyword lambda-list)))) +(defun ll-section (keyword ll) + (list-until-keyword (cdr (member keyword ll)))) -(defun lambda-list-required-arguments (lambda-list) - (list-until-keyword lambda-list)) +(defun ll-required-arguments (ll) + (list-until-keyword ll)) -(defun lambda-list-optional-arguments-with-default (lambda-list) - (mapcar #'ensure-list (lambda-list-section '&optional lambda-list))) +(defun ll-optional-arguments-canonical (ll) + (mapcar #'ensure-list (ll-section '&optional ll))) -(defun lambda-list-optional-arguments (lambda-list) - (mapcar #'car (lambda-list-optional-arguments-with-default lambda-list))) +(defun ll-optional-arguments (ll) + (mapcar #'car (ll-optional-arguments-canonical ll))) -(defun lambda-list-rest-argument (lambda-list) - (let ((rest (lambda-list-section '&rest lambda-list))) +(defun ll-rest-argument (ll) + (let ((rest (ll-section '&rest ll))) (when (cdr rest) (error "Bad lambda-list")) (car rest))) -(defun lambda-list-keyword-arguments-canonical (lambda-list) - (flet ((canonalize (keyarg) +(defun ll-keyword-arguments-canonical (ll) + (flet ((canonicalize (keyarg) ;; Build a canonical keyword argument descriptor, filling ;; the optional fields. The result is a list of the form ;; ((keyword-name var) init-form). - (let* ((arg (ensure-list keyarg)) - (init-form (cadr arg)) - var - keyword-name) - (if (listp (car arg)) - (setq var (cadr (car arg)) - keyword-name (car (car arg))) - (setq var (car arg) - keyword-name (intern (symbol-name (car arg)) "KEYWORD"))) - `((,keyword-name ,var) ,init-form)))) - (mapcar #'canonalize (lambda-list-section '&key lambda-list)))) - -(defun lambda-list-keyword-arguments (lambda-list) + (let ((arg (ensure-list keyarg))) + (cons (if (listp (car arg)) + (car arg) + (list (intern (symbol-name (car arg)) "KEYWORD") (car arg))) + (cdr arg))))) + (mapcar #'canonicalize (ll-section '&key ll)))) + +(defun ll-keyword-arguments (ll) (mapcar (lambda (keyarg) (second (first keyarg))) - (lambda-list-keyword-arguments-canonical lambda-list))) + (ll-keyword-arguments-canonical ll))) + +(defun ll-svars (lambda-list) + (let ((args + (append + (ll-keyword-arguments-canonical lambda-list) + (ll-optional-arguments-canonical lambda-list)))) + (remove nil (mapcar #'third args)))) (defun lambda-docstring-wrapper (docstring &rest strs) (if docstring @@ -1367,34 +1369,43 @@ (when (numberp max) (code "checkArgsAtMost(arguments, " max ");" *newline*)))))) -(defun compile-lambda-optional (lambda-list) - (let* ((optional-arguments (lambda-list-optional-arguments lambda-list)) - (n-required-arguments (length (lambda-list-required-arguments lambda-list))) +(defun compile-lambda-optional (ll) + (let* ((optional-arguments (ll-optional-arguments-canonical ll)) + (n-required-arguments (length (ll-required-arguments ll))) (n-optional-arguments (length optional-arguments))) (when optional-arguments - (code "switch(arguments.length-1){" *newline* - (let ((optional-and-defaults - (lambda-list-optional-arguments-with-default lambda-list)) - (cases nil) + (code (mapconcat (lambda (arg) + (code "var " (translate-variable (first arg)) "; " *newline* + (when (third arg) + (code "var " (translate-variable (third arg)) + " = " (ls-compile t) + "; " *newline*)))) + optional-arguments) + "switch(arguments.length-1){" *newline* + (let ((cases nil) (idx 0)) (progn (while (< idx n-optional-arguments) - (let ((arg (nth idx optional-and-defaults))) + (let ((arg (nth idx optional-arguments))) (push (code "case " (+ idx n-required-arguments) ":" *newline* - (translate-variable (car arg)) - "=" - (ls-compile (cadr arg)) - ";" *newline*) + (indent (translate-variable (car arg)) + "=" + (ls-compile (cadr arg)) ";" *newline*) + (when (third arg) + (indent (translate-variable (third arg)) + "=" + (ls-compile nil) + ";" *newline*))) cases) (incf idx))) (push (code "default: break;" *newline*) cases) (join (reverse cases)))) "}" *newline*)))) -(defun compile-lambda-rest (lambda-list) - (let ((n-required-arguments (length (lambda-list-required-arguments lambda-list))) - (n-optional-arguments (length (lambda-list-optional-arguments lambda-list))) - (rest-argument (lambda-list-rest-argument lambda-list))) +(defun compile-lambda-rest (ll) + (let ((n-required-arguments (length (ll-required-arguments ll))) + (n-optional-arguments (length (ll-optional-arguments ll))) + (rest-argument (ll-rest-argument ll))) (when rest-argument (let ((js!rest (translate-variable rest-argument))) (code "var " js!rest "= " (ls-compile nil) ";" *newline* @@ -1404,18 +1415,22 @@ (indent js!rest " = {car: arguments[i], cdr: ") js!rest "};" *newline*))))) -(defun compile-lambda-parse-keywords (lambda-list) +(defun compile-lambda-parse-keywords (ll) (let ((n-required-arguments - (length (lambda-list-required-arguments lambda-list))) + (length (ll-required-arguments ll))) (n-optional-arguments - (length (lambda-list-optional-arguments lambda-list))) + (length (ll-optional-arguments ll))) (keyword-arguments - (lambda-list-keyword-arguments-canonical lambda-list))) + (ll-keyword-arguments-canonical ll))) (code ;; Declare variables (mapconcat (lambda (arg) (let ((var (second (car arg)))) - (code "var " (translate-variable var) "; " *newline*))) + (code "var " (translate-variable var) "; " *newline* + (when (third arg) + (code "var " (translate-variable (third arg)) + " = " (ls-compile nil) + ";" *newline*))))) keyword-arguments) ;; Parse keywords (flet ((parse-keyword (keyarg) @@ -1427,16 +1442,15 @@ (indent (translate-variable (cadr (car keyarg))) " = arguments[i+1];" *newline* + (let ((svar (third keyarg))) + (when svar + (code (translate-variable svar) " = " (ls-compile t) ";" *newline*))) "break;" *newline*) "}" *newline*) "}" *newline* ;; Default value "if (i == arguments.length){" *newline* - (indent - (translate-variable (cadr (car keyarg))) - " = " - (ls-compile (cadr keyarg)) - ";" *newline*) + (indent (translate-variable (cadr (car keyarg))) " = " (ls-compile (cadr keyarg)) ";" *newline*) "}" *newline*))) (when keyword-arguments (code "var i;" *newline* @@ -1455,11 +1469,11 @@ "throw 'Unknown keyword argument ' + arguments[i].name;" *newline*)) "}" *newline*))))) -(defun compile-lambda (lambda-list body) - (let ((required-arguments (lambda-list-required-arguments lambda-list)) - (optional-arguments (lambda-list-optional-arguments lambda-list)) - (keyword-arguments (lambda-list-keyword-arguments lambda-list)) - (rest-argument (lambda-list-rest-argument lambda-list)) +(defun compile-lambda (ll body) + (let ((required-arguments (ll-required-arguments ll)) + (optional-arguments (ll-optional-arguments ll)) + (keyword-arguments (ll-keyword-arguments ll)) + (rest-argument (ll-rest-argument ll)) documentation) ;; Get the documentation string for the lambda function (when (and (stringp (car body)) @@ -1472,7 +1486,8 @@ (append (ensure-list rest-argument) required-arguments optional-arguments - keyword-arguments)))) + keyword-arguments + (ll-svars ll))))) (lambda-docstring-wrapper documentation "(function (" @@ -1486,9 +1501,9 @@ (lambda-check-argument-count n-required-arguments n-optional-arguments (or rest-argument keyword-arguments)) - (compile-lambda-optional lambda-list) - (compile-lambda-rest lambda-list) - (compile-lambda-parse-keywords lambda-list) + (compile-lambda-optional ll) + (compile-lambda-rest ll) + (compile-lambda-parse-keywords ll) (let ((*multiple-value-p* t)) (ls-compile-block body t))) "})")))) -- 1.7.10.4