ecmalisp.js

   1 var f34;
   2 var f33;
   3 var f32;
   4 var f31;
   5 var f30;
   6 var f29;
   7 var f28;
   8 var f27;
   9 var f26;
  10 var f25;
  11 var f24;
  12 var f23;
  13 var f22;
  14 var f21;
  15 var f20;
  16 var f19;
  17 var f18;
  18 var f17;
  19 var f16;
  20 var f15;
  21 var f14;
  22 var f13;
  23 var f12;
  24 var f11;
  25 var f10;
  26 var f9;
  27 var f8;
  28 var f7;
  29 var f5;
  30 var v12;
  31 var f4;
  32 var f3;
  33 var f2;
  34 var f1;
  35 var v3;
  36 var v2;
  37 var v1;
  38 (function(){
  39     (function(){
  40         return v1 = {};
  41     })();
  42     (function(){
  43         return v2 = (function(){
  44             var name = "NIL";
  45             if (typeof name != 'string')
  46                 throw 'The value ' + name + ' is not a type string.';
  47             return ({name: name});
  48         })();
  49     })();
  50     ((v1)["NIL"] = v2);
  51     (function(){
  52         return v3 = (function(){
  53             var name = "T";
  54             if (typeof name != 'string')
  55                 throw 'The value ' + name + ' is not a type string.';
  56             return ({name: name});
  57         })();
  58     })();
  59     ((v1)["T"] = v3);
  60     (function(){
  61         return f1 = (function(v4){
  62             ((v4)["fname"] = "NULL");
  63             return v4;
  64         })((function (v5){
  65             if (arguments.length < 1) throw 'too few arguments';
  66             if (arguments.length > 1) throw 'too many arguments';
  67             return ((v5 === v2)?v3: v2);
  68         }));
  69     })();
  70     (function(){
  71         return f2 = (function(v6){
  72             ((v6)["fname"] = "INTERNP");
  73             return v6;
  74         })((function (v7){
  75             if (arguments.length < 1) throw 'too few arguments';
  76             if (arguments.length > 1) throw 'too many arguments';
  77             return (((v7) in (v1))?v3: v2);
  78         }));
  79     })();
  80     (function(){
  81         return f3 = (function(v8){
  82             ((v8)["fname"] = "INTERN");
  83             return v8;
  84         })((function (v9){
  85             if (arguments.length < 1) throw 'too few arguments';
  86             if (arguments.length > 1) throw 'too many arguments';
  87             return (f2(v9) !== v2 ? (function(){
  88                 var tmp = (v1)[v9];
  89                 return tmp == undefined? v2: tmp ;
  90             })() : ((v1)[v9] = (function(){
  91                 var name = v9;
  92                 if (typeof name != 'string')
  93                     throw 'The value ' + name + ' is not a type string.';
  94                 return ({name: name});
  95             })()));
  96         }));
  97     })();
  98     (function(){
  99         return f4 = (function(v10){
 100             ((v10)["fname"] = "FIND-SYMBOL");
 101             return v10;
 102         })((function (v11){
 103             if (arguments.length < 1) throw 'too few arguments';
 104             if (arguments.length > 1) throw 'too many arguments';
 105             return (function(){
 106                 var tmp = (v1)[v11];
 107                 return tmp == undefined? v2: tmp ;
 108             })();
 109         }));
 110     })();
 111     (function(){
 112         return v12 = 0;
 113     })();
 114     (function(){
 115         return f5 = (function(v13){
 116             ((v13)["fname"] = "GENSYM");
 117             return v13;
 118         })((function (v14){
 119             if (arguments.length > 1) throw 'too many arguments';
 120             switch(arguments.length){
 121             case 0:
 122             v14="G";
 123             default: break;
 124             }
 125             v12 = (function(){
 126                 var x = v12;
 127                 var y = 1;
 128                 if (typeof x != 'number')
 129                     throw 'The value ' + x + ' is not a type number.';
 130                 if (typeof y != 'number')
 131                     throw 'The value ' + y + ' is not a type number.';
 132                 return x+y;
 133             })();
 134             return (function(){
 135                 var name = (function(){
 136                     var string1 = v14;
 137                     var string2 = f6(v12);
 138                     if (typeof string1 != 'string')
 139                         throw 'The value ' + string1 + ' is not a type string.';
 140                     if (typeof string2 != 'string')
 141                         throw 'The value ' + string2 + ' is not a type string.';
 142                     return string1.concat(string2);
 143                 })();
 144                 if (typeof name != 'string')
 145                     throw 'The value ' + name + ' is not a type string.';
 146                 return ({name: name});
 147             })();
 148         }));
 149     })();
 150     (function(){
 151         return f7 = (function(v15){
 152             ((v15)["fname"] = "=");
 153             return v15;
 154         })((function (v16,v17){
 155             if (arguments.length < 2) throw 'too few arguments';
 156             if (arguments.length > 2) throw 'too many arguments';
 157             return ((function(){
 158                 var x = v16;
 159                 var y = v17;
 160                 if (typeof x != 'number')
 161                     throw 'The value ' + x + ' is not a type number.';
 162                 if (typeof y != 'number')
 163                     throw 'The value ' + y + ' is not a type number.';
 164                 return x==y;
 165             })()?v3: v2);
 166         }));
 167     })();
 168     (function(){
 169         return f8 = (function(v18){
 170             ((v18)["fname"] = "+");
 171             return v18;
 172         })((function (v19,v20){
 173             if (arguments.length < 2) throw 'too few arguments';
 174             if (arguments.length > 2) throw 'too many arguments';
 175             return (function(){
 176                 var x = v19;
 177                 var y = v20;
 178                 if (typeof x != 'number')
 179                     throw 'The value ' + x + ' is not a type number.';
 180                 if (typeof y != 'number')
 181                     throw 'The value ' + y + ' is not a type number.';
 182                 return x+y;
 183             })();
 184         }));
 185     })();
 186     (function(){
 187         return f9 = (function(v21){
 188             ((v21)["fname"] = "-");
 189             return v21;
 190         })((function (v22,v23){
 191             if (arguments.length < 2) throw 'too few arguments';
 192             if (arguments.length > 2) throw 'too many arguments';
 193             return (function(){
 194                 var x = v22;
 195                 var y = v23;
 196                 if (typeof x != 'number')
 197                     throw 'The value ' + x + ' is not a type number.';
 198                 if (typeof y != 'number')
 199                     throw 'The value ' + y + ' is not a type number.';
 200                 return x-y;
 201             })();
 202         }));
 203     })();
 204     (function(){
 205         return f10 = (function(v24){
 206             ((v24)["fname"] = "*");
 207             return v24;
 208         })((function (v25,v26){
 209             if (arguments.length < 2) throw 'too few arguments';
 210             if (arguments.length > 2) throw 'too many arguments';
 211             return (function(){
 212                 var x = v25;
 213                 var y = v26;
 214                 if (typeof x != 'number')
 215                     throw 'The value ' + x + ' is not a type number.';
 216                 if (typeof y != 'number')
 217                     throw 'The value ' + y + ' is not a type number.';
 218                 return x*y;
 219             })();
 220         }));
 221     })();
 222     (function(){
 223         return f11 = (function(v27){
 224             ((v27)["fname"] = "/");
 225             return v27;
 226         })((function (v28,v29){
 227             if (arguments.length < 2) throw 'too few arguments';
 228             if (arguments.length > 2) throw 'too many arguments';
 229             return (function(){
 230                 var x = v28;
 231                 var y = v29;
 232                 if (typeof x != 'number')
 233                     throw 'The value ' + x + ' is not a type number.';
 234                 if (typeof y != 'number')
 235                     throw 'The value ' + y + ' is not a type number.';
 236                 return x/y;
 237             })();
 238         }));
 239     })();
 240     (function(){
 241         return f12 = (function(v30){
 242             ((v30)["fname"] = "1+");
 243             return v30;
 244         })((function (v31){
 245             if (arguments.length < 1) throw 'too few arguments';
 246             if (arguments.length > 1) throw 'too many arguments';
 247             return (function(){
 248                 var x = v31;
 249                 var y = 1;
 250                 if (typeof x != 'number')
 251                     throw 'The value ' + x + ' is not a type number.';
 252                 if (typeof y != 'number')
 253                     throw 'The value ' + y + ' is not a type number.';
 254                 return x+y;
 255             })();
 256         }));
 257     })();
 258     (function(){
 259         return f13 = (function(v32){
 260             ((v32)["fname"] = "1-");
 261             return v32;
 262         })((function (v33){
 263             if (arguments.length < 1) throw 'too few arguments';
 264             if (arguments.length > 1) throw 'too many arguments';
 265             return (function(){
 266                 var x = v33;
 267                 var y = 1;
 268                 if (typeof x != 'number')
 269                     throw 'The value ' + x + ' is not a type number.';
 270                 if (typeof y != 'number')
 271                     throw 'The value ' + y + ' is not a type number.';
 272                 return x-y;
 273             })();
 274         }));
 275     })();
 276     (function(){
 277         return f14 = (function(v34){
 278             ((v34)["fname"] = "ZEROP");
 279             return v34;
 280         })((function (v35){
 281             if (arguments.length < 1) throw 'too few arguments';
 282             if (arguments.length > 1) throw 'too many arguments';
 283             return ((function(){
 284                 var x = v35;
 285                 var y = 0;
 286                 if (typeof x != 'number')
 287                     throw 'The value ' + x + ' is not a type number.';
 288                 if (typeof y != 'number')
 289                     throw 'The value ' + y + ' is not a type number.';
 290                 return x==y;
 291             })()?v3: v2);
 292         }));
 293     })();
 294     (function(){
 295         return f15 = (function(v36){
 296             ((v36)["fname"] = "TRUNCATE");
 297             return v36;
 298         })((function (v37,v38){
 299             if (arguments.length < 2) throw 'too few arguments';
 300             if (arguments.length > 2) throw 'too many arguments';
 301             return (function(){
 302                 var x = (function(){
 303                     var x = v37;
 304                     var y = v38;
 305                     if (typeof x != 'number')
 306                         throw 'The value ' + x + ' is not a type number.';
 307                     if (typeof y != 'number')
 308                         throw 'The value ' + y + ' is not a type number.';
 309                     return x/y;
 310                 })();
 311                 if (typeof x != 'number')
 312                     throw 'The value ' + x + ' is not a type number.';
 313                 return Math.floor(x);
 314             })();
 315         }));
 316     })();
 317     (function(){
 318         return f16 = (function(v39){
 319             ((v39)["fname"] = "EQL");
 320             return v39;
 321         })((function (v40,v41){
 322             if (arguments.length < 2) throw 'too few arguments';
 323             if (arguments.length > 2) throw 'too many arguments';
 324             return ((v40 === v41)?v3: v2);
 325         }));
 326     })();
 327     (function(){
 328         return f17 = (function(v42){
 329             ((v42)["fname"] = "NOT");
 330             return v42;
 331         })((function (v43){
 332             if (arguments.length < 1) throw 'too few arguments';
 333             if (arguments.length > 1) throw 'too many arguments';
 334             return (v43 !== v2 ? v2 : v3);
 335         }));
 336     })();
 337     (function(){
 338         return f18 = (function(v44){
 339             ((v44)["fname"] = "CONS");
 340             return v44;
 341         })((function (v45,v46){
 342             if (arguments.length < 2) throw 'too few arguments';
 343             if (arguments.length > 2) throw 'too many arguments';
 344             return ({car: v45, cdr: v46});
 345         }));
 346     })();
 347     (function(){
 348         return f19 = (function(v47){
 349             ((v47)["fname"] = "CONSP");
 350             return v47;
 351         })((function (v48){
 352             if (arguments.length < 1) throw 'too few arguments';
 353             if (arguments.length > 1) throw 'too many arguments';
 354             return ((function(){
 355                 var tmp = v48;
 356                 return (typeof tmp == 'object' && 'car' in tmp);
 357             })()?v3: v2);
 358         }));
 359     })();
 360     (function(){
 361         return f20 = (function(v49){
 362             ((v49)["fname"] = "CAR");
 363             return v49;
 364         })((function (v50){
 365             if (arguments.length < 1) throw 'too few arguments';
 366             if (arguments.length > 1) throw 'too many arguments';
 367             return (function(){
 368                 var tmp = v50;
 369                 return tmp === v2? v2: tmp.car;
 370             })();
 371         }));
 372     })();
 373     (function(){
 374         return f21 = (function(v51){
 375             ((v51)["fname"] = "CDR");
 376             return v51;
 377         })((function (v52){
 378             if (arguments.length < 1) throw 'too few arguments';
 379             if (arguments.length > 1) throw 'too many arguments';
 380             return (function(){
 381                 var tmp = v52;
 382                 return tmp === v2? v2: tmp.cdr;
 383             })();
 384         }));
 385     })();
 386     (function(){
 387         return f22 = (function(v53){
 388             ((v53)["fname"] = "CAAR");
 389             return v53;
 390         })((function (v54){
 391             if (arguments.length < 1) throw 'too few arguments';
 392             if (arguments.length > 1) throw 'too many arguments';
 393             return (function(){
 394                 var tmp = (function(){
 395                     var tmp = v54;
 396                     return tmp === v2? v2: tmp.car;
 397                 })();
 398                 return tmp === v2? v2: tmp.car;
 399             })();
 400         }));
 401     })();
 402     (function(){
 403         return f23 = (function(v55){
 404             ((v55)["fname"] = "CADR");
 405             return v55;
 406         })((function (v56){
 407             if (arguments.length < 1) throw 'too few arguments';
 408             if (arguments.length > 1) throw 'too many arguments';
 409             return (function(){
 410                 var tmp = (function(){
 411                     var tmp = v56;
 412                     return tmp === v2? v2: tmp.cdr;
 413                 })();
 414                 return tmp === v2? v2: tmp.car;
 415             })();
 416         }));
 417     })();
 418     (function(){
 419         return f24 = (function(v57){
 420             ((v57)["fname"] = "CDAR");
 421             return v57;
 422         })((function (v58){
 423             if (arguments.length < 1) throw 'too few arguments';
 424             if (arguments.length > 1) throw 'too many arguments';
 425             return (function(){
 426                 var tmp = (function(){
 427                     var tmp = v58;
 428                     return tmp === v2? v2: tmp.car;
 429                 })();
 430                 return tmp === v2? v2: tmp.cdr;
 431             })();
 432         }));
 433     })();
 434     (function(){
 435         return f25 = (function(v59){
 436             ((v59)["fname"] = "CDDR");
 437             return v59;
 438         })((function (v60){
 439             if (arguments.length < 1) throw 'too few arguments';
 440             if (arguments.length > 1) throw 'too many arguments';
 441             return (function(){
 442                 var tmp = (function(){
 443                     var tmp = v60;
 444                     return tmp === v2? v2: tmp.cdr;
 445                 })();
 446                 return tmp === v2? v2: tmp.cdr;
 447             })();
 448         }));
 449     })();
 450     (function(){
 451         return f26 = (function(v61){
 452             ((v61)["fname"] = "CADDR");
 453             return v61;
 454         })((function (v62){
 455             if (arguments.length < 1) throw 'too few arguments';
 456             if (arguments.length > 1) throw 'too many arguments';
 457             return (function(){
 458                 var tmp = (function(){
 459                     var tmp = (function(){
 460                         var tmp = v62;
 461                         return tmp === v2? v2: tmp.cdr;
 462                     })();
 463                     return tmp === v2? v2: tmp.cdr;
 464                 })();
 465                 return tmp === v2? v2: tmp.car;
 466             })();
 467         }));
 468     })();
 469     (function(){
 470         return f27 = (function(v63){
 471             ((v63)["fname"] = "CDDDR");
 472             return v63;
 473         })((function (v64){
 474             if (arguments.length < 1) throw 'too few arguments';
 475             if (arguments.length > 1) throw 'too many arguments';
 476             return (function(){
 477                 var tmp = (function(){
 478                     var tmp = (function(){
 479                         var tmp = v64;
 480                         return tmp === v2? v2: tmp.cdr;
 481                     })();
 482                     return tmp === v2? v2: tmp.cdr;
 483                 })();
 484                 return tmp === v2? v2: tmp.cdr;
 485             })();
 486         }));
 487     })();
 488     (function(){
 489         return f28 = (function(v65){
 490             ((v65)["fname"] = "CADDDR");
 491             return v65;
 492         })((function (v66){
 493             if (arguments.length < 1) throw 'too few arguments';
 494             if (arguments.length > 1) throw 'too many arguments';
 495             return (function(){
 496                 var tmp = (function(){
 497                     var tmp = (function(){
 498                         var tmp = (function(){
 499                             var tmp = v66;
 500                             return tmp === v2? v2: tmp.cdr;
 501                         })();
 502                         return tmp === v2? v2: tmp.cdr;
 503                     })();
 504                     return tmp === v2? v2: tmp.cdr;
 505                 })();
 506                 return tmp === v2? v2: tmp.car;
 507             })();
 508         }));
 509     })();
 510     (function(){
 511         return f29 = (function(v67){
 512             ((v67)["fname"] = "FIRST");
 513             return v67;
 514         })((function (v68){
 515             if (arguments.length < 1) throw 'too few arguments';
 516             if (arguments.length > 1) throw 'too many arguments';
 517             return (function(){
 518                 var tmp = v68;
 519                 return tmp === v2? v2: tmp.car;
 520             })();
 521         }));
 522     })();
 523     (function(){
 524         return f30 = (function(v69){
 525             ((v69)["fname"] = "SECOND");
 526             return v69;
 527         })((function (v70){
 528             if (arguments.length < 1) throw 'too few arguments';
 529             if (arguments.length > 1) throw 'too many arguments';
 530             return f23(v70);
 531         }));
 532     })();
 533     (function(){
 534         return f31 = (function(v71){
 535             ((v71)["fname"] = "THIRD");
 536             return v71;
 537         })((function (v72){
 538             if (arguments.length < 1) throw 'too few arguments';
 539             if (arguments.length > 1) throw 'too many arguments';
 540             return f26(v72);
 541         }));
 542     })();
 543     (function(){
 544         return f32 = (function(v73){
 545             ((v73)["fname"] = "FOURTH");
 546             return v73;
 547         })((function (v74){
 548             if (arguments.length < 1) throw 'too few arguments';
 549             if (arguments.length > 1) throw 'too many arguments';
 550             return f28(v74);
 551         }));
 552     })();
 553     (function(){
 554         return f33 = (function(v75){
 555             ((v75)["fname"] = "LIST");
 556             return v75;
 557         })((function (){
 558             var v76= v2;
 559             for (var i = arguments.length-1; i>=0; i--)
 560                 v76 = {car: arguments[i], cdr: v76};
 561             return v76;
 562         }));
 563     })();
 564     (function(){
 565         return f34 = (function(v77){
 566             ((v77)["fname"] = "ATOM");
 567             return v77;
 568         })((function (v78){
 569             if (arguments.length < 1) throw 'too few arguments';
 570             if (arguments.length > 1) throw 'too many arguments';
 571             return f17(((function(){
 572                 var tmp = v78;
 573                 return (typeof tmp == 'object' && 'car' in tmp);
 574             })()?v3: v2));
 575         }));
 576     })();
 577     return ;
 578 })();
 579 var f35;
 580 (function(){
 581     return f35 = (function(v79){
 582         ((v79)["fname"] = "ENSURE-LIST");
 583         return v79;
 584     })((function (v80){
 585         if (arguments.length < 1) throw 'too few arguments';
 586         if (arguments.length > 1) throw 'too many arguments';
 587         return (f36(v80) !== v2 ? v80 : f33(v80));
 588     }));
 589 })();
 590 var f37;
 591 (function(){
 592     return f37 = (function(v81){
 593         ((v81)["fname"] = "!REDUCE");
 594         return v81;
 595     })((function (v82,v83,v84){
 596         if (arguments.length < 3) throw 'too few arguments';
 597         if (arguments.length > 3) throw 'too many arguments';
 598         return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
 599             var tmp = v83;
 600             return tmp === v2? v2: tmp.cdr;
 601         })(), (v82)(v84, (function(){
 602             var tmp = v83;
 603             return tmp === v2? v2: tmp.car;
 604         })())));
 605     }));
 606 })();
 607 var l31 = f3("STRING=");
 608 var f64;
 609 var l30 = f3("ASSOC");
 610 var f63;
 611 var l29 = f3("EVERY");
 612 var f62;
 613 var l28 = f3("PARSE-INTEGER");
 614 var f61;
 615 var l27 = f3("SUBSEQ");
 616 var f60;
 617 var l26 = f3("DIGIT-CHAR-P");
 618 var f59;
 619 var l25 = f3("REMOVE-IF-NOT");
 620 var f58;
 621 var l24 = f3("REMOVE-IF");
 622 var f57;
 623 var l23 = f3("REMOVE");
 624 var f56;
 625 var l22 = f3("MEMBER");
 626 var f55;
 627 var l21 = f3("BUTLAST");
 628 var f54;
 629 var l20 = f3("LAST");
 630 var f53;
 631 var l19 = f3("NTH");
 632 var f52;
 633 var l18 = f3("LISTP");
 634 var f36;
 635 var l17 = f3("MINUSP");
 636 var f51;
 637 var l16 = f3("PLUSP");
 638 var f50;
 639 var l15 = f3("INTEGERP");
 640 var f49;
 641 var l14 = f3("CHAR=");
 642 var f48;
 643 var l13 = f3("CHAR-CODE");
 644 var f47;
 645 var l12 = f3("CODE-CHAR");
 646 var f46;
 647 var l11 = f3("MAPCAR");
 648 var l10 = f3("NIL");
 649 var f45;
 650 var l9 = f3("CONCAT-TWO");
 651 var f44;
 652 var l8 = f3("LENGTH");
 653 var f43;
 654 var l7 = f3("LIST-LENGTH");
 655 var f42;
 656 var l6 = f3("REVERSE");
 657 var l5 = f3("NIL");
 658 var f41;
 659 var l4 = f3("REVERSE-AUX");
 660 var f40;
 661 var l3 = f3("APPEND");
 662 var l2 = f3("NIL");
 663 var f39;
 664 var l1 = f3("APPEND-TWO");
 665 var f38;
 666 (function(){
 667     (function(){
 668         (function(){
 669             return f38 = (function(v85){
 670                 ((v85)["fname"] = "APPEND-TWO");
 671                 return v85;
 672             })((function (v86,v87){
 673                 if (arguments.length < 2) throw 'too few arguments';
 674                 if (arguments.length > 2) throw 'too many arguments';
 675                 return (f1(v86) !== v2 ? v87 : ({car: (function(){
 676                     var tmp = v86;
 677                     return tmp === v2? v2: tmp.car;
 678                 })(), cdr: f39((function(){
 679                     var tmp = v86;
 680                     return tmp === v2? v2: tmp.cdr;
 681                 })(), v87)}));
 682             }));
 683         })();
 684         return l1;
 685     })();
 686     (function(){
 687         (function(){
 688             return f39 = (function(v88){
 689                 ((v88)["fname"] = "APPEND");
 690                 return v88;
 691             })((function (){
 692                 var v89= v2;
 693                 for (var i = arguments.length-1; i>=0; i--)
 694                     v89 = {car: arguments[i], cdr: v89};
 695                 return f37(f38, v89, l2);
 696             }));
 697         })();
 698         return l3;
 699     })();
 700     (function(){
 701         (function(){
 702             return f40 = (function(v90){
 703                 ((v90)["fname"] = "REVERSE-AUX");
 704                 return v90;
 705             })((function (v91,v92){
 706                 if (arguments.length < 2) throw 'too few arguments';
 707                 if (arguments.length > 2) throw 'too many arguments';
 708                 return (f1(v91) !== v2 ? v92 : f40((function(){
 709                     var tmp = v91;
 710                     return tmp === v2? v2: tmp.cdr;
 711                 })(), ({car: (function(){
 712                     var tmp = v91;
 713                     return tmp === v2? v2: tmp.car;
 714                 })(), cdr: v92})));
 715             }));
 716         })();
 717         return l4;
 718     })();
 719     (function(){
 720         (function(){
 721             return f41 = (function(v93){
 722                 ((v93)["fname"] = "REVERSE");
 723                 return v93;
 724             })((function (v94){
 725                 if (arguments.length < 1) throw 'too few arguments';
 726                 if (arguments.length > 1) throw 'too many arguments';
 727                 return f40(v94, l5);
 728             }));
 729         })();
 730         return l6;
 731     })();
 732     (function(){
 733         (function(){
 734             return f42 = (function(v95){
 735                 ((v95)["fname"] = "LIST-LENGTH");
 736                 return v95;
 737             })((function (v96){
 738                 if (arguments.length < 1) throw 'too few arguments';
 739                 if (arguments.length > 1) throw 'too many arguments';
 740                 return (function(v97){
 741                     (function(){
 742                         while(f17(f1(v96)) !== v2){
 743                             v97 = (function(){
 744                                 var x = v97;
 745                                 var y = 1;
 746                                 if (typeof x != 'number')
 747                                     throw 'The value ' + x + ' is not a type number.';
 748                                 if (typeof y != 'number')
 749                                     throw 'The value ' + y + ' is not a type number.';
 750                                 return x+y;
 751                             })();
 752                             v96 = (function(){
 753                                 var tmp = v96;
 754                                 return tmp === v2? v2: tmp.cdr;
 755                             })();
 756                     }})();
 757                     return v97;
 758                 })(0);
 759             }));
 760         })();
 761         return l7;
 762     })();
 763     (function(){
 764         (function(){
 765             return f43 = (function(v98){
 766                 ((v98)["fname"] = "LENGTH");
 767                 return v98;
 768             })((function (v99){
 769                 if (arguments.length < 1) throw 'too few arguments';
 770                 if (arguments.length > 1) throw 'too many arguments';
 771                 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
 772                     var x = v99;
 773                     if (typeof x != 'string')
 774                         throw 'The value ' + x + ' is not a type string.';
 775                     return x.length;
 776                 })() : f42(v99));
 777             }));
 778         })();
 779         return l8;
 780     })();
 781     (function(){
 782         (function(){
 783             return f44 = (function(v100){
 784                 ((v100)["fname"] = "CONCAT-TWO");
 785                 return v100;
 786             })((function (v101,v102){
 787                 if (arguments.length < 2) throw 'too few arguments';
 788                 if (arguments.length > 2) throw 'too many arguments';
 789                 return (function(){
 790                     var string1 = v101;
 791                     var string2 = v102;
 792                     if (typeof string1 != 'string')
 793                         throw 'The value ' + string1 + ' is not a type string.';
 794                     if (typeof string2 != 'string')
 795                         throw 'The value ' + string2 + ' is not a type string.';
 796                     return string1.concat(string2);
 797                 })();
 798             }));
 799         })();
 800         return l9;
 801     })();
 802     (function(){
 803         (function(){
 804             return f45 = (function(v103){
 805                 ((v103)["fname"] = "MAPCAR");
 806                 return v103;
 807             })((function (v104,v105){
 808                 if (arguments.length < 2) throw 'too few arguments';
 809                 if (arguments.length > 2) throw 'too many arguments';
 810                 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
 811                     var tmp = v105;
 812                     return tmp === v2? v2: tmp.car;
 813                 })()), cdr: f45(v104, (function(){
 814                     var tmp = v105;
 815                     return tmp === v2? v2: tmp.cdr;
 816                 })())}));
 817             }));
 818         })();
 819         return l11;
 820     })();
 821     (function(){
 822         (function(){
 823             return f46 = (function(v106){
 824                 ((v106)["fname"] = "CODE-CHAR");
 825                 return v106;
 826             })((function (v107){
 827                 if (arguments.length < 1) throw 'too few arguments';
 828                 if (arguments.length > 1) throw 'too many arguments';
 829                 return v107;
 830             }));
 831         })();
 832         return l12;
 833     })();
 834     (function(){
 835         (function(){
 836             return f47 = (function(v108){
 837                 ((v108)["fname"] = "CHAR-CODE");
 838                 return v108;
 839             })((function (v109){
 840                 if (arguments.length < 1) throw 'too few arguments';
 841                 if (arguments.length > 1) throw 'too many arguments';
 842                 return v109;
 843             }));
 844         })();
 845         return l13;
 846     })();
 847     (function(){
 848         (function(){
 849             return f48 = (function(v110){
 850                 ((v110)["fname"] = "CHAR=");
 851                 return v110;
 852             })((function (v111,v112){
 853                 if (arguments.length < 2) throw 'too few arguments';
 854                 if (arguments.length > 2) throw 'too many arguments';
 855                 return ((function(){
 856                     var x = v111;
 857                     var y = v112;
 858                     if (typeof x != 'number')
 859                         throw 'The value ' + x + ' is not a type number.';
 860                     if (typeof y != 'number')
 861                         throw 'The value ' + y + ' is not a type number.';
 862                     return x==y;
 863                 })()?v3: v2);
 864             }));
 865         })();
 866         return l14;
 867     })();
 868     (function(){
 869         (function(){
 870             return f49 = (function(v113){
 871                 ((v113)["fname"] = "INTEGERP");
 872                 return v113;
 873             })((function (v114){
 874                 if (arguments.length < 1) throw 'too few arguments';
 875                 if (arguments.length > 1) throw 'too many arguments';
 876                 return (((typeof (v114) == "number")?v3: v2) !== v2 ? ((function(){
 877                     var x = (function(){
 878                         var x = v114;
 879                         if (typeof x != 'number')
 880                             throw 'The value ' + x + ' is not a type number.';
 881                         return Math.floor(x);
 882                     })();
 883                     var y = v114;
 884                     if (typeof x != 'number')
 885                         throw 'The value ' + x + ' is not a type number.';
 886                     if (typeof y != 'number')
 887                         throw 'The value ' + y + ' is not a type number.';
 888                     return x==y;
 889                 })()?v3: v2) : v2);
 890             }));
 891         })();
 892         return l15;
 893     })();
 894     (function(){
 895         (function(){
 896             return f50 = (function(v115){
 897                 ((v115)["fname"] = "PLUSP");
 898                 return v115;
 899             })((function (v116){
 900                 if (arguments.length < 1) throw 'too few arguments';
 901                 if (arguments.length > 1) throw 'too many arguments';
 902                 return ((function(){
 903                     var x = 0;
 904                     var y = v116;
 905                     if (typeof x != 'number')
 906                         throw 'The value ' + x + ' is not a type number.';
 907                     if (typeof y != 'number')
 908                         throw 'The value ' + y + ' is not a type number.';
 909                     return x<y;
 910                 })()?v3: v2);
 911             }));
 912         })();
 913         return l16;
 914     })();
 915     (function(){
 916         (function(){
 917             return f51 = (function(v117){
 918                 ((v117)["fname"] = "MINUSP");
 919                 return v117;
 920             })((function (v118){
 921                 if (arguments.length < 1) throw 'too few arguments';
 922                 if (arguments.length > 1) throw 'too many arguments';
 923                 return ((function(){
 924                     var x = v118;
 925                     var y = 0;
 926                     if (typeof x != 'number')
 927                         throw 'The value ' + x + ' is not a type number.';
 928                     if (typeof y != 'number')
 929                         throw 'The value ' + y + ' is not a type number.';
 930                     return x<y;
 931                 })()?v3: v2);
 932             }));
 933         })();
 934         return l17;
 935     })();
 936     (function(){
 937         (function(){
 938             return f36 = (function(v119){
 939                 ((v119)["fname"] = "LISTP");
 940                 return v119;
 941             })((function (v120){
 942                 if (arguments.length < 1) throw 'too few arguments';
 943                 if (arguments.length > 1) throw 'too many arguments';
 944                 return (function(v121){
 945                     return (v121 !== v2 ? v121 : f1(v120));
 946                 })(((function(){
 947                     var tmp = v120;
 948                     return (typeof tmp == 'object' && 'car' in tmp);
 949                 })()?v3: v2));
 950             }));
 951         })();
 952         return l18;
 953     })();
 954     (function(){
 955         (function(){
 956             return f52 = (function(v122){
 957                 ((v122)["fname"] = "NTH");
 958                 return v122;
 959             })((function (v123,v124){
 960                 if (arguments.length < 2) throw 'too few arguments';
 961                 if (arguments.length > 2) throw 'too many arguments';
 962                 return (f1(v124) !== v2 ? (function(){
 963                     return v124;
 964                 })() : (f14(v123) !== v2 ? (function(){
 965                     return (function(){
 966                         var tmp = v124;
 967                         return tmp === v2? v2: tmp.car;
 968                     })();
 969                 })() : (function(){
 970                     return f52(f13(v123), (function(){
 971                         var tmp = v124;
 972                         return tmp === v2? v2: tmp.cdr;
 973                     })());
 974                 })()));
 975             }));
 976         })();
 977         return l19;
 978     })();
 979     (function(){
 980         (function(){
 981             return f53 = (function(v125){
 982                 ((v125)["fname"] = "LAST");
 983                 return v125;
 984             })((function (v126){
 985                 if (arguments.length < 1) throw 'too few arguments';
 986                 if (arguments.length > 1) throw 'too many arguments';
 987                 return (((function(){
 988                     var tmp = (function(){
 989                         var tmp = v126;
 990                         return tmp === v2? v2: tmp.cdr;
 991                     })();
 992                     return (typeof tmp == 'object' && 'car' in tmp);
 993                 })()?v3: v2) !== v2 ? f53((function(){
 994                     var tmp = v126;
 995                     return tmp === v2? v2: tmp.cdr;
 996                 })()) : v126);
 997             }));
 998         })();
 999         return l20;
1000     })();
1001     (function(){
1002         (function(){
1003             return f54 = (function(v127){
1004                 ((v127)["fname"] = "BUTLAST");
1005                 return v127;
1006             })((function (v128){
1007                 if (arguments.length < 1) throw 'too few arguments';
1008                 if (arguments.length > 1) throw 'too many arguments';
1009                 return (((function(){
1010                     var tmp = (function(){
1011                         var tmp = v128;
1012                         return tmp === v2? v2: tmp.cdr;
1013                     })();
1014                     return (typeof tmp == 'object' && 'car' in tmp);
1015                 })()?v3: v2) !== v2 ? ({car: (function(){
1016                     var tmp = v128;
1017                     return tmp === v2? v2: tmp.car;
1018                 })(), cdr: f54((function(){
1019                     var tmp = v128;
1020                     return tmp === v2? v2: tmp.cdr;
1021                 })())}) : v2);
1022             }));
1023         })();
1024         return l21;
1025     })();
1026     (function(){
1027         (function(){
1028             return f55 = (function(v129){
1029                 ((v129)["fname"] = "MEMBER");
1030                 return v129;
1031             })((function (v130,v131){
1032                 if (arguments.length < 2) throw 'too few arguments';
1033                 if (arguments.length > 2) throw 'too many arguments';
1034                 return (f1(v131) !== v2 ? (function(){
1035                     return v2;
1036                 })() : (f16(v130, (function(){
1037                     var tmp = v131;
1038                     return tmp === v2? v2: tmp.car;
1039                 })()) !== v2 ? (function(){
1040                     return v131;
1041                 })() : (function(){
1042                     return f55(v130, (function(){
1043                         var tmp = v131;
1044                         return tmp === v2? v2: tmp.cdr;
1045                     })());
1046                 })()));
1047             }));
1048         })();
1049         return l22;
1050     })();
1051     (function(){
1052         (function(){
1053             return f56 = (function(v132){
1054                 ((v132)["fname"] = "REMOVE");
1055                 return v132;
1056             })((function (v133,v134){
1057                 if (arguments.length < 2) throw 'too few arguments';
1058                 if (arguments.length > 2) throw 'too many arguments';
1059                 return (f1(v134) !== v2 ? (function(){
1060                     return v2;
1061                 })() : (f16(v133, (function(){
1062                     var tmp = v134;
1063                     return tmp === v2? v2: tmp.car;
1064                 })()) !== v2 ? (function(){
1065                     return f56(v133, (function(){
1066                         var tmp = v134;
1067                         return tmp === v2? v2: tmp.cdr;
1068                     })());
1069                 })() : (function(){
1070                     return ({car: (function(){
1071                         var tmp = v134;
1072                         return tmp === v2? v2: tmp.car;
1073                     })(), cdr: f56(v133, (function(){
1074                         var tmp = v134;
1075                         return tmp === v2? v2: tmp.cdr;
1076                     })())});
1077                 })()));
1078             }));
1079         })();
1080         return l23;
1081     })();
1082     (function(){
1083         (function(){
1084             return f57 = (function(v135){
1085                 ((v135)["fname"] = "REMOVE-IF");
1086                 return v135;
1087             })((function (v136,v137){
1088                 if (arguments.length < 2) throw 'too few arguments';
1089                 if (arguments.length > 2) throw 'too many arguments';
1090                 return (f1(v137) !== v2 ? (function(){
1091                     return v2;
1092                 })() : ((v136)((function(){
1093                     var tmp = v137;
1094                     return tmp === v2? v2: tmp.car;
1095                 })()) !== v2 ? (function(){
1096                     return f57(v136, (function(){
1097                         var tmp = v137;
1098                         return tmp === v2? v2: tmp.cdr;
1099                     })());
1100                 })() : (function(){
1101                     return ({car: (function(){
1102                         var tmp = v137;
1103                         return tmp === v2? v2: tmp.car;
1104                     })(), cdr: f57(v136, (function(){
1105                         var tmp = v137;
1106                         return tmp === v2? v2: tmp.cdr;
1107                     })())});
1108                 })()));
1109             }));
1110         })();
1111         return l24;
1112     })();
1113     (function(){
1114         (function(){
1115             return f58 = (function(v138){
1116                 ((v138)["fname"] = "REMOVE-IF-NOT");
1117                 return v138;
1118             })((function (v139,v140){
1119                 if (arguments.length < 2) throw 'too few arguments';
1120                 if (arguments.length > 2) throw 'too many arguments';
1121                 return (f1(v140) !== v2 ? (function(){
1122                     return v2;
1123                 })() : ((v139)((function(){
1124                     var tmp = v140;
1125                     return tmp === v2? v2: tmp.car;
1126                 })()) !== v2 ? (function(){
1127                     return ({car: (function(){
1128                         var tmp = v140;
1129                         return tmp === v2? v2: tmp.car;
1130                     })(), cdr: f58(v139, (function(){
1131                         var tmp = v140;
1132                         return tmp === v2? v2: tmp.cdr;
1133                     })())});
1134                 })() : (function(){
1135                     return f58(v139, (function(){
1136                         var tmp = v140;
1137                         return tmp === v2? v2: tmp.cdr;
1138                     })());
1139                 })()));
1140             }));
1141         })();
1142         return l25;
1143     })();
1144     (function(){
1145         (function(){
1146             return f59 = (function(v141){
1147                 ((v141)["fname"] = "DIGIT-CHAR-P");
1148                 return v141;
1149             })((function (v142){
1150                 if (arguments.length < 1) throw 'too few arguments';
1151                 if (arguments.length > 1) throw 'too many arguments';
1152                 return ((((function(){
1153                     var x = 48;
1154                     var y = v142;
1155                     if (typeof x != 'number')
1156                         throw 'The value ' + x + ' is not a type number.';
1157                     if (typeof y != 'number')
1158                         throw 'The value ' + y + ' is not a type number.';
1159                     return x<=y;
1160                 })()?v3: v2) !== v2 ? ((function(){
1161                     var x = v142;
1162                     var y = 57;
1163                     if (typeof x != 'number')
1164                         throw 'The value ' + x + ' is not a type number.';
1165                     if (typeof y != 'number')
1166                         throw 'The value ' + y + ' is not a type number.';
1167                     return x<=y;
1168                 })()?v3: v2) : v2) !== v2 ? (function(){
1169                     var x = v142;
1170                     var y = 48;
1171                     if (typeof x != 'number')
1172                         throw 'The value ' + x + ' is not a type number.';
1173                     if (typeof y != 'number')
1174                         throw 'The value ' + y + ' is not a type number.';
1175                     return x-y;
1176                 })() : v2);
1177             }));
1178         })();
1179         return l26;
1180     })();
1181     (function(){
1182         (function(){
1183             return f60 = (function(v143){
1184                 ((v143)["fname"] = "SUBSEQ");
1185                 return v143;
1186             })((function (v144,v145,v146){
1187                 if (arguments.length < 2) throw 'too few arguments';
1188                 if (arguments.length > 3) throw 'too many arguments';
1189                 switch(arguments.length){
1190                 case 2:
1191                 v146=v2;
1192                 default: break;
1193                 }
1194                 return (((typeof(v144) == "string")?v3: v2) !== v2 ? (function(){
1195                     return (v146 !== v2 ? (function(){
1196                         var str = v144;
1197                         var a = v145;
1198                         var b;
1199                         b = v146;
1200                         return str.slice(a,b);
1201                     })() : (function(){
1202                         var str = v144;
1203                         var a = v145;
1204                         var b;
1205                         return str.slice(a,b);
1206                     })());
1207                 })() : (function(){
1208                     return (function (){ throw "Unsupported argument.";return 0;})();
1209                 })());
1210             }));
1211         })();
1212         return l27;
1213     })();
1214     (function(){
1215         (function(){
1216             return f61 = (function(v147){
1217                 ((v147)["fname"] = "PARSE-INTEGER");
1218                 return v147;
1219             })((function (v148){
1220                 if (arguments.length < 1) throw 'too few arguments';
1221                 if (arguments.length > 1) throw 'too many arguments';
1222                 return (function(v149,v150,v151){
1223                     (function(){
1224                         while(((function(){
1225                             var x = v150;
1226                             var y = v151;
1227                             if (typeof x != 'number')
1228                                 throw 'The value ' + x + ' is not a type number.';
1229                             if (typeof y != 'number')
1230                                 throw 'The value ' + y + ' is not a type number.';
1231                             return x<y;
1232                         })()?v3: v2) !== v2){
1233                             v149 = (function(){
1234                                 var x = (function(){
1235                                     var x = v149;
1236                                     var y = 10;
1237                                     if (typeof x != 'number')
1238                                         throw 'The value ' + x + ' is not a type number.';
1239                                     if (typeof y != 'number')
1240                                         throw 'The value ' + y + ' is not a type number.';
1241                                     return x*y;
1242                                 })();
1243                                 var y = f59((function(){
1244                                     var string = v148;
1245                                     var index = v150;
1246                                     if (typeof string != 'string')
1247                                         throw 'The value ' + string + ' is not a type string.';
1248                                     if (typeof index != 'number')
1249                                         throw 'The value ' + index + ' is not a type number.';
1250                                     return string.charCodeAt(index);
1251                                 })());
1252                                 if (typeof x != 'number')
1253                                     throw 'The value ' + x + ' is not a type number.';
1254                                 if (typeof y != 'number')
1255                                     throw 'The value ' + y + ' is not a type number.';
1256                                 return x+y;
1257                             })();
1258                             v150 = (function(){
1259                                 var x = v150;
1260                                 var y = 1;
1261                                 if (typeof x != 'number')
1262                                     throw 'The value ' + x + ' is not a type number.';
1263                                 if (typeof y != 'number')
1264                                     throw 'The value ' + y + ' is not a type number.';
1265                                 return x+y;
1266                             })();
1267                     }})();
1268                     return v149;
1269                 })(0,0,f43(v148));
1270             }));
1271         })();
1272         return l28;
1273     })();
1274     (function(){
1275         (function(){
1276             return f62 = (function(v152){
1277                 ((v152)["fname"] = "EVERY");
1278                 return v152;
1279             })((function (v153,v154){
1280                 if (arguments.length < 2) throw 'too few arguments';
1281                 if (arguments.length > 2) throw 'too many arguments';
1282                 return (function(v155,v156,v157){
1283                     (function(){
1284                         while((v155 !== v2 ? ((function(){
1285                             var x = v156;
1286                             var y = v157;
1287                             if (typeof x != 'number')
1288                                 throw 'The value ' + x + ' is not a type number.';
1289                             if (typeof y != 'number')
1290                                 throw 'The value ' + y + ' is not a type number.';
1291                             return x<y;
1292                         })()?v3: v2) : v2) !== v2){
1293                             ((v153)((function(){
1294                                 var string = v154;
1295                                 var index = v156;
1296                                 if (typeof string != 'string')
1297                                     throw 'The value ' + string + ' is not a type string.';
1298                                 if (typeof index != 'number')
1299                                     throw 'The value ' + index + ' is not a type number.';
1300                                 return string.charCodeAt(index);
1301                             })()) !== v2 ? v2 : (function(){
1302                                 return v155 = v2;
1303                             })());
1304                             v156 = (function(){
1305                                 var x = v156;
1306                                 var y = 1;
1307                                 if (typeof x != 'number')
1308                                     throw 'The value ' + x + ' is not a type number.';
1309                                 if (typeof y != 'number')
1310                                     throw 'The value ' + y + ' is not a type number.';
1311                                 return x+y;
1312                             })();
1313                     }})();
1314                     return v155;
1315                 })(v3,0,f43(v154));
1316             }));
1317         })();
1318         return l29;
1319     })();
1320     (function(){
1321         (function(){
1322             return f63 = (function(v158){
1323                 ((v158)["fname"] = "ASSOC");
1324                 return v158;
1325             })((function (v159,v160){
1326                 if (arguments.length < 2) throw 'too few arguments';
1327                 if (arguments.length > 2) throw 'too many arguments';
1328                 return (f1(v160) !== v2 ? (function(){
1329                     return v2;
1330                 })() : (f16(v159, f22(v160)) !== v2 ? (function(){
1331                     return (function(){
1332                         var tmp = v160;
1333                         return tmp === v2? v2: tmp.car;
1334                     })();
1335                 })() : (function(){
1336                     return f63(v159, (function(){
1337                         var tmp = v160;
1338                         return tmp === v2? v2: tmp.cdr;
1339                     })());
1340                 })()));
1341             }));
1342         })();
1343         return l30;
1344     })();
1345     return (function(){
1346         (function(){
1347             return f64 = (function(v161){
1348                 ((v161)["fname"] = "STRING=");
1349                 return v161;
1350             })((function (v162,v163){
1351                 if (arguments.length < 2) throw 'too few arguments';
1352                 if (arguments.length > 2) throw 'too many arguments';
1353                 return ((v162 == v163)?v3: v2);
1354             }));
1355         })();
1356         return l31;
1357     })();
1358 })();
1359 var l32 = f3("*NEWLINE*");
1360 var v164;
1361 (function(){
1362     (function(){
1363         return v164 = (function(){
1364             var x = f46(10);
1365             if (typeof x != 'number')
1366                 throw 'The value ' + x + ' is not a type number.';
1367             return String.fromCharCode(x);
1368         })();
1369     })();
1370     return l32;
1371 })();
1372 var l33 = f3("CONCAT");
1373 var f65;
1374 (function(){
1375     (function(){
1376         return f65 = (function(v165){
1377             ((v165)["fname"] = "CONCAT");
1378             return v165;
1379         })((function (){
1380             var v166= v2;
1381             for (var i = arguments.length-1; i>=0; i--)
1382                 v166 = {car: arguments[i], cdr: v166};
1383             return f37(f44, v166, "");
1384         }));
1385     })();
1386     return l33;
1387 })();
1388 var l34 = f3("JOIN");
1389 var f66;
1390 (function(){
1391     (function(){
1392         return f66 = (function(v167){
1393             ((v167)["fname"] = "JOIN");
1394             return v167;
1395         })((function (v168,v169){
1396             if (arguments.length < 1) throw 'too few arguments';
1397             if (arguments.length > 2) throw 'too many arguments';
1398             switch(arguments.length){
1399             case 1:
1400             v169="";
1401             default: break;
1402             }
1403             return (f1(v168) !== v2 ? (function(){
1404                 return "";
1405             })() : (f1((function(){
1406                 var tmp = v168;
1407                 return tmp === v2? v2: tmp.cdr;
1408             })()) !== v2 ? (function(){
1409                 return (function(){
1410                     var tmp = v168;
1411                     return tmp === v2? v2: tmp.car;
1412                 })();
1413             })() : (function(){
1414                 return f65((function(){
1415                     var tmp = v168;
1416                     return tmp === v2? v2: tmp.car;
1417                 })(), v169, f66((function(){
1418                     var tmp = v168;
1419                     return tmp === v2? v2: tmp.cdr;
1420                 })(), v169));
1421             })()));
1422         }));
1423     })();
1424     return l34;
1425 })();
1426 var l35 = f3("JOIN-TRAILING");
1427 var f67;
1428 (function(){
1429     (function(){
1430         return f67 = (function(v170){
1431             ((v170)["fname"] = "JOIN-TRAILING");
1432             return v170;
1433         })((function (v171,v172){
1434             if (arguments.length < 1) throw 'too few arguments';
1435             if (arguments.length > 2) throw 'too many arguments';
1436             switch(arguments.length){
1437             case 1:
1438             v172="";
1439             default: break;
1440             }
1441             return (f1(v171) !== v2 ? "" : f65((function(){
1442                 var tmp = v171;
1443                 return tmp === v2? v2: tmp.car;
1444             })(), v172, f67((function(){
1445                 var tmp = v171;
1446                 return tmp === v2? v2: tmp.cdr;
1447             })(), v172)));
1448         }));
1449     })();
1450     return l35;
1451 })();
1452 var l36 = f3("INDENT");
1453 var f68;
1454 (function(){
1455     (function(){
1456         return f68 = (function(v173){
1457             ((v173)["fname"] = "INDENT");
1458             return v173;
1459         })((function (){
1460             var v174= v2;
1461             for (var i = arguments.length-1; i>=0; i--)
1462                 v174 = {car: arguments[i], cdr: v174};
1463             return (function(v175){
1464                 return (function(v176,v177,v178){
1465                     (f50(v178) !== v2 ? (function(){
1466                         return v176 = "    ";
1467                     })() : v2);
1468                     (function(){
1469                         while(((function(){
1470                             var x = v177;
1471                             var y = v178;
1472                             if (typeof x != 'number')
1473                                 throw 'The value ' + x + ' is not a type number.';
1474                             if (typeof y != 'number')
1475                                 throw 'The value ' + y + ' is not a type number.';
1476                             return x<y;
1477                         })()?v3: v2) !== v2){
1478                             v176 = f65(v176, ((f48((function(){
1479                                 var string = v175;
1480                                 var index = v177;
1481                                 if (typeof string != 'string')
1482                                     throw 'The value ' + string + ' is not a type string.';
1483                                 if (typeof index != 'number')
1484                                     throw 'The value ' + index + ' is not a type number.';
1485                                 return string.charCodeAt(index);
1486                             })(), 10) !== v2 ? (((function(){
1487                                 var x = v177;
1488                                 var y = f13(v178);
1489                                 if (typeof x != 'number')
1490                                     throw 'The value ' + x + ' is not a type number.';
1491                                 if (typeof y != 'number')
1492                                     throw 'The value ' + y + ' is not a type number.';
1493                                 return x<y;
1494                             })()?v3: v2) !== v2 ? f17(f48((function(){
1495                                 var string = v175;
1496                                 var index = f12(v177);
1497                                 if (typeof string != 'string')
1498                                     throw 'The value ' + string + ' is not a type string.';
1499                                 if (typeof index != 'number')
1500                                     throw 'The value ' + index + ' is not a type number.';
1501                                 return string.charCodeAt(index);
1502                             })(), 10)) : v2) : v2) !== v2 ? f65((function(){
1503                                 var x = 10;
1504                                 if (typeof x != 'number')
1505                                     throw 'The value ' + x + ' is not a type number.';
1506                                 return String.fromCharCode(x);
1507                             })(), "    ") : f60(v175, v177, f12(v177))));
1508                             v177 = (function(){
1509                                 var x = v177;
1510                                 var y = 1;
1511                                 if (typeof x != 'number')
1512                                     throw 'The value ' + x + ' is not a type number.';
1513                                 if (typeof y != 'number')
1514                                     throw 'The value ' + y + ' is not a type number.';
1515                                 return x+y;
1516                             })();
1517                     }})();
1518                     return v176;
1519                 })("",0,f43(v175));
1520             })(f37(f65, v174, ""));
1521         }));
1522     })();
1523     return l36;
1524 })();
1525 var l37 = f3("INTEGER-TO-STRING");
1526 var f6;
1527 (function(){
1528     (function(){
1529         return f6 = (function(v179){
1530             ((v179)["fname"] = "INTEGER-TO-STRING");
1531             return v179;
1532         })((function (v180){
1533             if (arguments.length < 1) throw 'too few arguments';
1534             if (arguments.length > 1) throw 'too many arguments';
1535             return (f14(v180) !== v2 ? (function(){
1536                 return "0";
1537             })() : (f51(v180) !== v2 ? (function(){
1538                 return f65("-", f6((function(){
1539                     var x = 0;
1540                     var y = v180;
1541                     if (typeof x != 'number')
1542                         throw 'The value ' + x + ' is not a type number.';
1543                     if (typeof y != 'number')
1544                         throw 'The value ' + y + ' is not a type number.';
1545                     return x-y;
1546                 })()));
1547             })() : (function(){
1548                 return (function(v181){
1549                     (function(){
1550                         while(f17(f14(v180)) !== v2){
1551                             v181 = ({car: (function(){
1552                                 var x = v180;
1553                                 var y = 10;
1554                                 if (typeof x != 'number')
1555                                     throw 'The value ' + x + ' is not a type number.';
1556                                 if (typeof y != 'number')
1557                                     throw 'The value ' + y + ' is not a type number.';
1558                                 return x%y;
1559                             })(), cdr: v181});
1560                             v180 = f15(v180, 10);
1561                     }})();
1562                     return f66(f45((function (v182){
1563                         if (arguments.length < 1) throw 'too few arguments';
1564                         if (arguments.length > 1) throw 'too many arguments';
1565                         return (function(){
1566                             var x = (function(){
1567                                 var string = "0123456789";
1568                                 var index = v182;
1569                                 if (typeof string != 'string')
1570                                     throw 'The value ' + string + ' is not a type string.';
1571                                 if (typeof index != 'number')
1572                                     throw 'The value ' + index + ' is not a type number.';
1573                                 return string.charCodeAt(index);
1574                             })();
1575                             if (typeof x != 'number')
1576                                 throw 'The value ' + x + ' is not a type number.';
1577                             return String.fromCharCode(x);
1578                         })();
1579                     }), v181));
1580                 })(v2);
1581             })()));
1582         }));
1583     })();
1584     return l37;
1585 })();
1586 var l40 = f3("PRINT");
1587 var f72;
1588 var l39 = f3("WRITE-LINE");
1589 var f71;
1590 var l38 = f3("PRINT-TO-STRING");
1591 var f69;
1592 (function(){
1593     (function(){
1594         (function(){
1595             return f69 = (function(v183){
1596                 ((v183)["fname"] = "PRINT-TO-STRING");
1597                 return v183;
1598             })((function (v184){
1599                 if (arguments.length < 1) throw 'too few arguments';
1600                 if (arguments.length > 1) throw 'too many arguments';
1601                 return (((function(){
1602                     var tmp = v184;
1603                     return (typeof tmp == 'object' && 'name' in tmp);
1604                 })()?v3: v2) !== v2 ? (function(){
1605                     return (v184).name;
1606                 })() : (f49(v184) !== v2 ? (function(){
1607                     return f6(v184);
1608                 })() : (((typeof(v184) == "string")?v3: v2) !== v2 ? (function(){
1609                     return f65("\"", f70(v184), "\"");
1610                 })() : (((typeof v184 == 'function')?v3: v2) !== v2 ? (function(){
1611                     return (function(v185){
1612                         return (v185 !== v2 ? f65("#<FUNCTION ", v185, ">") : f65("#<FUNCTION>"));
1613                     })((function(){
1614                         var tmp = (v184)["fname"];
1615                         return tmp == undefined? v2: tmp ;
1616                     })());
1617                 })() : (f36(v184) !== v2 ? (function(){
1618                     return f65("(", f67(f45(f69, f54(v184)), " "), (function(v186){
1619                         return (f1((function(){
1620                             var tmp = v186;
1621                             return tmp === v2? v2: tmp.cdr;
1622                         })()) !== v2 ? f69((function(){
1623                             var tmp = v186;
1624                             return tmp === v2? v2: tmp.car;
1625                         })()) : f65(f69((function(){
1626                             var tmp = v186;
1627                             return tmp === v2? v2: tmp.car;
1628                         })()), " . ", f69((function(){
1629                             var tmp = v186;
1630                             return tmp === v2? v2: tmp.cdr;
1631                         })())));
1632                     })(f53(v184)), ")");
1633                 })() : v2)))));
1634             }));
1635         })();
1636         return l38;
1637     })();
1638     (function(){
1639         (function(){
1640             return f71 = (function(v187){
1641                 ((v187)["fname"] = "WRITE-LINE");
1642                 return v187;
1643             })((function (v188){
1644                 if (arguments.length < 1) throw 'too few arguments';
1645                 if (arguments.length > 1) throw 'too many arguments';
1646                 (function(){
1647                     var x = v188;
1648                     if (typeof x != 'string')
1649                         throw 'The value ' + x + ' is not a type string.';
1650                     return lisp.write(x);
1651                 })();
1652                 (function(){
1653                     var x = v164;
1654                     if (typeof x != 'string')
1655                         throw 'The value ' + x + ' is not a type string.';
1656                     return lisp.write(x);
1657                 })();
1658                 return v188;
1659             }));
1660         })();
1661         return l39;
1662     })();
1663     return (function(){
1664         (function(){
1665             return f72 = (function(v189){
1666                 ((v189)["fname"] = "PRINT");
1667                 return v189;
1668             })((function (v190){
1669                 if (arguments.length < 1) throw 'too few arguments';
1670                 if (arguments.length > 1) throw 'too many arguments';
1671                 return f71(f69(v190));
1672             }));
1673         })();
1674         return l40;
1675     })();
1676 })();
1677 var l41 = f3("MAKE-STRING-STREAM");
1678 var f73;
1679 (function(){
1680     (function(){
1681         return f73 = (function(v191){
1682             ((v191)["fname"] = "MAKE-STRING-STREAM");
1683             return v191;
1684         })((function (v192){
1685             if (arguments.length < 1) throw 'too few arguments';
1686             if (arguments.length > 1) throw 'too many arguments';
1687             return ({car: v192, cdr: 0});
1688         }));
1689     })();
1690     return l41;
1691 })();
1692 var l42 = f3("%PEEK-CHAR");
1693 var f74;
1694 (function(){
1695     (function(){
1696         return f74 = (function(v193){
1697             ((v193)["fname"] = "%PEEK-CHAR");
1698             return v193;
1699         })((function (v194){
1700             if (arguments.length < 1) throw 'too few arguments';
1701             if (arguments.length > 1) throw 'too many arguments';
1702             return (((function(){
1703                 var x = (function(){
1704                     var tmp = v194;
1705                     return tmp === v2? v2: tmp.cdr;
1706                 })();
1707                 var y = f43((function(){
1708                     var tmp = v194;
1709                     return tmp === v2? v2: tmp.car;
1710                 })());
1711                 if (typeof x != 'number')
1712                     throw 'The value ' + x + ' is not a type number.';
1713                 if (typeof y != 'number')
1714                     throw 'The value ' + y + ' is not a type number.';
1715                 return x<y;
1716             })()?v3: v2) !== v2 ? (function(){
1717                 var string = (function(){
1718                     var tmp = v194;
1719                     return tmp === v2? v2: tmp.car;
1720                 })();
1721                 var index = (function(){
1722                     var tmp = v194;
1723                     return tmp === v2? v2: tmp.cdr;
1724                 })();
1725                 if (typeof string != 'string')
1726                     throw 'The value ' + string + ' is not a type string.';
1727                 if (typeof index != 'number')
1728                     throw 'The value ' + index + ' is not a type number.';
1729                 return string.charCodeAt(index);
1730             })() : v2);
1731         }));
1732     })();
1733     return l42;
1734 })();
1735 var l43 = f3("%READ-CHAR");
1736 var f75;
1737 (function(){
1738     (function(){
1739         return f75 = (function(v195){
1740             ((v195)["fname"] = "%READ-CHAR");
1741             return v195;
1742         })((function (v196){
1743             if (arguments.length < 1) throw 'too few arguments';
1744             if (arguments.length > 1) throw 'too many arguments';
1745             return (((function(){
1746                 var x = (function(){
1747                     var tmp = v196;
1748                     return tmp === v2? v2: tmp.cdr;
1749                 })();
1750                 var y = f43((function(){
1751                     var tmp = v196;
1752                     return tmp === v2? v2: tmp.car;
1753                 })());
1754                 if (typeof x != 'number')
1755                     throw 'The value ' + x + ' is not a type number.';
1756                 if (typeof y != 'number')
1757                     throw 'The value ' + y + ' is not a type number.';
1758                 return x<y;
1759             })()?v3: v2) !== v2 ? (function(v197){
1760                 (function(){
1761                     var x = v196;
1762                     if (typeof x != 'object')
1763                         throw 'The value ' + x + ' is not a type object.';
1764                     return (x.cdr = f12((function(){
1765                         var tmp = v196;
1766                         return tmp === v2? v2: tmp.cdr;
1767                     })()));
1768                 })();
1769                 return v197;
1770             })((function(){
1771                 var string = (function(){
1772                     var tmp = v196;
1773                     return tmp === v2? v2: tmp.car;
1774                 })();
1775                 var index = (function(){
1776                     var tmp = v196;
1777                     return tmp === v2? v2: tmp.cdr;
1778                 })();
1779                 if (typeof string != 'string')
1780                     throw 'The value ' + string + ' is not a type string.';
1781                 if (typeof index != 'number')
1782                     throw 'The value ' + index + ' is not a type number.';
1783                 return string.charCodeAt(index);
1784             })()) : v2);
1785         }));
1786     })();
1787     return l43;
1788 })();
1789 var l44 = f3("WHITESPACEP");
1790 var f76;
1791 (function(){
1792     (function(){
1793         return f76 = (function(v198){
1794             ((v198)["fname"] = "WHITESPACEP");
1795             return v198;
1796         })((function (v199){
1797             if (arguments.length < 1) throw 'too few arguments';
1798             if (arguments.length > 1) throw 'too many arguments';
1799             return (function(v200){
1800                 return (v200 !== v2 ? v200 : (function(v201){
1801                     return (v201 !== v2 ? v201 : f48(v199, 9));
1802                 })(f48(v199, 10)));
1803             })(f48(v199, 32));
1804         }));
1805     })();
1806     return l44;
1807 })();
1808 var l45 = f3("SKIP-WHITESPACES");
1809 var f77;
1810 (function(){
1811     (function(){
1812         return f77 = (function(v202){
1813             ((v202)["fname"] = "SKIP-WHITESPACES");
1814             return v202;
1815         })((function (v203){
1816             if (arguments.length < 1) throw 'too few arguments';
1817             if (arguments.length > 1) throw 'too many arguments';
1818             return (function(v204){
1819                 v204 = f74(v203);
1820                 return (function(){
1821                     while((v204 !== v2 ? f76(v204) : v2) !== v2){
1822                         f75(v203);
1823                         v204 = f74(v203);
1824                 }})();
1825             })(v2);
1826         }));
1827     })();
1828     return l45;
1829 })();
1830 var l46 = f3("TERMINALP");
1831 var f78;
1832 (function(){
1833     (function(){
1834         return f78 = (function(v205){
1835             ((v205)["fname"] = "TERMINALP");
1836             return v205;
1837         })((function (v206){
1838             if (arguments.length < 1) throw 'too few arguments';
1839             if (arguments.length > 1) throw 'too many arguments';
1840             return (function(v207){
1841                 return (v207 !== v2 ? v207 : (function(v208){
1842                     return (v208 !== v2 ? v208 : (function(v209){
1843                         return (v209 !== v2 ? v209 : f48(40, v206));
1844                     })(f48(41, v206)));
1845                 })(f76(v206)));
1846             })(f1(v206));
1847         }));
1848     })();
1849     return l46;
1850 })();
1851 var l47 = f3("READ-UNTIL");
1852 var f79;
1853 (function(){
1854     (function(){
1855         return f79 = (function(v210){
1856             ((v210)["fname"] = "READ-UNTIL");
1857             return v210;
1858         })((function (v211,v212){
1859             if (arguments.length < 2) throw 'too few arguments';
1860             if (arguments.length > 2) throw 'too many arguments';
1861             return (function(v213,v214){
1862                 v214 = f74(v211);
1863                 (function(){
1864                     while((v214 !== v2 ? f17((v212)(v214)) : v2) !== v2){
1865                         v213 = f65(v213, (function(){
1866                             var x = v214;
1867                             if (typeof x != 'number')
1868                                 throw 'The value ' + x + ' is not a type number.';
1869                             return String.fromCharCode(x);
1870                         })());
1871                         f75(v211);
1872                         v214 = f74(v211);
1873                 }})();
1874                 return v213;
1875             })("",v2);
1876         }));
1877     })();
1878     return l47;
1879 })();
1880 var l48 = f3("SKIP-WHITESPACES-AND-COMMENTS");
1881 var f80;
1882 (function(){
1883     (function(){
1884         return f80 = (function(v215){
1885             ((v215)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
1886             return v215;
1887         })((function (v216){
1888             if (arguments.length < 1) throw 'too few arguments';
1889             if (arguments.length > 1) throw 'too many arguments';
1890             return (function(v217){
1891                 f77(v216);
1892                 v217 = f74(v216);
1893                 return (function(){
1894                     while((v217 !== v2 ? f48(v217, 59) : v2) !== v2){
1895                         f79(v216, (function (v218){
1896                             if (arguments.length < 1) throw 'too few arguments';
1897                             if (arguments.length > 1) throw 'too many arguments';
1898                             return f48(v218, 10);
1899                         }));
1900                         f77(v216);
1901                         v217 = f74(v216);
1902                 }})();
1903             })(v2);
1904         }));
1905     })();
1906     return l48;
1907 })();
1908 var l49 = f3("%READ-LIST");
1909 var f81;
1910 (function(){
1911     (function(){
1912         return f81 = (function(v219){
1913             ((v219)["fname"] = "%READ-LIST");
1914             return v219;
1915         })((function (v220){
1916             if (arguments.length < 1) throw 'too few arguments';
1917             if (arguments.length > 1) throw 'too many arguments';
1918             f80(v220);
1919             return (function(v221){
1920                 return (f1(v221) !== v2 ? (function(){
1921                     return (function (){ throw "Unspected EOF";return 0;})();
1922                 })() : (f48(v221, 41) !== v2 ? (function(){
1923                     f75(v220);
1924                     return v2;
1925                 })() : (f48(v221, 46) !== v2 ? (function(){
1926                     f75(v220);
1927                     return (function(v222){
1928                         f80(v220);
1929                         (f48(f75(v220), 41) !== v2 ? v2 : (function(){
1930                             return (function (){ throw "')' was expected.";return 0;})();
1931                         })());
1932                         return v222;
1933                     })(f82(v220));
1934                 })() : (function(){
1935                     return ({car: f82(v220), cdr: f81(v220)});
1936                 })())));
1937             })(f74(v220));
1938         }));
1939     })();
1940     return l49;
1941 })();
1942 var l50 = f3("READ-STRING");
1943 var f83;
1944 (function(){
1945     (function(){
1946         return f83 = (function(v223){
1947             ((v223)["fname"] = "READ-STRING");
1948             return v223;
1949         })((function (v224){
1950             if (arguments.length < 1) throw 'too few arguments';
1951             if (arguments.length > 1) throw 'too many arguments';
1952             return (function(v225,v226){
1953                 v226 = f75(v224);
1954                 (function(){
1955                     while(f17(f16(v226, 34)) !== v2){
1956                         (f1(v226) !== v2 ? (function(){
1957                             return (function (){ throw "Unexpected EOF";return 0;})();
1958                         })() : v2);
1959                         (f16(v226, 92) !== v2 ? (function(){
1960                             return v226 = f75(v224);
1961                         })() : v2);
1962                         v225 = f65(v225, (function(){
1963                             var x = v226;
1964                             if (typeof x != 'number')
1965                                 throw 'The value ' + x + ' is not a type number.';
1966                             return String.fromCharCode(x);
1967                         })());
1968                         v226 = f75(v224);
1969                 }})();
1970                 return v225;
1971             })("",v2);
1972         }));
1973     })();
1974     return l50;
1975 })();
1976 var l52 = f3("READ-SHARP");
1977 var l51 = f3("FUNCTION");
1978 var f84;
1979 (function(){
1980     (function(){
1981         return f84 = (function(v227){
1982             ((v227)["fname"] = "READ-SHARP");
1983             return v227;
1984         })((function (v228){
1985             if (arguments.length < 1) throw 'too few arguments';
1986             if (arguments.length > 1) throw 'too many arguments';
1987             f75(v228);
1988             return (function(v229){
1989                 return (f16(v229, 39) !== v2 ? (function(){
1990                     return f33(l51, f82(v228));
1991                 })() : (f16(v229, 92) !== v2 ? (function(){
1992                     return (function(v230){
1993                         return (f64(v230, "space") !== v2 ? (function(){
1994                             return f47(32);
1995                         })() : (f64(v230, "tab") !== v2 ? (function(){
1996                             return f47(9);
1997                         })() : (f64(v230, "newline") !== v2 ? (function(){
1998                             return f47(10);
1999                         })() : (function(){
2000                             return f47((function(){
2001                                 var string = v230;
2002                                 var index = 0;
2003                                 if (typeof string != 'string')
2004                                     throw 'The value ' + string + ' is not a type string.';
2005                                 if (typeof index != 'number')
2006                                     throw 'The value ' + index + ' is not a type number.';
2007                                 return string.charCodeAt(index);
2008                             })());
2009                         })())));
2010                     })(f65((function(){
2011                         var x = f75(v228);
2012                         if (typeof x != 'number')
2013                             throw 'The value ' + x + ' is not a type number.';
2014                         return String.fromCharCode(x);
2015                     })(), f79(v228, f78)));
2016                 })() : (f16(v229, 43) !== v2 ? (function(){
2017                     return (function(v231){
2018                         return (f64(v231, "common-lisp") !== v2 ? (function(){
2019                             f82(v228);
2020                             return f82(v228);
2021                         })() : (f64(v231, "ecmalisp") !== v2 ? (function(){
2022                             return f82(v228);
2023                         })() : (function(){
2024                             return (function (){ throw "Unknown reader form.";return 0;})();
2025                         })()));
2026                     })(f79(v228, f78));
2027                 })() : (function(){
2028                     return (function (){ throw "ECASE expression failed.";return 0;})();
2029                 })())));
2030             })(f75(v228));
2031         }));
2032     })();
2033     return l52;
2034 })();
2035 var l53 = f3("*EOF*");
2036 var v232;
2037 (function(){
2038     (function(){
2039         return v232 = (function(){
2040             var name = "EOF";
2041             if (typeof name != 'string')
2042                 throw 'The value ' + name + ' is not a type string.';
2043             return ({name: name});
2044         })();
2045     })();
2046     return l53;
2047 })();
2048 var l58 = f3("LS-READ");
2049 var l57 = f3("UNQUOTE");
2050 var l56 = f3("UNQUOTE-SPLICING");
2051 var l55 = f3("BACKQUOTE");
2052 var l54 = f3("QUOTE");
2053 var f82;
2054 (function(){
2055     (function(){
2056         return f82 = (function(v233){
2057             ((v233)["fname"] = "LS-READ");
2058             return v233;
2059         })((function (v234){
2060             if (arguments.length < 1) throw 'too few arguments';
2061             if (arguments.length > 1) throw 'too many arguments';
2062             f80(v234);
2063             return (function(v235){
2064                 return (f1(v235) !== v2 ? (function(){
2065                     return v232;
2066                 })() : (f48(v235, 40) !== v2 ? (function(){
2067                     f75(v234);
2068                     return f81(v234);
2069                 })() : (f48(v235, 39) !== v2 ? (function(){
2070                     f75(v234);
2071                     return f33(l54, f82(v234));
2072                 })() : (f48(v235, 96) !== v2 ? (function(){
2073                     f75(v234);
2074                     return f33(l55, f82(v234));
2075                 })() : (f48(v235, 34) !== v2 ? (function(){
2076                     f75(v234);
2077                     return f83(v234);
2078                 })() : (f48(v235, 44) !== v2 ? (function(){
2079                     f75(v234);
2080                     return (f16(f74(v234), 64) !== v2 ? (function(){
2081                         f75(v234);
2082                         return f33(l56, f82(v234));
2083                     })() : f33(l57, f82(v234)));
2084                 })() : (f48(v235, 35) !== v2 ? (function(){
2085                     return f84(v234);
2086                 })() : (function(){
2087                     return (function(v236){
2088                         return (f62(f59, v236) !== v2 ? f61(v236) : f3((function(){
2089                             var x = v236;
2090                             if (typeof x != 'string')
2091                                 throw 'The value ' + x + ' is not a type string.';
2092                             return x.toUpperCase();
2093                         })()));
2094                     })(f79(v234, f78));
2095                 })())))))));
2096             })(f74(v234));
2097         }));
2098     })();
2099     return l58;
2100 })();
2101 var l59 = f3("LS-READ-FROM-STRING");
2102 var f85;
2103 (function(){
2104     (function(){
2105         return f85 = (function(v237){
2106             ((v237)["fname"] = "LS-READ-FROM-STRING");
2107             return v237;
2108         })((function (v238){
2109             if (arguments.length < 1) throw 'too few arguments';
2110             if (arguments.length > 1) throw 'too many arguments';
2111             return f82(f73(v238));
2112         }));
2113     })();
2114     return l59;
2115 })();
2116 var l61 = f3("*COMPILATION-UNIT-CHECKS*");
2117 var l60 = f3("NIL");
2118 var v239;
2119 (function(){
2120     (function(){
2121         return v239 = l60;
2122     })();
2123     return l61;
2124 })();
2125 var l63 = f3("*ENV*");
2126 var l62 = f3("NIL");
2127 var v240;
2128 (function(){
2129     (function(){
2130         return v240 = l62;
2131     })();
2132     return l63;
2133 })();
2134 var l65 = f3("*FENV*");
2135 var l64 = f3("NIL");
2136 var v241;
2137 (function(){
2138     (function(){
2139         return v241 = l64;
2140     })();
2141     return l65;
2142 })();
2143 var l66 = f3("MAKE-BINDING");
2144 var f86;
2145 (function(){
2146     (function(){
2147         return f86 = (function(v242){
2148             ((v242)["fname"] = "MAKE-BINDING");
2149             return v242;
2150         })((function (v243,v244,v245,v246){
2151             if (arguments.length < 4) throw 'too few arguments';
2152             if (arguments.length > 4) throw 'too many arguments';
2153             return f33(v243, v244, v245, v246);
2154         }));
2155     })();
2156     return l66;
2157 })();
2158 var l67 = f3("BINDING-NAME");
2159 var f87;
2160 (function(){
2161     (function(){
2162         return f87 = (function(v247){
2163             ((v247)["fname"] = "BINDING-NAME");
2164             return v247;
2165         })((function (v248){
2166             if (arguments.length < 1) throw 'too few arguments';
2167             if (arguments.length > 1) throw 'too many arguments';
2168             return f29(v248);
2169         }));
2170     })();
2171     return l67;
2172 })();
2173 var l68 = f3("BINDING-TYPE");
2174 var f88;
2175 (function(){
2176     (function(){
2177         return f88 = (function(v249){
2178             ((v249)["fname"] = "BINDING-TYPE");
2179             return v249;
2180         })((function (v250){
2181             if (arguments.length < 1) throw 'too few arguments';
2182             if (arguments.length > 1) throw 'too many arguments';
2183             return f30(v250);
2184         }));
2185     })();
2186     return l68;
2187 })();
2188 var l69 = f3("BINDING-TRANSLATION");
2189 var f89;
2190 (function(){
2191     (function(){
2192         return f89 = (function(v251){
2193             ((v251)["fname"] = "BINDING-TRANSLATION");
2194             return v251;
2195         })((function (v252){
2196             if (arguments.length < 1) throw 'too few arguments';
2197             if (arguments.length > 1) throw 'too many arguments';
2198             return f31(v252);
2199         }));
2200     })();
2201     return l69;
2202 })();
2203 var l70 = f3("BINDING-DECLARED");
2204 var f90;
2205 (function(){
2206     (function(){
2207         return f90 = (function(v253){
2208             ((v253)["fname"] = "BINDING-DECLARED");
2209             return v253;
2210         })((function (v254){
2211             if (arguments.length < 1) throw 'too few arguments';
2212             if (arguments.length > 1) throw 'too many arguments';
2213             return (v254 !== v2 ? f32(v254) : v2);
2214         }));
2215     })();
2216     return l70;
2217 })();
2218 var l71 = f3("MARK-BINDING-AS-DECLARED");
2219 var f91;
2220 (function(){
2221     (function(){
2222         return f91 = (function(v255){
2223             ((v255)["fname"] = "MARK-BINDING-AS-DECLARED");
2224             return v255;
2225         })((function (v256){
2226             if (arguments.length < 1) throw 'too few arguments';
2227             if (arguments.length > 1) throw 'too many arguments';
2228             return (function(){
2229                 var x = f27(v256);
2230                 if (typeof x != 'object')
2231                     throw 'The value ' + x + ' is not a type object.';
2232                 return (x.car = v3);
2233             })();
2234         }));
2235     })();
2236     return l71;
2237 })();
2238 var l72 = f3("*VARIABLE-COUNTER*");
2239 var v257;
2240 (function(){
2241     (function(){
2242         return v257 = 0;
2243     })();
2244     return l72;
2245 })();
2246 var l73 = f3("GVARNAME");
2247 var f92;
2248 (function(){
2249     (function(){
2250         return f92 = (function(v258){
2251             ((v258)["fname"] = "GVARNAME");
2252             return v258;
2253         })((function (v259){
2254             if (arguments.length < 1) throw 'too few arguments';
2255             if (arguments.length > 1) throw 'too many arguments';
2256             return f65("v", f6(v257 = (function(){
2257                 var x = v257;
2258                 var y = 1;
2259                 if (typeof x != 'number')
2260                     throw 'The value ' + x + ' is not a type number.';
2261                 if (typeof y != 'number')
2262                     throw 'The value ' + y + ' is not a type number.';
2263                 return x+y;
2264             })()));
2265         }));
2266     })();
2267     return l73;
2268 })();
2269 var l75 = f3("LOOKUP-VARIABLE");
2270 var l74 = f3("VARIABLE");
2271 var f93;
2272 (function(){
2273     (function(){
2274         return f93 = (function(v260){
2275             ((v260)["fname"] = "LOOKUP-VARIABLE");
2276             return v260;
2277         })((function (v261,v262){
2278             if (arguments.length < 2) throw 'too few arguments';
2279             if (arguments.length > 2) throw 'too many arguments';
2280             return (function(v263){
2281                 return (v263 !== v2 ? v263 : (function(v264){
2282                     return (v264 !== v2 ? v264 : (function(v265,v266){
2283                         v240 = ({car: v266, cdr: v240});
2284                         v239 = ({car: (function (){
2285                             if (arguments.length > 0) throw 'too many arguments';
2286                             return (f90(f63(v261, v240)) !== v2 ? v2 : (function(){
2287                                 return (function (){ throw f65("Undefined variable `", v265, "'");return 0;})();
2288                             })());
2289                         }), cdr: v239});
2290                         return v266;
2291                     })((v261).name,f86(v261, l74, f92(v261), v2)));
2292                 })(f63(v261, v240)));
2293             })(f63(v261, v262));
2294         }));
2295     })();
2296     return l75;
2297 })();
2298 var l76 = f3("LOOKUP-VARIABLE-TRANSLATION");
2299 var f94;
2300 (function(){
2301     (function(){
2302         return f94 = (function(v267){
2303             ((v267)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
2304             return v267;
2305         })((function (v268,v269){
2306             if (arguments.length < 2) throw 'too few arguments';
2307             if (arguments.length > 2) throw 'too many arguments';
2308             return f89(f93(v268, v269));
2309         }));
2310     })();
2311     return l76;
2312 })();
2313 var l78 = f3("EXTEND-LOCAL-ENV");
2314 var l77 = f3("VARIABLE");
2315 var f95;
2316 (function(){
2317     (function(){
2318         return f95 = (function(v270){
2319             ((v270)["fname"] = "EXTEND-LOCAL-ENV");
2320             return v270;
2321         })((function (v271,v272){
2322             if (arguments.length < 2) throw 'too few arguments';
2323             if (arguments.length > 2) throw 'too many arguments';
2324             return f39(f45((function (v273){
2325                 if (arguments.length < 1) throw 'too few arguments';
2326                 if (arguments.length > 1) throw 'too many arguments';
2327                 return f86(v273, l77, f92(v273), v3);
2328             }), v271), v272);
2329         }));
2330     })();
2331     return l78;
2332 })();
2333 var l79 = f3("*FUNCTION-COUNTER*");
2334 var v274;
2335 (function(){
2336     (function(){
2337         return v274 = 0;
2338     })();
2339     return l79;
2340 })();
2341 var l81 = f3("LOOKUP-FUNCTION");
2342 var l80 = f3("FUNCTION");
2343 var f96;
2344 (function(){
2345     (function(){
2346         return f96 = (function(v275){
2347             ((v275)["fname"] = "LOOKUP-FUNCTION");
2348             return v275;
2349         })((function (v276,v277){
2350             if (arguments.length < 2) throw 'too few arguments';
2351             if (arguments.length > 2) throw 'too many arguments';
2352             return (function(v278){
2353                 return (v278 !== v2 ? v278 : (function(v279){
2354                     return (v279 !== v2 ? v279 : (function(v280,v281){
2355                         v241 = ({car: v281, cdr: v241});
2356                         v239 = ({car: (function (){
2357                             if (arguments.length > 0) throw 'too many arguments';
2358                             return (f90(f63(v276, v241)) !== v2 ? v2 : (function(){
2359                                 return (function (){ throw f65("Undefined function `", v280, "'");return 0;})();
2360                             })());
2361                         }), cdr: v239});
2362                         return v281;
2363                     })((v276).name,f86(v276, l80, f65("f", f6(v274 = (function(){
2364                         var x = v274;
2365                         var y = 1;
2366                         if (typeof x != 'number')
2367                             throw 'The value ' + x + ' is not a type number.';
2368                         if (typeof y != 'number')
2369                             throw 'The value ' + y + ' is not a type number.';
2370                         return x+y;
2371                     })())), v2)));
2372                 })(f63(v276, v241)));
2373             })(f63(v276, v277));
2374         }));
2375     })();
2376     return l81;
2377 })();
2378 var l82 = f3("LOOKUP-FUNCTION-TRANSLATION");
2379 var f97;
2380 (function(){
2381     (function(){
2382         return f97 = (function(v282){
2383             ((v282)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
2384             return v282;
2385         })((function (v283,v284){
2386             if (arguments.length < 2) throw 'too few arguments';
2387             if (arguments.length > 2) throw 'too many arguments';
2388             return f89(f96(v283, v284));
2389         }));
2390     })();
2391     return l82;
2392 })();
2393 var l83 = f3("*TOPLEVEL-COMPILATIONS*");
2394 var v285;
2395 (function(){
2396     (function(){
2397         return v285 = v2;
2398     })();
2399     return l83;
2400 })();
2401 var l84 = f3("%COMPILE-DEFVAR");
2402 var f98;
2403 (function(){
2404     (function(){
2405         return f98 = (function(v286){
2406             ((v286)["fname"] = "%COMPILE-DEFVAR");
2407             return v286;
2408         })((function (v287){
2409             if (arguments.length < 1) throw 'too few arguments';
2410             if (arguments.length > 1) throw 'too many arguments';
2411             return (function(v288){
2412                 f91(v288);
2413                 return v285 = ({car: f65("var ", f89(v288)), cdr: v285});
2414             })(f93(v287, v240));
2415         }));
2416     })();
2417     return l84;
2418 })();
2419 var l85 = f3("%COMPILE-DEFUN");
2420 var f99;
2421 (function(){
2422     (function(){
2423         return f99 = (function(v289){
2424             ((v289)["fname"] = "%COMPILE-DEFUN");
2425             return v289;
2426         })((function (v290){
2427             if (arguments.length < 1) throw 'too few arguments';
2428             if (arguments.length > 1) throw 'too many arguments';
2429             return (function(v291){
2430                 f91(v291);
2431                 return v285 = ({car: f65("var ", f89(v291)), cdr: v285});
2432             })(f96(v290, v240));
2433         }));
2434     })();
2435     return l85;
2436 })();
2437 var l87 = f3("%COMPILE-DEFMACRO");
2438 var l86 = f3("MACRO");
2439 var f100;
2440 (function(){
2441     (function(){
2442         return f100 = (function(v292){
2443             ((v292)["fname"] = "%COMPILE-DEFMACRO");
2444             return v292;
2445         })((function (v293,v294){
2446             if (arguments.length < 2) throw 'too few arguments';
2447             if (arguments.length > 2) throw 'too many arguments';
2448             return v241 = ({car: f86(v293, l86, v294, v3), cdr: v241});
2449         }));
2450     })();
2451     return l87;
2452 })();
2453 var l88 = f3("*COMPILATIONS*");
2454 var v295;
2455 (function(){
2456     (function(){
2457         return v295 = v2;
2458     })();
2459     return l88;
2460 })();
2461 var l89 = f3("LS-COMPILE-BLOCK");
2462 var f101;
2463 (function(){
2464     (function(){
2465         return f101 = (function(v296){
2466             ((v296)["fname"] = "LS-COMPILE-BLOCK");
2467             return v296;
2468         })((function (v297,v298,v299){
2469             if (arguments.length < 3) throw 'too few arguments';
2470             if (arguments.length > 3) throw 'too many arguments';
2471             return f67(f57((function (v300){
2472                 if (arguments.length < 1) throw 'too few arguments';
2473                 if (arguments.length > 1) throw 'too many arguments';
2474                 return (function(v301){
2475                     return (v301 !== v2 ? v301 : (((typeof(v300) == "string")?v3: v2) !== v2 ? f14(f43(v300)) : v2));
2476                 })(f1(v300));
2477             }), f45((function (v302){
2478                 if (arguments.length < 1) throw 'too few arguments';
2479                 if (arguments.length > 1) throw 'too many arguments';
2480                 return f102(v302, v298, v299);
2481             }), v297)), f65(";", v164));
2482         }));
2483     })();
2484     return l89;
2485 })();
2486 var l90 = f3("IF");
2487 v295 = ({car: f33(l90, (function (v303,v304,v305,v306,v307){
2488     if (arguments.length < 5) throw 'too few arguments';
2489     if (arguments.length > 5) throw 'too many arguments';
2490     return f65("(", f102(v305, v303, v304), " !== ", f102(v2, v2, v2), " ? ", f102(v306, v303, v304), " : ", f102(v307, v303, v304), ")");
2491 })), cdr: v295});
2492 var l92 = f3("*LAMBDA-LIST-KEYWORDS*");
2493 var l91 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
2494 var v308;
2495 (function(){
2496     (function(){
2497         return v308 = l91;
2498     })();
2499     return l92;
2500 })();
2501 var l93 = f3("LIST-UNTIL-KEYWORD");
2502 var f103;
2503 (function(){
2504     (function(){
2505         return f103 = (function(v309){
2506             ((v309)["fname"] = "LIST-UNTIL-KEYWORD");
2507             return v309;
2508         })((function (v310){
2509             if (arguments.length < 1) throw 'too few arguments';
2510             if (arguments.length > 1) throw 'too many arguments';
2511             return ((function(v311){
2512                 return (v311 !== v2 ? v311 : f55((function(){
2513                     var tmp = v310;
2514                     return tmp === v2? v2: tmp.car;
2515                 })(), v308));
2516             })(f1(v310)) !== v2 ? v2 : ({car: (function(){
2517                 var tmp = v310;
2518                 return tmp === v2? v2: tmp.car;
2519             })(), cdr: f103((function(){
2520                 var tmp = v310;
2521                 return tmp === v2? v2: tmp.cdr;
2522             })())}));
2523         }));
2524     })();
2525     return l93;
2526 })();
2527 var l94 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
2528 var f104;
2529 (function(){
2530     (function(){
2531         return f104 = (function(v312){
2532             ((v312)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
2533             return v312;
2534         })((function (v313){
2535             if (arguments.length < 1) throw 'too few arguments';
2536             if (arguments.length > 1) throw 'too many arguments';
2537             return f103(v313);
2538         }));
2539     })();
2540     return l94;
2541 })();
2542 var l96 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
2543 var l95 = f3("&OPTIONAL");
2544 var f105;
2545 (function(){
2546     (function(){
2547         return f105 = (function(v314){
2548             ((v314)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
2549             return v314;
2550         })((function (v315){
2551             if (arguments.length < 1) throw 'too few arguments';
2552             if (arguments.length > 1) throw 'too many arguments';
2553             return f45(f35, f103((function(){
2554                 var tmp = f55(l95, v315);
2555                 return tmp === v2? v2: tmp.cdr;
2556             })()));
2557         }));
2558     })();
2559     return l96;
2560 })();
2561 var l97 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
2562 var f106;
2563 (function(){
2564     (function(){
2565         return f106 = (function(v316){
2566             ((v316)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
2567             return v316;
2568         })((function (v317){
2569             if (arguments.length < 1) throw 'too few arguments';
2570             if (arguments.length > 1) throw 'too many arguments';
2571             return f45(f20, f105(v317));
2572         }));
2573     })();
2574     return l97;
2575 })();
2576 var l99 = f3("LAMBDA-LIST-REST-ARGUMENT");
2577 var l98 = f3("&REST");
2578 var f107;
2579 (function(){
2580     (function(){
2581         return f107 = (function(v318){
2582             ((v318)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
2583             return v318;
2584         })((function (v319){
2585             if (arguments.length < 1) throw 'too few arguments';
2586             if (arguments.length > 1) throw 'too many arguments';
2587             return (function(v320){
2588                 ((function(){
2589                     var tmp = v320;
2590                     return tmp === v2? v2: tmp.cdr;
2591                 })() !== v2 ? (function(){
2592                     return (function (){ throw "Bad lambda-list";return 0;})();
2593                 })() : v2);
2594                 return (function(){
2595                     var tmp = v320;
2596                     return tmp === v2? v2: tmp.car;
2597                 })();
2598             })(f103((function(){
2599                 var tmp = f55(l98, v319);
2600                 return tmp === v2? v2: tmp.cdr;
2601             })()));
2602         }));
2603     })();
2604     return l99;
2605 })();
2606 var l100 = f3("LAMBDA");
2607 v295 = ({car: f33(l100, (function (v322,v323,v324){
2608     if (arguments.length < 3) throw 'too few arguments';
2609     var v321= v2;
2610     for (var i = arguments.length-1; i>=3; i--)
2611         v321 = {car: arguments[i], cdr: v321};
2612     return (function(v325,v326,v327){
2613         return (function(v328,v329,v330){
2614             return f65("(function (", f66(f45((function (v331){
2615                 if (arguments.length < 1) throw 'too few arguments';
2616                 if (arguments.length > 1) throw 'too many arguments';
2617                 return f94(v331, v330);
2618             }), f39(v325, v326)), ","), "){", v164, f68((v325 !== v2 ? f65("if (arguments.length < ", f6(v328), ") throw 'too few arguments';", v164) : ""), (f17(v327) !== v2 ? f65("if (arguments.length > ", f6((function(){
2619                 var x = v328;
2620                 var y = v329;
2621                 if (typeof x != 'number')
2622                     throw 'The value ' + x + ' is not a type number.';
2623                 if (typeof y != 'number')
2624                     throw 'The value ' + y + ' is not a type number.';
2625                 return x+y;
2626             })()), ") throw 'too many arguments';", v164) : ""), (v326 !== v2 ? f65("switch(arguments.length){", v164, (function(v332,v333,v334){
2627                 return (function(){
2628                     (function(){
2629                         while(((function(){
2630                             var x = v334;
2631                             var y = v329;
2632                             if (typeof x != 'number')
2633                                 throw 'The value ' + x + ' is not a type number.';
2634                             if (typeof y != 'number')
2635                                 throw 'The value ' + y + ' is not a type number.';
2636                             return x<y;
2637                         })()?v3: v2) !== v2){
2638                             (function(v335){
2639                                 v333 = ({car: f65("case ", f6((function(){
2640                                     var x = v334;
2641                                     var y = v328;
2642                                     if (typeof x != 'number')
2643                                         throw 'The value ' + x + ' is not a type number.';
2644                                     if (typeof y != 'number')
2645                                         throw 'The value ' + y + ' is not a type number.';
2646                                     return x+y;
2647                                 })()), ":", v164, f94((function(){
2648                                     var tmp = v335;
2649                                     return tmp === v2? v2: tmp.car;
2650                                 })(), v330), "=", f102(f23(v335), v330, v323), ";", v164), cdr: v333});
2651                                 return v334 = (function(){
2652                                     var x = v334;
2653                                     var y = 1;
2654                                     if (typeof x != 'number')
2655                                         throw 'The value ' + x + ' is not a type number.';
2656                                     if (typeof y != 'number')
2657                                         throw 'The value ' + y + ' is not a type number.';
2658                                     return x+y;
2659                                 })();
2660                             })(f52(v334, v332));
2661                     }})();
2662                     v333 = ({car: f65("default: break;", v164), cdr: v333});
2663                     return f66(f41(v333));
2664                 })();
2665             })(f105(v324),v2,0), "}", v164) : ""), (v327 !== v2 ? (function(v336){
2666                 return f65("var ", v336, "= ", f102(v2, v322, v323), ";", v164, "for (var i = arguments.length-1; i>=", f6((function(){
2667                     var x = v328;
2668                     var y = v329;
2669                     if (typeof x != 'number')
2670                         throw 'The value ' + x + ' is not a type number.';
2671                     if (typeof y != 'number')
2672                         throw 'The value ' + y + ' is not a type number.';
2673                     return x+y;
2674                 })()), "; i--)", v164, f68(v336, " = ", "{car: arguments[i], cdr: "), v336, "};", v164);
2675             })(f94(v327, v330)) : ""), f65(f101(f54(v321), v330, v323), "return ", f102((function(){
2676                 var tmp = f53(v321);
2677                 return tmp === v2? v2: tmp.car;
2678             })(), v330, v323), ";")), v164, "})");
2679         })(f43(v325),f43(v326),f95(f39(f35(v327), v325, v326), v322));
2680     })(f104(v324),f106(v324),f107(v324));
2681 })), cdr: v295});
2682 var l101 = f3("FSETQ");
2683 v295 = ({car: f33(l101, (function (v337,v338,v339,v340){
2684     if (arguments.length < 4) throw 'too few arguments';
2685     if (arguments.length > 4) throw 'too many arguments';
2686     return f65(f97(v339, v338), " = ", f102(v340, v337, v338));
2687 })), cdr: v295});
2688 var l102 = f3("SETQ");
2689 v295 = ({car: f33(l102, (function (v341,v342,v343,v344){
2690     if (arguments.length < 4) throw 'too few arguments';
2691     if (arguments.length > 4) throw 'too many arguments';
2692     return f65(f94(v343, v341), " = ", f102(v344, v341, v342));
2693 })), cdr: v295});
2694 var l103 = f3("ESCAPE-STRING");
2695 var f70;
2696 (function(){
2697     (function(){
2698         return f70 = (function(v345){
2699             ((v345)["fname"] = "ESCAPE-STRING");
2700             return v345;
2701         })((function (v346){
2702             if (arguments.length < 1) throw 'too few arguments';
2703             if (arguments.length > 1) throw 'too many arguments';
2704             return (function(v347,v348,v349){
2705                 (function(){
2706                     while(((function(){
2707                         var x = v348;
2708                         var y = v349;
2709                         if (typeof x != 'number')
2710                             throw 'The value ' + x + ' is not a type number.';
2711                         if (typeof y != 'number')
2712                             throw 'The value ' + y + ' is not a type number.';
2713                         return x<y;
2714                     })()?v3: v2) !== v2){
2715                         (function(v350){
2716                             ((function(v351){
2717                                 return (v351 !== v2 ? v351 : f48(v350, 92));
2718                             })(f48(v350, 34)) !== v2 ? (function(){
2719                                 return v347 = f65(v347, "\\");
2720                             })() : v2);
2721                             (f48(v350, 10) !== v2 ? (function(){
2722                                 v347 = f65(v347, "\\");
2723                                 return v350 = 110;
2724                             })() : v2);
2725                             return v347 = f65(v347, (function(){
2726                                 var x = v350;
2727                                 if (typeof x != 'number')
2728                                     throw 'The value ' + x + ' is not a type number.';
2729                                 return String.fromCharCode(x);
2730                             })());
2731                         })((function(){
2732                             var string = v346;
2733                             var index = v348;
2734                             if (typeof string != 'string')
2735                                 throw 'The value ' + string + ' is not a type string.';
2736                             if (typeof index != 'number')
2737                                 throw 'The value ' + index + ' is not a type number.';
2738                             return string.charCodeAt(index);
2739                         })());
2740                         v348 = (function(){
2741                             var x = v348;
2742                             var y = 1;
2743                             if (typeof x != 'number')
2744                                 throw 'The value ' + x + ' is not a type number.';
2745                             if (typeof y != 'number')
2746                                 throw 'The value ' + y + ' is not a type number.';
2747                             return x+y;
2748                         })();
2749                 }})();
2750                 return v347;
2751             })("",0,f43(v346));
2752         }));
2753     })();
2754     return l103;
2755 })();
2756 var l105 = f3("LITERAL->JS");
2757 var l104 = f3("INTERN");
2758 var f108;
2759 (function(){
2760     (function(){
2761         return f108 = (function(v352){
2762             ((v352)["fname"] = "LITERAL->JS");
2763             return v352;
2764         })((function (v353){
2765             if (arguments.length < 1) throw 'too few arguments';
2766             if (arguments.length > 1) throw 'too many arguments';
2767             return (f49(v353) !== v2 ? (function(){
2768                 return f6(v353);
2769             })() : (((typeof(v353) == "string")?v3: v2) !== v2 ? (function(){
2770                 return f65("\"", f70(v353), "\"");
2771             })() : (((function(){
2772                 var tmp = v353;
2773                 return (typeof tmp == 'object' && 'name' in tmp);
2774             })()?v3: v2) !== v2 ? (function(){
2775                 return f102(f39(f33(l104), f33(f70((v353).name))), v240, v241);
2776             })() : (((function(){
2777                 var tmp = v353;
2778                 return (typeof tmp == 'object' && 'car' in tmp);
2779             })()?v3: v2) !== v2 ? (function(){
2780                 return f65("{car: ", f108((function(){
2781                     var tmp = v353;
2782                     return tmp === v2? v2: tmp.car;
2783                 })()), ", cdr: ", f108((function(){
2784                     var tmp = v353;
2785                     return tmp === v2? v2: tmp.cdr;
2786                 })()), "}");
2787             })() : v2))));
2788         }));
2789     })();
2790     return l105;
2791 })();
2792 var l106 = f3("*LITERAL-COUNTER*");
2793 var v354;
2794 (function(){
2795     (function(){
2796         return v354 = 0;
2797     })();
2798     return l106;
2799 })();
2800 var l107 = f3("LITERAL");
2801 var f109;
2802 (function(){
2803     (function(){
2804         return f109 = (function(v355){
2805             ((v355)["fname"] = "LITERAL");
2806             return v355;
2807         })((function (v356){
2808             if (arguments.length < 1) throw 'too few arguments';
2809             if (arguments.length > 1) throw 'too many arguments';
2810             return (function(v357){
2811                 v285 = ({car: f65("var ", v357, " = ", f108(v356)), cdr: v285});
2812                 return v357;
2813             })(f65("l", f6(v354 = (function(){
2814                 var x = v354;
2815                 var y = 1;
2816                 if (typeof x != 'number')
2817                     throw 'The value ' + x + ' is not a type number.';
2818                 if (typeof y != 'number')
2819                     throw 'The value ' + y + ' is not a type number.';
2820                 return x+y;
2821             })())));
2822         }));
2823     })();
2824     return l107;
2825 })();
2826 var l108 = f3("QUOTE");
2827 v295 = ({car: f33(l108, (function (v358,v359,v360){
2828     if (arguments.length < 3) throw 'too few arguments';
2829     if (arguments.length > 3) throw 'too many arguments';
2830     return f109(v360);
2831 })), cdr: v295});
2832 var l109 = f3("WHILE");
2833 v295 = ({car: f33(l109, (function (v362,v363,v364){
2834     if (arguments.length < 3) throw 'too few arguments';
2835     var v361= v2;
2836     for (var i = arguments.length-1; i>=3; i--)
2837         v361 = {car: arguments[i], cdr: v361};
2838     return f65("(function(){", v164, f68("while(", f102(v364, v362, v363), " !== ", f102(v2, v2, v2), "){", v164, f68(f101(v361, v362, v363))), "}})()");
2839 })), cdr: v295});
2840 var l111 = f3("LAMBDA");
2841 var l110 = f3("FUNCTION");
2842 v295 = ({car: f33(l110, (function (v365,v366,v367){
2843     if (arguments.length < 3) throw 'too few arguments';
2844     if (arguments.length > 3) throw 'too many arguments';
2845     return ((f36(v367) !== v2 ? (((function(){
2846         var tmp = v367;
2847         return tmp === v2? v2: tmp.car;
2848     })() === l111)?v3: v2) : v2) !== v2 ? (function(){
2849         return f102(v367, v365, v366);
2850     })() : (((function(){
2851         var tmp = v367;
2852         return (typeof tmp == 'object' && 'name' in tmp);
2853     })()?v3: v2) !== v2 ? (function(){
2854         return f97(v367, v366);
2855     })() : v2));
2856 })), cdr: v295});
2857 var l113 = f3("PROGN");
2858 var l112 = f3("EVAL-WHEN-COMPILE");
2859 v295 = ({car: f33(l112, (function (v369,v370){
2860     if (arguments.length < 2) throw 'too few arguments';
2861     var v368= v2;
2862     for (var i = arguments.length-1; i>=2; i--)
2863         v368 = {car: arguments[i], cdr: v368};
2864     f110(({car: l113, cdr: v368}));
2865     return "";
2866 })), cdr: v295});
2867 var l114 = f3("PROGN");
2868 v295 = ({car: f33(l114, (function (v372,v373){
2869     if (arguments.length < 2) throw 'too few arguments';
2870     var v371= v2;
2871     for (var i = arguments.length-1; i>=2; i--)
2872         v371 = {car: arguments[i], cdr: v371};
2873     return f65("(function(){", v164, f68(f101(f54(v371), v372, v373), "return ", f102((function(){
2874         var tmp = f53(v371);
2875         return tmp === v2? v2: tmp.car;
2876     })(), v372, v373), ";", v164), "})()");
2877 })), cdr: v295});
2878 var l115 = f3("LET");
2879 v295 = ({car: f33(l115, (function (v375,v376,v377){
2880     if (arguments.length < 3) throw 'too few arguments';
2881     var v374= v2;
2882     for (var i = arguments.length-1; i>=3; i--)
2883         v374 = {car: arguments[i], cdr: v374};
2884     return (function(v378){
2885         return (function(v379,v380){
2886             return (function(v381){
2887                 return f65("(function(", f66(f45((function (v382){
2888                     if (arguments.length < 1) throw 'too few arguments';
2889                     if (arguments.length > 1) throw 'too many arguments';
2890                     return f94(v382, v381);
2891                 }), v379), ","), "){", v164, f68(f101(f54(v374), v381, v376), "return ", f102((function(){
2892                     var tmp = f53(v374);
2893                     return tmp === v2? v2: tmp.car;
2894                 })(), v381, v376), ";", v164), "})(", f66(f45((function (v383){
2895                     if (arguments.length < 1) throw 'too few arguments';
2896                     if (arguments.length > 1) throw 'too many arguments';
2897                     return f102(v383, v375, v376);
2898                 }), v380), ","), ")");
2899             })(f95(v379, v375));
2900         })(f45(f29, v378),f45(f30, v378));
2901     })(f45(f35, v377));
2902 })), cdr: v295});
2903 var l124 = f3("BACKQUOTE-EXPAND-1");
2904 var l123 = f3("LIST");
2905 var l122 = f3("UNQUOTE-SPLICING");
2906 var l121 = f3("LIST");
2907 var l120 = f3("UNQUOTE");
2908 var l119 = f3("APPEND");
2909 var l118 = f3("BACKQUOTE");
2910 var l117 = f3("UNQUOTE");
2911 var l116 = f3("QUOTE");
2912 var f111;
2913 (function(){
2914     (function(){
2915         return f111 = (function(v384){
2916             ((v384)["fname"] = "BACKQUOTE-EXPAND-1");
2917             return v384;
2918         })((function (v385){
2919             if (arguments.length < 1) throw 'too few arguments';
2920             if (arguments.length > 1) throw 'too many arguments';
2921             return (((function(){
2922                 var tmp = v385;
2923                 return (typeof tmp == 'object' && 'name' in tmp);
2924             })()?v3: v2) !== v2 ? (function(){
2925                 return f33(l116, v385);
2926             })() : (f34(v385) !== v2 ? (function(){
2927                 return v385;
2928             })() : ((((function(){
2929                 var tmp = v385;
2930                 return tmp === v2? v2: tmp.car;
2931             })() === l117)?v3: v2) !== v2 ? (function(){
2932                 return (function(){
2933                     var tmp = v385;
2934                     return tmp === v2? v2: tmp.car;
2935                 })();
2936             })() : ((((function(){
2937                 var tmp = v385;
2938                 return tmp === v2? v2: tmp.car;
2939             })() === l118)?v3: v2) !== v2 ? (function(){
2940                 return f111(f111(f23(v385)));
2941             })() : (function(){
2942                 return ({car: l119, cdr: f45((function (v386){
2943                     if (arguments.length < 1) throw 'too few arguments';
2944                     if (arguments.length > 1) throw 'too many arguments';
2945                     return ((f36(v386) !== v2 ? (((function(){
2946                         var tmp = v386;
2947                         return tmp === v2? v2: tmp.car;
2948                     })() === l120)?v3: v2) : v2) !== v2 ? (function(){
2949                         return f33(l121, f23(v386));
2950                     })() : ((f36(v386) !== v2 ? (((function(){
2951                         var tmp = v386;
2952                         return tmp === v2? v2: tmp.car;
2953                     })() === l122)?v3: v2) : v2) !== v2 ? (function(){
2954                         return f23(v386);
2955                     })() : (function(){
2956                         return f33(l123, f111(v386));
2957                     })()));
2958                 }), v385)});
2959             })()))));
2960         }));
2961     })();
2962     return l124;
2963 })();
2964 var l126 = f3("BACKQUOTE-EXPAND");
2965 var l125 = f3("BACKQUOTE");
2966 var f112;
2967 (function(){
2968     (function(){
2969         return f112 = (function(v387){
2970             ((v387)["fname"] = "BACKQUOTE-EXPAND");
2971             return v387;
2972         })((function (v388){
2973             if (arguments.length < 1) throw 'too few arguments';
2974             if (arguments.length > 1) throw 'too many arguments';
2975             return ((f36(v388) !== v2 ? (((function(){
2976                 var tmp = v388;
2977                 return tmp === v2? v2: tmp.car;
2978             })() === l125)?v3: v2) : v2) !== v2 ? f111(f23(v388)) : v388);
2979         }));
2980     })();
2981     return l126;
2982 })();
2983 var l127 = f3("BACKQUOTE");
2984 v295 = ({car: f33(l127, (function (v389,v390,v391){
2985     if (arguments.length < 3) throw 'too few arguments';
2986     if (arguments.length > 3) throw 'too many arguments';
2987     return f102(f111(v391), v389, v390);
2988 })), cdr: v295});
2989 var l128 = f3("COMPILE-BOOL");
2990 var f113;
2991 (function(){
2992     (function(){
2993         return f113 = (function(v392){
2994             ((v392)["fname"] = "COMPILE-BOOL");
2995             return v392;
2996         })((function (v393){
2997             if (arguments.length < 1) throw 'too few arguments';
2998             if (arguments.length > 1) throw 'too many arguments';
2999             return f65("(", v393, "?", f102(v3, v2, v2), ": ", f102(v2, v2, v2), ")");
3000         }));
3001     })();
3002     return l128;
3003 })();
3004 var l129 = f3("NUM-OP-NUM");
3005 var f114;
3006 (function(){
3007     (function(){
3008         return f114 = (function(v394){
3009             ((v394)["fname"] = "NUM-OP-NUM");
3010             return v394;
3011         })((function (v395,v396,v397){
3012             if (arguments.length < 3) throw 'too few arguments';
3013             if (arguments.length > 3) throw 'too many arguments';
3014             return f65("(function(){", v164, f68(f65("var ", "x", " = ", v395, ";", v164), f65("var ", "y", " = ", v397, ";", v164), f65("if (typeof ", "x", " != '", "number", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v164)), f65("if (typeof ", "y", " != '", "number", "')", v164, f68("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3015                 return f65("x", v396, "y");
3016             })(), ";", v164)), "})()");
3017         }));
3018     })();
3019     return l129;
3020 })();
3021 var l130 = f3("+");
3022 v295 = ({car: f33(l130, (function (v398,v399,v400,v401){
3023     if (arguments.length < 4) throw 'too few arguments';
3024     if (arguments.length > 4) throw 'too many arguments';
3025     return (function(v402,v403){
3026         return f114(v402, "+", v403);
3027     })(f102(v400, v398, v399),f102(v401, v398, v399));
3028 })), cdr: v295});
3029 var l131 = f3("-");
3030 v295 = ({car: f33(l131, (function (v404,v405,v406,v407){
3031     if (arguments.length < 4) throw 'too few arguments';
3032     if (arguments.length > 4) throw 'too many arguments';
3033     return (function(v408,v409){
3034         return f114(v408, "-", v409);
3035     })(f102(v406, v404, v405),f102(v407, v404, v405));
3036 })), cdr: v295});
3037 var l132 = f3("*");
3038 v295 = ({car: f33(l132, (function (v410,v411,v412,v413){
3039     if (arguments.length < 4) throw 'too few arguments';
3040     if (arguments.length > 4) throw 'too many arguments';
3041     return (function(v414,v415){
3042         return f114(v414, "*", v415);
3043     })(f102(v412, v410, v411),f102(v413, v410, v411));
3044 })), cdr: v295});
3045 var l133 = f3("/");
3046 v295 = ({car: f33(l133, (function (v416,v417,v418,v419){
3047     if (arguments.length < 4) throw 'too few arguments';
3048     if (arguments.length > 4) throw 'too many arguments';
3049     return (function(v420,v421){
3050         return f114(v420, "/", v421);
3051     })(f102(v418, v416, v417),f102(v419, v416, v417));
3052 })), cdr: v295});
3053 var l134 = f3("MOD");
3054 v295 = ({car: f33(l134, (function (v422,v423,v424,v425){
3055     if (arguments.length < 4) throw 'too few arguments';
3056     if (arguments.length > 4) throw 'too many arguments';
3057     return (function(v426,v427){
3058         return f114(v426, "%", v427);
3059     })(f102(v424, v422, v423),f102(v425, v422, v423));
3060 })), cdr: v295});
3061 var l135 = f3("<");
3062 v295 = ({car: f33(l135, (function (v428,v429,v430,v431){
3063     if (arguments.length < 4) throw 'too few arguments';
3064     if (arguments.length > 4) throw 'too many arguments';
3065     return (function(v432,v433){
3066         return f113(f114(v432, "<", v433));
3067     })(f102(v430, v428, v429),f102(v431, v428, v429));
3068 })), cdr: v295});
3069 var l136 = f3(">");
3070 v295 = ({car: f33(l136, (function (v434,v435,v436,v437){
3071     if (arguments.length < 4) throw 'too few arguments';
3072     if (arguments.length > 4) throw 'too many arguments';
3073     return (function(v438,v439){
3074         return f113(f114(v438, ">", v439));
3075     })(f102(v436, v434, v435),f102(v437, v434, v435));
3076 })), cdr: v295});
3077 var l137 = f3("=");
3078 v295 = ({car: f33(l137, (function (v440,v441,v442,v443){
3079     if (arguments.length < 4) throw 'too few arguments';
3080     if (arguments.length > 4) throw 'too many arguments';
3081     return (function(v444,v445){
3082         return f113(f114(v444, "==", v445));
3083     })(f102(v442, v440, v441),f102(v443, v440, v441));
3084 })), cdr: v295});
3085 var l138 = f3("<=");
3086 v295 = ({car: f33(l138, (function (v446,v447,v448,v449){
3087     if (arguments.length < 4) throw 'too few arguments';
3088     if (arguments.length > 4) throw 'too many arguments';
3089     return (function(v450,v451){
3090         return f113(f114(v450, "<=", v451));
3091     })(f102(v448, v446, v447),f102(v449, v446, v447));
3092 })), cdr: v295});
3093 var l139 = f3(">=");
3094 v295 = ({car: f33(l139, (function (v452,v453,v454,v455){
3095     if (arguments.length < 4) throw 'too few arguments';
3096     if (arguments.length > 4) throw 'too many arguments';
3097     return (function(v456,v457){
3098         return f113(f114(v456, ">=", v457));
3099     })(f102(v454, v452, v453),f102(v455, v452, v453));
3100 })), cdr: v295});
3101 var l140 = f3("NUMBERP");
3102 v295 = ({car: f33(l140, (function (v458,v459,v460){
3103     if (arguments.length < 3) throw 'too few arguments';
3104     if (arguments.length > 3) throw 'too many arguments';
3105     return (function(v461){
3106         return f113(f65("(typeof (", v461, ") == \"number\")"));
3107     })(f102(v460, v458, v459));
3108 })), cdr: v295});
3109 var l141 = f3("FLOOR");
3110 v295 = ({car: f33(l141, (function (v462,v463,v464){
3111     if (arguments.length < 3) throw 'too few arguments';
3112     if (arguments.length > 3) throw 'too many arguments';
3113     return (function(v465){
3114         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v465, ";", v164), f65("if (typeof ", "x", " != '", "number", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3115             return "Math.floor(x)";
3116         })(), ";", v164)), "})()");
3117     })(f102(v464, v462, v463));
3118 })), cdr: v295});
3119 var l142 = f3("CONS");
3120 v295 = ({car: f33(l142, (function (v466,v467,v468,v469){
3121     if (arguments.length < 4) throw 'too few arguments';
3122     if (arguments.length > 4) throw 'too many arguments';
3123     return (function(v470,v471){
3124         return f65("({car: ", v470, ", cdr: ", v471, "})");
3125     })(f102(v468, v466, v467),f102(v469, v466, v467));
3126 })), cdr: v295});
3127 var l143 = f3("CONSP");
3128 v295 = ({car: f33(l143, (function (v472,v473,v474){
3129     if (arguments.length < 3) throw 'too few arguments';
3130     if (arguments.length > 3) throw 'too many arguments';
3131     return (function(v475){
3132         return f113(f65("(function(){", v164, f68("var tmp = ", v475, ";", v164, "return (typeof tmp == 'object' && 'car' in tmp);", v164), "})()"));
3133     })(f102(v474, v472, v473));
3134 })), cdr: v295});
3135 var l144 = f3("CAR");
3136 v295 = ({car: f33(l144, (function (v476,v477,v478){
3137     if (arguments.length < 3) throw 'too few arguments';
3138     if (arguments.length > 3) throw 'too many arguments';
3139     return (function(v479){
3140         return f65("(function(){", v164, f68("var tmp = ", v479, ";", v164, "return tmp === ", f102(v2, v2, v2), "? ", f102(v2, v2, v2), ": tmp.car;", v164), "})()");
3141     })(f102(v478, v476, v477));
3142 })), cdr: v295});
3143 var l145 = f3("CDR");
3144 v295 = ({car: f33(l145, (function (v480,v481,v482){
3145     if (arguments.length < 3) throw 'too few arguments';
3146     if (arguments.length > 3) throw 'too many arguments';
3147     return (function(v483){
3148         return f65("(function(){", v164, f68("var tmp = ", v483, ";", v164, "return tmp === ", f102(v2, v2, v2), "? ", f102(v2, v2, v2), ": tmp.cdr;", v164), "})()");
3149     })(f102(v482, v480, v481));
3150 })), cdr: v295});
3151 var l146 = f3("SETCAR");
3152 v295 = ({car: f33(l146, (function (v484,v485,v486,v487){
3153     if (arguments.length < 4) throw 'too few arguments';
3154     if (arguments.length > 4) throw 'too many arguments';
3155     return (function(v488,v489){
3156         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v488, ";", v164), f65("if (typeof ", "x", " != '", "object", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v164)), f65("return ", (function(){
3157             return f65("(x.car = ", v489, ")");
3158         })(), ";", v164)), "})()");
3159     })(f102(v486, v484, v485),f102(v487, v484, v485));
3160 })), cdr: v295});
3161 var l147 = f3("SETCDR");
3162 v295 = ({car: f33(l147, (function (v490,v491,v492,v493){
3163     if (arguments.length < 4) throw 'too few arguments';
3164     if (arguments.length > 4) throw 'too many arguments';
3165     return (function(v494,v495){
3166         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v494, ";", v164), f65("if (typeof ", "x", " != '", "object", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v164)), f65("return ", (function(){
3167             return f65("(x.cdr = ", v495, ")");
3168         })(), ";", v164)), "})()");
3169     })(f102(v492, v490, v491),f102(v493, v490, v491));
3170 })), cdr: v295});
3171 var l148 = f3("SYMBOLP");
3172 v295 = ({car: f33(l148, (function (v496,v497,v498){
3173     if (arguments.length < 3) throw 'too few arguments';
3174     if (arguments.length > 3) throw 'too many arguments';
3175     return (function(v499){
3176         return f113(f65("(function(){", v164, f68("var tmp = ", v499, ";", v164, "return (typeof tmp == 'object' && 'name' in tmp);", v164), "})()"));
3177     })(f102(v498, v496, v497));
3178 })), cdr: v295});
3179 var l149 = f3("MAKE-SYMBOL");
3180 v295 = ({car: f33(l149, (function (v500,v501,v502){
3181     if (arguments.length < 3) throw 'too few arguments';
3182     if (arguments.length > 3) throw 'too many arguments';
3183     return (function(v503){
3184         return f65("(function(){", v164, f68(f65("var ", "name", " = ", v503, ";", v164), f65("if (typeof ", "name", " != '", "string", "')", v164, f68("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3185             return "({name: name})";
3186         })(), ";", v164)), "})()");
3187     })(f102(v502, v500, v501));
3188 })), cdr: v295});
3189 var l150 = f3("SYMBOL-NAME");
3190 v295 = ({car: f33(l150, (function (v504,v505,v506){
3191     if (arguments.length < 3) throw 'too few arguments';
3192     if (arguments.length > 3) throw 'too many arguments';
3193     return (function(v507){
3194         return f65("(", v507, ").name");
3195     })(f102(v506, v504, v505));
3196 })), cdr: v295});
3197 var l151 = f3("EQ");
3198 v295 = ({car: f33(l151, (function (v508,v509,v510,v511){
3199     if (arguments.length < 4) throw 'too few arguments';
3200     if (arguments.length > 4) throw 'too many arguments';
3201     return (function(v512,v513){
3202         return f113(f65("(", v512, " === ", v513, ")"));
3203     })(f102(v510, v508, v509),f102(v511, v508, v509));
3204 })), cdr: v295});
3205 var l152 = f3("EQUAL");
3206 v295 = ({car: f33(l152, (function (v514,v515,v516,v517){
3207     if (arguments.length < 4) throw 'too few arguments';
3208     if (arguments.length > 4) throw 'too many arguments';
3209     return (function(v518,v519){
3210         return f113(f65("(", v518, " == ", v519, ")"));
3211     })(f102(v516, v514, v515),f102(v517, v514, v515));
3212 })), cdr: v295});
3213 var l153 = f3("STRING");
3214 v295 = ({car: f33(l153, (function (v520,v521,v522){
3215     if (arguments.length < 3) throw 'too few arguments';
3216     if (arguments.length > 3) throw 'too many arguments';
3217     return (function(v523){
3218         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v523, ";", v164), f65("if (typeof ", "x", " != '", "number", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3219             return "String.fromCharCode(x)";
3220         })(), ";", v164)), "})()");
3221     })(f102(v522, v520, v521));
3222 })), cdr: v295});
3223 var l154 = f3("STRINGP");
3224 v295 = ({car: f33(l154, (function (v524,v525,v526){
3225     if (arguments.length < 3) throw 'too few arguments';
3226     if (arguments.length > 3) throw 'too many arguments';
3227     return (function(v527){
3228         return f113(f65("(typeof(", v527, ") == \"string\")"));
3229     })(f102(v526, v524, v525));
3230 })), cdr: v295});
3231 var l155 = f3("STRING-UPCASE");
3232 v295 = ({car: f33(l155, (function (v528,v529,v530){
3233     if (arguments.length < 3) throw 'too few arguments';
3234     if (arguments.length > 3) throw 'too many arguments';
3235     return (function(v531){
3236         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v531, ";", v164), f65("if (typeof ", "x", " != '", "string", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3237             return "x.toUpperCase()";
3238         })(), ";", v164)), "})()");
3239     })(f102(v530, v528, v529));
3240 })), cdr: v295});
3241 var l156 = f3("STRING-LENGTH");
3242 v295 = ({car: f33(l156, (function (v532,v533,v534){
3243     if (arguments.length < 3) throw 'too few arguments';
3244     if (arguments.length > 3) throw 'too many arguments';
3245     return (function(v535){
3246         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v535, ";", v164), f65("if (typeof ", "x", " != '", "string", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3247             return "x.length";
3248         })(), ";", v164)), "})()");
3249     })(f102(v534, v532, v533));
3250 })), cdr: v295});
3251 var l157 = f3("SLICE");
3252 v295 = ({car: f33(l157, (function (v536,v537,v538,v539,v540){
3253     if (arguments.length < 4) throw 'too few arguments';
3254     if (arguments.length > 5) throw 'too many arguments';
3255     switch(arguments.length){
3256     case 4:
3257     v540=v2;
3258     default: break;
3259     }
3260     return f65("(function(){", v164, f68("var str = ", f102(v538, v536, v537), ";", v164, "var a = ", f102(v539, v536, v537), ";", v164, "var b;", v164, (v540 !== v2 ? f65("b = ", f102(v540, v536, v537), ";", v164) : ""), "return str.slice(a,b);", v164), "})()");
3261 })), cdr: v295});
3262 var l158 = f3("CHAR");
3263 v295 = ({car: f33(l158, (function (v541,v542,v543,v544){
3264     if (arguments.length < 4) throw 'too few arguments';
3265     if (arguments.length > 4) throw 'too many arguments';
3266     return (function(v545,v546){
3267         return f65("(function(){", v164, f68(f65("var ", "string", " = ", v545, ";", v164), f65("var ", "index", " = ", v546, ";", v164), f65("if (typeof ", "string", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v164)), f65("if (typeof ", "index", " != '", "number", "')", v164, f68("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3268             return "string.charCodeAt(index)";
3269         })(), ";", v164)), "})()");
3270     })(f102(v543, v541, v542),f102(v544, v541, v542));
3271 })), cdr: v295});
3272 var l159 = f3("CONCAT-TWO");
3273 v295 = ({car: f33(l159, (function (v547,v548,v549,v550){
3274     if (arguments.length < 4) throw 'too few arguments';
3275     if (arguments.length > 4) throw 'too many arguments';
3276     return (function(v551,v552){
3277         return f65("(function(){", v164, f68(f65("var ", "string1", " = ", v551, ";", v164), f65("var ", "string2", " = ", v552, ";", v164), f65("if (typeof ", "string1", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v164)), f65("if (typeof ", "string2", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3278             return "string1.concat(string2)";
3279         })(), ";", v164)), "})()");
3280     })(f102(v549, v547, v548),f102(v550, v547, v548));
3281 })), cdr: v295});
3282 var l160 = f3("FUNCALL");
3283 v295 = ({car: f33(l160, (function (v554,v555,v556){
3284     if (arguments.length < 3) throw 'too few arguments';
3285     var v553= v2;
3286     for (var i = arguments.length-1; i>=3; i--)
3287         v553 = {car: arguments[i], cdr: v553};
3288     return f65("(", f102(v556, v554, v555), ")(", f66(f45((function (v557){
3289         if (arguments.length < 1) throw 'too few arguments';
3290         if (arguments.length > 1) throw 'too many arguments';
3291         return f102(v557, v554, v555);
3292     }), v553), ", "), ")");
3293 })), cdr: v295});
3294 var l161 = f3("APPLY");
3295 v295 = ({car: f33(l161, (function (v559,v560,v561){
3296     if (arguments.length < 3) throw 'too few arguments';
3297     var v558= v2;
3298     for (var i = arguments.length-1; i>=3; i--)
3299         v558 = {car: arguments[i], cdr: v558};
3300     return (f1(v558) !== v2 ? f65("(", f102(v561, v559, v560), ")()") : (function(v562,v563){
3301         return f65("(function(){", v164, f68("var f = ", f102(v561, v559, v560), ";", v164, "var args = [", f66(f45((function (v564){
3302             if (arguments.length < 1) throw 'too few arguments';
3303             if (arguments.length > 1) throw 'too many arguments';
3304             return f102(v564, v559, v560);
3305         }), v562), ", "), "];", v164, "var tail = (", f102(v563, v559, v560), ");", v164, f68("while (tail != ", f102(v2, v559, v560), "){", v164, "    args.push(tail.car);", v164, "    tail = tail.cdr;", v164, "}", v164, "return f.apply(this, args);", v164), "})()"));
3306     })(f54(v558),(function(){
3307         var tmp = f53(v558);
3308         return tmp === v2? v2: tmp.car;
3309     })()));
3310 })), cdr: v295});
3311 var l162 = f3("JS-EVAL");
3312 v295 = ({car: f33(l162, (function (v565,v566,v567){
3313     if (arguments.length < 3) throw 'too few arguments';
3314     if (arguments.length > 3) throw 'too many arguments';
3315     return (function(v568){
3316         return f65("(function(){", v164, f68(f65("var ", "string", " = ", v568, ";", v164), f65("if (typeof ", "string", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3317             return "eval.apply(window, [string])";
3318         })(), ";", v164)), "})()");
3319     })(f102(v567, v565, v566));
3320 })), cdr: v295});
3321 var l163 = f3("ERROR");
3322 v295 = ({car: f33(l163, (function (v569,v570,v571){
3323     if (arguments.length < 3) throw 'too few arguments';
3324     if (arguments.length > 3) throw 'too many arguments';
3325     return (function(v572){
3326         return f65("(function (){ throw ", v572, ";", "return 0;})()");
3327     })(f102(v571, v569, v570));
3328 })), cdr: v295});
3329 var l164 = f3("NEW");
3330 v295 = ({car: f33(l164, (function (v573,v574){
3331     if (arguments.length < 2) throw 'too few arguments';
3332     if (arguments.length > 2) throw 'too many arguments';
3333     return (function(){
3334         return "{}";
3335     })();
3336 })), cdr: v295});
3337 var l165 = f3("GET");
3338 v295 = ({car: f33(l165, (function (v575,v576,v577,v578){
3339     if (arguments.length < 4) throw 'too few arguments';
3340     if (arguments.length > 4) throw 'too many arguments';
3341     return (function(v579,v580){
3342         return f65("(function(){", v164, f68("var tmp = ", "(", v579, ")[", v580, "];", v164, "return tmp == undefined? ", f102(v2, v2, v2), ": tmp ;", v164), "})()");
3343     })(f102(v577, v575, v576),f102(v578, v575, v576));
3344 })), cdr: v295});
3345 var l166 = f3("SET");
3346 v295 = ({car: f33(l166, (function (v581,v582,v583,v584,v585){
3347     if (arguments.length < 5) throw 'too few arguments';
3348     if (arguments.length > 5) throw 'too many arguments';
3349     return (function(v586,v587,v588){
3350         return f65("((", v586, ")[", v587, "] = ", v588, ")");
3351     })(f102(v583, v581, v582),f102(v584, v581, v582),f102(v585, v581, v582));
3352 })), cdr: v295});
3353 var l167 = f3("IN");
3354 v295 = ({car: f33(l167, (function (v589,v590,v591,v592){
3355     if (arguments.length < 4) throw 'too few arguments';
3356     if (arguments.length > 4) throw 'too many arguments';
3357     return (function(v593,v594){
3358         return f113(f65("((", v593, ") in (", v594, "))"));
3359     })(f102(v591, v589, v590),f102(v592, v589, v590));
3360 })), cdr: v295});
3361 var l168 = f3("FUNCTIONP");
3362 v295 = ({car: f33(l168, (function (v595,v596,v597){
3363     if (arguments.length < 3) throw 'too few arguments';
3364     if (arguments.length > 3) throw 'too many arguments';
3365     return (function(v598){
3366         return f113(f65("(typeof ", v598, " == 'function')"));
3367     })(f102(v597, v595, v596));
3368 })), cdr: v295});
3369 var l169 = f3("WRITE-STRING");
3370 v295 = ({car: f33(l169, (function (v599,v600,v601){
3371     if (arguments.length < 3) throw 'too few arguments';
3372     if (arguments.length > 3) throw 'too many arguments';
3373     return (function(v602){
3374         return f65("(function(){", v164, f68(f65("var ", "x", " = ", v602, ";", v164), f65("if (typeof ", "x", " != '", "string", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3375             return "lisp.write(x)";
3376         })(), ";", v164)), "})()");
3377     })(f102(v601, v599, v600));
3378 })), cdr: v295});
3379 var l171 = f3("MACROP");
3380 var l170 = f3("MACRO");
3381 var f115;
3382 (function(){
3383     (function(){
3384         return f115 = (function(v603){
3385             ((v603)["fname"] = "MACROP");
3386             return v603;
3387         })((function (v604){
3388             if (arguments.length < 1) throw 'too few arguments';
3389             if (arguments.length > 1) throw 'too many arguments';
3390             return (((function(){
3391                 var tmp = v604;
3392                 return (typeof tmp == 'object' && 'name' in tmp);
3393             })()?v3: v2) !== v2 ? ((f88(f96(v604, v241)) === l170)?v3: v2) : v2);
3394         }));
3395     })();
3396     return l171;
3397 })();
3398 var l173 = f3("LS-MACROEXPAND-1");
3399 var l172 = f3("MACRO");
3400 var f116;
3401 (function(){
3402     (function(){
3403         return f116 = (function(v605){
3404             ((v605)["fname"] = "LS-MACROEXPAND-1");
3405             return v605;
3406         })((function (v606,v607,v608){
3407             if (arguments.length < 3) throw 'too few arguments';
3408             if (arguments.length > 3) throw 'too many arguments';
3409             return (f115((function(){
3410                 var tmp = v606;
3411                 return tmp === v2? v2: tmp.car;
3412             })()) !== v2 ? (function(v609){
3413                 return (((f88(v609) === l172)?v3: v2) !== v2 ? (function(){
3414                     var f = f110(f89(v609));
3415                     var args = [];
3416                     var tail = ((function(){
3417                         var tmp = v606;
3418                         return tmp === v2? v2: tmp.cdr;
3419                     })());
3420                         while (tail != v2){
3421                             args.push(tail.car);
3422                             tail = tail.cdr;
3423                         }
3424                         return f.apply(this, args);
3425                     })() : v606);
3426             })(f96((function(){
3427                 var tmp = v606;
3428                 return tmp === v2? v2: tmp.car;
3429             })(), v240)) : v606);
3430         }));
3431     })();
3432     return l173;
3433 })();
3434 var l175 = f3("COMPILE-FUNCALL");
3435 var l174 = f3("LAMBDA");
3436 var f117;
3437 (function(){
3438     (function(){
3439         return f117 = (function(v610){
3440             ((v610)["fname"] = "COMPILE-FUNCALL");
3441             return v610;
3442         })((function (v611,v612,v613,v614){
3443             if (arguments.length < 4) throw 'too few arguments';
3444             if (arguments.length > 4) throw 'too many arguments';
3445             return (((function(){
3446                 var tmp = v611;
3447                 return (typeof tmp == 'object' && 'name' in tmp);
3448             })()?v3: v2) !== v2 ? (function(){
3449                 return f65(f97(v611, v614), "(", f66(f45((function (v615){
3450                     if (arguments.length < 1) throw 'too few arguments';
3451                     if (arguments.length > 1) throw 'too many arguments';
3452                     return f102(v615, v613, v614);
3453                 }), v612), ", "), ")");
3454             })() : ((f36(v611) !== v2 ? (((function(){
3455                 var tmp = v611;
3456                 return tmp === v2? v2: tmp.car;
3457             })() === l174)?v3: v2) : v2) !== v2 ? (function(){
3458                 return f65("(", f102(v611, v613, v614), ")(", f66(f45((function (v616){
3459                     if (arguments.length < 1) throw 'too few arguments';
3460                     if (arguments.length > 1) throw 'too many arguments';
3461                     return f102(v616, v613, v614);
3462                 }), v612), ", "), ")");
3463             })() : (function(){
3464                 return (function (){ throw f65("Invalid function designator ", (v611).name);return 0;})();
3465             })()));
3466         }));
3467     })();
3468     return l175;
3469 })();
3470 var l176 = f3("LS-COMPILE");
3471 var f102;
3472 (function(){
3473     (function(){
3474         return f102 = (function(v617){
3475             ((v617)["fname"] = "LS-COMPILE");
3476             return v617;
3477         })((function (v618,v619,v620){
3478             if (arguments.length < 3) throw 'too few arguments';
3479             if (arguments.length > 3) throw 'too many arguments';
3480             return (((function(){
3481                 var tmp = v618;
3482                 return (typeof tmp == 'object' && 'name' in tmp);
3483             })()?v3: v2) !== v2 ? (function(){
3484                 return f94(v618, v619);
3485             })() : (f49(v618) !== v2 ? (function(){
3486                 return f6(v618);
3487             })() : (((typeof(v618) == "string")?v3: v2) !== v2 ? (function(){
3488                 return f65("\"", f70(v618), "\"");
3489             })() : (f36(v618) !== v2 ? (function(){
3490                 return (f63((function(){
3491                     var tmp = v618;
3492                     return tmp === v2? v2: tmp.car;
3493                 })(), v295) !== v2 ? (function(v621){
3494                     return (function(){
3495                         var f = v621;
3496                         var args = [v619, v620];
3497                         var tail = ((function(){
3498                             var tmp = v618;
3499                             return tmp === v2? v2: tmp.cdr;
3500                         })());
3501                             while (tail != v2){
3502                                 args.push(tail.car);
3503                                 tail = tail.cdr;
3504                             }
3505                             return f.apply(this, args);
3506                         })();
3507                 })(f30(f63((function(){
3508                     var tmp = v618;
3509                     return tmp === v2? v2: tmp.car;
3510                 })(), v295))) : (f115((function(){
3511                     var tmp = v618;
3512                     return tmp === v2? v2: tmp.car;
3513                 })()) !== v2 ? f102(f116(v618, v619, v620), v619, v620) : f117((function(){
3514                     var tmp = v618;
3515                     return tmp === v2? v2: tmp.car;
3516                 })(), (function(){
3517                     var tmp = v618;
3518                     return tmp === v2? v2: tmp.cdr;
3519                 })(), v619, v620)));
3520             })() : v2))));
3521         }));
3522     })();
3523     return l176;
3524 })();
3525 var l177 = f3("LS-COMPILE-TOPLEVEL");
3526 var f118;
3527 (function(){
3528     (function(){
3529         return f118 = (function(v622){
3530             ((v622)["fname"] = "LS-COMPILE-TOPLEVEL");
3531             return v622;
3532         })((function (v623){
3533             if (arguments.length < 1) throw 'too few arguments';
3534             if (arguments.length > 1) throw 'too many arguments';
3535             v285 = v2;
3536             return (function(v624){
3537                 return (function(v625){
3538                     v285 = v2;
3539                     return v625;
3540                 })(f65(f66(f45((function (v626){
3541                     if (arguments.length < 1) throw 'too few arguments';
3542                     if (arguments.length > 1) throw 'too many arguments';
3543                     return f65(v626, ";", v164);
3544                 }), v285)), v624));
3545             })(f102(v623, v2, v2));
3546         }));
3547     })();
3548     return l177;
3549 })();
3550 var l188 = f3("LS-COMPILE-TOPLEVEL");
3551 var l187 = f3("EVAL");
3552 var l186 = f3("PRINT-TO-STRING");
3553 var l185 = f3("LS-READ-FROM-STRING");
3554 var l184 = 901;
3555 var l183 = 182;
3556 var l182 = 118;
3557 var l181 = 632;
3558 var l180 = {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v354", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v308", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v295", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v285", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v274", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v257", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FENV*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v241", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENV*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v240", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v239", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v232", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v164", 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")}}}}}}}}}}}}}}};
3559 var l179 = {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("SETQ"), cdr: {car: f3("*ENV*"), cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: {car: f3("FUNCTION"), cdr: {car: f3("BINDING-DECLARED"), cdr: f3("NIL")}}, cdr: {car: f3("*ENV*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*FENV*"), cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: {car: f3("FUNCTION"), cdr: {car: f3("BINDING-DECLARED"), cdr: f3("NIL")}}, cdr: {car: f3("*FENV*"), cdr: f3("NIL")}}}, 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: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", 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("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), 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: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", 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: {car: f3("FENV"), 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: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", 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: {car: f3("FENV"), 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: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", 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: f3("FENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), 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: {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"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), 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("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), 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("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("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), 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: {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("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("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), 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: 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("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("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: {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")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
3560 var l178 = f3("EVAL");
3561 var f110;
3562 v241 = l179;
3563 v240 = l180;
3564 v257 = l181;
3565 v274 = l182;
3566 v354 = l183;
3567 v12 = l184;
3568 (function(){
3569     (function(){
3570         (function(){
3571             return f110 = (function(v627){
3572                 ((v627)["fname"] = "EVAL");
3573                 return v627;
3574             })((function (v628){
3575                 if (arguments.length < 1) throw 'too few arguments';
3576                 if (arguments.length > 1) throw 'too many arguments';
3577                 return (function(v629){
3578                     return (function(){
3579                         var string = v629;
3580                         if (typeof string != 'string')
3581                             throw 'The value ' + string + ' is not a type string.';
3582                         return eval.apply(window, [string]);
3583                     })();
3584                 })((function(v630){
3585                     (function(v631,v632){
3586                         return (function(){
3587                             while(v631 !== v2){
3588                                 v632 = (function(){
3589                                     var tmp = v631;
3590                                     return tmp === v2? v2: tmp.car;
3591                                 })();
3592                                 (v632)();
3593                                 v631 = (function(){
3594                                     var tmp = v631;
3595                                     return tmp === v2? v2: tmp.cdr;
3596                                 })();
3597                         }})();
3598                     })(v239,v2);
3599                     return v630;
3600                 })((function(){
3601                     v239 = v2;
3602                     v240 = f58(f90, v240);
3603                     v241 = f58(f90, v241);
3604                     return f118(v628);
3605                 })()));
3606             }));
3607         })();
3608         return l178;
3609     })();
3610     return (function(){
3611         var string = f65("var lisp = {};", "lisp.read = ", f97(l185, v2), ";", v164, "lisp.print = ", f97(l186, v2), ";", v164, "lisp.eval = ", f97(l187, v2), ";", v164, "lisp.compile = ", f97(l188, v2), ";", v164, "lisp.evalString = function(str){", v164, "   return lisp.eval(lisp.read(str));", v164, "}", v164, "lisp.compileString = function(str){", v164, "   return lisp.compile(lisp.read(str));", v164, "}", v164);
3612         if (typeof string != 'string')
3613             throw 'The value ' + string + ' is not a type string.';
3614         return eval.apply(window, [string]);
3615     })();
3616 })();