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 (function(){
  68                 try {
  69                     return (function(){
  70                         return ((v5 === v2)?v3: v2);
  71                     })();
  72                 }
  73                 catch (cf){
  74                     if (cf.type == 'block' && cf.id == 1)
  75                         return cf.value;
  76                     else
  77                         throw cf;
  78                 }
  79             })();
  80         }));
  81     })();
  82     (function(){
  83         return f2 = (function(v6){
  84             ((v6)["fname"] = "INTERNP");
  85             return v6;
  86         })((function (v7){
  87             if (arguments.length < 1) throw 'too few arguments';
  88             if (arguments.length > 1) throw 'too many arguments';
  89             return (function(){
  90                 try {
  91                     return (function(){
  92                         return (((v7) in (v1))?v3: v2);
  93                     })();
  94                 }
  95                 catch (cf){
  96                     if (cf.type == 'block' && cf.id == 2)
  97                         return cf.value;
  98                     else
  99                         throw cf;
 100                 }
 101             })();
 102         }));
 103     })();
 104     (function(){
 105         return f3 = (function(v8){
 106             ((v8)["fname"] = "INTERN");
 107             return v8;
 108         })((function (v9){
 109             if (arguments.length < 1) throw 'too few arguments';
 110             if (arguments.length > 1) throw 'too many arguments';
 111             return (function(){
 112                 try {
 113                     return (function(){
 114                         return (f2(v9) !== v2 ? (function(){
 115                             var tmp = (v1)[v9];
 116                             return tmp == undefined? v2: tmp ;
 117                         })() : ((v1)[v9] = (function(){
 118                             var name = v9;
 119                             if (typeof name != 'string')
 120                                 throw 'The value ' + name + ' is not a type string.';
 121                             return ({name: name});
 122                         })()));
 123                     })();
 124                 }
 125                 catch (cf){
 126                     if (cf.type == 'block' && cf.id == 3)
 127                         return cf.value;
 128                     else
 129                         throw cf;
 130                 }
 131             })();
 132         }));
 133     })();
 134     (function(){
 135         return f4 = (function(v10){
 136             ((v10)["fname"] = "FIND-SYMBOL");
 137             return v10;
 138         })((function (v11){
 139             if (arguments.length < 1) throw 'too few arguments';
 140             if (arguments.length > 1) throw 'too many arguments';
 141             return (function(){
 142                 try {
 143                     return (function(){
 144                         return (function(){
 145                             var tmp = (v1)[v11];
 146                             return tmp == undefined? v2: tmp ;
 147                         })();
 148                     })();
 149                 }
 150                 catch (cf){
 151                     if (cf.type == 'block' && cf.id == 4)
 152                         return cf.value;
 153                     else
 154                         throw cf;
 155                 }
 156             })();
 157         }));
 158     })();
 159     (function(){
 160         return v12 = 0;
 161     })();
 162     (function(){
 163         return f5 = (function(v13){
 164             ((v13)["fname"] = "GENSYM");
 165             return v13;
 166         })((function (v14){
 167             if (arguments.length > 1) throw 'too many arguments';
 168             switch(arguments.length){
 169             case 0:
 170             v14="G";
 171             default: break;
 172             }
 173             return (function(){
 174                 try {
 175                     return (function(){
 176                         v12 = (function(){
 177                             var x = v12;
 178                             var y = 1;
 179                             if (typeof x != 'number')
 180                                 throw 'The value ' + x + ' is not a type number.';
 181                             if (typeof y != 'number')
 182                                 throw 'The value ' + y + ' is not a type number.';
 183                             return x+y;
 184                         })();
 185                         return (function(){
 186                             var name = (function(){
 187                                 var string1 = v14;
 188                                 var string2 = f6(v12);
 189                                 if (typeof string1 != 'string')
 190                                     throw 'The value ' + string1 + ' is not a type string.';
 191                                 if (typeof string2 != 'string')
 192                                     throw 'The value ' + string2 + ' is not a type string.';
 193                                 return string1.concat(string2);
 194                             })();
 195                             if (typeof name != 'string')
 196                                 throw 'The value ' + name + ' is not a type string.';
 197                             return ({name: name});
 198                         })();
 199                     })();
 200                 }
 201                 catch (cf){
 202                     if (cf.type == 'block' && cf.id == 5)
 203                         return cf.value;
 204                     else
 205                         throw cf;
 206                 }
 207             })();
 208         }));
 209     })();
 210     (function(){
 211         return f7 = (function(v15){
 212             ((v15)["fname"] = "=");
 213             return v15;
 214         })((function (v16,v17){
 215             if (arguments.length < 2) throw 'too few arguments';
 216             if (arguments.length > 2) throw 'too many arguments';
 217             return (function(){
 218                 try {
 219                     return (function(){
 220                         return ((function(){
 221                             var x = v16;
 222                             var y = v17;
 223                             if (typeof x != 'number')
 224                                 throw 'The value ' + x + ' is not a type number.';
 225                             if (typeof y != 'number')
 226                                 throw 'The value ' + y + ' is not a type number.';
 227                             return x==y;
 228                         })()?v3: v2);
 229                     })();
 230                 }
 231                 catch (cf){
 232                     if (cf.type == 'block' && cf.id == 6)
 233                         return cf.value;
 234                     else
 235                         throw cf;
 236                 }
 237             })();
 238         }));
 239     })();
 240     (function(){
 241         return f8 = (function(v18){
 242             ((v18)["fname"] = "+");
 243             return v18;
 244         })((function (v19,v20){
 245             if (arguments.length < 2) throw 'too few arguments';
 246             if (arguments.length > 2) throw 'too many arguments';
 247             return (function(){
 248                 try {
 249                     return (function(){
 250                         return (function(){
 251                             var x = v19;
 252                             var y = v20;
 253                             if (typeof x != 'number')
 254                                 throw 'The value ' + x + ' is not a type number.';
 255                             if (typeof y != 'number')
 256                                 throw 'The value ' + y + ' is not a type number.';
 257                             return x+y;
 258                         })();
 259                     })();
 260                 }
 261                 catch (cf){
 262                     if (cf.type == 'block' && cf.id == 7)
 263                         return cf.value;
 264                     else
 265                         throw cf;
 266                 }
 267             })();
 268         }));
 269     })();
 270     (function(){
 271         return f9 = (function(v21){
 272             ((v21)["fname"] = "-");
 273             return v21;
 274         })((function (v22,v23){
 275             if (arguments.length < 2) throw 'too few arguments';
 276             if (arguments.length > 2) throw 'too many arguments';
 277             return (function(){
 278                 try {
 279                     return (function(){
 280                         return (function(){
 281                             var x = v22;
 282                             var y = v23;
 283                             if (typeof x != 'number')
 284                                 throw 'The value ' + x + ' is not a type number.';
 285                             if (typeof y != 'number')
 286                                 throw 'The value ' + y + ' is not a type number.';
 287                             return x-y;
 288                         })();
 289                     })();
 290                 }
 291                 catch (cf){
 292                     if (cf.type == 'block' && cf.id == 8)
 293                         return cf.value;
 294                     else
 295                         throw cf;
 296                 }
 297             })();
 298         }));
 299     })();
 300     (function(){
 301         return f10 = (function(v24){
 302             ((v24)["fname"] = "*");
 303             return v24;
 304         })((function (v25,v26){
 305             if (arguments.length < 2) throw 'too few arguments';
 306             if (arguments.length > 2) throw 'too many arguments';
 307             return (function(){
 308                 try {
 309                     return (function(){
 310                         return (function(){
 311                             var x = v25;
 312                             var y = v26;
 313                             if (typeof x != 'number')
 314                                 throw 'The value ' + x + ' is not a type number.';
 315                             if (typeof y != 'number')
 316                                 throw 'The value ' + y + ' is not a type number.';
 317                             return x*y;
 318                         })();
 319                     })();
 320                 }
 321                 catch (cf){
 322                     if (cf.type == 'block' && cf.id == 9)
 323                         return cf.value;
 324                     else
 325                         throw cf;
 326                 }
 327             })();
 328         }));
 329     })();
 330     (function(){
 331         return f11 = (function(v27){
 332             ((v27)["fname"] = "/");
 333             return v27;
 334         })((function (v28,v29){
 335             if (arguments.length < 2) throw 'too few arguments';
 336             if (arguments.length > 2) throw 'too many arguments';
 337             return (function(){
 338                 try {
 339                     return (function(){
 340                         return (function(){
 341                             var x = v28;
 342                             var y = v29;
 343                             if (typeof x != 'number')
 344                                 throw 'The value ' + x + ' is not a type number.';
 345                             if (typeof y != 'number')
 346                                 throw 'The value ' + y + ' is not a type number.';
 347                             return x/y;
 348                         })();
 349                     })();
 350                 }
 351                 catch (cf){
 352                     if (cf.type == 'block' && cf.id == 10)
 353                         return cf.value;
 354                     else
 355                         throw cf;
 356                 }
 357             })();
 358         }));
 359     })();
 360     (function(){
 361         return f12 = (function(v30){
 362             ((v30)["fname"] = "1+");
 363             return v30;
 364         })((function (v31){
 365             if (arguments.length < 1) throw 'too few arguments';
 366             if (arguments.length > 1) throw 'too many arguments';
 367             return (function(){
 368                 try {
 369                     return (function(){
 370                         return (function(){
 371                             var x = v31;
 372                             var y = 1;
 373                             if (typeof x != 'number')
 374                                 throw 'The value ' + x + ' is not a type number.';
 375                             if (typeof y != 'number')
 376                                 throw 'The value ' + y + ' is not a type number.';
 377                             return x+y;
 378                         })();
 379                     })();
 380                 }
 381                 catch (cf){
 382                     if (cf.type == 'block' && cf.id == 11)
 383                         return cf.value;
 384                     else
 385                         throw cf;
 386                 }
 387             })();
 388         }));
 389     })();
 390     (function(){
 391         return f13 = (function(v32){
 392             ((v32)["fname"] = "1-");
 393             return v32;
 394         })((function (v33){
 395             if (arguments.length < 1) throw 'too few arguments';
 396             if (arguments.length > 1) throw 'too many arguments';
 397             return (function(){
 398                 try {
 399                     return (function(){
 400                         return (function(){
 401                             var x = v33;
 402                             var y = 1;
 403                             if (typeof x != 'number')
 404                                 throw 'The value ' + x + ' is not a type number.';
 405                             if (typeof y != 'number')
 406                                 throw 'The value ' + y + ' is not a type number.';
 407                             return x-y;
 408                         })();
 409                     })();
 410                 }
 411                 catch (cf){
 412                     if (cf.type == 'block' && cf.id == 12)
 413                         return cf.value;
 414                     else
 415                         throw cf;
 416                 }
 417             })();
 418         }));
 419     })();
 420     (function(){
 421         return f14 = (function(v34){
 422             ((v34)["fname"] = "ZEROP");
 423             return v34;
 424         })((function (v35){
 425             if (arguments.length < 1) throw 'too few arguments';
 426             if (arguments.length > 1) throw 'too many arguments';
 427             return (function(){
 428                 try {
 429                     return (function(){
 430                         return ((function(){
 431                             var x = v35;
 432                             var y = 0;
 433                             if (typeof x != 'number')
 434                                 throw 'The value ' + x + ' is not a type number.';
 435                             if (typeof y != 'number')
 436                                 throw 'The value ' + y + ' is not a type number.';
 437                             return x==y;
 438                         })()?v3: v2);
 439                     })();
 440                 }
 441                 catch (cf){
 442                     if (cf.type == 'block' && cf.id == 13)
 443                         return cf.value;
 444                     else
 445                         throw cf;
 446                 }
 447             })();
 448         }));
 449     })();
 450     (function(){
 451         return f15 = (function(v36){
 452             ((v36)["fname"] = "TRUNCATE");
 453             return v36;
 454         })((function (v37,v38){
 455             if (arguments.length < 2) throw 'too few arguments';
 456             if (arguments.length > 2) throw 'too many arguments';
 457             return (function(){
 458                 try {
 459                     return (function(){
 460                         return (function(){
 461                             var x = (function(){
 462                                 var x = v37;
 463                                 var y = v38;
 464                                 if (typeof x != 'number')
 465                                     throw 'The value ' + x + ' is not a type number.';
 466                                 if (typeof y != 'number')
 467                                     throw 'The value ' + y + ' is not a type number.';
 468                                 return x/y;
 469                             })();
 470                             if (typeof x != 'number')
 471                                 throw 'The value ' + x + ' is not a type number.';
 472                             return Math.floor(x);
 473                         })();
 474                     })();
 475                 }
 476                 catch (cf){
 477                     if (cf.type == 'block' && cf.id == 14)
 478                         return cf.value;
 479                     else
 480                         throw cf;
 481                 }
 482             })();
 483         }));
 484     })();
 485     (function(){
 486         return f16 = (function(v39){
 487             ((v39)["fname"] = "EQL");
 488             return v39;
 489         })((function (v40,v41){
 490             if (arguments.length < 2) throw 'too few arguments';
 491             if (arguments.length > 2) throw 'too many arguments';
 492             return (function(){
 493                 try {
 494                     return (function(){
 495                         return ((v40 === v41)?v3: v2);
 496                     })();
 497                 }
 498                 catch (cf){
 499                     if (cf.type == 'block' && cf.id == 15)
 500                         return cf.value;
 501                     else
 502                         throw cf;
 503                 }
 504             })();
 505         }));
 506     })();
 507     (function(){
 508         return f17 = (function(v42){
 509             ((v42)["fname"] = "NOT");
 510             return v42;
 511         })((function (v43){
 512             if (arguments.length < 1) throw 'too few arguments';
 513             if (arguments.length > 1) throw 'too many arguments';
 514             return (function(){
 515                 try {
 516                     return (function(){
 517                         return (v43 !== v2 ? v2 : v3);
 518                     })();
 519                 }
 520                 catch (cf){
 521                     if (cf.type == 'block' && cf.id == 16)
 522                         return cf.value;
 523                     else
 524                         throw cf;
 525                 }
 526             })();
 527         }));
 528     })();
 529     (function(){
 530         return f18 = (function(v44){
 531             ((v44)["fname"] = "CONS");
 532             return v44;
 533         })((function (v45,v46){
 534             if (arguments.length < 2) throw 'too few arguments';
 535             if (arguments.length > 2) throw 'too many arguments';
 536             return (function(){
 537                 try {
 538                     return (function(){
 539                         return ({car: v45, cdr: v46});
 540                     })();
 541                 }
 542                 catch (cf){
 543                     if (cf.type == 'block' && cf.id == 17)
 544                         return cf.value;
 545                     else
 546                         throw cf;
 547                 }
 548             })();
 549         }));
 550     })();
 551     (function(){
 552         return f19 = (function(v47){
 553             ((v47)["fname"] = "CONSP");
 554             return v47;
 555         })((function (v48){
 556             if (arguments.length < 1) throw 'too few arguments';
 557             if (arguments.length > 1) throw 'too many arguments';
 558             return (function(){
 559                 try {
 560                     return (function(){
 561                         return ((function(){
 562                             var tmp = v48;
 563                             return (typeof tmp == 'object' && 'car' in tmp);
 564                         })()?v3: v2);
 565                     })();
 566                 }
 567                 catch (cf){
 568                     if (cf.type == 'block' && cf.id == 18)
 569                         return cf.value;
 570                     else
 571                         throw cf;
 572                 }
 573             })();
 574         }));
 575     })();
 576     (function(){
 577         return f20 = (function(v49){
 578             ((v49)["fname"] = "CAR");
 579             return v49;
 580         })((function (v50){
 581             if (arguments.length < 1) throw 'too few arguments';
 582             if (arguments.length > 1) throw 'too many arguments';
 583             return (function(){
 584                 try {
 585                     return (function(){
 586                         return (function(){
 587                             var tmp = v50;
 588                             return tmp === v2? v2: tmp.car;
 589                         })();
 590                     })();
 591                 }
 592                 catch (cf){
 593                     if (cf.type == 'block' && cf.id == 19)
 594                         return cf.value;
 595                     else
 596                         throw cf;
 597                 }
 598             })();
 599         }));
 600     })();
 601     (function(){
 602         return f21 = (function(v51){
 603             ((v51)["fname"] = "CDR");
 604             return v51;
 605         })((function (v52){
 606             if (arguments.length < 1) throw 'too few arguments';
 607             if (arguments.length > 1) throw 'too many arguments';
 608             return (function(){
 609                 try {
 610                     return (function(){
 611                         return (function(){
 612                             var tmp = v52;
 613                             return tmp === v2? v2: tmp.cdr;
 614                         })();
 615                     })();
 616                 }
 617                 catch (cf){
 618                     if (cf.type == 'block' && cf.id == 20)
 619                         return cf.value;
 620                     else
 621                         throw cf;
 622                 }
 623             })();
 624         }));
 625     })();
 626     (function(){
 627         return f22 = (function(v53){
 628             ((v53)["fname"] = "CAAR");
 629             return v53;
 630         })((function (v54){
 631             if (arguments.length < 1) throw 'too few arguments';
 632             if (arguments.length > 1) throw 'too many arguments';
 633             return (function(){
 634                 try {
 635                     return (function(){
 636                         return (function(){
 637                             var tmp = (function(){
 638                                 var tmp = v54;
 639                                 return tmp === v2? v2: tmp.car;
 640                             })();
 641                             return tmp === v2? v2: tmp.car;
 642                         })();
 643                     })();
 644                 }
 645                 catch (cf){
 646                     if (cf.type == 'block' && cf.id == 21)
 647                         return cf.value;
 648                     else
 649                         throw cf;
 650                 }
 651             })();
 652         }));
 653     })();
 654     (function(){
 655         return f23 = (function(v55){
 656             ((v55)["fname"] = "CADR");
 657             return v55;
 658         })((function (v56){
 659             if (arguments.length < 1) throw 'too few arguments';
 660             if (arguments.length > 1) throw 'too many arguments';
 661             return (function(){
 662                 try {
 663                     return (function(){
 664                         return (function(){
 665                             var tmp = (function(){
 666                                 var tmp = v56;
 667                                 return tmp === v2? v2: tmp.cdr;
 668                             })();
 669                             return tmp === v2? v2: tmp.car;
 670                         })();
 671                     })();
 672                 }
 673                 catch (cf){
 674                     if (cf.type == 'block' && cf.id == 22)
 675                         return cf.value;
 676                     else
 677                         throw cf;
 678                 }
 679             })();
 680         }));
 681     })();
 682     (function(){
 683         return f24 = (function(v57){
 684             ((v57)["fname"] = "CDAR");
 685             return v57;
 686         })((function (v58){
 687             if (arguments.length < 1) throw 'too few arguments';
 688             if (arguments.length > 1) throw 'too many arguments';
 689             return (function(){
 690                 try {
 691                     return (function(){
 692                         return (function(){
 693                             var tmp = (function(){
 694                                 var tmp = v58;
 695                                 return tmp === v2? v2: tmp.car;
 696                             })();
 697                             return tmp === v2? v2: tmp.cdr;
 698                         })();
 699                     })();
 700                 }
 701                 catch (cf){
 702                     if (cf.type == 'block' && cf.id == 23)
 703                         return cf.value;
 704                     else
 705                         throw cf;
 706                 }
 707             })();
 708         }));
 709     })();
 710     (function(){
 711         return f25 = (function(v59){
 712             ((v59)["fname"] = "CDDR");
 713             return v59;
 714         })((function (v60){
 715             if (arguments.length < 1) throw 'too few arguments';
 716             if (arguments.length > 1) throw 'too many arguments';
 717             return (function(){
 718                 try {
 719                     return (function(){
 720                         return (function(){
 721                             var tmp = (function(){
 722                                 var tmp = v60;
 723                                 return tmp === v2? v2: tmp.cdr;
 724                             })();
 725                             return tmp === v2? v2: tmp.cdr;
 726                         })();
 727                     })();
 728                 }
 729                 catch (cf){
 730                     if (cf.type == 'block' && cf.id == 24)
 731                         return cf.value;
 732                     else
 733                         throw cf;
 734                 }
 735             })();
 736         }));
 737     })();
 738     (function(){
 739         return f26 = (function(v61){
 740             ((v61)["fname"] = "CADDR");
 741             return v61;
 742         })((function (v62){
 743             if (arguments.length < 1) throw 'too few arguments';
 744             if (arguments.length > 1) throw 'too many arguments';
 745             return (function(){
 746                 try {
 747                     return (function(){
 748                         return (function(){
 749                             var tmp = (function(){
 750                                 var tmp = (function(){
 751                                     var tmp = v62;
 752                                     return tmp === v2? v2: tmp.cdr;
 753                                 })();
 754                                 return tmp === v2? v2: tmp.cdr;
 755                             })();
 756                             return tmp === v2? v2: tmp.car;
 757                         })();
 758                     })();
 759                 }
 760                 catch (cf){
 761                     if (cf.type == 'block' && cf.id == 25)
 762                         return cf.value;
 763                     else
 764                         throw cf;
 765                 }
 766             })();
 767         }));
 768     })();
 769     (function(){
 770         return f27 = (function(v63){
 771             ((v63)["fname"] = "CDDDR");
 772             return v63;
 773         })((function (v64){
 774             if (arguments.length < 1) throw 'too few arguments';
 775             if (arguments.length > 1) throw 'too many arguments';
 776             return (function(){
 777                 try {
 778                     return (function(){
 779                         return (function(){
 780                             var tmp = (function(){
 781                                 var tmp = (function(){
 782                                     var tmp = v64;
 783                                     return tmp === v2? v2: tmp.cdr;
 784                                 })();
 785                                 return tmp === v2? v2: tmp.cdr;
 786                             })();
 787                             return tmp === v2? v2: tmp.cdr;
 788                         })();
 789                     })();
 790                 }
 791                 catch (cf){
 792                     if (cf.type == 'block' && cf.id == 26)
 793                         return cf.value;
 794                     else
 795                         throw cf;
 796                 }
 797             })();
 798         }));
 799     })();
 800     (function(){
 801         return f28 = (function(v65){
 802             ((v65)["fname"] = "CADDDR");
 803             return v65;
 804         })((function (v66){
 805             if (arguments.length < 1) throw 'too few arguments';
 806             if (arguments.length > 1) throw 'too many arguments';
 807             return (function(){
 808                 try {
 809                     return (function(){
 810                         return (function(){
 811                             var tmp = (function(){
 812                                 var tmp = (function(){
 813                                     var tmp = (function(){
 814                                         var tmp = v66;
 815                                         return tmp === v2? v2: tmp.cdr;
 816                                     })();
 817                                     return tmp === v2? v2: tmp.cdr;
 818                                 })();
 819                                 return tmp === v2? v2: tmp.cdr;
 820                             })();
 821                             return tmp === v2? v2: tmp.car;
 822                         })();
 823                     })();
 824                 }
 825                 catch (cf){
 826                     if (cf.type == 'block' && cf.id == 27)
 827                         return cf.value;
 828                     else
 829                         throw cf;
 830                 }
 831             })();
 832         }));
 833     })();
 834     (function(){
 835         return f29 = (function(v67){
 836             ((v67)["fname"] = "FIRST");
 837             return v67;
 838         })((function (v68){
 839             if (arguments.length < 1) throw 'too few arguments';
 840             if (arguments.length > 1) throw 'too many arguments';
 841             return (function(){
 842                 try {
 843                     return (function(){
 844                         return (function(){
 845                             var tmp = v68;
 846                             return tmp === v2? v2: tmp.car;
 847                         })();
 848                     })();
 849                 }
 850                 catch (cf){
 851                     if (cf.type == 'block' && cf.id == 28)
 852                         return cf.value;
 853                     else
 854                         throw cf;
 855                 }
 856             })();
 857         }));
 858     })();
 859     (function(){
 860         return f30 = (function(v69){
 861             ((v69)["fname"] = "SECOND");
 862             return v69;
 863         })((function (v70){
 864             if (arguments.length < 1) throw 'too few arguments';
 865             if (arguments.length > 1) throw 'too many arguments';
 866             return (function(){
 867                 try {
 868                     return (function(){
 869                         return f23(v70);
 870                     })();
 871                 }
 872                 catch (cf){
 873                     if (cf.type == 'block' && cf.id == 29)
 874                         return cf.value;
 875                     else
 876                         throw cf;
 877                 }
 878             })();
 879         }));
 880     })();
 881     (function(){
 882         return f31 = (function(v71){
 883             ((v71)["fname"] = "THIRD");
 884             return v71;
 885         })((function (v72){
 886             if (arguments.length < 1) throw 'too few arguments';
 887             if (arguments.length > 1) throw 'too many arguments';
 888             return (function(){
 889                 try {
 890                     return (function(){
 891                         return f26(v72);
 892                     })();
 893                 }
 894                 catch (cf){
 895                     if (cf.type == 'block' && cf.id == 30)
 896                         return cf.value;
 897                     else
 898                         throw cf;
 899                 }
 900             })();
 901         }));
 902     })();
 903     (function(){
 904         return f32 = (function(v73){
 905             ((v73)["fname"] = "FOURTH");
 906             return v73;
 907         })((function (v74){
 908             if (arguments.length < 1) throw 'too few arguments';
 909             if (arguments.length > 1) throw 'too many arguments';
 910             return (function(){
 911                 try {
 912                     return (function(){
 913                         return f28(v74);
 914                     })();
 915                 }
 916                 catch (cf){
 917                     if (cf.type == 'block' && cf.id == 31)
 918                         return cf.value;
 919                     else
 920                         throw cf;
 921                 }
 922             })();
 923         }));
 924     })();
 925     (function(){
 926         return f33 = (function(v75){
 927             ((v75)["fname"] = "LIST");
 928             return v75;
 929         })((function (){
 930             var v76= v2;
 931             for (var i = arguments.length-1; i>=0; i--)
 932                 v76 = {car: arguments[i], cdr: v76};
 933             return (function(){
 934                 try {
 935                     return (function(){
 936                         return v76;
 937                     })();
 938                 }
 939                 catch (cf){
 940                     if (cf.type == 'block' && cf.id == 32)
 941                         return cf.value;
 942                     else
 943                         throw cf;
 944                 }
 945             })();
 946         }));
 947     })();
 948     (function(){
 949         return f34 = (function(v77){
 950             ((v77)["fname"] = "ATOM");
 951             return v77;
 952         })((function (v78){
 953             if (arguments.length < 1) throw 'too few arguments';
 954             if (arguments.length > 1) throw 'too many arguments';
 955             return (function(){
 956                 try {
 957                     return (function(){
 958                         return f17(((function(){
 959                             var tmp = v78;
 960                             return (typeof tmp == 'object' && 'car' in tmp);
 961                         })()?v3: v2));
 962                     })();
 963                 }
 964                 catch (cf){
 965                     if (cf.type == 'block' && cf.id == 33)
 966                         return cf.value;
 967                     else
 968                         throw cf;
 969                 }
 970             })();
 971         }));
 972     })();
 973     return ;
 974 })();
 975 var f35;
 976 (function(){
 977     return f35 = (function(v79){
 978         ((v79)["fname"] = "ENSURE-LIST");
 979         return v79;
 980     })((function (v80){
 981         if (arguments.length < 1) throw 'too few arguments';
 982         if (arguments.length > 1) throw 'too many arguments';
 983         return (function(){
 984             try {
 985                 return (function(){
 986                     return (f36(v80) !== v2 ? v80 : f33(v80));
 987                 })();
 988             }
 989             catch (cf){
 990                 if (cf.type == 'block' && cf.id == 34)
 991                     return cf.value;
 992                 else
 993                     throw cf;
 994             }
 995         })();
 996     }));
 997 })();
 998 var f37;
 999 (function(){
1000     return f37 = (function(v81){
1001         ((v81)["fname"] = "!REDUCE");
1002         return v81;
1003     })((function (v82,v83,v84){
1004         if (arguments.length < 3) throw 'too few arguments';
1005         if (arguments.length > 3) throw 'too many arguments';
1006         return (function(){
1007             try {
1008                 return (function(){
1009                     return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
1010                         var tmp = v83;
1011                         return tmp === v2? v2: tmp.cdr;
1012                     })(), (v82)(v84, (function(){
1013                         var tmp = v83;
1014                         return tmp === v2? v2: tmp.car;
1015                     })())));
1016                 })();
1017             }
1018             catch (cf){
1019                 if (cf.type == 'block' && cf.id == 35)
1020                     return cf.value;
1021                 else
1022                     throw cf;
1023             }
1024         })();
1025     }));
1026 })();
1027 var l34 = f3("STRING=");
1028 var f67;
1029 var l33 = f3("ASSOC");
1030 var f66;
1031 var l32 = f3("EVERY");
1032 var f65;
1033 var l31 = f3("SOME");
1034 var f64;
1035 var l30 = f3("PARSE-INTEGER");
1036 var f63;
1037 var l29 = f3("SUBSEQ");
1038 var f62;
1039 var l28 = f3("DIGIT-CHAR-P");
1040 var f61;
1041 var l27 = f3("REMOVE-IF-NOT");
1042 var f60;
1043 var l26 = f3("REMOVE-IF");
1044 var f59;
1045 var l25 = f3("REMOVE");
1046 var f58;
1047 var l24 = f3("MEMBER");
1048 var f57;
1049 var l23 = f3("BUTLAST");
1050 var f56;
1051 var l22 = f3("LAST");
1052 var f55;
1053 var l21 = f3("NTH");
1054 var f54;
1055 var l20 = f3("LISTP");
1056 var f36;
1057 var l19 = f3("MINUSP");
1058 var f53;
1059 var l18 = f3("PLUSP");
1060 var f52;
1061 var l17 = f3("INTEGERP");
1062 var f51;
1063 var l16 = f3("CHAR=");
1064 var f50;
1065 var l15 = f3("CHAR-CODE");
1066 var f49;
1067 var l14 = f3("CODE-CHAR");
1068 var f48;
1069 var l13 = f3("COPY-LIST");
1070 var f47;
1071 var l12 = f3("IDENTITY");
1072 var f46;
1073 var l11 = f3("MAPCAR");
1074 var l10 = f3("NIL");
1075 var f45;
1076 var l9 = f3("CONCAT-TWO");
1077 var f44;
1078 var l8 = f3("LENGTH");
1079 var f43;
1080 var l7 = f3("LIST-LENGTH");
1081 var f42;
1082 var l6 = f3("REVERSE");
1083 var l5 = f3("NIL");
1084 var f41;
1085 var l4 = f3("REVERSE-AUX");
1086 var f40;
1087 var l3 = f3("APPEND");
1088 var l2 = f3("NIL");
1089 var f39;
1090 var l1 = f3("APPEND-TWO");
1091 var f38;
1092 (function(){
1093     (function(){
1094         (function(){
1095             return f38 = (function(v85){
1096                 ((v85)["fname"] = "APPEND-TWO");
1097                 return v85;
1098             })((function (v86,v87){
1099                 if (arguments.length < 2) throw 'too few arguments';
1100                 if (arguments.length > 2) throw 'too many arguments';
1101                 return (function(){
1102                     try {
1103                         return (function(){
1104                             return (f1(v86) !== v2 ? v87 : ({car: (function(){
1105                                 var tmp = v86;
1106                                 return tmp === v2? v2: tmp.car;
1107                             })(), cdr: f39((function(){
1108                                 var tmp = v86;
1109                                 return tmp === v2? v2: tmp.cdr;
1110                             })(), v87)}));
1111                         })();
1112                     }
1113                     catch (cf){
1114                         if (cf.type == 'block' && cf.id == 36)
1115                             return cf.value;
1116                         else
1117                             throw cf;
1118                     }
1119                 })();
1120             }));
1121         })();
1122         return l1;
1123     })();
1124     (function(){
1125         (function(){
1126             return f39 = (function(v88){
1127                 ((v88)["fname"] = "APPEND");
1128                 return v88;
1129             })((function (){
1130                 var v89= v2;
1131                 for (var i = arguments.length-1; i>=0; i--)
1132                     v89 = {car: arguments[i], cdr: v89};
1133                 return (function(){
1134                     try {
1135                         return (function(){
1136                             return f37(f38, v89, l2);
1137                         })();
1138                     }
1139                     catch (cf){
1140                         if (cf.type == 'block' && cf.id == 37)
1141                             return cf.value;
1142                         else
1143                             throw cf;
1144                     }
1145                 })();
1146             }));
1147         })();
1148         return l3;
1149     })();
1150     (function(){
1151         (function(){
1152             return f40 = (function(v90){
1153                 ((v90)["fname"] = "REVERSE-AUX");
1154                 return v90;
1155             })((function (v91,v92){
1156                 if (arguments.length < 2) throw 'too few arguments';
1157                 if (arguments.length > 2) throw 'too many arguments';
1158                 return (function(){
1159                     try {
1160                         return (function(){
1161                             return (f1(v91) !== v2 ? v92 : f40((function(){
1162                                 var tmp = v91;
1163                                 return tmp === v2? v2: tmp.cdr;
1164                             })(), ({car: (function(){
1165                                 var tmp = v91;
1166                                 return tmp === v2? v2: tmp.car;
1167                             })(), cdr: v92})));
1168                         })();
1169                     }
1170                     catch (cf){
1171                         if (cf.type == 'block' && cf.id == 38)
1172                             return cf.value;
1173                         else
1174                             throw cf;
1175                     }
1176                 })();
1177             }));
1178         })();
1179         return l4;
1180     })();
1181     (function(){
1182         (function(){
1183             return f41 = (function(v93){
1184                 ((v93)["fname"] = "REVERSE");
1185                 return v93;
1186             })((function (v94){
1187                 if (arguments.length < 1) throw 'too few arguments';
1188                 if (arguments.length > 1) throw 'too many arguments';
1189                 return (function(){
1190                     try {
1191                         return (function(){
1192                             return f40(v94, l5);
1193                         })();
1194                     }
1195                     catch (cf){
1196                         if (cf.type == 'block' && cf.id == 39)
1197                             return cf.value;
1198                         else
1199                             throw cf;
1200                     }
1201                 })();
1202             }));
1203         })();
1204         return l6;
1205     })();
1206     (function(){
1207         (function(){
1208             return f42 = (function(v95){
1209                 ((v95)["fname"] = "LIST-LENGTH");
1210                 return v95;
1211             })((function (v96){
1212                 if (arguments.length < 1) throw 'too few arguments';
1213                 if (arguments.length > 1) throw 'too many arguments';
1214                 return (function(){
1215                     try {
1216                         return (function(){
1217                             return (function(v97){
1218                                 (function(){
1219                                     try {
1220                                         return (function(){
1221                                             return (function(){
1222                                                 while(f17(f1(v96)) !== v2){
1223                                                     v97 = (function(){
1224                                                         var x = v97;
1225                                                         var y = 1;
1226                                                         if (typeof x != 'number')
1227                                                             throw 'The value ' + x + ' is not a type number.';
1228                                                         if (typeof y != 'number')
1229                                                             throw 'The value ' + y + ' is not a type number.';
1230                                                         return x+y;
1231                                                     })();
1232                                                     v96 = (function(){
1233                                                         var tmp = v96;
1234                                                         return tmp === v2? v2: tmp.cdr;
1235                                                     })();
1236                                                 }return v2;
1237                                             })();
1238                                         })();
1239                                     }
1240                                     catch (cf){
1241                                         if (cf.type == 'block' && cf.id == 41)
1242                                             return cf.value;
1243                                         else
1244                                             throw cf;
1245                                     }
1246                                 })();
1247                                 return v97;
1248                             })(0);
1249                         })();
1250                     }
1251                     catch (cf){
1252                         if (cf.type == 'block' && cf.id == 40)
1253                             return cf.value;
1254                         else
1255                             throw cf;
1256                     }
1257                 })();
1258             }));
1259         })();
1260         return l7;
1261     })();
1262     (function(){
1263         (function(){
1264             return f43 = (function(v98){
1265                 ((v98)["fname"] = "LENGTH");
1266                 return v98;
1267             })((function (v99){
1268                 if (arguments.length < 1) throw 'too few arguments';
1269                 if (arguments.length > 1) throw 'too many arguments';
1270                 return (function(){
1271                     try {
1272                         return (function(){
1273                             return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1274                                 var x = v99;
1275                                 if (typeof x != 'string')
1276                                     throw 'The value ' + x + ' is not a type string.';
1277                                 return x.length;
1278                             })() : f42(v99));
1279                         })();
1280                     }
1281                     catch (cf){
1282                         if (cf.type == 'block' && cf.id == 42)
1283                             return cf.value;
1284                         else
1285                             throw cf;
1286                     }
1287                 })();
1288             }));
1289         })();
1290         return l8;
1291     })();
1292     (function(){
1293         (function(){
1294             return f44 = (function(v100){
1295                 ((v100)["fname"] = "CONCAT-TWO");
1296                 return v100;
1297             })((function (v101,v102){
1298                 if (arguments.length < 2) throw 'too few arguments';
1299                 if (arguments.length > 2) throw 'too many arguments';
1300                 return (function(){
1301                     try {
1302                         return (function(){
1303                             return (function(){
1304                                 var string1 = v101;
1305                                 var string2 = v102;
1306                                 if (typeof string1 != 'string')
1307                                     throw 'The value ' + string1 + ' is not a type string.';
1308                                 if (typeof string2 != 'string')
1309                                     throw 'The value ' + string2 + ' is not a type string.';
1310                                 return string1.concat(string2);
1311                             })();
1312                         })();
1313                     }
1314                     catch (cf){
1315                         if (cf.type == 'block' && cf.id == 43)
1316                             return cf.value;
1317                         else
1318                             throw cf;
1319                     }
1320                 })();
1321             }));
1322         })();
1323         return l9;
1324     })();
1325     (function(){
1326         (function(){
1327             return f45 = (function(v103){
1328                 ((v103)["fname"] = "MAPCAR");
1329                 return v103;
1330             })((function (v104,v105){
1331                 if (arguments.length < 2) throw 'too few arguments';
1332                 if (arguments.length > 2) throw 'too many arguments';
1333                 return (function(){
1334                     try {
1335                         return (function(){
1336                             return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1337                                 var tmp = v105;
1338                                 return tmp === v2? v2: tmp.car;
1339                             })()), cdr: f45(v104, (function(){
1340                                 var tmp = v105;
1341                                 return tmp === v2? v2: tmp.cdr;
1342                             })())}));
1343                         })();
1344                     }
1345                     catch (cf){
1346                         if (cf.type == 'block' && cf.id == 44)
1347                             return cf.value;
1348                         else
1349                             throw cf;
1350                     }
1351                 })();
1352             }));
1353         })();
1354         return l11;
1355     })();
1356     (function(){
1357         (function(){
1358             return f46 = (function(v106){
1359                 ((v106)["fname"] = "IDENTITY");
1360                 return v106;
1361             })((function (v107){
1362                 if (arguments.length < 1) throw 'too few arguments';
1363                 if (arguments.length > 1) throw 'too many arguments';
1364                 return (function(){
1365                     try {
1366                         return (function(){
1367                             return v107;
1368                         })();
1369                     }
1370                     catch (cf){
1371                         if (cf.type == 'block' && cf.id == 45)
1372                             return cf.value;
1373                         else
1374                             throw cf;
1375                     }
1376                 })();
1377             }));
1378         })();
1379         return l12;
1380     })();
1381     (function(){
1382         (function(){
1383             return f47 = (function(v108){
1384                 ((v108)["fname"] = "COPY-LIST");
1385                 return v108;
1386             })((function (v109){
1387                 if (arguments.length < 1) throw 'too few arguments';
1388                 if (arguments.length > 1) throw 'too many arguments';
1389                 return (function(){
1390                     try {
1391                         return (function(){
1392                             return f45(f46, v109);
1393                         })();
1394                     }
1395                     catch (cf){
1396                         if (cf.type == 'block' && cf.id == 46)
1397                             return cf.value;
1398                         else
1399                             throw cf;
1400                     }
1401                 })();
1402             }));
1403         })();
1404         return l13;
1405     })();
1406     (function(){
1407         (function(){
1408             return f48 = (function(v110){
1409                 ((v110)["fname"] = "CODE-CHAR");
1410                 return v110;
1411             })((function (v111){
1412                 if (arguments.length < 1) throw 'too few arguments';
1413                 if (arguments.length > 1) throw 'too many arguments';
1414                 return (function(){
1415                     try {
1416                         return (function(){
1417                             return v111;
1418                         })();
1419                     }
1420                     catch (cf){
1421                         if (cf.type == 'block' && cf.id == 47)
1422                             return cf.value;
1423                         else
1424                             throw cf;
1425                     }
1426                 })();
1427             }));
1428         })();
1429         return l14;
1430     })();
1431     (function(){
1432         (function(){
1433             return f49 = (function(v112){
1434                 ((v112)["fname"] = "CHAR-CODE");
1435                 return v112;
1436             })((function (v113){
1437                 if (arguments.length < 1) throw 'too few arguments';
1438                 if (arguments.length > 1) throw 'too many arguments';
1439                 return (function(){
1440                     try {
1441                         return (function(){
1442                             return v113;
1443                         })();
1444                     }
1445                     catch (cf){
1446                         if (cf.type == 'block' && cf.id == 48)
1447                             return cf.value;
1448                         else
1449                             throw cf;
1450                     }
1451                 })();
1452             }));
1453         })();
1454         return l15;
1455     })();
1456     (function(){
1457         (function(){
1458             return f50 = (function(v114){
1459                 ((v114)["fname"] = "CHAR=");
1460                 return v114;
1461             })((function (v115,v116){
1462                 if (arguments.length < 2) throw 'too few arguments';
1463                 if (arguments.length > 2) throw 'too many arguments';
1464                 return (function(){
1465                     try {
1466                         return (function(){
1467                             return ((function(){
1468                                 var x = v115;
1469                                 var y = v116;
1470                                 if (typeof x != 'number')
1471                                     throw 'The value ' + x + ' is not a type number.';
1472                                 if (typeof y != 'number')
1473                                     throw 'The value ' + y + ' is not a type number.';
1474                                 return x==y;
1475                             })()?v3: v2);
1476                         })();
1477                     }
1478                     catch (cf){
1479                         if (cf.type == 'block' && cf.id == 49)
1480                             return cf.value;
1481                         else
1482                             throw cf;
1483                     }
1484                 })();
1485             }));
1486         })();
1487         return l16;
1488     })();
1489     (function(){
1490         (function(){
1491             return f51 = (function(v117){
1492                 ((v117)["fname"] = "INTEGERP");
1493                 return v117;
1494             })((function (v118){
1495                 if (arguments.length < 1) throw 'too few arguments';
1496                 if (arguments.length > 1) throw 'too many arguments';
1497                 return (function(){
1498                     try {
1499                         return (function(){
1500                             return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1501                                 var x = (function(){
1502                                     var x = v118;
1503                                     if (typeof x != 'number')
1504                                         throw 'The value ' + x + ' is not a type number.';
1505                                     return Math.floor(x);
1506                                 })();
1507                                 var y = v118;
1508                                 if (typeof x != 'number')
1509                                     throw 'The value ' + x + ' is not a type number.';
1510                                 if (typeof y != 'number')
1511                                     throw 'The value ' + y + ' is not a type number.';
1512                                 return x==y;
1513                             })()?v3: v2) : v2);
1514                         })();
1515                     }
1516                     catch (cf){
1517                         if (cf.type == 'block' && cf.id == 50)
1518                             return cf.value;
1519                         else
1520                             throw cf;
1521                     }
1522                 })();
1523             }));
1524         })();
1525         return l17;
1526     })();
1527     (function(){
1528         (function(){
1529             return f52 = (function(v119){
1530                 ((v119)["fname"] = "PLUSP");
1531                 return v119;
1532             })((function (v120){
1533                 if (arguments.length < 1) throw 'too few arguments';
1534                 if (arguments.length > 1) throw 'too many arguments';
1535                 return (function(){
1536                     try {
1537                         return (function(){
1538                             return ((function(){
1539                                 var x = 0;
1540                                 var y = v120;
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                             })()?v3: v2);
1547                         })();
1548                     }
1549                     catch (cf){
1550                         if (cf.type == 'block' && cf.id == 51)
1551                             return cf.value;
1552                         else
1553                             throw cf;
1554                     }
1555                 })();
1556             }));
1557         })();
1558         return l18;
1559     })();
1560     (function(){
1561         (function(){
1562             return f53 = (function(v121){
1563                 ((v121)["fname"] = "MINUSP");
1564                 return v121;
1565             })((function (v122){
1566                 if (arguments.length < 1) throw 'too few arguments';
1567                 if (arguments.length > 1) throw 'too many arguments';
1568                 return (function(){
1569                     try {
1570                         return (function(){
1571                             return ((function(){
1572                                 var x = v122;
1573                                 var y = 0;
1574                                 if (typeof x != 'number')
1575                                     throw 'The value ' + x + ' is not a type number.';
1576                                 if (typeof y != 'number')
1577                                     throw 'The value ' + y + ' is not a type number.';
1578                                 return x<y;
1579                             })()?v3: v2);
1580                         })();
1581                     }
1582                     catch (cf){
1583                         if (cf.type == 'block' && cf.id == 52)
1584                             return cf.value;
1585                         else
1586                             throw cf;
1587                     }
1588                 })();
1589             }));
1590         })();
1591         return l19;
1592     })();
1593     (function(){
1594         (function(){
1595             return f36 = (function(v123){
1596                 ((v123)["fname"] = "LISTP");
1597                 return v123;
1598             })((function (v124){
1599                 if (arguments.length < 1) throw 'too few arguments';
1600                 if (arguments.length > 1) throw 'too many arguments';
1601                 return (function(){
1602                     try {
1603                         return (function(){
1604                             return (function(v125){
1605                                 return (v125 !== v2 ? v125 : f1(v124));
1606                             })(((function(){
1607                                 var tmp = v124;
1608                                 return (typeof tmp == 'object' && 'car' in tmp);
1609                             })()?v3: v2));
1610                         })();
1611                     }
1612                     catch (cf){
1613                         if (cf.type == 'block' && cf.id == 53)
1614                             return cf.value;
1615                         else
1616                             throw cf;
1617                     }
1618                 })();
1619             }));
1620         })();
1621         return l20;
1622     })();
1623     (function(){
1624         (function(){
1625             return f54 = (function(v126){
1626                 ((v126)["fname"] = "NTH");
1627                 return v126;
1628             })((function (v127,v128){
1629                 if (arguments.length < 2) throw 'too few arguments';
1630                 if (arguments.length > 2) throw 'too many arguments';
1631                 return (function(){
1632                     try {
1633                         return (function(){
1634                             return (f1(v128) !== v2 ? (function(){
1635                                 return v128;
1636                             })() : (f14(v127) !== v2 ? (function(){
1637                                 return (function(){
1638                                     var tmp = v128;
1639                                     return tmp === v2? v2: tmp.car;
1640                                 })();
1641                             })() : (function(){
1642                                 return f54(f13(v127), (function(){
1643                                     var tmp = v128;
1644                                     return tmp === v2? v2: tmp.cdr;
1645                                 })());
1646                             })()));
1647                         })();
1648                     }
1649                     catch (cf){
1650                         if (cf.type == 'block' && cf.id == 54)
1651                             return cf.value;
1652                         else
1653                             throw cf;
1654                     }
1655                 })();
1656             }));
1657         })();
1658         return l21;
1659     })();
1660     (function(){
1661         (function(){
1662             return f55 = (function(v129){
1663                 ((v129)["fname"] = "LAST");
1664                 return v129;
1665             })((function (v130){
1666                 if (arguments.length < 1) throw 'too few arguments';
1667                 if (arguments.length > 1) throw 'too many arguments';
1668                 return (function(){
1669                     try {
1670                         return (function(){
1671                             return (((function(){
1672                                 var tmp = (function(){
1673                                     var tmp = v130;
1674                                     return tmp === v2? v2: tmp.cdr;
1675                                 })();
1676                                 return (typeof tmp == 'object' && 'car' in tmp);
1677                             })()?v3: v2) !== v2 ? f55((function(){
1678                                 var tmp = v130;
1679                                 return tmp === v2? v2: tmp.cdr;
1680                             })()) : v130);
1681                         })();
1682                     }
1683                     catch (cf){
1684                         if (cf.type == 'block' && cf.id == 55)
1685                             return cf.value;
1686                         else
1687                             throw cf;
1688                     }
1689                 })();
1690             }));
1691         })();
1692         return l22;
1693     })();
1694     (function(){
1695         (function(){
1696             return f56 = (function(v131){
1697                 ((v131)["fname"] = "BUTLAST");
1698                 return v131;
1699             })((function (v132){
1700                 if (arguments.length < 1) throw 'too few arguments';
1701                 if (arguments.length > 1) throw 'too many arguments';
1702                 return (function(){
1703                     try {
1704                         return (function(){
1705                             return (((function(){
1706                                 var tmp = (function(){
1707                                     var tmp = v132;
1708                                     return tmp === v2? v2: tmp.cdr;
1709                                 })();
1710                                 return (typeof tmp == 'object' && 'car' in tmp);
1711                             })()?v3: v2) !== v2 ? ({car: (function(){
1712                                 var tmp = v132;
1713                                 return tmp === v2? v2: tmp.car;
1714                             })(), cdr: f56((function(){
1715                                 var tmp = v132;
1716                                 return tmp === v2? v2: tmp.cdr;
1717                             })())}) : v2);
1718                         })();
1719                     }
1720                     catch (cf){
1721                         if (cf.type == 'block' && cf.id == 56)
1722                             return cf.value;
1723                         else
1724                             throw cf;
1725                     }
1726                 })();
1727             }));
1728         })();
1729         return l23;
1730     })();
1731     (function(){
1732         (function(){
1733             return f57 = (function(v133){
1734                 ((v133)["fname"] = "MEMBER");
1735                 return v133;
1736             })((function (v134,v135){
1737                 if (arguments.length < 2) throw 'too few arguments';
1738                 if (arguments.length > 2) throw 'too many arguments';
1739                 return (function(){
1740                     try {
1741                         return (function(){
1742                             return (f1(v135) !== v2 ? (function(){
1743                                 return v2;
1744                             })() : (f16(v134, (function(){
1745                                 var tmp = v135;
1746                                 return tmp === v2? v2: tmp.car;
1747                             })()) !== v2 ? (function(){
1748                                 return v135;
1749                             })() : (function(){
1750                                 return f57(v134, (function(){
1751                                     var tmp = v135;
1752                                     return tmp === v2? v2: tmp.cdr;
1753                                 })());
1754                             })()));
1755                         })();
1756                     }
1757                     catch (cf){
1758                         if (cf.type == 'block' && cf.id == 57)
1759                             return cf.value;
1760                         else
1761                             throw cf;
1762                     }
1763                 })();
1764             }));
1765         })();
1766         return l24;
1767     })();
1768     (function(){
1769         (function(){
1770             return f58 = (function(v136){
1771                 ((v136)["fname"] = "REMOVE");
1772                 return v136;
1773             })((function (v137,v138){
1774                 if (arguments.length < 2) throw 'too few arguments';
1775                 if (arguments.length > 2) throw 'too many arguments';
1776                 return (function(){
1777                     try {
1778                         return (function(){
1779                             return (f1(v138) !== v2 ? (function(){
1780                                 return v2;
1781                             })() : (f16(v137, (function(){
1782                                 var tmp = v138;
1783                                 return tmp === v2? v2: tmp.car;
1784                             })()) !== v2 ? (function(){
1785                                 return f58(v137, (function(){
1786                                     var tmp = v138;
1787                                     return tmp === v2? v2: tmp.cdr;
1788                                 })());
1789                             })() : (function(){
1790                                 return ({car: (function(){
1791                                     var tmp = v138;
1792                                     return tmp === v2? v2: tmp.car;
1793                                 })(), cdr: f58(v137, (function(){
1794                                     var tmp = v138;
1795                                     return tmp === v2? v2: tmp.cdr;
1796                                 })())});
1797                             })()));
1798                         })();
1799                     }
1800                     catch (cf){
1801                         if (cf.type == 'block' && cf.id == 58)
1802                             return cf.value;
1803                         else
1804                             throw cf;
1805                     }
1806                 })();
1807             }));
1808         })();
1809         return l25;
1810     })();
1811     (function(){
1812         (function(){
1813             return f59 = (function(v139){
1814                 ((v139)["fname"] = "REMOVE-IF");
1815                 return v139;
1816             })((function (v140,v141){
1817                 if (arguments.length < 2) throw 'too few arguments';
1818                 if (arguments.length > 2) throw 'too many arguments';
1819                 return (function(){
1820                     try {
1821                         return (function(){
1822                             return (f1(v141) !== v2 ? (function(){
1823                                 return v2;
1824                             })() : ((v140)((function(){
1825                                 var tmp = v141;
1826                                 return tmp === v2? v2: tmp.car;
1827                             })()) !== v2 ? (function(){
1828                                 return f59(v140, (function(){
1829                                     var tmp = v141;
1830                                     return tmp === v2? v2: tmp.cdr;
1831                                 })());
1832                             })() : (function(){
1833                                 return ({car: (function(){
1834                                     var tmp = v141;
1835                                     return tmp === v2? v2: tmp.car;
1836                                 })(), cdr: f59(v140, (function(){
1837                                     var tmp = v141;
1838                                     return tmp === v2? v2: tmp.cdr;
1839                                 })())});
1840                             })()));
1841                         })();
1842                     }
1843                     catch (cf){
1844                         if (cf.type == 'block' && cf.id == 59)
1845                             return cf.value;
1846                         else
1847                             throw cf;
1848                     }
1849                 })();
1850             }));
1851         })();
1852         return l26;
1853     })();
1854     (function(){
1855         (function(){
1856             return f60 = (function(v142){
1857                 ((v142)["fname"] = "REMOVE-IF-NOT");
1858                 return v142;
1859             })((function (v143,v144){
1860                 if (arguments.length < 2) throw 'too few arguments';
1861                 if (arguments.length > 2) throw 'too many arguments';
1862                 return (function(){
1863                     try {
1864                         return (function(){
1865                             return (f1(v144) !== v2 ? (function(){
1866                                 return v2;
1867                             })() : ((v143)((function(){
1868                                 var tmp = v144;
1869                                 return tmp === v2? v2: tmp.car;
1870                             })()) !== v2 ? (function(){
1871                                 return ({car: (function(){
1872                                     var tmp = v144;
1873                                     return tmp === v2? v2: tmp.car;
1874                                 })(), cdr: f60(v143, (function(){
1875                                     var tmp = v144;
1876                                     return tmp === v2? v2: tmp.cdr;
1877                                 })())});
1878                             })() : (function(){
1879                                 return f60(v143, (function(){
1880                                     var tmp = v144;
1881                                     return tmp === v2? v2: tmp.cdr;
1882                                 })());
1883                             })()));
1884                         })();
1885                     }
1886                     catch (cf){
1887                         if (cf.type == 'block' && cf.id == 60)
1888                             return cf.value;
1889                         else
1890                             throw cf;
1891                     }
1892                 })();
1893             }));
1894         })();
1895         return l27;
1896     })();
1897     (function(){
1898         (function(){
1899             return f61 = (function(v145){
1900                 ((v145)["fname"] = "DIGIT-CHAR-P");
1901                 return v145;
1902             })((function (v146){
1903                 if (arguments.length < 1) throw 'too few arguments';
1904                 if (arguments.length > 1) throw 'too many arguments';
1905                 return (function(){
1906                     try {
1907                         return (function(){
1908                             return ((((function(){
1909                                 var x = 48;
1910                                 var y = v146;
1911                                 if (typeof x != 'number')
1912                                     throw 'The value ' + x + ' is not a type number.';
1913                                 if (typeof y != 'number')
1914                                     throw 'The value ' + y + ' is not a type number.';
1915                                 return x<=y;
1916                             })()?v3: v2) !== v2 ? ((function(){
1917                                 var x = v146;
1918                                 var y = 57;
1919                                 if (typeof x != 'number')
1920                                     throw 'The value ' + x + ' is not a type number.';
1921                                 if (typeof y != 'number')
1922                                     throw 'The value ' + y + ' is not a type number.';
1923                                 return x<=y;
1924                             })()?v3: v2) : v2) !== v2 ? (function(){
1925                                 var x = v146;
1926                                 var y = 48;
1927                                 if (typeof x != 'number')
1928                                     throw 'The value ' + x + ' is not a type number.';
1929                                 if (typeof y != 'number')
1930                                     throw 'The value ' + y + ' is not a type number.';
1931                                 return x-y;
1932                             })() : v2);
1933                         })();
1934                     }
1935                     catch (cf){
1936                         if (cf.type == 'block' && cf.id == 61)
1937                             return cf.value;
1938                         else
1939                             throw cf;
1940                     }
1941                 })();
1942             }));
1943         })();
1944         return l28;
1945     })();
1946     (function(){
1947         (function(){
1948             return f62 = (function(v147){
1949                 ((v147)["fname"] = "SUBSEQ");
1950                 return v147;
1951             })((function (v148,v149,v150){
1952                 if (arguments.length < 2) throw 'too few arguments';
1953                 if (arguments.length > 3) throw 'too many arguments';
1954                 switch(arguments.length){
1955                 case 2:
1956                 v150=v2;
1957                 default: break;
1958                 }
1959                 return (function(){
1960                     try {
1961                         return (function(){
1962                             return (((typeof(v148) == "string")?v3: v2) !== v2 ? (function(){
1963                                 return (v150 !== v2 ? (function(){
1964                                     var str = v148;
1965                                     var a = v149;
1966                                     var b;
1967                                     b = v150;
1968                                     return str.slice(a,b);
1969                                 })() : (function(){
1970                                     var str = v148;
1971                                     var a = v149;
1972                                     var b;
1973                                     return str.slice(a,b);
1974                                 })());
1975                             })() : (function(){
1976                                 return (function(){
1977                                     throw "Unsupported argument.";
1978                                 })();
1979                             })());
1980                         })();
1981                     }
1982                     catch (cf){
1983                         if (cf.type == 'block' && cf.id == 62)
1984                             return cf.value;
1985                         else
1986                             throw cf;
1987                     }
1988                 })();
1989             }));
1990         })();
1991         return l29;
1992     })();
1993     (function(){
1994         (function(){
1995             return f63 = (function(v151){
1996                 ((v151)["fname"] = "PARSE-INTEGER");
1997                 return v151;
1998             })((function (v152){
1999                 if (arguments.length < 1) throw 'too few arguments';
2000                 if (arguments.length > 1) throw 'too many arguments';
2001                 return (function(){
2002                     try {
2003                         return (function(){
2004                             return (function(v153,v154,v155){
2005                                 (function(){
2006                                     try {
2007                                         return (function(){
2008                                             return (function(){
2009                                                 while(((function(){
2010                                                     var x = v154;
2011                                                     var y = v155;
2012                                                     if (typeof x != 'number')
2013                                                         throw 'The value ' + x + ' is not a type number.';
2014                                                     if (typeof y != 'number')
2015                                                         throw 'The value ' + y + ' is not a type number.';
2016                                                     return x<y;
2017                                                 })()?v3: v2) !== v2){
2018                                                     v153 = (function(){
2019                                                         var x = (function(){
2020                                                             var x = v153;
2021                                                             var y = 10;
2022                                                             if (typeof x != 'number')
2023                                                                 throw 'The value ' + x + ' is not a type number.';
2024                                                             if (typeof y != 'number')
2025                                                                 throw 'The value ' + y + ' is not a type number.';
2026                                                             return x*y;
2027                                                         })();
2028                                                         var y = f61((function(){
2029                                                             var string = v152;
2030                                                             var index = v154;
2031                                                             if (typeof string != 'string')
2032                                                                 throw 'The value ' + string + ' is not a type string.';
2033                                                             if (typeof index != 'number')
2034                                                                 throw 'The value ' + index + ' is not a type number.';
2035                                                             return string.charCodeAt(index);
2036                                                         })());
2037                                                         if (typeof x != 'number')
2038                                                             throw 'The value ' + x + ' is not a type number.';
2039                                                         if (typeof y != 'number')
2040                                                             throw 'The value ' + y + ' is not a type number.';
2041                                                         return x+y;
2042                                                     })();
2043                                                     v154 = (function(){
2044                                                         var x = v154;
2045                                                         var y = 1;
2046                                                         if (typeof x != 'number')
2047                                                             throw 'The value ' + x + ' is not a type number.';
2048                                                         if (typeof y != 'number')
2049                                                             throw 'The value ' + y + ' is not a type number.';
2050                                                         return x+y;
2051                                                     })();
2052                                                 }return v2;
2053                                             })();
2054                                         })();
2055                                     }
2056                                     catch (cf){
2057                                         if (cf.type == 'block' && cf.id == 64)
2058                                             return cf.value;
2059                                         else
2060                                             throw cf;
2061                                     }
2062                                 })();
2063                                 return v153;
2064                             })(0,0,f43(v152));
2065                         })();
2066                     }
2067                     catch (cf){
2068                         if (cf.type == 'block' && cf.id == 63)
2069                             return cf.value;
2070                         else
2071                             throw cf;
2072                     }
2073                 })();
2074             }));
2075         })();
2076         return l30;
2077     })();
2078     (function(){
2079         (function(){
2080             return f64 = (function(v156){
2081                 ((v156)["fname"] = "SOME");
2082                 return v156;
2083             })((function (v157,v158){
2084                 if (arguments.length < 2) throw 'too few arguments';
2085                 if (arguments.length > 2) throw 'too many arguments';
2086                 return (function(){
2087                     try {
2088                         return (function(){
2089                             return (((typeof(v158) == "string")?v3: v2) !== v2 ? (function(){
2090                                 return (function(v159,v160){
2091                                     (function(){
2092                                         try {
2093                                             return (function(){
2094                                                 return (function(){
2095                                                     while(((function(){
2096                                                         var x = v159;
2097                                                         var y = v160;
2098                                                         if (typeof x != 'number')
2099                                                             throw 'The value ' + x + ' is not a type number.';
2100                                                         if (typeof y != 'number')
2101                                                             throw 'The value ' + y + ' is not a type number.';
2102                                                         return x<y;
2103                                                     })()?v3: v2) !== v2){
2104                                                         ((v157)((function(){
2105                                                             var string = v158;
2106                                                             var index = v159;
2107                                                             if (typeof string != 'string')
2108                                                                 throw 'The value ' + string + ' is not a type string.';
2109                                                             if (typeof index != 'number')
2110                                                                 throw 'The value ' + index + ' is not a type number.';
2111                                                             return string.charCodeAt(index);
2112                                                         })()) !== v2 ? (function(){
2113                                                             return (function(){
2114                                                                 throw ({type: 'block', id: 65, value: v3, message: 'Return from unknown block SOME.'})})();
2115                                                         })() : v2);
2116                                                         v159 = (function(){
2117                                                             var x = v159;
2118                                                             var y = 1;
2119                                                             if (typeof x != 'number')
2120                                                                 throw 'The value ' + x + ' is not a type number.';
2121                                                             if (typeof y != 'number')
2122                                                                 throw 'The value ' + y + ' is not a type number.';
2123                                                             return x+y;
2124                                                         })();
2125                                                     }return v2;
2126                                                 })();
2127                                             })();
2128                                         }
2129                                         catch (cf){
2130                                             if (cf.type == 'block' && cf.id == 66)
2131                                                 return cf.value;
2132                                             else
2133                                                 throw cf;
2134                                         }
2135                                     })();
2136                                     return v2;
2137                                 })(0,f43(v158));
2138                             })() : (f36(v158) !== v2 ? (function(){
2139                                 return (function(){
2140                                     try {
2141                                         return (function(){
2142                                             return (function(v161,v162){
2143                                                 (function(){
2144                                                     while(v161 !== v2){
2145                                                         v162 = (function(){
2146                                                             var tmp = v161;
2147                                                             return tmp === v2? v2: tmp.car;
2148                                                         })();
2149                                                         (function(){
2150                                                             ((v157)(v162) !== v2 ? (function(){
2151                                                                 return (function(){
2152                                                                     throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})();
2153                                                             })() : v2);
2154                                                             return v2;
2155                                                         })();
2156                                                         v161 = (function(){
2157                                                             var tmp = v161;
2158                                                             return tmp === v2? v2: tmp.cdr;
2159                                                         })();
2160                                                     }return v2;
2161                                                 })();
2162                                                 return v2;
2163                                             })(v158,v2);
2164                                         })();
2165                                     }
2166                                     catch (cf){
2167                                         if (cf.type == 'block' && cf.id == 67)
2168                                             return cf.value;
2169                                         else
2170                                             throw cf;
2171                                     }
2172                                 })();
2173                             })() : (function(){
2174                                 return (function(){
2175                                     throw "Unknown sequence.";
2176                                 })();
2177                             })()));
2178                         })();
2179                     }
2180                     catch (cf){
2181                         if (cf.type == 'block' && cf.id == 65)
2182                             return cf.value;
2183                         else
2184                             throw cf;
2185                     }
2186                 })();
2187             }));
2188         })();
2189         return l31;
2190     })();
2191     (function(){
2192         (function(){
2193             return f65 = (function(v163){
2194                 ((v163)["fname"] = "EVERY");
2195                 return v163;
2196             })((function (v164,v165){
2197                 if (arguments.length < 2) throw 'too few arguments';
2198                 if (arguments.length > 2) throw 'too many arguments';
2199                 return (function(){
2200                     try {
2201                         return (function(){
2202                             return (((typeof(v165) == "string")?v3: v2) !== v2 ? (function(){
2203                                 return (function(v166,v167){
2204                                     (function(){
2205                                         try {
2206                                             return (function(){
2207                                                 return (function(){
2208                                                     while(((function(){
2209                                                         var x = v166;
2210                                                         var y = v167;
2211                                                         if (typeof x != 'number')
2212                                                             throw 'The value ' + x + ' is not a type number.';
2213                                                         if (typeof y != 'number')
2214                                                             throw 'The value ' + y + ' is not a type number.';
2215                                                         return x<y;
2216                                                     })()?v3: v2) !== v2){
2217                                                         ((v164)((function(){
2218                                                             var string = v165;
2219                                                             var index = v166;
2220                                                             if (typeof string != 'string')
2221                                                                 throw 'The value ' + string + ' is not a type string.';
2222                                                             if (typeof index != 'number')
2223                                                                 throw 'The value ' + index + ' is not a type number.';
2224                                                             return string.charCodeAt(index);
2225                                                         })()) !== v2 ? v2 : (function(){
2226                                                             return (function(){
2227                                                                 throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})();
2228                                                         })());
2229                                                         v166 = (function(){
2230                                                             var x = v166;
2231                                                             var y = 1;
2232                                                             if (typeof x != 'number')
2233                                                                 throw 'The value ' + x + ' is not a type number.';
2234                                                             if (typeof y != 'number')
2235                                                                 throw 'The value ' + y + ' is not a type number.';
2236                                                             return x+y;
2237                                                         })();
2238                                                     }return v2;
2239                                                 })();
2240                                             })();
2241                                         }
2242                                         catch (cf){
2243                                             if (cf.type == 'block' && cf.id == 69)
2244                                                 return cf.value;
2245                                             else
2246                                                 throw cf;
2247                                         }
2248                                     })();
2249                                     return v3;
2250                                 })(0,f43(v165));
2251                             })() : (f36(v165) !== v2 ? (function(){
2252                                 return (function(){
2253                                     try {
2254                                         return (function(){
2255                                             return (function(v168,v169){
2256                                                 (function(){
2257                                                     while(v168 !== v2){
2258                                                         v169 = (function(){
2259                                                             var tmp = v168;
2260                                                             return tmp === v2? v2: tmp.car;
2261                                                         })();
2262                                                         (function(){
2263                                                             ((v164)(v169) !== v2 ? v2 : (function(){
2264                                                                 return (function(){
2265                                                                     throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})();
2266                                                             })());
2267                                                             return v2;
2268                                                         })();
2269                                                         v168 = (function(){
2270                                                             var tmp = v168;
2271                                                             return tmp === v2? v2: tmp.cdr;
2272                                                         })();
2273                                                     }return v2;
2274                                                 })();
2275                                                 return v3;
2276                                             })(v165,v2);
2277                                         })();
2278                                     }
2279                                     catch (cf){
2280                                         if (cf.type == 'block' && cf.id == 70)
2281                                             return cf.value;
2282                                         else
2283                                             throw cf;
2284                                     }
2285                                 })();
2286                             })() : (function(){
2287                                 return (function(){
2288                                     throw "Unknown sequence.";
2289                                 })();
2290                             })()));
2291                         })();
2292                     }
2293                     catch (cf){
2294                         if (cf.type == 'block' && cf.id == 68)
2295                             return cf.value;
2296                         else
2297                             throw cf;
2298                     }
2299                 })();
2300             }));
2301         })();
2302         return l32;
2303     })();
2304     (function(){
2305         (function(){
2306             return f66 = (function(v170){
2307                 ((v170)["fname"] = "ASSOC");
2308                 return v170;
2309             })((function (v171,v172){
2310                 if (arguments.length < 2) throw 'too few arguments';
2311                 if (arguments.length > 2) throw 'too many arguments';
2312                 return (function(){
2313                     try {
2314                         return (function(){
2315                             (function(){
2316                                 try {
2317                                     return (function(){
2318                                         return (function(){
2319                                             while(v172 !== v2){
2320                                                 (f16(v171, f22(v172)) !== v2 ? (function(){
2321                                                     throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){
2322                                                     var tmp = v172;
2323                                                     return tmp === v2? v2: tmp.cdr;
2324                                                 })());
2325                                             }return v2;
2326                                         })();
2327                                     })();
2328                                 }
2329                                 catch (cf){
2330                                     if (cf.type == 'block' && cf.id == 72)
2331                                         return cf.value;
2332                                     else
2333                                         throw cf;
2334                                 }
2335                             })();
2336                             return (function(){
2337                                 var tmp = v172;
2338                                 return tmp === v2? v2: tmp.car;
2339                             })();
2340                         })();
2341                     }
2342                     catch (cf){
2343                         if (cf.type == 'block' && cf.id == 71)
2344                             return cf.value;
2345                         else
2346                             throw cf;
2347                     }
2348                 })();
2349             }));
2350         })();
2351         return l33;
2352     })();
2353     return (function(){
2354         (function(){
2355             return f67 = (function(v173){
2356                 ((v173)["fname"] = "STRING=");
2357                 return v173;
2358             })((function (v174,v175){
2359                 if (arguments.length < 2) throw 'too few arguments';
2360                 if (arguments.length > 2) throw 'too many arguments';
2361                 return (function(){
2362                     try {
2363                         return (function(){
2364                             return ((v174 == v175)?v3: v2);
2365                         })();
2366                     }
2367                     catch (cf){
2368                         if (cf.type == 'block' && cf.id == 73)
2369                             return cf.value;
2370                         else
2371                             throw cf;
2372                     }
2373                 })();
2374             }));
2375         })();
2376         return l34;
2377     })();
2378 })();
2379 var l35 = f3("*NEWLINE*");
2380 var v176;
2381 (function(){
2382     (function(){
2383         return v176 = (function(){
2384             var x = f48(10);
2385             if (typeof x != 'number')
2386                 throw 'The value ' + x + ' is not a type number.';
2387             return String.fromCharCode(x);
2388         })();
2389     })();
2390     return l35;
2391 })();
2392 var l36 = f3("CONCAT");
2393 var f68;
2394 (function(){
2395     (function(){
2396         return f68 = (function(v177){
2397             ((v177)["fname"] = "CONCAT");
2398             return v177;
2399         })((function (){
2400             var v178= v2;
2401             for (var i = arguments.length-1; i>=0; i--)
2402                 v178 = {car: arguments[i], cdr: v178};
2403             return (function(){
2404                 try {
2405                     return (function(){
2406                         return f37(f44, v178, "");
2407                     })();
2408                 }
2409                 catch (cf){
2410                     if (cf.type == 'block' && cf.id == 74)
2411                         return cf.value;
2412                     else
2413                         throw cf;
2414                 }
2415             })();
2416         }));
2417     })();
2418     return l36;
2419 })();
2420 var l37 = f3("JOIN");
2421 var f69;
2422 (function(){
2423     (function(){
2424         return f69 = (function(v179){
2425             ((v179)["fname"] = "JOIN");
2426             return v179;
2427         })((function (v180,v181){
2428             if (arguments.length < 1) throw 'too few arguments';
2429             if (arguments.length > 2) throw 'too many arguments';
2430             switch(arguments.length){
2431             case 1:
2432             v181="";
2433             default: break;
2434             }
2435             return (function(){
2436                 try {
2437                     return (function(){
2438                         return (f1(v180) !== v2 ? (function(){
2439                             return "";
2440                         })() : (f1((function(){
2441                             var tmp = v180;
2442                             return tmp === v2? v2: tmp.cdr;
2443                         })()) !== v2 ? (function(){
2444                             return (function(){
2445                                 var tmp = v180;
2446                                 return tmp === v2? v2: tmp.car;
2447                             })();
2448                         })() : (function(){
2449                             return f68((function(){
2450                                 var tmp = v180;
2451                                 return tmp === v2? v2: tmp.car;
2452                             })(), v181, f69((function(){
2453                                 var tmp = v180;
2454                                 return tmp === v2? v2: tmp.cdr;
2455                             })(), v181));
2456                         })()));
2457                     })();
2458                 }
2459                 catch (cf){
2460                     if (cf.type == 'block' && cf.id == 75)
2461                         return cf.value;
2462                     else
2463                         throw cf;
2464                 }
2465             })();
2466         }));
2467     })();
2468     return l37;
2469 })();
2470 var l38 = f3("JOIN-TRAILING");
2471 var f70;
2472 (function(){
2473     (function(){
2474         return f70 = (function(v182){
2475             ((v182)["fname"] = "JOIN-TRAILING");
2476             return v182;
2477         })((function (v183,v184){
2478             if (arguments.length < 1) throw 'too few arguments';
2479             if (arguments.length > 2) throw 'too many arguments';
2480             switch(arguments.length){
2481             case 1:
2482             v184="";
2483             default: break;
2484             }
2485             return (function(){
2486                 try {
2487                     return (function(){
2488                         return (f1(v183) !== v2 ? "" : f68((function(){
2489                             var tmp = v183;
2490                             return tmp === v2? v2: tmp.car;
2491                         })(), v184, f70((function(){
2492                             var tmp = v183;
2493                             return tmp === v2? v2: tmp.cdr;
2494                         })(), v184)));
2495                     })();
2496                 }
2497                 catch (cf){
2498                     if (cf.type == 'block' && cf.id == 76)
2499                         return cf.value;
2500                     else
2501                         throw cf;
2502                 }
2503             })();
2504         }));
2505     })();
2506     return l38;
2507 })();
2508 var l39 = f3("INDENT");
2509 var f71;
2510 (function(){
2511     (function(){
2512         return f71 = (function(v185){
2513             ((v185)["fname"] = "INDENT");
2514             return v185;
2515         })((function (){
2516             var v186= v2;
2517             for (var i = arguments.length-1; i>=0; i--)
2518                 v186 = {car: arguments[i], cdr: v186};
2519             return (function(){
2520                 try {
2521                     return (function(){
2522                         return (function(v187){
2523                             return (function(v188,v189,v190){
2524                                 (f52(v190) !== v2 ? (function(){
2525                                     return v188 = "    ";
2526                                 })() : v2);
2527                                 (function(){
2528                                     try {
2529                                         return (function(){
2530                                             return (function(){
2531                                                 while(((function(){
2532                                                     var x = v189;
2533                                                     var y = v190;
2534                                                     if (typeof x != 'number')
2535                                                         throw 'The value ' + x + ' is not a type number.';
2536                                                     if (typeof y != 'number')
2537                                                         throw 'The value ' + y + ' is not a type number.';
2538                                                     return x<y;
2539                                                 })()?v3: v2) !== v2){
2540                                                     v188 = f68(v188, ((f50((function(){
2541                                                         var string = v187;
2542                                                         var index = v189;
2543                                                         if (typeof string != 'string')
2544                                                             throw 'The value ' + string + ' is not a type string.';
2545                                                         if (typeof index != 'number')
2546                                                             throw 'The value ' + index + ' is not a type number.';
2547                                                         return string.charCodeAt(index);
2548                                                     })(), 10) !== v2 ? (((function(){
2549                                                         var x = v189;
2550                                                         var y = f13(v190);
2551                                                         if (typeof x != 'number')
2552                                                             throw 'The value ' + x + ' is not a type number.';
2553                                                         if (typeof y != 'number')
2554                                                             throw 'The value ' + y + ' is not a type number.';
2555                                                         return x<y;
2556                                                     })()?v3: v2) !== v2 ? f17(f50((function(){
2557                                                         var string = v187;
2558                                                         var index = f12(v189);
2559                                                         if (typeof string != 'string')
2560                                                             throw 'The value ' + string + ' is not a type string.';
2561                                                         if (typeof index != 'number')
2562                                                             throw 'The value ' + index + ' is not a type number.';
2563                                                         return string.charCodeAt(index);
2564                                                     })(), 10)) : v2) : v2) !== v2 ? f68((function(){
2565                                                         var x = 10;
2566                                                         if (typeof x != 'number')
2567                                                             throw 'The value ' + x + ' is not a type number.';
2568                                                         return String.fromCharCode(x);
2569                                                     })(), "    ") : f62(v187, v189, f12(v189))));
2570                                                     v189 = (function(){
2571                                                         var x = v189;
2572                                                         var y = 1;
2573                                                         if (typeof x != 'number')
2574                                                             throw 'The value ' + x + ' is not a type number.';
2575                                                         if (typeof y != 'number')
2576                                                             throw 'The value ' + y + ' is not a type number.';
2577                                                         return x+y;
2578                                                     })();
2579                                                 }return v2;
2580                                             })();
2581                                         })();
2582                                     }
2583                                     catch (cf){
2584                                         if (cf.type == 'block' && cf.id == 78)
2585                                             return cf.value;
2586                                         else
2587                                             throw cf;
2588                                     }
2589                                 })();
2590                                 return v188;
2591                             })("",0,f43(v187));
2592                         })(f69(v186));
2593                     })();
2594                 }
2595                 catch (cf){
2596                     if (cf.type == 'block' && cf.id == 77)
2597                         return cf.value;
2598                     else
2599                         throw cf;
2600                 }
2601             })();
2602         }));
2603     })();
2604     return l39;
2605 })();
2606 var l40 = f3("INTEGER-TO-STRING");
2607 var f6;
2608 (function(){
2609     (function(){
2610         return f6 = (function(v191){
2611             ((v191)["fname"] = "INTEGER-TO-STRING");
2612             return v191;
2613         })((function (v192){
2614             if (arguments.length < 1) throw 'too few arguments';
2615             if (arguments.length > 1) throw 'too many arguments';
2616             return (function(){
2617                 try {
2618                     return (function(){
2619                         return (f14(v192) !== v2 ? (function(){
2620                             return "0";
2621                         })() : (f53(v192) !== v2 ? (function(){
2622                             return f68("-", f6((function(){
2623                                 var x = 0;
2624                                 var y = v192;
2625                                 if (typeof x != 'number')
2626                                     throw 'The value ' + x + ' is not a type number.';
2627                                 if (typeof y != 'number')
2628                                     throw 'The value ' + y + ' is not a type number.';
2629                                 return x-y;
2630                             })()));
2631                         })() : (function(){
2632                             return (function(v193){
2633                                 (function(){
2634                                     try {
2635                                         return (function(){
2636                                             return (function(){
2637                                                 while(f17(f14(v192)) !== v2){
2638                                                     v193 = ({car: (function(){
2639                                                         var x = v192;
2640                                                         var y = 10;
2641                                                         if (typeof x != 'number')
2642                                                             throw 'The value ' + x + ' is not a type number.';
2643                                                         if (typeof y != 'number')
2644                                                             throw 'The value ' + y + ' is not a type number.';
2645                                                         return x%y;
2646                                                     })(), cdr: v193});
2647                                                     v192 = f15(v192, 10);
2648                                                 }return v2;
2649                                             })();
2650                                         })();
2651                                     }
2652                                     catch (cf){
2653                                         if (cf.type == 'block' && cf.id == 80)
2654                                             return cf.value;
2655                                         else
2656                                             throw cf;
2657                                     }
2658                                 })();
2659                                 return f69(f45((function (v194){
2660                                     if (arguments.length < 1) throw 'too few arguments';
2661                                     if (arguments.length > 1) throw 'too many arguments';
2662                                     return (function(){
2663                                         var x = (function(){
2664                                             var string = "0123456789";
2665                                             var index = v194;
2666                                             if (typeof string != 'string')
2667                                                 throw 'The value ' + string + ' is not a type string.';
2668                                             if (typeof index != 'number')
2669                                                 throw 'The value ' + index + ' is not a type number.';
2670                                             return string.charCodeAt(index);
2671                                         })();
2672                                         if (typeof x != 'number')
2673                                             throw 'The value ' + x + ' is not a type number.';
2674                                         return String.fromCharCode(x);
2675                                     })();
2676                                 }), v193));
2677                             })(v2);
2678                         })()));
2679                     })();
2680                 }
2681                 catch (cf){
2682                     if (cf.type == 'block' && cf.id == 79)
2683                         return cf.value;
2684                     else
2685                         throw cf;
2686                 }
2687             })();
2688         }));
2689     })();
2690     return l40;
2691 })();
2692 var l41 = f3("JS!BOOL");
2693 var f72;
2694 (function(){
2695     (function(){
2696         return f72 = (function(v195){
2697             ((v195)["fname"] = "JS!BOOL");
2698             return v195;
2699         })((function (v196){
2700             if (arguments.length < 1) throw 'too few arguments';
2701             if (arguments.length > 1) throw 'too many arguments';
2702             return (function(){
2703                 try {
2704                     return (function(){
2705                         return f68("(", v196, "?", f73(v3), ": ", f73(v2), ")");
2706                     })();
2707                 }
2708                 catch (cf){
2709                     if (cf.type == 'block' && cf.id == 81)
2710                         return cf.value;
2711                     else
2712                         throw cf;
2713                 }
2714             })();
2715         }));
2716     })();
2717     return l41;
2718 })();
2719 var l44 = f3("PRINT");
2720 var f77;
2721 var l43 = f3("WRITE-LINE");
2722 var f76;
2723 var l42 = f3("PRIN1-TO-STRING");
2724 var f74;
2725 (function(){
2726     (function(){
2727         (function(){
2728             return f74 = (function(v197){
2729                 ((v197)["fname"] = "PRIN1-TO-STRING");
2730                 return v197;
2731             })((function (v198){
2732                 if (arguments.length < 1) throw 'too few arguments';
2733                 if (arguments.length > 1) throw 'too many arguments';
2734                 return (function(){
2735                     try {
2736                         return (function(){
2737                             return (((function(){
2738                                 var tmp = v198;
2739                                 return (typeof tmp == 'object' && 'name' in tmp);
2740                             })()?v3: v2) !== v2 ? (function(){
2741                                 return (v198).name;
2742                             })() : (f51(v198) !== v2 ? (function(){
2743                                 return f6(v198);
2744                             })() : (((typeof(v198) == "string")?v3: v2) !== v2 ? (function(){
2745                                 return f68("\"", f75(v198), "\"");
2746                             })() : (((typeof v198 == 'function')?v3: v2) !== v2 ? (function(){
2747                                 return (function(v199){
2748                                     return (v199 !== v2 ? f68("#<FUNCTION ", v199, ">") : f68("#<FUNCTION>"));
2749                                 })((function(){
2750                                     var tmp = (v198)["fname"];
2751                                     return tmp == undefined? v2: tmp ;
2752                                 })());
2753                             })() : (f36(v198) !== v2 ? (function(){
2754                                 return f68("(", f70(f45(f74, f56(v198)), " "), (function(v200){
2755                                     return (f1((function(){
2756                                         var tmp = v200;
2757                                         return tmp === v2? v2: tmp.cdr;
2758                                     })()) !== v2 ? f74((function(){
2759                                         var tmp = v200;
2760                                         return tmp === v2? v2: tmp.car;
2761                                     })()) : f68(f74((function(){
2762                                         var tmp = v200;
2763                                         return tmp === v2? v2: tmp.car;
2764                                     })()), " . ", f74((function(){
2765                                         var tmp = v200;
2766                                         return tmp === v2? v2: tmp.cdr;
2767                                     })())));
2768                                 })(f55(v198)), ")");
2769                             })() : v2)))));
2770                         })();
2771                     }
2772                     catch (cf){
2773                         if (cf.type == 'block' && cf.id == 82)
2774                             return cf.value;
2775                         else
2776                             throw cf;
2777                     }
2778                 })();
2779             }));
2780         })();
2781         return l42;
2782     })();
2783     (function(){
2784         (function(){
2785             return f76 = (function(v201){
2786                 ((v201)["fname"] = "WRITE-LINE");
2787                 return v201;
2788             })((function (v202){
2789                 if (arguments.length < 1) throw 'too few arguments';
2790                 if (arguments.length > 1) throw 'too many arguments';
2791                 return (function(){
2792                     try {
2793                         return (function(){
2794                             (function(){
2795                                 var x = v202;
2796                                 if (typeof x != 'string')
2797                                     throw 'The value ' + x + ' is not a type string.';
2798                                 return lisp.write(x);
2799                             })();
2800                             (function(){
2801                                 var x = v176;
2802                                 if (typeof x != 'string')
2803                                     throw 'The value ' + x + ' is not a type string.';
2804                                 return lisp.write(x);
2805                             })();
2806                             return v202;
2807                         })();
2808                     }
2809                     catch (cf){
2810                         if (cf.type == 'block' && cf.id == 83)
2811                             return cf.value;
2812                         else
2813                             throw cf;
2814                     }
2815                 })();
2816             }));
2817         })();
2818         return l43;
2819     })();
2820     return (function(){
2821         (function(){
2822             return f77 = (function(v203){
2823                 ((v203)["fname"] = "PRINT");
2824                 return v203;
2825             })((function (v204){
2826                 if (arguments.length < 1) throw 'too few arguments';
2827                 if (arguments.length > 1) throw 'too many arguments';
2828                 return (function(){
2829                     try {
2830                         return (function(){
2831                             f76(f74(v204));
2832                             return v204;
2833                         })();
2834                     }
2835                     catch (cf){
2836                         if (cf.type == 'block' && cf.id == 84)
2837                             return cf.value;
2838                         else
2839                             throw cf;
2840                     }
2841                 })();
2842             }));
2843         })();
2844         return l44;
2845     })();
2846 })();
2847 var l45 = f3("MAKE-STRING-STREAM");
2848 var f78;
2849 (function(){
2850     (function(){
2851         return f78 = (function(v205){
2852             ((v205)["fname"] = "MAKE-STRING-STREAM");
2853             return v205;
2854         })((function (v206){
2855             if (arguments.length < 1) throw 'too few arguments';
2856             if (arguments.length > 1) throw 'too many arguments';
2857             return (function(){
2858                 try {
2859                     return (function(){
2860                         return ({car: v206, cdr: 0});
2861                     })();
2862                 }
2863                 catch (cf){
2864                     if (cf.type == 'block' && cf.id == 85)
2865                         return cf.value;
2866                     else
2867                         throw cf;
2868                 }
2869             })();
2870         }));
2871     })();
2872     return l45;
2873 })();
2874 var l46 = f3("%PEEK-CHAR");
2875 var f79;
2876 (function(){
2877     (function(){
2878         return f79 = (function(v207){
2879             ((v207)["fname"] = "%PEEK-CHAR");
2880             return v207;
2881         })((function (v208){
2882             if (arguments.length < 1) throw 'too few arguments';
2883             if (arguments.length > 1) throw 'too many arguments';
2884             return (function(){
2885                 try {
2886                     return (function(){
2887                         return (((function(){
2888                             var x = (function(){
2889                                 var tmp = v208;
2890                                 return tmp === v2? v2: tmp.cdr;
2891                             })();
2892                             var y = f43((function(){
2893                                 var tmp = v208;
2894                                 return tmp === v2? v2: tmp.car;
2895                             })());
2896                             if (typeof x != 'number')
2897                                 throw 'The value ' + x + ' is not a type number.';
2898                             if (typeof y != 'number')
2899                                 throw 'The value ' + y + ' is not a type number.';
2900                             return x<y;
2901                         })()?v3: v2) !== v2 ? (function(){
2902                             var string = (function(){
2903                                 var tmp = v208;
2904                                 return tmp === v2? v2: tmp.car;
2905                             })();
2906                             var index = (function(){
2907                                 var tmp = v208;
2908                                 return tmp === v2? v2: tmp.cdr;
2909                             })();
2910                             if (typeof string != 'string')
2911                                 throw 'The value ' + string + ' is not a type string.';
2912                             if (typeof index != 'number')
2913                                 throw 'The value ' + index + ' is not a type number.';
2914                             return string.charCodeAt(index);
2915                         })() : v2);
2916                     })();
2917                 }
2918                 catch (cf){
2919                     if (cf.type == 'block' && cf.id == 86)
2920                         return cf.value;
2921                     else
2922                         throw cf;
2923                 }
2924             })();
2925         }));
2926     })();
2927     return l46;
2928 })();
2929 var l47 = f3("%READ-CHAR");
2930 var f80;
2931 (function(){
2932     (function(){
2933         return f80 = (function(v209){
2934             ((v209)["fname"] = "%READ-CHAR");
2935             return v209;
2936         })((function (v210){
2937             if (arguments.length < 1) throw 'too few arguments';
2938             if (arguments.length > 1) throw 'too many arguments';
2939             return (function(){
2940                 try {
2941                     return (function(){
2942                         return (((function(){
2943                             var x = (function(){
2944                                 var tmp = v210;
2945                                 return tmp === v2? v2: tmp.cdr;
2946                             })();
2947                             var y = f43((function(){
2948                                 var tmp = v210;
2949                                 return tmp === v2? v2: tmp.car;
2950                             })());
2951                             if (typeof x != 'number')
2952                                 throw 'The value ' + x + ' is not a type number.';
2953                             if (typeof y != 'number')
2954                                 throw 'The value ' + y + ' is not a type number.';
2955                             return x<y;
2956                         })()?v3: v2) !== v2 ? (function(v211){
2957                             (function(){
2958                                 var x = v210;
2959                                 if (typeof x != 'object')
2960                                     throw 'The value ' + x + ' is not a type object.';
2961                                 return (x.cdr = f12((function(){
2962                                     var tmp = v210;
2963                                     return tmp === v2? v2: tmp.cdr;
2964                                 })()));
2965                             })();
2966                             return v211;
2967                         })((function(){
2968                             var string = (function(){
2969                                 var tmp = v210;
2970                                 return tmp === v2? v2: tmp.car;
2971                             })();
2972                             var index = (function(){
2973                                 var tmp = v210;
2974                                 return tmp === v2? v2: tmp.cdr;
2975                             })();
2976                             if (typeof string != 'string')
2977                                 throw 'The value ' + string + ' is not a type string.';
2978                             if (typeof index != 'number')
2979                                 throw 'The value ' + index + ' is not a type number.';
2980                             return string.charCodeAt(index);
2981                         })()) : v2);
2982                     })();
2983                 }
2984                 catch (cf){
2985                     if (cf.type == 'block' && cf.id == 87)
2986                         return cf.value;
2987                     else
2988                         throw cf;
2989                 }
2990             })();
2991         }));
2992     })();
2993     return l47;
2994 })();
2995 var l48 = f3("WHITESPACEP");
2996 var f81;
2997 (function(){
2998     (function(){
2999         return f81 = (function(v212){
3000             ((v212)["fname"] = "WHITESPACEP");
3001             return v212;
3002         })((function (v213){
3003             if (arguments.length < 1) throw 'too few arguments';
3004             if (arguments.length > 1) throw 'too many arguments';
3005             return (function(){
3006                 try {
3007                     return (function(){
3008                         return (function(v214){
3009                             return (v214 !== v2 ? v214 : (function(v215){
3010                                 return (v215 !== v2 ? v215 : f50(v213, 9));
3011                             })(f50(v213, 10)));
3012                         })(f50(v213, 32));
3013                     })();
3014                 }
3015                 catch (cf){
3016                     if (cf.type == 'block' && cf.id == 88)
3017                         return cf.value;
3018                     else
3019                         throw cf;
3020                 }
3021             })();
3022         }));
3023     })();
3024     return l48;
3025 })();
3026 var l49 = f3("SKIP-WHITESPACES");
3027 var f82;
3028 (function(){
3029     (function(){
3030         return f82 = (function(v216){
3031             ((v216)["fname"] = "SKIP-WHITESPACES");
3032             return v216;
3033         })((function (v217){
3034             if (arguments.length < 1) throw 'too few arguments';
3035             if (arguments.length > 1) throw 'too many arguments';
3036             return (function(){
3037                 try {
3038                     return (function(){
3039                         return (function(v218){
3040                             v218 = f79(v217);
3041                             return (function(){
3042                                 try {
3043                                     return (function(){
3044                                         return (function(){
3045                                             while((v218 !== v2 ? f81(v218) : v2) !== v2){
3046                                                 f80(v217);
3047                                                 v218 = f79(v217);
3048                                             }return v2;
3049                                         })();
3050                                     })();
3051                                 }
3052                                 catch (cf){
3053                                     if (cf.type == 'block' && cf.id == 90)
3054                                         return cf.value;
3055                                     else
3056                                         throw cf;
3057                                 }
3058                             })();
3059                         })(v2);
3060                     })();
3061                 }
3062                 catch (cf){
3063                     if (cf.type == 'block' && cf.id == 89)
3064                         return cf.value;
3065                     else
3066                         throw cf;
3067                 }
3068             })();
3069         }));
3070     })();
3071     return l49;
3072 })();
3073 var l50 = f3("TERMINALP");
3074 var f83;
3075 (function(){
3076     (function(){
3077         return f83 = (function(v219){
3078             ((v219)["fname"] = "TERMINALP");
3079             return v219;
3080         })((function (v220){
3081             if (arguments.length < 1) throw 'too few arguments';
3082             if (arguments.length > 1) throw 'too many arguments';
3083             return (function(){
3084                 try {
3085                     return (function(){
3086                         return (function(v221){
3087                             return (v221 !== v2 ? v221 : (function(v222){
3088                                 return (v222 !== v2 ? v222 : (function(v223){
3089                                     return (v223 !== v2 ? v223 : f50(40, v220));
3090                                 })(f50(41, v220)));
3091                             })(f81(v220)));
3092                         })(f1(v220));
3093                     })();
3094                 }
3095                 catch (cf){
3096                     if (cf.type == 'block' && cf.id == 91)
3097                         return cf.value;
3098                     else
3099                         throw cf;
3100                 }
3101             })();
3102         }));
3103     })();
3104     return l50;
3105 })();
3106 var l51 = f3("READ-UNTIL");
3107 var f84;
3108 (function(){
3109     (function(){
3110         return f84 = (function(v224){
3111             ((v224)["fname"] = "READ-UNTIL");
3112             return v224;
3113         })((function (v225,v226){
3114             if (arguments.length < 2) throw 'too few arguments';
3115             if (arguments.length > 2) throw 'too many arguments';
3116             return (function(){
3117                 try {
3118                     return (function(){
3119                         return (function(v227,v228){
3120                             v228 = f79(v225);
3121                             (function(){
3122                                 try {
3123                                     return (function(){
3124                                         return (function(){
3125                                             while((v228 !== v2 ? f17((v226)(v228)) : v2) !== v2){
3126                                                 v227 = f68(v227, (function(){
3127                                                     var x = v228;
3128                                                     if (typeof x != 'number')
3129                                                         throw 'The value ' + x + ' is not a type number.';
3130                                                     return String.fromCharCode(x);
3131                                                 })());
3132                                                 f80(v225);
3133                                                 v228 = f79(v225);
3134                                             }return v2;
3135                                         })();
3136                                     })();
3137                                 }
3138                                 catch (cf){
3139                                     if (cf.type == 'block' && cf.id == 93)
3140                                         return cf.value;
3141                                     else
3142                                         throw cf;
3143                                 }
3144                             })();
3145                             return v227;
3146                         })("",v2);
3147                     })();
3148                 }
3149                 catch (cf){
3150                     if (cf.type == 'block' && cf.id == 92)
3151                         return cf.value;
3152                     else
3153                         throw cf;
3154                 }
3155             })();
3156         }));
3157     })();
3158     return l51;
3159 })();
3160 var l52 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3161 var f85;
3162 (function(){
3163     (function(){
3164         return f85 = (function(v229){
3165             ((v229)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3166             return v229;
3167         })((function (v230){
3168             if (arguments.length < 1) throw 'too few arguments';
3169             if (arguments.length > 1) throw 'too many arguments';
3170             return (function(){
3171                 try {
3172                     return (function(){
3173                         return (function(v231){
3174                             f82(v230);
3175                             v231 = f79(v230);
3176                             return (function(){
3177                                 try {
3178                                     return (function(){
3179                                         return (function(){
3180                                             while((v231 !== v2 ? f50(v231, 59) : v2) !== v2){
3181                                                 f84(v230, (function (v232){
3182                                                     if (arguments.length < 1) throw 'too few arguments';
3183                                                     if (arguments.length > 1) throw 'too many arguments';
3184                                                     return f50(v232, 10);
3185                                                 }));
3186                                                 f82(v230);
3187                                                 v231 = f79(v230);
3188                                             }return v2;
3189                                         })();
3190                                     })();
3191                                 }
3192                                 catch (cf){
3193                                     if (cf.type == 'block' && cf.id == 95)
3194                                         return cf.value;
3195                                     else
3196                                         throw cf;
3197                                 }
3198                             })();
3199                         })(v2);
3200                     })();
3201                 }
3202                 catch (cf){
3203                     if (cf.type == 'block' && cf.id == 94)
3204                         return cf.value;
3205                     else
3206                         throw cf;
3207                 }
3208             })();
3209         }));
3210     })();
3211     return l52;
3212 })();
3213 var l53 = f3("%READ-LIST");
3214 var f86;
3215 (function(){
3216     (function(){
3217         return f86 = (function(v233){
3218             ((v233)["fname"] = "%READ-LIST");
3219             return v233;
3220         })((function (v234){
3221             if (arguments.length < 1) throw 'too few arguments';
3222             if (arguments.length > 1) throw 'too many arguments';
3223             return (function(){
3224                 try {
3225                     return (function(){
3226                         f85(v234);
3227                         return (function(v235){
3228                             return (f1(v235) !== v2 ? (function(){
3229                                 return (function(){
3230                                     throw "Unspected EOF";
3231                                 })();
3232                             })() : (f50(v235, 41) !== v2 ? (function(){
3233                                 f80(v234);
3234                                 return v2;
3235                             })() : (f50(v235, 46) !== v2 ? (function(){
3236                                 f80(v234);
3237                                 return (function(v236){
3238                                     f85(v234);
3239                                     (f50(f80(v234), 41) !== v2 ? v2 : (function(){
3240                                         return (function(){
3241                                             throw "')' was expected.";
3242                                         })();
3243                                     })());
3244                                     return v236;
3245                                 })(f87(v234));
3246                             })() : (function(){
3247                                 return ({car: f87(v234), cdr: f86(v234)});
3248                             })())));
3249                         })(f79(v234));
3250                     })();
3251                 }
3252                 catch (cf){
3253                     if (cf.type == 'block' && cf.id == 96)
3254                         return cf.value;
3255                     else
3256                         throw cf;
3257                 }
3258             })();
3259         }));
3260     })();
3261     return l53;
3262 })();
3263 var l54 = f3("READ-STRING");
3264 var f88;
3265 (function(){
3266     (function(){
3267         return f88 = (function(v237){
3268             ((v237)["fname"] = "READ-STRING");
3269             return v237;
3270         })((function (v238){
3271             if (arguments.length < 1) throw 'too few arguments';
3272             if (arguments.length > 1) throw 'too many arguments';
3273             return (function(){
3274                 try {
3275                     return (function(){
3276                         return (function(v239,v240){
3277                             v240 = f80(v238);
3278                             (function(){
3279                                 try {
3280                                     return (function(){
3281                                         return (function(){
3282                                             while(f17(f16(v240, 34)) !== v2){
3283                                                 (f1(v240) !== v2 ? (function(){
3284                                                     return (function(){
3285                                                         throw "Unexpected EOF";
3286                                                     })();
3287                                                 })() : v2);
3288                                                 (f16(v240, 92) !== v2 ? (function(){
3289                                                     return v240 = f80(v238);
3290                                                 })() : v2);
3291                                                 v239 = f68(v239, (function(){
3292                                                     var x = v240;
3293                                                     if (typeof x != 'number')
3294                                                         throw 'The value ' + x + ' is not a type number.';
3295                                                     return String.fromCharCode(x);
3296                                                 })());
3297                                                 v240 = f80(v238);
3298                                             }return v2;
3299                                         })();
3300                                     })();
3301                                 }
3302                                 catch (cf){
3303                                     if (cf.type == 'block' && cf.id == 98)
3304                                         return cf.value;
3305                                     else
3306                                         throw cf;
3307                                 }
3308                             })();
3309                             return v239;
3310                         })("",v2);
3311                     })();
3312                 }
3313                 catch (cf){
3314                     if (cf.type == 'block' && cf.id == 97)
3315                         return cf.value;
3316                     else
3317                         throw cf;
3318                 }
3319             })();
3320         }));
3321     })();
3322     return l54;
3323 })();
3324 var l59 = f3("READ-SHARP");
3325 var l58 = 43;
3326 var l57 = 92;
3327 var l56 = f3("FUNCTION");
3328 var l55 = 39;
3329 var f89;
3330 (function(){
3331     (function(){
3332         return f89 = (function(v241){
3333             ((v241)["fname"] = "READ-SHARP");
3334             return v241;
3335         })((function (v242){
3336             if (arguments.length < 1) throw 'too few arguments';
3337             if (arguments.length > 1) throw 'too many arguments';
3338             return (function(){
3339                 try {
3340                     return (function(){
3341                         f80(v242);
3342                         return (function(v243){
3343                             return (f16(v243, l55) !== v2 ? (function(){
3344                                 return f33(l56, f87(v242));
3345                             })() : (f16(v243, l57) !== v2 ? (function(){
3346                                 return (function(v244){
3347                                     return (f67(v244, "space") !== v2 ? (function(){
3348                                         return f49(32);
3349                                     })() : (f67(v244, "tab") !== v2 ? (function(){
3350                                         return f49(9);
3351                                     })() : (f67(v244, "newline") !== v2 ? (function(){
3352                                         return f49(10);
3353                                     })() : (function(){
3354                                         return f49((function(){
3355                                             var string = v244;
3356                                             var index = 0;
3357                                             if (typeof string != 'string')
3358                                                 throw 'The value ' + string + ' is not a type string.';
3359                                             if (typeof index != 'number')
3360                                                 throw 'The value ' + index + ' is not a type number.';
3361                                             return string.charCodeAt(index);
3362                                         })());
3363                                     })())));
3364                                 })(f68((function(){
3365                                     var x = f80(v242);
3366                                     if (typeof x != 'number')
3367                                         throw 'The value ' + x + ' is not a type number.';
3368                                     return String.fromCharCode(x);
3369                                 })(), f84(v242, f83)));
3370                             })() : (f16(v243, l58) !== v2 ? (function(){
3371                                 return (function(v245){
3372                                     return (f67(v245, "common-lisp") !== v2 ? (function(){
3373                                         f87(v242);
3374                                         return f87(v242);
3375                                     })() : (f67(v245, "ecmalisp") !== v2 ? (function(){
3376                                         return f87(v242);
3377                                     })() : (function(){
3378                                         return (function(){
3379                                             throw "Unknown reader form.";
3380                                         })();
3381                                     })()));
3382                                 })(f84(v242, f83));
3383                             })() : (function(){
3384                                 return (function(){
3385                                     throw "ECASE expression failed.";
3386                                 })();
3387                             })())));
3388                         })(f80(v242));
3389                     })();
3390                 }
3391                 catch (cf){
3392                     if (cf.type == 'block' && cf.id == 99)
3393                         return cf.value;
3394                     else
3395                         throw cf;
3396                 }
3397             })();
3398         }));
3399     })();
3400     return l59;
3401 })();
3402 var l60 = f3("*EOF*");
3403 var v246;
3404 (function(){
3405     (function(){
3406         return v246 = (function(){
3407             var name = "EOF";
3408             if (typeof name != 'string')
3409                 throw 'The value ' + name + ' is not a type string.';
3410             return ({name: name});
3411         })();
3412     })();
3413     return l60;
3414 })();
3415 var l65 = f3("LS-READ");
3416 var l64 = f3("UNQUOTE");
3417 var l63 = f3("UNQUOTE-SPLICING");
3418 var l62 = f3("BACKQUOTE");
3419 var l61 = f3("QUOTE");
3420 var f87;
3421 (function(){
3422     (function(){
3423         return f87 = (function(v247){
3424             ((v247)["fname"] = "LS-READ");
3425             return v247;
3426         })((function (v248){
3427             if (arguments.length < 1) throw 'too few arguments';
3428             if (arguments.length > 1) throw 'too many arguments';
3429             return (function(){
3430                 try {
3431                     return (function(){
3432                         f85(v248);
3433                         return (function(v249){
3434                             return (f1(v249) !== v2 ? (function(){
3435                                 return v246;
3436                             })() : (f50(v249, 40) !== v2 ? (function(){
3437                                 f80(v248);
3438                                 return f86(v248);
3439                             })() : (f50(v249, 39) !== v2 ? (function(){
3440                                 f80(v248);
3441                                 return f33(l61, f87(v248));
3442                             })() : (f50(v249, 96) !== v2 ? (function(){
3443                                 f80(v248);
3444                                 return f33(l62, f87(v248));
3445                             })() : (f50(v249, 34) !== v2 ? (function(){
3446                                 f80(v248);
3447                                 return f88(v248);
3448                             })() : (f50(v249, 44) !== v2 ? (function(){
3449                                 f80(v248);
3450                                 return (f16(f79(v248), 64) !== v2 ? (function(){
3451                                     f80(v248);
3452                                     return f33(l63, f87(v248));
3453                                 })() : f33(l64, f87(v248)));
3454                             })() : (f50(v249, 35) !== v2 ? (function(){
3455                                 return f89(v248);
3456                             })() : (function(){
3457                                 return (function(v250){
3458                                     return (f65(f61, v250) !== v2 ? f63(v250) : f3((function(){
3459                                         var x = v250;
3460                                         if (typeof x != 'string')
3461                                             throw 'The value ' + x + ' is not a type string.';
3462                                         return x.toUpperCase();
3463                                     })()));
3464                                 })(f84(v248, f83));
3465                             })())))))));
3466                         })(f79(v248));
3467                     })();
3468                 }
3469                 catch (cf){
3470                     if (cf.type == 'block' && cf.id == 100)
3471                         return cf.value;
3472                     else
3473                         throw cf;
3474                 }
3475             })();
3476         }));
3477     })();
3478     return l65;
3479 })();
3480 var l66 = f3("LS-READ-FROM-STRING");
3481 var f90;
3482 (function(){
3483     (function(){
3484         return f90 = (function(v251){
3485             ((v251)["fname"] = "LS-READ-FROM-STRING");
3486             return v251;
3487         })((function (v252){
3488             if (arguments.length < 1) throw 'too few arguments';
3489             if (arguments.length > 1) throw 'too many arguments';
3490             return (function(){
3491                 try {
3492                     return (function(){
3493                         return f87(f78(v252));
3494                     })();
3495                 }
3496                 catch (cf){
3497                     if (cf.type == 'block' && cf.id == 101)
3498                         return cf.value;
3499                     else
3500                         throw cf;
3501                 }
3502             })();
3503         }));
3504     })();
3505     return l66;
3506 })();
3507 var l68 = f3("*COMPILATION-UNIT-CHECKS*");
3508 var l67 = f3("NIL");
3509 var v253;
3510 (function(){
3511     (function(){
3512         return v253 = l67;
3513     })();
3514     return l68;
3515 })();
3516 var l69 = f3("MAKE-BINDING");
3517 var f91;
3518 (function(){
3519     (function(){
3520         return f91 = (function(v254){
3521             ((v254)["fname"] = "MAKE-BINDING");
3522             return v254;
3523         })((function (v255,v256,v257,v258){
3524             if (arguments.length < 4) throw 'too few arguments';
3525             if (arguments.length > 4) throw 'too many arguments';
3526             return (function(){
3527                 try {
3528                     return (function(){
3529                         return f33(v255, v256, v257, v258);
3530                     })();
3531                 }
3532                 catch (cf){
3533                     if (cf.type == 'block' && cf.id == 102)
3534                         return cf.value;
3535                     else
3536                         throw cf;
3537                 }
3538             })();
3539         }));
3540     })();
3541     return l69;
3542 })();
3543 var l70 = f3("BINDING-NAME");
3544 var f92;
3545 (function(){
3546     (function(){
3547         return f92 = (function(v259){
3548             ((v259)["fname"] = "BINDING-NAME");
3549             return v259;
3550         })((function (v260){
3551             if (arguments.length < 1) throw 'too few arguments';
3552             if (arguments.length > 1) throw 'too many arguments';
3553             return (function(){
3554                 try {
3555                     return (function(){
3556                         return f29(v260);
3557                     })();
3558                 }
3559                 catch (cf){
3560                     if (cf.type == 'block' && cf.id == 103)
3561                         return cf.value;
3562                     else
3563                         throw cf;
3564                 }
3565             })();
3566         }));
3567     })();
3568     return l70;
3569 })();
3570 var l71 = f3("BINDING-TYPE");
3571 var f93;
3572 (function(){
3573     (function(){
3574         return f93 = (function(v261){
3575             ((v261)["fname"] = "BINDING-TYPE");
3576             return v261;
3577         })((function (v262){
3578             if (arguments.length < 1) throw 'too few arguments';
3579             if (arguments.length > 1) throw 'too many arguments';
3580             return (function(){
3581                 try {
3582                     return (function(){
3583                         return f30(v262);
3584                     })();
3585                 }
3586                 catch (cf){
3587                     if (cf.type == 'block' && cf.id == 104)
3588                         return cf.value;
3589                     else
3590                         throw cf;
3591                 }
3592             })();
3593         }));
3594     })();
3595     return l71;
3596 })();
3597 var l72 = f3("BINDING-TRANSLATION");
3598 var f94;
3599 (function(){
3600     (function(){
3601         return f94 = (function(v263){
3602             ((v263)["fname"] = "BINDING-TRANSLATION");
3603             return v263;
3604         })((function (v264){
3605             if (arguments.length < 1) throw 'too few arguments';
3606             if (arguments.length > 1) throw 'too many arguments';
3607             return (function(){
3608                 try {
3609                     return (function(){
3610                         return f31(v264);
3611                     })();
3612                 }
3613                 catch (cf){
3614                     if (cf.type == 'block' && cf.id == 105)
3615                         return cf.value;
3616                     else
3617                         throw cf;
3618                 }
3619             })();
3620         }));
3621     })();
3622     return l72;
3623 })();
3624 var l73 = f3("BINDING-DECLARED");
3625 var f95;
3626 (function(){
3627     (function(){
3628         return f95 = (function(v265){
3629             ((v265)["fname"] = "BINDING-DECLARED");
3630             return v265;
3631         })((function (v266){
3632             if (arguments.length < 1) throw 'too few arguments';
3633             if (arguments.length > 1) throw 'too many arguments';
3634             return (function(){
3635                 try {
3636                     return (function(){
3637                         return (v266 !== v2 ? f32(v266) : v2);
3638                     })();
3639                 }
3640                 catch (cf){
3641                     if (cf.type == 'block' && cf.id == 106)
3642                         return cf.value;
3643                     else
3644                         throw cf;
3645                 }
3646             })();
3647         }));
3648     })();
3649     return l73;
3650 })();
3651 var l74 = f3("MARK-BINDING-AS-DECLARED");
3652 var f96;
3653 (function(){
3654     (function(){
3655         return f96 = (function(v267){
3656             ((v267)["fname"] = "MARK-BINDING-AS-DECLARED");
3657             return v267;
3658         })((function (v268){
3659             if (arguments.length < 1) throw 'too few arguments';
3660             if (arguments.length > 1) throw 'too many arguments';
3661             return (function(){
3662                 try {
3663                     return (function(){
3664                         return (function(){
3665                             var x = f27(v268);
3666                             if (typeof x != 'object')
3667                                 throw 'The value ' + x + ' is not a type object.';
3668                             return (x.car = v3);
3669                         })();
3670                     })();
3671                 }
3672                 catch (cf){
3673                     if (cf.type == 'block' && cf.id == 107)
3674                         return cf.value;
3675                     else
3676                         throw cf;
3677                 }
3678             })();
3679         }));
3680     })();
3681     return l74;
3682 })();
3683 var l75 = f3("MAKE-LEXENV");
3684 var f97;
3685 (function(){
3686     (function(){
3687         return f97 = (function(v269){
3688             ((v269)["fname"] = "MAKE-LEXENV");
3689             return v269;
3690         })((function (){
3691             if (arguments.length > 0) throw 'too many arguments';
3692             return (function(){
3693                 try {
3694                     return (function(){
3695                         return f33(v2, v2, v2, v2);
3696                     })();
3697                 }
3698                 catch (cf){
3699                     if (cf.type == 'block' && cf.id == 108)
3700                         return cf.value;
3701                     else
3702                         throw cf;
3703                 }
3704             })();
3705         }));
3706     })();
3707     return l75;
3708 })();
3709 var l76 = f3("COPY-LEXENV");
3710 var f98;
3711 (function(){
3712     (function(){
3713         return f98 = (function(v270){
3714             ((v270)["fname"] = "COPY-LEXENV");
3715             return v270;
3716         })((function (v271){
3717             if (arguments.length < 1) throw 'too few arguments';
3718             if (arguments.length > 1) throw 'too many arguments';
3719             return (function(){
3720                 try {
3721                     return (function(){
3722                         return f47(v271);
3723                     })();
3724                 }
3725                 catch (cf){
3726                     if (cf.type == 'block' && cf.id == 109)
3727                         return cf.value;
3728                     else
3729                         throw cf;
3730                 }
3731             })();
3732         }));
3733     })();
3734     return l76;
3735 })();
3736 var l81 = f3("PUSH-TO-LEXENV");
3737 var l80 = f3("GOTAG");
3738 var l79 = f3("BLOCK");
3739 var l78 = f3("FUNCTION");
3740 var l77 = f3("VARIABLE");
3741 var f99;
3742 (function(){
3743     (function(){
3744         return f99 = (function(v272){
3745             ((v272)["fname"] = "PUSH-TO-LEXENV");
3746             return v272;
3747         })((function (v273,v274,v275){
3748             if (arguments.length < 3) throw 'too few arguments';
3749             if (arguments.length > 3) throw 'too many arguments';
3750             return (function(){
3751                 try {
3752                     return (function(){
3753                         return (function(v276){
3754                             return (f16(v276, l77) !== v2 ? (function(){
3755                                 return (function(){
3756                                     var x = v274;
3757                                     if (typeof x != 'object')
3758                                         throw 'The value ' + x + ' is not a type object.';
3759                                     return (x.car = ({car: v273, cdr: (function(){
3760                                         var tmp = v274;
3761                                         return tmp === v2? v2: tmp.car;
3762                                     })()}));
3763                                 })();
3764                             })() : (f16(v276, l78) !== v2 ? (function(){
3765                                 return (function(){
3766                                     var x = (function(){
3767                                         var tmp = v274;
3768                                         return tmp === v2? v2: tmp.cdr;
3769                                     })();
3770                                     if (typeof x != 'object')
3771                                         throw 'The value ' + x + ' is not a type object.';
3772                                     return (x.car = ({car: v273, cdr: f23(v274)}));
3773                                 })();
3774                             })() : (f16(v276, l79) !== v2 ? (function(){
3775                                 return (function(){
3776                                     var x = f25(v274);
3777                                     if (typeof x != 'object')
3778                                         throw 'The value ' + x + ' is not a type object.';
3779                                     return (x.car = ({car: v273, cdr: f26(v274)}));
3780                                 })();
3781                             })() : (f16(v276, l80) !== v2 ? (function(){
3782                                 return (function(){
3783                                     var x = f27(v274);
3784                                     if (typeof x != 'object')
3785                                         throw 'The value ' + x + ' is not a type object.';
3786                                     return (x.car = ({car: v273, cdr: f28(v274)}));
3787                                 })();
3788                             })() : (function(){
3789                                 return (function(){
3790                                     throw "ECASE expression failed.";
3791                                 })();
3792                             })()))));
3793                         })(v275);
3794                     })();
3795                 }
3796                 catch (cf){
3797                     if (cf.type == 'block' && cf.id == 110)
3798                         return cf.value;
3799                     else
3800                         throw cf;
3801                 }
3802             })();
3803         }));
3804     })();
3805     return l81;
3806 })();
3807 var l82 = f3("EXTEND-LEXENV");
3808 var f100;
3809 (function(){
3810     (function(){
3811         return f100 = (function(v277){
3812             ((v277)["fname"] = "EXTEND-LEXENV");
3813             return v277;
3814         })((function (v278,v279,v280){
3815             if (arguments.length < 3) throw 'too few arguments';
3816             if (arguments.length > 3) throw 'too many arguments';
3817             return (function(){
3818                 try {
3819                     return (function(){
3820                         return (function(v281){
3821                             return (function(){
3822                                 try {
3823                                     return (function(){
3824                                         return (function(v282,v283){
3825                                             (function(){
3826                                                 while(v282 !== v2){
3827                                                     v283 = (function(){
3828                                                         var tmp = v282;
3829                                                         return tmp === v2? v2: tmp.car;
3830                                                     })();
3831                                                     (function(){
3832                                                         f99(v283, v281, v280);
3833                                                         return v2;
3834                                                     })();
3835                                                     v282 = (function(){
3836                                                         var tmp = v282;
3837                                                         return tmp === v2? v2: tmp.cdr;
3838                                                     })();
3839                                                 }return v2;
3840                                             })();
3841                                             return v281;
3842                                         })(f41(v278),v2);
3843                                     })();
3844                                 }
3845                                 catch (cf){
3846                                     if (cf.type == 'block' && cf.id == 112)
3847                                         return cf.value;
3848                                     else
3849                                         throw cf;
3850                                 }
3851                             })();
3852                         })(f98(v279));
3853                     })();
3854                 }
3855                 catch (cf){
3856                     if (cf.type == 'block' && cf.id == 111)
3857                         return cf.value;
3858                     else
3859                         throw cf;
3860                 }
3861             })();
3862         }));
3863     })();
3864     return l82;
3865 })();
3866 var l87 = f3("LOOKUP-IN-LEXENV");
3867 var l86 = f3("GOTAG");
3868 var l85 = f3("BLOCK");
3869 var l84 = f3("FUNCTION");
3870 var l83 = f3("VARIABLE");
3871 var f101;
3872 (function(){
3873     (function(){
3874         return f101 = (function(v284){
3875             ((v284)["fname"] = "LOOKUP-IN-LEXENV");
3876             return v284;
3877         })((function (v285,v286,v287){
3878             if (arguments.length < 3) throw 'too few arguments';
3879             if (arguments.length > 3) throw 'too many arguments';
3880             return (function(){
3881                 try {
3882                     return (function(){
3883                         return f66(v285, (function(v288){
3884                             return (f16(v288, l83) !== v2 ? (function(){
3885                                 return f29(v286);
3886                             })() : (f16(v288, l84) !== v2 ? (function(){
3887                                 return f30(v286);
3888                             })() : (f16(v288, l85) !== v2 ? (function(){
3889                                 return f31(v286);
3890                             })() : (f16(v288, l86) !== v2 ? (function(){
3891                                 return f32(v286);
3892                             })() : (function(){
3893                                 return (function(){
3894                                     throw "ECASE expression failed.";
3895                                 })();
3896                             })()))));
3897                         })(v287));
3898                     })();
3899                 }
3900                 catch (cf){
3901                     if (cf.type == 'block' && cf.id == 113)
3902                         return cf.value;
3903                     else
3904                         throw cf;
3905                 }
3906             })();
3907         }));
3908     })();
3909     return l87;
3910 })();
3911 var l88 = f3("*ENVIRONMENT*");
3912 var v289;
3913 (function(){
3914     (function(){
3915         return v289 = f97();
3916     })();
3917     return l88;
3918 })();
3919 var l89 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3920 var f102;
3921 (function(){
3922     (function(){
3923         return f102 = (function(v290){
3924             ((v290)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3925             return v290;
3926         })((function (){
3927             if (arguments.length > 0) throw 'too many arguments';
3928             return (function(){
3929                 try {
3930                     return (function(){
3931                         return v289 = f45((function (v291){
3932                             if (arguments.length < 1) throw 'too few arguments';
3933                             if (arguments.length > 1) throw 'too many arguments';
3934                             return f60(f95, v291);
3935                         }), v289);
3936                     })();
3937                 }
3938                 catch (cf){
3939                     if (cf.type == 'block' && cf.id == 114)
3940                         return cf.value;
3941                     else
3942                         throw cf;
3943                 }
3944             })();
3945         }));
3946     })();
3947     return l89;
3948 })();
3949 var l90 = f3("*VARIABLE-COUNTER*");
3950 var v292;
3951 (function(){
3952     (function(){
3953         return v292 = 0;
3954     })();
3955     return l90;
3956 })();
3957 var l91 = f3("GVARNAME");
3958 var f103;
3959 (function(){
3960     (function(){
3961         return f103 = (function(v293){
3962             ((v293)["fname"] = "GVARNAME");
3963             return v293;
3964         })((function (v294){
3965             if (arguments.length < 1) throw 'too few arguments';
3966             if (arguments.length > 1) throw 'too many arguments';
3967             return (function(){
3968                 try {
3969                     return (function(){
3970                         return f68("v", f6(v292 = (function(){
3971                             var x = v292;
3972                             var y = 1;
3973                             if (typeof x != 'number')
3974                                 throw 'The value ' + x + ' is not a type number.';
3975                             if (typeof y != 'number')
3976                                 throw 'The value ' + y + ' is not a type number.';
3977                             return x+y;
3978                         })()));
3979                     })();
3980                 }
3981                 catch (cf){
3982                     if (cf.type == 'block' && cf.id == 115)
3983                         return cf.value;
3984                     else
3985                         throw cf;
3986                 }
3987             })();
3988         }));
3989     })();
3990     return l91;
3991 })();
3992 var l97 = f3("LOOKUP-VARIABLE");
3993 var l96 = f3("VARIABLE");
3994 var l95 = f3("VARIABLE");
3995 var l94 = f3("VARIABLE");
3996 var l93 = f3("VARIABLE");
3997 var l92 = f3("VARIABLE");
3998 var f104;
3999 (function(){
4000     (function(){
4001         return f104 = (function(v295){
4002             ((v295)["fname"] = "LOOKUP-VARIABLE");
4003             return v295;
4004         })((function (v296,v297){
4005             if (arguments.length < 2) throw 'too few arguments';
4006             if (arguments.length > 2) throw 'too many arguments';
4007             return (function(){
4008                 try {
4009                     return (function(){
4010                         return (function(v298){
4011                             return (v298 !== v2 ? v298 : (function(v299){
4012                                 return (v299 !== v2 ? v299 : (function(v300,v301){
4013                                     f99(v301, v289, l92);
4014                                     v253 = ({car: (function (){
4015                                         if (arguments.length > 0) throw 'too many arguments';
4016                                         return (function(v302){
4017                                             return (f95(v302) !== v2 ? v2 : (function(){
4018                                                 return (function(){
4019                                                     throw f68("Undefined variable `", v300, "'");
4020                                                 })();
4021                                             })());
4022                                         })(f101(v296, v289, l93));
4023                                     }), cdr: v253});
4024                                     return v301;
4025                                 })((v296).name,f91(v296, l94, f103(v296), v2)));
4026                             })(f101(v296, v289, l95)));
4027                         })(f101(v296, v297, l96));
4028                     })();
4029                 }
4030                 catch (cf){
4031                     if (cf.type == 'block' && cf.id == 116)
4032                         return cf.value;
4033                     else
4034                         throw cf;
4035                 }
4036             })();
4037         }));
4038     })();
4039     return l97;
4040 })();
4041 var l98 = f3("LOOKUP-VARIABLE-TRANSLATION");
4042 var f105;
4043 (function(){
4044     (function(){
4045         return f105 = (function(v303){
4046             ((v303)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4047             return v303;
4048         })((function (v304,v305){
4049             if (arguments.length < 2) throw 'too few arguments';
4050             if (arguments.length > 2) throw 'too many arguments';
4051             return (function(){
4052                 try {
4053                     return (function(){
4054                         return f94(f104(v304, v305));
4055                     })();
4056                 }
4057                 catch (cf){
4058                     if (cf.type == 'block' && cf.id == 117)
4059                         return cf.value;
4060                     else
4061                         throw cf;
4062                 }
4063             })();
4064         }));
4065     })();
4066     return l98;
4067 })();
4068 var l101 = f3("EXTEND-LOCAL-ENV");
4069 var l100 = f3("VARIABLE");
4070 var l99 = f3("VARIABLE");
4071 var f106;
4072 (function(){
4073     (function(){
4074         return f106 = (function(v306){
4075             ((v306)["fname"] = "EXTEND-LOCAL-ENV");
4076             return v306;
4077         })((function (v307,v308){
4078             if (arguments.length < 2) throw 'too few arguments';
4079             if (arguments.length > 2) throw 'too many arguments';
4080             return (function(){
4081                 try {
4082                     return (function(){
4083                         return (function(v309){
4084                             return (function(){
4085                                 try {
4086                                     return (function(){
4087                                         return (function(v310,v311){
4088                                             (function(){
4089                                                 while(v310 !== v2){
4090                                                     v311 = (function(){
4091                                                         var tmp = v310;
4092                                                         return tmp === v2? v2: tmp.car;
4093                                                     })();
4094                                                     (function(){
4095                                                         (function(v312){
4096                                                             return f99(v312, v309, l99);
4097                                                         })(f91(v311, l100, f103(v311), v3));
4098                                                         return v2;
4099                                                     })();
4100                                                     v310 = (function(){
4101                                                         var tmp = v310;
4102                                                         return tmp === v2? v2: tmp.cdr;
4103                                                     })();
4104                                                 }return v2;
4105                                             })();
4106                                             return v309;
4107                                         })(v307,v2);
4108                                     })();
4109                                 }
4110                                 catch (cf){
4111                                     if (cf.type == 'block' && cf.id == 119)
4112                                         return cf.value;
4113                                     else
4114                                         throw cf;
4115                                 }
4116                             })();
4117                         })(f98(v308));
4118                     })();
4119                 }
4120                 catch (cf){
4121                     if (cf.type == 'block' && cf.id == 118)
4122                         return cf.value;
4123                     else
4124                         throw cf;
4125                 }
4126             })();
4127         }));
4128     })();
4129     return l101;
4130 })();
4131 var l102 = f3("*FUNCTION-COUNTER*");
4132 var v313;
4133 (function(){
4134     (function(){
4135         return v313 = 0;
4136     })();
4137     return l102;
4138 })();
4139 var l108 = f3("LOOKUP-FUNCTION");
4140 var l107 = f3("FUNCTION");
4141 var l106 = f3("FUNCTION");
4142 var l105 = f3("FUNCTION");
4143 var l104 = f3("FUNCTION");
4144 var l103 = f3("FUNCTION");
4145 var f107;
4146 (function(){
4147     (function(){
4148         return f107 = (function(v314){
4149             ((v314)["fname"] = "LOOKUP-FUNCTION");
4150             return v314;
4151         })((function (v315,v316){
4152             if (arguments.length < 2) throw 'too few arguments';
4153             if (arguments.length > 2) throw 'too many arguments';
4154             return (function(){
4155                 try {
4156                     return (function(){
4157                         return (function(v317){
4158                             return (v317 !== v2 ? v317 : (function(v318){
4159                                 return (v318 !== v2 ? v318 : (function(v319,v320){
4160                                     f99(v320, v289, l103);
4161                                     v253 = ({car: (function (){
4162                                         if (arguments.length > 0) throw 'too many arguments';
4163                                         return (function(v321){
4164                                             return (f95(v321) !== v2 ? v2 : (function(){
4165                                                 return (function(){
4166                                                     throw f68("Undefined function `", v319, "'");
4167                                                 })();
4168                                             })());
4169                                         })(f101(v315, v289, l104));
4170                                     }), cdr: v253});
4171                                     return v320;
4172                                 })((v315).name,f91(v315, l105, f68("f", f6(v313 = (function(){
4173                                     var x = v313;
4174                                     var y = 1;
4175                                     if (typeof x != 'number')
4176                                         throw 'The value ' + x + ' is not a type number.';
4177                                     if (typeof y != 'number')
4178                                         throw 'The value ' + y + ' is not a type number.';
4179                                     return x+y;
4180                                 })())), v2)));
4181                             })(f101(v315, v289, l106)));
4182                         })(f101(v315, v316, l107));
4183                     })();
4184                 }
4185                 catch (cf){
4186                     if (cf.type == 'block' && cf.id == 120)
4187                         return cf.value;
4188                     else
4189                         throw cf;
4190                 }
4191             })();
4192         }));
4193     })();
4194     return l108;
4195 })();
4196 var l109 = f3("LOOKUP-FUNCTION-TRANSLATION");
4197 var f108;
4198 (function(){
4199     (function(){
4200         return f108 = (function(v322){
4201             ((v322)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4202             return v322;
4203         })((function (v323,v324){
4204             if (arguments.length < 2) throw 'too few arguments';
4205             if (arguments.length > 2) throw 'too many arguments';
4206             return (function(){
4207                 try {
4208                     return (function(){
4209                         return f94(f107(v323, v324));
4210                     })();
4211                 }
4212                 catch (cf){
4213                     if (cf.type == 'block' && cf.id == 121)
4214                         return cf.value;
4215                     else
4216                         throw cf;
4217                 }
4218             })();
4219         }));
4220     })();
4221     return l109;
4222 })();
4223 var l110 = f3("*TOPLEVEL-COMPILATIONS*");
4224 var v325;
4225 (function(){
4226     (function(){
4227         return v325 = v2;
4228     })();
4229     return l110;
4230 })();
4231 var l111 = f3("%COMPILE-DEFVAR");
4232 var f109;
4233 (function(){
4234     (function(){
4235         return f109 = (function(v326){
4236             ((v326)["fname"] = "%COMPILE-DEFVAR");
4237             return v326;
4238         })((function (v327){
4239             if (arguments.length < 1) throw 'too few arguments';
4240             if (arguments.length > 1) throw 'too many arguments';
4241             return (function(){
4242                 try {
4243                     return (function(){
4244                         return (function(v328){
4245                             f96(v328);
4246                             return v325 = ({car: f68("var ", f94(v328)), cdr: v325});
4247                         })(f104(v327, v289));
4248                     })();
4249                 }
4250                 catch (cf){
4251                     if (cf.type == 'block' && cf.id == 122)
4252                         return cf.value;
4253                     else
4254                         throw cf;
4255                 }
4256             })();
4257         }));
4258     })();
4259     return l111;
4260 })();
4261 var l112 = f3("%COMPILE-DEFUN");
4262 var f110;
4263 (function(){
4264     (function(){
4265         return f110 = (function(v329){
4266             ((v329)["fname"] = "%COMPILE-DEFUN");
4267             return v329;
4268         })((function (v330){
4269             if (arguments.length < 1) throw 'too few arguments';
4270             if (arguments.length > 1) throw 'too many arguments';
4271             return (function(){
4272                 try {
4273                     return (function(){
4274                         return (function(v331){
4275                             f96(v331);
4276                             return v325 = ({car: f68("var ", f94(v331)), cdr: v325});
4277                         })(f107(v330, v289));
4278                     })();
4279                 }
4280                 catch (cf){
4281                     if (cf.type == 'block' && cf.id == 123)
4282                         return cf.value;
4283                     else
4284                         throw cf;
4285                 }
4286             })();
4287         }));
4288     })();
4289     return l112;
4290 })();
4291 var l115 = f3("%COMPILE-DEFMACRO");
4292 var l114 = f3("FUNCTION");
4293 var l113 = f3("MACRO");
4294 var f111;
4295 (function(){
4296     (function(){
4297         return f111 = (function(v332){
4298             ((v332)["fname"] = "%COMPILE-DEFMACRO");
4299             return v332;
4300         })((function (v333,v334){
4301             if (arguments.length < 2) throw 'too few arguments';
4302             if (arguments.length > 2) throw 'too many arguments';
4303             return (function(){
4304                 try {
4305                     return (function(){
4306                         return f99(f91(v333, l113, v334, v3), v289, l114);
4307                     })();
4308                 }
4309                 catch (cf){
4310                     if (cf.type == 'block' && cf.id == 124)
4311                         return cf.value;
4312                     else
4313                         throw cf;
4314                 }
4315             })();
4316         }));
4317     })();
4318     return l115;
4319 })();
4320 var l116 = f3("*COMPILATIONS*");
4321 var v335;
4322 (function(){
4323     (function(){
4324         return v335 = v2;
4325     })();
4326     return l116;
4327 })();
4328 var l117 = f3("LS-COMPILE-BLOCK");
4329 var f112;
4330 (function(){
4331     (function(){
4332         return f112 = (function(v336){
4333             ((v336)["fname"] = "LS-COMPILE-BLOCK");
4334             return v336;
4335         })((function (v337,v338){
4336             if (arguments.length < 2) throw 'too few arguments';
4337             if (arguments.length > 2) throw 'too many arguments';
4338             return (function(){
4339                 try {
4340                     return (function(){
4341                         return f70(f59((function (v339){
4342                             if (arguments.length < 1) throw 'too few arguments';
4343                             if (arguments.length > 1) throw 'too many arguments';
4344                             return (function(v340){
4345                                 return (v340 !== v2 ? v340 : (((typeof(v339) == "string")?v3: v2) !== v2 ? f14(f43(v339)) : v2));
4346                             })(f1(v339));
4347                         }), f45((function (v341){
4348                             if (arguments.length < 1) throw 'too few arguments';
4349                             if (arguments.length > 1) throw 'too many arguments';
4350                             return f73(v341, v338);
4351                         }), v337)), f68(";", v176));
4352                     })();
4353                 }
4354                 catch (cf){
4355                     if (cf.type == 'block' && cf.id == 125)
4356                         return cf.value;
4357                     else
4358                         throw cf;
4359                 }
4360             })();
4361         }));
4362     })();
4363     return l117;
4364 })();
4365 var l118 = f3("IF");
4366 v335 = ({car: f33(l118, (function (v342,v343,v344,v345){
4367     if (arguments.length < 4) throw 'too few arguments';
4368     if (arguments.length > 4) throw 'too many arguments';
4369     return (function(){
4370         try {
4371             return (function(){
4372                 return f68("(", f73(v343, v342), " !== ", f73(v2), " ? ", f73(v344, v342), " : ", f73(v345, v342), ")");
4373             })();
4374         }
4375         catch (cf){
4376             if (cf.type == 'block' && cf.id == 126)
4377                 return cf.value;
4378             else
4379                 throw cf;
4380         }
4381     })();
4382 })), cdr: v335});
4383 var l120 = f3("*LAMBDA-LIST-KEYWORDS*");
4384 var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4385 var v346;
4386 (function(){
4387     (function(){
4388         return v346 = l119;
4389     })();
4390     return l120;
4391 })();
4392 var l121 = f3("LIST-UNTIL-KEYWORD");
4393 var f113;
4394 (function(){
4395     (function(){
4396         return f113 = (function(v347){
4397             ((v347)["fname"] = "LIST-UNTIL-KEYWORD");
4398             return v347;
4399         })((function (v348){
4400             if (arguments.length < 1) throw 'too few arguments';
4401             if (arguments.length > 1) throw 'too many arguments';
4402             return (function(){
4403                 try {
4404                     return (function(){
4405                         return ((function(v349){
4406                             return (v349 !== v2 ? v349 : f57((function(){
4407                                 var tmp = v348;
4408                                 return tmp === v2? v2: tmp.car;
4409                             })(), v346));
4410                         })(f1(v348)) !== v2 ? v2 : ({car: (function(){
4411                             var tmp = v348;
4412                             return tmp === v2? v2: tmp.car;
4413                         })(), cdr: f113((function(){
4414                             var tmp = v348;
4415                             return tmp === v2? v2: tmp.cdr;
4416                         })())}));
4417                     })();
4418                 }
4419                 catch (cf){
4420                     if (cf.type == 'block' && cf.id == 127)
4421                         return cf.value;
4422                     else
4423                         throw cf;
4424                 }
4425             })();
4426         }));
4427     })();
4428     return l121;
4429 })();
4430 var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4431 var f114;
4432 (function(){
4433     (function(){
4434         return f114 = (function(v350){
4435             ((v350)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4436             return v350;
4437         })((function (v351){
4438             if (arguments.length < 1) throw 'too few arguments';
4439             if (arguments.length > 1) throw 'too many arguments';
4440             return (function(){
4441                 try {
4442                     return (function(){
4443                         return f113(v351);
4444                     })();
4445                 }
4446                 catch (cf){
4447                     if (cf.type == 'block' && cf.id == 128)
4448                         return cf.value;
4449                     else
4450                         throw cf;
4451                 }
4452             })();
4453         }));
4454     })();
4455     return l122;
4456 })();
4457 var l124 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4458 var l123 = f3("&OPTIONAL");
4459 var f115;
4460 (function(){
4461     (function(){
4462         return f115 = (function(v352){
4463             ((v352)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4464             return v352;
4465         })((function (v353){
4466             if (arguments.length < 1) throw 'too few arguments';
4467             if (arguments.length > 1) throw 'too many arguments';
4468             return (function(){
4469                 try {
4470                     return (function(){
4471                         return f45(f35, f113((function(){
4472                             var tmp = f57(l123, v353);
4473                             return tmp === v2? v2: tmp.cdr;
4474                         })()));
4475                     })();
4476                 }
4477                 catch (cf){
4478                     if (cf.type == 'block' && cf.id == 129)
4479                         return cf.value;
4480                     else
4481                         throw cf;
4482                 }
4483             })();
4484         }));
4485     })();
4486     return l124;
4487 })();
4488 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4489 var f116;
4490 (function(){
4491     (function(){
4492         return f116 = (function(v354){
4493             ((v354)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4494             return v354;
4495         })((function (v355){
4496             if (arguments.length < 1) throw 'too few arguments';
4497             if (arguments.length > 1) throw 'too many arguments';
4498             return (function(){
4499                 try {
4500                     return (function(){
4501                         return f45(f20, f115(v355));
4502                     })();
4503                 }
4504                 catch (cf){
4505                     if (cf.type == 'block' && cf.id == 130)
4506                         return cf.value;
4507                     else
4508                         throw cf;
4509                 }
4510             })();
4511         }));
4512     })();
4513     return l125;
4514 })();
4515 var l127 = f3("LAMBDA-LIST-REST-ARGUMENT");
4516 var l126 = f3("&REST");
4517 var f117;
4518 (function(){
4519     (function(){
4520         return f117 = (function(v356){
4521             ((v356)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4522             return v356;
4523         })((function (v357){
4524             if (arguments.length < 1) throw 'too few arguments';
4525             if (arguments.length > 1) throw 'too many arguments';
4526             return (function(){
4527                 try {
4528                     return (function(){
4529                         return (function(v358){
4530                             ((function(){
4531                                 var tmp = v358;
4532                                 return tmp === v2? v2: tmp.cdr;
4533                             })() !== v2 ? (function(){
4534                                 return (function(){
4535                                     throw "Bad lambda-list";
4536                                 })();
4537                             })() : v2);
4538                             return (function(){
4539                                 var tmp = v358;
4540                                 return tmp === v2? v2: tmp.car;
4541                             })();
4542                         })(f113((function(){
4543                             var tmp = f57(l126, v357);
4544                             return tmp === v2? v2: tmp.cdr;
4545                         })()));
4546                     })();
4547                 }
4548                 catch (cf){
4549                     if (cf.type == 'block' && cf.id == 131)
4550                         return cf.value;
4551                     else
4552                         throw cf;
4553                 }
4554             })();
4555         }));
4556     })();
4557     return l127;
4558 })();
4559 var l128 = f3("LAMBDA");
4560 v335 = ({car: f33(l128, (function (v360,v361){
4561     if (arguments.length < 2) throw 'too few arguments';
4562     var v359= v2;
4563     for (var i = arguments.length-1; i>=2; i--)
4564         v359 = {car: arguments[i], cdr: v359};
4565     return (function(){
4566         try {
4567             return (function(){
4568                 return (function(v362,v363,v364){
4569                     return (function(v365,v366,v367){
4570                         return f68("(function (", f69(f45((function (v368){
4571                             if (arguments.length < 1) throw 'too few arguments';
4572                             if (arguments.length > 1) throw 'too many arguments';
4573                             return f105(v368, v367);
4574                         }), f39(v362, v363)), ","), "){", v176, f71((v362 !== v2 ? f68("if (arguments.length < ", f6(v365), ") throw 'too few arguments';", v176) : ""), (f17(v364) !== v2 ? f68("if (arguments.length > ", f6((function(){
4575                             var x = v365;
4576                             var y = v366;
4577                             if (typeof x != 'number')
4578                                 throw 'The value ' + x + ' is not a type number.';
4579                             if (typeof y != 'number')
4580                                 throw 'The value ' + y + ' is not a type number.';
4581                             return x+y;
4582                         })()), ") throw 'too many arguments';", v176) : ""), (v363 !== v2 ? f68("switch(arguments.length){", v176, (function(v369,v370,v371){
4583                             return (function(){
4584                                 (function(){
4585                                     try {
4586                                         return (function(){
4587                                             return (function(){
4588                                                 while(((function(){
4589                                                     var x = v371;
4590                                                     var y = v366;
4591                                                     if (typeof x != 'number')
4592                                                         throw 'The value ' + x + ' is not a type number.';
4593                                                     if (typeof y != 'number')
4594                                                         throw 'The value ' + y + ' is not a type number.';
4595                                                     return x<y;
4596                                                 })()?v3: v2) !== v2){
4597                                                     (function(v372){
4598                                                         v370 = ({car: f68("case ", f6((function(){
4599                                                             var x = v371;
4600                                                             var y = v365;
4601                                                             if (typeof x != 'number')
4602                                                                 throw 'The value ' + x + ' is not a type number.';
4603                                                             if (typeof y != 'number')
4604                                                                 throw 'The value ' + y + ' is not a type number.';
4605                                                             return x+y;
4606                                                         })()), ":", v176, f105((function(){
4607                                                             var tmp = v372;
4608                                                             return tmp === v2? v2: tmp.car;
4609                                                         })(), v367), "=", f73(f23(v372), v367), ";", v176), cdr: v370});
4610                                                         return v371 = (function(){
4611                                                             var x = v371;
4612                                                             var y = 1;
4613                                                             if (typeof x != 'number')
4614                                                                 throw 'The value ' + x + ' is not a type number.';
4615                                                             if (typeof y != 'number')
4616                                                                 throw 'The value ' + y + ' is not a type number.';
4617                                                             return x+y;
4618                                                         })();
4619                                                     })(f54(v371, v369));
4620                                                 }return v2;
4621                                             })();
4622                                         })();
4623                                     }
4624                                     catch (cf){
4625                                         if (cf.type == 'block' && cf.id == 133)
4626                                             return cf.value;
4627                                         else
4628                                             throw cf;
4629                                     }
4630                                 })();
4631                                 v370 = ({car: f68("default: break;", v176), cdr: v370});
4632                                 return f69(f41(v370));
4633                             })();
4634                         })(f115(v361),v2,0), "}", v176) : ""), (v364 !== v2 ? (function(v373){
4635                             return f68("var ", v373, "= ", f73(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){
4636                                 var x = v365;
4637                                 var y = v366;
4638                                 if (typeof x != 'number')
4639                                     throw 'The value ' + x + ' is not a type number.';
4640                                 if (typeof y != 'number')
4641                                     throw 'The value ' + y + ' is not a type number.';
4642                                 return x+y;
4643                             })()), "; i--)", v176, f71(v373, " = ", "{car: arguments[i], cdr: "), v373, "};", v176);
4644                         })(f105(v364, v367)) : ""), f68(f112(f56(v359), v367), "return ", f73((function(){
4645                             var tmp = f55(v359);
4646                             return tmp === v2? v2: tmp.car;
4647                         })(), v367), ";")), v176, "})");
4648                     })(f43(v362),f43(v363),f106(f39(f35(v364), v362, v363), v360));
4649                 })(f114(v361),f116(v361),f117(v361));
4650             })();
4651         }
4652         catch (cf){
4653             if (cf.type == 'block' && cf.id == 132)
4654                 return cf.value;
4655             else
4656                 throw cf;
4657         }
4658     })();
4659 })), cdr: v335});
4660 var l129 = f3("FSETQ");
4661 v335 = ({car: f33(l129, (function (v374,v375,v376){
4662     if (arguments.length < 3) throw 'too few arguments';
4663     if (arguments.length > 3) throw 'too many arguments';
4664     return (function(){
4665         try {
4666             return (function(){
4667                 return f68(f108(v375, v374), " = ", f73(v376, v374));
4668             })();
4669         }
4670         catch (cf){
4671             if (cf.type == 'block' && cf.id == 134)
4672                 return cf.value;
4673             else
4674                 throw cf;
4675         }
4676     })();
4677 })), cdr: v335});
4678 var l130 = f3("SETQ");
4679 v335 = ({car: f33(l130, (function (v377,v378,v379){
4680     if (arguments.length < 3) throw 'too few arguments';
4681     if (arguments.length > 3) throw 'too many arguments';
4682     return (function(){
4683         try {
4684             return (function(){
4685                 return f68(f105(v378, v377), " = ", f73(v379, v377));
4686             })();
4687         }
4688         catch (cf){
4689             if (cf.type == 'block' && cf.id == 135)
4690                 return cf.value;
4691             else
4692                 throw cf;
4693         }
4694     })();
4695 })), cdr: v335});
4696 var l131 = f3("ESCAPE-STRING");
4697 var f75;
4698 (function(){
4699     (function(){
4700         return f75 = (function(v380){
4701             ((v380)["fname"] = "ESCAPE-STRING");
4702             return v380;
4703         })((function (v381){
4704             if (arguments.length < 1) throw 'too few arguments';
4705             if (arguments.length > 1) throw 'too many arguments';
4706             return (function(){
4707                 try {
4708                     return (function(){
4709                         return (function(v382,v383,v384){
4710                             (function(){
4711                                 try {
4712                                     return (function(){
4713                                         return (function(){
4714                                             while(((function(){
4715                                                 var x = v383;
4716                                                 var y = v384;
4717                                                 if (typeof x != 'number')
4718                                                     throw 'The value ' + x + ' is not a type number.';
4719                                                 if (typeof y != 'number')
4720                                                     throw 'The value ' + y + ' is not a type number.';
4721                                                 return x<y;
4722                                             })()?v3: v2) !== v2){
4723                                                 (function(v385){
4724                                                     ((function(v386){
4725                                                         return (v386 !== v2 ? v386 : f50(v385, 92));
4726                                                     })(f50(v385, 34)) !== v2 ? (function(){
4727                                                         return v382 = f68(v382, "\\");
4728                                                     })() : v2);
4729                                                     (f50(v385, 10) !== v2 ? (function(){
4730                                                         v382 = f68(v382, "\\");
4731                                                         return v385 = 110;
4732                                                     })() : v2);
4733                                                     return v382 = f68(v382, (function(){
4734                                                         var x = v385;
4735                                                         if (typeof x != 'number')
4736                                                             throw 'The value ' + x + ' is not a type number.';
4737                                                         return String.fromCharCode(x);
4738                                                     })());
4739                                                 })((function(){
4740                                                     var string = v381;
4741                                                     var index = v383;
4742                                                     if (typeof string != 'string')
4743                                                         throw 'The value ' + string + ' is not a type string.';
4744                                                     if (typeof index != 'number')
4745                                                         throw 'The value ' + index + ' is not a type number.';
4746                                                     return string.charCodeAt(index);
4747                                                 })());
4748                                                 v383 = (function(){
4749                                                     var x = v383;
4750                                                     var y = 1;
4751                                                     if (typeof x != 'number')
4752                                                         throw 'The value ' + x + ' is not a type number.';
4753                                                     if (typeof y != 'number')
4754                                                         throw 'The value ' + y + ' is not a type number.';
4755                                                     return x+y;
4756                                                 })();
4757                                             }return v2;
4758                                         })();
4759                                     })();
4760                                 }
4761                                 catch (cf){
4762                                     if (cf.type == 'block' && cf.id == 137)
4763                                         return cf.value;
4764                                     else
4765                                         throw cf;
4766                                 }
4767                             })();
4768                             return v382;
4769                         })("",0,f43(v381));
4770                     })();
4771                 }
4772                 catch (cf){
4773                     if (cf.type == 'block' && cf.id == 136)
4774                         return cf.value;
4775                     else
4776                         throw cf;
4777                 }
4778             })();
4779         }));
4780     })();
4781     return l131;
4782 })();
4783 var l133 = f3("LITERAL->JS");
4784 var l132 = f3("INTERN");
4785 var f118;
4786 (function(){
4787     (function(){
4788         return f118 = (function(v387){
4789             ((v387)["fname"] = "LITERAL->JS");
4790             return v387;
4791         })((function (v388){
4792             if (arguments.length < 1) throw 'too few arguments';
4793             if (arguments.length > 1) throw 'too many arguments';
4794             return (function(){
4795                 try {
4796                     return (function(){
4797                         return (f51(v388) !== v2 ? (function(){
4798                             return f6(v388);
4799                         })() : (((typeof(v388) == "string")?v3: v2) !== v2 ? (function(){
4800                             return f68("\"", f75(v388), "\"");
4801                         })() : (((function(){
4802                             var tmp = v388;
4803                             return (typeof tmp == 'object' && 'name' in tmp);
4804                         })()?v3: v2) !== v2 ? (function(){
4805                             return f73(f39(f33(l132), f33(f75((v388).name))), v289);
4806                         })() : (((function(){
4807                             var tmp = v388;
4808                             return (typeof tmp == 'object' && 'car' in tmp);
4809                         })()?v3: v2) !== v2 ? (function(){
4810                             return f68("{car: ", f118((function(){
4811                                 var tmp = v388;
4812                                 return tmp === v2? v2: tmp.car;
4813                             })()), ", cdr: ", f118((function(){
4814                                 var tmp = v388;
4815                                 return tmp === v2? v2: tmp.cdr;
4816                             })()), "}");
4817                         })() : v2))));
4818                     })();
4819                 }
4820                 catch (cf){
4821                     if (cf.type == 'block' && cf.id == 138)
4822                         return cf.value;
4823                     else
4824                         throw cf;
4825                 }
4826             })();
4827         }));
4828     })();
4829     return l133;
4830 })();
4831 var l134 = f3("*LITERAL-COUNTER*");
4832 var v389;
4833 (function(){
4834     (function(){
4835         return v389 = 0;
4836     })();
4837     return l134;
4838 })();
4839 var l135 = f3("LITERAL");
4840 var f119;
4841 (function(){
4842     (function(){
4843         return f119 = (function(v390){
4844             ((v390)["fname"] = "LITERAL");
4845             return v390;
4846         })((function (v391){
4847             if (arguments.length < 1) throw 'too few arguments';
4848             if (arguments.length > 1) throw 'too many arguments';
4849             return (function(){
4850                 try {
4851                     return (function(){
4852                         return (function(v392){
4853                             v325 = ({car: f68("var ", v392, " = ", f118(v391)), cdr: v325});
4854                             return v392;
4855                         })(f68("l", f6(v389 = (function(){
4856                             var x = v389;
4857                             var y = 1;
4858                             if (typeof x != 'number')
4859                                 throw 'The value ' + x + ' is not a type number.';
4860                             if (typeof y != 'number')
4861                                 throw 'The value ' + y + ' is not a type number.';
4862                             return x+y;
4863                         })())));
4864                     })();
4865                 }
4866                 catch (cf){
4867                     if (cf.type == 'block' && cf.id == 139)
4868                         return cf.value;
4869                     else
4870                         throw cf;
4871                 }
4872             })();
4873         }));
4874     })();
4875     return l135;
4876 })();
4877 var l136 = f3("QUOTE");
4878 v335 = ({car: f33(l136, (function (v393,v394){
4879     if (arguments.length < 2) throw 'too few arguments';
4880     if (arguments.length > 2) throw 'too many arguments';
4881     return (function(){
4882         try {
4883             return (function(){
4884                 return f119(v394);
4885             })();
4886         }
4887         catch (cf){
4888             if (cf.type == 'block' && cf.id == 140)
4889                 return cf.value;
4890             else
4891                 throw cf;
4892         }
4893     })();
4894 })), cdr: v335});
4895 var l137 = f3("%WHILE");
4896 v335 = ({car: f33(l137, (function (v396,v397){
4897     if (arguments.length < 2) throw 'too few arguments';
4898     var v395= v2;
4899     for (var i = arguments.length-1; i>=2; i--)
4900         v395 = {car: arguments[i], cdr: v395};
4901     return (function(){
4902         try {
4903             return (function(){
4904                 return f68("(function(){", v176, f71("while(", f73(v397, v396), " !== ", f73(v2), "){", v176, f71(f112(v395, v396)), "}", "return ", f73(v2), ";", v176), "})()");
4905             })();
4906         }
4907         catch (cf){
4908             if (cf.type == 'block' && cf.id == 141)
4909                 return cf.value;
4910             else
4911                 throw cf;
4912         }
4913     })();
4914 })), cdr: v335});
4915 var l139 = f3("LAMBDA");
4916 var l138 = f3("FUNCTION");
4917 v335 = ({car: f33(l138, (function (v398,v399){
4918     if (arguments.length < 2) throw 'too few arguments';
4919     if (arguments.length > 2) throw 'too many arguments';
4920     return (function(){
4921         try {
4922             return (function(){
4923                 return ((f36(v399) !== v2 ? (((function(){
4924                     var tmp = v399;
4925                     return tmp === v2? v2: tmp.car;
4926                 })() === l139)?v3: v2) : v2) !== v2 ? (function(){
4927                     return f73(v399, v398);
4928                 })() : (((function(){
4929                     var tmp = v399;
4930                     return (typeof tmp == 'object' && 'name' in tmp);
4931                 })()?v3: v2) !== v2 ? (function(){
4932                     return f108(v399, v398);
4933                 })() : v2));
4934             })();
4935         }
4936         catch (cf){
4937             if (cf.type == 'block' && cf.id == 142)
4938                 return cf.value;
4939             else
4940                 throw cf;
4941         }
4942     })();
4943 })), cdr: v335});
4944 var l141 = f3("PROGN");
4945 var l140 = f3("EVAL-WHEN-COMPILE");
4946 v335 = ({car: f33(l140, (function (v401){
4947     if (arguments.length < 1) throw 'too few arguments';
4948     var v400= v2;
4949     for (var i = arguments.length-1; i>=1; i--)
4950         v400 = {car: arguments[i], cdr: v400};
4951     return (function(){
4952         try {
4953             return (function(){
4954                 f120(({car: l141, cdr: v400}));
4955                 return "";
4956             })();
4957         }
4958         catch (cf){
4959             if (cf.type == 'block' && cf.id == 143)
4960                 return cf.value;
4961             else
4962                 throw cf;
4963         }
4964     })();
4965 })), cdr: v335});
4966 var l142 = f3("PROGN");
4967 v335 = ({car: f33(l142, (function (v403){
4968     if (arguments.length < 1) throw 'too few arguments';
4969     var v402= v2;
4970     for (var i = arguments.length-1; i>=1; i--)
4971         v402 = {car: arguments[i], cdr: v402};
4972     return (function(){
4973         try {
4974             return (function(){
4975                 return f68("(function(){", v176, f71(f112(f56(v402), v403), "return ", f73((function(){
4976                     var tmp = f55(v402);
4977                     return tmp === v2? v2: tmp.car;
4978                 })(), v403), ";", v176), "})()");
4979             })();
4980         }
4981         catch (cf){
4982             if (cf.type == 'block' && cf.id == 144)
4983                 return cf.value;
4984             else
4985                 throw cf;
4986         }
4987     })();
4988 })), cdr: v335});
4989 var l143 = f3("LET");
4990 v335 = ({car: f33(l143, (function (v405,v406){
4991     if (arguments.length < 2) throw 'too few arguments';
4992     var v404= v2;
4993     for (var i = arguments.length-1; i>=2; i--)
4994         v404 = {car: arguments[i], cdr: v404};
4995     return (function(){
4996         try {
4997             return (function(){
4998                 return (function(v407){
4999                     return (function(v408,v409){
5000                         return (function(v410){
5001                             return f68("(function(", f69(f45((function (v411){
5002                                 if (arguments.length < 1) throw 'too few arguments';
5003                                 if (arguments.length > 1) throw 'too many arguments';
5004                                 return f105(v411, v410);
5005                             }), v408), ","), "){", v176, f71(f112(f56(v404), v410), "return ", f73((function(){
5006                                 var tmp = f55(v404);
5007                                 return tmp === v2? v2: tmp.car;
5008                             })(), v410), ";", v176), "})(", f69(f45((function (v412){
5009                                 if (arguments.length < 1) throw 'too few arguments';
5010                                 if (arguments.length > 1) throw 'too many arguments';
5011                                 return f73(v412, v405);
5012                             }), v409), ","), ")");
5013                         })(f106(v408, v405));
5014                     })(f45(f29, v407),f45(f30, v407));
5015                 })(f45(f35, v406));
5016             })();
5017         }
5018         catch (cf){
5019             if (cf.type == 'block' && cf.id == 145)
5020                 return cf.value;
5021             else
5022                 throw cf;
5023         }
5024     })();
5025 })), cdr: v335});
5026 var l144 = f3("*BLOCK-COUNTER*");
5027 var v413;
5028 (function(){
5029     (function(){
5030         return v413 = 0;
5031     })();
5032     return l144;
5033 })();
5034 var l148 = f3("BLOCK");
5035 var l147 = f3("BLOCK");
5036 var l146 = f3("PROGN");
5037 var l145 = f3("BLOCK");
5038 v335 = ({car: f33(l145, (function (v415,v416){
5039     if (arguments.length < 2) throw 'too few arguments';
5040     var v414= v2;
5041     for (var i = arguments.length-1; i>=2; i--)
5042         v414 = {car: arguments[i], cdr: v414};
5043     return (function(){
5044         try {
5045             return (function(){
5046                 return (function(v417){
5047                     return (function(v418){
5048                         return f68("(function(){", v176, f71("try {", v176, f71("return ", f73(f39(f33(l146), v414), f100(f33(v418), v415, l147)), ";", v176), "}", v176, "catch (cf){", v176, "    if (cf.type == 'block' && cf.id == ", v417, ")", v176, "        return cf.value;", v176, "    else", v176, "        throw cf;", v176, "}", v176), "})()");
5049                     })(f91(v416, l148, v417, v3));
5050                 })(f6(v413 = (function(){
5051                     var x = v413;
5052                     var y = 1;
5053                     if (typeof x != 'number')
5054                         throw 'The value ' + x + ' is not a type number.';
5055                     if (typeof y != 'number')
5056                         throw 'The value ' + y + ' is not a type number.';
5057                     return x+y;
5058                 })()));
5059             })();
5060         }
5061         catch (cf){
5062             if (cf.type == 'block' && cf.id == 146)
5063                 return cf.value;
5064             else
5065                 throw cf;
5066         }
5067     })();
5068 })), cdr: v335});
5069 var l150 = f3("BLOCK");
5070 var l149 = f3("RETURN-FROM");
5071 v335 = ({car: f33(l149, (function (v419,v420,v421){
5072     if (arguments.length < 2) throw 'too few arguments';
5073     if (arguments.length > 3) throw 'too many arguments';
5074     switch(arguments.length){
5075     case 2:
5076     v421=v2;
5077     default: break;
5078     }
5079     return (function(){
5080         try {
5081             return (function(){
5082                 return (function(v422){
5083                     return (v422 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'block', ", "id: ", f94(v422), ", ", "value: ", f73(v421, v419), ", ", "message: 'Return from unknown block ", (v420).name, ".'", "})"), "})()") : (function(){
5084                         throw f68("Unknown block `", (v420).name, "'.");
5085                     })());
5086                 })(f101(v420, v419, l150));
5087             })();
5088         }
5089         catch (cf){
5090             if (cf.type == 'block' && cf.id == 147)
5091                 return cf.value;
5092             else
5093                 throw cf;
5094         }
5095     })();
5096 })), cdr: v335});
5097 var l152 = f3("PROGN");
5098 var l151 = f3("CATCH");
5099 v335 = ({car: f33(l151, (function (v424,v425){
5100     if (arguments.length < 2) throw 'too few arguments';
5101     var v423= v2;
5102     for (var i = arguments.length-1; i>=2; i--)
5103         v423 = {car: arguments[i], cdr: v423};
5104     return (function(){
5105         try {
5106             return (function(){
5107                 return f68("(function(){", v176, f71("var id = ", f73(v425, v424), ";", v176, "try {", v176, f71("return ", f73(f39(f33(l152), v423)), ";", v176), "}", v176, "catch (cf){", v176, "    if (cf.type == 'catch' && cf.id == id)", v176, "        return cf.value;", v176, "    else", v176, "        throw cf;", v176, "}", v176), "})()");
5108             })();
5109         }
5110         catch (cf){
5111             if (cf.type == 'block' && cf.id == 148)
5112                 return cf.value;
5113             else
5114                 throw cf;
5115         }
5116     })();
5117 })), cdr: v335});
5118 var l153 = f3("THROW");
5119 v335 = ({car: f33(l153, (function (v426,v427,v428){
5120     if (arguments.length < 2) throw 'too few arguments';
5121     if (arguments.length > 3) throw 'too many arguments';
5122     switch(arguments.length){
5123     case 2:
5124     v428=v2;
5125     default: break;
5126     }
5127     return (function(){
5128         try {
5129             return (function(){
5130                 return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v427, v426), ", ", "value: ", f73(v428, v426), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5131             })();
5132         }
5133         catch (cf){
5134             if (cf.type == 'block' && cf.id == 149)
5135                 return cf.value;
5136             else
5137                 throw cf;
5138         }
5139     })();
5140 })), cdr: v335});
5141 var l154 = f3("*TAGBODY-COUNTER*");
5142 var v429;
5143 (function(){
5144     (function(){
5145         return v429 = 0;
5146     })();
5147     return l154;
5148 })();
5149 var l155 = f3("*GO-TAG-COUNTER*");
5150 var v430;
5151 (function(){
5152     (function(){
5153         return v430 = 0;
5154     })();
5155     return l155;
5156 })();
5157 var l156 = f3("GO-TAG-P");
5158 var f121;
5159 (function(){
5160     (function(){
5161         return f121 = (function(v431){
5162             ((v431)["fname"] = "GO-TAG-P");
5163             return v431;
5164         })((function (v432){
5165             if (arguments.length < 1) throw 'too few arguments';
5166             if (arguments.length > 1) throw 'too many arguments';
5167             return (function(){
5168                 try {
5169                     return (function(){
5170                         return (function(v433){
5171                             return (v433 !== v2 ? v433 : ((function(){
5172                                 var tmp = v432;
5173                                 return (typeof tmp == 'object' && 'name' in tmp);
5174                             })()?v3: v2));
5175                         })(f51(v432));
5176                     })();
5177                 }
5178                 catch (cf){
5179                     if (cf.type == 'block' && cf.id == 150)
5180                         return cf.value;
5181                     else
5182                         throw cf;
5183                 }
5184             })();
5185         }));
5186     })();
5187     return l156;
5188 })();
5189 var l159 = f3("DECLARE-TAGBODY-TAGS");
5190 var l158 = f3("GOTAG");
5191 var l157 = f3("GOTAG");
5192 var f122;
5193 (function(){
5194     (function(){
5195         return f122 = (function(v434){
5196             ((v434)["fname"] = "DECLARE-TAGBODY-TAGS");
5197             return v434;
5198         })((function (v435,v436,v437){
5199             if (arguments.length < 3) throw 'too few arguments';
5200             if (arguments.length > 3) throw 'too many arguments';
5201             return (function(){
5202                 try {
5203                     return (function(){
5204                         return (function(v438){
5205                             return f100(v438, v435, l157);
5206                         })(f45((function (v439){
5207                             if (arguments.length < 1) throw 'too few arguments';
5208                             if (arguments.length > 1) throw 'too many arguments';
5209                             return (function(v440){
5210                                 return f91(v439, l158, f33(v436, v440), v3);
5211                             })(f6(v430 = (function(){
5212                                 var x = v430;
5213                                 var y = 1;
5214                                 if (typeof x != 'number')
5215                                     throw 'The value ' + x + ' is not a type number.';
5216                                 if (typeof y != 'number')
5217                                     throw 'The value ' + y + ' is not a type number.';
5218                                 return x+y;
5219                             })()));
5220                         }), f60(f121, v437)));
5221                     })();
5222                 }
5223                 catch (cf){
5224                     if (cf.type == 'block' && cf.id == 151)
5225                         return cf.value;
5226                     else
5227                         throw cf;
5228                 }
5229             })();
5230         }));
5231     })();
5232     return l159;
5233 })();
5234 var l164 = f3("GOTAG");
5235 var l163 = f3("GOTAG");
5236 var l162 = f3("NIL");
5237 var l161 = f3("PROGN");
5238 var l160 = f3("TAGBODY");
5239 v335 = ({car: f33(l160, (function (v442){
5240     if (arguments.length < 1) throw 'too few arguments';
5241     var v441= v2;
5242     for (var i = arguments.length-1; i>=1; i--)
5243         v441 = {car: arguments[i], cdr: v441};
5244     return (function(){
5245         try {
5246             return (function(){
5247                 (f64(f121, v441) !== v2 ? v2 : (function(){
5248                     return (function(){
5249                         throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v441, f33(l162)), v442), message: 'Return from unknown block TAGBODY.'})})();
5250                 })());
5251                 (f121((function(){
5252                     var tmp = v441;
5253                     return tmp === v2? v2: tmp.car;
5254                 })()) !== v2 ? v2 : (function(){
5255                     return v441 = ({car: f5("START"), cdr: v441});
5256                 })());
5257                 return (function(v443){
5258                     return (function(v444,v445){
5259                         (function(v446){
5260                             return v445 = f30(f94(v446));
5261                         })(f101(f29(v441), v444, l163));
5262                         return f68("(function(){", v176, f71("var tagbody_", v443, " = ", v445, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v447){
5263                             return f68("switch(tagbody_", v443, "){", v176, "case ", v445, ":", v176, (function(){
5264                                 try {
5265                                     return (function(){
5266                                         return (function(v448,v449){
5267                                             (function(){
5268                                                 while(v448 !== v2){
5269                                                     v449 = (function(){
5270                                                         var tmp = v448;
5271                                                         return tmp === v2? v2: tmp.car;
5272                                                     })();
5273                                                     (function(){
5274                                                         v447 = f68(v447, (function(){
5275                                                             return (f17(f121(v449)) !== v2 ? f71(f73(v449, v444), ";", v176) : (function(v450){
5276                                                                 return f68("case ", f30(f94(v450)), ":", v176);
5277                                                             })(f101(v449, v444, l164)));
5278                                                         })());
5279                                                         return v2;
5280                                                     })();
5281                                                     v448 = (function(){
5282                                                         var tmp = v448;
5283                                                         return tmp === v2? v2: tmp.cdr;
5284                                                     })();
5285                                                 }return v2;
5286                                             })();
5287                                             return v447;
5288                                         })((function(){
5289                                             var tmp = v441;
5290                                             return tmp === v2? v2: tmp.cdr;
5291                                         })(),v2);
5292                                     })();
5293                                 }
5294                                 catch (cf){
5295                                     if (cf.type == 'block' && cf.id == 153)
5296                                         return cf.value;
5297                                     else
5298                                         throw cf;
5299                                 }
5300                             })(), "default:", v176, "    break tbloop;", v176, "}", v176);
5301                         })("")), "}", v176, "catch (jump) {", v176, "    if (jump.type == 'tagbody' && jump.id == ", v443, ")", v176, "        tagbody_", v443, " = jump.label;", v176, "    else", v176, "        throw(jump);", v176, "}", v176), "}", v176, "return ", f73(v2), ";", v176), "})()");
5302                     })(f122(v442, v443, v441),v2);
5303                 })(f6(v429));
5304             })();
5305         }
5306         catch (cf){
5307             if (cf.type == 'block' && cf.id == 152)
5308                 return cf.value;
5309             else
5310                 throw cf;
5311         }
5312     })();
5313 })), cdr: v335});
5314 var l166 = f3("GOTAG");
5315 var l165 = f3("GO");
5316 v335 = ({car: f33(l165, (function (v451,v452){
5317     if (arguments.length < 2) throw 'too few arguments';
5318     if (arguments.length > 2) throw 'too many arguments';
5319     return (function(){
5320         try {
5321             return (function(){
5322                 return (function(v453,v454){
5323                     return (v453 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'tagbody', ", "id: ", f29(f94(v453)), ", ", "label: ", f30(f94(v453)), ", ", "message: 'Attempt to GO to non-existing tag ", v454, "'", "})", v176), "})()") : (function(){
5324                         throw f68("Unknown tag `", v454, "'.");
5325                     })());
5326                 })(f101(v452, v451, l166),(((function(){
5327                     var tmp = v452;
5328                     return (typeof tmp == 'object' && 'name' in tmp);
5329                 })()?v3: v2) !== v2 ? (function(){
5330                     return (v452).name;
5331                 })() : (f51(v452) !== v2 ? (function(){
5332                     return f6(v452);
5333                 })() : v2)));
5334             })();
5335         }
5336         catch (cf){
5337             if (cf.type == 'block' && cf.id == 154)
5338                 return cf.value;
5339             else
5340                 throw cf;
5341         }
5342     })();
5343 })), cdr: v335});
5344 var l167 = f3("UNWIND-PROTECT");
5345 v335 = ({car: f33(l167, (function (v456,v457){
5346     if (arguments.length < 2) throw 'too few arguments';
5347     var v455= v2;
5348     for (var i = arguments.length-1; i>=2; i--)
5349         v455 = {car: arguments[i], cdr: v455};
5350     return (function(){
5351         try {
5352             return (function(){
5353                 return f68("(function(){", v176, f71("var ret = ", f73(v2), ";", v176, "try {", v176, f71("ret = ", f73(v457, v456), ";", v176), "} finally {", v176, f71(f112(v455, v456)), "}", v176, "return ret;", v176), "})()");
5354             })();
5355         }
5356         catch (cf){
5357             if (cf.type == 'block' && cf.id == 155)
5358                 return cf.value;
5359             else
5360                 throw cf;
5361         }
5362     })();
5363 })), cdr: v335});
5364 var l176 = f3("BACKQUOTE-EXPAND-1");
5365 var l175 = f3("LIST");
5366 var l174 = f3("UNQUOTE-SPLICING");
5367 var l173 = f3("LIST");
5368 var l172 = f3("UNQUOTE");
5369 var l171 = f3("APPEND");
5370 var l170 = f3("BACKQUOTE");
5371 var l169 = f3("UNQUOTE");
5372 var l168 = f3("QUOTE");
5373 var f123;
5374 (function(){
5375     (function(){
5376         return f123 = (function(v458){
5377             ((v458)["fname"] = "BACKQUOTE-EXPAND-1");
5378             return v458;
5379         })((function (v459){
5380             if (arguments.length < 1) throw 'too few arguments';
5381             if (arguments.length > 1) throw 'too many arguments';
5382             return (function(){
5383                 try {
5384                     return (function(){
5385                         return (((function(){
5386                             var tmp = v459;
5387                             return (typeof tmp == 'object' && 'name' in tmp);
5388                         })()?v3: v2) !== v2 ? (function(){
5389                             return f33(l168, v459);
5390                         })() : (f34(v459) !== v2 ? (function(){
5391                             return v459;
5392                         })() : ((((function(){
5393                             var tmp = v459;
5394                             return tmp === v2? v2: tmp.car;
5395                         })() === l169)?v3: v2) !== v2 ? (function(){
5396                             return (function(){
5397                                 var tmp = v459;
5398                                 return tmp === v2? v2: tmp.car;
5399                             })();
5400                         })() : ((((function(){
5401                             var tmp = v459;
5402                             return tmp === v2? v2: tmp.car;
5403                         })() === l170)?v3: v2) !== v2 ? (function(){
5404                             return f123(f123(f23(v459)));
5405                         })() : (function(){
5406                             return ({car: l171, cdr: f45((function (v460){
5407                                 if (arguments.length < 1) throw 'too few arguments';
5408                                 if (arguments.length > 1) throw 'too many arguments';
5409                                 return ((f36(v460) !== v2 ? (((function(){
5410                                     var tmp = v460;
5411                                     return tmp === v2? v2: tmp.car;
5412                                 })() === l172)?v3: v2) : v2) !== v2 ? (function(){
5413                                     return f33(l173, f23(v460));
5414                                 })() : ((f36(v460) !== v2 ? (((function(){
5415                                     var tmp = v460;
5416                                     return tmp === v2? v2: tmp.car;
5417                                 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
5418                                     return f23(v460);
5419                                 })() : (function(){
5420                                     return f33(l175, f123(v460));
5421                                 })()));
5422                             }), v459)});
5423                         })()))));
5424                     })();
5425                 }
5426                 catch (cf){
5427                     if (cf.type == 'block' && cf.id == 156)
5428                         return cf.value;
5429                     else
5430                         throw cf;
5431                 }
5432             })();
5433         }));
5434     })();
5435     return l176;
5436 })();
5437 var l178 = f3("BACKQUOTE-EXPAND");
5438 var l177 = f3("BACKQUOTE");
5439 var f124;
5440 (function(){
5441     (function(){
5442         return f124 = (function(v461){
5443             ((v461)["fname"] = "BACKQUOTE-EXPAND");
5444             return v461;
5445         })((function (v462){
5446             if (arguments.length < 1) throw 'too few arguments';
5447             if (arguments.length > 1) throw 'too many arguments';
5448             return (function(){
5449                 try {
5450                     return (function(){
5451                         return ((f36(v462) !== v2 ? (((function(){
5452                             var tmp = v462;
5453                             return tmp === v2? v2: tmp.car;
5454                         })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v462)) : v462);
5455                     })();
5456                 }
5457                 catch (cf){
5458                     if (cf.type == 'block' && cf.id == 157)
5459                         return cf.value;
5460                     else
5461                         throw cf;
5462                 }
5463             })();
5464         }));
5465     })();
5466     return l178;
5467 })();
5468 var l179 = f3("BACKQUOTE");
5469 v335 = ({car: f33(l179, (function (v463,v464){
5470     if (arguments.length < 2) throw 'too few arguments';
5471     if (arguments.length > 2) throw 'too many arguments';
5472     return (function(){
5473         try {
5474             return (function(){
5475                 return f73(f123(v464), v463);
5476             })();
5477         }
5478         catch (cf){
5479             if (cf.type == 'block' && cf.id == 158)
5480                 return cf.value;
5481             else
5482                 throw cf;
5483         }
5484     })();
5485 })), cdr: v335});
5486 var l180 = f3("NUM-OP-NUM");
5487 var f125;
5488 (function(){
5489     (function(){
5490         return f125 = (function(v465){
5491             ((v465)["fname"] = "NUM-OP-NUM");
5492             return v465;
5493         })((function (v466,v467,v468){
5494             if (arguments.length < 3) throw 'too few arguments';
5495             if (arguments.length > 3) throw 'too many arguments';
5496             return (function(){
5497                 try {
5498                     return (function(){
5499                         return f68("(function(){", v176, f71(f68("var ", "x", " = ", v466, ";", v176), f68("var ", "y", " = ", v468, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("if (typeof ", "y", " != '", "number", "')", v176, f71("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5500                             return f68("x", v467, "y");
5501                         })(), ";", v176)), "})()");
5502                     })();
5503                 }
5504                 catch (cf){
5505                     if (cf.type == 'block' && cf.id == 159)
5506                         return cf.value;
5507                     else
5508                         throw cf;
5509                 }
5510             })();
5511         }));
5512     })();
5513     return l180;
5514 })();
5515 var l181 = f3("+");
5516 v335 = ({car: f33(l181, (function (v469,v470,v471){
5517     if (arguments.length < 3) throw 'too few arguments';
5518     if (arguments.length > 3) throw 'too many arguments';
5519     return (function(){
5520         try {
5521             return (function(){
5522                 return (function(v472,v473){
5523                     return f125(v472, "+", v473);
5524                 })(f73(v470, v469),f73(v471, v469));
5525             })();
5526         }
5527         catch (cf){
5528             if (cf.type == 'block' && cf.id == 160)
5529                 return cf.value;
5530             else
5531                 throw cf;
5532         }
5533     })();
5534 })), cdr: v335});
5535 var l182 = f3("-");
5536 v335 = ({car: f33(l182, (function (v474,v475,v476){
5537     if (arguments.length < 3) throw 'too few arguments';
5538     if (arguments.length > 3) throw 'too many arguments';
5539     return (function(){
5540         try {
5541             return (function(){
5542                 return (function(v477,v478){
5543                     return f125(v477, "-", v478);
5544                 })(f73(v475, v474),f73(v476, v474));
5545             })();
5546         }
5547         catch (cf){
5548             if (cf.type == 'block' && cf.id == 161)
5549                 return cf.value;
5550             else
5551                 throw cf;
5552         }
5553     })();
5554 })), cdr: v335});
5555 var l183 = f3("*");
5556 v335 = ({car: f33(l183, (function (v479,v480,v481){
5557     if (arguments.length < 3) throw 'too few arguments';
5558     if (arguments.length > 3) throw 'too many arguments';
5559     return (function(){
5560         try {
5561             return (function(){
5562                 return (function(v482,v483){
5563                     return f125(v482, "*", v483);
5564                 })(f73(v480, v479),f73(v481, v479));
5565             })();
5566         }
5567         catch (cf){
5568             if (cf.type == 'block' && cf.id == 162)
5569                 return cf.value;
5570             else
5571                 throw cf;
5572         }
5573     })();
5574 })), cdr: v335});
5575 var l184 = f3("/");
5576 v335 = ({car: f33(l184, (function (v484,v485,v486){
5577     if (arguments.length < 3) throw 'too few arguments';
5578     if (arguments.length > 3) throw 'too many arguments';
5579     return (function(){
5580         try {
5581             return (function(){
5582                 return (function(v487,v488){
5583                     return f125(v487, "/", v488);
5584                 })(f73(v485, v484),f73(v486, v484));
5585             })();
5586         }
5587         catch (cf){
5588             if (cf.type == 'block' && cf.id == 163)
5589                 return cf.value;
5590             else
5591                 throw cf;
5592         }
5593     })();
5594 })), cdr: v335});
5595 var l185 = f3("MOD");
5596 v335 = ({car: f33(l185, (function (v489,v490,v491){
5597     if (arguments.length < 3) throw 'too few arguments';
5598     if (arguments.length > 3) throw 'too many arguments';
5599     return (function(){
5600         try {
5601             return (function(){
5602                 return (function(v492,v493){
5603                     return f125(v492, "%", v493);
5604                 })(f73(v490, v489),f73(v491, v489));
5605             })();
5606         }
5607         catch (cf){
5608             if (cf.type == 'block' && cf.id == 164)
5609                 return cf.value;
5610             else
5611                 throw cf;
5612         }
5613     })();
5614 })), cdr: v335});
5615 var l186 = f3("<");
5616 v335 = ({car: f33(l186, (function (v494,v495,v496){
5617     if (arguments.length < 3) throw 'too few arguments';
5618     if (arguments.length > 3) throw 'too many arguments';
5619     return (function(){
5620         try {
5621             return (function(){
5622                 return (function(v497,v498){
5623                     return f72(f125(v497, "<", v498));
5624                 })(f73(v495, v494),f73(v496, v494));
5625             })();
5626         }
5627         catch (cf){
5628             if (cf.type == 'block' && cf.id == 165)
5629                 return cf.value;
5630             else
5631                 throw cf;
5632         }
5633     })();
5634 })), cdr: v335});
5635 var l187 = f3(">");
5636 v335 = ({car: f33(l187, (function (v499,v500,v501){
5637     if (arguments.length < 3) throw 'too few arguments';
5638     if (arguments.length > 3) throw 'too many arguments';
5639     return (function(){
5640         try {
5641             return (function(){
5642                 return (function(v502,v503){
5643                     return f72(f125(v502, ">", v503));
5644                 })(f73(v500, v499),f73(v501, v499));
5645             })();
5646         }
5647         catch (cf){
5648             if (cf.type == 'block' && cf.id == 166)
5649                 return cf.value;
5650             else
5651                 throw cf;
5652         }
5653     })();
5654 })), cdr: v335});
5655 var l188 = f3("=");
5656 v335 = ({car: f33(l188, (function (v504,v505,v506){
5657     if (arguments.length < 3) throw 'too few arguments';
5658     if (arguments.length > 3) throw 'too many arguments';
5659     return (function(){
5660         try {
5661             return (function(){
5662                 return (function(v507,v508){
5663                     return f72(f125(v507, "==", v508));
5664                 })(f73(v505, v504),f73(v506, v504));
5665             })();
5666         }
5667         catch (cf){
5668             if (cf.type == 'block' && cf.id == 167)
5669                 return cf.value;
5670             else
5671                 throw cf;
5672         }
5673     })();
5674 })), cdr: v335});
5675 var l189 = f3("<=");
5676 v335 = ({car: f33(l189, (function (v509,v510,v511){
5677     if (arguments.length < 3) throw 'too few arguments';
5678     if (arguments.length > 3) throw 'too many arguments';
5679     return (function(){
5680         try {
5681             return (function(){
5682                 return (function(v512,v513){
5683                     return f72(f125(v512, "<=", v513));
5684                 })(f73(v510, v509),f73(v511, v509));
5685             })();
5686         }
5687         catch (cf){
5688             if (cf.type == 'block' && cf.id == 168)
5689                 return cf.value;
5690             else
5691                 throw cf;
5692         }
5693     })();
5694 })), cdr: v335});
5695 var l190 = f3(">=");
5696 v335 = ({car: f33(l190, (function (v514,v515,v516){
5697     if (arguments.length < 3) throw 'too few arguments';
5698     if (arguments.length > 3) throw 'too many arguments';
5699     return (function(){
5700         try {
5701             return (function(){
5702                 return (function(v517,v518){
5703                     return f72(f125(v517, ">=", v518));
5704                 })(f73(v515, v514),f73(v516, v514));
5705             })();
5706         }
5707         catch (cf){
5708             if (cf.type == 'block' && cf.id == 169)
5709                 return cf.value;
5710             else
5711                 throw cf;
5712         }
5713     })();
5714 })), cdr: v335});
5715 var l191 = f3("NUMBERP");
5716 v335 = ({car: f33(l191, (function (v519,v520){
5717     if (arguments.length < 2) throw 'too few arguments';
5718     if (arguments.length > 2) throw 'too many arguments';
5719     return (function(){
5720         try {
5721             return (function(){
5722                 return (function(v521){
5723                     return f72(f68("(typeof (", v521, ") == \"number\")"));
5724                 })(f73(v520, v519));
5725             })();
5726         }
5727         catch (cf){
5728             if (cf.type == 'block' && cf.id == 170)
5729                 return cf.value;
5730             else
5731                 throw cf;
5732         }
5733     })();
5734 })), cdr: v335});
5735 var l192 = f3("FLOOR");
5736 v335 = ({car: f33(l192, (function (v522,v523){
5737     if (arguments.length < 2) throw 'too few arguments';
5738     if (arguments.length > 2) throw 'too many arguments';
5739     return (function(){
5740         try {
5741             return (function(){
5742                 return (function(v524){
5743                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v524, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5744                         return "Math.floor(x)";
5745                     })(), ";", v176)), "})()");
5746                 })(f73(v523, v522));
5747             })();
5748         }
5749         catch (cf){
5750             if (cf.type == 'block' && cf.id == 171)
5751                 return cf.value;
5752             else
5753                 throw cf;
5754         }
5755     })();
5756 })), cdr: v335});
5757 var l193 = f3("CONS");
5758 v335 = ({car: f33(l193, (function (v525,v526,v527){
5759     if (arguments.length < 3) throw 'too few arguments';
5760     if (arguments.length > 3) throw 'too many arguments';
5761     return (function(){
5762         try {
5763             return (function(){
5764                 return (function(v528,v529){
5765                     return f68("({car: ", v528, ", cdr: ", v529, "})");
5766                 })(f73(v526, v525),f73(v527, v525));
5767             })();
5768         }
5769         catch (cf){
5770             if (cf.type == 'block' && cf.id == 172)
5771                 return cf.value;
5772             else
5773                 throw cf;
5774         }
5775     })();
5776 })), cdr: v335});
5777 var l194 = f3("CONSP");
5778 v335 = ({car: f33(l194, (function (v530,v531){
5779     if (arguments.length < 2) throw 'too few arguments';
5780     if (arguments.length > 2) throw 'too many arguments';
5781     return (function(){
5782         try {
5783             return (function(){
5784                 return (function(v532){
5785                     return f72(f68("(function(){", v176, f71("var tmp = ", v532, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()"));
5786                 })(f73(v531, v530));
5787             })();
5788         }
5789         catch (cf){
5790             if (cf.type == 'block' && cf.id == 173)
5791                 return cf.value;
5792             else
5793                 throw cf;
5794         }
5795     })();
5796 })), cdr: v335});
5797 var l195 = f3("CAR");
5798 v335 = ({car: f33(l195, (function (v533,v534){
5799     if (arguments.length < 2) throw 'too few arguments';
5800     if (arguments.length > 2) throw 'too many arguments';
5801     return (function(){
5802         try {
5803             return (function(){
5804                 return (function(v535){
5805                     return f68("(function(){", v176, f71("var tmp = ", v535, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()");
5806                 })(f73(v534, v533));
5807             })();
5808         }
5809         catch (cf){
5810             if (cf.type == 'block' && cf.id == 174)
5811                 return cf.value;
5812             else
5813                 throw cf;
5814         }
5815     })();
5816 })), cdr: v335});
5817 var l196 = f3("CDR");
5818 v335 = ({car: f33(l196, (function (v536,v537){
5819     if (arguments.length < 2) throw 'too few arguments';
5820     if (arguments.length > 2) throw 'too many arguments';
5821     return (function(){
5822         try {
5823             return (function(){
5824                 return (function(v538){
5825                     return f68("(function(){", v176, f71("var tmp = ", v538, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()");
5826                 })(f73(v537, v536));
5827             })();
5828         }
5829         catch (cf){
5830             if (cf.type == 'block' && cf.id == 175)
5831                 return cf.value;
5832             else
5833                 throw cf;
5834         }
5835     })();
5836 })), cdr: v335});
5837 var l197 = f3("SETCAR");
5838 v335 = ({car: f33(l197, (function (v539,v540,v541){
5839     if (arguments.length < 3) throw 'too few arguments';
5840     if (arguments.length > 3) throw 'too many arguments';
5841     return (function(){
5842         try {
5843             return (function(){
5844                 return (function(v542,v543){
5845                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v542, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5846                         return f68("(x.car = ", v543, ")");
5847                     })(), ";", v176)), "})()");
5848                 })(f73(v540, v539),f73(v541, v539));
5849             })();
5850         }
5851         catch (cf){
5852             if (cf.type == 'block' && cf.id == 176)
5853                 return cf.value;
5854             else
5855                 throw cf;
5856         }
5857     })();
5858 })), cdr: v335});
5859 var l198 = f3("SETCDR");
5860 v335 = ({car: f33(l198, (function (v544,v545,v546){
5861     if (arguments.length < 3) throw 'too few arguments';
5862     if (arguments.length > 3) throw 'too many arguments';
5863     return (function(){
5864         try {
5865             return (function(){
5866                 return (function(v547,v548){
5867                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v547, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5868                         return f68("(x.cdr = ", v548, ")");
5869                     })(), ";", v176)), "})()");
5870                 })(f73(v545, v544),f73(v546, v544));
5871             })();
5872         }
5873         catch (cf){
5874             if (cf.type == 'block' && cf.id == 177)
5875                 return cf.value;
5876             else
5877                 throw cf;
5878         }
5879     })();
5880 })), cdr: v335});
5881 var l199 = f3("SYMBOLP");
5882 v335 = ({car: f33(l199, (function (v549,v550){
5883     if (arguments.length < 2) throw 'too few arguments';
5884     if (arguments.length > 2) throw 'too many arguments';
5885     return (function(){
5886         try {
5887             return (function(){
5888                 return (function(v551){
5889                     return f72(f68("(function(){", v176, f71("var tmp = ", v551, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()"));
5890                 })(f73(v550, v549));
5891             })();
5892         }
5893         catch (cf){
5894             if (cf.type == 'block' && cf.id == 178)
5895                 return cf.value;
5896             else
5897                 throw cf;
5898         }
5899     })();
5900 })), cdr: v335});
5901 var l200 = f3("MAKE-SYMBOL");
5902 v335 = ({car: f33(l200, (function (v552,v553){
5903     if (arguments.length < 2) throw 'too few arguments';
5904     if (arguments.length > 2) throw 'too many arguments';
5905     return (function(){
5906         try {
5907             return (function(){
5908                 return (function(v554){
5909                     return f68("(function(){", v176, f71(f68("var ", "name", " = ", v554, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5910                         return "({name: name})";
5911                     })(), ";", v176)), "})()");
5912                 })(f73(v553, v552));
5913             })();
5914         }
5915         catch (cf){
5916             if (cf.type == 'block' && cf.id == 179)
5917                 return cf.value;
5918             else
5919                 throw cf;
5920         }
5921     })();
5922 })), cdr: v335});
5923 var l201 = f3("SYMBOL-NAME");
5924 v335 = ({car: f33(l201, (function (v555,v556){
5925     if (arguments.length < 2) throw 'too few arguments';
5926     if (arguments.length > 2) throw 'too many arguments';
5927     return (function(){
5928         try {
5929             return (function(){
5930                 return (function(v557){
5931                     return f68("(", v557, ").name");
5932                 })(f73(v556, v555));
5933             })();
5934         }
5935         catch (cf){
5936             if (cf.type == 'block' && cf.id == 180)
5937                 return cf.value;
5938             else
5939                 throw cf;
5940         }
5941     })();
5942 })), cdr: v335});
5943 var l202 = f3("EQ");
5944 v335 = ({car: f33(l202, (function (v558,v559,v560){
5945     if (arguments.length < 3) throw 'too few arguments';
5946     if (arguments.length > 3) throw 'too many arguments';
5947     return (function(){
5948         try {
5949             return (function(){
5950                 return (function(v561,v562){
5951                     return f72(f68("(", v561, " === ", v562, ")"));
5952                 })(f73(v559, v558),f73(v560, v558));
5953             })();
5954         }
5955         catch (cf){
5956             if (cf.type == 'block' && cf.id == 181)
5957                 return cf.value;
5958             else
5959                 throw cf;
5960         }
5961     })();
5962 })), cdr: v335});
5963 var l203 = f3("EQUAL");
5964 v335 = ({car: f33(l203, (function (v563,v564,v565){
5965     if (arguments.length < 3) throw 'too few arguments';
5966     if (arguments.length > 3) throw 'too many arguments';
5967     return (function(){
5968         try {
5969             return (function(){
5970                 return (function(v566,v567){
5971                     return f72(f68("(", v566, " == ", v567, ")"));
5972                 })(f73(v564, v563),f73(v565, v563));
5973             })();
5974         }
5975         catch (cf){
5976             if (cf.type == 'block' && cf.id == 182)
5977                 return cf.value;
5978             else
5979                 throw cf;
5980         }
5981     })();
5982 })), cdr: v335});
5983 var l204 = f3("STRING");
5984 v335 = ({car: f33(l204, (function (v568,v569){
5985     if (arguments.length < 2) throw 'too few arguments';
5986     if (arguments.length > 2) throw 'too many arguments';
5987     return (function(){
5988         try {
5989             return (function(){
5990                 return (function(v570){
5991                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v570, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5992                         return "String.fromCharCode(x)";
5993                     })(), ";", v176)), "})()");
5994                 })(f73(v569, v568));
5995             })();
5996         }
5997         catch (cf){
5998             if (cf.type == 'block' && cf.id == 183)
5999                 return cf.value;
6000             else
6001                 throw cf;
6002         }
6003     })();
6004 })), cdr: v335});
6005 var l205 = f3("STRINGP");
6006 v335 = ({car: f33(l205, (function (v571,v572){
6007     if (arguments.length < 2) throw 'too few arguments';
6008     if (arguments.length > 2) throw 'too many arguments';
6009     return (function(){
6010         try {
6011             return (function(){
6012                 return (function(v573){
6013                     return f72(f68("(typeof(", v573, ") == \"string\")"));
6014                 })(f73(v572, v571));
6015             })();
6016         }
6017         catch (cf){
6018             if (cf.type == 'block' && cf.id == 184)
6019                 return cf.value;
6020             else
6021                 throw cf;
6022         }
6023     })();
6024 })), cdr: v335});
6025 var l206 = f3("STRING-UPCASE");
6026 v335 = ({car: f33(l206, (function (v574,v575){
6027     if (arguments.length < 2) throw 'too few arguments';
6028     if (arguments.length > 2) throw 'too many arguments';
6029     return (function(){
6030         try {
6031             return (function(){
6032                 return (function(v576){
6033                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v576, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6034                         return "x.toUpperCase()";
6035                     })(), ";", v176)), "})()");
6036                 })(f73(v575, v574));
6037             })();
6038         }
6039         catch (cf){
6040             if (cf.type == 'block' && cf.id == 185)
6041                 return cf.value;
6042             else
6043                 throw cf;
6044         }
6045     })();
6046 })), cdr: v335});
6047 var l207 = f3("STRING-LENGTH");
6048 v335 = ({car: f33(l207, (function (v577,v578){
6049     if (arguments.length < 2) throw 'too few arguments';
6050     if (arguments.length > 2) throw 'too many arguments';
6051     return (function(){
6052         try {
6053             return (function(){
6054                 return (function(v579){
6055                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v579, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6056                         return "x.length";
6057                     })(), ";", v176)), "})()");
6058                 })(f73(v578, v577));
6059             })();
6060         }
6061         catch (cf){
6062             if (cf.type == 'block' && cf.id == 186)
6063                 return cf.value;
6064             else
6065                 throw cf;
6066         }
6067     })();
6068 })), cdr: v335});
6069 var l208 = f3("SLICE");
6070 v335 = ({car: f33(l208, (function (v580,v581,v582,v583){
6071     if (arguments.length < 3) throw 'too few arguments';
6072     if (arguments.length > 4) throw 'too many arguments';
6073     switch(arguments.length){
6074     case 3:
6075     v583=v2;
6076     default: break;
6077     }
6078     return (function(){
6079         try {
6080             return (function(){
6081                 return f68("(function(){", v176, f71("var str = ", f73(v581, v580), ";", v176, "var a = ", f73(v582, v580), ";", v176, "var b;", v176, (v583 !== v2 ? f68("b = ", f73(v583, v580), ";", v176) : ""), "return str.slice(a,b);", v176), "})()");
6082             })();
6083         }
6084         catch (cf){
6085             if (cf.type == 'block' && cf.id == 187)
6086                 return cf.value;
6087             else
6088                 throw cf;
6089         }
6090     })();
6091 })), cdr: v335});
6092 var l209 = f3("CHAR");
6093 v335 = ({car: f33(l209, (function (v584,v585,v586){
6094     if (arguments.length < 3) throw 'too few arguments';
6095     if (arguments.length > 3) throw 'too many arguments';
6096     return (function(){
6097         try {
6098             return (function(){
6099                 return (function(v587,v588){
6100                     return f68("(function(){", v176, f71(f68("var ", "string", " = ", v587, ";", v176), f68("var ", "index", " = ", v588, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "index", " != '", "number", "')", v176, f71("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
6101                         return "string.charCodeAt(index)";
6102                     })(), ";", v176)), "})()");
6103                 })(f73(v585, v584),f73(v586, v584));
6104             })();
6105         }
6106         catch (cf){
6107             if (cf.type == 'block' && cf.id == 188)
6108                 return cf.value;
6109             else
6110                 throw cf;
6111         }
6112     })();
6113 })), cdr: v335});
6114 var l210 = f3("CONCAT-TWO");
6115 v335 = ({car: f33(l210, (function (v589,v590,v591){
6116     if (arguments.length < 3) throw 'too few arguments';
6117     if (arguments.length > 3) throw 'too many arguments';
6118     return (function(){
6119         try {
6120             return (function(){
6121                 return (function(v592,v593){
6122                     return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v592, ";", v176), f68("var ", "string2", " = ", v593, ";", v176), f68("if (typeof ", "string1", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "string2", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6123                         return "string1.concat(string2)";
6124                     })(), ";", v176)), "})()");
6125                 })(f73(v590, v589),f73(v591, v589));
6126             })();
6127         }
6128         catch (cf){
6129             if (cf.type == 'block' && cf.id == 189)
6130                 return cf.value;
6131             else
6132                 throw cf;
6133         }
6134     })();
6135 })), cdr: v335});
6136 var l211 = f3("FUNCALL");
6137 v335 = ({car: f33(l211, (function (v595,v596){
6138     if (arguments.length < 2) throw 'too few arguments';
6139     var v594= v2;
6140     for (var i = arguments.length-1; i>=2; i--)
6141         v594 = {car: arguments[i], cdr: v594};
6142     return (function(){
6143         try {
6144             return (function(){
6145                 return f68("(", f73(v596, v595), ")(", f69(f45((function (v597){
6146                     if (arguments.length < 1) throw 'too few arguments';
6147                     if (arguments.length > 1) throw 'too many arguments';
6148                     return f73(v597, v595);
6149                 }), v594), ", "), ")");
6150             })();
6151         }
6152         catch (cf){
6153             if (cf.type == 'block' && cf.id == 190)
6154                 return cf.value;
6155             else
6156                 throw cf;
6157         }
6158     })();
6159 })), cdr: v335});
6160 var l212 = f3("APPLY");
6161 v335 = ({car: f33(l212, (function (v599,v600){
6162     if (arguments.length < 2) throw 'too few arguments';
6163     var v598= v2;
6164     for (var i = arguments.length-1; i>=2; i--)
6165         v598 = {car: arguments[i], cdr: v598};
6166     return (function(){
6167         try {
6168             return (function(){
6169                 return (f1(v598) !== v2 ? f68("(", f73(v600, v599), ")()") : (function(v601,v602){
6170                     return f68("(function(){", v176, f71("var f = ", f73(v600, v599), ";", v176, "var args = [", f69(f45((function (v603){
6171                         if (arguments.length < 1) throw 'too few arguments';
6172                         if (arguments.length > 1) throw 'too many arguments';
6173                         return f73(v603, v599);
6174                     }), v601), ", "), "];", v176, "var tail = (", f73(v602, v599), ");", v176, "while (tail != ", f73(v2), "){", v176, "    args.push(tail.car);", v176, "    tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()");
6175                 })(f56(v598),(function(){
6176                     var tmp = f55(v598);
6177                     return tmp === v2? v2: tmp.car;
6178                 })()));
6179             })();
6180         }
6181         catch (cf){
6182             if (cf.type == 'block' && cf.id == 191)
6183                 return cf.value;
6184             else
6185                 throw cf;
6186         }
6187     })();
6188 })), cdr: v335});
6189 var l213 = f3("JS-EVAL");
6190 v335 = ({car: f33(l213, (function (v604,v605){
6191     if (arguments.length < 2) throw 'too few arguments';
6192     if (arguments.length > 2) throw 'too many arguments';
6193     return (function(){
6194         try {
6195             return (function(){
6196                 return (function(v606){
6197                     return f68("(function(){", v176, f71(f68("var ", "string", " = ", v606, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6198                         return "eval.apply(window, [string])";
6199                     })(), ";", v176)), "})()");
6200                 })(f73(v605, v604));
6201             })();
6202         }
6203         catch (cf){
6204             if (cf.type == 'block' && cf.id == 192)
6205                 return cf.value;
6206             else
6207                 throw cf;
6208         }
6209     })();
6210 })), cdr: v335});
6211 var l214 = f3("ERROR");
6212 v335 = ({car: f33(l214, (function (v607,v608){
6213     if (arguments.length < 2) throw 'too few arguments';
6214     if (arguments.length > 2) throw 'too many arguments';
6215     return (function(){
6216         try {
6217             return (function(){
6218                 return (function(v609){
6219                     return f68("(function(){", v176, f71("throw ", v609, ";", v176), "})()");
6220                 })(f73(v608, v607));
6221             })();
6222         }
6223         catch (cf){
6224             if (cf.type == 'block' && cf.id == 193)
6225                 return cf.value;
6226             else
6227                 throw cf;
6228         }
6229     })();
6230 })), cdr: v335});
6231 var l215 = f3("NEW");
6232 v335 = ({car: f33(l215, (function (v610){
6233     if (arguments.length < 1) throw 'too few arguments';
6234     if (arguments.length > 1) throw 'too many arguments';
6235     return (function(){
6236         try {
6237             return (function(){
6238                 return (function(){
6239                     return "{}";
6240                 })();
6241             })();
6242         }
6243         catch (cf){
6244             if (cf.type == 'block' && cf.id == 194)
6245                 return cf.value;
6246             else
6247                 throw cf;
6248         }
6249     })();
6250 })), cdr: v335});
6251 var l216 = f3("GET");
6252 v335 = ({car: f33(l216, (function (v611,v612,v613){
6253     if (arguments.length < 3) throw 'too few arguments';
6254     if (arguments.length > 3) throw 'too many arguments';
6255     return (function(){
6256         try {
6257             return (function(){
6258                 return (function(v614,v615){
6259                     return f68("(function(){", v176, f71("var tmp = ", "(", v614, ")[", v615, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()");
6260                 })(f73(v612, v611),f73(v613, v611));
6261             })();
6262         }
6263         catch (cf){
6264             if (cf.type == 'block' && cf.id == 195)
6265                 return cf.value;
6266             else
6267                 throw cf;
6268         }
6269     })();
6270 })), cdr: v335});
6271 var l217 = f3("SET");
6272 v335 = ({car: f33(l217, (function (v616,v617,v618,v619){
6273     if (arguments.length < 4) throw 'too few arguments';
6274     if (arguments.length > 4) throw 'too many arguments';
6275     return (function(){
6276         try {
6277             return (function(){
6278                 return (function(v620,v621,v622){
6279                     return f68("((", v620, ")[", v621, "] = ", v622, ")");
6280                 })(f73(v617, v616),f73(v618, v616),f73(v619, v616));
6281             })();
6282         }
6283         catch (cf){
6284             if (cf.type == 'block' && cf.id == 196)
6285                 return cf.value;
6286             else
6287                 throw cf;
6288         }
6289     })();
6290 })), cdr: v335});
6291 var l218 = f3("IN");
6292 v335 = ({car: f33(l218, (function (v623,v624,v625){
6293     if (arguments.length < 3) throw 'too few arguments';
6294     if (arguments.length > 3) throw 'too many arguments';
6295     return (function(){
6296         try {
6297             return (function(){
6298                 return (function(v626,v627){
6299                     return f72(f68("((", v626, ") in (", v627, "))"));
6300                 })(f73(v624, v623),f73(v625, v623));
6301             })();
6302         }
6303         catch (cf){
6304             if (cf.type == 'block' && cf.id == 197)
6305                 return cf.value;
6306             else
6307                 throw cf;
6308         }
6309     })();
6310 })), cdr: v335});
6311 var l219 = f3("FUNCTIONP");
6312 v335 = ({car: f33(l219, (function (v628,v629){
6313     if (arguments.length < 2) throw 'too few arguments';
6314     if (arguments.length > 2) throw 'too many arguments';
6315     return (function(){
6316         try {
6317             return (function(){
6318                 return (function(v630){
6319                     return f72(f68("(typeof ", v630, " == 'function')"));
6320                 })(f73(v629, v628));
6321             })();
6322         }
6323         catch (cf){
6324             if (cf.type == 'block' && cf.id == 198)
6325                 return cf.value;
6326             else
6327                 throw cf;
6328         }
6329     })();
6330 })), cdr: v335});
6331 var l220 = f3("WRITE-STRING");
6332 v335 = ({car: f33(l220, (function (v631,v632){
6333     if (arguments.length < 2) throw 'too few arguments';
6334     if (arguments.length > 2) throw 'too many arguments';
6335     return (function(){
6336         try {
6337             return (function(){
6338                 return (function(v633){
6339                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v633, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6340                         return "lisp.write(x)";
6341                     })(), ";", v176)), "})()");
6342                 })(f73(v632, v631));
6343             })();
6344         }
6345         catch (cf){
6346             if (cf.type == 'block' && cf.id == 199)
6347                 return cf.value;
6348             else
6349                 throw cf;
6350         }
6351     })();
6352 })), cdr: v335});
6353 var l222 = f3("MACROP");
6354 var l221 = f3("MACRO");
6355 var f126;
6356 (function(){
6357     (function(){
6358         return f126 = (function(v634){
6359             ((v634)["fname"] = "MACROP");
6360             return v634;
6361         })((function (v635){
6362             if (arguments.length < 1) throw 'too few arguments';
6363             if (arguments.length > 1) throw 'too many arguments';
6364             return (function(){
6365                 try {
6366                     return (function(){
6367                         return (((function(){
6368                             var tmp = v635;
6369                             return (typeof tmp == 'object' && 'name' in tmp);
6370                         })()?v3: v2) !== v2 ? ((f93(f107(v635, v289)) === l221)?v3: v2) : v2);
6371                     })();
6372                 }
6373                 catch (cf){
6374                     if (cf.type == 'block' && cf.id == 200)
6375                         return cf.value;
6376                     else
6377                         throw cf;
6378                 }
6379             })();
6380         }));
6381     })();
6382     return l222;
6383 })();
6384 var l224 = f3("LS-MACROEXPAND-1");
6385 var l223 = f3("MACRO");
6386 var f127;
6387 (function(){
6388     (function(){
6389         return f127 = (function(v636){
6390             ((v636)["fname"] = "LS-MACROEXPAND-1");
6391             return v636;
6392         })((function (v637,v638){
6393             if (arguments.length < 2) throw 'too few arguments';
6394             if (arguments.length > 2) throw 'too many arguments';
6395             return (function(){
6396                 try {
6397                     return (function(){
6398                         return (f126((function(){
6399                             var tmp = v637;
6400                             return tmp === v2? v2: tmp.car;
6401                         })()) !== v2 ? (function(v639){
6402                             return (((f93(v639) === l223)?v3: v2) !== v2 ? (function(){
6403                                 var f = f120(f94(v639));
6404                                 var args = [];
6405                                 var tail = ((function(){
6406                                     var tmp = v637;
6407                                     return tmp === v2? v2: tmp.cdr;
6408                                 })());
6409                                 while (tail != v2){
6410                                     args.push(tail.car);
6411                                     tail = tail.cdr;
6412                                 }
6413                                 return f.apply(this, args);
6414                             })() : v637);
6415                         })(f107((function(){
6416                             var tmp = v637;
6417                             return tmp === v2? v2: tmp.car;
6418                         })(), v289)) : v637);
6419                     })();
6420                 }
6421                 catch (cf){
6422                     if (cf.type == 'block' && cf.id == 201)
6423                         return cf.value;
6424                     else
6425                         throw cf;
6426                 }
6427             })();
6428         }));
6429     })();
6430     return l224;
6431 })();
6432 var l226 = f3("COMPILE-FUNCALL");
6433 var l225 = f3("LAMBDA");
6434 var f128;
6435 (function(){
6436     (function(){
6437         return f128 = (function(v640){
6438             ((v640)["fname"] = "COMPILE-FUNCALL");
6439             return v640;
6440         })((function (v641,v642,v643){
6441             if (arguments.length < 3) throw 'too few arguments';
6442             if (arguments.length > 3) throw 'too many arguments';
6443             return (function(){
6444                 try {
6445                     return (function(){
6446                         return (((function(){
6447                             var tmp = v641;
6448                             return (typeof tmp == 'object' && 'name' in tmp);
6449                         })()?v3: v2) !== v2 ? (function(){
6450                             return f68(f108(v641, v643), "(", f69(f45((function (v644){
6451                                 if (arguments.length < 1) throw 'too few arguments';
6452                                 if (arguments.length > 1) throw 'too many arguments';
6453                                 return f73(v644, v643);
6454                             }), v642), ", "), ")");
6455                         })() : ((f36(v641) !== v2 ? (((function(){
6456                             var tmp = v641;
6457                             return tmp === v2? v2: tmp.car;
6458                         })() === l225)?v3: v2) : v2) !== v2 ? (function(){
6459                             return f68("(", f73(v641, v643), ")(", f69(f45((function (v645){
6460                                 if (arguments.length < 1) throw 'too few arguments';
6461                                 if (arguments.length > 1) throw 'too many arguments';
6462                                 return f73(v645, v643);
6463                             }), v642), ", "), ")");
6464                         })() : (function(){
6465                             return (function(){
6466                                 throw f68("Invalid function designator ", (v641).name);
6467                             })();
6468                         })()));
6469                     })();
6470                 }
6471                 catch (cf){
6472                     if (cf.type == 'block' && cf.id == 202)
6473                         return cf.value;
6474                     else
6475                         throw cf;
6476                 }
6477             })();
6478         }));
6479     })();
6480     return l226;
6481 })();
6482 var l227 = f3("LS-COMPILE");
6483 var f73;
6484 (function(){
6485     (function(){
6486         return f73 = (function(v646){
6487             ((v646)["fname"] = "LS-COMPILE");
6488             return v646;
6489         })((function (v647,v648){
6490             if (arguments.length < 1) throw 'too few arguments';
6491             if (arguments.length > 2) throw 'too many arguments';
6492             switch(arguments.length){
6493             case 1:
6494             v648=f97();
6495             default: break;
6496             }
6497             return (function(){
6498                 try {
6499                     return (function(){
6500                         return (((function(){
6501                             var tmp = v647;
6502                             return (typeof tmp == 'object' && 'name' in tmp);
6503                         })()?v3: v2) !== v2 ? (function(){
6504                             return f105(v647, v648);
6505                         })() : (f51(v647) !== v2 ? (function(){
6506                             return f6(v647);
6507                         })() : (((typeof(v647) == "string")?v3: v2) !== v2 ? (function(){
6508                             return f68("\"", f75(v647), "\"");
6509                         })() : (f36(v647) !== v2 ? (function(){
6510                             return (f66((function(){
6511                                 var tmp = v647;
6512                                 return tmp === v2? v2: tmp.car;
6513                             })(), v335) !== v2 ? (function(v649){
6514                                 return (function(){
6515                                     var f = v649;
6516                                     var args = [v648];
6517                                     var tail = ((function(){
6518                                         var tmp = v647;
6519                                         return tmp === v2? v2: tmp.cdr;
6520                                     })());
6521                                     while (tail != v2){
6522                                         args.push(tail.car);
6523                                         tail = tail.cdr;
6524                                     }
6525                                     return f.apply(this, args);
6526                                 })();
6527                             })(f30(f66((function(){
6528                                 var tmp = v647;
6529                                 return tmp === v2? v2: tmp.car;
6530                             })(), v335))) : (f126((function(){
6531                                 var tmp = v647;
6532                                 return tmp === v2? v2: tmp.car;
6533                             })()) !== v2 ? f73(f127(v647, v648), v648) : f128((function(){
6534                                 var tmp = v647;
6535                                 return tmp === v2? v2: tmp.car;
6536                             })(), (function(){
6537                                 var tmp = v647;
6538                                 return tmp === v2? v2: tmp.cdr;
6539                             })(), v648)));
6540                         })() : v2))));
6541                     })();
6542                 }
6543                 catch (cf){
6544                     if (cf.type == 'block' && cf.id == 203)
6545                         return cf.value;
6546                     else
6547                         throw cf;
6548                 }
6549             })();
6550         }));
6551     })();
6552     return l227;
6553 })();
6554 var l228 = f3("LS-COMPILE-TOPLEVEL");
6555 var f129;
6556 (function(){
6557     (function(){
6558         return f129 = (function(v650){
6559             ((v650)["fname"] = "LS-COMPILE-TOPLEVEL");
6560             return v650;
6561         })((function (v651){
6562             if (arguments.length < 1) throw 'too few arguments';
6563             if (arguments.length > 1) throw 'too many arguments';
6564             return (function(){
6565                 try {
6566                     return (function(){
6567                         v325 = v2;
6568                         return (function(v652){
6569                             return (function(v653){
6570                                 v325 = v2;
6571                                 return v653;
6572                             })(f68(f69(f45((function (v654){
6573                                 if (arguments.length < 1) throw 'too few arguments';
6574                                 if (arguments.length > 1) throw 'too many arguments';
6575                                 return f68(v654, ";", v176);
6576                             }), v325)), v652));
6577                         })(f73(v651));
6578                     })();
6579                 }
6580                 catch (cf){
6581                     if (cf.type == 'block' && cf.id == 204)
6582                         return cf.value;
6583                     else
6584                         throw cf;
6585                 }
6586             })();
6587         }));
6588     })();
6589     return l228;
6590 })();
6591 var l239 = f3("LS-COMPILE-TOPLEVEL");
6592 var l238 = f3("EVAL");
6593 var l237 = f3("PRIN1-TO-STRING");
6594 var l236 = f3("LS-READ-FROM-STRING");
6595 var l235 = 206;
6596 var l234 = 156;
6597 var l233 = 229;
6598 var l232 = 129;
6599 var l231 = 660;
6600 var l230 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v430", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v429", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v413", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v389", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v346", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v335", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v325", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v313", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v292", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v289", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v253", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v246", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v176", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECLARE-TAGBODY-TAGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GO-TAG-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}};
6601 var l229 = f3("EVAL");
6602 var f120;
6603 (function(){
6604     v289 = l230;
6605     v292 = l231;
6606     v313 = l232;
6607     v389 = l233;
6608     v12 = l234;
6609     return v413 = l235;
6610 })();
6611 (function(){
6612     (function(){
6613         (function(){
6614             return f120 = (function(v655){
6615                 ((v655)["fname"] = "EVAL");
6616                 return v655;
6617             })((function (v656){
6618                 if (arguments.length < 1) throw 'too few arguments';
6619                 if (arguments.length > 1) throw 'too many arguments';
6620                 return (function(){
6621                     try {
6622                         return (function(){
6623                             return (function(v657){
6624                                 return (function(){
6625                                     var string = v657;
6626                                     if (typeof string != 'string')
6627                                         throw 'The value ' + string + ' is not a type string.';
6628                                     return eval.apply(window, [string]);
6629                                 })();
6630                             })((function(v658){
6631                                 (function(){
6632                                     try {
6633                                         return (function(){
6634                                             return (function(v659,v660){
6635                                                 (function(){
6636                                                     while(v659 !== v2){
6637                                                         v660 = (function(){
6638                                                             var tmp = v659;
6639                                                             return tmp === v2? v2: tmp.car;
6640                                                         })();
6641                                                         (function(){
6642                                                             (v660)();
6643                                                             return v2;
6644                                                         })();
6645                                                         v659 = (function(){
6646                                                             var tmp = v659;
6647                                                             return tmp === v2? v2: tmp.cdr;
6648                                                         })();
6649                                                     }return v2;
6650                                                 })();
6651                                                 return v2;
6652                                             })(v253,v2);
6653                                         })();
6654                                     }
6655                                     catch (cf){
6656                                         if (cf.type == 'block' && cf.id == 206)
6657                                             return cf.value;
6658                                         else
6659                                             throw cf;
6660                                     }
6661                                 })();
6662                                 return v658;
6663                             })((function(){
6664                                 v253 = v2;
6665                                 f102();
6666                                 return f129(v656);
6667                             })()));
6668                         })();
6669                     }
6670                     catch (cf){
6671                         if (cf.type == 'block' && cf.id == 205)
6672                             return cf.value;
6673                         else
6674                             throw cf;
6675                     }
6676                 })();
6677             }));
6678         })();
6679         return l229;
6680     })();
6681     return (function(){
6682         var string = f68("var lisp = {};", "lisp.read = ", f108(l236, v2), ";", v176, "lisp.print = ", f108(l237, v2), ";", v176, "lisp.eval = ", f108(l238, v2), ";", v176, "lisp.compile = ", f108(l239, v2), ";", v176, "lisp.evalString = function(str){", v176, "   return lisp.eval(lisp.read(str));", v176, "}", v176, "lisp.compileString = function(str){", v176, "   return lisp.compile(lisp.read(str));", v176, "}", v176);
6683         if (typeof string != 'string')
6684             throw 'The value ' + string + ' is not a type string.';
6685         return eval.apply(window, [string]);
6686     })();
6687 })();