From 7f6df144267a2bfded54cc9bd55f4700181730f4 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 17 Feb 2013 19:35:12 +0000 Subject: [PATCH] Extended PUSH --- ecmalisp.js | 8330 ++++++++++++++++++++++++++++++--------------------------- ecmalisp.lisp | 36 +- 2 files changed, 4371 insertions(+), 3995 deletions(-) diff --git a/ecmalisp.js b/ecmalisp.js index f3e31ab..74beca4 100644 --- a/ecmalisp.js +++ b/ecmalisp.js @@ -1951,7 +1951,7 @@ var l116 = {name: "LS-MACROEXPAND-1"}; var tmp = v205; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value) !== l5.value ? (function(v206){ - return values(l5.value, l5.value, l66.fvalue(pv, l45.fvalue(pv, v206)), l66.fvalue(pv, l45.fvalue(pv, l115), l45.fvalue(pv, v205), l45.fvalue(pv, v206)), v205); + return values(l5.value, l5.value, l45.fvalue(pv, v206), l45.fvalue(pv, l115, v205, v206), v205); })(l17.fvalue(pv)) : (function(v207){ return (function(){ var v208 = (function(){ @@ -1999,7 +1999,7 @@ var l120 = {name: "RPLACA"}; ((l113).value = ({car: ({car: l31, cdr: (function (values,v211){ checkArgs(arguments, 2); return (function(v212,v213){ - return values(l45.fvalue(pv, v212), l45.fvalue(pv, v211), l45.fvalue(pv, v213), l66.fvalue(pv, l45.fvalue(pv, l119), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l120), l45.fvalue(pv, v212), l45.fvalue(pv, v213))), l45.fvalue(pv, v213)), l66.fvalue(pv, l45.fvalue(pv, l31), l45.fvalue(pv, v212))); + return values(l45.fvalue(pv, v212), l45.fvalue(pv, v211), l45.fvalue(pv, v213), l45.fvalue(pv, l119, l45.fvalue(pv, l120, v212, v213), v213), l45.fvalue(pv, l31, v212)); })(l17.fvalue(pv),l17.fvalue(pv)); })}), cdr: (function(){ var symbol = l113; @@ -2014,7 +2014,7 @@ var l121 = {name: "RPLACD"}; ((l113).value = ({car: ({car: l32, cdr: (function (values,v214){ checkArgs(arguments, 2); return (function(v215,v216){ - return values(l45.fvalue(pv, v215), l45.fvalue(pv, v214), l45.fvalue(pv, v216), l66.fvalue(pv, l45.fvalue(pv, l119), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l121), l45.fvalue(pv, v215), l45.fvalue(pv, v216))), l45.fvalue(pv, v216)), l66.fvalue(pv, l45.fvalue(pv, l31), l45.fvalue(pv, v215))); + return values(l45.fvalue(pv, v215), l45.fvalue(pv, v214), l45.fvalue(pv, v216), l45.fvalue(pv, l119, l45.fvalue(pv, l121, v215, v216), v216), l45.fvalue(pv, l31, v215)); })(l17.fvalue(pv),l17.fvalue(pv)); })}), cdr: (function(){ var symbol = l113; @@ -2024,6 +2024,7 @@ var l121 = {name: "RPLACD"}; })()})); return l32; })(); +l49; var l122 = {name: "*PACKAGE-LIST*"}; (function(){ (((l122.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l122).value = l5.value)); @@ -2051,9 +2052,9 @@ var l124 = {name: "MAKE-PACKAGE"}; var l125 = {name: "USE", 'package': 'KEYWORD'}; var l126 = {name: "FIND-PACKAGE-OR-FAIL"}; (function(){ - (l124).fvalue = (function(v222){ - ((v222)["fname"] = "MAKE-PACKAGE"); - return v222; + (l124).fvalue = (function(v224){ + ((v224)["fname"] = "MAKE-PACKAGE"); + return v224; })((function (values,v218){ checkArgsAtLeast(arguments, 2); var v219; @@ -2077,12 +2078,16 @@ var l126 = {name: "FIND-PACKAGE-OR-FAIL"}; ((v220)["symbols"] = {}); ((v220)["exports"] = {}); ((v220)["use"] = v221); - ((l122).value = ({car: v220, cdr: (function(){ - var symbol = l122; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()})); + (function(){ + var v222 = v220; + var v223 = ({car: v222, cdr: (function(){ + var symbol = l122; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l122).value = v223); + })(); return v220; })({},l79.fvalue(pv, (function(){ var symbol = l126; @@ -2096,13 +2101,13 @@ var l126 = {name: "FIND-PACKAGE-OR-FAIL"}; })(); var l127 = {name: "PACKAGEP"}; (function(){ - (l127).fvalue = (function(v224){ - ((v224)["fname"] = "PACKAGEP"); - return v224; - })((function (values,v223){ + (l127).fvalue = (function(v226){ + ((v226)["fname"] = "PACKAGEP"); + return v226; + })((function (values,v225){ checkArgs(arguments, 2); return (function(){ - return (((typeof (v223) === 'object')?l4.value: l5.value) !== l5.value ? ((("symbols") in (v223))?l4.value: l5.value) : l5.value); + return (((typeof (v225) === 'object')?l4.value: l5.value) !== l5.value ? ((("symbols") in (v225))?l4.value: l5.value) : l5.value); })(); })); return l127; @@ -2110,36 +2115,36 @@ var l127 = {name: "PACKAGEP"}; var l128 = {name: "FIND-PACKAGE"}; var l129 = {name: "PACKAGE-NAME"}; (function(){ - (l128).fvalue = (function(v229){ - ((v229)["fname"] = "FIND-PACKAGE"); - return v229; - })((function (values,v225){ + (l128).fvalue = (function(v231){ + ((v231)["fname"] = "FIND-PACKAGE"); + return v231; + })((function (values,v227){ checkArgs(arguments, 2); return (function(){ try { - (l127.fvalue(pv, v225) !== l5.value ? (function(){ + (l127.fvalue(pv, v227) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 94, values: v225, message: 'Return from unknown block FIND-PACKAGE.'}) + throw ({type: 'block', id: 94, values: v227, message: 'Return from unknown block FIND-PACKAGE.'}) })() : l5.value); - return (function(v226){ + return (function(v228){ return (function(){ try { - return (function(v227,v228){ + return (function(v229,v230){ (function(){ - while(v227 !== l5.value){ - (v228 = (function(){ - var tmp = v227; + while(v229 !== l5.value){ + (v230 = (function(){ + var tmp = v229; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - (l104.fvalue(pv, l129.fvalue(pv, v228), v226) !== l5.value ? (function(){ + (l104.fvalue(pv, l129.fvalue(pv, v230), v228) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 95, values: v228, message: 'Return from unknown block NIL.'}) + throw ({type: 'block', id: 95, values: v230, message: 'Return from unknown block NIL.'}) })() : l5.value); return l5.value; })(); - (v227 = (function(){ - var tmp = v227; + (v229 = (function(){ + var tmp = v229; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; @@ -2159,7 +2164,7 @@ var l129 = {name: "PACKAGE-NAME"}; throw cf; } })(); - })(l103.fvalue(pv, v225)); + })(l103.fvalue(pv, v227)); } catch (cf){ if (cf.type == 'block' && cf.id == 94) @@ -2172,88 +2177,88 @@ var l129 = {name: "PACKAGE-NAME"}; return l128; })(); (function(){ - (l126).fvalue = (function(v232){ - ((v232)["fname"] = "FIND-PACKAGE-OR-FAIL"); - return v232; - })((function (values,v230){ + (l126).fvalue = (function(v234){ + ((v234)["fname"] = "FIND-PACKAGE-OR-FAIL"); + return v234; + })((function (values,v232){ checkArgs(arguments, 2); return (function(){ - return (function(v231){ - return (v231 !== l5.value ? v231 : (function(){ + return (function(v233){ + return (v233 !== l5.value ? v233 : (function(){ throw "Package unknown."; })()); - })(l128.fvalue(pv, v230)); + })(l128.fvalue(pv, v232)); })(); })); return l126; })(); (function(){ - (l129).fvalue = (function(v235){ - ((v235)["fname"] = "PACKAGE-NAME"); - return v235; - })((function (values,v233){ + (l129).fvalue = (function(v237){ + ((v237)["fname"] = "PACKAGE-NAME"); + return v237; + })((function (values,v235){ checkArgs(arguments, 2); return (function(){ - return (function(v234){ + return (function(v236){ return (function(){ - var tmp = (v234)["packageName"]; + var tmp = (v236)["packageName"]; return tmp == undefined? l5.value: tmp ; })(); - })(l126.fvalue(pv, v233)); + })(l126.fvalue(pv, v235)); })(); })); return l129; })(); var l130 = {name: "%PACKAGE-SYMBOLS"}; (function(){ - (l130).fvalue = (function(v238){ - ((v238)["fname"] = "%PACKAGE-SYMBOLS"); - return v238; - })((function (values,v236){ + (l130).fvalue = (function(v240){ + ((v240)["fname"] = "%PACKAGE-SYMBOLS"); + return v240; + })((function (values,v238){ checkArgs(arguments, 2); return (function(){ - return (function(v237){ + return (function(v239){ return (function(){ - var tmp = (v237)["symbols"]; + var tmp = (v239)["symbols"]; return tmp == undefined? l5.value: tmp ; })(); - })(l126.fvalue(pv, v236)); + })(l126.fvalue(pv, v238)); })(); })); return l130; })(); var l131 = {name: "PACKAGE-USE-LIST"}; (function(){ - (l131).fvalue = (function(v241){ - ((v241)["fname"] = "PACKAGE-USE-LIST"); - return v241; - })((function (values,v239){ + (l131).fvalue = (function(v243){ + ((v243)["fname"] = "PACKAGE-USE-LIST"); + return v243; + })((function (values,v241){ checkArgs(arguments, 2); return (function(){ - return (function(v240){ + return (function(v242){ return (function(){ - var tmp = (v240)["use"]; + var tmp = (v242)["use"]; return tmp == undefined? l5.value: tmp ; })(); - })(l126.fvalue(pv, v239)); + })(l126.fvalue(pv, v241)); })(); })); return l131; })(); var l132 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"}; (function(){ - (l132).fvalue = (function(v244){ - ((v244)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS"); - return v244; - })((function (values,v242){ + (l132).fvalue = (function(v246){ + ((v246)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS"); + return v246; + })((function (values,v244){ checkArgs(arguments, 2); return (function(){ - return (function(v243){ + return (function(v245){ return (function(){ - var tmp = (v243)["exports"]; + var tmp = (v245)["exports"]; return tmp == undefined? l5.value: tmp ; })(); - })(l126.fvalue(pv, v242)); + })(l126.fvalue(pv, v244)); })(); })); return l132; @@ -2281,16 +2286,16 @@ var l135 = {name: "*KEYWORD-PACKAGE*"}; var l136 = {name: "KEYWORDP"}; var l137 = {name: "SYMBOL-PACKAGE"}; (function(){ - (l136).fvalue = (function(v246){ - ((v246)["fname"] = "KEYWORDP"); - return v246; - })((function (values,v245){ + (l136).fvalue = (function(v248){ + ((v248)["fname"] = "KEYWORDP"); + return v248; + })((function (values,v247){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v245; + var tmp = v247; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? ((l137.fvalue(pv, v245) === (function(){ + })()?l4.value: l5.value) !== l5.value ? ((l137.fvalue(pv, v247) === (function(){ var symbol = l135; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -2314,15 +2319,15 @@ var l139 = {name: "IN-PACKAGE"}; l139; var l140 = {name: "%INTERN-SYMBOL"}; (function(){ - (l140).fvalue = (function(v250){ - ((v250)["fname"] = "%INTERN-SYMBOL"); - return v250; - })((function (values,v247){ + (l140).fvalue = (function(v252){ + ((v252)["fname"] = "%INTERN-SYMBOL"); + return v252; + })((function (values,v249){ checkArgs(arguments, 2); return (function(){ return (function(){ - var v248 = (((("package") in (v247))?l4.value: l5.value) !== l5.value ? l126.fvalue(pv, (function(){ - var tmp = (v247)["package"]; + var v250 = (((("package") in (v249))?l4.value: l5.value) !== l5.value ? l126.fvalue(pv, (function(){ + var tmp = (v249)["package"]; return tmp == undefined? l5.value: tmp ; })()) : (function(){ var symbol = l133; @@ -2330,15 +2335,15 @@ var l140 = {name: "%INTERN-SYMBOL"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - var v249 = l130.fvalue(pv, v248); - ((v247)["package"] = v248); - (((v248 === (function(){ + var v251 = l130.fvalue(pv, v250); + ((v249)["package"] = v250); + (((v250 === (function(){ var symbol = l135; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())?l4.value: l5.value) !== l5.value ? ((v247)["value"] = v247) : l5.value); - return ((v249)[(v247).name] = v247); + })())?l4.value: l5.value) !== l5.value ? ((v249)["value"] = v249) : l5.value); + return ((v251)[(v249).name] = v249); })(); })(); })); @@ -2349,16 +2354,16 @@ var l142 = {name: "EXTERNAL", 'package': 'KEYWORD'}; var l143 = {name: "INTERNAL", 'package': 'KEYWORD'}; var l144 = {name: "INHERIT", 'package': 'KEYWORD'}; (function(){ - (l141).fvalue = (function(v259){ - ((v259)["fname"] = "FIND-SYMBOL"); - return v259; - })((function (values,v251,v252){ + (l141).fvalue = (function(v261){ + ((v261)["fname"] = "FIND-SYMBOL"); + return v261; + })((function (values,v253,v254){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v252; + var v254; switch(arguments.length-1){ case 1: - v252=(function(){ + v254=(function(){ var symbol = l138; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -2368,44 +2373,44 @@ var l144 = {name: "INHERIT", 'package': 'KEYWORD'}; } return (function(){ return (function(){ - var v253 = l126.fvalue(pv, v252); - var v254 = l132.fvalue(pv, v253); - var v255 = l130.fvalue(pv, v253); - return ((((v251) in (v254))?l4.value: l5.value) !== l5.value ? values((function(){ - var tmp = (v254)[v251]; + var v255 = l126.fvalue(pv, v254); + var v256 = l132.fvalue(pv, v255); + var v257 = l130.fvalue(pv, v255); + return ((((v253) in (v256))?l4.value: l5.value) !== l5.value ? values((function(){ + var tmp = (v256)[v253]; return tmp == undefined? l5.value: tmp ; - })(), l142.value) : ((((v251) in (v255))?l4.value: l5.value) !== l5.value ? values((function(){ - var tmp = (v255)[v251]; + })(), l142.value) : ((((v253) in (v257))?l4.value: l5.value) !== l5.value ? values((function(){ + var tmp = (v257)[v253]; return tmp == undefined? l5.value: tmp ; })(), l143.value) : (function(){ try { - return (function(v256,v257){ + return (function(v258,v259){ (function(){ - while(v256 !== l5.value){ - (v257 = (function(){ - var tmp = v256; + while(v258 !== l5.value){ + (v259 = (function(){ + var tmp = v258; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - (function(v258){ - return ((((v251) in (v258))?l4.value: l5.value) !== l5.value ? (function(){ + (function(v260){ + return ((((v253) in (v260))?l4.value: l5.value) !== l5.value ? (function(){ var values = mv; throw ({type: 'block', id: 104, values: values((function(){ - var tmp = (v258)[v251]; + var tmp = (v260)[v253]; return tmp == undefined? l5.value: tmp ; })(), l144.value), message: 'Return from unknown block NIL.'}) })() : l5.value); - })(l132.fvalue(pv, v257)); + })(l132.fvalue(pv, v259)); return l5.value; })(); - (v256 = (function(){ - var tmp = v256; + (v258 = (function(){ + var tmp = v258; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); return values(l5.value, l5.value); - })(l131.fvalue(pv, v253),l5.value); + })(l131.fvalue(pv, v255),l5.value); } catch (cf){ if (cf.type == 'block' && cf.id == 104) @@ -2422,16 +2427,16 @@ var l144 = {name: "INHERIT", 'package': 'KEYWORD'}; var l145 = {name: "INTERN"}; var l146 = {name: "EXPORT"}; (function(){ - (l145).fvalue = (function(v268){ - ((v268)["fname"] = "INTERN"); - return v268; - })((function (values,v260,v261){ + (l145).fvalue = (function(v270){ + ((v270)["fname"] = "INTERN"); + return v270; + })((function (values,v262,v263){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v261; + var v263; switch(arguments.length-1){ case 1: - v261=(function(){ + v263=(function(){ var symbol = l138; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -2440,53 +2445,53 @@ var l146 = {name: "EXPORT"}; default: break; } return (function(){ - return (function(v262){ + return (function(v264){ return (function(){ - var func = (function (values,v264,v265){ - var v264; - var v265; + var func = (function (values,v266,v267){ + var v266; + var v267; switch(arguments.length-1){ case 0: - v264=l5.value; + v266=l5.value; case 1: - v265=l5.value; + v267=l5.value; default: break; } - var v263= l5.value; + var v265= l5.value; for (var i = arguments.length-1; i>=3; i--) - v263 = {car: arguments[i], cdr: - v263}; - return (v265 !== l5.value ? values(v264, v265) : (function(v266){ + v265 = {car: arguments[i], cdr: + v265}; + return (v267 !== l5.value ? values(v266, v267) : (function(v268){ (function(){ - var tmp = (v266)[v260]; + var tmp = (v268)[v262]; return tmp == undefined? l5.value: tmp ; })(); - return (function(v267){ - ((v267)["package"] = v262); - (((v262 === (function(){ + return (function(v269){ + ((v269)["package"] = v264); + (((v264 === (function(){ var symbol = l135; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())?l4.value: l5.value) !== l5.value ? (function(){ - ((v267)["value"] = v267); - return l146.fvalue(pv, l45.fvalue(pv, v267), v262); + ((v269)["value"] = v269); + return l146.fvalue(pv, l45.fvalue(pv, v269), v264); })() : l5.value); - ((v266)[v260] = v267); - return values(v267, l5.value); + ((v268)[v262] = v269); + return values(v269, l5.value); })((function(){ - var name = v260; + var name = v262; if (typeof name != 'string') throw 'The value ' + name + ' is not a type string.'; return ({name: name}); })()); - })(l130.fvalue(pv, v262))); + })(l130.fvalue(pv, v264))); }); var args = [values]; return (function(){ var values = mv; var vs; - vs = l141.fvalue(values, v260, v262); + vs = l141.fvalue(values, v262, v264); if (typeof vs === 'object' && 'multiple-value' in vs) args = args.concat(vs); else @@ -2494,26 +2499,26 @@ var l146 = {name: "EXPORT"}; return func.apply(window, args); })(); })(); - })(l126.fvalue(pv, v261)); + })(l126.fvalue(pv, v263)); })(); })); return l145; })(); (function(){ - (l137).fvalue = (function(v270){ - ((v270)["fname"] = "SYMBOL-PACKAGE"); - return v270; - })((function (values,v269){ + (l137).fvalue = (function(v272){ + ((v272)["fname"] = "SYMBOL-PACKAGE"); + return v272; + })((function (values,v271){ checkArgs(arguments, 2); return (function(){ (((function(){ - var tmp = v269; + var tmp = v271; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value) !== l5.value ? l5.value : (function(){ throw "it is not a symbol"; })()); return (function(){ - var tmp = (v269)["package"]; + var tmp = (v271)["package"]; return tmp == undefined? l5.value: tmp ; })(); })(); @@ -2521,16 +2526,16 @@ var l146 = {name: "EXPORT"}; return l137; })(); (function(){ - (l146).fvalue = (function(v276){ - ((v276)["fname"] = "EXPORT"); - return v276; - })((function (values,v271,v272){ + (l146).fvalue = (function(v278){ + ((v278)["fname"] = "EXPORT"); + return v278; + })((function (values,v273,v274){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v272; + var v274; switch(arguments.length-1){ case 1: - v272=(function(){ + v274=(function(){ var symbol = l138; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -2539,38 +2544,38 @@ var l146 = {name: "EXPORT"}; default: break; } return (function(){ - return (function(v273){ + return (function(v275){ return (function(){ - return (function(v274,v275){ + return (function(v276,v277){ (function(){ - while(v274 !== l5.value){ - (v275 = (function(){ - var tmp = v274; + while(v276 !== l5.value){ + (v277 = (function(){ + var tmp = v276; return tmp === l5.value? l5.value: tmp.car; })()); (function(){ - ((v273)[(v275).name] = v275); + ((v275)[(v277).name] = v277); return l5.value; })(); - (v274 = (function(){ - var tmp = v274; + (v276 = (function(){ + var tmp = v276; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); return l4.value; - })(v271,l5.value); + })(v273,l5.value); })(); - })(l132.fvalue(pv, v272)); + })(l132.fvalue(pv, v274)); })(); })); return l146; })(); var l147 = {name: "GET-UNIVERSAL-TIME"}; (function(){ - (l147).fvalue = (function(v277){ - ((v277)["fname"] = "GET-UNIVERSAL-TIME"); - return v277; + (l147).fvalue = (function(v279){ + ((v279)["fname"] = "GET-UNIVERSAL-TIME"); + return v279; })((function (values){ checkArgsAtMost(arguments, 1); return (function(){ @@ -2590,21 +2595,21 @@ var l148 = {name: "*NEWLINE*"}; })(); var l149 = {name: "CONCAT"}; (function(){ - (l149).fvalue = (function(v279){ - ((v279)["fname"] = "CONCAT"); - return v279; + (l149).fvalue = (function(v281){ + ((v281)["fname"] = "CONCAT"); + return v281; })((function (values){ - var v278= l5.value; + var v280= l5.value; for (var i = arguments.length-1; i>=1; i--) - v278 = {car: arguments[i], cdr: - v278}; + v280 = {car: arguments[i], cdr: + v280}; return (function(){ return l61.fvalue(values, (function(){ var symbol = l74; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v278, l62.value, ""); + })(), v280, l62.value, ""); })(); })); return l149; @@ -2613,160 +2618,164 @@ var l150 = {name: "CONCATF"}; l150; var l151 = {name: "JOIN"}; (function(){ - (l151).fvalue = (function(v282){ - ((v282)["fname"] = "JOIN"); - return v282; - })((function (values,v280,v281){ + (l151).fvalue = (function(v284){ + ((v284)["fname"] = "JOIN"); + return v284; + })((function (values,v282,v283){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v281; + var v283; switch(arguments.length-1){ case 1: - v281=""; + v283=""; default: break; } return (function(){ - return (l13.fvalue(pv, v280) !== l5.value ? "" : (l13.fvalue(pv, (function(){ - var tmp = v280; + return (l13.fvalue(pv, v282) !== l5.value ? "" : (l13.fvalue(pv, (function(){ + var tmp = v282; return tmp === l5.value? l5.value: tmp.cdr; })()) !== l5.value ? (function(){ - var tmp = v280; + var tmp = v282; return tmp === l5.value? l5.value: tmp.car; })() : l149.fvalue(values, (function(){ - var tmp = v280; + var tmp = v282; return tmp === l5.value? l5.value: tmp.car; - })(), v281, l151.fvalue(pv, (function(){ - var tmp = v280; + })(), v283, l151.fvalue(pv, (function(){ + var tmp = v282; return tmp === l5.value? l5.value: tmp.cdr; - })(), v281)))); + })(), v283)))); })(); })); return l151; })(); var l152 = {name: "JOIN-TRAILING"}; (function(){ - (l152).fvalue = (function(v285){ - ((v285)["fname"] = "JOIN-TRAILING"); - return v285; - })((function (values,v283,v284){ + (l152).fvalue = (function(v287){ + ((v287)["fname"] = "JOIN-TRAILING"); + return v287; + })((function (values,v285,v286){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v284; + var v286; switch(arguments.length-1){ case 1: - v284=""; + v286=""; default: break; } return (function(){ - return (l13.fvalue(pv, v283) !== l5.value ? "" : l149.fvalue(values, (function(){ - var tmp = v283; + return (l13.fvalue(pv, v285) !== l5.value ? "" : l149.fvalue(values, (function(){ + var tmp = v285; return tmp === l5.value? l5.value: tmp.car; - })(), v284, l152.fvalue(pv, (function(){ - var tmp = v283; + })(), v286, l152.fvalue(pv, (function(){ + var tmp = v285; return tmp === l5.value? l5.value: tmp.cdr; - })(), v284))); + })(), v286))); })(); })); return l152; })(); var l153 = {name: "MAPCONCAT"}; (function(){ - (l153).fvalue = (function(v288){ - ((v288)["fname"] = "MAPCONCAT"); - return v288; - })((function (values,v286,v287){ + (l153).fvalue = (function(v290){ + ((v290)["fname"] = "MAPCONCAT"); + return v290; + })((function (values,v288,v289){ checkArgs(arguments, 3); return (function(){ - return l151.fvalue(values, l79.fvalue(pv, v286, v287)); + return l151.fvalue(values, l79.fvalue(pv, v288, v289)); })(); })); return l153; })(); var l154 = {name: "VECTOR-TO-LIST"}; (function(){ - (l154).fvalue = (function(v294){ - ((v294)["fname"] = "VECTOR-TO-LIST"); - return v294; - })((function (values,v289){ + (l154).fvalue = (function(v298){ + ((v298)["fname"] = "VECTOR-TO-LIST"); + return v298; + })((function (values,v291){ checkArgs(arguments, 2); return (function(){ - return (function(v290,v291){ + return (function(v292,v293){ return (function(){ - return (function(v292,v293){ + return (function(v294,v295){ (function(){ while((function(){ - var x1 = v292; + var x1 = v294; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v293; + var x2 = v295; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1= x.length) throw 'Out of range'; - return x[i] = v299; + return x[i] = v303; })(); - (v297 = (function(){ - var x1 = v297; + (v301 = (function(){ + var x1 = v301; if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; })()); return l5.value; })(); - (v298 = (function(){ - var tmp = v298; + (v302 = (function(){ + var tmp = v302; return tmp === l5.value? l5.value: tmp.cdr; })()); }return l5.value; })(); - return v296; - })(v295,l5.value); + return v300; + })(v299,l5.value); })(); })((function(){ var r = []; - for (var i = 0; i < l73.fvalue(pv, v295); i++) + for (var i = 0; i < l73.fvalue(pv, v299); i++) r.push(l5.value); return r; })(),0); @@ -2776,65 +2785,69 @@ var l155 = {name: "LIST-TO-VECTOR"}; })(); var l156 = {name: "VALUES-LIST"}; (function(){ - (l156).fvalue = (function(v302){ - ((v302)["fname"] = "VALUES-LIST"); - return v302; - })((function (values,v301){ + (l156).fvalue = (function(v306){ + ((v306)["fname"] = "VALUES-LIST"); + return v306; + })((function (values,v305){ checkArgs(arguments, 2); return (function(){ - return values.apply(this, l155.fvalue(pv, v301)); + return values.apply(this, l155.fvalue(pv, v305)); })(); })); return l156; })(); var l157 = {name: "VALUES"}; (function(){ - (l157).fvalue = (function(v304){ - ((v304)["fname"] = "VALUES"); - return v304; + (l157).fvalue = (function(v308){ + ((v308)["fname"] = "VALUES"); + return v308; })((function (values){ - var v303= l5.value; + var v307= l5.value; for (var i = arguments.length-1; i>=1; i--) - v303 = {car: arguments[i], cdr: - v303}; + v307 = {car: arguments[i], cdr: + v307}; return (function(){ - return l156.fvalue(values, v303); + return l156.fvalue(values, v307); })(); })); return l157; })(); (function(){ - (l18).fvalue = (function(v308){ - ((v308)["fname"] = "INTEGER-TO-STRING"); - return v308; - })((function (values,v305){ + (l18).fvalue = (function(v314){ + ((v314)["fname"] = "INTEGER-TO-STRING"); + return v314; + })((function (values,v309){ checkArgs(arguments, 2); return (function(){ - return (l25.fvalue(pv, v305) !== l5.value ? "0" : (l88.fvalue(pv, v305) !== l5.value ? l149.fvalue(values, "-", l18.fvalue(pv, (function(){ - var x1 = v305; + return (l25.fvalue(pv, v309) !== l5.value ? "0" : (l88.fvalue(pv, v309) !== l5.value ? l149.fvalue(values, "-", l18.fvalue(pv, (function(){ + var x1 = v309; if (typeof x1 !== 'number') throw 'Not a number!'; return 0-x1; - })())) : (function(v306){ + })())) : (function(v310){ (function(){ return (function(){ - while(l28.fvalue(pv, l25.fvalue(pv, v305)) !== l5.value){ - (v306 = ({car: (function(){ - var x = v305; - var y = 10; - if (typeof x != 'number') - throw 'The value ' + x + ' is not a type number.'; - if (typeof y != 'number') - throw 'The value ' + y + ' is not a type number.'; - return x%y; - })(), cdr: v306})); - (v305 = l26.fvalue(pv, v305, 10)); + while(l28.fvalue(pv, l25.fvalue(pv, v309)) !== l5.value){ + (function(){ + var v311 = (function(){ + var x = v309; + var y = 10; + if (typeof x != 'number') + throw 'The value ' + x + ' is not a type number.'; + if (typeof y != 'number') + throw 'The value ' + y + ' is not a type number.'; + return x%y; + })(); + var v312 = ({car: v311, cdr: v310}); + return (v310 = v312); + })(); + (v309 = l26.fvalue(pv, v309, 10)); }return l5.value; })(); })(); - return l153.fvalue(values, (function (values,v307){ + return l153.fvalue(values, (function (values,v313){ checkArgs(arguments, 2); - return l103.fvalue(values, l98.fvalue(pv, v307)); - }), v306); + return l103.fvalue(values, l98.fvalue(pv, v313)); + }), v310); })(l5.value))); })(); })); @@ -2843,39 +2856,39 @@ var l157 = {name: "VALUES"}; var l158 = {name: "PRIN1-TO-STRING"}; var l159 = {name: "ESCAPE-STRING"}; (function(){ - (l158).fvalue = (function(v317){ - ((v317)["fname"] = "PRIN1-TO-STRING"); - return v317; - })((function (values,v309){ + (l158).fvalue = (function(v323){ + ((v323)["fname"] = "PRIN1-TO-STRING"); + return v323; + })((function (values,v315){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v309; + var tmp = v315; return (typeof tmp == 'object' && 'name' in tmp); })()?l4.value: l5.value) !== l5.value ? (function(){ - var func = (function (values,v311,v312){ - var v311; - var v312; + var func = (function (values,v317,v318){ + var v317; + var v318; switch(arguments.length-1){ case 0: - v311=l5.value; + v317=l5.value; case 1: - v312=l5.value; + v318=l5.value; default: break; } - var v310= l5.value; + var v316= l5.value; for (var i = arguments.length-1; i>=3; i--) - v310 = {car: arguments[i], cdr: - v310}; - return ((v312 !== l5.value ? ((v311 === v309)?l4.value: l5.value) : l5.value) !== l5.value ? (v309).name : (function(v313,v314){ - return l149.fvalue(values, (l13.fvalue(pv, v313) !== l5.value ? "#" : (((v313 === l128.fvalue(pv, "KEYWORD"))?l4.value: l5.value) !== l5.value ? "" : l129.fvalue(pv, v313))), ":", v314); - })(l137.fvalue(pv, v309),(v309).name)); + v316 = {car: arguments[i], cdr: + v316}; + return ((v318 !== l5.value ? ((v317 === v315)?l4.value: l5.value) : l5.value) !== l5.value ? (v315).name : (function(v319,v320){ + return l149.fvalue(values, (l13.fvalue(pv, v319) !== l5.value ? "#" : (((v319 === l128.fvalue(pv, "KEYWORD"))?l4.value: l5.value) !== l5.value ? "" : l129.fvalue(pv, v319))), ":", v320); + })(l137.fvalue(pv, v315),(v315).name)); }); var args = [values]; return (function(){ var values = mv; var vs; - vs = l141.fvalue(values, (v309).name, (function(){ + vs = l141.fvalue(values, (v315).name, (function(){ var symbol = l138; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -2887,47 +2900,47 @@ var l159 = {name: "ESCAPE-STRING"}; args.push(vs); return func.apply(window, args); })(); - })() : (l86.fvalue(pv, v309) !== l5.value ? l18.fvalue(values, v309) : (((typeof(v309) == "string")?l4.value: l5.value) !== l5.value ? l149.fvalue(values, "\"", l159.fvalue(pv, v309), "\"") : (((typeof v309 == 'function')?l4.value: l5.value) !== l5.value ? (function(v315){ - return (v315 !== l5.value ? l149.fvalue(values, "#") : l149.fvalue(values, "#")); + })() : (l86.fvalue(pv, v315) !== l5.value ? l18.fvalue(values, v315) : (((typeof(v315) == "string")?l4.value: l5.value) !== l5.value ? l149.fvalue(values, "\"", l159.fvalue(pv, v315), "\"") : (((typeof v315 == 'function')?l4.value: l5.value) !== l5.value ? (function(v321){ + return (v321 !== l5.value ? l149.fvalue(values, "#") : l149.fvalue(values, "#")); })((function(){ - var tmp = (v309)["fname"]; + var tmp = (v315)["fname"]; return tmp == undefined? l5.value: tmp ; - })()) : (l60.fvalue(pv, v309) !== l5.value ? l149.fvalue(values, "(", l152.fvalue(pv, l79.fvalue(pv, (function(){ + })()) : (l60.fvalue(pv, v315) !== l5.value ? l149.fvalue(values, "(", l152.fvalue(pv, l79.fvalue(pv, (function(){ var symbol = l158; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), l92.fvalue(pv, v309)), " "), (function(v316){ + })(), l92.fvalue(pv, v315)), " "), (function(v322){ return (l13.fvalue(pv, (function(){ - var tmp = v316; + var tmp = v322; return tmp === l5.value? l5.value: tmp.cdr; })()) !== l5.value ? l158.fvalue(pv, (function(){ - var tmp = v316; + var tmp = v322; return tmp === l5.value? l5.value: tmp.car; })()) : l149.fvalue(pv, l158.fvalue(pv, (function(){ - var tmp = v316; + var tmp = v322; return tmp === l5.value? l5.value: tmp.car; })()), " . ", l158.fvalue(pv, (function(){ - var tmp = v316; + var tmp = v322; return tmp === l5.value? l5.value: tmp.cdr; })()))); - })(l91.fvalue(pv, v309)), ")") : (((function(){ - var x = v309; + })(l91.fvalue(pv, v315)), ")") : (((function(){ + var x = v315; return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l149.fvalue(values, "#", l158.fvalue(pv, l154.fvalue(pv, v309))) : (l127.fvalue(pv, v309) !== l5.value ? l149.fvalue(values, "#") : l5.value))))))); + })()?l4.value: l5.value) !== l5.value ? l149.fvalue(values, "#", l158.fvalue(pv, l154.fvalue(pv, v315))) : (l127.fvalue(pv, v315) !== l5.value ? l149.fvalue(values, "#") : l5.value))))))); })(); })); return l158; })(); (function(){ - (l107).fvalue = (function(v319){ - ((v319)["fname"] = "WRITE-LINE"); - return v319; - })((function (values,v318){ + (l107).fvalue = (function(v325){ + ((v325)["fname"] = "WRITE-LINE"); + return v325; + })((function (values,v324){ checkArgs(arguments, 2); return (function(){ (function(){ - var x = v318; + var x = v324; if (typeof x != 'string') throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); @@ -2943,17 +2956,17 @@ var l159 = {name: "ESCAPE-STRING"}; throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); })(); - return v318; + return v324; })(); })); return l107; })(); var l160 = {name: "WARN"}; (function(){ - (l160).fvalue = (function(v321){ - ((v321)["fname"] = "WARN"); - return v321; - })((function (values,v320){ + (l160).fvalue = (function(v327){ + ((v327)["fname"] = "WARN"); + return v327; + })((function (values,v326){ checkArgs(arguments, 2); return (function(){ (function(){ @@ -2962,65 +2975,65 @@ var l160 = {name: "WARN"}; throw 'The value ' + x + ' is not a type string.'; return lisp.write(x); })(); - return l107.fvalue(values, v320); + return l107.fvalue(values, v326); })(); })); return l160; })(); var l161 = {name: "PRINT"}; (function(){ - (l161).fvalue = (function(v323){ - ((v323)["fname"] = "PRINT"); - return v323; - })((function (values,v322){ + (l161).fvalue = (function(v329){ + ((v329)["fname"] = "PRINT"); + return v329; + })((function (values,v328){ checkArgs(arguments, 2); return (function(){ - l107.fvalue(pv, l158.fvalue(pv, v322)); - return v322; + l107.fvalue(pv, l158.fvalue(pv, v328)); + return v328; })(); })); return l161; })(); var l162 = {name: "MAKE-STRING-STREAM"}; (function(){ - (l162).fvalue = (function(v325){ - ((v325)["fname"] = "MAKE-STRING-STREAM"); - return v325; - })((function (values,v324){ + (l162).fvalue = (function(v331){ + ((v331)["fname"] = "MAKE-STRING-STREAM"); + return v331; + })((function (values,v330){ checkArgs(arguments, 2); return (function(){ - return ({car: v324, cdr: 0}); + return ({car: v330, cdr: 0}); })(); })); return l162; })(); var l163 = {name: "%PEEK-CHAR"}; (function(){ - (l163).fvalue = (function(v327){ - ((v327)["fname"] = "%PEEK-CHAR"); - return v327; - })((function (values,v326){ + (l163).fvalue = (function(v333){ + ((v333)["fname"] = "%PEEK-CHAR"); + return v333; + })((function (values,v332){ checkArgs(arguments, 2); return (function(){ return ((function(){ var x1 = (function(){ - var tmp = v326; + var tmp = v332; return tmp === l5.value? l5.value: tmp.cdr; })(); if (typeof x1 !== 'number') throw 'Not a number!'; var x2 = l73.fvalue(pv, (function(){ - var tmp = v326; + var tmp = v332; return tmp === l5.value? l5.value: tmp.car; })()); if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=1; i--) - v394 = {car: arguments[i], cdr: - v394}; + v400 = {car: arguments[i], cdr: + v400}; return (function(){ - return l153.fvalue(values, (function (values,v395){ + return l153.fvalue(values, (function (values,v401){ checkArgs(arguments, 2); - return (l13.fvalue(pv, v395) !== l5.value ? "" : (l86.fvalue(pv, v395) !== l5.value ? l18.fvalue(values, v395) : (((typeof(v395) == "string")?l4.value: l5.value) !== l5.value ? v395 : (function(){ + return (l13.fvalue(pv, v401) !== l5.value ? "" : (l86.fvalue(pv, v401) !== l5.value ? l18.fvalue(values, v401) : (((typeof(v401) == "string")?l4.value: l5.value) !== l5.value ? v401 : (function(){ throw "Unknown argument."; })()))); - }), v394); + }), v400); })(); })); return l183; @@ -3667,13 +3680,13 @@ var l183 = {name: "CODE"}; var l184 = {name: "JS!BOOL"}; var l185 = {name: "LS-COMPILE"}; (function(){ - (l184).fvalue = (function(v398){ - ((v398)["fname"] = "JS!BOOL"); - return v398; - })((function (values,v397){ + (l184).fvalue = (function(v404){ + ((v404)["fname"] = "JS!BOOL"); + return v404; + })((function (values,v403){ checkArgs(arguments, 2); return (function(){ - return l183.fvalue(values, "(", v397, "?", l185.fvalue(pv, l4.value), ": ", l185.fvalue(pv, l5.value), ")"); + return l183.fvalue(values, "(", v403, "?", l185.fvalue(pv, l4.value), ": ", l185.fvalue(pv, l5.value), ")"); })(); })); return l184; @@ -3682,70 +3695,70 @@ var l186 = {name: "JS!SELFCALL"}; l186; var l187 = {name: "INDENT"}; (function(){ - (l187).fvalue = (function(v405){ - ((v405)["fname"] = "INDENT"); - return v405; + (l187).fvalue = (function(v411){ + ((v411)["fname"] = "INDENT"); + return v411; })((function (values){ - var v399= l5.value; + var v405= l5.value; for (var i = arguments.length-1; i>=1; i--) - v399 = {car: arguments[i], cdr: - v399}; + v405 = {car: arguments[i], cdr: + v405}; return (function(){ - return (function(v400){ - return (function(v401,v402,v403){ - (l87.fvalue(pv, l73.fvalue(pv, v400)) !== l5.value ? (v401 = l149.fvalue(pv, v401, " ")) : l5.value); + return (function(v406){ + return (function(v407,v408,v409){ + (l87.fvalue(pv, l73.fvalue(pv, v406)) !== l5.value ? (v407 = l149.fvalue(pv, v407, " ")) : l5.value); (function(){ return (function(){ while((function(){ - var x1 = v402; + var x1 = v408; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v403; + var x2 = v409; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=2; i--) - v518 = {car: arguments[i], cdr: - v518}; + v528 = {car: arguments[i], cdr: + v528}; return (function(){ - return (v519 !== l5.value ? l183.fvalue(values, "(function(){", (function(){ + return (v529 !== l5.value ? l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "var func = ", l151.fvalue(pv, v518), ";", (function(){ + })(), l187.fvalue(pv, "var func = ", l151.fvalue(pv, v528), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "func.docstring = '", v519, "';", (function(){ + })(), "func.docstring = '", v529, "';", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -4604,7 +4625,7 @@ var l239 = {name: "LAMBDA-DOCSTRING-WRAPPER"}; return func; })(); var args = [values]; - var tail = (v518); + var tail = (v528); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; @@ -4618,22 +4639,22 @@ var l239 = {name: "LAMBDA-DOCSTRING-WRAPPER"}; var l240 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"}; var l241 = {name: "N/A"}; (function(){ - (l240).fvalue = (function(v526){ - ((v526)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT"); - return v526; - })((function (values,v521,v522,v523){ + (l240).fvalue = (function(v536){ + ((v536)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT"); + return v536; + })((function (values,v531,v532,v533){ checkArgs(arguments, 4); return (function(){ - return (function(v524,v525){ + return (function(v534,v535){ return (function(){ try { (((function(){ - var x1 = v524; + var x1 = v534; if (typeof x1 !== 'number') throw 'Not a number!'; return (1=", (function(){ - var x1 = v537; + var x1 = v551; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v538; + var x2 = v552; if (typeof x2 !== 'number') throw 'Not a number!'; return 1+x1+x2; })(), "; i--)", (function(){ @@ -4795,58 +4824,58 @@ var l243 = {name: "COMPILE-LAMBDA-REST"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, v540, " = {car: arguments[i], cdr: "), v540, "};", (function(){ + })(), l187.fvalue(pv, v554, " = {car: arguments[i], cdr: "), v554, "};", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l207.fvalue(pv, v539)) : l5.value); - })(l73.fvalue(pv, l232.fvalue(pv, v536)),l73.fvalue(pv, l234.fvalue(pv, v536)),l235.fvalue(pv, v536)); + })(l207.fvalue(pv, v553)) : l5.value); + })(l73.fvalue(pv, l232.fvalue(pv, v550)),l73.fvalue(pv, l234.fvalue(pv, v550)),l235.fvalue(pv, v550)); })(); })); return l243; })(); var l244 = {name: "COMPILE-LAMBDA-PARSE-KEYWORDS"}; (function(){ - (l244).fvalue = (function(v552){ - ((v552)["fname"] = "COMPILE-LAMBDA-PARSE-KEYWORDS"); - return v552; - })((function (values,v542){ + (l244).fvalue = (function(v566){ + ((v566)["fname"] = "COMPILE-LAMBDA-PARSE-KEYWORDS"); + return v566; + })((function (values,v556){ checkArgs(arguments, 2); return (function(){ - return (function(v543,v544,v545){ - return l183.fvalue(values, l153.fvalue(pv, (function (values,v546){ + return (function(v557,v558,v559){ + return l183.fvalue(values, l153.fvalue(pv, (function (values,v560){ checkArgs(arguments, 2); - return (function(v547){ - return l183.fvalue(values, "var ", l207.fvalue(pv, v547), "; ", (function(){ + return (function(v561){ + return l183.fvalue(values, "var ", l207.fvalue(pv, v561), "; ", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), (l42.fvalue(pv, v546) !== l5.value ? l183.fvalue(pv, "var ", l207.fvalue(pv, l42.fvalue(pv, v546)), " = ", l185.fvalue(pv, l5.value), ";", (function(){ + })(), (l42.fvalue(pv, v560) !== l5.value ? l183.fvalue(pv, "var ", l207.fvalue(pv, l42.fvalue(pv, v560)), " = ", l185.fvalue(pv, l5.value), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : l5.value)); })(l41.fvalue(pv, (function(){ - var tmp = v546; + var tmp = v560; return tmp === l5.value? l5.value: tmp.car; })())); - }), v545), (function(v550){ - return (v545 !== l5.value ? l183.fvalue(pv, "var i;", (function(){ + }), v559), (function(v564){ + return (v559 !== l5.value ? l183.fvalue(pv, "var i;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l153.fvalue(pv, v550, v545)) : l5.value); - })((function (values,v548){ + })(), l153.fvalue(pv, v564, v559)) : l5.value); + })((function (values,v562){ checkArgs(arguments, 2); return l183.fvalue(values, "for (i=", (function(){ - var x1 = v543; + var x1 = v557; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v544; + var x2 = v558; if (typeof x2 !== 'number') throw 'Not a number!'; return 1+x1+x2; })(), "; i=1; i--) - v570 = {car: arguments[i], cdr: - v570}; - return (function(){ - return (function(v571){ - (function(){ - try { - return (function(){ - while(l4.value !== l5.value){ - (l13.fvalue(pv, v570) !== l5.value ? (function(){ - throw ({type: 'block', id: 201, values: l5.value, message: 'Return from unknown block NIL.'}) - })() : (l13.fvalue(pv, (function(){ - var tmp = v570; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? (function(){ - throw "Odd paris in SETQ"; - })() : (function(){ - (v571 = l149.fvalue(pv, v571, l149.fvalue(pv, l247.fvalue(pv, (function(){ - var tmp = v570; - return tmp === l5.value? l5.value: tmp.car; - })(), l34.fvalue(pv, v570)), (l13.fvalue(pv, l36.fvalue(pv, v570)) !== l5.value ? "" : ", ")))); - return (v570 = l36.fvalue(pv, v570)); - })())); - }return l5.value; - })(); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 201) - return cf.values; - else - throw cf; - } - })(); - return l183.fvalue(values, "(", v571, ")"); - })(""); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); +(function(){ + var v584 = l45.fvalue(pv, l115, (function (values){ + var v585= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v585 = {car: arguments[i], cdr: + v585}; + return (function(){ + return (function(v586){ + (function(){ + try { + return (function(){ + while(l4.value !== l5.value){ + (l13.fvalue(pv, v585) !== l5.value ? (function(){ + throw ({type: 'block', id: 201, values: l5.value, message: 'Return from unknown block NIL.'}) + })() : (l13.fvalue(pv, (function(){ + var tmp = v585; + return tmp === l5.value? l5.value: tmp.cdr; + })()) !== l5.value ? (function(){ + throw "Odd paris in SETQ"; + })() : (function(){ + (v586 = l149.fvalue(pv, v586, l149.fvalue(pv, l247.fvalue(pv, (function(){ + var tmp = v585; + return tmp === l5.value? l5.value: tmp.car; + })(), l34.fvalue(pv, v585)), (l13.fvalue(pv, l36.fvalue(pv, v585)) !== l5.value ? "" : ", ")))); + return (v585 = l36.fvalue(pv, v585)); + })())); + }return l5.value; + })(); + } + catch (cf){ + if (cf.type == 'block' && cf.id == 201) + return cf.values; + else + throw cf; + } + })(); + return l183.fvalue(values, "(", v586, ")"); + })(""); + })(); + })); + var v587 = ({car: v584, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v587); +})(); var l249 = {name: "JS-VREF"}; -((l222).value = ({car: l45.fvalue(pv, l249, (function (values,v572){ - checkArgs(arguments, 2); - return (function(){ - return v572; - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); +(function(){ + var v588 = l45.fvalue(pv, l249, (function (values,v589){ + checkArgs(arguments, 2); + return (function(){ + return v589; + })(); + })); + var v590 = ({car: v588, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v590); +})(); var l250 = {name: "JS-VSET"}; -((l222).value = ({car: l45.fvalue(pv, l250, (function (values,v573,v574){ - checkArgs(arguments, 3); - return (function(){ - return l183.fvalue(values, "(", v573, " = ", l185.fvalue(pv, v574), ")"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); (function(){ - (l159).fvalue = (function(v581){ - ((v581)["fname"] = "ESCAPE-STRING"); - return v581; - })((function (values,v575){ + var v591 = l45.fvalue(pv, l250, (function (values,v592,v593){ + checkArgs(arguments, 3); + return (function(){ + return l183.fvalue(values, "(", v592, " = ", l185.fvalue(pv, v593), ")"); + })(); + })); + var v594 = ({car: v591, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v594); +})(); +(function(){ + (l159).fvalue = (function(v601){ + ((v601)["fname"] = "ESCAPE-STRING"); + return v601; + })((function (values,v595){ checkArgs(arguments, 2); return (function(){ - return (function(v576,v577,v578){ + return (function(v596,v597,v598){ (function(){ return (function(){ while((function(){ - var x1 = v577; + var x1 = v597; if (typeof x1 !== 'number') throw 'Not a number!'; - var x2 = v578; + var x2 = v598; if (typeof x2 !== 'number') throw 'Not a number!'; return (x1=2; i--) - v599 = {car: arguments[i], cdr: - v599}; - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "while(", l185.fvalue(pv, v600), " !== ", l185.fvalue(pv, l5.value), "){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l246.fvalue(pv, v599)), "}", "return ", l185.fvalue(pv, l5.value), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l256 = {name: "SYMBOL-FUNCTION"}; -((l222).value = ({car: l45.fvalue(pv, l109, (function (values,v601){ - checkArgs(arguments, 2); - return (function(){ - return ((l60.fvalue(pv, v601) !== l5.value ? (((function(){ - var tmp = v601; - return tmp === l5.value? l5.value: tmp.car; - })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l245.fvalue(values, l34.fvalue(pv, v601), l36.fvalue(pv, v601)) : (((function(){ - var tmp = v601; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v602){ - return (v602 !== l5.value ? l192.fvalue(values, v602) : l185.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l256), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, v601)))))); - })(l203.fvalue(pv, v601, (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l109)) : l5.value)); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l257 = {name: "MAKE-FUNCTION-BINDING"}; (function(){ - (l257).fvalue = (function(v604){ - ((v604)["fname"] = "MAKE-FUNCTION-BINDING"); - return v604; - })((function (values,v603){ + var v620 = l45.fvalue(pv, l178, (function (values,v621){ checkArgs(arguments, 2); return (function(){ - return l189.fvalue(values, v603, l109, l206.fvalue(pv, v603)); + return l254.fvalue(values, v621); })(); })); - return l257; + var v622 = ({car: v620, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v622); })(); -var l258 = {name: "COMPILE-FUNCTION-DEFINITION"}; +var l255 = {name: "%WHILE"}; (function(){ - (l258).fvalue = (function(v606){ - ((v606)["fname"] = "COMPILE-FUNCTION-DEFINITION"); - return v606; - })((function (values,v605){ - checkArgs(arguments, 2); + var v623 = l45.fvalue(pv, l255, (function (values,v625){ + checkArgsAtLeast(arguments, 2); + var v624= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v624 = {car: arguments[i], cdr: + v624}; + return (function(){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "while(", l185.fvalue(pv, v625), " !== ", l185.fvalue(pv, l5.value), "){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l246.fvalue(pv, v624)), "}", "return ", l185.fvalue(pv, l5.value), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(); + })); + var v626 = ({car: v623, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v626); +})(); +var l256 = {name: "SYMBOL-FUNCTION"}; +(function(){ + var v627 = l45.fvalue(pv, l109, (function (values,v628){ + checkArgs(arguments, 2); + return (function(){ + return ((l60.fvalue(pv, v628) !== l5.value ? (((function(){ + var tmp = v628; + return tmp === l5.value? l5.value: tmp.car; + })() === l6)?l4.value: l5.value) : l5.value) !== l5.value ? l245.fvalue(values, l34.fvalue(pv, v628), l36.fvalue(pv, v628)) : (((function(){ + var tmp = v628; + return (typeof tmp == 'object' && 'name' in tmp); + })()?l4.value: l5.value) !== l5.value ? (function(v629){ + return (v629 !== l5.value ? l192.fvalue(values, v629) : l185.fvalue(values, l45.fvalue(pv, l256, l45.fvalue(pv, l178, v628)))); + })(l203.fvalue(pv, v628, (function(){ + var symbol = l204; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l109)) : l5.value)); + })(); + })); + var v630 = ({car: v627, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v630); +})(); +var l257 = {name: "MAKE-FUNCTION-BINDING"}; +(function(){ + (l257).fvalue = (function(v632){ + ((v632)["fname"] = "MAKE-FUNCTION-BINDING"); + return v632; + })((function (values,v631){ + checkArgs(arguments, 2); + return (function(){ + return l189.fvalue(values, v631, l109, l206.fvalue(pv, v631)); + })(); + })); + return l257; +})(); +var l258 = {name: "COMPILE-FUNCTION-DEFINITION"}; +(function(){ + (l258).fvalue = (function(v634){ + ((v634)["fname"] = "COMPILE-FUNCTION-DEFINITION"); + return v634; + })((function (values,v633){ + checkArgs(arguments, 2); return (function(){ return l245.fvalue(values, (function(){ - var tmp = v605; + var tmp = v633; return tmp === l5.value? l5.value: tmp.car; })(), (function(){ - var tmp = v605; + var tmp = v633; return tmp === l5.value? l5.value: tmp.cdr; })()); })(); @@ -5359,15 +5416,15 @@ var l258 = {name: "COMPILE-FUNCTION-DEFINITION"}; })(); var l259 = {name: "TRANSLATE-FUNCTION"}; (function(){ - (l259).fvalue = (function(v609){ - ((v609)["fname"] = "TRANSLATE-FUNCTION"); - return v609; - })((function (values,v607){ + (l259).fvalue = (function(v637){ + ((v637)["fname"] = "TRANSLATE-FUNCTION"); + return v637; + })((function (values,v635){ checkArgs(arguments, 2); return (function(){ - return (function(v608){ - return l192.fvalue(values, v608); - })(l203.fvalue(pv, v607, (function(){ + return (function(v636){ + return l192.fvalue(values, v636); + })(l203.fvalue(pv, v635, (function(){ var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5378,127 +5435,135 @@ var l259 = {name: "TRANSLATE-FUNCTION"}; return l259; })(); var l260 = {name: "FLET"}; -((l222).value = ({car: l45.fvalue(pv, l260, (function (values,v611){ - checkArgsAtLeast(arguments, 2); - var v610= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v610 = {car: arguments[i], cdr: - v610}; - return (function(){ +(function(){ + var v638 = l45.fvalue(pv, l260, (function (values,v640){ + checkArgsAtLeast(arguments, 2); + var v639= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v639 = {car: arguments[i], cdr: + v639}; return (function(){ - try { - var v616 = l204.value; - var v612 = l79.fvalue(pv, (function(){ - var symbol = l31; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v611); - var v613 = l79.fvalue(pv, (function(){ - var symbol = l32; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v611); - var v614 = l79.fvalue(pv, (function(){ - var symbol = l258; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v613); - ((l204).value = l202.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l257; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v612), (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l109)); - return l183.fvalue(values, "(function(", l151.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l259; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v612), ","), "){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(v615){ - return l187.fvalue(pv, v615); - })(l246.fvalue(pv, v610, l4.value)), "})(", l151.fvalue(pv, v614, ","), ")"); - } - finally { - l204.value = v616; - } + return (function(){ + try { + var v645 = l204.value; + var v641 = l79.fvalue(pv, (function(){ + var symbol = l31; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v640); + var v642 = l79.fvalue(pv, (function(){ + var symbol = l32; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v640); + var v643 = l79.fvalue(pv, (function(){ + var symbol = l258; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v642); + ((l204).value = l202.fvalue(pv, l79.fvalue(pv, (function(){ + var symbol = l257; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v641), (function(){ + var symbol = l204; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l109)); + return l183.fvalue(values, "(function(", l151.fvalue(pv, l79.fvalue(pv, (function(){ + var symbol = l259; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v641), ","), "){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), (function(v644){ + return l187.fvalue(pv, v644); + })(l246.fvalue(pv, v639, l4.value)), "})(", l151.fvalue(pv, v643, ","), ")"); + } + finally { + l204.value = v645; + } + })(); })(); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); + })); + var v646 = ({car: v638, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v646); +})(); var l261 = {name: "LABELS"}; -((l222).value = ({car: l45.fvalue(pv, l261, (function (values,v618){ - checkArgsAtLeast(arguments, 2); - var v617= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v617 = {car: arguments[i], cdr: - v617}; - return (function(){ +(function(){ + var v647 = l45.fvalue(pv, l261, (function (values,v649){ + checkArgsAtLeast(arguments, 2); + var v648= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v648 = {car: arguments[i], cdr: + v648}; return (function(){ - try { - var v621 = l204.value; - var v619 = l79.fvalue(pv, (function(){ - var symbol = l31; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v618); - ((l204).value = l202.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l257; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v619), (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l109)); - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v620){ - checkArgs(arguments, 2); - return l183.fvalue(values, "var ", l259.fvalue(pv, (function(){ - var tmp = v620; - return tmp === l5.value? l5.value: tmp.car; - })()), " = ", l245.fvalue(pv, l34.fvalue(pv, v620), l36.fvalue(pv, v620)), ";", (function(){ + return (function(){ + try { + var v652 = l204.value; + var v650 = l79.fvalue(pv, (function(){ + var symbol = l31; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v649); + ((l204).value = l202.fvalue(pv, l79.fvalue(pv, (function(){ + var symbol = l257; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v650), (function(){ + var symbol = l204; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l109)); + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()); - }), v618), l246.fvalue(pv, v617, l4.value)), "})()"); - } - finally { - l204.value = v621; - } + })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v651){ + checkArgs(arguments, 2); + return l183.fvalue(values, "var ", l259.fvalue(pv, (function(){ + var tmp = v651; + return tmp === l5.value? l5.value: tmp.car; + })()), " = ", l245.fvalue(pv, l34.fvalue(pv, v651), l36.fvalue(pv, v651)), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + }), v649), l246.fvalue(pv, v648, l4.value)), "})()"); + } + finally { + l204.value = v652; + } + })(); })(); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); + })); + var v653 = ({car: v647, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v653); +})(); var l262 = {name: "*COMPILING-FILE*"}; (function(){ (((l262.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l262).value = l5.value)); @@ -5506,85 +5571,93 @@ var l262 = {name: "*COMPILING-FILE*"}; })(); var l263 = {name: "EVAL-WHEN-COMPILE"}; var l264 = {name: "EVAL"}; -((l222).value = ({car: l45.fvalue(pv, l263, (function (values){ - var v622= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v622 = {car: arguments[i], cdr: - v622}; - return (function(){ - return ((function(){ - var symbol = l262; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? (function(){ - l264.fvalue(pv, ({car: l119, cdr: v622})); - return l5.value; - })() : l185.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l119), v622))); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); +(function(){ + var v654 = l45.fvalue(pv, l263, (function (values){ + var v655= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v655 = {car: arguments[i], cdr: + v655}; + return (function(){ + return ((function(){ + var symbol = l262; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? (function(){ + l264.fvalue(pv, ({car: l119, cdr: v655})); + return l5.value; + })() : l185.fvalue(values, ({car: l119, cdr: v655}))); + })(); + })); + var v656 = ({car: v654, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v656); +})(); var l265 = {name: "DEFINE-TRANSFORMATION"}; l265; -((l222).value = ({car: l45.fvalue(pv, l119, (function (values){ - var v623= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v623 = {car: arguments[i], cdr: - v623}; - return (function(){ - return (l13.fvalue(pv, (function(){ - var tmp = v623; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? l185.fvalue(values, (function(){ - var tmp = v623; - return tmp === l5.value? l5.value: tmp.car; - })(), (function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l246.fvalue(pv, v623, l4.value)), "})()")); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); +(function(){ + var v657 = l45.fvalue(pv, l119, (function (values){ + var v658= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v658 = {car: arguments[i], cdr: + v658}; + return (function(){ + return (l13.fvalue(pv, (function(){ + var tmp = v658; + return tmp === l5.value? l5.value: tmp.cdr; + })()) !== l5.value ? l185.fvalue(values, (function(){ + var tmp = v658; + return tmp === l5.value? l5.value: tmp.car; + })(), (function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()) : l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l246.fvalue(pv, v658, l4.value)), "})()")); + })(); + })); + var v659 = ({car: v657, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v659); +})(); var l266 = {name: "SPECIAL-VARIABLE-P"}; (function(){ - (l266).fvalue = (function(v625){ - ((v625)["fname"] = "SPECIAL-VARIABLE-P"); - return v625; - })((function (values,v624){ + (l266).fvalue = (function(v661){ + ((v661)["fname"] = "SPECIAL-VARIABLE-P"); + return v661; + })((function (values,v660){ checkArgs(arguments, 2); return (function(){ - return (l216.fvalue(pv, v624, l110, l218) !== l5.value ? l4.value : l5.value); + return (l216.fvalue(pv, v660, l110, l218) !== l5.value ? l4.value : l5.value); })(); })); return l266; })(); var l267 = {name: "LET-BINDING-WRAPPER"}; (function(){ - (l267).fvalue = (function(v632){ - ((v632)["fname"] = "LET-BINDING-WRAPPER"); - return v632; - })((function (values,v626,v627){ + (l267).fvalue = (function(v668){ + ((v668)["fname"] = "LET-BINDING-WRAPPER"); + return v668; + })((function (values,v662,v663){ checkArgs(arguments, 3); return (function(){ try { - (l13.fvalue(pv, v626) !== l5.value ? (function(){ + (l13.fvalue(pv, v662) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 219, values: v627, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 219, values: v663, message: 'Return from unknown block LET-BINDING-WRAPPER.'}) })() : l5.value); return l183.fvalue(values, "try {", (function(){ var symbol = l148; @@ -5596,16 +5669,16 @@ var l267 = {name: "LET-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l153.fvalue(pv, (function (values,v628){ + })(), l153.fvalue(pv, (function (values,v664){ checkArgs(arguments, 2); - return (function(v629){ - return l183.fvalue(values, "tmp = ", v629, ".value;", (function(){ + return (function(v665){ + return l183.fvalue(values, "tmp = ", v665, ".value;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), v629, ".value = ", (function(){ - var tmp = v628; + })(), v665, ".value = ", (function(){ + var tmp = v664; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ var symbol = l148; @@ -5613,7 +5686,7 @@ var l267 = {name: "LET-BINDING-WRAPPER"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), (function(){ - var tmp = v628; + var tmp = v664; return tmp === l5.value? l5.value: tmp.cdr; })(), " = tmp;", (function(){ var symbol = l148; @@ -5621,11 +5694,11 @@ var l267 = {name: "LET-BINDING-WRAPPER"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, (function(){ - var tmp = v628; + })(l185.fvalue(pv, l45.fvalue(pv, l178, (function(){ + var tmp = v664; return tmp === l5.value? l5.value: tmp.car; - })())))); - }), v626), v627, (function(){ + })()))); + }), v662), v663, (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5640,11 +5713,11 @@ var l267 = {name: "LET-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v630){ + })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v666){ checkArgs(arguments, 2); - return (function(v631){ - return l183.fvalue(values, v631, ".value", " = ", (function(){ - var tmp = v630; + return (function(v667){ + return l183.fvalue(values, v667, ".value", " = ", (function(){ + var tmp = v666; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ var symbol = l148; @@ -5652,11 +5725,11 @@ var l267 = {name: "LET-BINDING-WRAPPER"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, (function(){ - var tmp = v630; + })(l185.fvalue(pv, l45.fvalue(pv, l178, (function(){ + var tmp = v666; return tmp === l5.value? l5.value: tmp.car; - })())))); - }), v626)), "}", (function(){ + })()))); + }), v662)), "}", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5674,145 +5747,153 @@ var l267 = {name: "LET-BINDING-WRAPPER"}; return l267; })(); var l268 = {name: "LET"}; -((l222).value = ({car: l45.fvalue(pv, l268, (function (values,v634){ - checkArgsAtLeast(arguments, 2); - var v633= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v633 = {car: arguments[i], cdr: - v633}; - return (function(){ +(function(){ + var v669 = l45.fvalue(pv, l268, (function (values,v671){ + checkArgsAtLeast(arguments, 2); + var v670= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v670 = {car: arguments[i], cdr: + v670}; return (function(){ - try { - var v642 = l204.value; - var v635 = l79.fvalue(pv, (function(){ - var symbol = l59; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v634); - var v636 = l79.fvalue(pv, (function(){ - var symbol = l40; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v635); - var v637 = l79.fvalue(pv, (function(){ - var symbol = l185; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l79.fvalue(pv, (function(){ - var symbol = l41; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v635)); - ((l204).value = l208.fvalue(pv, l95.fvalue(pv, (function(){ - var symbol = l266; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v636))); - var v638 = l5.value; - return l183.fvalue(values, "(function(", l151.fvalue(pv, l79.fvalue(pv, (function (values,v639){ - checkArgs(arguments, 2); - return (l266.fvalue(pv, v639) !== l5.value ? (function(v640){ - (v638 = ({car: ({car: v639, cdr: v640}), cdr: v638})); - return v640; - })(l206.fvalue(pv, v639)) : l207.fvalue(values, v639)); - }), v636), ","), "){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(v641){ - return l187.fvalue(pv, l267.fvalue(pv, v638, v641)); - })(l246.fvalue(pv, v633, l4.value)), "})(", l151.fvalue(pv, v637, ","), ")"); - } - finally { - l204.value = v642; - } + return (function(){ + try { + var v681 = l204.value; + var v672 = l79.fvalue(pv, (function(){ + var symbol = l59; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v671); + var v673 = l79.fvalue(pv, (function(){ + var symbol = l40; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v672); + var v674 = l79.fvalue(pv, (function(){ + var symbol = l185; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), l79.fvalue(pv, (function(){ + var symbol = l41; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v672)); + ((l204).value = l208.fvalue(pv, l95.fvalue(pv, (function(){ + var symbol = l266; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v673))); + var v675 = l5.value; + return l183.fvalue(values, "(function(", l151.fvalue(pv, l79.fvalue(pv, (function (values,v676){ + checkArgs(arguments, 2); + return (l266.fvalue(pv, v676) !== l5.value ? (function(v677){ + (function(){ + var v678 = ({car: v676, cdr: v677}); + var v679 = ({car: v678, cdr: v675}); + return (v675 = v679); + })(); + return v677; + })(l206.fvalue(pv, v676)) : l207.fvalue(values, v676)); + }), v673), ","), "){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), (function(v680){ + return l187.fvalue(pv, l267.fvalue(pv, v675, v680)); + })(l246.fvalue(pv, v670, l4.value)), "})(", l151.fvalue(pv, v674, ","), ")"); + } + finally { + l204.value = v681; + } + })(); })(); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); + })); + var v682 = ({car: v669, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v682); +})(); var l269 = {name: "LET*-INITIALIZE-VALUE"}; (function(){ - (l269).fvalue = (function(v649){ - ((v649)["fname"] = "LET*-INITIALIZE-VALUE"); - return v649; - })((function (values,v643){ + (l269).fvalue = (function(v689){ + ((v689)["fname"] = "LET*-INITIALIZE-VALUE"); + return v689; + })((function (values,v683){ checkArgs(arguments, 2); return (function(){ - return (function(v644,v645){ - return (l266.fvalue(pv, v644) !== l5.value ? l183.fvalue(values, l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l115), l45.fvalue(pv, v644), l45.fvalue(pv, v645))), ";", (function(){ + return (function(v684,v685){ + return (l266.fvalue(pv, v684) !== l5.value ? l183.fvalue(values, l185.fvalue(pv, l45.fvalue(pv, l115, v684, v685)), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : (function(){ - var v646 = l206.fvalue(pv, v644); - var v647 = l189.fvalue(pv, v644, l110, v646); - return (function(v648){ - l199.fvalue(pv, v647, (function(){ + var v686 = l206.fvalue(pv, v684); + var v687 = l189.fvalue(pv, v684, l110, v686); + return (function(v688){ + l199.fvalue(pv, v687, (function(){ var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(), l110); - return v648; - })(l183.fvalue(pv, "var ", v646, " = ", l185.fvalue(pv, v645), ";", (function(){ + return v688; + })(l183.fvalue(pv, "var ", v686, " = ", l185.fvalue(pv, v685), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())); })()); - })(l40.fvalue(pv, v643),l41.fvalue(pv, v643)); + })(l40.fvalue(pv, v683),l41.fvalue(pv, v683)); })(); })); return l269; })(); var l270 = {name: "LET*-BINDING-WRAPPER"}; (function(){ - (l270).fvalue = (function(v658){ - ((v658)["fname"] = "LET*-BINDING-WRAPPER"); - return v658; - })((function (values,v650,v651){ + (l270).fvalue = (function(v698){ + ((v698)["fname"] = "LET*-BINDING-WRAPPER"); + return v698; + })((function (values,v690,v691){ checkArgs(arguments, 3); return (function(){ try { - (l13.fvalue(pv, v650) !== l5.value ? (function(){ + (l13.fvalue(pv, v690) !== l5.value ? (function(){ var values = mv; - throw ({type: 'block', id: 222, values: v651, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) + throw ({type: 'block', id: 222, values: v691, message: 'Return from unknown block LET*-BINDING-WRAPPER.'}) })() : l5.value); - return (function(v653){ + return (function(v693){ return l183.fvalue(values, "try {", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v654){ + })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v694){ checkArgs(arguments, 2); - return (function(v655){ + return (function(v695){ return l183.fvalue(values, "var ", (function(){ - var tmp = v654; + var tmp = v694; return tmp === l5.value? l5.value: tmp.cdr; - })(), " = ", v655, ".value;", (function(){ + })(), " = ", v695, ".value;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, (function(){ - var tmp = v654; + })(l185.fvalue(pv, l45.fvalue(pv, l178, (function(){ + var tmp = v694; return tmp === l5.value? l5.value: tmp.car; - })())))); - }), v653), v651), "}", (function(){ + })()))); + }), v693), v691), "}", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -5822,11 +5903,11 @@ var l270 = {name: "LET*-BINDING-WRAPPER"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v656){ + })(), l187.fvalue(pv, l153.fvalue(pv, (function (values,v696){ checkArgs(arguments, 2); - return (function(v657){ - return l183.fvalue(values, v657, ".value", " = ", (function(){ - var tmp = v656; + return (function(v697){ + return l183.fvalue(values, v697, ".value", " = ", (function(){ + var tmp = v696; return tmp === l5.value? l5.value: tmp.cdr; })(), ";", (function(){ var symbol = l148; @@ -5834,25 +5915,25 @@ var l270 = {name: "LET*-BINDING-WRAPPER"}; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, (function(){ - var tmp = v656; + })(l185.fvalue(pv, l45.fvalue(pv, l178, (function(){ + var tmp = v696; return tmp === l5.value? l5.value: tmp.car; - })())))); - }), v653)), "}", (function(){ + })()))); + }), v693)), "}", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })(l79.fvalue(pv, (function (values,v652){ + })(l79.fvalue(pv, (function (values,v692){ checkArgs(arguments, 2); - return ({car: v652, cdr: l206.fvalue(pv, v652)}); + return ({car: v692, cdr: l206.fvalue(pv, v692)}); }), l96.fvalue(pv, (function(){ var symbol = l266; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v650))); + })(), v690))); } catch (cf){ if (cf.type == 'block' && cf.id == 222) @@ -5865,526 +5946,142 @@ var l270 = {name: "LET*-BINDING-WRAPPER"}; return l270; })(); var l271 = {name: "LET*"}; -((l222).value = ({car: l45.fvalue(pv, l271, (function (values,v660){ - checkArgsAtLeast(arguments, 2); - var v659= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v659 = {car: arguments[i], cdr: - v659}; - return (function(){ - return (function(v661,v662){ - try { - var tmp; - tmp = l204.value; - l204.value = v662; - v662 = tmp; - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, (function(v663,v664){ - return l270.fvalue(pv, v663, v664); - })(l96.fvalue(pv, (function(){ - var symbol = l266; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), l79.fvalue(pv, (function(){ - var symbol = l40; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v661)),l149.fvalue(pv, l153.fvalue(pv, (function(){ - var symbol = l269; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v661), l246.fvalue(pv, v659, l4.value)))), "})()"); - } - finally { - l204.value = v662; - } - })(l79.fvalue(pv, (function(){ - var symbol = l59; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v660),l198.fvalue(pv, (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l272 = {name: "*BLOCK-COUNTER*"}; (function(){ - (((l272.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l272).value = 0)); - return l272; -})(); -var l273 = {name: "MULTIPLE-VALUE"}; -var l274 = {name: "USED"}; -((l222).value = ({car: l45.fvalue(pv, l200, (function (values,v666){ - checkArgsAtLeast(arguments, 2); - var v665= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v665 = {car: arguments[i], cdr: - v665}; - return (function(){ + var v699 = l45.fvalue(pv, l271, (function (values,v701){ + checkArgsAtLeast(arguments, 2); + var v700= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v700 = {car: arguments[i], cdr: + v700}; return (function(){ - var v667 = ((l272).value = (function(){ - var x1 = (function(){ - var symbol = l272; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(); - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })()); - var v668 = l189.fvalue(pv, v666, l200, v667); - ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l196.fvalue(pv, l273, v668) : l5.value); - return (function(){ + return (function(v702,v703){ try { - var v670 = l204.value; - ((l204).value = l202.fvalue(pv, l45.fvalue(pv, v668), (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l200)); - var v669 = l246.fvalue(pv, v665, l4.value); - return (l93.fvalue(pv, l274, l193.fvalue(pv, v668)) !== l5.value ? l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "try {", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, v669), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "catch (cf){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " if (cf.type == 'block' && cf.id == ", v667, ")", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " else", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " throw cf;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()") : l183.fvalue(values, "(function(){", (function(){ + var tmp; + tmp = l204.value; + l204.value = v703; + v703 = tmp; + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, v669), "})()")); + })(), l187.fvalue(pv, (function(v704,v705){ + return l270.fvalue(pv, v704, v705); + })(l96.fvalue(pv, (function(){ + var symbol = l266; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), l79.fvalue(pv, (function(){ + var symbol = l40; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v702)),l149.fvalue(pv, l153.fvalue(pv, (function(){ + var symbol = l269; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v702), l246.fvalue(pv, v700, l4.value)))), "})()"); } finally { - l204.value = v670; + l204.value = v703; } - })(); - })(); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l275 = {name: "RETURN-FROM"}; -((l222).value = ({car: l45.fvalue(pv, l275, (function (values,v671,v672){ - checkArgsAtLeast(arguments, 2); - checkArgsAtMost(arguments, 3); - var v672; - switch(arguments.length-1){ - case 1: - v672=l5.value; - default: break; - } - return (function(){ - return (function(){ - var v673 = l203.fvalue(pv, v671, (function(){ + })(l79.fvalue(pv, (function(){ + var symbol = l59; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v701),l198.fvalue(pv, (function(){ var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l200); - var v674 = l93.fvalue(pv, l273, l193.fvalue(pv, v673)); - (l13.fvalue(pv, v673) !== l5.value ? (function(){ - throw l149.fvalue(pv, "Unknown block `", (v671).name, "'."); - })() : l5.value); - l196.fvalue(pv, l274, v673); - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, (v674 !== l5.value ? l183.fvalue(pv, "var values = mv;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l192.fvalue(pv, v673), ", ", "values: ", l185.fvalue(pv, v672, v674), ", ", "message: 'Return from unknown block ", (v671).name, ".'", "})"), "})()"); + })())); })(); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l276 = {name: "CATCH"}; -((l222).value = ({car: l45.fvalue(pv, l276, (function (values,v676){ - checkArgsAtLeast(arguments, 2); - var v675= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v675 = {car: arguments[i], cdr: - v675}; - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var id = ", l185.fvalue(pv, v676), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "try {", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l246.fvalue(pv, v675, l4.value)), (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "catch (cf){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " if (cf.type == 'catch' && cf.id == id)", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " else", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " throw cf;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l277 = {name: "THROW"}; -((l222).value = ({car: l45.fvalue(pv, l277, (function (values,v677,v678){ - checkArgs(arguments, 3); - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var values = mv;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "throw ({", "type: 'catch', ", "id: ", l185.fvalue(pv, v677), ", ", "values: ", l185.fvalue(pv, v678, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l278 = {name: "*TAGBODY-COUNTER*"}; -(function(){ - (((l278.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l278).value = 0)); - return l278; -})(); -var l279 = {name: "*GO-TAG-COUNTER*"}; -(function(){ - (((l279.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l279).value = 0)); - return l279; + })); + var v706 = ({car: v699, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v706); })(); -var l280 = {name: "GO-TAG-P"}; +var l272 = {name: "*BLOCK-COUNTER*"}; (function(){ - (l280).fvalue = (function(v681){ - ((v681)["fname"] = "GO-TAG-P"); - return v681; - })((function (values,v679){ - checkArgs(arguments, 2); - return (function(){ - return (function(v680){ - return (v680 !== l5.value ? v680 : ((function(){ - var tmp = v679; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value)); - })(l86.fvalue(pv, v679)); - })(); - })); - return l280; + (((l272.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l272).value = 0)); + return l272; })(); -var l281 = {name: "DECLARE-TAGBODY-TAGS"}; +var l273 = {name: "MULTIPLE-VALUE"}; +var l274 = {name: "USED"}; (function(){ - (l281).fvalue = (function(v687){ - ((v687)["fname"] = "DECLARE-TAGBODY-TAGS"); - return v687; - })((function (values,v682,v683){ - checkArgs(arguments, 3); + var v707 = l45.fvalue(pv, l200, (function (values,v709){ + checkArgsAtLeast(arguments, 2); + var v708= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v708 = {car: arguments[i], cdr: + v708}; return (function(){ - return (function(v686){ - return l202.fvalue(values, v686, (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l201); - })(l79.fvalue(pv, (function (values,v684){ - checkArgs(arguments, 2); - return (function(v685){ - return l189.fvalue(values, v684, l201, l45.fvalue(pv, v682, v685)); - })(l18.fvalue(pv, ((l279).value = (function(){ + return (function(){ + var v710 = ((l272).value = (function(){ var x1 = (function(){ - var symbol = l279; + var symbol = l272; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })(); if (typeof x1 !== 'number') throw 'Not a number!'; return x1+1; - })()))); - }), l96.fvalue(pv, (function(){ - var symbol = l280; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v683))); - })(); - })); - return l281; -})(); -var l282 = {name: "TAGBODY"}; -((l222).value = ({car: l45.fvalue(pv, l282, (function (values){ - var v688= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v688 = {car: arguments[i], cdr: - v688}; - return (function(){ - try { - (l100.fvalue(pv, (function(){ - var symbol = l280; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v688) !== l5.value ? l5.value : (function(){ - var values = mv; - throw ({type: 'block', id: 230, values: l185.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l119), v688, l45.fvalue(pv, l5))), message: 'Return from unknown block TAGBODY.'}) - })()); - (l280.fvalue(pv, (function(){ - var tmp = v688; - return tmp === l5.value? l5.value: tmp.car; - })()) !== l5.value ? l5.value : (v688 = ({car: l17.fvalue(pv, "START"), cdr: v688}))); - return (function(v689){ - return (function(v691,v690){ + })()); + var v711 = l189.fvalue(pv, v709, l200, v710); + ((function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? l196.fvalue(pv, l273, v711) : l5.value); + return (function(){ try { - var tmp; - tmp = l204.value; - l204.value = v691; - v691 = tmp; - (function(v692){ - return (v690 = l41.fvalue(pv, l192.fvalue(pv, v692))); - })(l203.fvalue(pv, l40.fvalue(pv, v688), (function(){ + var v713 = l204.value; + ((l204).value = l202.fvalue(pv, l45.fvalue(pv, v711), (function(){ var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l201)); - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var tagbody_", v689, " = ", v690, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "tbloop:", (function(){ + })(), l200)); + var v712 = l246.fvalue(pv, v708, l4.value); + return (l93.fvalue(pv, l274, l193.fvalue(pv, v711)) !== l5.value ? l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "while (true) {", (function(){ + })(), l187.fvalue(pv, "try {", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "try {", (function(){ + })(), l187.fvalue(pv, v712), "}", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, (function(v693){ - return l183.fvalue(pv, "switch(tagbody_", v689, "){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "case ", v690, ":", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (function(){ - return (function(v694,v695){ - (function(){ - while(v694 !== l5.value){ - (v695 = (function(){ - var tmp = v694; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - (v693 = l149.fvalue(pv, v693, (l28.fvalue(pv, l280.fvalue(pv, v695)) !== l5.value ? l187.fvalue(pv, l185.fvalue(pv, v695), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : (function(v696){ - return l183.fvalue(pv, "case ", l41.fvalue(pv, l192.fvalue(pv, v696)), ":", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })(l203.fvalue(pv, v695, (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l201))))); - return l5.value; - })(); - (v694 = (function(){ - var tmp = v694; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return v693; - })((function(){ - var tmp = v688; - return tmp === l5.value? l5.value: tmp.cdr; - })(),l5.value); - })(), "default:", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " break tbloop;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })("")), "}", (function(){ + })(), "catch (cf){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "catch (jump) {", (function(){ + })(), " if (cf.type == 'block' && cf.id == ", v710, ")", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " if (jump.type == 'tagbody' && jump.id == ", v689, ")", (function(){ - var symbol = l148; + })(), ((function(){ + var symbol = l188; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " tagbody_", v689, " = jump.label;", (function(){ + })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return cf.values;"), (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6394,7 +6091,7 @@ var l282 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), " throw(jump);", (function(){ + })(), " throw cf;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -6404,2050 +6101,2711 @@ var l282 = {name: "TAGBODY"}; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return ", l185.fvalue(pv, l5.value), ";", (function(){ + })()), "})()") : l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()"); + })(), l187.fvalue(pv, v712), "})()")); } finally { - l204.value = v691; + l204.value = v713; } - })(l281.fvalue(pv, v689, v688),l5.value); - })((function(){ - var symbol = l278; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - } - catch (cf){ - if (cf.type == 'block' && cf.id == 230) - return values.apply(this, forcemv(cf.values)); - else - throw cf; - } - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l283 = {name: "GO"}; -((l222).value = ({car: l45.fvalue(pv, l283, (function (values,v697){ - checkArgs(arguments, 2); - return (function(){ - return (function(v698,v699){ - (l13.fvalue(pv, v698) !== l5.value ? (function(){ - throw l149.fvalue(pv, "Unknown tag `", v699, "'."); - })() : l5.value); - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l40.fvalue(pv, l192.fvalue(pv, v698)), ", ", "label: ", l41.fvalue(pv, l192.fvalue(pv, v698)), ", ", "message: 'Attempt to GO to non-existing tag ", v699, "'", "})", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l203.fvalue(pv, v697, (function(){ - var symbol = l204; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l201),(((function(){ - var tmp = v697; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (v697).name : (l86.fvalue(pv, v697) !== l5.value ? l18.fvalue(pv, v697) : l5.value))); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l284 = {name: "UNWIND-PROTECT"}; -((l222).value = ({car: l45.fvalue(pv, l284, (function (values,v701){ - checkArgsAtLeast(arguments, 2); - var v700= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v700 = {car: arguments[i], cdr: - v700}; - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var ret = ", l185.fvalue(pv, l5.value), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "try {", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "ret = ", l185.fvalue(pv, v701), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "} finally {", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l246.fvalue(pv, v700)), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return ret;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l285 = {name: "MULTIPLE-VALUE-CALL"}; -((l222).value = ({car: l45.fvalue(pv, l285, (function (values,v703){ - checkArgsAtLeast(arguments, 2); - var v702= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v702 = {car: arguments[i], cdr: - v702}; - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var func = ", l185.fvalue(pv, v703), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var args = [", ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"), "];", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return ", l183.fvalue(pv, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var values = mv;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var vs;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l153.fvalue(pv, (function (values,v704){ - checkArgs(arguments, 2); - return l183.fvalue(values, "vs = ", l185.fvalue(pv, v704, l4.value), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "args = args.concat(vs);", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "else", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "args.push(vs);", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())); - }), v702), "return func.apply(window, args);", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l286 = {name: "MULTIPLE-VALUE-PROG1"}; -((l222).value = ({car: l45.fvalue(pv, l286, (function (values,v706){ - checkArgsAtLeast(arguments, 2); - var v705= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v705 = {car: arguments[i], cdr: - v705}; - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var args = ", l185.fvalue(pv, v706, (function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l246.fvalue(pv, v705), "return args;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l287 = {name: "BACKQUOTE-EXPAND-1"}; -(function(){ - (l287).fvalue = (function(v709){ - ((v709)["fname"] = "BACKQUOTE-EXPAND-1"); - return v709; - })((function (values,v707){ - checkArgs(arguments, 2); - return (function(){ - return (((function(){ - var tmp = v707; - return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? l45.fvalue(values, l178, v707) : (l46.fvalue(pv, v707) !== l5.value ? v707 : ((((function(){ - var tmp = v707; - return tmp === l5.value? l5.value: tmp.car; - })() === l181)?l4.value: l5.value) !== l5.value ? (function(){ - var tmp = v707; - return tmp === l5.value? l5.value: tmp.car; - })() : ((((function(){ - var tmp = v707; - return tmp === l5.value? l5.value: tmp.car; - })() === l179)?l4.value: l5.value) !== l5.value ? l287.fvalue(values, l287.fvalue(pv, l34.fvalue(pv, v707))) : ({car: l66, cdr: l79.fvalue(pv, (function (values,v708){ - checkArgs(arguments, 2); - return ((l60.fvalue(pv, v708) !== l5.value ? (((function(){ - var tmp = v708; - return tmp === l5.value? l5.value: tmp.car; - })() === l181)?l4.value: l5.value) : l5.value) !== l5.value ? l45.fvalue(values, l45, l34.fvalue(pv, v708)) : ((l60.fvalue(pv, v708) !== l5.value ? (((function(){ - var tmp = v708; - return tmp === l5.value? l5.value: tmp.car; - })() === l180)?l4.value: l5.value) : l5.value) !== l5.value ? l34.fvalue(values, v708) : l45.fvalue(values, l45, l287.fvalue(pv, v708)))); - }), v707)}))))); - })(); - })); - return l287; -})(); -var l288 = {name: "BACKQUOTE-EXPAND"}; -(function(){ - (l288).fvalue = (function(v711){ - ((v711)["fname"] = "BACKQUOTE-EXPAND"); - return v711; - })((function (values,v710){ - checkArgs(arguments, 2); - return (function(){ - return ((l60.fvalue(pv, v710) !== l5.value ? (((function(){ - var tmp = v710; - return tmp === l5.value? l5.value: tmp.car; - })() === l179)?l4.value: l5.value) : l5.value) !== l5.value ? l287.fvalue(values, l34.fvalue(pv, v710)) : v710); + })(); + })(); })(); })); - return l288; -})(); -l179; -((l222).value = ({car: l45.fvalue(pv, l179, (function (values,v712){ - checkArgs(arguments, 2); - return (function(){ - return l185.fvalue(values, l287.fvalue(pv, v712)); - })(); -})), cdr: (function(){ - var symbol = l222; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l289 = {name: "*BUILTINS*"}; -(function(){ - (((l289.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l289).value = l5.value)); - return l289; + var v714 = ({car: v707, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v714); })(); -var l290 = {name: "DEFINE-RAW-BUILTIN"}; -l290; -var l291 = {name: "DEFINE-BUILTIN"}; -l291; -var l292 = {name: "TYPE-CHECK"}; -l292; -var l293 = {name: "VARIABLE-ARITY-CALL"}; +var l275 = {name: "RETURN-FROM"}; (function(){ - (l293).fvalue = (function(v721){ - ((v721)["fname"] = "VARIABLE-ARITY-CALL"); - return v721; - })((function (values,v713,v714){ - checkArgs(arguments, 3); + var v715 = l45.fvalue(pv, l275, (function (values,v716,v717){ + checkArgsAtLeast(arguments, 2); + checkArgsAtMost(arguments, 3); + var v717; + switch(arguments.length-1){ + case 1: + v717=l5.value; + default: break; + } return (function(){ - (((function(){ - var tmp = v713; - 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(v715,v716,v717){ - (function(){ - return (function(v718,v719){ - (function(){ - while(v718 !== l5.value){ - (v719 = (function(){ - var tmp = v718; - return tmp === l5.value? l5.value: tmp.car; - })()); - (function(){ - (((typeof (v719) == "number")?l4.value: l5.value) !== l5.value ? (v716 = ({car: l18.fvalue(pv, v719), cdr: v716})) : (function(v720){ - (v716 = ({car: v720, cdr: v716})); - return (v717 = l149.fvalue(pv, v717, l183.fvalue(pv, "var ", v720, " = ", l185.fvalue(pv, v719), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (typeof ", v720, " !== 'number') throw 'Not a number!';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()))); - })(l183.fvalue(pv, "x", (v715 = (function(){ - var x1 = v715; - if (typeof x1 !== 'number') throw 'Not a number!'; - return x1+1; - })())))); - return l5.value; - })(); - (v718 = (function(){ - var tmp = v718; - return tmp === l5.value? l5.value: tmp.cdr; - })()); - }return l5.value; - })(); - return l5.value; - })(v713,l5.value); - })(); + return (function(){ + var v718 = l203.fvalue(pv, v716, (function(){ + var symbol = l204; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l200); + var v719 = l93.fvalue(pv, l273, l193.fvalue(pv, v718)); + (l13.fvalue(pv, v718) !== l5.value ? (function(){ + throw l149.fvalue(pv, "Unknown block `", (v716).name, "'."); + })() : l5.value); + l196.fvalue(pv, l274, v718); return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, v717, (function(){ - var f = v714; - return (typeof f === 'function'? f: f.fvalue)(pv, l68.fvalue(pv, v716)) - })()), "})()"); - })(0,l5,""); + })(), l187.fvalue(pv, (v719 !== l5.value ? l183.fvalue(pv, "var values = mv;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()) : l5.value), "throw ({", "type: 'block', ", "id: ", l192.fvalue(pv, v718), ", ", "values: ", l185.fvalue(pv, v717, v719), ", ", "message: 'Return from unknown block ", (v716).name, ".'", "})"), "})()"); + })(); })(); })); - return l293; + var v720 = ({car: v715, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v720); })(); -var l294 = {name: "VARIABLE-ARITY"}; -l294; -var l295 = {name: "NUM-OP-NUM"}; +var l276 = {name: "CATCH"}; (function(){ - (l295).fvalue = (function(v725){ - ((v725)["fname"] = "NUM-OP-NUM"); - return v725; - })((function (values,v722,v723,v724){ - checkArgs(arguments, 4); + var v721 = l45.fvalue(pv, l276, (function (values,v723){ + checkArgsAtLeast(arguments, 2); + var v722= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v722 = {car: arguments[i], cdr: + v722}; return (function(){ return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v722, ";", (function(){ + })(), l187.fvalue(pv, "var id = ", l185.fvalue(pv, v723), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l183.fvalue(pv, "var ", "y", " = ", v724, ";", (function(){ + })(), "try {", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + })(), l187.fvalue(pv, l246.fvalue(pv, v722, l4.value)), (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + })(), "}", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l183.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ + })(), "catch (cf){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ + })(), " if (cf.type == 'catch' && cf.id == id)", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), ((function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? " return values.apply(this, forcemv(cf.values));" : " return pv.apply(this, forcemv(cf.values));"), (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "x", v723, "y"), ";", (function(){ + })(), " else", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), "})()"); + })(), " throw cf;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); })(); })); - return l295; + var v724 = ({car: v721, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v724); })(); -((l289).value = ({car: l45.fvalue(pv, l63, (function (values){ - var v726= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v726 = {car: arguments[i], cdr: - v726}; - return (function(){ - return (l13.fvalue(pv, v726) !== l5.value ? "0" : l293.fvalue(values, v726, (function (values,v727){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l151.fvalue(pv, v727, "+"), ";", (function(){ +var l277 = {name: "THROW"}; +(function(){ + var v725 = l45.fvalue(pv, l277, (function (values,v726,v727){ + checkArgs(arguments, 3); + return (function(){ + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()); - }))); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l64, (function (values,v729){ - checkArgsAtLeast(arguments, 2); - var v728= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v728 = {car: arguments[i], cdr: - v728}; - return (function(){ - return (function(v730){ - return l293.fvalue(values, v730, (function (values,v731){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", (l13.fvalue(pv, v728) !== l5.value ? l149.fvalue(pv, "-", (function(){ - var tmp = v731; - return tmp === l5.value? l5.value: tmp.car; - })()) : l151.fvalue(pv, v731, "-")), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v729, cdr: v728})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l21, (function (values){ - var v732= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v732 = {car: arguments[i], cdr: - v732}; - return (function(){ - return (l13.fvalue(pv, v732) !== l5.value ? "1" : l293.fvalue(values, v732, (function (values,v733){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l151.fvalue(pv, v733, "*"), ";", (function(){ + })(), l187.fvalue(pv, "var values = mv;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()); - }))); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l22, (function (values,v735){ - checkArgsAtLeast(arguments, 2); - var v734= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v734 = {car: arguments[i], cdr: - v734}; - return (function(){ - return (function(v736){ - return l293.fvalue(values, v736, (function (values,v737){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", (l13.fvalue(pv, v734) !== l5.value ? l149.fvalue(pv, "1 /", (function(){ - var tmp = v737; - return tmp === l5.value? l5.value: tmp.car; - })()) : l151.fvalue(pv, v737, "/")), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v735, cdr: v734})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l296 = {name: "MOD"}; -((l289).value = ({car: l45.fvalue(pv, l296, (function (values,v738,v739){ - checkArgs(arguments, 3); - return (function(){ - return (function(v740,v741){ - return l295.fvalue(values, v740, "%", v741); - })(l185.fvalue(pv, v738),l185.fvalue(pv, v739)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l297 = {name: "COMPARISON-CONJUNTION"}; + })(), "throw ({", "type: 'catch', ", "id: ", l185.fvalue(pv, v726), ", ", "values: ", l185.fvalue(pv, v727, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()"); + })(); + })); + var v728 = ({car: v725, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v728); +})(); +var l278 = {name: "*TAGBODY-COUNTER*"}; (function(){ - (l297).fvalue = (function(v744){ - ((v744)["fname"] = "COMPARISON-CONJUNTION"); - return v744; - })((function (values,v742,v743){ - checkArgs(arguments, 3); + (((l278.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l278).value = 0)); + return l278; +})(); +var l279 = {name: "*GO-TAG-COUNTER*"}; +(function(){ + (((l279.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l279).value = 0)); + return l279; +})(); +var l280 = {name: "GO-TAG-P"}; +(function(){ + (l280).fvalue = (function(v731){ + ((v731)["fname"] = "GO-TAG-P"); + return v731; + })((function (values,v729){ + checkArgs(arguments, 2); return (function(){ - return (l13.fvalue(pv, (function(){ - var tmp = v742; - return tmp === l5.value? l5.value: tmp.cdr; - })()) !== l5.value ? "true" : (l13.fvalue(pv, l36.fvalue(pv, v742)) !== l5.value ? l149.fvalue(values, (function(){ - var tmp = v742; - return tmp === l5.value? l5.value: tmp.car; - })(), v743, l34.fvalue(pv, v742)) : l149.fvalue(values, (function(){ - var tmp = v742; - return tmp === l5.value? l5.value: tmp.car; - })(), v743, l34.fvalue(pv, v742), " && ", l297.fvalue(pv, (function(){ - var tmp = v742; - return tmp === l5.value? l5.value: tmp.cdr; - })(), v743)))); + return (function(v730){ + return (v730 !== l5.value ? v730 : ((function(){ + var tmp = v729; + return (typeof tmp == 'object' && 'name' in tmp); + })()?l4.value: l5.value)); + })(l86.fvalue(pv, v729)); })(); })); - return l297; + return l280; })(); -var l298 = {name: "DEFINE-BUILTIN-COMPARISON"}; -l298; -var l299 = {name: ">"}; -((l289).value = ({car: l45.fvalue(pv, l299, (function (values,v746){ - checkArgsAtLeast(arguments, 2); - var v745= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v745 = {car: arguments[i], cdr: - v745}; - return (function(){ - return (function(v747){ - return l293.fvalue(values, v747, (function (values,v748){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l184.fvalue(pv, l297.fvalue(pv, v748, ">")), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()); - })); - })(({car: v746, cdr: v745})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l300 = {name: "<"}; -((l289).value = ({car: l45.fvalue(pv, l300, (function (values,v750){ - checkArgsAtLeast(arguments, 2); - var v749= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v749 = {car: arguments[i], cdr: - v749}; - return (function(){ - return (function(v751){ - return l293.fvalue(values, v751, (function (values,v752){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l184.fvalue(pv, l297.fvalue(pv, v752, "<")), ";", (function(){ - var symbol = l148; +var l281 = {name: "DECLARE-TAGBODY-TAGS"}; +(function(){ + (l281).fvalue = (function(v737){ + ((v737)["fname"] = "DECLARE-TAGBODY-TAGS"); + return v737; + })((function (values,v732,v733){ + checkArgs(arguments, 3); + return (function(){ + return (function(v736){ + return l202.fvalue(values, v736, (function(){ + var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()); - })); - })(({car: v750, cdr: v749})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l301 = {name: ">="}; -((l289).value = ({car: l45.fvalue(pv, l301, (function (values,v754){ - checkArgsAtLeast(arguments, 2); - var v753= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v753 = {car: arguments[i], cdr: - v753}; - return (function(){ - return (function(v755){ - return l293.fvalue(values, v755, (function (values,v756){ + })(), l201); + })(l79.fvalue(pv, (function (values,v734){ checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l184.fvalue(pv, l297.fvalue(pv, v756, ">=")), ";", (function(){ - var symbol = l148; + return (function(v735){ + return l189.fvalue(values, v734, l201, l45.fvalue(pv, v732, v735)); + })(l18.fvalue(pv, ((l279).value = (function(){ + var x1 = (function(){ + var symbol = l279; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(); + if (typeof x1 !== 'number') throw 'Not a number!'; + return x1+1; + })()))); + }), l96.fvalue(pv, (function(){ + var symbol = l280; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v733))); + })(); + })); + return l281; +})(); +var l282 = {name: "TAGBODY"}; +var l283 = QIList(l5,l5); +(function(){ + var v738 = l45.fvalue(pv, l282, (function (values){ + var v739= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v739 = {car: arguments[i], cdr: + v739}; + return (function(){ + try { + (l100.fvalue(pv, (function(){ + var symbol = l280; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v739) !== l5.value ? l5.value : (function(){ + var values = mv; + throw ({type: 'block', id: 230, values: l185.fvalue(values, ({car: l119, cdr: l66.fvalue(pv, v739, l283)})), message: 'Return from unknown block TAGBODY.'}) + })()); + (l280.fvalue(pv, (function(){ + var tmp = v739; + return tmp === l5.value? l5.value: tmp.car; + })()) !== l5.value ? l5.value : (function(){ + var v740 = l17.fvalue(pv, "START"); + var v741 = ({car: v740, cdr: v739}); + return (v739 = v741); + })()); + return (function(v742){ + return (function(v744,v743){ + try { + var tmp; + tmp = l204.value; + l204.value = v744; + v744 = tmp; + (function(v745){ + return (v743 = l41.fvalue(pv, l192.fvalue(pv, v745))); + })(l203.fvalue(pv, l40.fvalue(pv, v739), (function(){ + var symbol = l204; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l201)); + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var tagbody_", v742, " = ", v743, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "tbloop:", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "while (true) {", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "try {", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, (function(v746){ + return l183.fvalue(pv, "switch(tagbody_", v742, "){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "case ", v743, ":", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), (function(){ + return (function(v747,v748){ + (function(){ + while(v747 !== l5.value){ + (v748 = (function(){ + var tmp = v747; + return tmp === l5.value? l5.value: tmp.car; + })()); + (function(){ + (v746 = l149.fvalue(pv, v746, (l28.fvalue(pv, l280.fvalue(pv, v748)) !== l5.value ? l187.fvalue(pv, l185.fvalue(pv, v748), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()) : (function(v749){ + return l183.fvalue(pv, "case ", l41.fvalue(pv, l192.fvalue(pv, v749)), ":", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })(l203.fvalue(pv, v748, (function(){ + var symbol = l204; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l201))))); + return l5.value; + })(); + (v747 = (function(){ + var tmp = v747; + return tmp === l5.value? l5.value: tmp.cdr; + })()); + }return l5.value; + })(); + return v746; + })((function(){ + var tmp = v739; + return tmp === l5.value? l5.value: tmp.cdr; + })(),l5.value); + })(), "default:", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " break tbloop;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })("")), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "catch (jump) {", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " if (jump.type == 'tagbody' && jump.id == ", v742, ")", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " tagbody_", v742, " = jump.label;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " else", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " throw(jump);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return ", l185.fvalue(pv, l5.value), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + } + finally { + l204.value = v744; + } + })(l281.fvalue(pv, v742, v739),l5.value); + })((function(){ + var symbol = l278; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()); - })); - })(({car: v754, cdr: v753})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l302 = {name: "<="}; -((l289).value = ({car: l45.fvalue(pv, l302, (function (values,v758){ - checkArgsAtLeast(arguments, 2); - var v757= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v757 = {car: arguments[i], cdr: - v757}; - return (function(){ - return (function(v759){ - return l293.fvalue(values, v759, (function (values,v760){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l184.fvalue(pv, l297.fvalue(pv, v760, "<=")), ";", (function(){ + } + catch (cf){ + if (cf.type == 'block' && cf.id == 230) + return values.apply(this, forcemv(cf.values)); + else + throw cf; + } + })(); + })); + var v750 = ({car: v738, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v750); +})(); +var l284 = {name: "GO"}; +(function(){ + var v751 = l45.fvalue(pv, l284, (function (values,v752){ + checkArgs(arguments, 2); + return (function(){ + return (function(v753,v754){ + (l13.fvalue(pv, v753) !== l5.value ? (function(){ + throw l149.fvalue(pv, "Unknown tag `", v754, "'."); + })() : l5.value); + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()); - })); - })(({car: v758, cdr: v757})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l20, (function (values,v762){ - checkArgsAtLeast(arguments, 2); - var v761= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v761 = {car: arguments[i], cdr: - v761}; - return (function(){ - return (function(v763){ - return l293.fvalue(values, v763, (function (values,v764){ - checkArgs(arguments, 2); - return l183.fvalue(values, "return ", l184.fvalue(pv, l297.fvalue(pv, v764, "==")), ";", (function(){ + })(), l187.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l40.fvalue(pv, l192.fvalue(pv, v753)), ", ", "label: ", l41.fvalue(pv, l192.fvalue(pv, v753)), ", ", "message: 'Attempt to GO to non-existing tag ", v754, "'", "})", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()); - })); - })(({car: v762, cdr: v761})); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l303 = {name: "NUMBERP"}; -((l289).value = ({car: l45.fvalue(pv, l303, (function (values,v765){ - checkArgs(arguments, 2); - return (function(){ - return (function(v766){ - return l184.fvalue(values, l183.fvalue(pv, "(typeof (", v766, ") == \"number\")")); - })(l185.fvalue(pv, v765)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l304 = {name: "FLOOR"}; -((l289).value = ({car: l45.fvalue(pv, l304, (function (values,v767){ - checkArgs(arguments, 2); - return (function(){ - return (function(v768){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; + })()), "})()"); + })(l203.fvalue(pv, v752, (function(){ + var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v768, ";", (function(){ + })(), l201),(((function(){ + var tmp = v752; + return (typeof tmp == 'object' && 'name' in tmp); + })()?l4.value: l5.value) !== l5.value ? (v752).name : (l86.fvalue(pv, v752) !== l5.value ? l18.fvalue(pv, v752) : l5.value))); + })(); + })); + var v755 = ({car: v751, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v755); +})(); +var l285 = {name: "UNWIND-PROTECT"}; +(function(){ + var v756 = l45.fvalue(pv, l285, (function (values,v758){ + checkArgsAtLeast(arguments, 2); + var v757= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v757 = {car: arguments[i], cdr: + v757}; + return (function(){ + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + })(), l187.fvalue(pv, "var ret = ", l185.fvalue(pv, l5.value), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + })(), "try {", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l183.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ + })(), l187.fvalue(pv, "ret = ", l185.fvalue(pv, v758), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), "})()"); - })(l185.fvalue(pv, v767)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l29, (function (values,v769,v770){ - checkArgs(arguments, 3); - return (function(){ - return (function(v771,v772){ - return l183.fvalue(values, "({car: ", v771, ", cdr: ", v772, "})"); - })(l185.fvalue(pv, v769),l185.fvalue(pv, v770)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l30, (function (values,v773){ - checkArgs(arguments, 2); - return (function(){ - return (function(v774){ - return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){ + })()), "} finally {", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "var tmp = ", v774, ";", (function(){ + })(), l187.fvalue(pv, l246.fvalue(pv, v757)), "}", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){ + })(), "return ret;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()")); - })(l185.fvalue(pv, v773)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l31, (function (values,v775){ - checkArgs(arguments, 2); - return (function(){ - return (function(v776){ + })()), "})()"); + })(); + })); + var v759 = ({car: v756, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v759); +})(); +var l286 = {name: "MULTIPLE-VALUE-CALL"}; +(function(){ + var v760 = l45.fvalue(pv, l286, (function (values,v762){ + checkArgsAtLeast(arguments, 2); + var v761= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v761 = {car: arguments[i], cdr: + v761}; + return (function(){ return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "var tmp = ", v776, ";", (function(){ + })(), l187.fvalue(pv, "var func = ", l185.fvalue(pv, v762), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp === ", l185.fvalue(pv, l5.value), "? ", l185.fvalue(pv, l5.value), ": tmp.car;", (function(){ + })(), "var args = [", ((function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? "values" : "pv"), "];", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()"); - })(l185.fvalue(pv, v775)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l32, (function (values,v777){ - checkArgs(arguments, 2); - return (function(){ - return (function(v778){ - return l183.fvalue(values, "(function(){", (function(){ + })(), "return ", l183.fvalue(pv, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "var tmp = ", v778, ";", (function(){ + })(), l187.fvalue(pv, "var values = mv;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return tmp === ", l185.fvalue(pv, l5.value), "? ", l185.fvalue(pv, l5.value), ": tmp.cdr;", (function(){ + })(), "var vs;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()"); - })(l185.fvalue(pv, v777)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l120, (function (values,v779,v780){ - checkArgs(arguments, 3); - return (function(){ - return (function(v781,v782){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v781, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "(x.car = ", v782, ", x)"), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v779),l185.fvalue(pv, v780)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l121, (function (values,v783,v784){ - checkArgs(arguments, 3); - return (function(){ - return (function(v785,v786){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v785, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "(x.cdr = ", v786, ", x)"), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v783),l185.fvalue(pv, v784)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l305 = {name: "SYMBOLP"}; -((l289).value = ({car: l45.fvalue(pv, l305, (function (values,v787){ - checkArgs(arguments, 2); - return (function(){ - return (function(v788){ - return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var tmp = ", v788, ";", (function(){ + })(), l153.fvalue(pv, (function (values,v763){ + checkArgs(arguments, 2); + return l183.fvalue(values, "vs = ", l185.fvalue(pv, v763, l4.value), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "args = args.concat(vs);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "else", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "args.push(vs);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())); + }), v761), "return func.apply(window, args);", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){ + })()), "})()"), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()")); - })(l185.fvalue(pv, v787)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l306 = {name: "MAKE-SYMBOL"}; -((l289).value = ({car: l45.fvalue(pv, l306, (function (values,v789){ - checkArgs(arguments, 2); - return (function(){ - return (function(v790){ + })()), "})()"); + })(); + })); + var v764 = ({car: v760, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v764); +})(); +var l287 = {name: "MULTIPLE-VALUE-PROG1"}; +(function(){ + var v765 = l45.fvalue(pv, l287, (function (values,v767){ + checkArgsAtLeast(arguments, 2); + var v766= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v766 = {car: arguments[i], cdr: + v766}; + return (function(){ return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "name", " = ", v790, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ - var symbol = l148; + })(), l187.fvalue(pv, "var args = ", l185.fvalue(pv, v767, (function(){ + var symbol = l188; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ + })()), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), l183.fvalue(pv, "return ", "({name: name})", ";", (function(){ + })(), l246.fvalue(pv, v766), "return args;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), "})()"); - })(l185.fvalue(pv, v789)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l307 = {name: "SYMBOL-NAME"}; -((l289).value = ({car: l45.fvalue(pv, l307, (function (values,v791){ - checkArgs(arguments, 2); - return (function(){ - return (function(v792){ - return l183.fvalue(values, "(", v792, ").name"); - })(l185.fvalue(pv, v791)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l248, (function (values,v793,v794){ - checkArgs(arguments, 3); - return (function(){ - return (function(v795,v796){ - return l183.fvalue(values, "(", v795, ").value = ", v796); - })(l185.fvalue(pv, v793),l185.fvalue(pv, v794)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l308 = {name: "FSET"}; -((l289).value = ({car: l45.fvalue(pv, l308, (function (values,v797,v798){ - checkArgs(arguments, 3); - return (function(){ - return (function(v799,v800){ - return l183.fvalue(values, "(", v799, ").fvalue = ", v800); - })(l185.fvalue(pv, v797),l185.fvalue(pv, v798)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l19, (function (values,v801){ - checkArgs(arguments, 2); - return (function(){ - return (function(v802){ - return l184.fvalue(values, l183.fvalue(pv, "(", v802, ".value !== undefined)")); - })(l185.fvalue(pv, v801)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l309 = {name: "SYMBOL-VALUE"}; -((l289).value = ({car: l45.fvalue(pv, l309, (function (values,v803){ - checkArgs(arguments, 2); - return (function(){ - return (function(v804){ + })()), "})()"); + })(); + })); + var v768 = ({car: v765, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v768); +})(); +var l288 = {name: "BACKQUOTE-EXPAND-1"}; +(function(){ + (l288).fvalue = (function(v771){ + ((v771)["fname"] = "BACKQUOTE-EXPAND-1"); + return v771; + })((function (values,v769){ + checkArgs(arguments, 2); + return (function(){ + return (((function(){ + var tmp = v769; + return (typeof tmp == 'object' && 'name' in tmp); + })()?l4.value: l5.value) !== l5.value ? l45.fvalue(values, l178, v769) : (l46.fvalue(pv, v769) !== l5.value ? v769 : ((((function(){ + var tmp = v769; + return tmp === l5.value? l5.value: tmp.car; + })() === l181)?l4.value: l5.value) !== l5.value ? (function(){ + var tmp = v769; + return tmp === l5.value? l5.value: tmp.car; + })() : ((((function(){ + var tmp = v769; + return tmp === l5.value? l5.value: tmp.car; + })() === l179)?l4.value: l5.value) !== l5.value ? l288.fvalue(values, l288.fvalue(pv, l34.fvalue(pv, v769))) : ({car: l66, cdr: l79.fvalue(pv, (function (values,v770){ + checkArgs(arguments, 2); + return ((l60.fvalue(pv, v770) !== l5.value ? (((function(){ + var tmp = v770; + return tmp === l5.value? l5.value: tmp.car; + })() === l181)?l4.value: l5.value) : l5.value) !== l5.value ? l45.fvalue(values, l45, l34.fvalue(pv, v770)) : ((l60.fvalue(pv, v770) !== l5.value ? (((function(){ + var tmp = v770; + return tmp === l5.value? l5.value: tmp.car; + })() === l180)?l4.value: l5.value) : l5.value) !== l5.value ? l34.fvalue(values, v770) : l45.fvalue(values, l45, l288.fvalue(pv, v770)))); + }), v769)}))))); + })(); + })); + return l288; +})(); +var l289 = {name: "BACKQUOTE-EXPAND"}; +(function(){ + (l289).fvalue = (function(v773){ + ((v773)["fname"] = "BACKQUOTE-EXPAND"); + return v773; + })((function (values,v772){ + checkArgs(arguments, 2); + return (function(){ + return ((l60.fvalue(pv, v772) !== l5.value ? (((function(){ + var tmp = v772; + return tmp === l5.value? l5.value: tmp.car; + })() === l179)?l4.value: l5.value) : l5.value) !== l5.value ? l288.fvalue(values, l34.fvalue(pv, v772)) : v772); + })(); + })); + return l289; +})(); +l179; +(function(){ + var v774 = l45.fvalue(pv, l179, (function (values,v775){ + checkArgs(arguments, 2); + return (function(){ + return l185.fvalue(values, l288.fvalue(pv, v775)); + })(); + })); + var v776 = ({car: v774, cdr: (function(){ + var symbol = l222; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l222).value = v776); +})(); +var l290 = {name: "*BUILTINS*"}; +(function(){ + (((l290.value !== undefined)?l4.value: l5.value) !== l5.value ? l5.value : ((l290).value = l5.value)); + return l290; +})(); +var l291 = {name: "DEFINE-RAW-BUILTIN"}; +l291; +var l292 = {name: "DEFINE-BUILTIN"}; +l292; +var l293 = {name: "TYPE-CHECK"}; +l293; +var l294 = {name: "VARIABLE-ARITY-CALL"}; +(function(){ + (l294).fvalue = (function(v789){ + ((v789)["fname"] = "VARIABLE-ARITY-CALL"); + return v789; + })((function (values,v777,v778){ + checkArgs(arguments, 3); + return (function(){ + (((function(){ + var tmp = v777; + 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(v779,v780,v781){ + (function(){ + return (function(v782,v783){ + (function(){ + while(v782 !== l5.value){ + (v783 = (function(){ + var tmp = v782; + return tmp === l5.value? l5.value: tmp.car; + })()); + (function(){ + (((typeof (v783) == "number")?l4.value: l5.value) !== l5.value ? (function(){ + var v784 = l18.fvalue(pv, v783); + var v785 = ({car: v784, cdr: v780}); + return (v780 = v785); + })() : (function(v786){ + (function(){ + var v787 = v786; + var v788 = ({car: v787, cdr: v780}); + return (v780 = v788); + })(); + return (v781 = l149.fvalue(pv, v781, l183.fvalue(pv, "var ", v786, " = ", l185.fvalue(pv, v783), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (typeof ", v786, " !== 'number') throw 'Not a number!';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()))); + })(l183.fvalue(pv, "x", (v779 = (function(){ + var x1 = v779; + if (typeof x1 !== 'number') throw 'Not a number!'; + return x1+1; + })())))); + return l5.value; + })(); + (v782 = (function(){ + var tmp = v782; + return tmp === l5.value? l5.value: tmp.cdr; + })()); + }return l5.value; + })(); + return l5.value; + })(v777,l5.value); + })(); + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, v781, (function(){ + var f = v778; + return (typeof f === 'function'? f: f.fvalue)(pv, l68.fvalue(pv, v780)) + })()), "})()"); + })(0,l5,""); + })(); + })); + return l294; +})(); +var l295 = {name: "VARIABLE-ARITY"}; +l295; +var l296 = {name: "NUM-OP-NUM"}; +(function(){ + (l296).fvalue = (function(v793){ + ((v793)["fname"] = "NUM-OP-NUM"); + return v793; + })((function (values,v790,v791,v792){ + checkArgs(arguments, 4); + return (function(){ return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "var symbol = ", v804, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var value = symbol.value;", (function(){ + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v790, ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){ + })()), l183.fvalue(pv, "var ", "y", " = ", v792, ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return value;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l185.fvalue(pv, v803)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l256, (function (values,v805){ - checkArgs(arguments, 2); - return (function(){ - return (function(v806){ - return l183.fvalue(values, "(function(){", (function(){ + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "var symbol = ", v806, ";", (function(){ + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "var func = symbol.fvalue;", (function(){ + })())), l183.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){ + })(), l187.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return func;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l185.fvalue(pv, v805)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l310 = {name: "SYMBOL-PLIST"}; -((l289).value = ({car: l45.fvalue(pv, l310, (function (values,v807){ - checkArgs(arguments, 2); - return (function(){ - return (function(v808){ - return l183.fvalue(values, "((", v808, ").plist || ", l185.fvalue(pv, l5.value), ")"); - })(l185.fvalue(pv, v807)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l311 = {name: "LAMBDA-CODE"}; -((l289).value = ({car: l45.fvalue(pv, l311, (function (values,v809){ - checkArgs(arguments, 2); - return (function(){ - return (function(v810){ - return l183.fvalue(values, "(", v810, ").toString()"); - })(l185.fvalue(pv, v809)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l312 = {name: "EQ"}; -((l289).value = ({car: l45.fvalue(pv, l312, (function (values,v811,v812){ - checkArgs(arguments, 3); - return (function(){ - return (function(v813,v814){ - return l184.fvalue(values, l183.fvalue(pv, "(", v813, " === ", v814, ")")); - })(l185.fvalue(pv, v811),l185.fvalue(pv, v812)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l313 = {name: "EQUAL"}; -((l289).value = ({car: l45.fvalue(pv, l313, (function (values,v815,v816){ - checkArgs(arguments, 3); - return (function(){ - return (function(v817,v818){ - return l184.fvalue(values, l183.fvalue(pv, "(", v817, " == ", v818, ")")); - })(l185.fvalue(pv, v815),l185.fvalue(pv, v816)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l314 = {name: "CHAR-TO-STRING"}; -((l289).value = ({car: l45.fvalue(pv, l314, (function (values,v819){ - checkArgs(arguments, 2); - return (function(){ - return (function(v820){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v820, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v819)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l315 = {name: "STRINGP"}; -((l289).value = ({car: l45.fvalue(pv, l315, (function (values,v821){ - checkArgs(arguments, 2); - return (function(){ - return (function(v822){ - return l184.fvalue(values, l183.fvalue(pv, "(typeof(", v822, ") == \"string\")")); - })(l185.fvalue(pv, v821)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l316 = {name: "STRING-UPCASE"}; -((l289).value = ({car: l45.fvalue(pv, l316, (function (values,v823){ - checkArgs(arguments, 2); - return (function(){ - return (function(v824){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v824, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v823)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l317 = {name: "STRING-LENGTH"}; -((l289).value = ({car: l45.fvalue(pv, l317, (function (values,v825){ - checkArgs(arguments, 2); - return (function(){ - return (function(v826){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v826, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", "x.length", ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v825)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l318 = {name: "SLICE"}; -((l289).value = ({car: l45.fvalue(pv, l318, (function (values,v827,v828,v829){ - checkArgsAtLeast(arguments, 3); - checkArgsAtMost(arguments, 4); - var v829; - switch(arguments.length-1){ - case 2: - v829=l5.value; - default: break; - } - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var str = ", l185.fvalue(pv, v827), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var a = ", l185.fvalue(pv, v828), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var b;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), (v829 !== l5.value ? l183.fvalue(pv, "b = ", l185.fvalue(pv, v829), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()) : l5.value), "return str.slice(a,b);", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l319 = {name: "CHAR"}; -((l289).value = ({car: l45.fvalue(pv, l319, (function (values,v830,v831){ - checkArgs(arguments, 3); - return (function(){ - return (function(v832,v833){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string", " = ", v832, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "var ", "index", " = ", v833, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v830),l185.fvalue(pv, v831)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l74, (function (values,v834,v835){ - checkArgs(arguments, 3); - return (function(){ - return (function(v836,v837){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string1", " = ", v836, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "var ", "string2", " = ", v837, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ + })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "x", v791, "y"), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })())), "})()"); - })(l185.fvalue(pv, v834),l185.fvalue(pv, v835)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l320 = {name: "FUNCALL"}; -((l289).value = ({car: l45.fvalue(pv, l320, (function (values,v839){ - checkArgsAtLeast(arguments, 2); - var v838= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v838 = {car: arguments[i], cdr: - v838}; - return (function(){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var f = ", l185.fvalue(pv, v839), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return (typeof f === 'function'? f: f.fvalue)(", l151.fvalue(pv, ({car: ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"), cdr: l79.fvalue(pv, (function(){ - var symbol = l185; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v838)}), ", "), ")"), "})()"); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l321 = {name: "APPLY"}; -((l289).value = ({car: l45.fvalue(pv, l321, (function (values,v841){ - checkArgsAtLeast(arguments, 2); - var v840= l5.value; - for (var i = arguments.length-1; i>=2; i--) - v840 = {car: arguments[i], cdr: - v840}; - return (function(){ - return (l13.fvalue(pv, v840) !== l5.value ? l183.fvalue(values, "(", l185.fvalue(pv, v841), ")()") : (function(v842,v843){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var f = ", l185.fvalue(pv, v841), ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var args = [", l151.fvalue(pv, ({car: ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? "values" : "pv"), cdr: l79.fvalue(pv, (function(){ - var symbol = l185; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v842)}), ", "), "];", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var tail = (", l185.fvalue(pv, v843), ");", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "while (tail != ", l185.fvalue(pv, l5.value), "){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " args.push(tail.car);", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), " tail = tail.cdr;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "}", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return (typeof f === 'function'? f : f.fvalue).apply(this, args);", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l92.fvalue(pv, v840),(function(){ - var tmp = l91.fvalue(pv, v840); - return tmp === l5.value? l5.value: tmp.car; - })())); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l322 = {name: "JS-EVAL"}; -((l289).value = ({car: l45.fvalue(pv, l322, (function (values,v844){ - checkArgs(arguments, 2); - return (function(){ - return (function(v845){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string", " = ", v845, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l183.fvalue(pv, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ + })(); + })); + return l296; +})(); +(function(){ + var v794 = l45.fvalue(pv, l63, (function (values){ + var v795= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v795 = {car: arguments[i], cdr: + v795}; + return (function(){ + return (l13.fvalue(pv, v795) !== l5.value ? "0" : l294.fvalue(values, v795, (function (values,v796){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l151.fvalue(pv, v796, "+"), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + }))); + })(); + })); + var v797 = ({car: v794, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v797); +})(); +(function(){ + var v798 = l45.fvalue(pv, l64, (function (values,v800){ + checkArgsAtLeast(arguments, 2); + var v799= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v799 = {car: arguments[i], cdr: + v799}; + return (function(){ + return (function(v801){ + return l294.fvalue(values, v801, (function (values,v802){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", (l13.fvalue(pv, v799) !== l5.value ? l149.fvalue(pv, "-", (function(){ + var tmp = v802; + return tmp === l5.value? l5.value: tmp.car; + })()) : l151.fvalue(pv, v802, "-")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v800, cdr: v799})); + })(); + })); + var v803 = ({car: v798, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v803); +})(); +(function(){ + var v804 = l45.fvalue(pv, l21, (function (values){ + var v805= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v805 = {car: arguments[i], cdr: + v805}; + return (function(){ + return (l13.fvalue(pv, v805) !== l5.value ? "1" : l294.fvalue(values, v805, (function (values,v806){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l151.fvalue(pv, v806, "*"), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + }))); + })(); + })); + var v807 = ({car: v804, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v807); +})(); +(function(){ + var v808 = l45.fvalue(pv, l22, (function (values,v810){ + checkArgsAtLeast(arguments, 2); + var v809= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v809 = {car: arguments[i], cdr: + v809}; + return (function(){ + return (function(v811){ + return l294.fvalue(values, v811, (function (values,v812){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", (l13.fvalue(pv, v809) !== l5.value ? l149.fvalue(pv, "1 /", (function(){ + var tmp = v812; + return tmp === l5.value? l5.value: tmp.car; + })()) : l151.fvalue(pv, v812, "/")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v810, cdr: v809})); + })(); + })); + var v813 = ({car: v808, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v813); +})(); +var l297 = {name: "MOD"}; +(function(){ + var v814 = l45.fvalue(pv, l297, (function (values,v815,v816){ + checkArgs(arguments, 3); + return (function(){ + return (function(v817,v818){ + return l296.fvalue(values, v817, "%", v818); + })(l185.fvalue(pv, v815),l185.fvalue(pv, v816)); + })(); + })); + var v819 = ({car: v814, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v819); +})(); +var l298 = {name: "COMPARISON-CONJUNTION"}; +(function(){ + (l298).fvalue = (function(v822){ + ((v822)["fname"] = "COMPARISON-CONJUNTION"); + return v822; + })((function (values,v820,v821){ + checkArgs(arguments, 3); + return (function(){ + return (l13.fvalue(pv, (function(){ + var tmp = v820; + return tmp === l5.value? l5.value: tmp.cdr; + })()) !== l5.value ? "true" : (l13.fvalue(pv, l36.fvalue(pv, v820)) !== l5.value ? l149.fvalue(values, (function(){ + var tmp = v820; + return tmp === l5.value? l5.value: tmp.car; + })(), v821, l34.fvalue(pv, v820)) : l149.fvalue(values, (function(){ + var tmp = v820; + return tmp === l5.value? l5.value: tmp.car; + })(), v821, l34.fvalue(pv, v820), " && ", l298.fvalue(pv, (function(){ + var tmp = v820; + return tmp === l5.value? l5.value: tmp.cdr; + })(), v821)))); + })(); + })); + return l298; +})(); +var l299 = {name: "DEFINE-BUILTIN-COMPARISON"}; +l299; +var l300 = {name: ">"}; +(function(){ + var v823 = l45.fvalue(pv, l300, (function (values,v825){ + checkArgsAtLeast(arguments, 2); + var v824= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v824 = {car: arguments[i], cdr: + v824}; + return (function(){ + return (function(v826){ + return l294.fvalue(values, v826, (function (values,v827){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v827, ">")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v825, cdr: v824})); + })(); + })); + var v828 = ({car: v823, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v828); +})(); +var l301 = {name: "<"}; +(function(){ + var v829 = l45.fvalue(pv, l301, (function (values,v831){ + checkArgsAtLeast(arguments, 2); + var v830= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v830 = {car: arguments[i], cdr: + v830}; + return (function(){ + return (function(v832){ + return l294.fvalue(values, v832, (function (values,v833){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v833, "<")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v831, cdr: v830})); + })(); + })); + var v834 = ({car: v829, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v834); +})(); +var l302 = {name: ">="}; +(function(){ + var v835 = l45.fvalue(pv, l302, (function (values,v837){ + checkArgsAtLeast(arguments, 2); + var v836= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v836 = {car: arguments[i], cdr: + v836}; + return (function(){ + return (function(v838){ + return l294.fvalue(values, v838, (function (values,v839){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v839, ">=")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v837, cdr: v836})); + })(); + })); + var v840 = ({car: v835, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v840); +})(); +var l303 = {name: "<="}; +(function(){ + var v841 = l45.fvalue(pv, l303, (function (values,v843){ + checkArgsAtLeast(arguments, 2); + var v842= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v842 = {car: arguments[i], cdr: + v842}; + return (function(){ + return (function(v844){ + return l294.fvalue(values, v844, (function (values,v845){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v845, "<=")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v843, cdr: v842})); + })(); + })); + var v846 = ({car: v841, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v846); +})(); +(function(){ + var v847 = l45.fvalue(pv, l20, (function (values,v849){ + checkArgsAtLeast(arguments, 2); + var v848= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v848 = {car: arguments[i], cdr: + v848}; + return (function(){ + return (function(v850){ + return l294.fvalue(values, v850, (function (values,v851){ + checkArgs(arguments, 2); + return l183.fvalue(values, "return ", l184.fvalue(pv, l298.fvalue(pv, v851, "==")), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()); + })); + })(({car: v849, cdr: v848})); + })(); + })); + var v852 = ({car: v847, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v852); +})(); +var l304 = {name: "NUMBERP"}; +(function(){ + var v853 = l45.fvalue(pv, l304, (function (values,v854){ + checkArgs(arguments, 2); + return (function(){ + return (function(v855){ + return l184.fvalue(values, l183.fvalue(pv, "(typeof (", v855, ") == \"number\")")); + })(l185.fvalue(pv, v854)); + })(); + })); + var v856 = ({car: v853, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v856); +})(); +var l305 = {name: "FLOOR"}; +(function(){ + var v857 = l45.fvalue(pv, l305, (function (values,v858){ + checkArgs(arguments, 2); + return (function(){ + return (function(v859){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v859, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v858)); + })(); + })); + var v860 = ({car: v857, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v860); +})(); +(function(){ + var v861 = l45.fvalue(pv, l29, (function (values,v862,v863){ + checkArgs(arguments, 3); + return (function(){ + return (function(v864,v865){ + return l183.fvalue(values, "({car: ", v864, ", cdr: ", v865, "})"); + })(l185.fvalue(pv, v862),l185.fvalue(pv, v863)); + })(); + })); + var v866 = ({car: v861, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v866); +})(); +(function(){ + var v867 = l45.fvalue(pv, l30, (function (values,v868){ + checkArgs(arguments, 2); + return (function(){ + return (function(v869){ + return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var tmp = ", v869, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()")); + })(l185.fvalue(pv, v868)); + })(); + })); + var v870 = ({car: v867, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v870); +})(); +(function(){ + var v871 = l45.fvalue(pv, l31, (function (values,v872){ + checkArgs(arguments, 2); + return (function(){ + return (function(v873){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var tmp = ", v873, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return tmp === ", l185.fvalue(pv, l5.value), "? ", l185.fvalue(pv, l5.value), ": tmp.car;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v872)); + })(); + })); + var v874 = ({car: v871, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v874); +})(); +(function(){ + var v875 = l45.fvalue(pv, l32, (function (values,v876){ + checkArgs(arguments, 2); + return (function(){ + return (function(v877){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var tmp = ", v877, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return tmp === ", l185.fvalue(pv, l5.value), "? ", l185.fvalue(pv, l5.value), ": tmp.cdr;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v876)); + })(); + })); + var v878 = ({car: v875, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v878); +})(); +(function(){ + var v879 = l45.fvalue(pv, l120, (function (values,v880,v881){ + checkArgs(arguments, 3); + return (function(){ + return (function(v882,v883){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v882, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "(x.car = ", v883, ", x)"), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v880),l185.fvalue(pv, v881)); + })(); + })); + var v884 = ({car: v879, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v884); +})(); +(function(){ + var v885 = l45.fvalue(pv, l121, (function (values,v886,v887){ + checkArgs(arguments, 3); + return (function(){ + return (function(v888,v889){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v888, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", l183.fvalue(pv, "(x.cdr = ", v889, ", x)"), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v886),l185.fvalue(pv, v887)); + })(); + })); + var v890 = ({car: v885, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v890); +})(); +var l306 = {name: "SYMBOLP"}; +(function(){ + var v891 = l45.fvalue(pv, l306, (function (values,v892){ + checkArgs(arguments, 2); + return (function(){ + return (function(v893){ + return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var tmp = ", v893, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()")); + })(l185.fvalue(pv, v892)); + })(); + })); + var v894 = ({car: v891, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v894); +})(); +var l307 = {name: "MAKE-SYMBOL"}; +(function(){ + var v895 = l45.fvalue(pv, l307, (function (values,v896){ + checkArgs(arguments, 2); + return (function(){ + return (function(v897){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "name", " = ", v897, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "({name: name})", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v896)); + })(); + })); + var v898 = ({car: v895, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v898); +})(); +var l308 = {name: "SYMBOL-NAME"}; +(function(){ + var v899 = l45.fvalue(pv, l308, (function (values,v900){ + checkArgs(arguments, 2); + return (function(){ + return (function(v901){ + return l183.fvalue(values, "(", v901, ").name"); + })(l185.fvalue(pv, v900)); + })(); + })); + var v902 = ({car: v899, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v902); +})(); +(function(){ + var v903 = l45.fvalue(pv, l248, (function (values,v904,v905){ + checkArgs(arguments, 3); + return (function(){ + return (function(v906,v907){ + return l183.fvalue(values, "(", v906, ").value = ", v907); + })(l185.fvalue(pv, v904),l185.fvalue(pv, v905)); + })(); + })); + var v908 = ({car: v903, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v908); +})(); +var l309 = {name: "FSET"}; +(function(){ + var v909 = l45.fvalue(pv, l309, (function (values,v910,v911){ + checkArgs(arguments, 3); + return (function(){ + return (function(v912,v913){ + return l183.fvalue(values, "(", v912, ").fvalue = ", v913); + })(l185.fvalue(pv, v910),l185.fvalue(pv, v911)); + })(); + })); + var v914 = ({car: v909, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v914); +})(); +(function(){ + var v915 = l45.fvalue(pv, l19, (function (values,v916){ + checkArgs(arguments, 2); + return (function(){ + return (function(v917){ + return l184.fvalue(values, l183.fvalue(pv, "(", v917, ".value !== undefined)")); + })(l185.fvalue(pv, v916)); + })(); + })); + var v918 = ({car: v915, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v918); +})(); +var l310 = {name: "SYMBOL-VALUE"}; +(function(){ + var v919 = l45.fvalue(pv, l310, (function (values,v920){ + checkArgs(arguments, 2); + return (function(){ + return (function(v921){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var symbol = ", v921, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "var value = symbol.value;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return value;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v920)); + })(); + })); + var v922 = ({car: v919, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v922); +})(); +(function(){ + var v923 = l45.fvalue(pv, l256, (function (values,v924){ + checkArgs(arguments, 2); + return (function(){ + return (function(v925){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var symbol = ", v925, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "var func = symbol.fvalue;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return func;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v924)); + })(); + })); + var v926 = ({car: v923, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v926); +})(); +var l311 = {name: "SYMBOL-PLIST"}; +(function(){ + var v927 = l45.fvalue(pv, l311, (function (values,v928){ + checkArgs(arguments, 2); + return (function(){ + return (function(v929){ + return l183.fvalue(values, "((", v929, ").plist || ", l185.fvalue(pv, l5.value), ")"); + })(l185.fvalue(pv, v928)); + })(); + })); + var v930 = ({car: v927, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v930); +})(); +var l312 = {name: "LAMBDA-CODE"}; +(function(){ + var v931 = l45.fvalue(pv, l312, (function (values,v932){ + checkArgs(arguments, 2); + return (function(){ + return (function(v933){ + return l183.fvalue(values, "(", v933, ").toString()"); + })(l185.fvalue(pv, v932)); + })(); + })); + var v934 = ({car: v931, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v934); +})(); +var l313 = {name: "EQ"}; +(function(){ + var v935 = l45.fvalue(pv, l313, (function (values,v936,v937){ + checkArgs(arguments, 3); + return (function(){ + return (function(v938,v939){ + return l184.fvalue(values, l183.fvalue(pv, "(", v938, " === ", v939, ")")); + })(l185.fvalue(pv, v936),l185.fvalue(pv, v937)); + })(); + })); + var v940 = ({car: v935, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v940); +})(); +var l314 = {name: "EQUAL"}; +(function(){ + var v941 = l45.fvalue(pv, l314, (function (values,v942,v943){ + checkArgs(arguments, 3); + return (function(){ + return (function(v944,v945){ + return l184.fvalue(values, l183.fvalue(pv, "(", v944, " == ", v945, ")")); + })(l185.fvalue(pv, v942),l185.fvalue(pv, v943)); + })(); + })); + var v946 = ({car: v941, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v946); +})(); +var l315 = {name: "CHAR-TO-STRING"}; +(function(){ + var v947 = l45.fvalue(pv, l315, (function (values,v948){ + checkArgs(arguments, 2); + return (function(){ + return (function(v949){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v949, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v948)); + })(); + })); + var v950 = ({car: v947, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v950); +})(); +var l316 = {name: "STRINGP"}; +(function(){ + var v951 = l45.fvalue(pv, l316, (function (values,v952){ + checkArgs(arguments, 2); + return (function(){ + return (function(v953){ + return l184.fvalue(values, l183.fvalue(pv, "(typeof(", v953, ") == \"string\")")); + })(l185.fvalue(pv, v952)); + })(); + })); + var v954 = ({car: v951, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v954); +})(); +var l317 = {name: "STRING-UPCASE"}; +(function(){ + var v955 = l45.fvalue(pv, l317, (function (values,v956){ + checkArgs(arguments, 2); + return (function(){ + return (function(v957){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v957, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v956)); + })(); + })); + var v958 = ({car: v955, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v958); +})(); +var l318 = {name: "STRING-LENGTH"}; +(function(){ + var v959 = l45.fvalue(pv, l318, (function (values,v960){ + checkArgs(arguments, 2); + return (function(){ + return (function(v961){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v961, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "x.length", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v960)); + })(); + })); + var v962 = ({car: v959, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v962); +})(); +var l319 = {name: "SLICE"}; +(function(){ + var v963 = l45.fvalue(pv, l319, (function (values,v964,v965,v966){ + checkArgsAtLeast(arguments, 3); + checkArgsAtMost(arguments, 4); + var v966; + switch(arguments.length-1){ + case 2: + v966=l5.value; + default: break; + } + return (function(){ + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){ + })(), l187.fvalue(pv, "var str = ", l185.fvalue(pv, v964), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "v = [v];", (function(){ + })(), "var a = ", l185.fvalue(pv, v965), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "v['multiple-value'] = true;", (function(){ + })(), "var b;", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "}", (function(){ + })(), (v966 !== l5.value ? l183.fvalue(pv, "b = ", l185.fvalue(pv, v966), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), "return values.apply(this, v);", (function(){ + })()) : l5.value), "return str.slice(a,b);", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()") : "eval.apply(window, [string])"), ";", (function(){ + })()), "})()"); + })(); + })); + var v967 = ({car: v963, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v967); +})(); +var l320 = {name: "CHAR"}; +(function(){ + var v968 = l45.fvalue(pv, l320, (function (values,v969,v970){ + checkArgs(arguments, 3); + return (function(){ + return (function(v971,v972){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string", " = ", v971, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "var ", "index", " = ", v972, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v969),l185.fvalue(pv, v970)); + })(); + })); + var v973 = ({car: v968, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v973); +})(); +(function(){ + var v974 = l45.fvalue(pv, l74, (function (values,v975,v976){ + checkArgs(arguments, 3); + return (function(){ + return (function(v977,v978){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string1", " = ", v977, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "var ", "string2", " = ", v978, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v975),l185.fvalue(pv, v976)); + })(); + })); + var v979 = ({car: v974, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v979); +})(); +var l321 = {name: "FUNCALL"}; +(function(){ + var v980 = l45.fvalue(pv, l321, (function (values,v982){ + checkArgsAtLeast(arguments, 2); + var v981= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v981 = {car: arguments[i], cdr: + v981}; + return (function(){ + return l183.fvalue(values, "(function(){", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), "})()"); - })(l185.fvalue(pv, v844)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l323 = {name: "ERROR"}; -((l289).value = ({car: l45.fvalue(pv, l323, (function (values,v846){ - checkArgs(arguments, 2); - return (function(){ - return (function(v847){ - return l183.fvalue(values, "(function(){", (function(){ + })(), l187.fvalue(pv, "var f = ", l185.fvalue(pv, v982), ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l187.fvalue(pv, "throw ", v847, ";", (function(){ - var symbol = l148; + })(), "return (typeof f === 'function'? f: f.fvalue)(", l151.fvalue(pv, ({car: ((function(){ + var symbol = l188; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()), "})()"); - })(l185.fvalue(pv, v846)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l324 = {name: "NEW"}; -((l289).value = ({car: l45.fvalue(pv, l324, (function (values){ - checkArgsAtMost(arguments, 1); - return (function(){ + })() !== l5.value ? "values" : "pv"), cdr: l79.fvalue(pv, (function(){ + var symbol = l185; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v981)}), ", "), ")"), "})()"); + })(); + })); + var v983 = ({car: v980, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v983); +})(); +var l322 = {name: "APPLY"}; +(function(){ + var v984 = l45.fvalue(pv, l322, (function (values,v986){ + checkArgsAtLeast(arguments, 2); + var v985= l5.value; + for (var i = arguments.length-1; i>=2; i--) + v985 = {car: arguments[i], cdr: + v985}; + return (function(){ + return (l13.fvalue(pv, v985) !== l5.value ? l183.fvalue(values, "(", l185.fvalue(pv, v986), ")()") : (function(v987,v988){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var f = ", l185.fvalue(pv, v986), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "var args = [", l151.fvalue(pv, ({car: ((function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? "values" : "pv"), cdr: l79.fvalue(pv, (function(){ + var symbol = l185; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v987)}), ", "), "];", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "var tail = (", l185.fvalue(pv, v988), ");", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "while (tail != ", l185.fvalue(pv, l5.value), "){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " args.push(tail.car);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), " tail = tail.cdr;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return (typeof f === 'function'? f : f.fvalue).apply(this, args);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l92.fvalue(pv, v985),(function(){ + var tmp = l91.fvalue(pv, v985); + return tmp === l5.value? l5.value: tmp.car; + })())); + })(); + })); + var v989 = ({car: v984, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v989); +})(); +var l323 = {name: "JS-EVAL"}; +(function(){ + var v990 = l45.fvalue(pv, l323, (function (values,v991){ + checkArgs(arguments, 2); + return (function(){ + return (function(v992){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "string", " = ", v992, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", ((function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? l183.fvalue(pv, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "v = [v];", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "v['multiple-value'] = true;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "}", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return values.apply(this, v);", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()") : "eval.apply(window, [string])"), ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v991)); + })(); + })); + var v993 = ({car: v990, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v993); +})(); +var l324 = {name: "ERROR"}; +(function(){ + var v994 = l45.fvalue(pv, l324, (function (values,v995){ + checkArgs(arguments, 2); + return (function(){ + return (function(v996){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw ", v996, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v995)); + })(); + })); + var v997 = ({car: v994, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v997); +})(); +var l325 = {name: "NEW"}; +(function(){ + var v998 = l45.fvalue(pv, l325, (function (values){ + checkArgsAtMost(arguments, 1); + return (function(){ + return (function(){ + return "{}"; + })(); + })(); + })); + var v999 = ({car: v998, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v999); +})(); +var l326 = {name: "OBJECTP"}; +(function(){ + var v1000 = l45.fvalue(pv, l326, (function (values,v1001){ + checkArgs(arguments, 2); + return (function(){ + return (function(v1002){ + return l184.fvalue(values, l183.fvalue(pv, "(typeof (", v1002, ") === 'object')")); + })(l185.fvalue(pv, v1001)); + })(); + })); + var v1003 = ({car: v1000, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1003); +})(); +var l327 = {name: "OGET"}; +(function(){ + var v1004 = l45.fvalue(pv, l327, (function (values,v1005,v1006){ + checkArgs(arguments, 3); + return (function(){ + return (function(v1007,v1008){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var tmp = ", "(", v1007, ")[", v1008, "];", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return tmp == undefined? ", l185.fvalue(pv, l5.value), ": tmp ;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v1005),l185.fvalue(pv, v1006)); + })(); + })); + var v1009 = ({car: v1004, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1009); +})(); +var l328 = {name: "OSET"}; +(function(){ + var v1010 = l45.fvalue(pv, l328, (function (values,v1011,v1012,v1013){ + checkArgs(arguments, 4); + return (function(){ + return (function(v1014,v1015,v1016){ + return l183.fvalue(values, "((", v1014, ")[", v1015, "] = ", v1016, ")"); + })(l185.fvalue(pv, v1011),l185.fvalue(pv, v1012),l185.fvalue(pv, v1013)); + })(); + })); + var v1017 = ({car: v1010, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1017); +})(); +var l329 = {name: "IN"}; +(function(){ + var v1018 = l45.fvalue(pv, l329, (function (values,v1019,v1020){ + checkArgs(arguments, 3); + return (function(){ + return (function(v1021,v1022){ + return l184.fvalue(values, l183.fvalue(pv, "((", v1021, ") in (", v1022, "))")); + })(l185.fvalue(pv, v1019),l185.fvalue(pv, v1020)); + })(); + })); + var v1023 = ({car: v1018, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1023); +})(); +var l330 = {name: "FUNCTIONP"}; +(function(){ + var v1024 = l45.fvalue(pv, l330, (function (values,v1025){ + checkArgs(arguments, 2); + return (function(){ + return (function(v1026){ + return l184.fvalue(values, l183.fvalue(pv, "(typeof ", v1026, " == 'function')")); + })(l185.fvalue(pv, v1025)); + })(); + })); + var v1027 = ({car: v1024, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1027); +})(); +var l331 = {name: "WRITE-STRING"}; +(function(){ + var v1028 = l45.fvalue(pv, l331, (function (values,v1029){ + checkArgs(arguments, 2); + return (function(){ + return (function(v1030){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v1030, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), l183.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })())), "})()"); + })(l185.fvalue(pv, v1029)); + })(); + })); + var v1031 = ({car: v1028, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1031); +})(); +var l332 = {name: "MAKE-ARRAY"}; +(function(){ + var v1032 = l45.fvalue(pv, l332, (function (values,v1033){ + checkArgs(arguments, 2); + return (function(){ + return (function(v1034){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var r = [];", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "for (var i = 0; i < ", v1034, "; i++)", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "r.push(", l185.fvalue(pv, l5.value), ");", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "return r;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v1033)); + })(); + })); + var v1035 = ({car: v1032, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1035); +})(); +var l333 = {name: "ARRAYP"}; +(function(){ + var v1036 = l45.fvalue(pv, l333, (function (values,v1037){ + checkArgs(arguments, 2); + return (function(){ + return (function(v1038){ + return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var x = ", v1038, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return typeof x === 'object' && 'length' in x;"), "})()")); + })(l185.fvalue(pv, v1037)); + })(); + })); + var v1039 = ({car: v1036, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1039); +})(); +var l334 = {name: "AREF"}; +(function(){ + var v1040 = l45.fvalue(pv, l334, (function (values,v1041,v1042){ + checkArgs(arguments, 3); + return (function(){ + return (function(v1043,v1044){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var x = ", "(", v1043, ")[", v1044, "];", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (x === undefined) throw 'Out of range';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return x;", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v1041),l185.fvalue(pv, v1042)); + })(); + })); + var v1045 = ({car: v1040, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1045); +})(); +var l335 = {name: "ASET"}; +(function(){ + var v1046 = l45.fvalue(pv, l335, (function (values,v1047,v1048,v1049){ + checkArgs(arguments, 4); return (function(){ - return "{}"; + return (function(v1050,v1051,v1052){ + return l183.fvalue(values, "(function(){", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), l187.fvalue(pv, "var x = ", v1050, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "var i = ", v1051, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })(), "return x[i] = ", v1052, ";", (function(){ + var symbol = l148; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()), "})()"); + })(l185.fvalue(pv, v1047),l185.fvalue(pv, v1048),l185.fvalue(pv, v1049)); })(); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l325 = {name: "OBJECTP"}; -((l289).value = ({car: l45.fvalue(pv, l325, (function (values,v848){ - checkArgs(arguments, 2); - return (function(){ - return (function(v849){ - return l184.fvalue(values, l183.fvalue(pv, "(typeof (", v849, ") === 'object')")); - })(l185.fvalue(pv, v848)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l326 = {name: "OGET"}; -((l289).value = ({car: l45.fvalue(pv, l326, (function (values,v850,v851){ - checkArgs(arguments, 3); - return (function(){ - return (function(v852,v853){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var tmp = ", "(", v852, ")[", v853, "];", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return tmp == undefined? ", l185.fvalue(pv, l5.value), ": tmp ;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l185.fvalue(pv, v850),l185.fvalue(pv, v851)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l327 = {name: "OSET"}; -((l289).value = ({car: l45.fvalue(pv, l327, (function (values,v854,v855,v856){ - checkArgs(arguments, 4); - return (function(){ - return (function(v857,v858,v859){ - return l183.fvalue(values, "((", v857, ")[", v858, "] = ", v859, ")"); - })(l185.fvalue(pv, v854),l185.fvalue(pv, v855),l185.fvalue(pv, v856)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l328 = {name: "IN"}; -((l289).value = ({car: l45.fvalue(pv, l328, (function (values,v860,v861){ - checkArgs(arguments, 3); - return (function(){ - return (function(v862,v863){ - return l184.fvalue(values, l183.fvalue(pv, "((", v862, ") in (", v863, "))")); - })(l185.fvalue(pv, v860),l185.fvalue(pv, v861)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l329 = {name: "FUNCTIONP"}; -((l289).value = ({car: l45.fvalue(pv, l329, (function (values,v864){ - checkArgs(arguments, 2); - return (function(){ - return (function(v865){ - return l184.fvalue(values, l183.fvalue(pv, "(typeof ", v865, " == 'function')")); - })(l185.fvalue(pv, v864)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l330 = {name: "WRITE-STRING"}; -((l289).value = ({car: l45.fvalue(pv, l330, (function (values,v866){ - checkArgs(arguments, 2); - return (function(){ - return (function(v867){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, l183.fvalue(pv, "var ", "x", " = ", v867, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), l183.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), l183.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })())), "})()"); - })(l185.fvalue(pv, v866)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l331 = {name: "MAKE-ARRAY"}; -((l289).value = ({car: l45.fvalue(pv, l331, (function (values,v868){ - checkArgs(arguments, 2); - return (function(){ - return (function(v869){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var r = [];", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "for (var i = 0; i < ", v869, "; i++)", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "r.push(", l185.fvalue(pv, l5.value), ");", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "return r;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l185.fvalue(pv, v868)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l332 = {name: "ARRAYP"}; -((l289).value = ({car: l45.fvalue(pv, l332, (function (values,v870){ - checkArgs(arguments, 2); - return (function(){ - return (function(v871){ - return l184.fvalue(values, l183.fvalue(pv, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var x = ", v871, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return typeof x === 'object' && 'length' in x;"), "})()")); - })(l185.fvalue(pv, v870)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l333 = {name: "AREF"}; -((l289).value = ({car: l45.fvalue(pv, l333, (function (values,v872,v873){ - checkArgs(arguments, 3); - return (function(){ - return (function(v874,v875){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var x = ", "(", v874, ")[", v875, "];", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (x === undefined) throw 'Out of range';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return x;", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l185.fvalue(pv, v872),l185.fvalue(pv, v873)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l334 = {name: "ASET"}; -((l289).value = ({car: l45.fvalue(pv, l334, (function (values,v876,v877,v878){ - checkArgs(arguments, 4); - return (function(){ - return (function(v879,v880,v881){ - return l183.fvalue(values, "(function(){", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), l187.fvalue(pv, "var x = ", v879, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "var i = ", v880, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })(), "return x[i] = ", v881, ";", (function(){ - var symbol = l148; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })()), "})()"); - })(l185.fvalue(pv, v876),l185.fvalue(pv, v877),l185.fvalue(pv, v878)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l335 = {name: "GET-UNIX-TIME"}; -((l289).value = ({car: l45.fvalue(pv, l335, (function (values){ - checkArgsAtMost(arguments, 1); - return (function(){ + })); + var v1053 = ({car: v1046, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1053); +})(); +var l336 = {name: "GET-UNIX-TIME"}; +(function(){ + var v1054 = l45.fvalue(pv, l336, (function (values){ + checkArgsAtMost(arguments, 1); return (function(){ - return l183.fvalue(values, "(Math.round(new Date() / 1000))"); + return (function(){ + return l183.fvalue(values, "(Math.round(new Date() / 1000))"); + })(); })(); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -var l336 = {name: "VALUES-ARRAY"}; -((l289).value = ({car: l45.fvalue(pv, l336, (function (values,v882){ - checkArgs(arguments, 2); - return (function(){ - return (function(v883){ + })); + var v1055 = ({car: v1054, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1055); +})(); +var l337 = {name: "VALUES-ARRAY"}; +(function(){ + var v1056 = l45.fvalue(pv, l337, (function (values,v1057){ + checkArgs(arguments, 2); + return (function(){ + return (function(v1058){ + return ((function(){ + var symbol = l188; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })() !== l5.value ? l183.fvalue(values, "values.apply(this, ", v1058, ")") : l183.fvalue(values, "pv.apply(this, ", v1058, ")")); + })(l185.fvalue(pv, v1057)); + })(); + })); + var v1059 = ({car: v1056, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1059); +})(); +(function(){ + var v1060 = l45.fvalue(pv, l157, (function (values){ + var v1061= l5.value; + for (var i = arguments.length-1; i>=1; i--) + v1061 = {car: arguments[i], cdr: + v1061}; + return (function(){ return ((function(){ var symbol = l188; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() !== l5.value ? l183.fvalue(values, "values.apply(this, ", v883, ")") : l183.fvalue(values, "pv.apply(this, ", v883, ")")); - })(l185.fvalue(pv, v882)); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); -((l289).value = ({car: l45.fvalue(pv, l157, (function (values){ - var v884= l5.value; - for (var i = arguments.length-1; i>=1; i--) - v884 = {car: arguments[i], cdr: - v884}; - return (function(){ - return ((function(){ - var symbol = l188; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; - })() !== l5.value ? l183.fvalue(values, "values(", l151.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l185; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v884), ", "), ")") : l183.fvalue(values, "pv(", l151.fvalue(pv, l79.fvalue(pv, (function(){ - var symbol = l185; - var func = symbol.fvalue; - if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; - return func; - })(), v884), ", "), ")")); - })(); -})), cdr: (function(){ - var symbol = l289; - var value = symbol.value; - if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; - return value; -})()})); + })() !== l5.value ? l183.fvalue(values, "values(", l151.fvalue(pv, l79.fvalue(pv, (function(){ + var symbol = l185; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v1061), ", "), ")") : l183.fvalue(values, "pv(", l151.fvalue(pv, l79.fvalue(pv, (function(){ + var symbol = l185; + var func = symbol.fvalue; + if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; + return func; + })(), v1061), ", "), ")")); + })(); + })); + var v1062 = ({car: v1060, cdr: (function(){ + var symbol = l290; + var value = symbol.value; + if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; + return value; + })()}); + return ((l290).value = v1062); +})(); (function(){ - (l214).fvalue = (function(v887){ - ((v887)["fname"] = "MACRO"); - return v887; - })((function (values,v885){ + (l214).fvalue = (function(v1065){ + ((v1065)["fname"] = "MACRO"); + return v1065; + })((function (values,v1063){ checkArgs(arguments, 2); return (function(){ return (((function(){ - var tmp = v885; + var tmp = v1063; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v886){ - return (((l191.fvalue(pv, v886) === l214)?l4.value: l5.value) !== l5.value ? v886 : l5.value); - })(l203.fvalue(pv, v885, (function(){ + })()?l4.value: l5.value) !== l5.value ? (function(v1064){ + return (((l191.fvalue(pv, v1064) === l214)?l4.value: l5.value) !== l5.value ? v1064 : l5.value); + })(l203.fvalue(pv, v1063, (function(){ var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8458,23 +8816,23 @@ var l336 = {name: "VALUES-ARRAY"}; return l214; })(); (function(){ - (l116).fvalue = (function(v892){ - ((v892)["fname"] = "LS-MACROEXPAND-1"); - return v892; - })((function (values,v888){ + (l116).fvalue = (function(v1070){ + ((v1070)["fname"] = "LS-MACROEXPAND-1"); + return v1070; + })((function (values,v1066){ checkArgs(arguments, 2); return (function(){ - return (function(v889){ - return (v889 !== l5.value ? (function(v890){ - (l60.fvalue(pv, v890) !== l5.value ? (function(v891){ - l194.fvalue(pv, v889, v891); - return (v890 = v891); - })(l264.fvalue(pv, v890)) : l5.value); + return (function(v1067){ + return (v1067 !== l5.value ? (function(v1068){ + (l60.fvalue(pv, v1068) !== l5.value ? (function(v1069){ + l194.fvalue(pv, v1067, v1069); + return (v1068 = v1069); + })(l264.fvalue(pv, v1068)) : l5.value); return (function(){ - var f = v890; + var f = v1068; var args = [values]; var tail = ((function(){ - var tmp = v888; + var tmp = v1066; return tmp === l5.value? l5.value: tmp.cdr; })()); while (tail != l5.value){ @@ -8483,67 +8841,67 @@ var l336 = {name: "VALUES-ARRAY"}; } return (typeof f === 'function'? f : f.fvalue).apply(this, args); })(); - })(l192.fvalue(pv, v889)) : v888); + })(l192.fvalue(pv, v1067)) : v1066); })(l214.fvalue(pv, (function(){ - var tmp = v888; + var tmp = v1066; return tmp === l5.value? l5.value: tmp.car; })())); })(); })); return l116; })(); -var l337 = {name: "COMPILE-FUNCALL"}; -var l338 = {name: "G764"}; +var l338 = {name: "COMPILE-FUNCALL"}; +var l339 = {name: "G764"}; (function(){ - (l337).fvalue = (function(v897){ - ((v897)["fname"] = "COMPILE-FUNCALL"); - return v897; - })((function (values,v893,v894){ + (l338).fvalue = (function(v1075){ + ((v1075)["fname"] = "COMPILE-FUNCALL"); + return v1075; + })((function (values,v1071,v1072){ checkArgs(arguments, 3); return (function(){ return (function(){ - var v895 = ((function(){ + var v1073 = ((function(){ var symbol = l188; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })() !== l5.value ? "values" : "pv"); - var v896 = l149.fvalue(pv, "(", l151.fvalue(pv, ({car: v895, cdr: l79.fvalue(pv, (function(){ + var v1074 = l149.fvalue(pv, "(", l151.fvalue(pv, ({car: v1073, cdr: l79.fvalue(pv, (function(){ var symbol = l185; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v894)}), ", "), ")"); - return (l259.fvalue(pv, v893) !== l5.value ? l149.fvalue(values, l259.fvalue(pv, v893), v896) : ((((function(){ - var tmp = v893; + })(), v1072)}), ", "), ")"); + return (l259.fvalue(pv, v1071) !== l5.value ? l149.fvalue(values, l259.fvalue(pv, v1071), v1074) : ((((function(){ + var tmp = v1071; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (((l137.fvalue(pv, v893) === l128.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ - var symbol = l338; + })()?l4.value: l5.value) !== l5.value ? (((l137.fvalue(pv, v1071) === l128.fvalue(pv, "COMMON-LISP"))?l4.value: l5.value) !== l5.value ? (function(){ + var symbol = l339; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })() : l5.value) : l5.value) !== l5.value ? l183.fvalue(values, l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, v893))), ".fvalue", v896) : l183.fvalue(values, l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l109), l45.fvalue(pv, v893))), v896))); + })() : l5.value) : l5.value) !== l5.value ? l183.fvalue(values, l185.fvalue(pv, l45.fvalue(pv, l178, v1071)), ".fvalue", v1074) : l183.fvalue(values, l185.fvalue(pv, l45.fvalue(pv, l109, v1071)), v1074))); })(); })(); })); - return l337; + return l338; })(); (function(){ - (l246).fvalue = (function(v900){ - ((v900)["fname"] = "LS-COMPILE-BLOCK"); - return v900; - })((function (values,v898,v899){ + (l246).fvalue = (function(v1078){ + ((v1078)["fname"] = "LS-COMPILE-BLOCK"); + return v1078; + })((function (values,v1076,v1077){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v899; + var v1077; switch(arguments.length-1){ case 1: - v899=l5.value; + v1077=l5.value; default: break; } return (function(){ - return (v899 !== l5.value ? l183.fvalue(values, l246.fvalue(pv, l92.fvalue(pv, v898)), "return ", l185.fvalue(pv, (function(){ - var tmp = l91.fvalue(pv, v898); + return (v1077 !== l5.value ? l183.fvalue(values, l246.fvalue(pv, l92.fvalue(pv, v1076)), "return ", l185.fvalue(pv, (function(){ + var tmp = l91.fvalue(pv, v1076); return tmp === l5.value? l5.value: tmp.car; })(), (function(){ var symbol = l188; @@ -8560,7 +8918,7 @@ var l338 = {name: "G764"}; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v898)), l149.fvalue(pv, ";", (function(){ + })(), v1076)), l149.fvalue(pv, ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; @@ -8571,173 +8929,173 @@ var l338 = {name: "G764"}; return l246; })(); (function(){ - (l185).fvalue = (function(v910){ - ((v910)["fname"] = "LS-COMPILE"); - return v910; - })((function (values,v901,v902){ + (l185).fvalue = (function(v1088){ + ((v1088)["fname"] = "LS-COMPILE"); + return v1088; + })((function (values,v1079,v1080){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v902; + var v1080; switch(arguments.length-1){ case 1: - v902=l5.value; + v1080=l5.value; default: break; } return (function(){ - return (function(v903){ + return (function(v1081){ try { var tmp; tmp = l188.value; - l188.value = v903; - v903 = tmp; + l188.value = v1081; + v1081 = tmp; return (((function(){ - var tmp = v901; + var tmp = v1079; return (typeof tmp == 'object' && 'name' in tmp); - })()?l4.value: l5.value) !== l5.value ? (function(v904){ - return ((v904 !== l5.value ? l28.fvalue(pv, l93.fvalue(pv, l218, l193.fvalue(pv, v904))) : l5.value) !== l5.value ? l192.fvalue(values, v904) : ((function(v905){ - return (v905 !== l5.value ? v905 : l93.fvalue(pv, l220, l193.fvalue(pv, v904))); - })(l136.fvalue(pv, v901)) !== l5.value ? l183.fvalue(values, l185.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, v901))), ".value") : l185.fvalue(values, l66.fvalue(pv, l45.fvalue(pv, l309), l45.fvalue(pv, l66.fvalue(pv, l45.fvalue(pv, l178), l45.fvalue(pv, v901))))))); - })(l203.fvalue(pv, v901, (function(){ + })()?l4.value: l5.value) !== l5.value ? (function(v1082){ + return ((v1082 !== l5.value ? l28.fvalue(pv, l93.fvalue(pv, l218, l193.fvalue(pv, v1082))) : l5.value) !== l5.value ? l192.fvalue(values, v1082) : ((function(v1083){ + return (v1083 !== l5.value ? v1083 : l93.fvalue(pv, l220, l193.fvalue(pv, v1082))); + })(l136.fvalue(pv, v1079)) !== l5.value ? l183.fvalue(values, l185.fvalue(pv, l45.fvalue(pv, l178, v1079)), ".value") : l185.fvalue(values, l45.fvalue(pv, l310, l45.fvalue(pv, l178, v1079))))); + })(l203.fvalue(pv, v1079, (function(){ var symbol = l204; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })(), l110)) : (l86.fvalue(pv, v901) !== l5.value ? l18.fvalue(values, v901) : (((typeof(v901) == "string")?l4.value: l5.value) !== l5.value ? l183.fvalue(values, "\"", l159.fvalue(pv, v901), "\"") : (((function(){ - var x = v901; + })(), l110)) : (l86.fvalue(pv, v1079) !== l5.value ? l18.fvalue(values, v1079) : (((typeof(v1079) == "string")?l4.value: l5.value) !== l5.value ? l183.fvalue(values, "\"", l159.fvalue(pv, v1079), "\"") : (((function(){ + var x = v1079; return typeof x === 'object' && 'length' in x; - })()?l4.value: l5.value) !== l5.value ? l254.fvalue(values, v901) : (l60.fvalue(pv, v901) !== l5.value ? (function(v906,v907){ - return (l102.fvalue(pv, v906, (function(){ + })()?l4.value: l5.value) !== l5.value ? l254.fvalue(values, v1079) : (l60.fvalue(pv, v1079) !== l5.value ? (function(v1084,v1085){ + return (l102.fvalue(pv, v1084, (function(){ var symbol = l222; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l5.value ? (function(v908){ + })()) !== l5.value ? (function(v1086){ return (function(){ - var f = v908; + var f = v1086; var args = [values]; - var tail = (v907); + var tail = (v1085); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; } return (typeof f === 'function'? f : f.fvalue).apply(this, args); })(); - })(l41.fvalue(pv, l102.fvalue(pv, v906, (function(){ + })(l41.fvalue(pv, l102.fvalue(pv, v1084, (function(){ var symbol = l222; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : ((l102.fvalue(pv, v906, (function(){ - var symbol = l289; + })()))) : ((l102.fvalue(pv, v1084, (function(){ + var symbol = l290; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()) !== l5.value ? l28.fvalue(pv, l216.fvalue(pv, v906, l109, l219)) : l5.value) !== l5.value ? (function(v909){ + })()) !== l5.value ? l28.fvalue(pv, l216.fvalue(pv, v1084, l109, l219)) : l5.value) !== l5.value ? (function(v1087){ return (function(){ - var f = v909; + var f = v1087; var args = [values]; - var tail = (v907); + var tail = (v1085); while (tail != l5.value){ args.push(tail.car); tail = tail.cdr; } return (typeof f === 'function'? f : f.fvalue).apply(this, args); })(); - })(l41.fvalue(pv, l102.fvalue(pv, v906, (function(){ - var symbol = l289; + })(l41.fvalue(pv, l102.fvalue(pv, v1084, (function(){ + var symbol = l290; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })()))) : (l214.fvalue(pv, v906) !== l5.value ? l185.fvalue(values, l116.fvalue(pv, v901), v902) : l337.fvalue(values, v906, v907)))); + })()))) : (l214.fvalue(pv, v1084) !== l5.value ? l185.fvalue(values, l116.fvalue(pv, v1079), v1080) : l338.fvalue(values, v1084, v1085)))); })((function(){ - var tmp = v901; + var tmp = v1079; return tmp === l5.value? l5.value: tmp.car; })(),(function(){ - var tmp = v901; + var tmp = v1079; return tmp === l5.value? l5.value: tmp.cdr; })()) : (function(){ throw "How should I compile this?"; })()))))); } finally { - l188.value = v903; + l188.value = v1081; } - })(v902); + })(v1080); })(); })); return l185; })(); -var l339 = {name: "LS-COMPILE-TOPLEVEL"}; +var l340 = {name: "LS-COMPILE-TOPLEVEL"}; (function(){ - (l339).fvalue = (function(v917){ - ((v917)["fname"] = "LS-COMPILE-TOPLEVEL"); - return v917; - })((function (values,v911,v912){ + (l340).fvalue = (function(v1095){ + ((v1095)["fname"] = "LS-COMPILE-TOPLEVEL"); + return v1095; + })((function (values,v1089,v1090){ checkArgsAtLeast(arguments, 2); checkArgsAtMost(arguments, 3); - var v912; + var v1090; switch(arguments.length-1){ case 1: - v912=l5.value; + v1090=l5.value; default: break; } return (function(){ - return (function(v913){ + return (function(v1091){ try { var tmp; tmp = l209.value; - l209.value = v913; - v913 = tmp; + l209.value = v1091; + v1091 = tmp; return ((((function(){ - var tmp = v911; + var tmp = v1089; return (typeof tmp == 'object' && 'car' in tmp); })()?l4.value: l5.value) !== l5.value ? (((function(){ - var tmp = v911; + var tmp = v1089; return tmp === l5.value? l5.value: tmp.car; - })() === l119)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v915){ + })() === l119)?l4.value: l5.value) : l5.value) !== l5.value ? (function(v1093){ return l151.fvalue(values, l95.fvalue(pv, (function(){ var symbol = l211; var func = symbol.fvalue; if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; - })(), v915)); - })(l79.fvalue(pv, (function (values,v914){ + })(), v1093)); + })(l79.fvalue(pv, (function (values,v1092){ checkArgs(arguments, 2); - return l339.fvalue(values, v914, l4.value); + return l340.fvalue(values, v1092, l4.value); }), (function(){ - var tmp = v911; + var tmp = v1089; return tmp === l5.value? l5.value: tmp.cdr; - })())) : (function(v916){ + })())) : (function(v1094){ return l183.fvalue(values, l152.fvalue(pv, l212.fvalue(pv), l183.fvalue(pv, ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; - })())), (v916 !== l5.value ? l183.fvalue(pv, v916, ";", (function(){ + })())), (v1094 !== l5.value ? l183.fvalue(pv, v1094, ";", (function(){ var symbol = l148; var value = symbol.value; if (value === undefined) throw "Variable `" + symbol.name + "' is unbound."; return value; })()) : l5.value)); - })(l185.fvalue(pv, v911, v912))); + })(l185.fvalue(pv, v1089, v1090))); } finally { - l209.value = v913; + l209.value = v1091; } })(l5.value); })(); })); - return l339; + return l340; })(); (function(){ - (l264).fvalue = (function(v919){ - ((v919)["fname"] = "EVAL"); - return v919; - })((function (values,v918){ + (l264).fvalue = (function(v1097){ + ((v1097)["fname"] = "EVAL"); + return v1097; + })((function (values,v1096){ checkArgs(arguments, 2); return (function(){ return (function(){ - var string = l339.fvalue(pv, v918, l4.value); + var string = l340.fvalue(pv, v1096, l4.value); if (typeof string != 'string') throw 'The value ' + string + ' is not a type string.'; return (function(){ @@ -8753,9 +9111,9 @@ var l339 = {name: "LS-COMPILE-TOPLEVEL"}; })); return l264; })(); -var l340 = {name: "&BODY"}; -var l341 = QIList(l227,l228,l226,l340,l21,l16,l138,l63,l64,l22,l23,l24,l300,l302,l20,l20,l299,l301,l55,l66,l321,l333,l332,l102,l46,l200,l19,l19,l92,l33,l39,l37,l34,l31,l31,l53,l276,l35,l38,l36,l32,l32,l319,l84,l85,l83,l52,l29,l30,l81,l82,l48,l2,l3,l10,l12,l1,l9,l98,l97,l106,l70,l71,l108,l50,l51,l54,l312,l27,l313,l323,l264,l101,l146,l105,l128,l141,l40,l260,l43,l308,l320,l109,l329,l17,l147,l283,l80,l224,l139,l47,l86,l86,l145,l136,l261,l6,l91,l73,l268,l271,l123,l45,l60,l78,l331,l124,l306,l79,l93,l88,l296,l111,l285,l112,l286,l5,l28,l90,l89,l13,l303,l56,l129,l131,l127,l176,l87,l158,l161,l221,l57,l58,l119,l69,l49,l178,l94,l95,l96,l14,l275,l67,l68,l120,l121,l41,l248,l118,l115,l100,l316,l103,l104,l315,l99,l256,l307,l137,l310,l309,l305,l4,l282,l42,l277,l26,l8,l284,l157,l156,l110,l160,l7,l107,l330,l25,l5); -l146.fvalue(values, l341); +var l341 = {name: "&BODY"}; +var l342 = QIList(l227,l228,l226,l341,l21,l16,l138,l63,l64,l22,l23,l24,l301,l303,l20,l20,l300,l302,l55,l66,l322,l334,l333,l102,l46,l200,l19,l19,l92,l33,l39,l37,l34,l31,l31,l53,l276,l35,l38,l36,l32,l32,l320,l84,l105,l128,l141,l40,l260,l43,l309,l321,l109,l330,l17,l114,l147,l284,l80,l224,l139,l47,l86,l86,l145,l136,l261,l6,l91,l73,l268,l271,l85,l83,l52,l29,l30,l81,l82,l48,l2,l117,l3,l10,l12,l1,l9,l98,l97,l106,l70,l71,l108,l50,l51,l54,l313,l27,l314,l324,l264,l101,l146,l123,l45,l60,l78,l332,l124,l307,l79,l93,l88,l297,l111,l286,l112,l287,l5,l28,l90,l89,l13,l304,l56,l129,l131,l127,l176,l87,l158,l161,l221,l57,l58,l119,l69,l49,l178,l94,l95,l96,l14,l275,l67,l68,l120,l121,l41,l248,l118,l115,l100,l317,l103,l104,l316,l99,l256,l308,l137,l311,l310,l306,l4,l282,l42,l277,l26,l8,l285,l157,l156,l110,l160,l7,l107,l331,l25,l5); +l146.fvalue(values, l342); ((l138).value = (function(){ var symbol = l134; var value = symbol.value; @@ -8794,67 +9152,76 @@ l146.fvalue(values, l341); if (func === undefined) throw "Function `" + symbol.name + "' is undefined."; return func; })()); -(lisp.compile = (function (values,v920){ +(lisp.compile = (function (values,v1098){ checkArgs(arguments, 2); - return l339.fvalue(values, v920, l4.value); + return l340.fvalue(values, v1098, l4.value); })); -(lisp.evalString = (function (values,v921){ +(lisp.evalString = (function (values,v1099){ checkArgs(arguments, 2); - return l264.fvalue(values, l182.fvalue(pv, v921)); + return l264.fvalue(values, l182.fvalue(pv, v1099)); })); -(lisp.compileString = (function (values,v922){ +(lisp.compileString = (function (values,v1100){ checkArgs(arguments, 2); - return l339.fvalue(values, l182.fvalue(pv, v922), l4.value); + return l340.fvalue(values, l182.fvalue(pv, v1100), l4.value); })); -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 l343 = {name: "OP"}; +var l344 = {name: "SYM"}; +var l345 = {name: "X"}; +var l346 = {name: "ARGS"}; +var l347 = {name: "BODY"}; +var l348 = {name: "DECLS"}; +var l349 = {name: "DECL"}; +var l350 = {name: "NAME"}; +var l351 = {name: "ARG"}; +var l352 = {name: "FORM"}; +var l353 = {name: "PACKAGE-DESIGNATOR"}; 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(l289,l110,l5,QIList(l218,l5),l5),QIList(l279,l110,l5,QIList(l218,l5),l5),QIList(l278,l110,l5,QIList(l218,l5),l5),QIList(l272,l110,l5,QIList(l218,l5),l5),QIList(l262,l110,l5,QIList(l218,l5),l5),QIList(l252,l110,l5,QIList(l218,l5),l5),QIList(l251,l110,l5,QIList(l218,l5),l5),QIList(l225,l110,l5,QIList(l218,l5),l5),QIList(l222,l110,l5,QIList(l218,l5),l5),QIList(l209,l110,l5,QIList(l218,l5),l5),QIList(l205,l110,l5,QIList(l218,l5),l5),QIList(l204,l110,l5,QIList(l218,l5),l5),QIList(l188,l110,l5,QIList(l218,l5),l5),QIList(l177,l110,l5,QIList(l218,l5),l5),QIList(l148,l110,l5,QIList(l218,l5),l5),QIList(l138,l110,l5,QIList(l218,l5),l5),QIList(l135,l110,l5,QIList(l218,l5),l5),QIList(l134,l110,l5,QIList(l218,l5),l5),QIList(l133,l110,l5,QIList(l218,l5),l5),QIList(l122,l110,l5,QIList(l218,l5),l5),QIList(l113,l110,l5,QIList(l218,l5),l5),QIList(l16,l110,l5,QIList(l218,l5),l5),QIList(l5,l110,l5,QIList(l220,l218,l5),l5),QIList(l4,l110,l5,QIList(l220,l218,l5),l5),l5),QIList(QIList(l298,l214,QIList(l109,QIList(l6,QIList(l342,l343,l5),QIList(l179,QIList(l290,QIList(l181,l342,l5),QIList(l344,l227,l345,l5),QIList(l268,QIList(QIList(l345,QIList(l29,l344,l345,l5),l5),l5),QIList(l294,l345,QIList(l184,QIList(l297,l345,QIList(l181,l343,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l294,l214,QIList(l109,QIList(l6,QIList(l345,l227,l346,l5),QIList(l8,QIList(l305,l345,l5),QIList(l323,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l179,QIList(l293,QIList(l181,l345,l5),QIList(l6,QIList(QIList(l181,l345,l5),l5),QIList(l183,"return ",QIList(l180,l346,l5),";",l148,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l292,l214,QIList(l109,QIList(l6,QIList(l347,l227,l346,l5),QIList(l179,QIList(l186,QIList(l180,QIList(l79,QIList(l6,QIList(l348,l5),QIList(l179,QIList(l183,"var ",QIList(l181,QIList(l40,l348,l5),l5)," = ",QIList(l181,QIList(l42,l348,l5),l5),";",l148,l5),l5),l5),l347,l5),l5),QIList(l180,QIList(l79,QIList(l6,QIList(l348,l5),QIList(l179,QIList(l183,"if (typeof ",QIList(l181,QIList(l40,l348,l5),l5)," != '",QIList(l181,QIList(l41,l348,l5),l5),"')",l148,QIList(l187,"throw 'The value ' + ",QIList(l181,QIList(l40,l348,l5),l5)," + ' is not a type ",QIList(l181,QIList(l41,l348,l5),l5),".';",l148,l5),l5),l5),l5),l347,l5),l5),QIList(l183,"return ",QIList(l119,QIList(l180,l346,l5),l5),";",l148,l5),l5),l5),l5),l5),l5,l5),QIList(l291,l214,QIList(l109,QIList(l6,QIList(l349,l345,l227,l346,l5),QIList(l179,QIList(l119,QIList(l290,QIList(l181,l349,l5),QIList(l181,l345,l5),QIList(l268,QIList(l181,QIList(l79,QIList(l6,QIList(l350,l5),QIList(l179,QIList(QIList(l181,l350,l5),QIList(l185,QIList(l181,l350,l5),l5),l5),l5),l5),l345,l5),l5),QIList(l180,l346,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l290,l214,QIList(l109,QIList(l6,QIList(l349,l345,l227,l346,l5),QIList(l179,QIList(l49,QIList(l45,QIList(l178,QIList(l181,l349,l5),l5),QIList(l6,QIList(l181,l345,l5),QIList(l200,QIList(l181,l349,l5),QIList(l180,l346,l5),l5),l5),l5),l289,l5),l5),l5),l5),l5,l5),QIList(l179,l214,QIList(l109,QIList(l6,QIList(l351,l5),QIList(l287,l351,l5),l5),l5),l5,l5),QIList(l265,l214,QIList(l109,QIList(l6,QIList(l349,l345,l351,l5),QIList(l179,QIList(l223,QIList(l181,l349,l5),QIList(l181,l345,l5),QIList(l185,QIList(l181,l351,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l223,l214,QIList(l109,QIList(l6,QIList(l349,l345,l227,l346,l5),QIList(l179,QIList(l49,QIList(l45,QIList(l178,QIList(l181,l349,l5),l5),QIList(l6,QIList(l181,l345,l5),QIList(l200,QIList(l181,l349,l5),QIList(l180,l346,l5),l5),l5),l5),l222,l5),l5),l5),l5),l5,l5),QIList(l186,l214,QIList(l109,QIList(l6,QIList(l227,l346,l5),QIList(l179,QIList(l183,"(function(){",l148,QIList(l187,QIList(l180,l346,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l150,l214,QIList(l109,QIList(l6,QIList(l110,l227,l351,l5),QIList(l179,QIList(l115,QIList(l181,l110,l5),QIList(l149,QIList(l181,l110,l5),QIList(l119,QIList(l180,l351,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l139,l214,QIList(l109,QIList(l6,QIList(l352,l5),QIList(l179,QIList(l263,QIList(l115,l138,QIList(l126,QIList(l181,l352,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l118,l214,QIList(l109,QIList(l6,QIList(l227,l353,l5),QIList(l52,QIList(QIList(l13,l353,l5),l5,l5),QIList(QIList(l13,QIList(l32,l353,l5),l5),QIList(l323,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l36,l353,l5),l5),QIList(l268,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(l179,QIList(l271,QIList(l181,QIList(l79,QIList(l109,l45,l5),l356,l357,l5),l5),QIList(l111,QIList(l181,l358,l5),QIList(l181,l355,l5),QIList(l181,l359,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l179,QIList(l119,QIList(l180,QIList(l70,QIList(QIList(l353,l353,QIList(l36,l353,l5),l5),QIList(l361,QIList(l178,l5,l5),QIList(l29,QIList(l179,QIList(l118,QIList(l181,QIList(l31,l353,l5),l5),QIList(l181,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(l117,l214,QIList(l109,QIList(l6,QIList(l362,l363,l227,l346,l5),QIList(l8,QIList(l305,l362,l5),QIList(l323,"ACCESS-FN must be a symbol.",l5),l5),QIList(l179,QIList(l119,QIList(l49,QIList(l29,QIList(l178,QIList(l181,l362,l5),l5),QIList(l6,QIList(l181,l363,l5),QIList(l180,l346,l5),l5),l5),l113,l5),QIList(l178,QIList(l181,l362,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l112,l214,QIList(l109,QIList(l6,QIList(l364,l5),QIList(l179,QIList(l285,QIList(l109,l45,l5),QIList(l181,l364,l5),l5),l5),l5),l5),l5,l5),QIList(l111,l214,QIList(l109,QIList(l6,QIList(l365,l364,l227,l346,l5),QIList(l179,QIList(l285,QIList(l6,QIList(l226,QIList(l180,l365,l5),l227,QIList(l181,QIList(l17,l5),l5),l5),QIList(l180,l346,l5),l5),QIList(l181,l364,l5),l5),l5),l5),l5),l5,l5),QIList(l78,l214,QIList(l109,QIList(l6,QIList(l227,l346,l5),QIList(l179,QIList(l15,l4,QIList(l180,l346,l5),l5),l5),l5),l5),l5,l5),QIList(l75,l214,QIList(l109,QIList(l6,QIList(l227,l346,l5),QIList(l268,QIList(QIList(l366,QIList(l17,l5),l5),QIList(l367,QIList(l17,l5),l5),l5),QIList(l179,QIList(l271,QIList(QIList(QIList(l181,l366,l5),QIList(l29,QIList(l178,l77,l5),l5,l5),l5),QIList(QIList(l181,l367,l5),QIList(l181,l366,l5),l5),l5),QIList(l260,QIList(QIList(l368,QIList(l344,l5),QIList(l121,QIList(l181,l367,l5),QIList(l29,l344,l5,l5),l5),QIList(l115,QIList(l181,l367,l5),QIList(l32,QIList(l181,l367,l5),l5),l5),l344,l5),l5),QIList(l180,l346,l5),l5),QIList(l32,QIList(l181,l366,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l214,QIList(l109,QIList(l6,QIList(l369,l370,l227,l346,l5),QIList(l179,QIList(l200,l5,QIList(l271,QIList(l181,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(l181,QIList(l31,l370,l5),l5),QIList(l14,QIList(l119,QIList(l181,QIList(l32,l370,l5),l5),l5),l5),l5),QIList(l282,QIList(l180,l346,l5),l5),QIList(l115,QIList(l180,QIList(l321,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,l214,QIList(l109,QIList(l6,QIList(l369,l370,l227,l346,l5),QIList(l179,QIList(l200,l5,QIList(l268,QIList(l181,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(l181,QIList(l31,l370,l5),l5),QIList(l14,QIList(l119,QIList(l181,QIList(l32,l370,l5),l5),l5),l5),l5),QIList(l282,QIList(l180,l346,l5),l5),QIList(l69,QIList(l180,QIList(l321,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,l214,QIList(l109,QIList(l6,QIList(l227,l353,l5),QIList(l268,QIList(QIList(l372,QIList(l178,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(l323,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l268,QIList(QIList(l110,QIList(l31,l353,l5),l5),QIList(l355,QIList(l34,l353,l5),l5),l5),QIList(l49,QIList(l179,QIList(QIList(l181,l110,l5),QIList(l181,QIList(l17,l5),l5),QIList(l181,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(l179,QIList(l268,QIList(l181,QIList(l79,QIList(l109,l32,l5),l372,l5),l5),QIList(l115,QIList(l180,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,l214,QIList(l109,QIList(l6,QIList(l373,l361,l227,l346,l5),QIList(l179,QIList(l57,QIList(l119,QIList(l181,l373,l5),QIList(l181,l361,l5),l5),QIList(l180,l346,l5),l5),l5),l5),l5),l5,l5),QIList(l57,l214,QIList(l109,QIList(l6,QIList(l351,l227,l346,l5),QIList(l268,QIList(QIList(l355,QIList(l17,l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l355,l5),QIList(l181,l351,l5),l5),l5),QIList(l180,l346,l5),QIList(l181,l355,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l214,QIList(l109,QIList(l6,QIList(l227,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(l268,QIList(QIList(l375,QIList(l17,l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l375,l5),QIList(l181,QIList(l31,l374,l5),l5),l5),l5),QIList(l224,QIList(l181,l375,l5),QIList(l181,l375,l5),QIList(l56,QIList(l180,QIList(l32,l374,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l214,QIList(l109,QIList(l6,QIList(l227,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(l179,QIList(l224,QIList(l181,QIList(l31,l374,l5),l5),QIList(l55,QIList(l180,QIList(l32,l374,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l214,QIList(l109,QIList(l6,QIList(l351,l227,l376,l5),QIList(l179,QIList(l53,QIList(l181,l351,l5),QIList(l180,QIList(l66,l376,QIList(l179,QIList(QIList(l4,QIList(l323,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l214,QIList(l109,QIList(l6,QIList(l351,l227,l376,l5),QIList(l268,QIList(QIList(l377,QIList(l17,l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l377,l5),QIList(l181,l351,l5),l5),l5),QIList(l52,QIList(l180,QIList(l79,QIList(l6,QIList(l378,l5),QIList(l224,QIList(l312,QIList(l31,l378,l5),l4,l5),l378,QIList(l179,QIList(QIList(l27,QIList(l181,l377,l5),QIList(l178,QIList(l181,QIList(l31,l378,l5),l5),l5),l5),QIList(l180,QIList(l32,l378,l5),l5),l5),l5),l5),l5),l376,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l214,QIList(l109,QIList(l6,QIList(l227,l376,l5),QIList(l224,QIList(l13,l376,l5),l5,QIList(l224,QIList(l312,QIList(l33,l376,l5),l4,l5),QIList(l179,QIList(l119,QIList(l180,QIList(l35,l376,l5),l5),l5),l5),QIList(l179,QIList(l224,QIList(l181,QIList(l33,l376,l5),l5),QIList(l119,QIList(l180,QIList(l35,l376,l5),l5),l5),QIList(l52,QIList(l180,QIList(l32,l376,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l214,QIList(l109,QIList(l6,QIList(l379,l227,l346,l5),QIList(l268,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(l179,QIList(l200,l5,QIList(l268,QIList(QIList(QIList(l181,l381,l5),0,l5),QIList(QIList(l181,l380,l5),QIList(l181,l382,l5),l5),l5),QIList(l255,QIList(l300,QIList(l181,l381,l5),QIList(l181,l380,l5),l5),QIList(l282,QIList(l180,l346,l5),l5),QIList(l47,QIList(l181,l381,l5),l5),l5),QIList(l181,l361,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l214,QIList(l109,QIList(l6,QIList(l379,l227,l346,l5),QIList(l268,QIList(QIList(l381,QIList(l40,l379,l5),l5),QIList(l383,QIList(l17,l5),l5),l5),QIList(l179,QIList(l200,l5,QIList(l268,QIList(QIList(QIList(l181,l383,l5),QIList(l181,QIList(l41,l379,l5),l5),l5),QIList(QIList(l181,l381,l5),l5,l5),l5),QIList(l255,QIList(l181,l383,l5),QIList(l115,QIList(l181,l381,l5),QIList(l31,QIList(l181,l383,l5),l5),l5),QIList(l282,QIList(l180,l346,l5),l5),QIList(l115,QIList(l181,l383,l5),QIList(l32,QIList(l181,l383,l5),l5),l5),l5),QIList(l181,QIList(l42,l379,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l214,QIList(l109,QIList(l6,QIList(l344,l354,l5),QIList(l179,QIList(l115,QIList(l181,l354,l5),QIList(l29,QIList(l181,l344,l5),QIList(l181,l354,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l48,l214,QIList(l109,QIList(l6,QIList(l344,l226,QIList(l384,1,l5),l5),QIList(l179,QIList(l115,QIList(l181,l344,l5),QIList(l64,QIList(l181,l344,l5),QIList(l181,l384,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l47,l214,QIList(l109,QIList(l6,QIList(l344,l226,QIList(l384,1,l5),l5),QIList(l179,QIList(l115,QIList(l181,l344,l5),QIList(l63,QIList(l181,l344,l5),QIList(l181,l384,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l214,QIList(l109,QIList(l6,QIList(l385,l227,l346,l5),QIList(l179,QIList(l200,l5,QIList(l255,QIList(l181,l385,l5),QIList(l180,l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l14,l214,QIList(l109,QIList(l6,QIList(l226,l355,l5),QIList(l179,QIList(l275,l5,QIList(l181,l355,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l214,QIList(l109,QIList(l6,QIList(l349,l345,l227,l346,l5),QIList(l179,QIList(l119,QIList(l308,QIList(l178,QIList(l181,l349,l5),l5),QIList(l11,QIList(l181,QIList(l307,l349,l5),l5),QIList(l181,l345,l5),QIList(l180,QIList(l224,QIList(l55,QIList(l315,QIList(l31,l346,l5),l5),QIList(l28,QIList(l13,QIList(l32,l346,l5),l5),l5),l5),QIList(l179,QIList(QIList(l181,QIList(l31,l346,l5),l5),QIList(l200,QIList(l181,l349,l5),QIList(l180,QIList(l32,l346,l5),l5),l5),l5),l5),QIList(l179,QIList(QIList(l200,QIList(l181,l349,l5),QIList(l180,l346,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l214,QIList(l109,QIList(l6,QIList(l349,l345,l227,l346,l5),QIList(l268,QIList(QIList(l344,QIList(l17,"FN",l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l344,l5),QIList(l6,QIList(l181,l345,l5),QIList(l180,l346,l5),l5),l5),l5),QIList(l327,QIList(l181,l344,l5),"fname",QIList(l181,l349,l5),l5),QIList(l181,l344,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l214,QIList(l109,QIList(l6,QIList(l349,l355,l226,l386,l5),QIList(l179,QIList(l119,QIList(l115,QIList(l181,l349,l5),QIList(l181,l355,l5),l5),QIList(l180,QIList(l7,QIList(l315,l386,l5),QIList(l179,QIList(QIList(l327,QIList(l178,QIList(l181,l349,l5),l5),"vardoc",QIList(l181,l386,l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l214,QIList(l109,QIList(l6,QIList(l349,l355,l226,l386,l5),QIList(l179,QIList(l119,QIList(l2,QIList(l218,QIList(l181,l349,l5),l5),l5),QIList(l8,QIList(l19,QIList(l178,QIList(l181,l349,l5),l5),l5),QIList(l115,QIList(l181,l349,l5),QIList(l181,l355,l5),l5),l5),QIList(l180,QIList(l7,QIList(l315,l386,l5),QIList(l179,QIList(QIList(l327,QIList(l178,QIList(l181,l349,l5),l5),"vardoc",QIList(l181,l386,l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l214,QIList(l109,QIList(l6,QIList(l385,l227,l346,l5),QIList(l179,QIList(l224,QIList(l181,l385,l5),l5,QIList(l119,QIList(l180,l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l214,QIList(l109,QIList(l6,QIList(l385,l227,l346,l5),QIList(l179,QIList(l224,QIList(l181,l385,l5),QIList(l119,QIList(l180,l346,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l214,QIList(l109,QIList(l6,QIList(l345,l227,l346,l5),QIList(l179,QIList(l109,QIList(l6,QIList(l181,l345,l5),QIList(l180,l346,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l214,QIList(l109,QIList(l6,QIList(l349,l355,l226,l386,l5),QIList(l179,QIList(l119,QIList(l2,QIList(l218,QIList(l181,l349,l5),l5),l5),QIList(l2,QIList(l220,QIList(l181,l349,l5),l5),l5),QIList(l115,QIList(l181,l349,l5),QIList(l181,l355,l5),l5),QIList(l180,QIList(l7,QIList(l315,l386,l5),QIList(l179,QIList(QIList(l327,QIList(l178,QIList(l181,l349,l5),l5),"vardoc",QIList(l181,l386,l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l349,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l214,QIList(l109,QIList(l6,QIList(l227,l347,l5),QIList(l179,QIList(l263,QIList(l180,QIList(l79,QIList(l6,QIList(l348,l5),QIList(l179,QIList(l217,QIList(l178,QIList(l181,l348,l5),l5),l5),l5),l5),l347,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l214,QIList(l109,QIList(l6,QIList(l349,l345,l227,l346,l5),QIList(l179,QIList(l263,QIList(l213,QIList(l178,QIList(l181,l349,l5),l5),QIList(l178,QIList(l109,QIList(l6,QIList(l181,QIList(l79,QIList(l109,QIList(l6,QIList(l344,l5),QIList(l224,QIList(l312,l344,QIList(l178,l340,l5),l5),QIList(l178,l227,l5),l344,l5),l5),l5),l345,l5),l5),QIList(l180,l346,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); -((l204).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(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(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 l355 = {name: "DUMMIES"}; +var l356 = {name: "VALS"}; +var l357 = {name: "NEWVAL"}; +var l358 = {name: "SETTER"}; +var l359 = {name: "GETTER"}; +var l360 = {name: "G"}; +var l361 = {name: "PAIRS"}; +var l362 = {name: "VALUE"}; +var l363 = {name: "VARS"}; +var l364 = {name: "STORE-VARS"}; +var l365 = {name: "WRITER-FORM"}; +var l366 = {name: "READER-FORM"}; +var l367 = {name: "RESULT"}; +var l368 = {name: "ACCESS-FN"}; +var l369 = {name: "LAMBDA-LIST"}; +var l370 = {name: "VALUE-FROM"}; +var l371 = {name: "VARIABLES"}; +var l372 = {name: "HEAD"}; +var l373 = {name: "TAIL"}; +var l374 = {name: "COLLECT"}; +var l375 = {name: "VARLIST"}; +var l376 = {name: "ENDLIST"}; +var l377 = {name: "V"}; +var l378 = {name: "ASSIGNMENTS"}; +var l379 = {name: "FORM1"}; +var l380 = {name: "FORMS"}; +var l381 = {name: "CLAUSULES"}; +var l382 = {name: "!FORM"}; +var l383 = {name: "CLAUSULE"}; +var l384 = {name: "ITER"}; +var l385 = {name: "G!TO"}; +var l386 = {name: "VAR"}; +var l387 = {name: "TO"}; +var l388 = {name: "G!LIST"}; +var l389 = {name: "DELTA"}; +var l390 = {name: "CONDITION"}; +var l391 = {name: "DOCSTRING"}; +var l392 = QIList(QIList(QIList(l290,l110,l5,QIList(l218,l5),l5),QIList(l279,l110,l5,QIList(l218,l5),l5),QIList(l278,l110,l5,QIList(l218,l5),l5),QIList(l272,l110,l5,QIList(l218,l5),l5),QIList(l262,l110,l5,QIList(l218,l5),l5),QIList(l252,l110,l5,QIList(l218,l5),l5),QIList(l251,l110,l5,QIList(l218,l5),l5),QIList(l225,l110,l5,QIList(l218,l5),l5),QIList(l222,l110,l5,QIList(l218,l5),l5),QIList(l209,l110,l5,QIList(l218,l5),l5),QIList(l205,l110,l5,QIList(l218,l5),l5),QIList(l204,l110,l5,QIList(l218,l5),l5),QIList(l188,l110,l5,QIList(l218,l5),l5),QIList(l177,l110,l5,QIList(l218,l5),l5),QIList(l148,l110,l5,QIList(l218,l5),l5),QIList(l138,l110,l5,QIList(l218,l5),l5),QIList(l135,l110,l5,QIList(l218,l5),l5),QIList(l134,l110,l5,QIList(l218,l5),l5),QIList(l133,l110,l5,QIList(l218,l5),l5),QIList(l122,l110,l5,QIList(l218,l5),l5),QIList(l113,l110,l5,QIList(l218,l5),l5),QIList(l16,l110,l5,QIList(l218,l5),l5),QIList(l5,l110,l5,QIList(l220,l218,l5),l5),QIList(l4,l110,l5,QIList(l220,l218,l5),l5),l5),QIList(QIList(l299,l214,QIList(l109,QIList(l6,QIList(l343,l344,l5),QIList(l179,QIList(l291,QIList(l181,l343,l5),QIList(l345,l227,l346,l5),QIList(l268,QIList(QIList(l346,QIList(l29,l345,l346,l5),l5),l5),QIList(l295,l346,QIList(l184,QIList(l298,l346,QIList(l181,l344,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l295,l214,QIList(l109,QIList(l6,QIList(l346,l227,l347,l5),QIList(l8,QIList(l306,l346,l5),QIList(l324,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l5),l5),QIList(l179,QIList(l294,QIList(l181,l346,l5),QIList(l6,QIList(QIList(l181,l346,l5),l5),QIList(l183,"return ",QIList(l180,l347,l5),";",l148,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l293,l214,QIList(l109,QIList(l6,QIList(l348,l227,l347,l5),QIList(l179,QIList(l186,QIList(l180,QIList(l79,QIList(l6,QIList(l349,l5),QIList(l179,QIList(l183,"var ",QIList(l181,QIList(l40,l349,l5),l5)," = ",QIList(l181,QIList(l42,l349,l5),l5),";",l148,l5),l5),l5),l348,l5),l5),QIList(l180,QIList(l79,QIList(l6,QIList(l349,l5),QIList(l179,QIList(l183,"if (typeof ",QIList(l181,QIList(l40,l349,l5),l5)," != '",QIList(l181,QIList(l41,l349,l5),l5),"')",l148,QIList(l187,"throw 'The value ' + ",QIList(l181,QIList(l40,l349,l5),l5)," + ' is not a type ",QIList(l181,QIList(l41,l349,l5),l5),".';",l148,l5),l5),l5),l5),l348,l5),l5),QIList(l183,"return ",QIList(l119,QIList(l180,l347,l5),l5),";",l148,l5),l5),l5),l5),l5),l5,l5),QIList(l292,l214,QIList(l109,QIList(l6,QIList(l350,l346,l227,l347,l5),QIList(l179,QIList(l291,QIList(l181,l350,l5),QIList(l181,l346,l5),QIList(l268,QIList(l181,QIList(l79,QIList(l6,QIList(l351,l5),QIList(l179,QIList(QIList(l181,l351,l5),QIList(l185,QIList(l181,l351,l5),l5),l5),l5),l5),l346,l5),l5),QIList(l180,l347,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l291,l214,QIList(l109,QIList(l6,QIList(l350,l346,l227,l347,l5),QIList(l179,QIList(l49,QIList(l45,QIList(l178,QIList(l181,l350,l5),l5),QIList(l6,QIList(l181,l346,l5),QIList(l200,QIList(l181,l350,l5),QIList(l180,l347,l5),l5),l5),l5),l290,l5),l5),l5),l5),l5,l5),QIList(l179,l214,QIList(l109,QIList(l6,QIList(l352,l5),QIList(l288,l352,l5),l5),l5),l5,l5),QIList(l265,l214,QIList(l109,QIList(l6,QIList(l350,l346,l352,l5),QIList(l179,QIList(l223,QIList(l181,l350,l5),QIList(l181,l346,l5),QIList(l185,QIList(l181,l352,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l223,l214,QIList(l109,QIList(l6,QIList(l350,l346,l227,l347,l5),QIList(l179,QIList(l49,QIList(l45,QIList(l178,QIList(l181,l350,l5),l5),QIList(l6,QIList(l181,l346,l5),QIList(l200,QIList(l181,l350,l5),QIList(l180,l347,l5),l5),l5),l5),l222,l5),l5),l5),l5),l5,l5),QIList(l186,l214,QIList(l109,QIList(l6,QIList(l227,l347,l5),QIList(l179,QIList(l183,"(function(){",l148,QIList(l187,QIList(l180,l347,l5),l5),"})()",l5),l5),l5),l5),l5,l5),QIList(l150,l214,QIList(l109,QIList(l6,QIList(l110,l227,l352,l5),QIList(l179,QIList(l115,QIList(l181,l110,l5),QIList(l149,QIList(l181,l110,l5),QIList(l119,QIList(l180,l352,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l139,l214,QIList(l109,QIList(l6,QIList(l353,l5),QIList(l179,QIList(l263,QIList(l115,l138,QIList(l126,QIList(l181,l353,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l214,QIList(l109,QIList(l6,QIList(l345,l354,l5),QIList(l111,QIList(l355,l356,l357,l358,l359,l5),QIList(l114,l354,l5),QIList(l268,QIList(QIList(l360,QIList(l17,l5),l5),l5),QIList(l179,QIList(l271,QIList(QIList(QIList(l181,l360,l5),QIList(l181,l345,l5),l5),QIList(l180,QIList(l79,QIList(l109,l45,l5),l355,l356,l5),l5),QIList(QIList(l181,QIList(l31,l357,l5),l5),QIList(l29,QIList(l181,l360,l5),QIList(l181,l359,l5),l5),l5),QIList(l180,QIList(l32,l357,l5),l5),l5),QIList(l181,l358,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l118,l214,QIList(l109,QIList(l6,QIList(l227,l361,l5),QIList(l52,QIList(QIList(l13,l361,l5),l5,l5),QIList(QIList(l13,QIList(l32,l361,l5),l5),QIList(l324,"Odd number of arguments to setf.",l5),l5),QIList(QIList(l13,QIList(l36,l361,l5),l5),QIList(l268,QIList(QIList(l354,QIList(l40,l361,l5),l5),QIList(l362,QIList(l41,l361,l5),l5),l5),QIList(l111,QIList(l363,l356,l364,l365,l366,l5),QIList(l114,l354,l5),QIList(l179,QIList(l271,QIList(l181,QIList(l79,QIList(l109,l45,l5),l363,l356,l5),l5),QIList(l111,QIList(l181,l364,l5),QIList(l181,l362,l5),QIList(l181,l365,l5),l5),l5),l5),l5),l5),l5),QIList(l4,QIList(l179,QIList(l119,QIList(l180,QIList(l70,QIList(QIList(l361,l361,QIList(l36,l361,l5),l5),QIList(l367,QIList(l178,l5,l5),QIList(l29,QIList(l179,QIList(l118,QIList(l181,QIList(l31,l361,l5),l5),QIList(l181,QIList(l34,l361,l5),l5),l5),l5),l367,l5),l5),l5),QIList(QIList(l13,l361,l5),QIList(l68,l367,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l117,l214,QIList(l109,QIList(l6,QIList(l368,l369,l227,l347,l5),QIList(l8,QIList(l306,l368,l5),QIList(l324,"ACCESS-FN must be a symbol.",l5),l5),QIList(l179,QIList(l119,QIList(l49,QIList(l29,QIList(l178,QIList(l181,l368,l5),l5),QIList(l6,QIList(l181,l369,l5),QIList(l180,l347,l5),l5),l5),l113,l5),QIList(l178,QIList(l181,l368,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l112,l214,QIList(l109,QIList(l6,QIList(l370,l5),QIList(l179,QIList(l286,QIList(l109,l45,l5),QIList(l181,l370,l5),l5),l5),l5),l5),l5,l5),QIList(l111,l214,QIList(l109,QIList(l6,QIList(l371,l370,l227,l347,l5),QIList(l179,QIList(l286,QIList(l6,QIList(l226,QIList(l180,l371,l5),l227,QIList(l181,QIList(l17,l5),l5),l5),QIList(l180,l347,l5),l5),QIList(l181,l370,l5),l5),l5),l5),l5),l5,l5),QIList(l78,l214,QIList(l109,QIList(l6,QIList(l227,l347,l5),QIList(l179,QIList(l15,l4,QIList(l180,l347,l5),l5),l5),l5),l5),l5,l5),QIList(l75,l214,QIList(l109,QIList(l6,QIList(l227,l347,l5),QIList(l268,QIList(QIList(l372,QIList(l17,l5),l5),QIList(l373,QIList(l17,l5),l5),l5),QIList(l179,QIList(l271,QIList(QIList(QIList(l181,l372,l5),QIList(l29,QIList(l178,l77,l5),l5,l5),l5),QIList(QIList(l181,l373,l5),QIList(l181,l372,l5),l5),l5),QIList(l260,QIList(QIList(l374,QIList(l345,l5),QIList(l121,QIList(l181,l373,l5),QIList(l29,l345,l5,l5),l5),QIList(l115,QIList(l181,l373,l5),QIList(l32,QIList(l181,l373,l5),l5),l5),l345,l5),l5),QIList(l180,l347,l5),l5),QIList(l32,QIList(l181,l372,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l71,l214,QIList(l109,QIList(l6,QIList(l375,l376,l227,l347,l5),QIList(l179,QIList(l200,l5,QIList(l271,QIList(l181,QIList(l79,QIList(l6,QIList(l345,l5),QIList(l45,QIList(l40,l345,l5),QIList(l41,l345,l5),l5),l5),l375,l5),l5),QIList(l15,l4,QIList(l7,QIList(l181,QIList(l31,l376,l5),l5),QIList(l14,QIList(l119,QIList(l181,QIList(l32,l376,l5),l5),l5),l5),l5),QIList(l282,QIList(l180,l347,l5),l5),QIList(l115,QIList(l180,QIList(l322,QIList(l109,l66,l5),QIList(l79,QIList(l6,QIList(l377,l5),QIList(l55,QIList(l30,QIList(l36,l377,l5),l5),QIList(l45,QIList(l40,l377,l5),QIList(l42,l377,l5),l5),l5),l5),l375,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l70,l214,QIList(l109,QIList(l6,QIList(l375,l376,l227,l347,l5),QIList(l179,QIList(l200,l5,QIList(l268,QIList(l181,QIList(l79,QIList(l6,QIList(l345,l5),QIList(l45,QIList(l40,l345,l5),QIList(l41,l345,l5),l5),l5),l375,l5),l5),QIList(l15,l4,QIList(l7,QIList(l181,QIList(l31,l376,l5),l5),QIList(l14,QIList(l119,QIList(l181,QIList(l32,l376,l5),l5),l5),l5),l5),QIList(l282,QIList(l180,l347,l5),l5),QIList(l69,QIList(l180,QIList(l322,QIList(l109,l66,l5),QIList(l79,QIList(l6,QIList(l377,l5),QIList(l55,QIList(l30,QIList(l36,l377,l5),l5),QIList(l45,QIList(l40,l377,l5),QIList(l42,l377,l5),l5),l5),l5),l375,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l69,l214,QIList(l109,QIList(l6,QIList(l227,l361,l5),QIList(l268,QIList(QIList(l378,QIList(l178,l5,l5),l5),l5),QIList(l15,l4,QIList(l52,QIList(QIList(l13,l361,l5),QIList(l14,l5),l5),QIList(QIList(l13,QIList(l32,l361,l5),l5),QIList(l324,"Odd paris in PSETQ",l5),l5),QIList(l4,QIList(l268,QIList(QIList(l110,QIList(l31,l361,l5),l5),QIList(l362,QIList(l34,l361,l5),l5),l5),QIList(l49,QIList(l179,QIList(QIList(l181,l110,l5),QIList(l181,QIList(l17,l5),l5),QIList(l181,l362,l5),l5),l5),l378,l5),QIList(l115,l361,QIList(l36,l361,l5),l5),l5),l5),l5),l5),QIList(l115,l378,QIList(l68,l378,l5),l5),QIList(l179,QIList(l268,QIList(l181,QIList(l79,QIList(l109,l32,l5),l378,l5),l5),QIList(l115,QIList(l180,QIList(l61,QIList(l109,l66,l5),QIList(l79,QIList(l109,l92,l5),l378,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l58,l214,QIList(l109,QIList(l6,QIList(l379,l367,l227,l347,l5),QIList(l179,QIList(l57,QIList(l119,QIList(l181,l379,l5),QIList(l181,l367,l5),l5),QIList(l180,l347,l5),l5),l5),l5),l5),l5,l5),QIList(l57,l214,QIList(l109,QIList(l6,QIList(l352,l227,l347,l5),QIList(l268,QIList(QIList(l362,QIList(l17,l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l362,l5),QIList(l181,l352,l5),l5),l5),QIList(l180,l347,l5),QIList(l181,l362,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l56,l214,QIList(l109,QIList(l6,QIList(l227,l380,l5),QIList(l52,QIList(QIList(l13,l380,l5),l5,l5),QIList(QIList(l13,QIList(l32,l380,l5),l5),QIList(l31,l380,l5),l5),QIList(l4,QIList(l268,QIList(QIList(l360,QIList(l17,l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l360,l5),QIList(l181,QIList(l31,l380,l5),l5),l5),l5),QIList(l224,QIList(l181,l360,l5),QIList(l181,l360,l5),QIList(l56,QIList(l180,QIList(l32,l380,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l55,l214,QIList(l109,QIList(l6,QIList(l227,l380,l5),QIList(l52,QIList(QIList(l13,l380,l5),l4,l5),QIList(QIList(l13,QIList(l32,l380,l5),l5),QIList(l31,l380,l5),l5),QIList(l4,QIList(l179,QIList(l224,QIList(l181,QIList(l31,l380,l5),l5),QIList(l55,QIList(l180,QIList(l32,l380,l5),l5),l5),l5,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l54,l214,QIList(l109,QIList(l6,QIList(l352,l227,l381,l5),QIList(l179,QIList(l53,QIList(l181,l352,l5),QIList(l180,QIList(l66,l381,QIList(l179,QIList(QIList(l4,QIList(l324,"ECASE expression failed.",l5),l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l53,l214,QIList(l109,QIList(l6,QIList(l352,l227,l381,l5),QIList(l268,QIList(QIList(l382,QIList(l17,l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l382,l5),QIList(l181,l352,l5),l5),l5),QIList(l52,QIList(l180,QIList(l79,QIList(l6,QIList(l383,l5),QIList(l224,QIList(l313,QIList(l31,l383,l5),l4,l5),l383,QIList(l179,QIList(QIList(l27,QIList(l181,l382,l5),QIList(l178,QIList(l181,QIList(l31,l383,l5),l5),l5),l5),QIList(l180,QIList(l32,l383,l5),l5),l5),l5),l5),l5),l381,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l52,l214,QIList(l109,QIList(l6,QIList(l227,l381,l5),QIList(l224,QIList(l13,l381,l5),l5,QIList(l224,QIList(l313,QIList(l33,l381,l5),l4,l5),QIList(l179,QIList(l119,QIList(l180,QIList(l35,l381,l5),l5),l5),l5),QIList(l179,QIList(l224,QIList(l181,QIList(l33,l381,l5),l5),QIList(l119,QIList(l180,QIList(l35,l381,l5),l5),l5),QIList(l52,QIList(l180,QIList(l32,l381,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l51,l214,QIList(l109,QIList(l6,QIList(l384,l227,l347,l5),QIList(l268,QIList(QIList(l385,QIList(l17,l5),l5),QIList(l386,QIList(l40,l384,l5),l5),QIList(l387,QIList(l41,l384,l5),l5),QIList(l367,QIList(l42,l384,l5),l5),l5),QIList(l179,QIList(l200,l5,QIList(l268,QIList(QIList(QIList(l181,l386,l5),0,l5),QIList(QIList(l181,l385,l5),QIList(l181,l387,l5),l5),l5),QIList(l255,QIList(l301,QIList(l181,l386,l5),QIList(l181,l385,l5),l5),QIList(l282,QIList(l180,l347,l5),l5),QIList(l47,QIList(l181,l386,l5),l5),l5),QIList(l181,l367,l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l50,l214,QIList(l109,QIList(l6,QIList(l384,l227,l347,l5),QIList(l268,QIList(QIList(l386,QIList(l40,l384,l5),l5),QIList(l388,QIList(l17,l5),l5),l5),QIList(l179,QIList(l200,l5,QIList(l268,QIList(QIList(QIList(l181,l388,l5),QIList(l181,QIList(l41,l384,l5),l5),l5),QIList(QIList(l181,l386,l5),l5,l5),l5),QIList(l255,QIList(l181,l388,l5),QIList(l115,QIList(l181,l386,l5),QIList(l31,QIList(l181,l388,l5),l5),l5),QIList(l282,QIList(l180,l347,l5),l5),QIList(l115,QIList(l181,l388,l5),QIList(l32,QIList(l181,l388,l5),l5),l5),l5),QIList(l181,QIList(l42,l384,l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),QIList(l49,l214,QIList(l109,QIList(l6,QIList(l345,l354,l5),QIList(l179,QIList(l115,QIList(l181,l354,l5),QIList(l29,QIList(l181,l345,l5),QIList(l181,l354,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l48,l214,QIList(l109,QIList(l6,QIList(l345,l226,QIList(l389,1,l5),l5),QIList(l179,QIList(l115,QIList(l181,l345,l5),QIList(l64,QIList(l181,l345,l5),QIList(l181,l389,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l47,l214,QIList(l109,QIList(l6,QIList(l345,l226,QIList(l389,1,l5),l5),QIList(l179,QIList(l115,QIList(l181,l345,l5),QIList(l63,QIList(l181,l345,l5),QIList(l181,l389,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l15,l214,QIList(l109,QIList(l6,QIList(l390,l227,l347,l5),QIList(l179,QIList(l200,l5,QIList(l255,QIList(l181,l390,l5),QIList(l180,l347,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l14,l214,QIList(l109,QIList(l6,QIList(l226,l362,l5),QIList(l179,QIList(l275,l5,QIList(l181,l362,l5),l5),l5),l5),l5),l5,l5),QIList(l12,l214,QIList(l109,QIList(l6,QIList(l350,l346,l227,l347,l5),QIList(l179,QIList(l119,QIList(l309,QIList(l178,QIList(l181,l350,l5),l5),QIList(l11,QIList(l181,QIList(l308,l350,l5),l5),QIList(l181,l346,l5),QIList(l180,QIList(l224,QIList(l55,QIList(l316,QIList(l31,l347,l5),l5),QIList(l28,QIList(l13,QIList(l32,l347,l5),l5),l5),l5),QIList(l179,QIList(QIList(l181,QIList(l31,l347,l5),l5),QIList(l200,QIList(l181,l350,l5),QIList(l180,QIList(l32,l347,l5),l5),l5),l5),l5),QIList(l179,QIList(QIList(l200,QIList(l181,l350,l5),QIList(l180,l347,l5),l5),l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l350,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l11,l214,QIList(l109,QIList(l6,QIList(l350,l346,l227,l347,l5),QIList(l268,QIList(QIList(l345,QIList(l17,"FN",l5),l5),l5),QIList(l179,QIList(l268,QIList(QIList(QIList(l181,l345,l5),QIList(l6,QIList(l181,l346,l5),QIList(l180,l347,l5),l5),l5),l5),QIList(l328,QIList(l181,l345,l5),"fname",QIList(l181,l350,l5),l5),QIList(l181,l345,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l10,l214,QIList(l109,QIList(l6,QIList(l350,l362,l226,l391,l5),QIList(l179,QIList(l119,QIList(l115,QIList(l181,l350,l5),QIList(l181,l362,l5),l5),QIList(l180,QIList(l7,QIList(l316,l391,l5),QIList(l179,QIList(QIList(l328,QIList(l178,QIList(l181,l350,l5),l5),"vardoc",QIList(l181,l391,l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l350,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l9,l214,QIList(l109,QIList(l6,QIList(l350,l362,l226,l391,l5),QIList(l179,QIList(l119,QIList(l2,QIList(l218,QIList(l181,l350,l5),l5),l5),QIList(l8,QIList(l19,QIList(l178,QIList(l181,l350,l5),l5),l5),QIList(l115,QIList(l181,l350,l5),QIList(l181,l362,l5),l5),l5),QIList(l180,QIList(l7,QIList(l316,l391,l5),QIList(l179,QIList(QIList(l328,QIList(l178,QIList(l181,l350,l5),l5),"vardoc",QIList(l181,l391,l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l350,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l8,l214,QIList(l109,QIList(l6,QIList(l390,l227,l347,l5),QIList(l179,QIList(l224,QIList(l181,l390,l5),l5,QIList(l119,QIList(l180,l347,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l7,l214,QIList(l109,QIList(l6,QIList(l390,l227,l347,l5),QIList(l179,QIList(l224,QIList(l181,l390,l5),QIList(l119,QIList(l180,l347,l5),l5),l5,l5),l5),l5),l5),l5,l5),QIList(l6,l214,QIList(l109,QIList(l6,QIList(l346,l227,l347,l5),QIList(l179,QIList(l109,QIList(l6,QIList(l181,l346,l5),QIList(l180,l347,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l3,l214,QIList(l109,QIList(l6,QIList(l350,l362,l226,l391,l5),QIList(l179,QIList(l119,QIList(l2,QIList(l218,QIList(l181,l350,l5),l5),l5),QIList(l2,QIList(l220,QIList(l181,l350,l5),l5),l5),QIList(l115,QIList(l181,l350,l5),QIList(l181,l362,l5),l5),QIList(l180,QIList(l7,QIList(l316,l391,l5),QIList(l179,QIList(QIList(l328,QIList(l178,QIList(l181,l350,l5),l5),"vardoc",QIList(l181,l391,l5),l5),l5),l5),l5),l5),QIList(l178,QIList(l181,l350,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l2,l214,QIList(l109,QIList(l6,QIList(l227,l348,l5),QIList(l179,QIList(l263,QIList(l180,QIList(l79,QIList(l6,QIList(l349,l5),QIList(l179,QIList(l217,QIList(l178,QIList(l181,l349,l5),l5),l5),l5),l5),l348,l5),l5),l5),l5),l5),l5),l5,l5),QIList(l1,l214,QIList(l109,QIList(l6,QIList(l350,l346,l227,l347,l5),QIList(l179,QIList(l263,QIList(l213,QIList(l178,QIList(l181,l350,l5),l5),QIList(l178,QIList(l109,QIList(l6,QIList(l181,QIList(l79,QIList(l109,QIList(l6,QIList(l345,l5),QIList(l224,QIList(l313,l345,QIList(l178,l341,l5),l5),QIList(l178,l227,l5),l345,l5),l5),l5),l346,l5),l5),QIList(l180,l347,l5),l5),l5),l5),l5),l5),l5),l5),l5),l5,l5),l5),l5,l5,l5); +((l204).value = l392); +var l393 = QIList(QIList(l391,"l391"),QIList(l390,"l390"),QIList(l389,"l389"),QIList(l388,"l388"),QIList(l387,"l387"),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(l341,"l341"),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(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(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(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(){ + l140.fvalue(pv, l391); + l140.fvalue(pv, l390); + l140.fvalue(pv, l389); + l140.fvalue(pv, l388); + l140.fvalue(pv, l387); l140.fvalue(pv, l386); l140.fvalue(pv, l385); l140.fvalue(pv, l384); @@ -8899,7 +9266,7 @@ var l388 = QIList(QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QI l140.fvalue(pv, l345); l140.fvalue(pv, l344); l140.fvalue(pv, l343); - l140.fvalue(pv, l342); + l140.fvalue(pv, l341); l140.fvalue(pv, l340); l140.fvalue(pv, l339); l140.fvalue(pv, l338); @@ -8957,7 +9324,6 @@ var l388 = QIList(QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QI l140.fvalue(pv, l286); l140.fvalue(pv, l285); l140.fvalue(pv, l284); - l140.fvalue(pv, l283); l140.fvalue(pv, l282); l140.fvalue(pv, l281); l140.fvalue(pv, l280); @@ -9239,9 +9605,9 @@ var l388 = QIList(QIList(l386,"l386"),QIList(l385,"l385"),QIList(l384,"l384"),QI l140.fvalue(pv, l3); l140.fvalue(pv, l2); l140.fvalue(pv, l1); - ((l251).value = l388); - ((l205).value = 922); - ((l16).value = 235); + ((l251).value = l393); + ((l205).value = 1100); + ((l16).value = 413); return ((l272).value = 304); })(); -((l252).value = 388); +((l252).value = 393); diff --git a/ecmalisp.lisp b/ecmalisp.lisp index e62d0ef..a711013 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -370,9 +370,9 @@ (defun map1 (func list) (with-collect - (while list - (collect (funcall func (car list))) - (setq list (cdr list))))) + (while list + (collect (funcall func (car list))) + (setq list (cdr list))))) (defmacro loop (&body body) `(while t ,@body)) @@ -380,14 +380,14 @@ (defun mapcar (func list &rest lists) (let ((lists (cons list lists))) (with-collect - (block loop - (loop - (let ((elems (map1 #'car lists))) - (do ((tail lists (cdr tail))) - ((null tail)) - (when (null (car tail)) (return-from loop)) - (rplaca tail (cdar tail))) - (collect (apply func elems)))))))) + (block loop + (loop + (let ((elems (map1 #'car lists))) + (do ((tail lists (cdr tail))) + ((null tail)) + (when (null (car tail)) (return-from loop)) + (rplaca tail (cdar tail))) + (collect (apply func elems)))))))) (defun identity (x) x) @@ -562,7 +562,7 @@ `(multiple-value-call #'list ,value-from)) - ;;; Generalized references (SETF) +;;; Generalized references (SETF) (defvar *setf-expanders* nil) @@ -630,7 +630,17 @@ `(progn (rplacd ,cons ,new-value) ,new-value) `(car ,cons)))) - ;;; Packages + (defmacro push (x place) + (multiple-value-bind (dummies vals newval setter getter) + (get-setf-expansion place) + (let ((g (gensym))) + `(let* ((,g ,x) + ,@(mapcar #'list dummies vals) + (,(car newval) (cons ,g ,getter)) + ,@(cdr newval)) + ,setter)))) + + ;; Packages (defvar *package-list* nil) -- 1.7.10.4