From 48ea10e44c0a53a266fb672d7627b1fa52314f61 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 11 Jan 2013 17:24:55 +0000 Subject: [PATCH] Fix `unknown variable' and `unknown function' error signaling --- ecmalisp.js | 1434 +++++++++++++++++++++++++++++---------------------------- ecmalisp.lisp | 17 +- 2 files changed, 749 insertions(+), 702 deletions(-) diff --git a/ecmalisp.js b/ecmalisp.js index 0b33c93..9250a59 100644 --- a/ecmalisp.js +++ b/ecmalisp.js @@ -1973,7 +1973,9 @@ var f38; return str.slice(a,b); })()); })() : (function(){ - return (function (){ throw "Unsupported argument."; })(); + return (function(){ + throw "Unsupported argument."; + })(); })()); })(); } @@ -2108,7 +2110,8 @@ var f38; throw 'The value ' + index + ' is not a type number.'; return string.charCodeAt(index); })()) !== v2 ? (function(){ - return (function(){ throw ({type: 'block', id: 65, value: v3, message: 'Return from unknown block SOME.'})})(); + return (function(){ + throw ({type: 'block', id: 65, value: v3, message: 'Return from unknown block SOME.'})})(); })() : v2); v159 = (function(){ var x = v159; @@ -2145,7 +2148,8 @@ var f38; })(); (function(){ ((v157)(v162) !== v2 ? (function(){ - return (function(){ throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})(); + return (function(){ + throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})(); })() : v2); return v2; })(); @@ -2167,7 +2171,9 @@ var f38; } })(); })() : (function(){ - return (function (){ throw "Unknown sequence."; })(); + return (function(){ + throw "Unknown sequence."; + })(); })())); })(); } @@ -2217,7 +2223,8 @@ var f38; throw 'The value ' + index + ' is not a type number.'; return string.charCodeAt(index); })()) !== v2 ? v2 : (function(){ - return (function(){ throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})(); + return (function(){ + throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})(); })()); v166 = (function(){ var x = v166; @@ -2254,7 +2261,8 @@ var f38; })(); (function(){ ((v164)(v169) !== v2 ? v2 : (function(){ - return (function(){ throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})(); + return (function(){ + throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})(); })()); return v2; })(); @@ -2276,7 +2284,9 @@ var f38; } })(); })() : (function(){ - return (function (){ throw "Unknown sequence."; })(); + return (function(){ + throw "Unknown sequence."; + })(); })())); })(); } @@ -2307,7 +2317,8 @@ var f38; return (function(){ return (function(){ while(v172 !== v2){ - (f16(v171, f22(v172)) !== v2 ? (function(){ throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){ + (f16(v171, f22(v172)) !== v2 ? (function(){ + throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){ var tmp = v172; return tmp === v2? v2: tmp.cdr; })()); @@ -3215,7 +3226,9 @@ var f86; f85(v234); return (function(v235){ return (f1(v235) !== v2 ? (function(){ - return (function (){ throw "Unspected EOF"; })(); + return (function(){ + throw "Unspected EOF"; + })(); })() : (f50(v235, 41) !== v2 ? (function(){ f80(v234); return v2; @@ -3224,7 +3237,9 @@ var f86; return (function(v236){ f85(v234); (f50(f80(v234), 41) !== v2 ? v2 : (function(){ - return (function (){ throw "')' was expected."; })(); + return (function(){ + throw "')' was expected."; + })(); })()); return v236; })(f87(v234)); @@ -3266,7 +3281,9 @@ var f88; return (function(){ while(f17(f16(v240, 34)) !== v2){ (f1(v240) !== v2 ? (function(){ - return (function (){ throw "Unexpected EOF"; })(); + return (function(){ + throw "Unexpected EOF"; + })(); })() : v2); (f16(v240, 92) !== v2 ? (function(){ return v240 = f80(v238); @@ -3358,11 +3375,15 @@ var f89; })() : (f67(v245, "ecmalisp") !== v2 ? (function(){ return f87(v242); })() : (function(){ - return (function (){ throw "Unknown reader form."; })(); + return (function(){ + throw "Unknown reader form."; + })(); })())); })(f84(v242, f83)); })() : (function(){ - return (function (){ throw "ECASE expression failed."; })(); + return (function(){ + throw "ECASE expression failed."; + })(); })()))); })(f80(v242)); })(); @@ -3765,7 +3786,9 @@ var f99; return (x.car = ({car: v273, cdr: f28(v274)})); })(); })() : (function(){ - return (function (){ throw "ECASE expression failed."; })(); + return (function(){ + throw "ECASE expression failed."; + })(); })())))); })(v275); })(); @@ -3867,7 +3890,9 @@ var f101; })() : (f16(v288, l86) !== v2 ? (function(){ return f32(v286); })() : (function(){ - return (function (){ throw "ECASE expression failed."; })(); + return (function(){ + throw "ECASE expression failed."; + })(); })())))); })(v287)); })(); @@ -3903,9 +3928,11 @@ var f102; return (function(){ try { return (function(){ - return (function(v291,v292){ - return v289 = f33(v291, v292, f31(v289)); - })(f29(v289),f30(v289)); + return v289 = f45((function (v291){ + if (arguments.length < 1) throw 'too few arguments'; + if (arguments.length > 1) throw 'too many arguments'; + return f60(f95, v291); + }), v289); })(); } catch (cf){ @@ -3920,10 +3947,10 @@ var f102; return l89; })(); var l90 = f3("*VARIABLE-COUNTER*"); -var v293; +var v292; (function(){ (function(){ - return v293 = 0; + return v292 = 0; })(); return l90; })(); @@ -3931,17 +3958,17 @@ var l91 = f3("GVARNAME"); var f103; (function(){ (function(){ - return f103 = (function(v294){ - ((v294)["fname"] = "GVARNAME"); - return v294; - })((function (v295){ + return f103 = (function(v293){ + ((v293)["fname"] = "GVARNAME"); + return v293; + })((function (v294){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return f68("v", f6(v293 = (function(){ - var x = v293; + return f68("v", f6(v292 = (function(){ + var x = v292; var y = 1; if (typeof x != 'number') throw 'The value ' + x + ' is not a type number.'; @@ -3971,29 +3998,33 @@ var l92 = f3("VARIABLE"); var f104; (function(){ (function(){ - return f104 = (function(v296){ - ((v296)["fname"] = "LOOKUP-VARIABLE"); - return v296; - })((function (v297,v298){ + return f104 = (function(v295){ + ((v295)["fname"] = "LOOKUP-VARIABLE"); + return v295; + })((function (v296,v297){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v299){ - return (v299 !== v2 ? v299 : (function(v300){ - return (v300 !== v2 ? v300 : (function(v301,v302){ - f99(v302, v289, l92); + return (function(v298){ + return (v298 !== v2 ? v298 : (function(v299){ + return (v299 !== v2 ? v299 : (function(v300,v301){ + f99(v301, v289, l92); v253 = ({car: (function (){ if (arguments.length > 0) throw 'too many arguments'; - return (f101(v297, v289, l93) !== v2 ? v2 : (function(){ - return (function (){ throw f68("Undefined variable `", v301, "'"); })(); - })()); + return (function(v302){ + return (f95(v302) !== v2 ? v2 : (function(){ + return (function(){ + throw f68("Undefined variable `", v300, "'"); + })(); + })()); + })(f101(v296, v289, l93)); }), cdr: v253}); - return v302; - })((v297).name,f91(v297, l94, f103(v297), v2))); - })(f101(v297, v289, l95))); - })(f101(v297, v298, l96)); + return v301; + })((v296).name,f91(v296, l94, f103(v296), v2))); + })(f101(v296, v289, l95))); + })(f101(v296, v297, l96)); })(); } catch (cf){ @@ -4129,9 +4160,13 @@ var f107; f99(v320, v289, l103); v253 = ({car: (function (){ if (arguments.length > 0) throw 'too many arguments'; - return (f95(f101(v315, v289, l104)) !== v2 ? v2 : (function(){ - return (function (){ throw f68("Undefined function `", v319, "'"); })(); - })()); + return (function(v321){ + return (f95(v321) !== v2 ? v2 : (function(){ + return (function(){ + throw f68("Undefined function `", v319, "'"); + })(); + })()); + })(f101(v315, v289, l104)); }), cdr: v253}); return v320; })((v315).name,f91(v315, l105, f68("f", f6(v313 = (function(){ @@ -4162,16 +4197,16 @@ var l109 = f3("LOOKUP-FUNCTION-TRANSLATION"); var f108; (function(){ (function(){ - return f108 = (function(v321){ - ((v321)["fname"] = "LOOKUP-FUNCTION-TRANSLATION"); - return v321; - })((function (v322,v323){ + return f108 = (function(v322){ + ((v322)["fname"] = "LOOKUP-FUNCTION-TRANSLATION"); + return v322; + })((function (v323,v324){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return f94(f107(v322, v323)); + return f94(f107(v323, v324)); })(); } catch (cf){ @@ -4186,10 +4221,10 @@ var f108; return l109; })(); var l110 = f3("*TOPLEVEL-COMPILATIONS*"); -var v324; +var v325; (function(){ (function(){ - return v324 = v2; + return v325 = v2; })(); return l110; })(); @@ -4197,19 +4232,19 @@ var l111 = f3("%COMPILE-DEFVAR"); var f109; (function(){ (function(){ - return f109 = (function(v325){ - ((v325)["fname"] = "%COMPILE-DEFVAR"); - return v325; - })((function (v326){ + return f109 = (function(v326){ + ((v326)["fname"] = "%COMPILE-DEFVAR"); + return v326; + })((function (v327){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v327){ - f96(v327); - return v324 = ({car: f68("var ", f94(v327)), cdr: v324}); - })(f104(v326, v289)); + return (function(v328){ + f96(v328); + return v325 = ({car: f68("var ", f94(v328)), cdr: v325}); + })(f104(v327, v289)); })(); } catch (cf){ @@ -4227,19 +4262,19 @@ var l112 = f3("%COMPILE-DEFUN"); var f110; (function(){ (function(){ - return f110 = (function(v328){ - ((v328)["fname"] = "%COMPILE-DEFUN"); - return v328; - })((function (v329){ + return f110 = (function(v329){ + ((v329)["fname"] = "%COMPILE-DEFUN"); + return v329; + })((function (v330){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v330){ - f96(v330); - return v324 = ({car: f68("var ", f94(v330)), cdr: v324}); - })(f107(v329, v289)); + return (function(v331){ + f96(v331); + return v325 = ({car: f68("var ", f94(v331)), cdr: v325}); + })(f107(v330, v289)); })(); } catch (cf){ @@ -4259,16 +4294,16 @@ var l113 = f3("MACRO"); var f111; (function(){ (function(){ - return f111 = (function(v331){ - ((v331)["fname"] = "%COMPILE-DEFMACRO"); - return v331; - })((function (v332,v333){ + return f111 = (function(v332){ + ((v332)["fname"] = "%COMPILE-DEFMACRO"); + return v332; + })((function (v333,v334){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return f99(f91(v332, l113, v333, v3), v289, l114); + return f99(f91(v333, l113, v334, v3), v289, l114); })(); } catch (cf){ @@ -4283,10 +4318,10 @@ var f111; return l115; })(); var l116 = f3("*COMPILATIONS*"); -var v334; +var v335; (function(){ (function(){ - return v334 = v2; + return v335 = v2; })(); return l116; })(); @@ -4294,26 +4329,26 @@ var l117 = f3("LS-COMPILE-BLOCK"); var f112; (function(){ (function(){ - return f112 = (function(v335){ - ((v335)["fname"] = "LS-COMPILE-BLOCK"); - return v335; - })((function (v336,v337){ + return f112 = (function(v336){ + ((v336)["fname"] = "LS-COMPILE-BLOCK"); + return v336; + })((function (v337,v338){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return f70(f59((function (v338){ + return f70(f59((function (v339){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return (function(v339){ - return (v339 !== v2 ? v339 : (((typeof(v338) == "string")?v3: v2) !== v2 ? f14(f43(v338)) : v2)); - })(f1(v338)); - }), f45((function (v340){ + return (function(v340){ + return (v340 !== v2 ? v340 : (((typeof(v339) == "string")?v3: v2) !== v2 ? f14(f43(v339)) : v2)); + })(f1(v339)); + }), f45((function (v341){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f73(v340, v337); - }), v336)), f68(";", v176)); + return f73(v341, v338); + }), v337)), f68(";", v176)); })(); } catch (cf){ @@ -4328,13 +4363,13 @@ var f112; return l117; })(); var l118 = f3("IF"); -v334 = ({car: f33(l118, (function (v341,v342,v343,v344){ +v335 = ({car: f33(l118, (function (v342,v343,v344,v345){ if (arguments.length < 4) throw 'too few arguments'; if (arguments.length > 4) throw 'too many arguments'; return (function(){ try { return (function(){ - return f68("(", f73(v342, v341), " !== ", f73(v2), " ? ", f73(v343, v341), " : ", f73(v344, v341), ")"); + return f68("(", f73(v343, v342), " !== ", f73(v2), " ? ", f73(v344, v342), " : ", f73(v345, v342), ")"); })(); } catch (cf){ @@ -4344,13 +4379,13 @@ v334 = ({car: f33(l118, (function (v341,v342,v343,v344){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l120 = f3("*LAMBDA-LIST-KEYWORDS*"); var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}; -var v345; +var v346; (function(){ (function(){ - return v345 = l119; + return v346 = l119; })(); return l120; })(); @@ -4358,25 +4393,25 @@ var l121 = f3("LIST-UNTIL-KEYWORD"); var f113; (function(){ (function(){ - return f113 = (function(v346){ - ((v346)["fname"] = "LIST-UNTIL-KEYWORD"); - return v346; - })((function (v347){ + return f113 = (function(v347){ + ((v347)["fname"] = "LIST-UNTIL-KEYWORD"); + return v347; + })((function (v348){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return ((function(v348){ - return (v348 !== v2 ? v348 : f57((function(){ - var tmp = v347; + return ((function(v349){ + return (v349 !== v2 ? v349 : f57((function(){ + var tmp = v348; return tmp === v2? v2: tmp.car; - })(), v345)); - })(f1(v347)) !== v2 ? v2 : ({car: (function(){ - var tmp = v347; + })(), v346)); + })(f1(v348)) !== v2 ? v2 : ({car: (function(){ + var tmp = v348; return tmp === v2? v2: tmp.car; })(), cdr: f113((function(){ - var tmp = v347; + var tmp = v348; return tmp === v2? v2: tmp.cdr; })())})); })(); @@ -4396,16 +4431,16 @@ var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"); var f114; (function(){ (function(){ - return f114 = (function(v349){ - ((v349)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS"); - return v349; - })((function (v350){ + return f114 = (function(v350){ + ((v350)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS"); + return v350; + })((function (v351){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return f113(v350); + return f113(v351); })(); } catch (cf){ @@ -4424,17 +4459,17 @@ var l123 = f3("&OPTIONAL"); var f115; (function(){ (function(){ - return f115 = (function(v351){ - ((v351)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"); - return v351; - })((function (v352){ + return f115 = (function(v352){ + ((v352)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"); + return v352; + })((function (v353){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ return f45(f35, f113((function(){ - var tmp = f57(l123, v352); + var tmp = f57(l123, v353); return tmp === v2? v2: tmp.cdr; })())); })(); @@ -4454,16 +4489,16 @@ var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"); var f116; (function(){ (function(){ - return f116 = (function(v353){ - ((v353)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS"); - return v353; - })((function (v354){ + return f116 = (function(v354){ + ((v354)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS"); + return v354; + })((function (v355){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return f45(f20, f115(v354)); + return f45(f20, f115(v355)); })(); } catch (cf){ @@ -4482,28 +4517,30 @@ var l126 = f3("&REST"); var f117; (function(){ (function(){ - return f117 = (function(v355){ - ((v355)["fname"] = "LAMBDA-LIST-REST-ARGUMENT"); - return v355; - })((function (v356){ + return f117 = (function(v356){ + ((v356)["fname"] = "LAMBDA-LIST-REST-ARGUMENT"); + return v356; + })((function (v357){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v357){ + return (function(v358){ ((function(){ - var tmp = v357; + var tmp = v358; return tmp === v2? v2: tmp.cdr; })() !== v2 ? (function(){ - return (function (){ throw "Bad lambda-list"; })(); + return (function(){ + throw "Bad lambda-list"; + })(); })() : v2); return (function(){ - var tmp = v357; + var tmp = v358; return tmp === v2? v2: tmp.car; })(); })(f113((function(){ - var tmp = f57(l126, v356); + var tmp = f57(l126, v357); return tmp === v2? v2: tmp.cdr; })())); })(); @@ -4520,58 +4557,58 @@ var f117; return l127; })(); var l128 = f3("LAMBDA"); -v334 = ({car: f33(l128, (function (v359,v360){ +v335 = ({car: f33(l128, (function (v360,v361){ if (arguments.length < 2) throw 'too few arguments'; - var v358= v2; + var v359= v2; for (var i = arguments.length-1; i>=2; i--) - v358 = {car: arguments[i], cdr: v358}; + v359 = {car: arguments[i], cdr: v359}; return (function(){ try { return (function(){ - return (function(v361,v362,v363){ - return (function(v364,v365,v366){ - return f68("(function (", f69(f45((function (v367){ + return (function(v362,v363,v364){ + return (function(v365,v366,v367){ + return f68("(function (", f69(f45((function (v368){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f105(v367, v366); - }), f39(v361, v362)), ","), "){", v176, f71((v361 !== v2 ? f68("if (arguments.length < ", f6(v364), ") throw 'too few arguments';", v176) : ""), (f17(v363) !== v2 ? f68("if (arguments.length > ", f6((function(){ - var x = v364; - var y = v365; + return f105(v368, v367); + }), f39(v362, v363)), ","), "){", v176, f71((v362 !== v2 ? f68("if (arguments.length < ", f6(v365), ") throw 'too few arguments';", v176) : ""), (f17(v364) !== v2 ? f68("if (arguments.length > ", f6((function(){ + var x = v365; + var y = v366; 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; - })()), ") throw 'too many arguments';", v176) : ""), (v362 !== v2 ? f68("switch(arguments.length){", v176, (function(v368,v369,v370){ + })()), ") throw 'too many arguments';", v176) : ""), (v363 !== v2 ? f68("switch(arguments.length){", v176, (function(v369,v370,v371){ return (function(){ (function(){ try { return (function(){ return (function(){ while(((function(){ - var x = v370; - var y = v365; + var x = v371; + var y = v366; 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=", f6((function(){ - var x = v364; - var y = v365; + })(f115(v361),v2,0), "}", v176) : ""), (v364 !== v2 ? (function(v373){ + return f68("var ", v373, "= ", f73(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){ + var x = v365; + var y = v366; 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; - })()), "; i--)", v176, f71(v372, " = ", "{car: arguments[i], cdr: "), v372, "};", v176); - })(f105(v363, v366)) : ""), f68(f112(f56(v358), v366), "return ", f73((function(){ - var tmp = f55(v358); + })()), "; i--)", v176, f71(v373, " = ", "{car: arguments[i], cdr: "), v373, "};", v176); + })(f105(v364, v367)) : ""), f68(f112(f56(v359), v367), "return ", f73((function(){ + var tmp = f55(v359); return tmp === v2? v2: tmp.car; - })(), v366), ";")), v176, "})"); - })(f43(v361),f43(v362),f106(f39(f35(v363), v361, v362), v359)); - })(f114(v360),f116(v360),f117(v360)); + })(), v367), ";")), v176, "})"); + })(f43(v362),f43(v363),f106(f39(f35(v364), v362, v363), v360)); + })(f114(v361),f116(v361),f117(v361)); })(); } catch (cf){ @@ -4619,15 +4656,15 @@ v334 = ({car: f33(l128, (function (v359,v360){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l129 = f3("FSETQ"); -v334 = ({car: f33(l129, (function (v373,v374,v375){ +v335 = ({car: f33(l129, (function (v374,v375,v376){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return f68(f108(v374, v373), " = ", f73(v375, v373)); + return f68(f108(v375, v374), " = ", f73(v376, v374)); })(); } catch (cf){ @@ -4637,15 +4674,15 @@ v334 = ({car: f33(l129, (function (v373,v374,v375){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l130 = f3("SETQ"); -v334 = ({car: f33(l130, (function (v376,v377,v378){ +v335 = ({car: f33(l130, (function (v377,v378,v379){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return f68(f105(v377, v376), " = ", f73(v378, v376)); + return f68(f105(v378, v377), " = ", f73(v379, v377)); })(); } catch (cf){ @@ -4655,61 +4692,61 @@ v334 = ({car: f33(l130, (function (v376,v377,v378){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l131 = f3("ESCAPE-STRING"); var f75; (function(){ (function(){ - return f75 = (function(v379){ - ((v379)["fname"] = "ESCAPE-STRING"); - return v379; - })((function (v380){ + return f75 = (function(v380){ + ((v380)["fname"] = "ESCAPE-STRING"); + return v380; + })((function (v381){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v381,v382,v383){ + return (function(v382,v383,v384){ (function(){ try { return (function(){ return (function(){ while(((function(){ - var x = v382; - var y = v383; + var x = v383; + var y = v384; 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 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (f51(v387) !== v2 ? (function(){ - return f6(v387); - })() : (((typeof(v387) == "string")?v3: v2) !== v2 ? (function(){ - return f68("\"", f75(v387), "\""); + return (f51(v388) !== v2 ? (function(){ + return f6(v388); + })() : (((typeof(v388) == "string")?v3: v2) !== v2 ? (function(){ + return f68("\"", f75(v388), "\""); })() : (((function(){ - var tmp = v387; + var tmp = v388; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2) !== v2 ? (function(){ - return f73(f39(f33(l132), f33(f75((v387).name))), v289); + return f73(f39(f33(l132), f33(f75((v388).name))), v289); })() : (((function(){ - var tmp = v387; + var tmp = v388; return (typeof tmp == 'object' && 'car' in tmp); })()?v3: v2) !== v2 ? (function(){ return f68("{car: ", f118((function(){ - var tmp = v387; + var tmp = v388; return tmp === v2? v2: tmp.car; })()), ", cdr: ", f118((function(){ - var tmp = v387; + var tmp = v388; return tmp === v2? v2: tmp.cdr; })()), "}"); })() : v2)))); @@ -4792,10 +4829,10 @@ var f118; return l133; })(); var l134 = f3("*LITERAL-COUNTER*"); -var v388; +var v389; (function(){ (function(){ - return v388 = 0; + return v389 = 0; })(); return l134; })(); @@ -4803,20 +4840,20 @@ var l135 = f3("LITERAL"); var f119; (function(){ (function(){ - return f119 = (function(v389){ - ((v389)["fname"] = "LITERAL"); - return v389; - })((function (v390){ + return f119 = (function(v390){ + ((v390)["fname"] = "LITERAL"); + return v390; + })((function (v391){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v391){ - v324 = ({car: f68("var ", v391, " = ", f118(v390)), cdr: v324}); - return v391; - })(f68("l", f6(v388 = (function(){ - var x = v388; + return (function(v392){ + v325 = ({car: f68("var ", v392, " = ", f118(v391)), cdr: v325}); + return v392; + })(f68("l", f6(v389 = (function(){ + var x = v389; var y = 1; if (typeof x != 'number') throw 'The value ' + x + ' is not a type number.'; @@ -4838,13 +4875,13 @@ var f119; return l135; })(); var l136 = f3("QUOTE"); -v334 = ({car: f33(l136, (function (v392,v393){ +v335 = ({car: f33(l136, (function (v393,v394){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return f119(v393); + return f119(v394); })(); } catch (cf){ @@ -4854,17 +4891,17 @@ v334 = ({car: f33(l136, (function (v392,v393){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l137 = f3("%WHILE"); -v334 = ({car: f33(l137, (function (v395,v396){ +v335 = ({car: f33(l137, (function (v396,v397){ if (arguments.length < 2) throw 'too few arguments'; - var v394= v2; + var v395= v2; for (var i = arguments.length-1; i>=2; i--) - v394 = {car: arguments[i], cdr: v394}; + v395 = {car: arguments[i], cdr: v395}; return (function(){ try { return (function(){ - return f68("(function(){", v176, f71("while(", f73(v396, v395), " !== ", f73(v2), "){", v176, f71(f112(v394, v395)), "}", "return ", f73(v2), ";", v176), "})()"); + return f68("(function(){", v176, f71("while(", f73(v397, v396), " !== ", f73(v2), "){", v176, f71(f112(v395, v396)), "}", "return ", f73(v2), ";", v176), "})()"); })(); } catch (cf){ @@ -4874,25 +4911,25 @@ v334 = ({car: f33(l137, (function (v395,v396){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l139 = f3("LAMBDA"); var l138 = f3("FUNCTION"); -v334 = ({car: f33(l138, (function (v397,v398){ +v335 = ({car: f33(l138, (function (v398,v399){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return ((f36(v398) !== v2 ? (((function(){ - var tmp = v398; + return ((f36(v399) !== v2 ? (((function(){ + var tmp = v399; return tmp === v2? v2: tmp.car; })() === l139)?v3: v2) : v2) !== v2 ? (function(){ - return f73(v398, v397); + return f73(v399, v398); })() : (((function(){ - var tmp = v398; + var tmp = v399; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2) !== v2 ? (function(){ - return f108(v398, v397); + return f108(v399, v398); })() : v2)); })(); } @@ -4903,18 +4940,18 @@ v334 = ({car: f33(l138, (function (v397,v398){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l141 = f3("PROGN"); var l140 = f3("EVAL-WHEN-COMPILE"); -v334 = ({car: f33(l140, (function (v400){ +v335 = ({car: f33(l140, (function (v401){ if (arguments.length < 1) throw 'too few arguments'; - var v399= v2; + var v400= v2; for (var i = arguments.length-1; i>=1; i--) - v399 = {car: arguments[i], cdr: v399}; + v400 = {car: arguments[i], cdr: v400}; return (function(){ try { return (function(){ - f120(({car: l141, cdr: v399})); + f120(({car: l141, cdr: v400})); return ""; })(); } @@ -4925,20 +4962,20 @@ v334 = ({car: f33(l140, (function (v400){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l142 = f3("PROGN"); -v334 = ({car: f33(l142, (function (v402){ +v335 = ({car: f33(l142, (function (v403){ if (arguments.length < 1) throw 'too few arguments'; - var v401= v2; + var v402= v2; for (var i = arguments.length-1; i>=1; i--) - v401 = {car: arguments[i], cdr: v401}; + v402 = {car: arguments[i], cdr: v402}; return (function(){ try { return (function(){ - return f68("(function(){", v176, f71(f112(f56(v401), v402), "return ", f73((function(){ - var tmp = f55(v401); + return f68("(function(){", v176, f71(f112(f56(v402), v403), "return ", f73((function(){ + var tmp = f55(v402); return tmp === v2? v2: tmp.car; - })(), v402), ";", v176), "})()"); + })(), v403), ";", v176), "})()"); })(); } catch (cf){ @@ -4948,34 +4985,34 @@ v334 = ({car: f33(l142, (function (v402){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l143 = f3("LET"); -v334 = ({car: f33(l143, (function (v404,v405){ +v335 = ({car: f33(l143, (function (v405,v406){ if (arguments.length < 2) throw 'too few arguments'; - var v403= v2; + var v404= v2; for (var i = arguments.length-1; i>=2; i--) - v403 = {car: arguments[i], cdr: v403}; + v404 = {car: arguments[i], cdr: v404}; return (function(){ try { return (function(){ - return (function(v406){ - return (function(v407,v408){ - return (function(v409){ - return f68("(function(", f69(f45((function (v410){ + return (function(v407){ + return (function(v408,v409){ + return (function(v410){ + return f68("(function(", f69(f45((function (v411){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f105(v410, v409); - }), v407), ","), "){", v176, f71(f112(f56(v403), v409), "return ", f73((function(){ - var tmp = f55(v403); + return f105(v411, v410); + }), v408), ","), "){", v176, f71(f112(f56(v404), v410), "return ", f73((function(){ + var tmp = f55(v404); return tmp === v2? v2: tmp.car; - })(), v409), ";", v176), "})(", f69(f45((function (v411){ + })(), v410), ";", v176), "})(", f69(f45((function (v412){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f73(v411, v404); - }), v408), ","), ")"); - })(f106(v407, v404)); - })(f45(f29, v406),f45(f30, v406)); - })(f45(f35, v405)); + return f73(v412, v405); + }), v409), ","), ")"); + })(f106(v408, v405)); + })(f45(f29, v407),f45(f30, v407)); + })(f45(f35, v406)); })(); } catch (cf){ @@ -4985,12 +5022,12 @@ v334 = ({car: f33(l143, (function (v404,v405){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l144 = f3("*BLOCK-COUNTER*"); -var v412; +var v413; (function(){ (function(){ - return v412 = 0; + return v413 = 0; })(); return l144; })(); @@ -4998,20 +5035,20 @@ var l148 = f3("BLOCK"); var l147 = f3("BLOCK"); var l146 = f3("PROGN"); var l145 = f3("BLOCK"); -v334 = ({car: f33(l145, (function (v414,v415){ +v335 = ({car: f33(l145, (function (v415,v416){ if (arguments.length < 2) throw 'too few arguments'; - var v413= v2; + var v414= v2; for (var i = arguments.length-1; i>=2; i--) - v413 = {car: arguments[i], cdr: v413}; + v414 = {car: arguments[i], cdr: v414}; return (function(){ try { return (function(){ - return (function(v416){ - return (function(v417){ - return f68("(function(){", v176, f71("try {", v176, f71("return ", f73(f39(f33(l146), v413), f100(f33(v417), v414, l147)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'block' && cf.id == ", v416, ")", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()"); - })(f91(v415, l148, v416, v3)); - })(f6(v412 = (function(){ - var x = v412; + return (function(v417){ + return (function(v418){ + return f68("(function(){", v176, f71("try {", v176, f71("return ", f73(f39(f33(l146), v414), f100(f33(v418), v415, l147)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'block' && cf.id == ", v417, ")", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()"); + })(f91(v416, l148, v417, v3)); + })(f6(v413 = (function(){ + var x = v413; var y = 1; if (typeof x != 'number') throw 'The value ' + x + ' is not a type number.'; @@ -5028,23 +5065,25 @@ v334 = ({car: f33(l145, (function (v414,v415){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l150 = f3("BLOCK"); var l149 = f3("RETURN-FROM"); -v334 = ({car: f33(l149, (function (v418,v419,v420){ +v335 = ({car: f33(l149, (function (v419,v420,v421){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; switch(arguments.length){ case 2: - v420=v2; + v421=v2; default: break; } return (function(){ try { return (function(){ - return (function(v421){ - return (v421 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'block', ", "id: ", f94(v421), ", ", "value: ", f73(v420, v418), ", ", "message: 'Return from unknown block ", (v419).name, ".'", "})"), "})()") : (function (){ throw f68("Unknown block `", (v419).name, "'."); })()); - })(f101(v419, v418, l150)); + return (function(v422){ + return (v422 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'block', ", "id: ", f94(v422), ", ", "value: ", f73(v421, v419), ", ", "message: 'Return from unknown block ", (v420).name, ".'", "})"), "})()") : (function(){ + throw f68("Unknown block `", (v420).name, "'."); + })()); + })(f101(v420, v419, l150)); })(); } catch (cf){ @@ -5054,18 +5093,18 @@ v334 = ({car: f33(l149, (function (v418,v419,v420){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l152 = f3("PROGN"); var l151 = f3("CATCH"); -v334 = ({car: f33(l151, (function (v423,v424){ +v335 = ({car: f33(l151, (function (v424,v425){ if (arguments.length < 2) throw 'too few arguments'; - var v422= v2; + var v423= v2; for (var i = arguments.length-1; i>=2; i--) - v422 = {car: arguments[i], cdr: v422}; + v423 = {car: arguments[i], cdr: v423}; return (function(){ try { return (function(){ - return f68("(function(){", v176, f71("var id = ", f73(v424, v423), ";", v176, "try {", v176, f71("return ", f73(f39(f33(l152), v422)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'catch' && cf.id == id)", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()"); + return f68("(function(){", v176, f71("var id = ", f73(v425, v424), ";", v176, "try {", v176, f71("return ", f73(f39(f33(l152), v423)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'catch' && cf.id == id)", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()"); })(); } catch (cf){ @@ -5075,20 +5114,20 @@ v334 = ({car: f33(l151, (function (v423,v424){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l153 = f3("THROW"); -v334 = ({car: f33(l153, (function (v425,v426,v427){ +v335 = ({car: f33(l153, (function (v426,v427,v428){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; switch(arguments.length){ case 2: - v427=v2; + v428=v2; default: break; } return (function(){ try { return (function(){ - return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v426, v425), ", ", "value: ", f73(v427, v425), ", ", "message: 'Throw uncatched.'", "})"), "})()"); + return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v427, v426), ", ", "value: ", f73(v428, v426), ", ", "message: 'Throw uncatched.'", "})"), "})()"); })(); } catch (cf){ @@ -5098,20 +5137,20 @@ v334 = ({car: f33(l153, (function (v425,v426,v427){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l154 = f3("*TAGBODY-COUNTER*"); -var v428; +var v429; (function(){ (function(){ - return v428 = 0; + return v429 = 0; })(); return l154; })(); var l155 = f3("*GO-TAG-COUNTER*"); -var v429; +var v430; (function(){ (function(){ - return v429 = 0; + return v430 = 0; })(); return l155; })(); @@ -5119,21 +5158,21 @@ var l156 = f3("GO-TAG-P"); var f121; (function(){ (function(){ - return f121 = (function(v430){ - ((v430)["fname"] = "GO-TAG-P"); - return v430; - })((function (v431){ + return f121 = (function(v431){ + ((v431)["fname"] = "GO-TAG-P"); + return v431; + })((function (v432){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v432){ - return (v432 !== v2 ? v432 : ((function(){ - var tmp = v431; + return (function(v433){ + return (v433 !== v2 ? v433 : ((function(){ + var tmp = v432; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2)); - })(f51(v431)); + })(f51(v432)); })(); } catch (cf){ @@ -5153,24 +5192,24 @@ var l157 = f3("GOTAG"); var f122; (function(){ (function(){ - return f122 = (function(v433){ - ((v433)["fname"] = "DECLARE-TAGBODY-TAGS"); - return v433; - })((function (v434,v435,v436){ + return f122 = (function(v434){ + ((v434)["fname"] = "DECLARE-TAGBODY-TAGS"); + return v434; + })((function (v435,v436,v437){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v437){ - return f100(v437, v434, l157); - })(f45((function (v438){ + return (function(v438){ + return f100(v438, v435, l157); + })(f45((function (v439){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return (function(v439){ - return f91(v438, l158, f33(v435, v439), v3); - })(f6(v429 = (function(){ - var x = v429; + return (function(v440){ + return f91(v439, l158, f33(v436, v440), v3); + })(f6(v430 = (function(){ + var x = v430; var y = 1; if (typeof x != 'number') throw 'The value ' + x + ' is not a type number.'; @@ -5178,7 +5217,7 @@ var f122; throw 'The value ' + y + ' is not a type number.'; return x+y; })())); - }), f60(f121, v436))); + }), f60(f121, v437))); })(); } catch (cf){ @@ -5197,56 +5236,57 @@ var l163 = f3("GOTAG"); var l162 = f3("NIL"); var l161 = f3("PROGN"); var l160 = f3("TAGBODY"); -v334 = ({car: f33(l160, (function (v441){ +v335 = ({car: f33(l160, (function (v442){ if (arguments.length < 1) throw 'too few arguments'; - var v440= v2; + var v441= v2; for (var i = arguments.length-1; i>=1; i--) - v440 = {car: arguments[i], cdr: v440}; + v441 = {car: arguments[i], cdr: v441}; return (function(){ try { return (function(){ - (f64(f121, v440) !== v2 ? v2 : (function(){ - return (function(){ throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v440, f33(l162)), v441), message: 'Return from unknown block TAGBODY.'})})(); + (f64(f121, v441) !== v2 ? v2 : (function(){ + return (function(){ + throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v441, f33(l162)), v442), message: 'Return from unknown block TAGBODY.'})})(); })()); (f121((function(){ - var tmp = v440; + var tmp = v441; return tmp === v2? v2: tmp.car; })()) !== v2 ? v2 : (function(){ - return v440 = ({car: f5("START"), cdr: v440}); + return v441 = ({car: f5("START"), cdr: v441}); })()); - return (function(v442){ - return (function(v443,v444){ - (function(v445){ - return v444 = f30(f94(v445)); - })(f101(f29(v440), v443, l163)); - return f68("(function(){", v176, f71("var tagbody_", v442, " = ", v444, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v446){ - return f68("switch(tagbody_", v442, "){", v176, "case ", v444, ":", v176, (function(){ + return (function(v443){ + return (function(v444,v445){ + (function(v446){ + return v445 = f30(f94(v446)); + })(f101(f29(v441), v444, l163)); + return f68("(function(){", v176, f71("var tagbody_", v443, " = ", v445, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v447){ + return f68("switch(tagbody_", v443, "){", v176, "case ", v445, ":", v176, (function(){ try { return (function(){ - return (function(v447,v448){ + return (function(v448,v449){ (function(){ - while(v447 !== v2){ - v448 = (function(){ - var tmp = v447; + while(v448 !== v2){ + v449 = (function(){ + var tmp = v448; return tmp === v2? v2: tmp.car; })(); (function(){ - v446 = f68(v446, (function(){ - return (f17(f121(v448)) !== v2 ? f71(f73(v448, v443), ";", v176) : (function(v449){ - return f68("case ", f30(f94(v449)), ":", v176); - })(f101(v448, v443, l164))); + v447 = f68(v447, (function(){ + return (f17(f121(v449)) !== v2 ? f71(f73(v449, v444), ";", v176) : (function(v450){ + return f68("case ", f30(f94(v450)), ":", v176); + })(f101(v449, v444, l164))); })()); return v2; })(); - v447 = (function(){ - var tmp = v447; + v448 = (function(){ + var tmp = v448; return tmp === v2? v2: tmp.cdr; })(); }return v2; })(); - return v446; + return v447; })((function(){ - var tmp = v440; + var tmp = v441; return tmp === v2? v2: tmp.cdr; })(),v2); })(); @@ -5258,9 +5298,9 @@ v334 = ({car: f33(l160, (function (v441){ throw cf; } })(), "default:", v176, " break tbloop;", v176, "}", v176); - })("")), "}", v176, "catch (jump) {", v176, " if (jump.type == 'tagbody' && jump.id == ", v442, ")", v176, " tagbody_", v442, " = jump.label;", v176, " else", v176, " throw(jump);", v176, "}", v176), "}", v176, "return ", f73(v2), ";", v176), "})()"); - })(f122(v441, v442, v440),v2); - })(f6(v428)); + })("")), "}", v176, "catch (jump) {", v176, " if (jump.type == 'tagbody' && jump.id == ", v443, ")", v176, " tagbody_", v443, " = jump.label;", v176, " else", v176, " throw(jump);", v176, "}", v176), "}", v176, "return ", f73(v2), ";", v176), "})()"); + })(f122(v442, v443, v441),v2); + })(f6(v429)); })(); } catch (cf){ @@ -5270,24 +5310,26 @@ v334 = ({car: f33(l160, (function (v441){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l166 = f3("GOTAG"); var l165 = f3("GO"); -v334 = ({car: f33(l165, (function (v450,v451){ +v335 = ({car: f33(l165, (function (v451,v452){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v452,v453){ - return (v452 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'tagbody', ", "id: ", f29(f94(v452)), ", ", "label: ", f30(f94(v452)), ", ", "message: 'Attempt to GO to non-existing tag ", v453, "'", "})", v176), "})()") : (function (){ throw f68("Unknown tag `", v453, "'."); })()); - })(f101(v451, v450, l166),(((function(){ - var tmp = v451; + return (function(v453,v454){ + return (v453 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'tagbody', ", "id: ", f29(f94(v453)), ", ", "label: ", f30(f94(v453)), ", ", "message: 'Attempt to GO to non-existing tag ", v454, "'", "})", v176), "})()") : (function(){ + throw f68("Unknown tag `", v454, "'."); + })()); + })(f101(v452, v451, l166),(((function(){ + var tmp = v452; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2) !== v2 ? (function(){ - return (v451).name; - })() : (f51(v451) !== v2 ? (function(){ - return f6(v451); + return (v452).name; + })() : (f51(v452) !== v2 ? (function(){ + return f6(v452); })() : v2))); })(); } @@ -5298,17 +5340,17 @@ v334 = ({car: f33(l165, (function (v450,v451){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l167 = f3("UNWIND-PROTECT"); -v334 = ({car: f33(l167, (function (v455,v456){ +v335 = ({car: f33(l167, (function (v456,v457){ if (arguments.length < 2) throw 'too few arguments'; - var v454= v2; + var v455= v2; for (var i = arguments.length-1; i>=2; i--) - v454 = {car: arguments[i], cdr: v454}; + v455 = {car: arguments[i], cdr: v455}; return (function(){ try { return (function(){ - return f68("(function(){", v176, f71("var ret = ", f73(v2), ";", v176, "try {", v176, f71("ret = ", f73(v456, v455), ";", v176), "} finally {", v176, f71(f112(v454, v455)), "}", v176, "return ret;", v176), "})()"); + return f68("(function(){", v176, f71("var ret = ", f73(v2), ";", v176, "try {", v176, f71("ret = ", f73(v457, v456), ";", v176), "} finally {", v176, f71(f112(v455, v456)), "}", v176, "return ret;", v176), "})()"); })(); } catch (cf){ @@ -5318,7 +5360,7 @@ v334 = ({car: f33(l167, (function (v455,v456){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l176 = f3("BACKQUOTE-EXPAND-1"); var l175 = f3("LIST"); var l174 = f3("UNQUOTE-SPLICING"); @@ -5331,53 +5373,53 @@ var l168 = f3("QUOTE"); var f123; (function(){ (function(){ - return f123 = (function(v457){ - ((v457)["fname"] = "BACKQUOTE-EXPAND-1"); - return v457; - })((function (v458){ + return f123 = (function(v458){ + ((v458)["fname"] = "BACKQUOTE-EXPAND-1"); + return v458; + })((function (v459){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ return (((function(){ - var tmp = v458; + var tmp = v459; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2) !== v2 ? (function(){ - return f33(l168, v458); - })() : (f34(v458) !== v2 ? (function(){ - return v458; + return f33(l168, v459); + })() : (f34(v459) !== v2 ? (function(){ + return v459; })() : ((((function(){ - var tmp = v458; + var tmp = v459; return tmp === v2? v2: tmp.car; })() === l169)?v3: v2) !== v2 ? (function(){ return (function(){ - var tmp = v458; + var tmp = v459; return tmp === v2? v2: tmp.car; })(); })() : ((((function(){ - var tmp = v458; + var tmp = v459; return tmp === v2? v2: tmp.car; })() === l170)?v3: v2) !== v2 ? (function(){ - return f123(f123(f23(v458))); + return f123(f123(f23(v459))); })() : (function(){ - return ({car: l171, cdr: f45((function (v459){ + return ({car: l171, cdr: f45((function (v460){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return ((f36(v459) !== v2 ? (((function(){ - var tmp = v459; + return ((f36(v460) !== v2 ? (((function(){ + var tmp = v460; return tmp === v2? v2: tmp.car; })() === l172)?v3: v2) : v2) !== v2 ? (function(){ - return f33(l173, f23(v459)); - })() : ((f36(v459) !== v2 ? (((function(){ - var tmp = v459; + return f33(l173, f23(v460)); + })() : ((f36(v460) !== v2 ? (((function(){ + var tmp = v460; return tmp === v2? v2: tmp.car; })() === l174)?v3: v2) : v2) !== v2 ? (function(){ - return f23(v459); + return f23(v460); })() : (function(){ - return f33(l175, f123(v459)); + return f33(l175, f123(v460)); })())); - }), v458)}); + }), v459)}); })())))); })(); } @@ -5397,19 +5439,19 @@ var l177 = f3("BACKQUOTE"); var f124; (function(){ (function(){ - return f124 = (function(v460){ - ((v460)["fname"] = "BACKQUOTE-EXPAND"); - return v460; - })((function (v461){ + return f124 = (function(v461){ + ((v461)["fname"] = "BACKQUOTE-EXPAND"); + return v461; + })((function (v462){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return ((f36(v461) !== v2 ? (((function(){ - var tmp = v461; + return ((f36(v462) !== v2 ? (((function(){ + var tmp = v462; return tmp === v2? v2: tmp.car; - })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v461)) : v461); + })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v462)) : v462); })(); } catch (cf){ @@ -5424,13 +5466,13 @@ var f124; return l178; })(); var l179 = f3("BACKQUOTE"); -v334 = ({car: f33(l179, (function (v462,v463){ +v335 = ({car: f33(l179, (function (v463,v464){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return f73(f123(v463), v462); + return f73(f123(v464), v463); })(); } catch (cf){ @@ -5440,22 +5482,22 @@ v334 = ({car: f33(l179, (function (v462,v463){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l180 = f3("NUM-OP-NUM"); var f125; (function(){ (function(){ - return f125 = (function(v464){ - ((v464)["fname"] = "NUM-OP-NUM"); - return v464; - })((function (v465,v466,v467){ + return f125 = (function(v465){ + ((v465)["fname"] = "NUM-OP-NUM"); + return v465; + })((function (v466,v467,v468){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v465, ";", v176), f68("var ", "y", " = ", v467, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("if (typeof ", "y", " != '", "number", "')", v176, f71("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ - return f68("x", v466, "y"); + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v466, ";", v176), f68("var ", "y", " = ", v468, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("if (typeof ", "y", " != '", "number", "')", v176, f71("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ + return f68("x", v467, "y"); })(), ";", v176)), "})()"); })(); } @@ -5471,15 +5513,15 @@ var f125; return l180; })(); var l181 = f3("+"); -v334 = ({car: f33(l181, (function (v468,v469,v470){ +v335 = ({car: f33(l181, (function (v469,v470,v471){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v471,v472){ - return f125(v471, "+", v472); - })(f73(v469, v468),f73(v470, v468)); + return (function(v472,v473){ + return f125(v472, "+", v473); + })(f73(v470, v469),f73(v471, v469)); })(); } catch (cf){ @@ -5489,17 +5531,17 @@ v334 = ({car: f33(l181, (function (v468,v469,v470){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l182 = f3("-"); -v334 = ({car: f33(l182, (function (v473,v474,v475){ +v335 = ({car: f33(l182, (function (v474,v475,v476){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v476,v477){ - return f125(v476, "-", v477); - })(f73(v474, v473),f73(v475, v473)); + return (function(v477,v478){ + return f125(v477, "-", v478); + })(f73(v475, v474),f73(v476, v474)); })(); } catch (cf){ @@ -5509,17 +5551,17 @@ v334 = ({car: f33(l182, (function (v473,v474,v475){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l183 = f3("*"); -v334 = ({car: f33(l183, (function (v478,v479,v480){ +v335 = ({car: f33(l183, (function (v479,v480,v481){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v481,v482){ - return f125(v481, "*", v482); - })(f73(v479, v478),f73(v480, v478)); + return (function(v482,v483){ + return f125(v482, "*", v483); + })(f73(v480, v479),f73(v481, v479)); })(); } catch (cf){ @@ -5529,17 +5571,17 @@ v334 = ({car: f33(l183, (function (v478,v479,v480){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l184 = f3("/"); -v334 = ({car: f33(l184, (function (v483,v484,v485){ +v335 = ({car: f33(l184, (function (v484,v485,v486){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v486,v487){ - return f125(v486, "/", v487); - })(f73(v484, v483),f73(v485, v483)); + return (function(v487,v488){ + return f125(v487, "/", v488); + })(f73(v485, v484),f73(v486, v484)); })(); } catch (cf){ @@ -5549,17 +5591,17 @@ v334 = ({car: f33(l184, (function (v483,v484,v485){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l185 = f3("MOD"); -v334 = ({car: f33(l185, (function (v488,v489,v490){ +v335 = ({car: f33(l185, (function (v489,v490,v491){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v491,v492){ - return f125(v491, "%", v492); - })(f73(v489, v488),f73(v490, v488)); + return (function(v492,v493){ + return f125(v492, "%", v493); + })(f73(v490, v489),f73(v491, v489)); })(); } catch (cf){ @@ -5569,17 +5611,17 @@ v334 = ({car: f33(l185, (function (v488,v489,v490){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l186 = f3("<"); -v334 = ({car: f33(l186, (function (v493,v494,v495){ +v335 = ({car: f33(l186, (function (v494,v495,v496){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v496,v497){ - return f72(f125(v496, "<", v497)); - })(f73(v494, v493),f73(v495, v493)); + return (function(v497,v498){ + return f72(f125(v497, "<", v498)); + })(f73(v495, v494),f73(v496, v494)); })(); } catch (cf){ @@ -5589,17 +5631,17 @@ v334 = ({car: f33(l186, (function (v493,v494,v495){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l187 = f3(">"); -v334 = ({car: f33(l187, (function (v498,v499,v500){ +v335 = ({car: f33(l187, (function (v499,v500,v501){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v501,v502){ - return f72(f125(v501, ">", v502)); - })(f73(v499, v498),f73(v500, v498)); + return (function(v502,v503){ + return f72(f125(v502, ">", v503)); + })(f73(v500, v499),f73(v501, v499)); })(); } catch (cf){ @@ -5609,17 +5651,17 @@ v334 = ({car: f33(l187, (function (v498,v499,v500){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l188 = f3("="); -v334 = ({car: f33(l188, (function (v503,v504,v505){ +v335 = ({car: f33(l188, (function (v504,v505,v506){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v506,v507){ - return f72(f125(v506, "==", v507)); - })(f73(v504, v503),f73(v505, v503)); + return (function(v507,v508){ + return f72(f125(v507, "==", v508)); + })(f73(v505, v504),f73(v506, v504)); })(); } catch (cf){ @@ -5629,17 +5671,17 @@ v334 = ({car: f33(l188, (function (v503,v504,v505){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l189 = f3("<="); -v334 = ({car: f33(l189, (function (v508,v509,v510){ +v335 = ({car: f33(l189, (function (v509,v510,v511){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v511,v512){ - return f72(f125(v511, "<=", v512)); - })(f73(v509, v508),f73(v510, v508)); + return (function(v512,v513){ + return f72(f125(v512, "<=", v513)); + })(f73(v510, v509),f73(v511, v509)); })(); } catch (cf){ @@ -5649,17 +5691,17 @@ v334 = ({car: f33(l189, (function (v508,v509,v510){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l190 = f3(">="); -v334 = ({car: f33(l190, (function (v513,v514,v515){ +v335 = ({car: f33(l190, (function (v514,v515,v516){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v516,v517){ - return f72(f125(v516, ">=", v517)); - })(f73(v514, v513),f73(v515, v513)); + return (function(v517,v518){ + return f72(f125(v517, ">=", v518)); + })(f73(v515, v514),f73(v516, v514)); })(); } catch (cf){ @@ -5669,17 +5711,17 @@ v334 = ({car: f33(l190, (function (v513,v514,v515){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l191 = f3("NUMBERP"); -v334 = ({car: f33(l191, (function (v518,v519){ +v335 = ({car: f33(l191, (function (v519,v520){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v520){ - return f72(f68("(typeof (", v520, ") == \"number\")")); - })(f73(v519, v518)); + return (function(v521){ + return f72(f68("(typeof (", v521, ") == \"number\")")); + })(f73(v520, v519)); })(); } catch (cf){ @@ -5689,19 +5731,19 @@ v334 = ({car: f33(l191, (function (v518,v519){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l192 = f3("FLOOR"); -v334 = ({car: f33(l192, (function (v521,v522){ +v335 = ({car: f33(l192, (function (v522,v523){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v523){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v523, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ + return (function(v524){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v524, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ return "Math.floor(x)"; })(), ";", v176)), "})()"); - })(f73(v522, v521)); + })(f73(v523, v522)); })(); } catch (cf){ @@ -5711,17 +5753,17 @@ v334 = ({car: f33(l192, (function (v521,v522){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l193 = f3("CONS"); -v334 = ({car: f33(l193, (function (v524,v525,v526){ +v335 = ({car: f33(l193, (function (v525,v526,v527){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v527,v528){ - return f68("({car: ", v527, ", cdr: ", v528, "})"); - })(f73(v525, v524),f73(v526, v524)); + return (function(v528,v529){ + return f68("({car: ", v528, ", cdr: ", v529, "})"); + })(f73(v526, v525),f73(v527, v525)); })(); } catch (cf){ @@ -5731,17 +5773,17 @@ v334 = ({car: f33(l193, (function (v524,v525,v526){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l194 = f3("CONSP"); -v334 = ({car: f33(l194, (function (v529,v530){ +v335 = ({car: f33(l194, (function (v530,v531){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v531){ - return f72(f68("(function(){", v176, f71("var tmp = ", v531, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()")); - })(f73(v530, v529)); + return (function(v532){ + return f72(f68("(function(){", v176, f71("var tmp = ", v532, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()")); + })(f73(v531, v530)); })(); } catch (cf){ @@ -5751,17 +5793,17 @@ v334 = ({car: f33(l194, (function (v529,v530){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l195 = f3("CAR"); -v334 = ({car: f33(l195, (function (v532,v533){ +v335 = ({car: f33(l195, (function (v533,v534){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v534){ - return f68("(function(){", v176, f71("var tmp = ", v534, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()"); - })(f73(v533, v532)); + return (function(v535){ + return f68("(function(){", v176, f71("var tmp = ", v535, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()"); + })(f73(v534, v533)); })(); } catch (cf){ @@ -5771,17 +5813,17 @@ v334 = ({car: f33(l195, (function (v532,v533){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l196 = f3("CDR"); -v334 = ({car: f33(l196, (function (v535,v536){ +v335 = ({car: f33(l196, (function (v536,v537){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v537){ - return f68("(function(){", v176, f71("var tmp = ", v537, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()"); - })(f73(v536, v535)); + return (function(v538){ + return f68("(function(){", v176, f71("var tmp = ", v538, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()"); + })(f73(v537, v536)); })(); } catch (cf){ @@ -5791,19 +5833,19 @@ v334 = ({car: f33(l196, (function (v535,v536){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l197 = f3("SETCAR"); -v334 = ({car: f33(l197, (function (v538,v539,v540){ +v335 = ({car: f33(l197, (function (v539,v540,v541){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v541,v542){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v541, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){ - return f68("(x.car = ", v542, ")"); + return (function(v542,v543){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v542, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){ + return f68("(x.car = ", v543, ")"); })(), ";", v176)), "})()"); - })(f73(v539, v538),f73(v540, v538)); + })(f73(v540, v539),f73(v541, v539)); })(); } catch (cf){ @@ -5813,19 +5855,19 @@ v334 = ({car: f33(l197, (function (v538,v539,v540){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l198 = f3("SETCDR"); -v334 = ({car: f33(l198, (function (v543,v544,v545){ +v335 = ({car: f33(l198, (function (v544,v545,v546){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v546,v547){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v546, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){ - return f68("(x.cdr = ", v547, ")"); + return (function(v547,v548){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v547, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){ + return f68("(x.cdr = ", v548, ")"); })(), ";", v176)), "})()"); - })(f73(v544, v543),f73(v545, v543)); + })(f73(v545, v544),f73(v546, v544)); })(); } catch (cf){ @@ -5835,17 +5877,17 @@ v334 = ({car: f33(l198, (function (v543,v544,v545){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l199 = f3("SYMBOLP"); -v334 = ({car: f33(l199, (function (v548,v549){ +v335 = ({car: f33(l199, (function (v549,v550){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v550){ - return f72(f68("(function(){", v176, f71("var tmp = ", v550, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()")); - })(f73(v549, v548)); + return (function(v551){ + return f72(f68("(function(){", v176, f71("var tmp = ", v551, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()")); + })(f73(v550, v549)); })(); } catch (cf){ @@ -5855,19 +5897,19 @@ v334 = ({car: f33(l199, (function (v548,v549){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l200 = f3("MAKE-SYMBOL"); -v334 = ({car: f33(l200, (function (v551,v552){ +v335 = ({car: f33(l200, (function (v552,v553){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v553){ - return f68("(function(){", v176, f71(f68("var ", "name", " = ", v553, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ + return (function(v554){ + return f68("(function(){", v176, f71(f68("var ", "name", " = ", v554, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ return "({name: name})"; })(), ";", v176)), "})()"); - })(f73(v552, v551)); + })(f73(v553, v552)); })(); } catch (cf){ @@ -5877,17 +5919,17 @@ v334 = ({car: f33(l200, (function (v551,v552){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l201 = f3("SYMBOL-NAME"); -v334 = ({car: f33(l201, (function (v554,v555){ +v335 = ({car: f33(l201, (function (v555,v556){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v556){ - return f68("(", v556, ").name"); - })(f73(v555, v554)); + return (function(v557){ + return f68("(", v557, ").name"); + })(f73(v556, v555)); })(); } catch (cf){ @@ -5897,17 +5939,17 @@ v334 = ({car: f33(l201, (function (v554,v555){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l202 = f3("EQ"); -v334 = ({car: f33(l202, (function (v557,v558,v559){ +v335 = ({car: f33(l202, (function (v558,v559,v560){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v560,v561){ - return f72(f68("(", v560, " === ", v561, ")")); - })(f73(v558, v557),f73(v559, v557)); + return (function(v561,v562){ + return f72(f68("(", v561, " === ", v562, ")")); + })(f73(v559, v558),f73(v560, v558)); })(); } catch (cf){ @@ -5917,17 +5959,17 @@ v334 = ({car: f33(l202, (function (v557,v558,v559){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l203 = f3("EQUAL"); -v334 = ({car: f33(l203, (function (v562,v563,v564){ +v335 = ({car: f33(l203, (function (v563,v564,v565){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v565,v566){ - return f72(f68("(", v565, " == ", v566, ")")); - })(f73(v563, v562),f73(v564, v562)); + return (function(v566,v567){ + return f72(f68("(", v566, " == ", v567, ")")); + })(f73(v564, v563),f73(v565, v563)); })(); } catch (cf){ @@ -5937,19 +5979,19 @@ v334 = ({car: f33(l203, (function (v562,v563,v564){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l204 = f3("STRING"); -v334 = ({car: f33(l204, (function (v567,v568){ +v335 = ({car: f33(l204, (function (v568,v569){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v569){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v569, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ + return (function(v570){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v570, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ return "String.fromCharCode(x)"; })(), ";", v176)), "})()"); - })(f73(v568, v567)); + })(f73(v569, v568)); })(); } catch (cf){ @@ -5959,17 +6001,17 @@ v334 = ({car: f33(l204, (function (v567,v568){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l205 = f3("STRINGP"); -v334 = ({car: f33(l205, (function (v570,v571){ +v335 = ({car: f33(l205, (function (v571,v572){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v572){ - return f72(f68("(typeof(", v572, ") == \"string\")")); - })(f73(v571, v570)); + return (function(v573){ + return f72(f68("(typeof(", v573, ") == \"string\")")); + })(f73(v572, v571)); })(); } catch (cf){ @@ -5979,19 +6021,19 @@ v334 = ({car: f33(l205, (function (v570,v571){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l206 = f3("STRING-UPCASE"); -v334 = ({car: f33(l206, (function (v573,v574){ +v335 = ({car: f33(l206, (function (v574,v575){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v575){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v575, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ + return (function(v576){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v576, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ return "x.toUpperCase()"; })(), ";", v176)), "})()"); - })(f73(v574, v573)); + })(f73(v575, v574)); })(); } catch (cf){ @@ -6001,19 +6043,19 @@ v334 = ({car: f33(l206, (function (v573,v574){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l207 = f3("STRING-LENGTH"); -v334 = ({car: f33(l207, (function (v576,v577){ +v335 = ({car: f33(l207, (function (v577,v578){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v578){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v578, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ + return (function(v579){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v579, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ return "x.length"; })(), ";", v176)), "})()"); - })(f73(v577, v576)); + })(f73(v578, v577)); })(); } catch (cf){ @@ -6023,20 +6065,20 @@ v334 = ({car: f33(l207, (function (v576,v577){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l208 = f3("SLICE"); -v334 = ({car: f33(l208, (function (v579,v580,v581,v582){ +v335 = ({car: f33(l208, (function (v580,v581,v582,v583){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 4) throw 'too many arguments'; switch(arguments.length){ case 3: - v582=v2; + v583=v2; default: break; } return (function(){ try { return (function(){ - return f68("(function(){", v176, f71("var str = ", f73(v580, v579), ";", v176, "var a = ", f73(v581, v579), ";", v176, "var b;", v176, (v582 !== v2 ? f68("b = ", f73(v582, v579), ";", v176) : ""), "return str.slice(a,b);", v176), "})()"); + return f68("(function(){", v176, f71("var str = ", f73(v581, v580), ";", v176, "var a = ", f73(v582, v580), ";", v176, "var b;", v176, (v583 !== v2 ? f68("b = ", f73(v583, v580), ";", v176) : ""), "return str.slice(a,b);", v176), "})()"); })(); } catch (cf){ @@ -6046,19 +6088,19 @@ v334 = ({car: f33(l208, (function (v579,v580,v581,v582){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l209 = f3("CHAR"); -v334 = ({car: f33(l209, (function (v583,v584,v585){ +v335 = ({car: f33(l209, (function (v584,v585,v586){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v586,v587){ - return f68("(function(){", v176, f71(f68("var ", "string", " = ", v586, ";", v176), f68("var ", "index", " = ", v587, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "index", " != '", "number", "')", v176, f71("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ + return (function(v587,v588){ + return f68("(function(){", v176, f71(f68("var ", "string", " = ", v587, ";", v176), f68("var ", "index", " = ", v588, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "index", " != '", "number", "')", v176, f71("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){ return "string.charCodeAt(index)"; })(), ";", v176)), "})()"); - })(f73(v584, v583),f73(v585, v583)); + })(f73(v585, v584),f73(v586, v584)); })(); } catch (cf){ @@ -6068,19 +6110,19 @@ v334 = ({car: f33(l209, (function (v583,v584,v585){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l210 = f3("CONCAT-TWO"); -v334 = ({car: f33(l210, (function (v588,v589,v590){ +v335 = ({car: f33(l210, (function (v589,v590,v591){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v591,v592){ - return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v591, ";", v176), f68("var ", "string2", " = ", v592, ";", v176), f68("if (typeof ", "string1", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "string2", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ + return (function(v592,v593){ + return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v592, ";", v176), f68("var ", "string2", " = ", v593, ";", v176), f68("if (typeof ", "string1", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "string2", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ return "string1.concat(string2)"; })(), ";", v176)), "})()"); - })(f73(v589, v588),f73(v590, v588)); + })(f73(v590, v589),f73(v591, v589)); })(); } catch (cf){ @@ -6090,21 +6132,21 @@ v334 = ({car: f33(l210, (function (v588,v589,v590){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l211 = f3("FUNCALL"); -v334 = ({car: f33(l211, (function (v594,v595){ +v335 = ({car: f33(l211, (function (v595,v596){ if (arguments.length < 2) throw 'too few arguments'; - var v593= v2; + var v594= v2; for (var i = arguments.length-1; i>=2; i--) - v593 = {car: arguments[i], cdr: v593}; + v594 = {car: arguments[i], cdr: v594}; return (function(){ try { return (function(){ - return f68("(", f73(v595, v594), ")(", f69(f45((function (v596){ + return f68("(", f73(v596, v595), ")(", f69(f45((function (v597){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f73(v596, v594); - }), v593), ", "), ")"); + return f73(v597, v595); + }), v594), ", "), ")"); })(); } catch (cf){ @@ -6114,24 +6156,24 @@ v334 = ({car: f33(l211, (function (v594,v595){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l212 = f3("APPLY"); -v334 = ({car: f33(l212, (function (v598,v599){ +v335 = ({car: f33(l212, (function (v599,v600){ if (arguments.length < 2) throw 'too few arguments'; - var v597= v2; + var v598= v2; for (var i = arguments.length-1; i>=2; i--) - v597 = {car: arguments[i], cdr: v597}; + v598 = {car: arguments[i], cdr: v598}; return (function(){ try { return (function(){ - return (f1(v597) !== v2 ? f68("(", f73(v599, v598), ")()") : (function(v600,v601){ - return f68("(function(){", v176, f71("var f = ", f73(v599, v598), ";", v176, "var args = [", f69(f45((function (v602){ + return (f1(v598) !== v2 ? f68("(", f73(v600, v599), ")()") : (function(v601,v602){ + return f68("(function(){", v176, f71("var f = ", f73(v600, v599), ";", v176, "var args = [", f69(f45((function (v603){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f73(v602, v598); - }), v600), ", "), "];", v176, "var tail = (", f73(v601, v598), ");", v176, "while (tail != ", f73(v2), "){", v176, " args.push(tail.car);", v176, " tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()"); - })(f56(v597),(function(){ - var tmp = f55(v597); + return f73(v603, v599); + }), v601), ", "), "];", v176, "var tail = (", f73(v602, v599), ");", v176, "while (tail != ", f73(v2), "){", v176, " args.push(tail.car);", v176, " tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()"); + })(f56(v598),(function(){ + var tmp = f55(v598); return tmp === v2? v2: tmp.car; })())); })(); @@ -6143,19 +6185,19 @@ v334 = ({car: f33(l212, (function (v598,v599){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l213 = f3("JS-EVAL"); -v334 = ({car: f33(l213, (function (v603,v604){ +v335 = ({car: f33(l213, (function (v604,v605){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v605){ - return f68("(function(){", v176, f71(f68("var ", "string", " = ", v605, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ + return (function(v606){ + return f68("(function(){", v176, f71(f68("var ", "string", " = ", v606, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ return "eval.apply(window, [string])"; })(), ";", v176)), "})()"); - })(f73(v604, v603)); + })(f73(v605, v604)); })(); } catch (cf){ @@ -6165,17 +6207,17 @@ v334 = ({car: f33(l213, (function (v603,v604){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l214 = f3("ERROR"); -v334 = ({car: f33(l214, (function (v606,v607){ +v335 = ({car: f33(l214, (function (v607,v608){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v608){ - return f68("(function(){", v176, f71("throw ", v608, ";", v176), "})()"); - })(f73(v607, v606)); + return (function(v609){ + return f68("(function(){", v176, f71("throw ", v609, ";", v176), "})()"); + })(f73(v608, v607)); })(); } catch (cf){ @@ -6185,9 +6227,9 @@ v334 = ({car: f33(l214, (function (v606,v607){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l215 = f3("NEW"); -v334 = ({car: f33(l215, (function (v609){ +v335 = ({car: f33(l215, (function (v610){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ @@ -6205,17 +6247,17 @@ v334 = ({car: f33(l215, (function (v609){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l216 = f3("GET"); -v334 = ({car: f33(l216, (function (v610,v611,v612){ +v335 = ({car: f33(l216, (function (v611,v612,v613){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v613,v614){ - return f68("(function(){", v176, f71("var tmp = ", "(", v613, ")[", v614, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()"); - })(f73(v611, v610),f73(v612, v610)); + return (function(v614,v615){ + return f68("(function(){", v176, f71("var tmp = ", "(", v614, ")[", v615, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()"); + })(f73(v612, v611),f73(v613, v611)); })(); } catch (cf){ @@ -6225,17 +6267,17 @@ v334 = ({car: f33(l216, (function (v610,v611,v612){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l217 = f3("SET"); -v334 = ({car: f33(l217, (function (v615,v616,v617,v618){ +v335 = ({car: f33(l217, (function (v616,v617,v618,v619){ if (arguments.length < 4) throw 'too few arguments'; if (arguments.length > 4) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v619,v620,v621){ - return f68("((", v619, ")[", v620, "] = ", v621, ")"); - })(f73(v616, v615),f73(v617, v615),f73(v618, v615)); + return (function(v620,v621,v622){ + return f68("((", v620, ")[", v621, "] = ", v622, ")"); + })(f73(v617, v616),f73(v618, v616),f73(v619, v616)); })(); } catch (cf){ @@ -6245,17 +6287,17 @@ v334 = ({car: f33(l217, (function (v615,v616,v617,v618){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l218 = f3("IN"); -v334 = ({car: f33(l218, (function (v622,v623,v624){ +v335 = ({car: f33(l218, (function (v623,v624,v625){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v625,v626){ - return f72(f68("((", v625, ") in (", v626, "))")); - })(f73(v623, v622),f73(v624, v622)); + return (function(v626,v627){ + return f72(f68("((", v626, ") in (", v627, "))")); + })(f73(v624, v623),f73(v625, v623)); })(); } catch (cf){ @@ -6265,17 +6307,17 @@ v334 = ({car: f33(l218, (function (v622,v623,v624){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l219 = f3("FUNCTIONP"); -v334 = ({car: f33(l219, (function (v627,v628){ +v335 = ({car: f33(l219, (function (v628,v629){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v629){ - return f72(f68("(typeof ", v629, " == 'function')")); - })(f73(v628, v627)); + return (function(v630){ + return f72(f68("(typeof ", v630, " == 'function')")); + })(f73(v629, v628)); })(); } catch (cf){ @@ -6285,19 +6327,19 @@ v334 = ({car: f33(l219, (function (v627,v628){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l220 = f3("WRITE-STRING"); -v334 = ({car: f33(l220, (function (v630,v631){ +v335 = ({car: f33(l220, (function (v631,v632){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v632){ - return f68("(function(){", v176, f71(f68("var ", "x", " = ", v632, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ + return (function(v633){ + return f68("(function(){", v176, f71(f68("var ", "x", " = ", v633, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){ return "lisp.write(x)"; })(), ";", v176)), "})()"); - })(f73(v631, v630)); + })(f73(v632, v631)); })(); } catch (cf){ @@ -6307,25 +6349,25 @@ v334 = ({car: f33(l220, (function (v630,v631){ throw cf; } })(); -})), cdr: v334}); +})), cdr: v335}); var l222 = f3("MACROP"); var l221 = f3("MACRO"); var f126; (function(){ (function(){ - return f126 = (function(v633){ - ((v633)["fname"] = "MACROP"); - return v633; - })((function (v634){ + return f126 = (function(v634){ + ((v634)["fname"] = "MACROP"); + return v634; + })((function (v635){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ return (((function(){ - var tmp = v634; + var tmp = v635; return (typeof tmp == 'object' && 'name' in tmp); - })()?v3: v2) !== v2 ? ((f93(f107(v634, v289)) === l221)?v3: v2) : v2); + })()?v3: v2) !== v2 ? ((f93(f107(v635, v289)) === l221)?v3: v2) : v2); })(); } catch (cf){ @@ -6344,36 +6386,36 @@ var l223 = f3("MACRO"); var f127; (function(){ (function(){ - return f127 = (function(v635){ - ((v635)["fname"] = "LS-MACROEXPAND-1"); - return v635; - })((function (v636,v637){ + return f127 = (function(v636){ + ((v636)["fname"] = "LS-MACROEXPAND-1"); + return v636; + })((function (v637,v638){ if (arguments.length < 2) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; return (function(){ try { return (function(){ return (f126((function(){ - var tmp = v636; + var tmp = v637; return tmp === v2? v2: tmp.car; - })()) !== v2 ? (function(v638){ - return (((f93(v638) === l223)?v3: v2) !== v2 ? (function(){ - var f = f120(f94(v638)); + })()) !== v2 ? (function(v639){ + return (((f93(v639) === l223)?v3: v2) !== v2 ? (function(){ + var f = f120(f94(v639)); var args = []; var tail = ((function(){ - var tmp = v636; + var tmp = v637; return tmp === v2? v2: tmp.cdr; })()); - while (tail != v2){ - args.push(tail.car); - tail = tail.cdr; - } - return f.apply(this, args); - })() : v636); + while (tail != v2){ + args.push(tail.car); + tail = tail.cdr; + } + return f.apply(this, args); + })() : v637); })(f107((function(){ - var tmp = v636; + var tmp = v637; return tmp === v2? v2: tmp.car; - })(), v289)) : v636); + })(), v289)) : v637); })(); } catch (cf){ @@ -6392,35 +6434,37 @@ var l225 = f3("LAMBDA"); var f128; (function(){ (function(){ - return f128 = (function(v639){ - ((v639)["fname"] = "COMPILE-FUNCALL"); - return v639; - })((function (v640,v641,v642){ + return f128 = (function(v640){ + ((v640)["fname"] = "COMPILE-FUNCALL"); + return v640; + })((function (v641,v642,v643){ if (arguments.length < 3) throw 'too few arguments'; if (arguments.length > 3) throw 'too many arguments'; return (function(){ try { return (function(){ return (((function(){ - var tmp = v640; + var tmp = v641; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2) !== v2 ? (function(){ - return f68(f108(v640, v642), "(", f69(f45((function (v643){ + return f68(f108(v641, v643), "(", f69(f45((function (v644){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f73(v643, v642); - }), v641), ", "), ")"); - })() : ((f36(v640) !== v2 ? (((function(){ - var tmp = v640; + return f73(v644, v643); + }), v642), ", "), ")"); + })() : ((f36(v641) !== v2 ? (((function(){ + var tmp = v641; return tmp === v2? v2: tmp.car; })() === l225)?v3: v2) : v2) !== v2 ? (function(){ - return f68("(", f73(v640, v642), ")(", f69(f45((function (v644){ + return f68("(", f73(v641, v643), ")(", f69(f45((function (v645){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f73(v644, v642); - }), v641), ", "), ")"); + return f73(v645, v643); + }), v642), ", "), ")"); })() : (function(){ - return (function (){ throw f68("Invalid function designator ", (v640).name); })(); + return (function(){ + throw f68("Invalid function designator ", (v641).name); + })(); })())); })(); } @@ -6439,60 +6483,60 @@ var l227 = f3("LS-COMPILE"); var f73; (function(){ (function(){ - return f73 = (function(v645){ - ((v645)["fname"] = "LS-COMPILE"); - return v645; - })((function (v646,v647){ + return f73 = (function(v646){ + ((v646)["fname"] = "LS-COMPILE"); + return v646; + })((function (v647,v648){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 2) throw 'too many arguments'; switch(arguments.length){ case 1: - v647=f97(); + v648=f97(); default: break; } return (function(){ try { return (function(){ return (((function(){ - var tmp = v646; + var tmp = v647; return (typeof tmp == 'object' && 'name' in tmp); })()?v3: v2) !== v2 ? (function(){ - return f105(v646, v647); - })() : (f51(v646) !== v2 ? (function(){ - return f6(v646); - })() : (((typeof(v646) == "string")?v3: v2) !== v2 ? (function(){ - return f68("\"", f75(v646), "\""); - })() : (f36(v646) !== v2 ? (function(){ + return f105(v647, v648); + })() : (f51(v647) !== v2 ? (function(){ + return f6(v647); + })() : (((typeof(v647) == "string")?v3: v2) !== v2 ? (function(){ + return f68("\"", f75(v647), "\""); + })() : (f36(v647) !== v2 ? (function(){ return (f66((function(){ - var tmp = v646; + var tmp = v647; return tmp === v2? v2: tmp.car; - })(), v334) !== v2 ? (function(v648){ + })(), v335) !== v2 ? (function(v649){ return (function(){ - var f = v648; - var args = [v647]; + var f = v649; + var args = [v648]; var tail = ((function(){ - var tmp = v646; + var tmp = v647; return tmp === v2? v2: tmp.cdr; })()); - while (tail != v2){ - args.push(tail.car); - tail = tail.cdr; - } - return f.apply(this, args); - })(); + while (tail != v2){ + args.push(tail.car); + tail = tail.cdr; + } + return f.apply(this, args); + })(); })(f30(f66((function(){ - var tmp = v646; + var tmp = v647; return tmp === v2? v2: tmp.car; - })(), v334))) : (f126((function(){ - var tmp = v646; + })(), v335))) : (f126((function(){ + var tmp = v647; return tmp === v2? v2: tmp.car; - })()) !== v2 ? f73(f127(v646, v647), v647) : f128((function(){ - var tmp = v646; + })()) !== v2 ? f73(f127(v647, v648), v648) : f128((function(){ + var tmp = v647; return tmp === v2? v2: tmp.car; })(), (function(){ - var tmp = v646; + var tmp = v647; return tmp === v2? v2: tmp.cdr; - })(), v647))); + })(), v648))); })() : v2)))); })(); } @@ -6511,26 +6555,26 @@ var l228 = f3("LS-COMPILE-TOPLEVEL"); var f129; (function(){ (function(){ - return f129 = (function(v649){ - ((v649)["fname"] = "LS-COMPILE-TOPLEVEL"); - return v649; - })((function (v650){ + return f129 = (function(v650){ + ((v650)["fname"] = "LS-COMPILE-TOPLEVEL"); + return v650; + })((function (v651){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - v324 = v2; - return (function(v651){ - return (function(v652){ - v324 = v2; - return v652; - })(f68(f69(f45((function (v653){ + v325 = v2; + return (function(v652){ + return (function(v653){ + v325 = v2; + return v653; + })(f68(f69(f45((function (v654){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; - return f68(v653, ";", v176); - }), v324)), v651)); - })(f73(v650)); + return f68(v654, ";", v176); + }), v325)), v652)); + })(f73(v651)); })(); } catch (cf){ @@ -6552,54 +6596,54 @@ var l235 = 206; var l234 = 156; var l233 = 229; var l232 = 129; -var l231 = 659; -var l230 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v429", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v428", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v412", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v388", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v345", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v334", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v324", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v313", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v293", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v289", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v253", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v246", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v176", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECLARE-TAGBODY-TAGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GO-TAG-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}; +var l231 = 660; +var l230 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v430", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v429", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v413", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v389", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v346", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v335", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v325", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v313", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v292", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v289", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v253", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v246", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v176", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECLARE-TAGBODY-TAGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GO-TAG-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}; var l229 = f3("EVAL"); var f120; (function(){ v289 = l230; - v293 = l231; + v292 = l231; v313 = l232; - v388 = l233; + v389 = l233; v12 = l234; - return v412 = l235; + return v413 = l235; })(); (function(){ (function(){ (function(){ - return f120 = (function(v654){ - ((v654)["fname"] = "EVAL"); - return v654; - })((function (v655){ + return f120 = (function(v655){ + ((v655)["fname"] = "EVAL"); + return v655; + })((function (v656){ if (arguments.length < 1) throw 'too few arguments'; if (arguments.length > 1) throw 'too many arguments'; return (function(){ try { return (function(){ - return (function(v656){ + return (function(v657){ return (function(){ - var string = v656; + var string = v657; if (typeof string != 'string') throw 'The value ' + string + ' is not a type string.'; return eval.apply(window, [string]); })(); - })((function(v657){ + })((function(v658){ (function(){ try { return (function(){ - return (function(v658,v659){ + return (function(v659,v660){ (function(){ - while(v658 !== v2){ - v659 = (function(){ - var tmp = v658; + while(v659 !== v2){ + v660 = (function(){ + var tmp = v659; return tmp === v2? v2: tmp.car; })(); (function(){ - (v659)(); + (v660)(); return v2; })(); - v658 = (function(){ - var tmp = v658; + v659 = (function(){ + var tmp = v659; return tmp === v2? v2: tmp.cdr; })(); }return v2; @@ -6615,11 +6659,11 @@ var f120; throw cf; } })(); - return v657; + return v658; })((function(){ v253 = v2; f102(); - return f129(v655); + return f129(v656); })())); })(); } diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 7a4682b..7d92ef4 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -755,9 +755,10 @@ (defvar *environment* (make-lexenv)) (defun clear-undeclared-global-bindings () - (let ((variables (first *environment*)) - (functions (second *environment*))) - (setq *environment* (list variables functions (third *environment*))))) + (setq *environment* + (mapcar (lambda (namespace) + (remove-if-not #'binding-declared namespace)) + *environment*))) (defvar *variable-counter* 0) @@ -771,8 +772,9 @@ (binding (make-binding symbol 'variable (gvarname symbol) nil))) (push-to-lexenv binding *environment* 'variable) (push (lambda () - (unless (lookup-in-lexenv symbol *environment* 'variable) - (error (concat "Undefined variable `" name "'")))) + (let ((b (lookup-in-lexenv symbol *environment* 'variable))) + (unless (binding-declared b) + (error (concat "Undefined variable `" name "'"))))) *compilation-unit-checks*) binding))) @@ -797,8 +799,9 @@ nil))) (push-to-lexenv binding *environment* 'function) (push (lambda () - (unless (binding-declared (lookup-in-lexenv symbol *environment* 'function)) - (error (concat "Undefined function `" name "'")))) + (let ((b (lookup-in-lexenv symbol *environment* 'function))) + (unless (binding-declared b) + (error (concat "Undefined function `" name "'"))))) *compilation-unit-checks*) binding))) -- 1.7.10.4