ecmalisp.js

   1 var nil;
   2
   3 function pv (x) { return x==undefined? nil: x; }
   4
   5 function mv(){
   6     var r = [];
   7     r['multiple-value'] = true;
   8     for (var i=0; i<arguments.length; i++)
   9         r.push(arguments[i]);
  10     return r;
  11 }
  12
  13 function forcemv (x) {
  14     return typeof x == 'object' && 'multiple-value' in x? x: mv(x);
  15 }
  16
  17 // NOTE: Define VALUES to be MV for toplevel forms. It is because
  18 // `eval' compiles the forms and execute the Javascript code at
  19 // toplevel with `js-eval', so it is necessary to return multiple
  20 // values from the eval function.
  21 var values = mv;
  22
  23 function checkArgsAtLeast(args, n){
  24     if (args.length < n) throw 'too few arguments';
  25 }
  26
  27 function checkArgsAtMost(args, n){
  28     if (args.length > n) throw 'too many arguments';
  29 }
  30
  31 function checkArgs(args, n){
  32     checkArgsAtLeast(args, n);
  33     checkArgsAtMost(args, n);
  34 }
  35
  36 // Improper list constructor (like LIST*)
  37 function QIList(){
  38     if (arguments.length == 1)
  39         return arguments[0];
  40     else {
  41         var i = arguments.length-1;
  42         var r = arguments[i--];
  43         for (; i>=0; i--){
  44             r = {car: arguments[i], cdr: r};
  45         }
  46         return r;
  47     }
  48 }
  49 var l1 = {name: "DEFMACRO"};
  50 l1;
  51 var l2 = {name: "DECLAIM"};
  52 l2;
  53 var l3 = {name: "NIL"};
  54 ((l3).value = l3);
  55 (nil = l3.value);
  56 var l4 = {name: "T"};
  57 ((l4).value = l4);
  58 var l5 = {name: "LAMBDA"};
  59 l5;
  60 var l6 = {name: "WHEN"};
  61 l6;
  62 var l7 = {name: "UNLESS"};
  63 l7;
  64 var l8 = {name: "DEFVAR"};
  65 l8;
  66 var l9 = {name: "DEFPARAMETER"};
  67 l9;
  68 var l10 = {name: "NAMED-LAMBDA"};
  69 l10;
  70 var l11 = {name: "DEFUN"};
  71 l11;
  72 var l12 = {name: "NULL"};
  73 (function(){
  74     (l12).fvalue = (function(v2){
  75         ((v2)["fname"] = "NULL");
  76         return v2;
  77     })((function (values,v1){
  78         checkArgs(arguments, 2);
  79         return (function(){
  80             return ((v1 === l3.value)?l4.value: l3.value);
  81         })();
  82     }));
  83     return l12;
  84 })();
  85 var l13 = {name: "RETURN"};
  86 l13;
  87 var l14 = {name: "WHILE"};
  88 l14;
  89 var l15 = {name: "*GENSYM-COUNTER*"};
  90 (function(){
  91     (((l15.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l15).value = 0));
  92     return l15;
  93 })();
  94 var l16 = {name: "GENSYM"};
  95 var l17 = {name: "INTEGER-TO-STRING"};
  96 (function(){
  97     (l16).fvalue = (function(v4){
  98         ((v4)["fname"] = "GENSYM");
  99         return v4;
 100     })((function (values,v3){
 101         checkArgsAtMost(arguments, 2);
 102         switch(arguments.length-1){
 103         case 0:
 104         v3="G";
 105         default: break;
 106         }
 107         return (function(){
 108             ((l15).value = (function(){
 109                 var x1 = (function(){
 110                     var symbol = l15;
 111                     var value = symbol.value;
 112                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
 113                     return value;
 114                 })();
 115                 if (typeof x1 !== 'number') throw 'Not a number!';
 116                 var x2 = 1;
 117                 if (typeof x2 !== 'number') throw 'Not a number!';
 118                 return x1+x2;
 119             })());
 120             return (function(){
 121                 var name = (function(){
 122                     var string1 = v3;
 123                     var string2 = l17.fvalue(pv, (function(){
 124                         var symbol = l15;
 125                         var value = symbol.value;
 126                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
 127                         return value;
 128                     })());
 129                     if (typeof string1 != 'string')
 130                         throw 'The value ' + string1 + ' is not a type string.';
 131                     if (typeof string2 != 'string')
 132                         throw 'The value ' + string2 + ' is not a type string.';
 133                     return string1.concat(string2);
 134                 })();
 135                 if (typeof name != 'string')
 136                     throw 'The value ' + name + ' is not a type string.';
 137                 return ({name: name});
 138             })();
 139         })();
 140     }));
 141     return l16;
 142 })();
 143 var l18 = {name: "BOUNDP"};
 144 (function(){
 145     (l18).fvalue = (function(v6){
 146         ((v6)["fname"] = "BOUNDP");
 147         return v6;
 148     })((function (values,v5){
 149         checkArgs(arguments, 2);
 150         return (function(){
 151             return ((v5.value !== undefined)?l4.value: l3.value);
 152         })();
 153     }));
 154     return l18;
 155 })();
 156 var l19 = {name: "="};
 157 (function(){
 158     (l19).fvalue = (function(v9){
 159         ((v9)["fname"] = "=");
 160         return v9;
 161     })((function (values,v7,v8){
 162         checkArgs(arguments, 3);
 163         return (function(){
 164             return (function(){
 165                 var x1 = v7;
 166                 if (typeof x1 !== 'number') throw 'Not a number!';
 167                 var x2 = v8;
 168                 if (typeof x2 !== 'number') throw 'Not a number!';
 169                 return (x1==x2?l4.value: l3.value);
 170             })();
 171         })();
 172     }));
 173     return l19;
 174 })();
 175 var l20 = {name: "*"};
 176 (function(){
 177     (l20).fvalue = (function(v12){
 178         ((v12)["fname"] = "*");
 179         return v12;
 180     })((function (values,v10,v11){
 181         checkArgs(arguments, 3);
 182         return (function(){
 183             return (function(){
 184                 var x1 = v10;
 185                 if (typeof x1 !== 'number') throw 'Not a number!';
 186                 var x2 = v11;
 187                 if (typeof x2 !== 'number') throw 'Not a number!';
 188                 return x1*x2;
 189             })();
 190         })();
 191     }));
 192     return l20;
 193 })();
 194 var l21 = {name: "/"};
 195 (function(){
 196     (l21).fvalue = (function(v15){
 197         ((v15)["fname"] = "/");
 198         return v15;
 199     })((function (values,v13,v14){
 200         checkArgs(arguments, 3);
 201         return (function(){
 202             return (function(){
 203                 var x1 = v13;
 204                 if (typeof x1 !== 'number') throw 'Not a number!';
 205                 var x2 = v14;
 206                 if (typeof x2 !== 'number') throw 'Not a number!';
 207                 return x1/x2;
 208             })();
 209         })();
 210     }));
 211     return l21;
 212 })();
 213 var l22 = {name: "1+"};
 214 (function(){
 215     (l22).fvalue = (function(v17){
 216         ((v17)["fname"] = "1+");
 217         return v17;
 218     })((function (values,v16){
 219         checkArgs(arguments, 2);
 220         return (function(){
 221             return (function(){
 222                 var x1 = v16;
 223                 if (typeof x1 !== 'number') throw 'Not a number!';
 224                 var x2 = 1;
 225                 if (typeof x2 !== 'number') throw 'Not a number!';
 226                 return x1+x2;
 227             })();
 228         })();
 229     }));
 230     return l22;
 231 })();
 232 var l23 = {name: "1-"};
 233 (function(){
 234     (l23).fvalue = (function(v19){
 235         ((v19)["fname"] = "1-");
 236         return v19;
 237     })((function (values,v18){
 238         checkArgs(arguments, 2);
 239         return (function(){
 240             return (function(){
 241                 var x1 = v18;
 242                 if (typeof x1 !== 'number') throw 'Not a number!';
 243                 var x2 = 1;
 244                 if (typeof x2 !== 'number') throw 'Not a number!';
 245                 return x1-x2;
 246             })();
 247         })();
 248     }));
 249     return l23;
 250 })();
 251 var l24 = {name: "ZEROP"};
 252 (function(){
 253     (l24).fvalue = (function(v21){
 254         ((v21)["fname"] = "ZEROP");
 255         return v21;
 256     })((function (values,v20){
 257         checkArgs(arguments, 2);
 258         return (function(){
 259             return (function(){
 260                 var x1 = v20;
 261                 if (typeof x1 !== 'number') throw 'Not a number!';
 262                 var x2 = 0;
 263                 if (typeof x2 !== 'number') throw 'Not a number!';
 264                 return (x1==x2?l4.value: l3.value);
 265             })();
 266         })();
 267     }));
 268     return l24;
 269 })();
 270 var l25 = {name: "TRUNCATE"};
 271 (function(){
 272     (l25).fvalue = (function(v24){
 273         ((v24)["fname"] = "TRUNCATE");
 274         return v24;
 275     })((function (values,v22,v23){
 276         checkArgs(arguments, 3);
 277         return (function(){
 278             return (function(){
 279                 var x = (function(){
 280                     var x1 = v22;
 281                     if (typeof x1 !== 'number') throw 'Not a number!';
 282                     var x2 = v23;
 283                     if (typeof x2 !== 'number') throw 'Not a number!';
 284                     return x1/x2;
 285                 })();
 286                 if (typeof x != 'number')
 287                     throw 'The value ' + x + ' is not a type number.';
 288                 return Math.floor(x);
 289             })();
 290         })();
 291     }));
 292     return l25;
 293 })();
 294 var l26 = {name: "EQL"};
 295 (function(){
 296     (l26).fvalue = (function(v27){
 297         ((v27)["fname"] = "EQL");
 298         return v27;
 299     })((function (values,v25,v26){
 300         checkArgs(arguments, 3);
 301         return (function(){
 302             return ((v25 === v26)?l4.value: l3.value);
 303         })();
 304     }));
 305     return l26;
 306 })();
 307 var l27 = {name: "NOT"};
 308 (function(){
 309     (l27).fvalue = (function(v29){
 310         ((v29)["fname"] = "NOT");
 311         return v29;
 312     })((function (values,v28){
 313         checkArgs(arguments, 2);
 314         return (function(){
 315             return (v28 !== l3.value ? l3.value : l4.value);
 316         })();
 317     }));
 318     return l27;
 319 })();
 320 var l28 = {name: "CONS"};
 321 (function(){
 322     (l28).fvalue = (function(v32){
 323         ((v32)["fname"] = "CONS");
 324         return v32;
 325     })((function (values,v30,v31){
 326         checkArgs(arguments, 3);
 327         return (function(){
 328             return ({car: v30, cdr: v31});
 329         })();
 330     }));
 331     return l28;
 332 })();
 333 var l29 = {name: "CONSP"};
 334 (function(){
 335     (l29).fvalue = (function(v34){
 336         ((v34)["fname"] = "CONSP");
 337         return v34;
 338     })((function (values,v33){
 339         checkArgs(arguments, 2);
 340         return (function(){
 341             return ((function(){
 342                 var tmp = v33;
 343                 return (typeof tmp == 'object' && 'car' in tmp);
 344             })()?l4.value: l3.value);
 345         })();
 346     }));
 347     return l29;
 348 })();
 349 var l30 = {name: "CAR"};
 350 (function(){
 351     (l30).fvalue = (function(v36){
 352         ((v36)["fname"] = "CAR");
 353         return v36;
 354     })((function(){
 355         var func = (function (values,v35){
 356             checkArgs(arguments, 2);
 357             return (function(){
 358                 return (function(){
 359                     var tmp = v35;
 360                     return tmp === l3.value? l3.value: tmp.car;
 361                 })();
 362             })();
 363         });
 364         func.docstring = 'Return the CAR part of a cons, or NIL if X is null.';
 365         return func;
 366     })());
 367     return l30;
 368 })();
 369 var l31 = {name: "CDR"};
 370 (function(){
 371     (l31).fvalue = (function(v38){
 372         ((v38)["fname"] = "CDR");
 373         return v38;
 374     })((function (values,v37){
 375         checkArgs(arguments, 2);
 376         return (function(){
 377             return (function(){
 378                 var tmp = v37;
 379                 return tmp === l3.value? l3.value: tmp.cdr;
 380             })();
 381         })();
 382     }));
 383     return l31;
 384 })();
 385 var l32 = {name: "CAAR"};
 386 (function(){
 387     (l32).fvalue = (function(v40){
 388         ((v40)["fname"] = "CAAR");
 389         return v40;
 390     })((function (values,v39){
 391         checkArgs(arguments, 2);
 392         return (function(){
 393             return (function(){
 394                 var tmp = (function(){
 395                     var tmp = v39;
 396                     return tmp === l3.value? l3.value: tmp.car;
 397                 })();
 398                 return tmp === l3.value? l3.value: tmp.car;
 399             })();
 400         })();
 401     }));
 402     return l32;
 403 })();
 404 var l33 = {name: "CADR"};
 405 (function(){
 406     (l33).fvalue = (function(v42){
 407         ((v42)["fname"] = "CADR");
 408         return v42;
 409     })((function (values,v41){
 410         checkArgs(arguments, 2);
 411         return (function(){
 412             return (function(){
 413                 var tmp = (function(){
 414                     var tmp = v41;
 415                     return tmp === l3.value? l3.value: tmp.cdr;
 416                 })();
 417                 return tmp === l3.value? l3.value: tmp.car;
 418             })();
 419         })();
 420     }));
 421     return l33;
 422 })();
 423 var l34 = {name: "CDAR"};
 424 (function(){
 425     (l34).fvalue = (function(v44){
 426         ((v44)["fname"] = "CDAR");
 427         return v44;
 428     })((function (values,v43){
 429         checkArgs(arguments, 2);
 430         return (function(){
 431             return (function(){
 432                 var tmp = (function(){
 433                     var tmp = v43;
 434                     return tmp === l3.value? l3.value: tmp.car;
 435                 })();
 436                 return tmp === l3.value? l3.value: tmp.cdr;
 437             })();
 438         })();
 439     }));
 440     return l34;
 441 })();
 442 var l35 = {name: "CDDR"};
 443 (function(){
 444     (l35).fvalue = (function(v46){
 445         ((v46)["fname"] = "CDDR");
 446         return v46;
 447     })((function (values,v45){
 448         checkArgs(arguments, 2);
 449         return (function(){
 450             return (function(){
 451                 var tmp = (function(){
 452                     var tmp = v45;
 453                     return tmp === l3.value? l3.value: tmp.cdr;
 454                 })();
 455                 return tmp === l3.value? l3.value: tmp.cdr;
 456             })();
 457         })();
 458     }));
 459     return l35;
 460 })();
 461 var l36 = {name: "CADDR"};
 462 (function(){
 463     (l36).fvalue = (function(v48){
 464         ((v48)["fname"] = "CADDR");
 465         return v48;
 466     })((function (values,v47){
 467         checkArgs(arguments, 2);
 468         return (function(){
 469             return (function(){
 470                 var tmp = (function(){
 471                     var tmp = (function(){
 472                         var tmp = v47;
 473                         return tmp === l3.value? l3.value: tmp.cdr;
 474                     })();
 475                     return tmp === l3.value? l3.value: tmp.cdr;
 476                 })();
 477                 return tmp === l3.value? l3.value: tmp.car;
 478             })();
 479         })();
 480     }));
 481     return l36;
 482 })();
 483 var l37 = {name: "CDDDR"};
 484 (function(){
 485     (l37).fvalue = (function(v50){
 486         ((v50)["fname"] = "CDDDR");
 487         return v50;
 488     })((function (values,v49){
 489         checkArgs(arguments, 2);
 490         return (function(){
 491             return (function(){
 492                 var tmp = (function(){
 493                     var tmp = (function(){
 494                         var tmp = v49;
 495                         return tmp === l3.value? l3.value: tmp.cdr;
 496                     })();
 497                     return tmp === l3.value? l3.value: tmp.cdr;
 498                 })();
 499                 return tmp === l3.value? l3.value: tmp.cdr;
 500             })();
 501         })();
 502     }));
 503     return l37;
 504 })();
 505 var l38 = {name: "CADDDR"};
 506 (function(){
 507     (l38).fvalue = (function(v52){
 508         ((v52)["fname"] = "CADDDR");
 509         return v52;
 510     })((function (values,v51){
 511         checkArgs(arguments, 2);
 512         return (function(){
 513             return (function(){
 514                 var tmp = (function(){
 515                     var tmp = (function(){
 516                         var tmp = (function(){
 517                             var tmp = v51;
 518                             return tmp === l3.value? l3.value: tmp.cdr;
 519                         })();
 520                         return tmp === l3.value? l3.value: tmp.cdr;
 521                     })();
 522                     return tmp === l3.value? l3.value: tmp.cdr;
 523                 })();
 524                 return tmp === l3.value? l3.value: tmp.car;
 525             })();
 526         })();
 527     }));
 528     return l38;
 529 })();
 530 var l39 = {name: "FIRST"};
 531 (function(){
 532     (l39).fvalue = (function(v54){
 533         ((v54)["fname"] = "FIRST");
 534         return v54;
 535     })((function (values,v53){
 536         checkArgs(arguments, 2);
 537         return (function(){
 538             return (function(){
 539                 var tmp = v53;
 540                 return tmp === l3.value? l3.value: tmp.car;
 541             })();
 542         })();
 543     }));
 544     return l39;
 545 })();
 546 var l40 = {name: "SECOND"};
 547 (function(){
 548     (l40).fvalue = (function(v56){
 549         ((v56)["fname"] = "SECOND");
 550         return v56;
 551     })((function (values,v55){
 552         checkArgs(arguments, 2);
 553         return (function(){
 554             return l33.fvalue(values, v55);
 555         })();
 556     }));
 557     return l40;
 558 })();
 559 var l41 = {name: "THIRD"};
 560 (function(){
 561     (l41).fvalue = (function(v58){
 562         ((v58)["fname"] = "THIRD");
 563         return v58;
 564     })((function (values,v57){
 565         checkArgs(arguments, 2);
 566         return (function(){
 567             return l36.fvalue(values, v57);
 568         })();
 569     }));
 570     return l41;
 571 })();
 572 var l42 = {name: "FOURTH"};
 573 (function(){
 574     (l42).fvalue = (function(v60){
 575         ((v60)["fname"] = "FOURTH");
 576         return v60;
 577     })((function (values,v59){
 578         checkArgs(arguments, 2);
 579         return (function(){
 580             return l38.fvalue(values, v59);
 581         })();
 582     }));
 583     return l42;
 584 })();
 585 var l43 = {name: "LIST"};
 586 (function(){
 587     (l43).fvalue = (function(v62){
 588         ((v62)["fname"] = "LIST");
 589         return v62;
 590     })((function (values){
 591         var v61= l3.value;
 592         for (var i = arguments.length-1; i>=1; i--)
 593             v61 = {car: arguments[i], cdr:
 594         v61};
 595         return (function(){
 596             return v61;
 597         })();
 598     }));
 599     return l43;
 600 })();
 601 var l44 = {name: "ATOM"};
 602 (function(){
 603     (l44).fvalue = (function(v64){
 604         ((v64)["fname"] = "ATOM");
 605         return v64;
 606     })((function (values,v63){
 607         checkArgs(arguments, 2);
 608         return (function(){
 609             return l27.fvalue(values, ((function(){
 610                 var tmp = v63;
 611                 return (typeof tmp == 'object' && 'car' in tmp);
 612             })()?l4.value: l3.value));
 613         })();
 614     }));
 615     return l44;
 616 })();
 617 var l45 = {name: "INCF"};
 618 l45;
 619 var l46 = {name: "DECF"};
 620 l46;
 621 var l47 = {name: "PUSH"};
 622 l47;
 623 var l48 = {name: "DOLIST"};
 624 l48;
 625 var l49 = {name: "DOTIMES"};
 626 l49;
 627 var l50 = {name: "COND"};
 628 l50;
 629 var l51 = {name: "CASE"};
 630 l51;
 631 var l52 = {name: "ECASE"};
 632 l52;
 633 var l53 = {name: "AND"};
 634 l53;
 635 var l54 = {name: "OR"};
 636 l54;
 637 var l55 = {name: "PROG1"};
 638 l55;
 639 var l56 = {name: "PROG2"};
 640 l56;
 641 var l57 = {name: "ENSURE-LIST"};
 642 var l58 = {name: "LISTP"};
 643 (function(){
 644     (l57).fvalue = (function(v66){
 645         ((v66)["fname"] = "ENSURE-LIST");
 646         return v66;
 647     })((function (values,v65){
 648         checkArgs(arguments, 2);
 649         return (function(){
 650             return (l58.fvalue(pv, v65) !== l3.value ? v65 : l43.fvalue(values, v65));
 651         })();
 652     }));
 653     return l57;
 654 })();
 655 var l59 = {name: "!REDUCE"};
 656 (function(){
 657     (l59).fvalue = (function(v70){
 658         ((v70)["fname"] = "!REDUCE");
 659         return v70;
 660     })((function (values,v67,v68,v69){
 661         checkArgs(arguments, 4);
 662         return (function(){
 663             return (l12.fvalue(pv, v68) !== l3.value ? v69 : l59.fvalue(values, v67, (function(){
 664                 var tmp = v68;
 665                 return tmp === l3.value? l3.value: tmp.cdr;
 666             })(), (v67)(pv, v69, (function(){
 667                 var tmp = v68;
 668                 return tmp === l3.value? l3.value: tmp.car;
 669             })())));
 670         })();
 671     }));
 672     return l59;
 673 })();
 674 var l60 = {name: "+"};
 675 (function(){
 676     (l60).fvalue = (function(v75){
 677         ((v75)["fname"] = "+");
 678         return v75;
 679     })((function (values){
 680         var v71= l3.value;
 681         for (var i = arguments.length-1; i>=1; i--)
 682             v71 = {car: arguments[i], cdr:
 683         v71};
 684         return (function(){
 685             return (function(v72){
 686                 return (function(){
 687                     return (function(v73,v74){
 688                         (function(){
 689                             while(v73 !== l3.value){
 690                                 (v74 = (function(){
 691                                     var tmp = v73;
 692                                     return tmp === l3.value? l3.value: tmp.car;
 693                                 })());
 694                                 (function(){
 695                                     (v72 = (function(){
 696                                         var x1 = v72;
 697                                         if (typeof x1 !== 'number') throw 'Not a number!';
 698                                         var x2 = v74;
 699                                         if (typeof x2 !== 'number') throw 'Not a number!';
 700                                         return x1+x2;
 701                                     })());
 702                                     return l3.value;
 703                                 })();
 704                                 (v73 = (function(){
 705                                     var tmp = v73;
 706                                     return tmp === l3.value? l3.value: tmp.cdr;
 707                                 })());
 708                             }return l3.value;
 709                         })();
 710                         return v72;
 711                     })(v71,l3.value);
 712                 })();
 713             })(0);
 714         })();
 715     }));
 716     return l60;
 717 })();
 718 var l61 = {name: "-"};
 719 (function(){
 720     (l61).fvalue = (function(v81){
 721         ((v81)["fname"] = "-");
 722         return v81;
 723     })((function (values,v77){
 724         checkArgsAtLeast(arguments, 2);
 725         var v76= l3.value;
 726         for (var i = arguments.length-1; i>=2; i--)
 727             v76 = {car: arguments[i], cdr:
 728         v76};
 729         return (function(){
 730             return (l12.fvalue(pv, v76) !== l3.value ? (function(){
 731                 var x1 = v77;
 732                 if (typeof x1 !== 'number') throw 'Not a number!';
 733                 return -x1;
 734             })() : (function(v78){
 735                 return (function(){
 736                     return (function(v79,v80){
 737                         (function(){
 738                             while(v79 !== l3.value){
 739                                 (v80 = (function(){
 740                                     var tmp = v79;
 741                                     return tmp === l3.value? l3.value: tmp.car;
 742                                 })());
 743                                 (function(){
 744                                     (v78 = (function(){
 745                                         var x1 = v78;
 746                                         if (typeof x1 !== 'number') throw 'Not a number!';
 747                                         var x2 = v80;
 748                                         if (typeof x2 !== 'number') throw 'Not a number!';
 749                                         return x1-x2;
 750                                     })());
 751                                     return l3.value;
 752                                 })();
 753                                 (v79 = (function(){
 754                                     var tmp = v79;
 755                                     return tmp === l3.value? l3.value: tmp.cdr;
 756                                 })());
 757                             }return l3.value;
 758                         })();
 759                         return v78;
 760                     })(v76,l3.value);
 761                 })();
 762             })(v77));
 763         })();
 764     }));
 765     return l61;
 766 })();
 767 var l62 = {name: "APPEND-TWO"};
 768 var l63 = {name: "APPEND"};
 769 (function(){
 770     (l62).fvalue = (function(v84){
 771         ((v84)["fname"] = "APPEND-TWO");
 772         return v84;
 773     })((function (values,v82,v83){
 774         checkArgs(arguments, 3);
 775         return (function(){
 776             return (l12.fvalue(pv, v82) !== l3.value ? v83 : ({car: (function(){
 777                 var tmp = v82;
 778                 return tmp === l3.value? l3.value: tmp.car;
 779             })(), cdr: l63.fvalue(pv, (function(){
 780                 var tmp = v82;
 781                 return tmp === l3.value? l3.value: tmp.cdr;
 782             })(), v83)}));
 783         })();
 784     }));
 785     return l62;
 786 })();
 787 (function(){
 788     (l63).fvalue = (function(v86){
 789         ((v86)["fname"] = "APPEND");
 790         return v86;
 791     })((function (values){
 792         var v85= l3.value;
 793         for (var i = arguments.length-1; i>=1; i--)
 794             v85 = {car: arguments[i], cdr:
 795         v85};
 796         return (function(){
 797             return l59.fvalue(values, (function(){
 798                 var symbol = l62;
 799                 var func = symbol.fvalue;
 800                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
 801                 return func;
 802             })(), v85, l3);
 803         })();
 804     }));
 805     return l63;
 806 })();
 807 var l64 = {name: "REVAPPEND"};
 808 (function(){
 809     (l64).fvalue = (function(v89){
 810         ((v89)["fname"] = "REVAPPEND");
 811         return v89;
 812     })((function (values,v87,v88){
 813         checkArgs(arguments, 3);
 814         return (function(){
 815             (function(){
 816                 return (function(){
 817                     while(v87 !== l3.value){
 818                         (v88 = ({car: (function(){
 819                             var tmp = v87;
 820                             return tmp === l3.value? l3.value: tmp.car;
 821                         })(), cdr: v88}));
 822                         (v87 = (function(){
 823                             var tmp = v87;
 824                             return tmp === l3.value? l3.value: tmp.cdr;
 825                         })());
 826                     }return l3.value;
 827                 })();
 828             })();
 829             return v88;
 830         })();
 831     }));
 832     return l64;
 833 })();
 834 var l65 = {name: "REVERSE"};
 835 (function(){
 836     (l65).fvalue = (function(v91){
 837         ((v91)["fname"] = "REVERSE");
 838         return v91;
 839     })((function (values,v90){
 840         checkArgs(arguments, 2);
 841         return (function(){
 842             return l64.fvalue(values, v90, l3);
 843         })();
 844     }));
 845     return l65;
 846 })();
 847 var l66 = {name: "PSETQ"};
 848 l66;
 849 var l67 = {name: "DO"};
 850 l67;
 851 var l68 = {name: "DO*"};
 852 l68;
 853 var l69 = {name: "LIST-LENGTH"};
 854 (function(){
 855     (l69).fvalue = (function(v94){
 856         ((v94)["fname"] = "LIST-LENGTH");
 857         return v94;
 858     })((function (values,v92){
 859         checkArgs(arguments, 2);
 860         return (function(){
 861             return (function(v93){
 862                 (function(){
 863                     return (function(){
 864                         while(l27.fvalue(pv, l12.fvalue(pv, v92)) !== l3.value){
 865                             (v93 = (function(){
 866                                 var x1 = v93;
 867                                 if (typeof x1 !== 'number') throw 'Not a number!';
 868                                 var x2 = 1;
 869                                 if (typeof x2 !== 'number') throw 'Not a number!';
 870                                 return x1+x2;
 871                             })());
 872                             (v92 = (function(){
 873                                 var tmp = v92;
 874                                 return tmp === l3.value? l3.value: tmp.cdr;
 875                             })());
 876                         }return l3.value;
 877                     })();
 878                 })();
 879                 return v93;
 880             })(0);
 881         })();
 882     }));
 883     return l69;
 884 })();
 885 var l70 = {name: "LENGTH"};
 886 (function(){
 887     (l70).fvalue = (function(v96){
 888         ((v96)["fname"] = "LENGTH");
 889         return v96;
 890     })((function (values,v95){
 891         checkArgs(arguments, 2);
 892         return (function(){
 893             return (((typeof(v95) == "string")?l4.value: l3.value) !== l3.value ? (function(){
 894                 var x = v95;
 895                 if (typeof x != 'string')
 896                     throw 'The value ' + x + ' is not a type string.';
 897                 return x.length;
 898             })() : (((function(){
 899                 var x = v95;
 900                 return typeof x === 'object' && 'length' in x;
 901             })()?l4.value: l3.value) !== l3.value ? (function(){
 902                 var tmp = (v95)["length"];
 903                 return tmp == undefined? l3.value: tmp ;
 904             })() : (l58.fvalue(pv, v95) !== l3.value ? l69.fvalue(values, v95) : l3.value)));
 905         })();
 906     }));
 907     return l70;
 908 })();
 909 var l71 = {name: "CONCAT-TWO"};
 910 (function(){
 911     (l71).fvalue = (function(v99){
 912         ((v99)["fname"] = "CONCAT-TWO");
 913         return v99;
 914     })((function (values,v97,v98){
 915         checkArgs(arguments, 3);
 916         return (function(){
 917             return (function(){
 918                 var string1 = v97;
 919                 var string2 = v98;
 920                 if (typeof string1 != 'string')
 921                     throw 'The value ' + string1 + ' is not a type string.';
 922                 if (typeof string2 != 'string')
 923                     throw 'The value ' + string2 + ' is not a type string.';
 924                 return string1.concat(string2);
 925             })();
 926         })();
 927     }));
 928     return l71;
 929 })();
 930 var l72 = {name: "MAPCAR"};
 931 (function(){
 932     (l72).fvalue = (function(v102){
 933         ((v102)["fname"] = "MAPCAR");
 934         return v102;
 935     })((function (values,v100,v101){
 936         checkArgs(arguments, 3);
 937         return (function(){
 938             return (l12.fvalue(pv, v101) !== l3.value ? l3 : ({car: (v100)(pv, (function(){
 939                 var tmp = v101;
 940                 return tmp === l3.value? l3.value: tmp.car;
 941             })()), cdr: l72.fvalue(pv, v100, (function(){
 942                 var tmp = v101;
 943                 return tmp === l3.value? l3.value: tmp.cdr;
 944             })())}));
 945         })();
 946     }));
 947     return l72;
 948 })();
 949 var l73 = {name: "IDENTITY"};
 950 (function(){
 951     (l73).fvalue = (function(v104){
 952         ((v104)["fname"] = "IDENTITY");
 953         return v104;
 954     })((function (values,v103){
 955         checkArgs(arguments, 2);
 956         return (function(){
 957             return v103;
 958         })();
 959     }));
 960     return l73;
 961 })();
 962 var l74 = {name: "COPY-LIST"};
 963 (function(){
 964     (l74).fvalue = (function(v106){
 965         ((v106)["fname"] = "COPY-LIST");
 966         return v106;
 967     })((function (values,v105){
 968         checkArgs(arguments, 2);
 969         return (function(){
 970             return l72.fvalue(values, (function(){
 971                 var symbol = l73;
 972                 var func = symbol.fvalue;
 973                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
 974                 return func;
 975             })(), v105);
 976         })();
 977     }));
 978     return l74;
 979 })();
 980 var l75 = {name: "CODE-CHAR"};
 981 (function(){
 982     (l75).fvalue = (function(v108){
 983         ((v108)["fname"] = "CODE-CHAR");
 984         return v108;
 985     })((function (values,v107){
 986         checkArgs(arguments, 2);
 987         return (function(){
 988             return v107;
 989         })();
 990     }));
 991     return l75;
 992 })();
 993 var l76 = {name: "CHAR-CODE"};
 994 (function(){
 995     (l76).fvalue = (function(v110){
 996         ((v110)["fname"] = "CHAR-CODE");
 997         return v110;
 998     })((function (values,v109){
 999         checkArgs(arguments, 2);
1000         return (function(){
1001             return v109;
1002         })();
1003     }));
1004     return l76;
1005 })();
1006 var l77 = {name: "CHAR="};
1007 (function(){
1008     (l77).fvalue = (function(v113){
1009         ((v113)["fname"] = "CHAR=");
1010         return v113;
1011     })((function (values,v111,v112){
1012         checkArgs(arguments, 3);
1013         return (function(){
1014             return (function(){
1015                 var x1 = v111;
1016                 if (typeof x1 !== 'number') throw 'Not a number!';
1017                 var x2 = v112;
1018                 if (typeof x2 !== 'number') throw 'Not a number!';
1019                 return (x1==x2?l4.value: l3.value);
1020             })();
1021         })();
1022     }));
1023     return l77;
1024 })();
1025 var l78 = {name: "INTEGERP"};
1026 (function(){
1027     (l78).fvalue = (function(v115){
1028         ((v115)["fname"] = "INTEGERP");
1029         return v115;
1030     })((function (values,v114){
1031         checkArgs(arguments, 2);
1032         return (function(){
1033             return (((typeof (v114) == "number")?l4.value: l3.value) !== l3.value ? (function(){
1034                 var x1 = (function(){
1035                     var x = v114;
1036                     if (typeof x != 'number')
1037                         throw 'The value ' + x + ' is not a type number.';
1038                     return Math.floor(x);
1039                 })();
1040                 if (typeof x1 !== 'number') throw 'Not a number!';
1041                 var x2 = v114;
1042                 if (typeof x2 !== 'number') throw 'Not a number!';
1043                 return (x1==x2?l4.value: l3.value);
1044             })() : l3.value);
1045         })();
1046     }));
1047     return l78;
1048 })();
1049 var l79 = {name: "PLUSP"};
1050 (function(){
1051     (l79).fvalue = (function(v117){
1052         ((v117)["fname"] = "PLUSP");
1053         return v117;
1054     })((function (values,v116){
1055         checkArgs(arguments, 2);
1056         return (function(){
1057             return (function(){
1058                 var x1 = 0;
1059                 if (typeof x1 !== 'number') throw 'Not a number!';
1060                 var x2 = v116;
1061                 if (typeof x2 !== 'number') throw 'Not a number!';
1062                 return (x1<x2?l4.value: l3.value);
1063             })();
1064         })();
1065     }));
1066     return l79;
1067 })();
1068 var l80 = {name: "MINUSP"};
1069 (function(){
1070     (l80).fvalue = (function(v119){
1071         ((v119)["fname"] = "MINUSP");
1072         return v119;
1073     })((function (values,v118){
1074         checkArgs(arguments, 2);
1075         return (function(){
1076             return (function(){
1077                 var x1 = v118;
1078                 if (typeof x1 !== 'number') throw 'Not a number!';
1079                 var x2 = 0;
1080                 if (typeof x2 !== 'number') throw 'Not a number!';
1081                 return (x1<x2?l4.value: l3.value);
1082             })();
1083         })();
1084     }));
1085     return l80;
1086 })();
1087 (function(){
1088     (l58).fvalue = (function(v122){
1089         ((v122)["fname"] = "LISTP");
1090         return v122;
1091     })((function (values,v120){
1092         checkArgs(arguments, 2);
1093         return (function(){
1094             return (function(v121){
1095                 return (v121 !== l3.value ? v121 : l12.fvalue(values, v120));
1096             })(((function(){
1097                 var tmp = v120;
1098                 return (typeof tmp == 'object' && 'car' in tmp);
1099             })()?l4.value: l3.value));
1100         })();
1101     }));
1102     return l58;
1103 })();
1104 var l81 = {name: "NTHCDR"};
1105 (function(){
1106     (l81).fvalue = (function(v125){
1107         ((v125)["fname"] = "NTHCDR");
1108         return v125;
1109     })((function (values,v123,v124){
1110         checkArgs(arguments, 3);
1111         return (function(){
1112             (function(){
1113                 return (function(){
1114                     while((l79.fvalue(pv, v123) !== l3.value ? v124 : l3.value) !== l3.value){
1115                         (v123 = l23.fvalue(pv, v123));
1116                         (v124 = (function(){
1117                             var tmp = v124;
1118                             return tmp === l3.value? l3.value: tmp.cdr;
1119                         })());
1120                     }return l3.value;
1121                 })();
1122             })();
1123             return v124;
1124         })();
1125     }));
1126     return l81;
1127 })();
1128 var l82 = {name: "NTH"};
1129 (function(){
1130     (l82).fvalue = (function(v128){
1131         ((v128)["fname"] = "NTH");
1132         return v128;
1133     })((function (values,v126,v127){
1134         checkArgs(arguments, 3);
1135         return (function(){
1136             return (function(){
1137                 var tmp = l81.fvalue(pv, v126, v127);
1138                 return tmp === l3.value? l3.value: tmp.car;
1139             })();
1140         })();
1141     }));
1142     return l82;
1143 })();
1144 var l83 = {name: "LAST"};
1145 (function(){
1146     (l83).fvalue = (function(v130){
1147         ((v130)["fname"] = "LAST");
1148         return v130;
1149     })((function (values,v129){
1150         checkArgs(arguments, 2);
1151         return (function(){
1152             (function(){
1153                 return (function(){
1154                     while(((function(){
1155                         var tmp = (function(){
1156                             var tmp = v129;
1157                             return tmp === l3.value? l3.value: tmp.cdr;
1158                         })();
1159                         return (typeof tmp == 'object' && 'car' in tmp);
1160                     })()?l4.value: l3.value) !== l3.value){
1161                         (v129 = (function(){
1162                             var tmp = v129;
1163                             return tmp === l3.value? l3.value: tmp.cdr;
1164                         })());
1165                     }return l3.value;
1166                 })();
1167             })();
1168             return v129;
1169         })();
1170     }));
1171     return l83;
1172 })();
1173 var l84 = {name: "BUTLAST"};
1174 (function(){
1175     (l84).fvalue = (function(v132){
1176         ((v132)["fname"] = "BUTLAST");
1177         return v132;
1178     })((function (values,v131){
1179         checkArgs(arguments, 2);
1180         return (function(){
1181             return (((function(){
1182                 var tmp = (function(){
1183                     var tmp = v131;
1184                     return tmp === l3.value? l3.value: tmp.cdr;
1185                 })();
1186                 return (typeof tmp == 'object' && 'car' in tmp);
1187             })()?l4.value: l3.value) !== l3.value ? ({car: (function(){
1188                 var tmp = v131;
1189                 return tmp === l3.value? l3.value: tmp.car;
1190             })(), cdr: l84.fvalue(pv, (function(){
1191                 var tmp = v131;
1192                 return tmp === l3.value? l3.value: tmp.cdr;
1193             })())}) : l3.value);
1194         })();
1195     }));
1196     return l84;
1197 })();
1198 var l85 = {name: "MEMBER"};
1199 (function(){
1200     (l85).fvalue = (function(v135){
1201         ((v135)["fname"] = "MEMBER");
1202         return v135;
1203     })((function (values,v133,v134){
1204         checkArgs(arguments, 3);
1205         return (function(){
1206             return (function(){
1207                 try {
1208                     return (function(){
1209                         while(v134 !== l3.value){
1210                             (l26.fvalue(pv, v133, (function(){
1211                                 var tmp = v134;
1212                                 return tmp === l3.value? l3.value: tmp.car;
1213                             })()) !== l3.value ? (function(){
1214                                 var values = mv;
1215                                 throw ({type: 'block', id: 62, values: v134, message: 'Return from unknown block NIL.'})
1216                             })() : l3.value);
1217                             (v134 = (function(){
1218                                 var tmp = v134;
1219                                 return tmp === l3.value? l3.value: tmp.cdr;
1220                             })());
1221                         }return l3.value;
1222                     })();
1223                 }
1224                 catch (cf){
1225                     if (cf.type == 'block' && cf.id == 62)
1226                         return values.apply(this, forcemv(cf.values));
1227                     else
1228                         throw cf;
1229                 }
1230             })();
1231         })();
1232     }));
1233     return l85;
1234 })();
1235 var l86 = {name: "REMOVE"};
1236 (function(){
1237     (l86).fvalue = (function(v138){
1238         ((v138)["fname"] = "REMOVE");
1239         return v138;
1240     })((function (values,v136,v137){
1241         checkArgs(arguments, 3);
1242         return (function(){
1243             return (l12.fvalue(pv, v137) !== l3.value ? l3.value : (l26.fvalue(pv, v136, (function(){
1244                 var tmp = v137;
1245                 return tmp === l3.value? l3.value: tmp.car;
1246             })()) !== l3.value ? l86.fvalue(values, v136, (function(){
1247                 var tmp = v137;
1248                 return tmp === l3.value? l3.value: tmp.cdr;
1249             })()) : ({car: (function(){
1250                 var tmp = v137;
1251                 return tmp === l3.value? l3.value: tmp.car;
1252             })(), cdr: l86.fvalue(pv, v136, (function(){
1253                 var tmp = v137;
1254                 return tmp === l3.value? l3.value: tmp.cdr;
1255             })())})));
1256         })();
1257     }));
1258     return l86;
1259 })();
1260 var l87 = {name: "REMOVE-IF"};
1261 (function(){
1262     (l87).fvalue = (function(v141){
1263         ((v141)["fname"] = "REMOVE-IF");
1264         return v141;
1265     })((function (values,v139,v140){
1266         checkArgs(arguments, 3);
1267         return (function(){
1268             return (l12.fvalue(pv, v140) !== l3.value ? l3.value : ((v139)(pv, (function(){
1269                 var tmp = v140;
1270                 return tmp === l3.value? l3.value: tmp.car;
1271             })()) !== l3.value ? l87.fvalue(values, v139, (function(){
1272                 var tmp = v140;
1273                 return tmp === l3.value? l3.value: tmp.cdr;
1274             })()) : ({car: (function(){
1275                 var tmp = v140;
1276                 return tmp === l3.value? l3.value: tmp.car;
1277             })(), cdr: l87.fvalue(pv, v139, (function(){
1278                 var tmp = v140;
1279                 return tmp === l3.value? l3.value: tmp.cdr;
1280             })())})));
1281         })();
1282     }));
1283     return l87;
1284 })();
1285 var l88 = {name: "REMOVE-IF-NOT"};
1286 (function(){
1287     (l88).fvalue = (function(v144){
1288         ((v144)["fname"] = "REMOVE-IF-NOT");
1289         return v144;
1290     })((function (values,v142,v143){
1291         checkArgs(arguments, 3);
1292         return (function(){
1293             return (l12.fvalue(pv, v143) !== l3.value ? l3.value : ((v142)(pv, (function(){
1294                 var tmp = v143;
1295                 return tmp === l3.value? l3.value: tmp.car;
1296             })()) !== l3.value ? ({car: (function(){
1297                 var tmp = v143;
1298                 return tmp === l3.value? l3.value: tmp.car;
1299             })(), cdr: l88.fvalue(pv, v142, (function(){
1300                 var tmp = v143;
1301                 return tmp === l3.value? l3.value: tmp.cdr;
1302             })())}) : l88.fvalue(values, v142, (function(){
1303                 var tmp = v143;
1304                 return tmp === l3.value? l3.value: tmp.cdr;
1305             })())));
1306         })();
1307     }));
1308     return l88;
1309 })();
1310 var l89 = {name: "DIGIT-CHAR-P"};
1311 (function(){
1312     (l89).fvalue = (function(v146){
1313         ((v146)["fname"] = "DIGIT-CHAR-P");
1314         return v146;
1315     })((function (values,v145){
1316         checkArgs(arguments, 2);
1317         return (function(){
1318             return (((function(){
1319                 var x1 = 48;
1320                 if (typeof x1 !== 'number') throw 'Not a number!';
1321                 var x2 = v145;
1322                 if (typeof x2 !== 'number') throw 'Not a number!';
1323                 return (x1<=x2?l4.value: l3.value);
1324             })() !== l3.value ? (function(){
1325                 var x1 = v145;
1326                 if (typeof x1 !== 'number') throw 'Not a number!';
1327                 var x2 = 57;
1328                 if (typeof x2 !== 'number') throw 'Not a number!';
1329                 return (x1<=x2?l4.value: l3.value);
1330             })() : l3.value) !== l3.value ? (function(){
1331                 var x1 = v145;
1332                 if (typeof x1 !== 'number') throw 'Not a number!';
1333                 var x2 = 48;
1334                 if (typeof x2 !== 'number') throw 'Not a number!';
1335                 return x1-x2;
1336             })() : l3.value);
1337         })();
1338     }));
1339     return l89;
1340 })();
1341 var l90 = {name: "SUBSEQ"};
1342 (function(){
1343     (l90).fvalue = (function(v150){
1344         ((v150)["fname"] = "SUBSEQ");
1345         return v150;
1346     })((function (values,v147,v148,v149){
1347         checkArgsAtLeast(arguments, 3);
1348         checkArgsAtMost(arguments, 4);
1349         switch(arguments.length-1){
1350         case 2:
1351         v149=l3.value;
1352         default: break;
1353         }
1354         return (function(){
1355             return (((typeof(v147) == "string")?l4.value: l3.value) !== l3.value ? (v149 !== l3.value ? (function(){
1356                 var str = v147;
1357                 var a = v148;
1358                 var b;
1359                 b = v149;
1360                 return str.slice(a,b);
1361             })() : (function(){
1362                 var str = v147;
1363                 var a = v148;
1364                 var b;
1365                 return str.slice(a,b);
1366             })()) : (function(){
1367                 throw "Unsupported argument.";
1368             })());
1369         })();
1370     }));
1371     return l90;
1372 })();
1373 var l91 = {name: "SOME"};
1374 (function(){
1375     (l91).fvalue = (function(v157){
1376         ((v157)["fname"] = "SOME");
1377         return v157;
1378     })((function (values,v151,v152){
1379         checkArgs(arguments, 3);
1380         return (function(){
1381             try {
1382                 return (((typeof(v152) == "string")?l4.value: l3.value) !== l3.value ? (function(v153,v154){
1383                     (function(){
1384                         return (function(){
1385                             while((function(){
1386                                 var x1 = v153;
1387                                 if (typeof x1 !== 'number') throw 'Not a number!';
1388                                 var x2 = v154;
1389                                 if (typeof x2 !== 'number') throw 'Not a number!';
1390                                 return (x1<x2?l4.value: l3.value);
1391                             })() !== l3.value){
1392                                 ((v151)(pv, (function(){
1393                                     var string = v152;
1394                                     var index = v153;
1395                                     if (typeof string != 'string')
1396                                         throw 'The value ' + string + ' is not a type string.';
1397                                     if (typeof index != 'number')
1398                                         throw 'The value ' + index + ' is not a type number.';
1399                                     return string.charCodeAt(index);
1400                                 })()) !== l3.value ? (function(){
1401                                     var values = mv;
1402                                     throw ({type: 'block', id: 68, values: l4.value, message: 'Return from unknown block SOME.'})
1403                                 })() : l3.value);
1404                                 (v153 = (function(){
1405                                     var x1 = v153;
1406                                     if (typeof x1 !== 'number') throw 'Not a number!';
1407                                     var x2 = 1;
1408                                     if (typeof x2 !== 'number') throw 'Not a number!';
1409                                     return x1+x2;
1410                                 })());
1411                             }return l3.value;
1412                         })();
1413                     })();
1414                     return l3.value;
1415                 })(0,l70.fvalue(pv, v152)) : (l58.fvalue(pv, v152) !== l3.value ? (function(){
1416                     try {
1417                         return (function(v155,v156){
1418                             (function(){
1419                                 while(v155 !== l3.value){
1420                                     (v156 = (function(){
1421                                         var tmp = v155;
1422                                         return tmp === l3.value? l3.value: tmp.car;
1423                                     })());
1424                                     (function(){
1425                                         ((v151)(pv, v156) !== l3.value ? (function(){
1426                                             var values = mv;
1427                                             throw ({type: 'block', id: 70, values: l4.value, message: 'Return from unknown block NIL.'})
1428                                         })() : l3.value);
1429                                         return l3.value;
1430                                     })();
1431                                     (v155 = (function(){
1432                                         var tmp = v155;
1433                                         return tmp === l3.value? l3.value: tmp.cdr;
1434                                     })());
1435                                 }return l3.value;
1436                             })();
1437                             return l3.value;
1438                         })(v152,l3.value);
1439                     }
1440                     catch (cf){
1441                         if (cf.type == 'block' && cf.id == 70)
1442                             return values.apply(this, forcemv(cf.values));
1443                         else
1444                             throw cf;
1445                     }
1446                 })() : (function(){
1447                     throw "Unknown sequence.";
1448                 })()));
1449             }
1450             catch (cf){
1451                 if (cf.type == 'block' && cf.id == 68)
1452                     return values.apply(this, forcemv(cf.values));
1453                 else
1454                     throw cf;
1455             }
1456         })();
1457     }));
1458     return l91;
1459 })();
1460 var l92 = {name: "EVERY"};
1461 (function(){
1462     (l92).fvalue = (function(v164){
1463         ((v164)["fname"] = "EVERY");
1464         return v164;
1465     })((function (values,v158,v159){
1466         checkArgs(arguments, 3);
1467         return (function(){
1468             try {
1469                 return (((typeof(v159) == "string")?l4.value: l3.value) !== l3.value ? (function(v160,v161){
1470                     (function(){
1471                         return (function(){
1472                             while((function(){
1473                                 var x1 = v160;
1474                                 if (typeof x1 !== 'number') throw 'Not a number!';
1475                                 var x2 = v161;
1476                                 if (typeof x2 !== 'number') throw 'Not a number!';
1477                                 return (x1<x2?l4.value: l3.value);
1478                             })() !== l3.value){
1479                                 ((v158)(pv, (function(){
1480                                     var string = v159;
1481                                     var index = v160;
1482                                     if (typeof string != 'string')
1483                                         throw 'The value ' + string + ' is not a type string.';
1484                                     if (typeof index != 'number')
1485                                         throw 'The value ' + index + ' is not a type number.';
1486                                     return string.charCodeAt(index);
1487                                 })()) !== l3.value ? l3.value : (function(){
1488                                     var values = mv;
1489                                     throw ({type: 'block', id: 71, values: l3.value, message: 'Return from unknown block EVERY.'})
1490                                 })());
1491                                 (v160 = (function(){
1492                                     var x1 = v160;
1493                                     if (typeof x1 !== 'number') throw 'Not a number!';
1494                                     var x2 = 1;
1495                                     if (typeof x2 !== 'number') throw 'Not a number!';
1496                                     return x1+x2;
1497                                 })());
1498                             }return l3.value;
1499                         })();
1500                     })();
1501                     return l4.value;
1502                 })(0,l70.fvalue(pv, v159)) : (l58.fvalue(pv, v159) !== l3.value ? (function(){
1503                     try {
1504                         return (function(v162,v163){
1505                             (function(){
1506                                 while(v162 !== l3.value){
1507                                     (v163 = (function(){
1508                                         var tmp = v162;
1509                                         return tmp === l3.value? l3.value: tmp.car;
1510                                     })());
1511                                     (function(){
1512                                         ((v158)(pv, v163) !== l3.value ? l3.value : (function(){
1513                                             var values = mv;
1514                                             throw ({type: 'block', id: 73, values: l3.value, message: 'Return from unknown block NIL.'})
1515                                         })());
1516                                         return l3.value;
1517                                     })();
1518                                     (v162 = (function(){
1519                                         var tmp = v162;
1520                                         return tmp === l3.value? l3.value: tmp.cdr;
1521                                     })());
1522                                 }return l3.value;
1523                             })();
1524                             return l4.value;
1525                         })(v159,l3.value);
1526                     }
1527                     catch (cf){
1528                         if (cf.type == 'block' && cf.id == 73)
1529                             return values.apply(this, forcemv(cf.values));
1530                         else
1531                             throw cf;
1532                     }
1533                 })() : (function(){
1534                     throw "Unknown sequence.";
1535                 })()));
1536             }
1537             catch (cf){
1538                 if (cf.type == 'block' && cf.id == 71)
1539                     return values.apply(this, forcemv(cf.values));
1540                 else
1541                     throw cf;
1542             }
1543         })();
1544     }));
1545     return l92;
1546 })();
1547 var l93 = {name: "ASSOC"};
1548 (function(){
1549     (l93).fvalue = (function(v167){
1550         ((v167)["fname"] = "ASSOC");
1551         return v167;
1552     })((function (values,v165,v166){
1553         checkArgs(arguments, 3);
1554         return (function(){
1555             (function(){
1556                 try {
1557                     return (function(){
1558                         while(v166 !== l3.value){
1559                             (l26.fvalue(pv, v165, l32.fvalue(pv, v166)) !== l3.value ? (function(){
1560                                 throw ({type: 'block', id: 75, values: l3.value, message: 'Return from unknown block NIL.'})
1561                             })() : (v166 = (function(){
1562                                 var tmp = v166;
1563                                 return tmp === l3.value? l3.value: tmp.cdr;
1564                             })()));
1565                         }return l3.value;
1566                     })();
1567                 }
1568                 catch (cf){
1569                     if (cf.type == 'block' && cf.id == 75)
1570                         return cf.values;
1571                     else
1572                         throw cf;
1573                 }
1574             })();
1575             return (function(){
1576                 var tmp = v166;
1577                 return tmp === l3.value? l3.value: tmp.car;
1578             })();
1579         })();
1580     }));
1581     return l93;
1582 })();
1583 var l94 = {name: "STRING"};
1584 (function(){
1585     (l94).fvalue = (function(v169){
1586         ((v169)["fname"] = "STRING");
1587         return v169;
1588     })((function (values,v168){
1589         checkArgs(arguments, 2);
1590         return (function(){
1591             return (((typeof(v168) == "string")?l4.value: l3.value) !== l3.value ? v168 : (((function(){
1592                 var tmp = v168;
1593                 return (typeof tmp == 'object' && 'name' in tmp);
1594             })()?l4.value: l3.value) !== l3.value ? (v168).name : (function(){
1595                 var x = v168;
1596                 if (typeof x != 'number')
1597                     throw 'The value ' + x + ' is not a type number.';
1598                 return String.fromCharCode(x);
1599             })()));
1600         })();
1601     }));
1602     return l94;
1603 })();
1604 var l95 = {name: "STRING="};
1605 (function(){
1606     (l95).fvalue = (function(v172){
1607         ((v172)["fname"] = "STRING=");
1608         return v172;
1609     })((function (values,v170,v171){
1610         checkArgs(arguments, 3);
1611         return (function(){
1612             return ((v170 == v171)?l4.value: l3.value);
1613         })();
1614     }));
1615     return l95;
1616 })();
1617 var l96 = {name: "FDEFINITION"};
1618 (function(){
1619     (l96).fvalue = (function(v174){
1620         ((v174)["fname"] = "FDEFINITION");
1621         return v174;
1622     })((function (values,v173){
1623         checkArgs(arguments, 2);
1624         return (function(){
1625             return (((typeof v173 == 'function')?l4.value: l3.value) !== l3.value ? v173 : (((function(){
1626                 var tmp = v173;
1627                 return (typeof tmp == 'object' && 'name' in tmp);
1628             })()?l4.value: l3.value) !== l3.value ? (function(){
1629                 var symbol = v173;
1630                 var func = symbol.fvalue;
1631                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1632                 return func;
1633             })() : (function(){
1634                 throw "Invalid function";
1635             })()));
1636         })();
1637     }));
1638     return l96;
1639 })();
1640 var l97 = {name: "DISASSEMBLE"};
1641 var l98 = {name: "WRITE-LINE"};
1642 (function(){
1643     (l97).fvalue = (function(v176){
1644         ((v176)["fname"] = "DISASSEMBLE");
1645         return v176;
1646     })((function (values,v175){
1647         checkArgs(arguments, 2);
1648         return (function(){
1649             l98.fvalue(pv, (l96.fvalue(pv, v175)).toString());
1650             return l3.value;
1651         })();
1652     }));
1653     return l97;
1654 })();
1655 var l99 = {name: "DOCUMENTATION"};
1656 var l100 = {name: "FUNCTION"};
1657 var l101 = {name: "VARIABLE"};
1658 (function(){
1659     (l99).fvalue = (function(v181){
1660         ((v181)["fname"] = "DOCUMENTATION");
1661         return v181;
1662     })((function(){
1663         var func = (function (values,v177,v178){
1664             checkArgs(arguments, 3);
1665             return (function(){
1666                 return (function(v179){
1667                     return (l26.fvalue(pv, v179, l100) !== l3.value ? (function(v180){
1668                         return (function(){
1669                             var tmp = (v180)["docstring"];
1670                             return tmp == undefined? l3.value: tmp ;
1671                         })();
1672                     })(l96.fvalue(pv, v177)) : (l26.fvalue(pv, v179, l101) !== l3.value ? (function(){
1673                         (((function(){
1674                             var tmp = v177;
1675                             return (typeof tmp == 'object' && 'name' in tmp);
1676                         })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
1677                             throw "Wrong argument type! it should be a symbol";
1678                         })());
1679                         return (function(){
1680                             var tmp = (v177)["vardoc"];
1681                             return tmp == undefined? l3.value: tmp ;
1682                         })();
1683                     })() : (function(){
1684                         throw "ECASE expression failed.";
1685                     })()));
1686                 })(v178);
1687             })();
1688         });
1689         func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
1690         return func;
1691     })());
1692     return l99;
1693 })();
1694 var l102 = {name: "MULTIPLE-VALUE-BIND"};
1695 l102;
1696 var l103 = {name: "MULTIPLE-VALUE-LIST"};
1697 l103;
1698 var l104 = {name: "*PACKAGE-LIST*"};
1699 (function(){
1700     (((l104.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l104).value = l3.value));
1701     return l104;
1702 })();
1703 var l105 = {name: "LIST-ALL-PACKAGES"};
1704 (function(){
1705     (l105).fvalue = (function(v182){
1706         ((v182)["fname"] = "LIST-ALL-PACKAGES");
1707         return v182;
1708     })((function (values){
1709         checkArgsAtMost(arguments, 1);
1710         return (function(){
1711             return (function(){
1712                 var symbol = l104;
1713                 var value = symbol.value;
1714                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1715                 return value;
1716             })();
1717         })();
1718     }));
1719     return l105;
1720 })();
1721 var l106 = {name: "MAKE-PACKAGE"};
1722 var l107 = {name: "FIND-PACKAGE-OR-FAIL"};
1723 (function(){
1724     (l106).fvalue = (function(v187){
1725         ((v187)["fname"] = "MAKE-PACKAGE");
1726         return v187;
1727     })((function (values,v183,v184){
1728         checkArgsAtLeast(arguments, 2);
1729         checkArgsAtMost(arguments, 3);
1730         switch(arguments.length-1){
1731         case 1:
1732         v184=l3.value;
1733         default: break;
1734         }
1735         return (function(){
1736             return (function(v185,v186){
1737                 ((v185)["packageName"] = v183);
1738                 ((v185)["symbols"] = {});
1739                 ((v185)["exports"] = {});
1740                 ((v185)["use"] = v186);
1741                 ((l104).value = ({car: v185, cdr: (function(){
1742                     var symbol = l104;
1743                     var value = symbol.value;
1744                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1745                     return value;
1746                 })()}));
1747                 return v185;
1748             })({},l72.fvalue(pv, (function(){
1749                 var symbol = l107;
1750                 var func = symbol.fvalue;
1751                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1752                 return func;
1753             })(), v184));
1754         })();
1755     }));
1756     return l106;
1757 })();
1758 var l108 = {name: "PACKAGEP"};
1759 (function(){
1760     (l108).fvalue = (function(v189){
1761         ((v189)["fname"] = "PACKAGEP");
1762         return v189;
1763     })((function (values,v188){
1764         checkArgs(arguments, 2);
1765         return (function(){
1766             return (((typeof (v188) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v188))?l4.value: l3.value) : l3.value);
1767         })();
1768     }));
1769     return l108;
1770 })();
1771 var l109 = {name: "FIND-PACKAGE"};
1772 var l110 = {name: "PACKAGE-NAME"};
1773 (function(){
1774     (l109).fvalue = (function(v194){
1775         ((v194)["fname"] = "FIND-PACKAGE");
1776         return v194;
1777     })((function (values,v190){
1778         checkArgs(arguments, 2);
1779         return (function(){
1780             try {
1781                 (l108.fvalue(pv, v190) !== l3.value ? (function(){
1782                     var values = mv;
1783                     throw ({type: 'block', id: 84, values: v190, message: 'Return from unknown block FIND-PACKAGE.'})
1784                 })() : l3.value);
1785                 return (function(v191){
1786                     return (function(){
1787                         try {
1788                             return (function(v192,v193){
1789                                 (function(){
1790                                     while(v192 !== l3.value){
1791                                         (v193 = (function(){
1792                                             var tmp = v192;
1793                                             return tmp === l3.value? l3.value: tmp.car;
1794                                         })());
1795                                         (function(){
1796                                             (l95.fvalue(pv, l110.fvalue(pv, v193), v191) !== l3.value ? (function(){
1797                                                 var values = mv;
1798                                                 throw ({type: 'block', id: 85, values: v193, message: 'Return from unknown block NIL.'})
1799                                             })() : l3.value);
1800                                             return l3.value;
1801                                         })();
1802                                         (v192 = (function(){
1803                                             var tmp = v192;
1804                                             return tmp === l3.value? l3.value: tmp.cdr;
1805                                         })());
1806                                     }return l3.value;
1807                                 })();
1808                                 return l3.value;
1809                             })((function(){
1810                                 var symbol = l104;
1811                                 var value = symbol.value;
1812                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1813                                 return value;
1814                             })(),l3.value);
1815                         }
1816                         catch (cf){
1817                             if (cf.type == 'block' && cf.id == 85)
1818                                 return values.apply(this, forcemv(cf.values));
1819                             else
1820                                 throw cf;
1821                         }
1822                     })();
1823                 })(l94.fvalue(pv, v190));
1824             }
1825             catch (cf){
1826                 if (cf.type == 'block' && cf.id == 84)
1827                     return values.apply(this, forcemv(cf.values));
1828                 else
1829                     throw cf;
1830             }
1831         })();
1832     }));
1833     return l109;
1834 })();
1835 (function(){
1836     (l107).fvalue = (function(v197){
1837         ((v197)["fname"] = "FIND-PACKAGE-OR-FAIL");
1838         return v197;
1839     })((function (values,v195){
1840         checkArgs(arguments, 2);
1841         return (function(){
1842             return (function(v196){
1843                 return (v196 !== l3.value ? v196 : (function(){
1844                     throw "Package unknown.";
1845                 })());
1846             })(l109.fvalue(pv, v195));
1847         })();
1848     }));
1849     return l107;
1850 })();
1851 (function(){
1852     (l110).fvalue = (function(v200){
1853         ((v200)["fname"] = "PACKAGE-NAME");
1854         return v200;
1855     })((function (values,v198){
1856         checkArgs(arguments, 2);
1857         return (function(){
1858             return (function(v199){
1859                 return (function(){
1860                     var tmp = (v199)["packageName"];
1861                     return tmp == undefined? l3.value: tmp ;
1862                 })();
1863             })(l107.fvalue(pv, v198));
1864         })();
1865     }));
1866     return l110;
1867 })();
1868 var l111 = {name: "%PACKAGE-SYMBOLS"};
1869 (function(){
1870     (l111).fvalue = (function(v203){
1871         ((v203)["fname"] = "%PACKAGE-SYMBOLS");
1872         return v203;
1873     })((function (values,v201){
1874         checkArgs(arguments, 2);
1875         return (function(){
1876             return (function(v202){
1877                 return (function(){
1878                     var tmp = (v202)["symbols"];
1879                     return tmp == undefined? l3.value: tmp ;
1880                 })();
1881             })(l107.fvalue(pv, v201));
1882         })();
1883     }));
1884     return l111;
1885 })();
1886 var l112 = {name: "PACKAGE-USE-LIST"};
1887 (function(){
1888     (l112).fvalue = (function(v206){
1889         ((v206)["fname"] = "PACKAGE-USE-LIST");
1890         return v206;
1891     })((function (values,v204){
1892         checkArgs(arguments, 2);
1893         return (function(){
1894             return (function(v205){
1895                 return (function(){
1896                     var tmp = (v205)["use"];
1897                     return tmp == undefined? l3.value: tmp ;
1898                 })();
1899             })(l107.fvalue(pv, v204));
1900         })();
1901     }));
1902     return l112;
1903 })();
1904 var l113 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"};
1905 (function(){
1906     (l113).fvalue = (function(v209){
1907         ((v209)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS");
1908         return v209;
1909     })((function (values,v207){
1910         checkArgs(arguments, 2);
1911         return (function(){
1912             return (function(v208){
1913                 return (function(){
1914                     var tmp = (v208)["exports"];
1915                     return tmp == undefined? l3.value: tmp ;
1916                 })();
1917             })(l107.fvalue(pv, v207));
1918         })();
1919     }));
1920     return l113;
1921 })();
1922 var l114 = {name: "*COMMON-LISP-PACKAGE*"};
1923 (function(){
1924     (((l114.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l114).value = l106.fvalue(pv, "CL")));
1925     return l114;
1926 })();
1927 var l115 = {name: "*USER-PACKAGE*"};
1928 (function(){
1929     (((l115.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l115).value = l106.fvalue(pv, "CL-USER", l43.fvalue(pv, (function(){
1930         var symbol = l114;
1931         var value = symbol.value;
1932         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1933         return value;
1934     })()))));
1935     return l115;
1936 })();
1937 var l116 = {name: "*KEYWORD-PACKAGE*"};
1938 (function(){
1939     (((l116.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l116).value = l106.fvalue(pv, "KEYWORD")));
1940     return l116;
1941 })();
1942 var l117 = {name: "KEYWORDP"};
1943 var l118 = {name: "SYMBOL-PACKAGE"};
1944 (function(){
1945     (l117).fvalue = (function(v211){
1946         ((v211)["fname"] = "KEYWORDP");
1947         return v211;
1948     })((function (values,v210){
1949         checkArgs(arguments, 2);
1950         return (function(){
1951             return (((function(){
1952                 var tmp = v210;
1953                 return (typeof tmp == 'object' && 'name' in tmp);
1954             })()?l4.value: l3.value) !== l3.value ? ((l118.fvalue(pv, v210) === (function(){
1955                 var symbol = l116;
1956                 var value = symbol.value;
1957                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1958                 return value;
1959             })())?l4.value: l3.value) : l3.value);
1960         })();
1961     }));
1962     return l117;
1963 })();
1964 var l119 = {name: "*PACKAGE*"};
1965 (function(){
1966     (((l119.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l119).value = (function(){
1967         var symbol = l114;
1968         var value = symbol.value;
1969         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1970         return value;
1971     })()));
1972     return l119;
1973 })();
1974 var l120 = {name: "IN-PACKAGE"};
1975 l120;
1976 var l121 = {name: "%INTERN-SYMBOL"};
1977 (function(){
1978     (l121).fvalue = (function(v214){
1979         ((v214)["fname"] = "%INTERN-SYMBOL");
1980         return v214;
1981     })((function (values,v212){
1982         checkArgs(arguments, 2);
1983         return (function(){
1984             return (function(v213){
1985                 ((v212)["package"] = (function(){
1986                     var symbol = l114;
1987                     var value = symbol.value;
1988                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1989                     return value;
1990                 })());
1991                 return ((v213)[(v212).name] = v212);
1992             })(l111.fvalue(pv, (function(){
1993                 var symbol = l114;
1994                 var value = symbol.value;
1995                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1996                 return value;
1997             })()));
1998         })();
1999     }));
2000     return l121;
2001 })();
2002 var l122 = {name: "FIND-SYMBOL"};
2003 (function(){
2004     (l122).fvalue = (function(v222){
2005         ((v222)["fname"] = "FIND-SYMBOL");
2006         return v222;
2007     })((function (values,v215,v216){
2008         checkArgsAtLeast(arguments, 2);
2009         checkArgsAtMost(arguments, 3);
2010         switch(arguments.length-1){
2011         case 1:
2012         v216=(function(){
2013             var symbol = l119;
2014             var value = symbol.value;
2015             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2016             return value;
2017         })();
2018         default: break;
2019         }
2020         return (function(){
2021             return (function(){
2022                 var v217 = l107.fvalue(pv, v216);
2023                 var v218 = l111.fvalue(pv, v217);
2024                 return ((((v215) in (v218))?l4.value: l3.value) !== l3.value ? values((function(){
2025                     var tmp = (v218)[v215];
2026                     return tmp == undefined? l3.value: tmp ;
2027                 })(), l4.value) : (function(){
2028                     try {
2029                         return (function(v219,v220){
2030                             (function(){
2031                                 while(v219 !== l3.value){
2032                                     (v220 = (function(){
2033                                         var tmp = v219;
2034                                         return tmp === l3.value? l3.value: tmp.car;
2035                                     })());
2036                                     (function(){
2037                                         (function(v221){
2038                                             return ((((v215) in (v221))?l4.value: l3.value) !== l3.value ? (function(){
2039                                                 var values = mv;
2040                                                 throw ({type: 'block', id: 94, values: values((function(){
2041                                                     var tmp = (v221)[v215];
2042                                                     return tmp == undefined? l3.value: tmp ;
2043                                                 })(), l4.value), message: 'Return from unknown block NIL.'})
2044                                             })() : l3.value);
2045                                         })(l113.fvalue(pv, v220));
2046                                         return l3.value;
2047                                     })();
2048                                     (v219 = (function(){
2049                                         var tmp = v219;
2050                                         return tmp === l3.value? l3.value: tmp.cdr;
2051                                     })());
2052                                 }return l3.value;
2053                             })();
2054                             return values(l3.value, l3.value);
2055                         })(l112.fvalue(pv, v217),l3.value);
2056                     }
2057                     catch (cf){
2058                         if (cf.type == 'block' && cf.id == 94)
2059                             return values.apply(this, forcemv(cf.values));
2060                         else
2061                             throw cf;
2062                     }
2063                 })());
2064             })();
2065         })();
2066     }));
2067     return l122;
2068 })();
2069 var l123 = {name: "INTERN"};
2070 var l124 = {name: "EXPORT"};
2071 (function(){
2072     (l123).fvalue = (function(v231){
2073         ((v231)["fname"] = "INTERN");
2074         return v231;
2075     })((function (values,v223,v224){
2076         checkArgsAtLeast(arguments, 2);
2077         checkArgsAtMost(arguments, 3);
2078         switch(arguments.length-1){
2079         case 1:
2080         v224=(function(){
2081             var symbol = l119;
2082             var value = symbol.value;
2083             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2084             return value;
2085         })();
2086         default: break;
2087         }
2088         return (function(){
2089             return (function(v225){
2090                 return (function(){
2091                     var func = (function (values,v227,v228){
2092                         switch(arguments.length-1){
2093                         case 0:
2094                         v227=l3.value;
2095                         case 1:
2096                         v228=l3.value;
2097                         default: break;
2098                         }
2099                         var v226= l3.value;
2100                         for (var i = arguments.length-1; i>=3; i--)
2101                             v226 = {car: arguments[i], cdr:
2102                         v226};
2103                         return (v228 !== l3.value ? v227 : (function(v229){
2104                             (function(){
2105                                 var tmp = (v229)[v223];
2106                                 return tmp == undefined? l3.value: tmp ;
2107                             })();
2108                             return (function(v230){
2109                                 ((v230)["package"] = v225);
2110                                 (((v225 === (function(){
2111                                     var symbol = l116;
2112                                     var value = symbol.value;
2113                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2114                                     return value;
2115                                 })())?l4.value: l3.value) !== l3.value ? (function(){
2116                                     ((v230)["value"] = v230);
2117                                     return l124.fvalue(pv, l43.fvalue(pv, v230), v225);
2118                                 })() : l3.value);
2119                                 return ((v229)[v223] = v230);
2120                             })((function(){
2121                                 var name = v223;
2122                                 if (typeof name != 'string')
2123                                     throw 'The value ' + name + ' is not a type string.';
2124                                 return ({name: name});
2125                             })());
2126                         })(l111.fvalue(pv, v225)));
2127                     });
2128                     var args = [values];
2129                     return (function(){
2130                         var values = mv;
2131                         var vs;
2132                         vs = l122.fvalue(values, v223, v225);
2133                         if (typeof vs === 'object' && 'multiple-value' in vs)
2134                             args = args.concat(vs);
2135                         else
2136                             args.push(vs);
2137                         return func.apply(window, args);
2138                     })();
2139                 })();
2140             })(l107.fvalue(pv, v224));
2141         })();
2142     }));
2143     return l123;
2144 })();
2145 (function(){
2146     (l118).fvalue = (function(v233){
2147         ((v233)["fname"] = "SYMBOL-PACKAGE");
2148         return v233;
2149     })((function (values,v232){
2150         checkArgs(arguments, 2);
2151         return (function(){
2152             (((function(){
2153                 var tmp = v232;
2154                 return (typeof tmp == 'object' && 'name' in tmp);
2155             })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
2156                 throw "it is not a symbol";
2157             })());
2158             return (function(){
2159                 var tmp = (v232)["package"];
2160                 return tmp == undefined? l3.value: tmp ;
2161             })();
2162         })();
2163     }));
2164     return l118;
2165 })();
2166 (function(){
2167     (l124).fvalue = (function(v239){
2168         ((v239)["fname"] = "EXPORT");
2169         return v239;
2170     })((function (values,v234,v235){
2171         checkArgsAtLeast(arguments, 2);
2172         checkArgsAtMost(arguments, 3);
2173         switch(arguments.length-1){
2174         case 1:
2175         v235=(function(){
2176             var symbol = l119;
2177             var value = symbol.value;
2178             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2179             return value;
2180         })();
2181         default: break;
2182         }
2183         return (function(){
2184             return (function(v236){
2185                 return (function(){
2186                     return (function(v237,v238){
2187                         (function(){
2188                             while(v237 !== l3.value){
2189                                 (v238 = (function(){
2190                                     var tmp = v237;
2191                                     return tmp === l3.value? l3.value: tmp.car;
2192                                 })());
2193                                 (function(){
2194                                     ((v236)[(v238).name] = v238);
2195                                     return l3.value;
2196                                 })();
2197                                 (v237 = (function(){
2198                                     var tmp = v237;
2199                                     return tmp === l3.value? l3.value: tmp.cdr;
2200                                 })());
2201                             }return l3.value;
2202                         })();
2203                         return l4.value;
2204                     })(v234,l3.value);
2205                 })();
2206             })(l113.fvalue(pv, v235));
2207         })();
2208     }));
2209     return l124;
2210 })();
2211 var l125 = {name: "GET-UNIVERSAL-TIME"};
2212 (function(){
2213     (l125).fvalue = (function(v240){
2214         ((v240)["fname"] = "GET-UNIVERSAL-TIME");
2215         return v240;
2216     })((function (values){
2217         checkArgsAtMost(arguments, 1);
2218         return (function(){
2219             return (function(){
2220                 var x1 = (Math.round(new Date() / 1000));
2221                 if (typeof x1 !== 'number') throw 'Not a number!';
2222                 var x2 = 2208988800;
2223                 if (typeof x2 !== 'number') throw 'Not a number!';
2224                 return x1+x2;
2225             })();
2226         })();
2227     }));
2228     return l125;
2229 })();
2230 var l126 = {name: "*NEWLINE*"};
2231 (function(){
2232     (((l126.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l126).value = l94.fvalue(pv, l75.fvalue(pv, 10))));
2233     return l126;
2234 })();
2235 var l127 = {name: "CONCAT"};
2236 (function(){
2237     (l127).fvalue = (function(v242){
2238         ((v242)["fname"] = "CONCAT");
2239         return v242;
2240     })((function (values){
2241         var v241= l3.value;
2242         for (var i = arguments.length-1; i>=1; i--)
2243             v241 = {car: arguments[i], cdr:
2244         v241};
2245         return (function(){
2246             return l59.fvalue(values, (function(){
2247                 var symbol = l71;
2248                 var func = symbol.fvalue;
2249                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2250                 return func;
2251             })(), v241, "");
2252         })();
2253     }));
2254     return l127;
2255 })();
2256 var l128 = {name: "CONCATF"};
2257 l128;
2258 var l129 = {name: "JOIN"};
2259 (function(){
2260     (l129).fvalue = (function(v245){
2261         ((v245)["fname"] = "JOIN");
2262         return v245;
2263     })((function (values,v243,v244){
2264         checkArgsAtLeast(arguments, 2);
2265         checkArgsAtMost(arguments, 3);
2266         switch(arguments.length-1){
2267         case 1:
2268         v244="";
2269         default: break;
2270         }
2271         return (function(){
2272             return (l12.fvalue(pv, v243) !== l3.value ? "" : (l12.fvalue(pv, (function(){
2273                 var tmp = v243;
2274                 return tmp === l3.value? l3.value: tmp.cdr;
2275             })()) !== l3.value ? (function(){
2276                 var tmp = v243;
2277                 return tmp === l3.value? l3.value: tmp.car;
2278             })() : l127.fvalue(values, (function(){
2279                 var tmp = v243;
2280                 return tmp === l3.value? l3.value: tmp.car;
2281             })(), v244, l129.fvalue(pv, (function(){
2282                 var tmp = v243;
2283                 return tmp === l3.value? l3.value: tmp.cdr;
2284             })(), v244))));
2285         })();
2286     }));
2287     return l129;
2288 })();
2289 var l130 = {name: "JOIN-TRAILING"};
2290 (function(){
2291     (l130).fvalue = (function(v248){
2292         ((v248)["fname"] = "JOIN-TRAILING");
2293         return v248;
2294     })((function (values,v246,v247){
2295         checkArgsAtLeast(arguments, 2);
2296         checkArgsAtMost(arguments, 3);
2297         switch(arguments.length-1){
2298         case 1:
2299         v247="";
2300         default: break;
2301         }
2302         return (function(){
2303             return (l12.fvalue(pv, v246) !== l3.value ? "" : l127.fvalue(values, (function(){
2304                 var tmp = v246;
2305                 return tmp === l3.value? l3.value: tmp.car;
2306             })(), v247, l130.fvalue(pv, (function(){
2307                 var tmp = v246;
2308                 return tmp === l3.value? l3.value: tmp.cdr;
2309             })(), v247)));
2310         })();
2311     }));
2312     return l130;
2313 })();
2314 var l131 = {name: "MAPCONCAT"};
2315 (function(){
2316     (l131).fvalue = (function(v251){
2317         ((v251)["fname"] = "MAPCONCAT");
2318         return v251;
2319     })((function (values,v249,v250){
2320         checkArgs(arguments, 3);
2321         return (function(){
2322             return l129.fvalue(values, l72.fvalue(pv, v249, v250));
2323         })();
2324     }));
2325     return l131;
2326 })();
2327 var l132 = {name: "VECTOR-TO-LIST"};
2328 (function(){
2329     (l132).fvalue = (function(v257){
2330         ((v257)["fname"] = "VECTOR-TO-LIST");
2331         return v257;
2332     })((function (values,v252){
2333         checkArgs(arguments, 2);
2334         return (function(){
2335             return (function(v253,v254){
2336                 return (function(){
2337                     return (function(v255,v256){
2338                         (function(){
2339                             while((function(){
2340                                 var x1 = v255;
2341                                 if (typeof x1 !== 'number') throw 'Not a number!';
2342                                 var x2 = v256;
2343                                 if (typeof x2 !== 'number') throw 'Not a number!';
2344                                 return (x1<x2?l4.value: l3.value);
2345                             })() !== l3.value){
2346                                 (function(){
2347                                     (v253 = ({car: (function(){
2348                                         var x = (v252)[v255];
2349                                         if (x === undefined) throw 'Out of range';
2350                                         return x;
2351                                     })(), cdr: v253}));
2352                                     return l3.value;
2353                                 })();
2354                                 (v255 = (function(){
2355                                     var x1 = v255;
2356                                     if (typeof x1 !== 'number') throw 'Not a number!';
2357                                     var x2 = 1;
2358                                     if (typeof x2 !== 'number') throw 'Not a number!';
2359                                     return x1+x2;
2360                                 })());
2361                             }return l3.value;
2362                         })();
2363                         return l65.fvalue(values, v253);
2364                     })(0,v254);
2365                 })();
2366             })(l3.value,l70.fvalue(pv, v252));
2367         })();
2368     }));
2369     return l132;
2370 })();
2371 var l133 = {name: "LIST-TO-VECTOR"};
2372 (function(){
2373     (l133).fvalue = (function(v263){
2374         ((v263)["fname"] = "LIST-TO-VECTOR");
2375         return v263;
2376     })((function (values,v258){
2377         checkArgs(arguments, 2);
2378         return (function(){
2379             return (function(v259,v260){
2380                 return (function(){
2381                     return (function(v261,v262){
2382                         (function(){
2383                             while(v261 !== l3.value){
2384                                 (v262 = (function(){
2385                                     var tmp = v261;
2386                                     return tmp === l3.value? l3.value: tmp.car;
2387                                 })());
2388                                 (function(){
2389                                     (function(){
2390                                         var x = v259;
2391                                         var i = v260;
2392                                         if (i < 0 || i >= x.length) throw 'Out of range';
2393                                         return x[i] = v262;
2394                                     })();
2395                                     (v260 = (function(){
2396                                         var x1 = v260;
2397                                         if (typeof x1 !== 'number') throw 'Not a number!';
2398                                         var x2 = 1;
2399                                         if (typeof x2 !== 'number') throw 'Not a number!';
2400                                         return x1+x2;
2401                                     })());
2402                                     return l3.value;
2403                                 })();
2404                                 (v261 = (function(){
2405                                     var tmp = v261;
2406                                     return tmp === l3.value? l3.value: tmp.cdr;
2407                                 })());
2408                             }return l3.value;
2409                         })();
2410                         return v259;
2411                     })(v258,l3.value);
2412                 })();
2413             })((function(){
2414                 var r = [];
2415                 for (var i = 0; i < l70.fvalue(pv, v258); i++)
2416                     r.push(l3.value);
2417                 return r;
2418             })(),0);
2419         })();
2420     }));
2421     return l133;
2422 })();
2423 var l134 = {name: "VALUES-LIST"};
2424 (function(){
2425     (l134).fvalue = (function(v265){
2426         ((v265)["fname"] = "VALUES-LIST");
2427         return v265;
2428     })((function (values,v264){
2429         checkArgs(arguments, 2);
2430         return (function(){
2431             return values.apply(this, l133.fvalue(pv, v264));
2432         })();
2433     }));
2434     return l134;
2435 })();
2436 var l135 = {name: "VALUES"};
2437 (function(){
2438     (l135).fvalue = (function(v267){
2439         ((v267)["fname"] = "VALUES");
2440         return v267;
2441     })((function (values){
2442         var v266= l3.value;
2443         for (var i = arguments.length-1; i>=1; i--)
2444             v266 = {car: arguments[i], cdr:
2445         v266};
2446         return (function(){
2447             return l134.fvalue(values, v266);
2448         })();
2449     }));
2450     return l135;
2451 })();
2452 var l136 = {name: "INDENT"};
2453 (function(){
2454     (l136).fvalue = (function(v274){
2455         ((v274)["fname"] = "INDENT");
2456         return v274;
2457     })((function (values){
2458         var v268= l3.value;
2459         for (var i = arguments.length-1; i>=1; i--)
2460             v268 = {car: arguments[i], cdr:
2461         v268};
2462         return (function(){
2463             return (function(v269){
2464                 return (function(v270,v271,v272){
2465                     (l79.fvalue(pv, l70.fvalue(pv, v269)) !== l3.value ? (v270 = l127.fvalue(pv, v270, "    ")) : l3.value);
2466                     (function(){
2467                         return (function(){
2468                             while((function(){
2469                                 var x1 = v271;
2470                                 if (typeof x1 !== 'number') throw 'Not a number!';
2471                                 var x2 = v272;
2472                                 if (typeof x2 !== 'number') throw 'Not a number!';
2473                                 return (x1<x2?l4.value: l3.value);
2474                             })() !== l3.value){
2475                                 (function(v273){
2476                                     return (v270 = l127.fvalue(pv, v270, v273));
2477                                 })(((l77.fvalue(pv, (function(){
2478                                     var string = v269;
2479                                     var index = v271;
2480                                     if (typeof string != 'string')
2481                                         throw 'The value ' + string + ' is not a type string.';
2482                                     if (typeof index != 'number')
2483                                         throw 'The value ' + index + ' is not a type number.';
2484                                     return string.charCodeAt(index);
2485                                 })(), 10) !== l3.value ? ((function(){
2486                                     var x1 = v271;
2487                                     if (typeof x1 !== 'number') throw 'Not a number!';
2488                                     var x2 = l23.fvalue(pv, v272);
2489                                     if (typeof x2 !== 'number') throw 'Not a number!';
2490                                     return (x1<x2?l4.value: l3.value);
2491                                 })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
2492                                     var string = v269;
2493                                     var index = l22.fvalue(pv, v271);
2494                                     if (typeof string != 'string')
2495                                         throw 'The value ' + string + ' is not a type string.';
2496                                     if (typeof index != 'number')
2497                                         throw 'The value ' + index + ' is not a type number.';
2498                                     return string.charCodeAt(index);
2499                                 })(), 10)) : l3.value) : l3.value) !== l3.value ? l127.fvalue(pv, l94.fvalue(pv, 10), "    ") : l94.fvalue(pv, (function(){
2500                                     var string = v269;
2501                                     var index = v271;
2502                                     if (typeof string != 'string')
2503                                         throw 'The value ' + string + ' is not a type string.';
2504                                     if (typeof index != 'number')
2505                                         throw 'The value ' + index + ' is not a type number.';
2506                                     return string.charCodeAt(index);
2507                                 })())));
2508                                 (v271 = (function(){
2509                                     var x1 = v271;
2510                                     if (typeof x1 !== 'number') throw 'Not a number!';
2511                                     var x2 = 1;
2512                                     if (typeof x2 !== 'number') throw 'Not a number!';
2513                                     return x1+x2;
2514                                 })());
2515                             }return l3.value;
2516                         })();
2517                     })();
2518                     return v270;
2519                 })("",0,l70.fvalue(pv, v269));
2520             })(l129.fvalue(pv, v268));
2521         })();
2522     }));
2523     return l136;
2524 })();
2525 (function(){
2526     (l17).fvalue = (function(v278){
2527         ((v278)["fname"] = "INTEGER-TO-STRING");
2528         return v278;
2529     })((function (values,v275){
2530         checkArgs(arguments, 2);
2531         return (function(){
2532             return (l24.fvalue(pv, v275) !== l3.value ? "0" : (l80.fvalue(pv, v275) !== l3.value ? l127.fvalue(values, "-", l17.fvalue(pv, (function(){
2533                 var x1 = 0;
2534                 if (typeof x1 !== 'number') throw 'Not a number!';
2535                 var x2 = v275;
2536                 if (typeof x2 !== 'number') throw 'Not a number!';
2537                 return x1-x2;
2538             })())) : (function(v276){
2539                 (function(){
2540                     return (function(){
2541                         while(l27.fvalue(pv, l24.fvalue(pv, v275)) !== l3.value){
2542                             (v276 = ({car: (function(){
2543                                 var x = v275;
2544                                 var y = 10;
2545                                 if (typeof x != 'number')
2546                                     throw 'The value ' + x + ' is not a type number.';
2547                                 if (typeof y != 'number')
2548                                     throw 'The value ' + y + ' is not a type number.';
2549                                 return x%y;
2550                             })(), cdr: v276}));
2551                             (v275 = l25.fvalue(pv, v275, 10));
2552                         }return l3.value;
2553                     })();
2554                 })();
2555                 return l129.fvalue(values, l72.fvalue(pv, (function (values,v277){
2556                     checkArgs(arguments, 2);
2557                     return l94.fvalue(values, (function(){
2558                         var string = "0123456789";
2559                         var index = v277;
2560                         if (typeof string != 'string')
2561                             throw 'The value ' + string + ' is not a type string.';
2562                         if (typeof index != 'number')
2563                             throw 'The value ' + index + ' is not a type number.';
2564                         return string.charCodeAt(index);
2565                     })());
2566                 }), v276));
2567             })(l3.value)));
2568         })();
2569     }));
2570     return l17;
2571 })();
2572 var l137 = {name: "JS!BOOL"};
2573 var l138 = {name: "LS-COMPILE"};
2574 (function(){
2575     (l137).fvalue = (function(v280){
2576         ((v280)["fname"] = "JS!BOOL");
2577         return v280;
2578     })((function (values,v279){
2579         checkArgs(arguments, 2);
2580         return (function(){
2581             return l127.fvalue(values, "(", v279, "?", l138.fvalue(pv, l4.value), ": ", l138.fvalue(pv, l3.value), ")");
2582         })();
2583     }));
2584     return l137;
2585 })();
2586 var l139 = {name: "JS!SELFCALL"};
2587 l139;
2588 var l140 = {name: "PRIN1-TO-STRING"};
2589 var l141 = {name: "ESCAPE-STRING"};
2590 (function(){
2591     (l140).fvalue = (function(v289){
2592         ((v289)["fname"] = "PRIN1-TO-STRING");
2593         return v289;
2594     })((function (values,v281){
2595         checkArgs(arguments, 2);
2596         return (function(){
2597             return (((function(){
2598                 var tmp = v281;
2599                 return (typeof tmp == 'object' && 'name' in tmp);
2600             })()?l4.value: l3.value) !== l3.value ? (function(){
2601                 var func = (function (values,v283,v284){
2602                     switch(arguments.length-1){
2603                     case 0:
2604                     v283=l3.value;
2605                     case 1:
2606                     v284=l3.value;
2607                     default: break;
2608                     }
2609                     var v282= l3.value;
2610                     for (var i = arguments.length-1; i>=3; i--)
2611                         v282 = {car: arguments[i], cdr:
2612                     v282};
2613                     return ((v284 !== l3.value ? ((v283 === v281)?l4.value: l3.value) : l3.value) !== l3.value ? (v281).name : (function(v285,v286){
2614                         return l127.fvalue(values, (l12.fvalue(pv, v285) !== l3.value ? "#" : (((v285 === l109.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l110.fvalue(pv, v285))), ":", v286);
2615                     })(l118.fvalue(pv, v281),(v281).name));
2616                 });
2617                 var args = [values];
2618                 return (function(){
2619                     var values = mv;
2620                     var vs;
2621                     vs = l122.fvalue(values, (v281).name, (function(){
2622                         var symbol = l119;
2623                         var value = symbol.value;
2624                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2625                         return value;
2626                     })());
2627                     if (typeof vs === 'object' && 'multiple-value' in vs)
2628                         args = args.concat(vs);
2629                     else
2630                         args.push(vs);
2631                     return func.apply(window, args);
2632                 })();
2633             })() : (l78.fvalue(pv, v281) !== l3.value ? l17.fvalue(values, v281) : (((typeof(v281) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l141.fvalue(pv, v281), "\"") : (((typeof v281 == 'function')?l4.value: l3.value) !== l3.value ? (function(v287){
2634                 return (v287 !== l3.value ? l127.fvalue(values, "#<FUNCTION ", v287, ">") : l127.fvalue(values, "#<FUNCTION>"));
2635             })((function(){
2636                 var tmp = (v281)["fname"];
2637                 return tmp == undefined? l3.value: tmp ;
2638             })()) : (l58.fvalue(pv, v281) !== l3.value ? l127.fvalue(values, "(", l130.fvalue(pv, l72.fvalue(pv, (function(){
2639                 var symbol = l140;
2640                 var func = symbol.fvalue;
2641                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2642                 return func;
2643             })(), l84.fvalue(pv, v281)), " "), (function(v288){
2644                 return (l12.fvalue(pv, (function(){
2645                     var tmp = v288;
2646                     return tmp === l3.value? l3.value: tmp.cdr;
2647                 })()) !== l3.value ? l140.fvalue(pv, (function(){
2648                     var tmp = v288;
2649                     return tmp === l3.value? l3.value: tmp.car;
2650                 })()) : l127.fvalue(pv, l140.fvalue(pv, (function(){
2651                     var tmp = v288;
2652                     return tmp === l3.value? l3.value: tmp.car;
2653                 })()), " . ", l140.fvalue(pv, (function(){
2654                     var tmp = v288;
2655                     return tmp === l3.value? l3.value: tmp.cdr;
2656                 })())));
2657             })(l83.fvalue(pv, v281)), ")") : (((function(){
2658                 var x = v281;
2659                 return typeof x === 'object' && 'length' in x;
2660             })()?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "#", l140.fvalue(pv, l132.fvalue(pv, v281))) : (l108.fvalue(pv, v281) !== l3.value ? l127.fvalue(values, "#<PACKAGE ", l110.fvalue(pv, v281), ">") : l3.value)))))));
2661         })();
2662     }));
2663     return l140;
2664 })();
2665 (function(){
2666     (l98).fvalue = (function(v291){
2667         ((v291)["fname"] = "WRITE-LINE");
2668         return v291;
2669     })((function (values,v290){
2670         checkArgs(arguments, 2);
2671         return (function(){
2672             (function(){
2673                 var x = v290;
2674                 if (typeof x != 'string')
2675                     throw 'The value ' + x + ' is not a type string.';
2676                 return lisp.write(x);
2677             })();
2678             (function(){
2679                 var x = (function(){
2680                     var symbol = l126;
2681                     var value = symbol.value;
2682                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2683                     return value;
2684                 })();
2685                 if (typeof x != 'string')
2686                     throw 'The value ' + x + ' is not a type string.';
2687                 return lisp.write(x);
2688             })();
2689             return v290;
2690         })();
2691     }));
2692     return l98;
2693 })();
2694 var l142 = {name: "WARN"};
2695 (function(){
2696     (l142).fvalue = (function(v293){
2697         ((v293)["fname"] = "WARN");
2698         return v293;
2699     })((function (values,v292){
2700         checkArgs(arguments, 2);
2701         return (function(){
2702             (function(){
2703                 var x = "WARNING: ";
2704                 if (typeof x != 'string')
2705                     throw 'The value ' + x + ' is not a type string.';
2706                 return lisp.write(x);
2707             })();
2708             return l98.fvalue(values, v292);
2709         })();
2710     }));
2711     return l142;
2712 })();
2713 var l143 = {name: "PRINT"};
2714 (function(){
2715     (l143).fvalue = (function(v295){
2716         ((v295)["fname"] = "PRINT");
2717         return v295;
2718     })((function (values,v294){
2719         checkArgs(arguments, 2);
2720         return (function(){
2721             l98.fvalue(pv, l140.fvalue(pv, v294));
2722             return v294;
2723         })();
2724     }));
2725     return l143;
2726 })();
2727 var l144 = {name: "MAKE-STRING-STREAM"};
2728 (function(){
2729     (l144).fvalue = (function(v297){
2730         ((v297)["fname"] = "MAKE-STRING-STREAM");
2731         return v297;
2732     })((function (values,v296){
2733         checkArgs(arguments, 2);
2734         return (function(){
2735             return ({car: v296, cdr: 0});
2736         })();
2737     }));
2738     return l144;
2739 })();
2740 var l145 = {name: "%PEEK-CHAR"};
2741 (function(){
2742     (l145).fvalue = (function(v299){
2743         ((v299)["fname"] = "%PEEK-CHAR");
2744         return v299;
2745     })((function (values,v298){
2746         checkArgs(arguments, 2);
2747         return (function(){
2748             return ((function(){
2749                 var x1 = (function(){
2750                     var tmp = v298;
2751                     return tmp === l3.value? l3.value: tmp.cdr;
2752                 })();
2753                 if (typeof x1 !== 'number') throw 'Not a number!';
2754                 var x2 = l70.fvalue(pv, (function(){
2755                     var tmp = v298;
2756                     return tmp === l3.value? l3.value: tmp.car;
2757                 })());
2758                 if (typeof x2 !== 'number') throw 'Not a number!';
2759                 return (x1<x2?l4.value: l3.value);
2760             })() !== l3.value ? (function(){
2761                 var string = (function(){
2762                     var tmp = v298;
2763                     return tmp === l3.value? l3.value: tmp.car;
2764                 })();
2765                 var index = (function(){
2766                     var tmp = v298;
2767                     return tmp === l3.value? l3.value: tmp.cdr;
2768                 })();
2769                 if (typeof string != 'string')
2770                     throw 'The value ' + string + ' is not a type string.';
2771                 if (typeof index != 'number')
2772                     throw 'The value ' + index + ' is not a type number.';
2773                 return string.charCodeAt(index);
2774             })() : l3.value);
2775         })();
2776     }));
2777     return l145;
2778 })();
2779 var l146 = {name: "%READ-CHAR"};
2780 (function(){
2781     (l146).fvalue = (function(v302){
2782         ((v302)["fname"] = "%READ-CHAR");
2783         return v302;
2784     })((function (values,v300){
2785         checkArgs(arguments, 2);
2786         return (function(){
2787             return ((function(){
2788                 var x1 = (function(){
2789                     var tmp = v300;
2790                     return tmp === l3.value? l3.value: tmp.cdr;
2791                 })();
2792                 if (typeof x1 !== 'number') throw 'Not a number!';
2793                 var x2 = l70.fvalue(pv, (function(){
2794                     var tmp = v300;
2795                     return tmp === l3.value? l3.value: tmp.car;
2796                 })());
2797                 if (typeof x2 !== 'number') throw 'Not a number!';
2798                 return (x1<x2?l4.value: l3.value);
2799             })() !== l3.value ? (function(v301){
2800                 (function(){
2801                     var x = v300;
2802                     if (typeof x != 'object')
2803                         throw 'The value ' + x + ' is not a type object.';
2804                     return (x.cdr = l22.fvalue(pv, (function(){
2805                         var tmp = v300;
2806                         return tmp === l3.value? l3.value: tmp.cdr;
2807                     })()), x);
2808                 })();
2809                 return v301;
2810             })((function(){
2811                 var string = (function(){
2812                     var tmp = v300;
2813                     return tmp === l3.value? l3.value: tmp.car;
2814                 })();
2815                 var index = (function(){
2816                     var tmp = v300;
2817                     return tmp === l3.value? l3.value: tmp.cdr;
2818                 })();
2819                 if (typeof string != 'string')
2820                     throw 'The value ' + string + ' is not a type string.';
2821                 if (typeof index != 'number')
2822                     throw 'The value ' + index + ' is not a type number.';
2823                 return string.charCodeAt(index);
2824             })()) : l3.value);
2825         })();
2826     }));
2827     return l146;
2828 })();
2829 var l147 = {name: "WHITESPACEP"};
2830 (function(){
2831     (l147).fvalue = (function(v306){
2832         ((v306)["fname"] = "WHITESPACEP");
2833         return v306;
2834     })((function (values,v303){
2835         checkArgs(arguments, 2);
2836         return (function(){
2837             return (function(v304){
2838                 return (v304 !== l3.value ? v304 : (function(v305){
2839                     return (v305 !== l3.value ? v305 : l77.fvalue(values, v303, 9));
2840                 })(l77.fvalue(pv, v303, 10)));
2841             })(l77.fvalue(pv, v303, 32));
2842         })();
2843     }));
2844     return l147;
2845 })();
2846 var l148 = {name: "SKIP-WHITESPACES"};
2847 (function(){
2848     (l148).fvalue = (function(v309){
2849         ((v309)["fname"] = "SKIP-WHITESPACES");
2850         return v309;
2851     })((function (values,v307){
2852         checkArgs(arguments, 2);
2853         return (function(){
2854             return (function(v308){
2855                 (v308 = l145.fvalue(pv, v307));
2856                 return (function(){
2857                     return (function(){
2858                         while((v308 !== l3.value ? l147.fvalue(pv, v308) : l3.value) !== l3.value){
2859                             l146.fvalue(pv, v307);
2860                             (v308 = l145.fvalue(pv, v307));
2861                         }return l3.value;
2862                     })();
2863                 })();
2864             })(l3.value);
2865         })();
2866     }));
2867     return l148;
2868 })();
2869 var l149 = {name: "TERMINALP"};
2870 (function(){
2871     (l149).fvalue = (function(v314){
2872         ((v314)["fname"] = "TERMINALP");
2873         return v314;
2874     })((function (values,v310){
2875         checkArgs(arguments, 2);
2876         return (function(){
2877             return (function(v311){
2878                 return (v311 !== l3.value ? v311 : (function(v312){
2879                     return (v312 !== l3.value ? v312 : (function(v313){
2880                         return (v313 !== l3.value ? v313 : l77.fvalue(values, 40, v310));
2881                     })(l77.fvalue(pv, 41, v310)));
2882                 })(l147.fvalue(pv, v310)));
2883             })(l12.fvalue(pv, v310));
2884         })();
2885     }));
2886     return l149;
2887 })();
2888 var l150 = {name: "READ-UNTIL"};
2889 (function(){
2890     (l150).fvalue = (function(v319){
2891         ((v319)["fname"] = "READ-UNTIL");
2892         return v319;
2893     })((function (values,v315,v316){
2894         checkArgs(arguments, 3);
2895         return (function(){
2896             return (function(v317,v318){
2897                 (v318 = l145.fvalue(pv, v315));
2898                 (function(){
2899                     return (function(){
2900                         while((v318 !== l3.value ? l27.fvalue(pv, (v316)(pv, v318)) : l3.value) !== l3.value){
2901                             (v317 = l127.fvalue(pv, v317, l94.fvalue(pv, v318)));
2902                             l146.fvalue(pv, v315);
2903                             (v318 = l145.fvalue(pv, v315));
2904                         }return l3.value;
2905                     })();
2906                 })();
2907                 return v317;
2908             })("",l3.value);
2909         })();
2910     }));
2911     return l150;
2912 })();
2913 var l151 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
2914 (function(){
2915     (l151).fvalue = (function(v323){
2916         ((v323)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2917         return v323;
2918     })((function (values,v320){
2919         checkArgs(arguments, 2);
2920         return (function(){
2921             return (function(v321){
2922                 l148.fvalue(pv, v320);
2923                 (v321 = l145.fvalue(pv, v320));
2924                 return (function(){
2925                     return (function(){
2926                         while((v321 !== l3.value ? l77.fvalue(pv, v321, 59) : l3.value) !== l3.value){
2927                             l150.fvalue(pv, v320, (function (values,v322){
2928                                 checkArgs(arguments, 2);
2929                                 return l77.fvalue(values, v322, 10);
2930                             }));
2931                             l148.fvalue(pv, v320);
2932                             (v321 = l145.fvalue(pv, v320));
2933                         }return l3.value;
2934                     })();
2935                 })();
2936             })(l3.value);
2937         })();
2938     }));
2939     return l151;
2940 })();
2941 var l152 = {name: "%READ-LIST"};
2942 var l153 = {name: "LS-READ"};
2943 (function(){
2944     (l152).fvalue = (function(v327){
2945         ((v327)["fname"] = "%READ-LIST");
2946         return v327;
2947     })((function (values,v324){
2948         checkArgs(arguments, 2);
2949         return (function(){
2950             l151.fvalue(pv, v324);
2951             return (function(v325){
2952                 return (l12.fvalue(pv, v325) !== l3.value ? (function(){
2953                     throw "Unspected EOF";
2954                 })() : (l77.fvalue(pv, v325, 41) !== l3.value ? (function(){
2955                     l146.fvalue(pv, v324);
2956                     return l3.value;
2957                 })() : (l77.fvalue(pv, v325, 46) !== l3.value ? (function(){
2958                     l146.fvalue(pv, v324);
2959                     return (function(v326){
2960                         l151.fvalue(pv, v324);
2961                         (l77.fvalue(pv, l146.fvalue(pv, v324), 41) !== l3.value ? l3.value : (function(){
2962                             throw "')' was expected.";
2963                         })());
2964                         return v326;
2965                     })(l153.fvalue(pv, v324));
2966                 })() : ({car: l153.fvalue(pv, v324), cdr: l152.fvalue(pv, v324)}))));
2967             })(l145.fvalue(pv, v324));
2968         })();
2969     }));
2970     return l152;
2971 })();
2972 var l154 = {name: "READ-STRING"};
2973 (function(){
2974     (l154).fvalue = (function(v331){
2975         ((v331)["fname"] = "READ-STRING");
2976         return v331;
2977     })((function (values,v328){
2978         checkArgs(arguments, 2);
2979         return (function(){
2980             return (function(v329,v330){
2981                 (v330 = l146.fvalue(pv, v328));
2982                 (function(){
2983                     return (function(){
2984                         while(l27.fvalue(pv, l26.fvalue(pv, v330, 34)) !== l3.value){
2985                             (l12.fvalue(pv, v330) !== l3.value ? (function(){
2986                                 throw "Unexpected EOF";
2987                             })() : l3.value);
2988                             (l26.fvalue(pv, v330, 92) !== l3.value ? (v330 = l146.fvalue(pv, v328)) : l3.value);
2989                             (v329 = l127.fvalue(pv, v329, l94.fvalue(pv, v330)));
2990                             (v330 = l146.fvalue(pv, v328));
2991                         }return l3.value;
2992                     })();
2993                 })();
2994                 return v329;
2995             })("",l3.value);
2996         })();
2997     }));
2998     return l154;
2999 })();
3000 var l155 = {name: "READ-SHARP"};
3001 (function(){
3002     (l155).fvalue = (function(v336){
3003         ((v336)["fname"] = "READ-SHARP");
3004         return v336;
3005     })((function (values,v332){
3006         checkArgs(arguments, 2);
3007         return (function(){
3008             l146.fvalue(pv, v332);
3009             return (function(v333){
3010                 return (l26.fvalue(pv, v333, 39) !== l3.value ? l43.fvalue(values, l100, l153.fvalue(pv, v332)) : (l26.fvalue(pv, v333, 40) !== l3.value ? l133.fvalue(values, l152.fvalue(pv, v332)) : (l26.fvalue(pv, v333, 58) !== l3.value ? (function(){
3011                     var name = (function(){
3012                         var x = l150.fvalue(pv, v332, (function(){
3013                             var symbol = l149;
3014                             var func = symbol.fvalue;
3015                             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3016                             return func;
3017                         })());
3018                         if (typeof x != 'string')
3019                             throw 'The value ' + x + ' is not a type string.';
3020                         return x.toUpperCase();
3021                     })();
3022                     if (typeof name != 'string')
3023                         throw 'The value ' + name + ' is not a type string.';
3024                     return ({name: name});
3025                 })() : (l26.fvalue(pv, v333, 92) !== l3.value ? (function(v334){
3026                     return (l95.fvalue(pv, v334, "space") !== l3.value ? l76.fvalue(values, 32) : (l95.fvalue(pv, v334, "tab") !== l3.value ? l76.fvalue(values, 9) : (l95.fvalue(pv, v334, "newline") !== l3.value ? l76.fvalue(values, 10) : l76.fvalue(values, (function(){
3027                         var string = v334;
3028                         var index = 0;
3029                         if (typeof string != 'string')
3030                             throw 'The value ' + string + ' is not a type string.';
3031                         if (typeof index != 'number')
3032                             throw 'The value ' + index + ' is not a type number.';
3033                         return string.charCodeAt(index);
3034                     })()))));
3035                 })(l127.fvalue(pv, l94.fvalue(pv, l146.fvalue(pv, v332)), l150.fvalue(pv, v332, (function(){
3036                     var symbol = l149;
3037                     var func = symbol.fvalue;
3038                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3039                     return func;
3040                 })()))) : (l26.fvalue(pv, v333, 43) !== l3.value ? (function(v335){
3041                     return (l95.fvalue(pv, v335, "common-lisp") !== l3.value ? (function(){
3042                         l153.fvalue(pv, v332);
3043                         return l153.fvalue(values, v332);
3044                     })() : (l95.fvalue(pv, v335, "ecmalisp") !== l3.value ? l153.fvalue(values, v332) : (function(){
3045                         throw "Unknown reader form.";
3046                     })()));
3047                 })(l150.fvalue(pv, v332, (function(){
3048                     var symbol = l149;
3049                     var func = symbol.fvalue;
3050                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3051                     return func;
3052                 })())) : (function(){
3053                     throw "ECASE expression failed.";
3054                 })())))));
3055             })(l146.fvalue(pv, v332));
3056         })();
3057     }));
3058     return l155;
3059 })();
3060 var l156 = {name: "READ-SYMBOL"};
3061 (function(){
3062     (l156).fvalue = (function(v344){
3063         ((v344)["fname"] = "READ-SYMBOL");
3064         return v344;
3065     })((function (values,v337){
3066         checkArgs(arguments, 2);
3067         return (function(){
3068             return (function(v338,v339,v340,v341,v342){
3069                 (v342 = 0);
3070                 (function(){
3071                     return (function(){
3072                         while(((function(){
3073                             var x1 = v342;
3074                             if (typeof x1 !== 'number') throw 'Not a number!';
3075                             var x2 = v338;
3076                             if (typeof x2 !== 'number') throw 'Not a number!';
3077                             return (x1<x2?l4.value: l3.value);
3078                         })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
3079                             var string = v337;
3080                             var index = v342;
3081                             if (typeof string != 'string')
3082                                 throw 'The value ' + string + ' is not a type string.';
3083                             if (typeof index != 'number')
3084                                 throw 'The value ' + index + ' is not a type number.';
3085                             return string.charCodeAt(index);
3086                         })(), 58)) : l3.value) !== l3.value){
3087                             (v342 = (function(){
3088                                 var x1 = v342;
3089                                 if (typeof x1 !== 'number') throw 'Not a number!';
3090                                 var x2 = 1;
3091                                 if (typeof x2 !== 'number') throw 'Not a number!';
3092                                 return x1+x2;
3093                             })());
3094                         }return l3.value;
3095                     })();
3096                 })();
3097                 ((function(){
3098                     var x1 = v342;
3099                     if (typeof x1 !== 'number') throw 'Not a number!';
3100                     var x2 = v338;
3101                     if (typeof x2 !== 'number') throw 'Not a number!';
3102                     return (x1==x2?l4.value: l3.value);
3103                 })() !== l3.value ? (function(){
3104                     (v340 = v337);
3105                     (v339 = (function(){
3106                         var symbol = l119;
3107                         var value = symbol.value;
3108                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3109                         return value;
3110                     })());
3111                     return (v341 = l4.value);
3112                 })() : (function(){
3113                     (l24.fvalue(pv, v342) !== l3.value ? (v339 = "KEYWORD") : (v339 = (function(){
3114                         var x = l90.fvalue(pv, v337, 0, v342);
3115                         if (typeof x != 'string')
3116                             throw 'The value ' + x + ' is not a type string.';
3117                         return x.toUpperCase();
3118                     })()));
3119                     (v342 = (function(){
3120                         var x1 = v342;
3121                         if (typeof x1 !== 'number') throw 'Not a number!';
3122                         var x2 = 1;
3123                         if (typeof x2 !== 'number') throw 'Not a number!';
3124                         return x1+x2;
3125                     })());
3126                     (l77.fvalue(pv, (function(){
3127                         var string = v337;
3128                         var index = v342;
3129                         if (typeof string != 'string')
3130                             throw 'The value ' + string + ' is not a type string.';
3131                         if (typeof index != 'number')
3132                             throw 'The value ' + index + ' is not a type number.';
3133                         return string.charCodeAt(index);
3134                     })(), 58) !== l3.value ? (function(){
3135                         (v341 = l4.value);
3136                         return (v342 = (function(){
3137                             var x1 = v342;
3138                             if (typeof x1 !== 'number') throw 'Not a number!';
3139                             var x2 = 1;
3140                             if (typeof x2 !== 'number') throw 'Not a number!';
3141                             return x1+x2;
3142                         })());
3143                     })() : l3.value);
3144                     return (v340 = l90.fvalue(pv, v337, v342));
3145                 })());
3146                 (v340 = (function(){
3147                     var x = v340;
3148                     if (typeof x != 'string')
3149                         throw 'The value ' + x + ' is not a type string.';
3150                     return x.toUpperCase();
3151                 })());
3152                 (v339 = l109.fvalue(pv, v339));
3153                 return ((function(v343){
3154                     return (v343 !== l3.value ? v343 : ((v339 === l109.fvalue(pv, "KEYWORD"))?l4.value: l3.value));
3155                 })(v341) !== l3.value ? l123.fvalue(values, v340, v339) : l122.fvalue(values, v340, v339));
3156             })(l70.fvalue(pv, v337),l3.value,l3.value,l3.value,l3.value);
3157         })();
3158     }));
3159     return l156;
3160 })();
3161 var l157 = {name: "!PARSE-INTEGER"};
3162 (function(){
3163     (l157).fvalue = (function(v355){
3164         ((v355)["fname"] = "!PARSE-INTEGER");
3165         return v355;
3166     })((function (values,v345,v346){
3167         checkArgs(arguments, 3);
3168         return (function(){
3169             return (function(){
3170                 try {
3171                     return (function(v347,v348,v349,v350){
3172                         (l24.fvalue(pv, v349) !== l3.value ? (function(){
3173                             var values = mv;
3174                             throw ({type: 'block', id: 137, values: values(l3.value, 0), message: 'Return from unknown block NIL.'})
3175                         })() : l3.value);
3176                         (function(v351){
3177                             return (l26.fvalue(pv, v351, 43) !== l3.value ? (v348 = (function(){
3178                                 var x1 = v348;
3179                                 if (typeof x1 !== 'number') throw 'Not a number!';
3180                                 var x2 = 1;
3181                                 if (typeof x2 !== 'number') throw 'Not a number!';
3182                                 return x1+x2;
3183                             })()) : (l26.fvalue(pv, v351, 45) !== l3.value ? (function(){
3184                                 (v350 = -1);
3185                                 return (v348 = (function(){
3186                                     var x1 = v348;
3187                                     if (typeof x1 !== 'number') throw 'Not a number!';
3188                                     var x2 = 1;
3189                                     if (typeof x2 !== 'number') throw 'Not a number!';
3190                                     return x1+x2;
3191                                 })());
3192                             })() : l3.value));
3193                         })((function(){
3194                             var string = v345;
3195                             var index = 0;
3196                             if (typeof string != 'string')
3197                                 throw 'The value ' + string + ' is not a type string.';
3198                             if (typeof index != 'number')
3199                                 throw 'The value ' + index + ' is not a type number.';
3200                             return string.charCodeAt(index);
3201                         })());
3202                         (((function(){
3203                             var x1 = v348;
3204                             if (typeof x1 !== 'number') throw 'Not a number!';
3205                             var x2 = v349;
3206                             if (typeof x2 !== 'number') throw 'Not a number!';
3207                             return (x1<x2?l4.value: l3.value);
3208                         })() !== l3.value ? (v347 = l89.fvalue(pv, (function(){
3209                             var string = v345;
3210                             var index = v348;
3211                             if (typeof string != 'string')
3212                                 throw 'The value ' + string + ' is not a type string.';
3213                             if (typeof index != 'number')
3214                                 throw 'The value ' + index + ' is not a type number.';
3215                             return string.charCodeAt(index);
3216                         })())) : l3.value) !== l3.value ? l3.value : (function(){
3217                             var values = mv;
3218                             throw ({type: 'block', id: 137, values: values(l3.value, v348), message: 'Return from unknown block NIL.'})
3219                         })());
3220                         (v348 = (function(){
3221                             var x1 = v348;
3222                             if (typeof x1 !== 'number') throw 'Not a number!';
3223                             var x2 = 1;
3224                             if (typeof x2 !== 'number') throw 'Not a number!';
3225                             return x1+x2;
3226                         })());
3227                         (function(){
3228                             try {
3229                                 return (function(){
3230                                     while((function(){
3231                                         var x1 = v348;
3232                                         if (typeof x1 !== 'number') throw 'Not a number!';
3233                                         var x2 = v349;
3234                                         if (typeof x2 !== 'number') throw 'Not a number!';
3235                                         return (x1<x2?l4.value: l3.value);
3236                                     })() !== l3.value){
3237                                         (function(v352){
3238                                             (v352 !== l3.value ? l3.value : (function(){
3239                                                 throw ({type: 'block', id: 138, values: l3.value, message: 'Return from unknown block NIL.'})
3240                                             })());
3241                                             (v347 = (function(){
3242                                                 var x1 = (function(){
3243                                                     var x1 = v347;
3244                                                     if (typeof x1 !== 'number') throw 'Not a number!';
3245                                                     var x2 = 10;
3246                                                     if (typeof x2 !== 'number') throw 'Not a number!';
3247                                                     return x1*x2;
3248                                                 })();
3249                                                 if (typeof x1 !== 'number') throw 'Not a number!';
3250                                                 var x2 = v352;
3251                                                 if (typeof x2 !== 'number') throw 'Not a number!';
3252                                                 return x1+x2;
3253                                             })());
3254                                             return (v348 = (function(){
3255                                                 var x1 = v348;
3256                                                 if (typeof x1 !== 'number') throw 'Not a number!';
3257                                                 var x2 = 1;
3258                                                 if (typeof x2 !== 'number') throw 'Not a number!';
3259                                                 return x1+x2;
3260                                             })());
3261                                         })(l89.fvalue(pv, (function(){
3262                                             var string = v345;
3263                                             var index = v348;
3264                                             if (typeof string != 'string')
3265                                                 throw 'The value ' + string + ' is not a type string.';
3266                                             if (typeof index != 'number')
3267                                                 throw 'The value ' + index + ' is not a type number.';
3268                                             return string.charCodeAt(index);
3269                                         })()));
3270                                     }return l3.value;
3271                                 })();
3272                             }
3273                             catch (cf){
3274                                 if (cf.type == 'block' && cf.id == 138)
3275                                     return cf.values;
3276                                 else
3277                                     throw cf;
3278                             }
3279                         })();
3280                         return ((function(v353){
3281                             return (v353 !== l3.value ? v353 : (function(v354){
3282                                 return (v354 !== l3.value ? v354 : l77.fvalue(pv, (function(){
3283                                     var string = v345;
3284                                     var index = v348;
3285                                     if (typeof string != 'string')
3286                                         throw 'The value ' + string + ' is not a type string.';
3287                                     if (typeof index != 'number')
3288                                         throw 'The value ' + index + ' is not a type number.';
3289                                     return string.charCodeAt(index);
3290                                 })(), 32));
3291                             })((function(){
3292                                 var x1 = v348;
3293                                 if (typeof x1 !== 'number') throw 'Not a number!';
3294                                 var x2 = v349;
3295                                 if (typeof x2 !== 'number') throw 'Not a number!';
3296                                 return (x1==x2?l4.value: l3.value);
3297                             })()));
3298                         })(v346) !== l3.value ? values((function(){
3299                             var x1 = v350;
3300                             if (typeof x1 !== 'number') throw 'Not a number!';
3301                             var x2 = v347;
3302                             if (typeof x2 !== 'number') throw 'Not a number!';
3303                             return x1*x2;
3304                         })(), v348) : values(l3.value, v348));
3305                     })(0,0,l70.fvalue(pv, v345),1);
3306                 }
3307                 catch (cf){
3308                     if (cf.type == 'block' && cf.id == 137)
3309                         return values.apply(this, forcemv(cf.values));
3310                     else
3311                         throw cf;
3312                 }
3313             })();
3314         })();
3315     }));
3316     return l157;
3317 })();
3318 var l158 = {name: "PARSE-INTEGER"};
3319 (function(){
3320     (l158).fvalue = (function(v357){
3321         ((v357)["fname"] = "PARSE-INTEGER");
3322         return v357;
3323     })((function (values,v356){
3324         checkArgs(arguments, 2);
3325         return (function(){
3326             return l157.fvalue(values, v356, l3.value);
3327         })();
3328     }));
3329     return l158;
3330 })();
3331 var l159 = {name: "*EOF*"};
3332 (function(){
3333     (((l159.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l159).value = l16.fvalue(pv)));
3334     return l159;
3335 })();
3336 var l160 = {name: "QUOTE"};
3337 var l161 = {name: "BACKQUOTE"};
3338 var l162 = {name: "UNQUOTE-SPLICING"};
3339 var l163 = {name: "UNQUOTE"};
3340 (function(){
3341     (l153).fvalue = (function(v363){
3342         ((v363)["fname"] = "LS-READ");
3343         return v363;
3344     })((function (values,v358){
3345         checkArgs(arguments, 2);
3346         return (function(){
3347             l151.fvalue(pv, v358);
3348             return (function(v359){
3349                 return ((function(v360){
3350                     return (v360 !== l3.value ? v360 : l77.fvalue(pv, v359, 41));
3351                 })(l12.fvalue(pv, v359)) !== l3.value ? (function(){
3352                     var symbol = l159;
3353                     var value = symbol.value;
3354                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3355                     return value;
3356                 })() : (l77.fvalue(pv, v359, 40) !== l3.value ? (function(){
3357                     l146.fvalue(pv, v358);
3358                     return l152.fvalue(values, v358);
3359                 })() : (l77.fvalue(pv, v359, 39) !== l3.value ? (function(){
3360                     l146.fvalue(pv, v358);
3361                     return l43.fvalue(values, l160, l153.fvalue(pv, v358));
3362                 })() : (l77.fvalue(pv, v359, 96) !== l3.value ? (function(){
3363                     l146.fvalue(pv, v358);
3364                     return l43.fvalue(values, l161, l153.fvalue(pv, v358));
3365                 })() : (l77.fvalue(pv, v359, 34) !== l3.value ? (function(){
3366                     l146.fvalue(pv, v358);
3367                     return l154.fvalue(values, v358);
3368                 })() : (l77.fvalue(pv, v359, 44) !== l3.value ? (function(){
3369                     l146.fvalue(pv, v358);
3370                     return (l26.fvalue(pv, l145.fvalue(pv, v358), 64) !== l3.value ? (function(){
3371                         l146.fvalue(pv, v358);
3372                         return l43.fvalue(values, l162, l153.fvalue(pv, v358));
3373                     })() : l43.fvalue(values, l163, l153.fvalue(pv, v358)));
3374                 })() : (l77.fvalue(pv, v359, 35) !== l3.value ? l155.fvalue(values, v358) : (function(v361){
3375                     return (function(v362){
3376                         return (v362 !== l3.value ? v362 : l156.fvalue(values, v361));
3377                     })(pv(l157.fvalue(pv, v361, l3.value)));
3378                 })(l150.fvalue(pv, v358, (function(){
3379                     var symbol = l149;
3380                     var func = symbol.fvalue;
3381                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3382                     return func;
3383                 })())))))))));
3384             })(l145.fvalue(pv, v358));
3385         })();
3386     }));
3387     return l153;
3388 })();
3389 var l164 = {name: "LS-READ-FROM-STRING"};
3390 (function(){
3391     (l164).fvalue = (function(v365){
3392         ((v365)["fname"] = "LS-READ-FROM-STRING");
3393         return v365;
3394     })((function (values,v364){
3395         checkArgs(arguments, 2);
3396         return (function(){
3397             return l153.fvalue(values, l144.fvalue(pv, v364));
3398         })();
3399     }));
3400     return l164;
3401 })();
3402 var l165 = {name: "*MULTIPLE-VALUE-P*"};
3403 (function(){
3404     (((l165.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l165).value = l3.value));
3405     return l165;
3406 })();
3407 var l166 = {name: "MAKE-BINDING"};
3408 (function(){
3409     (l166).fvalue = (function(v370){
3410         ((v370)["fname"] = "MAKE-BINDING");
3411         return v370;
3412     })((function (values,v366,v367,v368,v369){
3413         checkArgsAtLeast(arguments, 4);
3414         checkArgsAtMost(arguments, 5);
3415         switch(arguments.length-1){
3416         case 3:
3417         v369=l3.value;
3418         default: break;
3419         }
3420         return (function(){
3421             return l43.fvalue(values, v366, v367, v368, v369);
3422         })();
3423     }));
3424     return l166;
3425 })();
3426 var l167 = {name: "BINDING-NAME"};
3427 (function(){
3428     (l167).fvalue = (function(v372){
3429         ((v372)["fname"] = "BINDING-NAME");
3430         return v372;
3431     })((function (values,v371){
3432         checkArgs(arguments, 2);
3433         return (function(){
3434             return l39.fvalue(values, v371);
3435         })();
3436     }));
3437     return l167;
3438 })();
3439 var l168 = {name: "BINDING-TYPE"};
3440 (function(){
3441     (l168).fvalue = (function(v374){
3442         ((v374)["fname"] = "BINDING-TYPE");
3443         return v374;
3444     })((function (values,v373){
3445         checkArgs(arguments, 2);
3446         return (function(){
3447             return l40.fvalue(values, v373);
3448         })();
3449     }));
3450     return l168;
3451 })();
3452 var l169 = {name: "BINDING-VALUE"};
3453 (function(){
3454     (l169).fvalue = (function(v376){
3455         ((v376)["fname"] = "BINDING-VALUE");
3456         return v376;
3457     })((function (values,v375){
3458         checkArgs(arguments, 2);
3459         return (function(){
3460             return l41.fvalue(values, v375);
3461         })();
3462     }));
3463     return l169;
3464 })();
3465 var l170 = {name: "BINDING-DECLARATIONS"};
3466 (function(){
3467     (l170).fvalue = (function(v378){
3468         ((v378)["fname"] = "BINDING-DECLARATIONS");
3469         return v378;
3470     })((function (values,v377){
3471         checkArgs(arguments, 2);
3472         return (function(){
3473             return l42.fvalue(values, v377);
3474         })();
3475     }));
3476     return l170;
3477 })();
3478 var l171 = {name: "SET-BINDING-VALUE"};
3479 (function(){
3480     (l171).fvalue = (function(v381){
3481         ((v381)["fname"] = "SET-BINDING-VALUE");
3482         return v381;
3483     })((function (values,v379,v380){
3484         checkArgs(arguments, 3);
3485         return (function(){
3486             return (function(){
3487                 var x = l35.fvalue(pv, v379);
3488                 if (typeof x != 'object')
3489                     throw 'The value ' + x + ' is not a type object.';
3490                 return (x.car = v380, x);
3491             })();
3492         })();
3493     }));
3494     return l171;
3495 })();
3496 var l172 = {name: "SET-BINDING-DECLARATIONS"};
3497 (function(){
3498     (l172).fvalue = (function(v384){
3499         ((v384)["fname"] = "SET-BINDING-DECLARATIONS");
3500         return v384;
3501     })((function (values,v382,v383){
3502         checkArgs(arguments, 3);
3503         return (function(){
3504             return (function(){
3505                 var x = l37.fvalue(pv, v382);
3506                 if (typeof x != 'object')
3507                     throw 'The value ' + x + ' is not a type object.';
3508                 return (x.car = v383, x);
3509             })();
3510         })();
3511     }));
3512     return l172;
3513 })();
3514 var l173 = {name: "PUSH-BINDING-DECLARATION"};
3515 (function(){
3516     (l173).fvalue = (function(v387){
3517         ((v387)["fname"] = "PUSH-BINDING-DECLARATION");
3518         return v387;
3519     })((function (values,v385,v386){
3520         checkArgs(arguments, 3);
3521         return (function(){
3522             return l172.fvalue(values, v386, ({car: v385, cdr: l170.fvalue(pv, v386)}));
3523         })();
3524     }));
3525     return l173;
3526 })();
3527 var l174 = {name: "MAKE-LEXENV"};
3528 (function(){
3529     (l174).fvalue = (function(v388){
3530         ((v388)["fname"] = "MAKE-LEXENV");
3531         return v388;
3532     })((function (values){
3533         checkArgsAtMost(arguments, 1);
3534         return (function(){
3535             return l43.fvalue(values, l3.value, l3.value, l3.value, l3.value);
3536         })();
3537     }));
3538     return l174;
3539 })();
3540 var l175 = {name: "COPY-LEXENV"};
3541 (function(){
3542     (l175).fvalue = (function(v390){
3543         ((v390)["fname"] = "COPY-LEXENV");
3544         return v390;
3545     })((function (values,v389){
3546         checkArgs(arguments, 2);
3547         return (function(){
3548             return l74.fvalue(values, v389);
3549         })();
3550     }));
3551     return l175;
3552 })();
3553 var l176 = {name: "PUSH-TO-LEXENV"};
3554 var l177 = {name: "BLOCK"};
3555 var l178 = {name: "GOTAG"};
3556 (function(){
3557     (l176).fvalue = (function(v395){
3558         ((v395)["fname"] = "PUSH-TO-LEXENV");
3559         return v395;
3560     })((function (values,v391,v392,v393){
3561         checkArgs(arguments, 4);
3562         return (function(){
3563             return (function(v394){
3564                 return (l26.fvalue(pv, v394, l101) !== l3.value ? (function(){
3565                     var x = v392;
3566                     if (typeof x != 'object')
3567                         throw 'The value ' + x + ' is not a type object.';
3568                     return (x.car = ({car: v391, cdr: (function(){
3569                         var tmp = v392;
3570                         return tmp === l3.value? l3.value: tmp.car;
3571                     })()}), x);
3572                 })() : (l26.fvalue(pv, v394, l100) !== l3.value ? (function(){
3573                     var x = (function(){
3574                         var tmp = v392;
3575                         return tmp === l3.value? l3.value: tmp.cdr;
3576                     })();
3577                     if (typeof x != 'object')
3578                         throw 'The value ' + x + ' is not a type object.';
3579                     return (x.car = ({car: v391, cdr: l33.fvalue(pv, v392)}), x);
3580                 })() : (l26.fvalue(pv, v394, l177) !== l3.value ? (function(){
3581                     var x = l35.fvalue(pv, v392);
3582                     if (typeof x != 'object')
3583                         throw 'The value ' + x + ' is not a type object.';
3584                     return (x.car = ({car: v391, cdr: l36.fvalue(pv, v392)}), x);
3585                 })() : (l26.fvalue(pv, v394, l178) !== l3.value ? (function(){
3586                     var x = l37.fvalue(pv, v392);
3587                     if (typeof x != 'object')
3588                         throw 'The value ' + x + ' is not a type object.';
3589                     return (x.car = ({car: v391, cdr: l38.fvalue(pv, v392)}), x);
3590                 })() : (function(){
3591                     throw "ECASE expression failed.";
3592                 })()))));
3593             })(v393);
3594         })();
3595     }));
3596     return l176;
3597 })();
3598 var l179 = {name: "EXTEND-LEXENV"};
3599 (function(){
3600     (l179).fvalue = (function(v402){
3601         ((v402)["fname"] = "EXTEND-LEXENV");
3602         return v402;
3603     })((function (values,v396,v397,v398){
3604         checkArgs(arguments, 4);
3605         return (function(){
3606             return (function(v399){
3607                 return (function(){
3608                     return (function(v400,v401){
3609                         (function(){
3610                             while(v400 !== l3.value){
3611                                 (v401 = (function(){
3612                                     var tmp = v400;
3613                                     return tmp === l3.value? l3.value: tmp.car;
3614                                 })());
3615                                 (function(){
3616                                     l176.fvalue(pv, v401, v399, v398);
3617                                     return l3.value;
3618                                 })();
3619                                 (v400 = (function(){
3620                                     var tmp = v400;
3621                                     return tmp === l3.value? l3.value: tmp.cdr;
3622                                 })());
3623                             }return l3.value;
3624                         })();
3625                         return v399;
3626                     })(l65.fvalue(pv, v396),l3.value);
3627                 })();
3628             })(l175.fvalue(pv, v397));
3629         })();
3630     }));
3631     return l179;
3632 })();
3633 var l180 = {name: "LOOKUP-IN-LEXENV"};
3634 (function(){
3635     (l180).fvalue = (function(v407){
3636         ((v407)["fname"] = "LOOKUP-IN-LEXENV");
3637         return v407;
3638     })((function (values,v403,v404,v405){
3639         checkArgs(arguments, 4);
3640         return (function(){
3641             return l93.fvalue(values, v403, (function(v406){
3642                 return (l26.fvalue(pv, v406, l101) !== l3.value ? l39.fvalue(pv, v404) : (l26.fvalue(pv, v406, l100) !== l3.value ? l40.fvalue(pv, v404) : (l26.fvalue(pv, v406, l177) !== l3.value ? l41.fvalue(pv, v404) : (l26.fvalue(pv, v406, l178) !== l3.value ? l42.fvalue(pv, v404) : (function(){
3643                     throw "ECASE expression failed.";
3644                 })()))));
3645             })(v405));
3646         })();
3647     }));
3648     return l180;
3649 })();
3650 var l181 = {name: "*ENVIRONMENT*"};
3651 (function(){
3652     (((l181.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l181).value = l174.fvalue(pv)));
3653     return l181;
3654 })();
3655 var l182 = {name: "*VARIABLE-COUNTER*"};
3656 (function(){
3657     (((l182.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l182).value = 0));
3658     return l182;
3659 })();
3660 var l183 = {name: "GVARNAME"};
3661 (function(){
3662     (l183).fvalue = (function(v409){
3663         ((v409)["fname"] = "GVARNAME");
3664         return v409;
3665     })((function (values,v408){
3666         checkArgs(arguments, 2);
3667         return (function(){
3668             return l127.fvalue(values, "v", l17.fvalue(pv, ((l182).value = (function(){
3669                 var x1 = (function(){
3670                     var symbol = l182;
3671                     var value = symbol.value;
3672                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3673                     return value;
3674                 })();
3675                 if (typeof x1 !== 'number') throw 'Not a number!';
3676                 var x2 = 1;
3677                 if (typeof x2 !== 'number') throw 'Not a number!';
3678                 return x1+x2;
3679             })())));
3680         })();
3681     }));
3682     return l183;
3683 })();
3684 var l184 = {name: "TRANSLATE-VARIABLE"};
3685 (function(){
3686     (l184).fvalue = (function(v411){
3687         ((v411)["fname"] = "TRANSLATE-VARIABLE");
3688         return v411;
3689     })((function (values,v410){
3690         checkArgs(arguments, 2);
3691         return (function(){
3692             return l169.fvalue(values, l180.fvalue(pv, v410, (function(){
3693                 var symbol = l181;
3694                 var value = symbol.value;
3695                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3696                 return value;
3697             })(), l101));
3698         })();
3699     }));
3700     return l184;
3701 })();
3702 var l185 = {name: "EXTEND-LOCAL-ENV"};
3703 (function(){
3704     (l185).fvalue = (function(v417){
3705         ((v417)["fname"] = "EXTEND-LOCAL-ENV");
3706         return v417;
3707     })((function (values,v412){
3708         checkArgs(arguments, 2);
3709         return (function(){
3710             return (function(v413){
3711                 return (function(){
3712                     return (function(v414,v415){
3713                         (function(){
3714                             while(v414 !== l3.value){
3715                                 (v415 = (function(){
3716                                     var tmp = v414;
3717                                     return tmp === l3.value? l3.value: tmp.car;
3718                                 })());
3719                                 (function(){
3720                                     (function(v416){
3721                                         return l176.fvalue(pv, v416, v413, l101);
3722                                     })(l166.fvalue(pv, v415, l101, l183.fvalue(pv, v415)));
3723                                     return l3.value;
3724                                 })();
3725                                 (v414 = (function(){
3726                                     var tmp = v414;
3727                                     return tmp === l3.value? l3.value: tmp.cdr;
3728                                 })());
3729                             }return l3.value;
3730                         })();
3731                         return v413;
3732                     })(v412,l3.value);
3733                 })();
3734             })(l175.fvalue(pv, (function(){
3735                 var symbol = l181;
3736                 var value = symbol.value;
3737                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3738                 return value;
3739             })()));
3740         })();
3741     }));
3742     return l185;
3743 })();
3744 var l186 = {name: "*TOPLEVEL-COMPILATIONS*"};
3745 (function(){
3746     (((l186.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l186).value = l3.value));
3747     return l186;
3748 })();
3749 var l187 = {name: "TOPLEVEL-COMPILATION"};
3750 (function(){
3751     (l187).fvalue = (function(v419){
3752         ((v419)["fname"] = "TOPLEVEL-COMPILATION");
3753         return v419;
3754     })((function (values,v418){
3755         checkArgs(arguments, 2);
3756         return (function(){
3757             return ((l186).value = ({car: v418, cdr: (function(){
3758                 var symbol = l186;
3759                 var value = symbol.value;
3760                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3761                 return value;
3762             })()}));
3763         })();
3764     }));
3765     return l187;
3766 })();
3767 var l188 = {name: "NULL-OR-EMPTY-P"};
3768 (function(){
3769     (l188).fvalue = (function(v421){
3770         ((v421)["fname"] = "NULL-OR-EMPTY-P");
3771         return v421;
3772     })((function (values,v420){
3773         checkArgs(arguments, 2);
3774         return (function(){
3775             return l24.fvalue(values, l70.fvalue(pv, v420));
3776         })();
3777     }));
3778     return l188;
3779 })();
3780 var l189 = {name: "GET-TOPLEVEL-COMPILATIONS"};
3781 (function(){
3782     (l189).fvalue = (function(v422){
3783         ((v422)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
3784         return v422;
3785     })((function (values){
3786         checkArgsAtMost(arguments, 1);
3787         return (function(){
3788             return l65.fvalue(values, l87.fvalue(pv, (function(){
3789                 var symbol = l188;
3790                 var func = symbol.fvalue;
3791                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3792                 return func;
3793             })(), (function(){
3794                 var symbol = l186;
3795                 var value = symbol.value;
3796                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3797                 return value;
3798             })()));
3799         })();
3800     }));
3801     return l189;
3802 })();
3803 var l190 = {name: "%COMPILE-DEFMACRO"};
3804 var l191 = {name: "MACRO"};
3805 (function(){
3806     (l190).fvalue = (function(v425){
3807         ((v425)["fname"] = "%COMPILE-DEFMACRO");
3808         return v425;
3809     })((function (values,v423,v424){
3810         checkArgs(arguments, 3);
3811         return (function(){
3812             l187.fvalue(pv, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v423))));
3813             l176.fvalue(pv, l166.fvalue(pv, v423, l191, v424), (function(){
3814                 var symbol = l181;
3815                 var value = symbol.value;
3816                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3817                 return value;
3818             })(), l100);
3819             return v423;
3820         })();
3821     }));
3822     return l190;
3823 })();
3824 var l192 = {name: "GLOBAL-BINDING"};
3825 (function(){
3826     (l192).fvalue = (function(v431){
3827         ((v431)["fname"] = "GLOBAL-BINDING");
3828         return v431;
3829     })((function (values,v426,v427,v428){
3830         checkArgs(arguments, 4);
3831         return (function(){
3832             return (function(v429){
3833                 return (v429 !== l3.value ? v429 : (function(v430){
3834                     l176.fvalue(pv, v430, (function(){
3835                         var symbol = l181;
3836                         var value = symbol.value;
3837                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3838                         return value;
3839                     })(), v428);
3840                     return v430;
3841                 })(l166.fvalue(pv, v426, v427, l3.value)));
3842             })(l180.fvalue(pv, v426, (function(){
3843                 var symbol = l181;
3844                 var value = symbol.value;
3845                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3846                 return value;
3847             })(), v428));
3848         })();
3849     }));
3850     return l192;
3851 })();
3852 var l193 = {name: "CLAIMP"};
3853 (function(){
3854     (l193).fvalue = (function(v436){
3855         ((v436)["fname"] = "CLAIMP");
3856         return v436;
3857     })((function (values,v432,v433,v434){
3858         checkArgs(arguments, 4);
3859         return (function(){
3860             return (function(v435){
3861                 return (v435 !== l3.value ? l85.fvalue(values, v434, l170.fvalue(pv, v435)) : l3.value);
3862             })(l180.fvalue(pv, v432, (function(){
3863                 var symbol = l181;
3864                 var value = symbol.value;
3865                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3866                 return value;
3867             })(), v433));
3868         })();
3869     }));
3870     return l193;
3871 })();
3872 var l194 = {name: "!PROCLAIM"};
3873 var l195 = {name: "SPECIAL"};
3874 var l196 = {name: "NOTINLINE"};
3875 var l197 = {name: "CONSTANT"};
3876 (function(){
3877     (l194).fvalue = (function(v448){
3878         ((v448)["fname"] = "!PROCLAIM");
3879         return v448;
3880     })((function (values,v437){
3881         checkArgs(arguments, 2);
3882         return (function(){
3883             return (function(v438){
3884                 return (l26.fvalue(pv, v438, l195) !== l3.value ? (function(){
3885                     return (function(v439,v440){
3886                         (function(){
3887                             while(v439 !== l3.value){
3888                                 (v440 = (function(){
3889                                     var tmp = v439;
3890                                     return tmp === l3.value? l3.value: tmp.car;
3891                                 })());
3892                                 (function(){
3893                                     (function(v441){
3894                                         return l173.fvalue(pv, l195, v441);
3895                                     })(l192.fvalue(pv, v440, l101, l101));
3896                                     return l3.value;
3897                                 })();
3898                                 (v439 = (function(){
3899                                     var tmp = v439;
3900                                     return tmp === l3.value? l3.value: tmp.cdr;
3901                                 })());
3902                             }return l3.value;
3903                         })();
3904                         return l3.value;
3905                     })((function(){
3906                         var tmp = v437;
3907                         return tmp === l3.value? l3.value: tmp.cdr;
3908                     })(),l3.value);
3909                 })() : (l26.fvalue(pv, v438, l196) !== l3.value ? (function(){
3910                     return (function(v442,v443){
3911                         (function(){
3912                             while(v442 !== l3.value){
3913                                 (v443 = (function(){
3914                                     var tmp = v442;
3915                                     return tmp === l3.value? l3.value: tmp.car;
3916                                 })());
3917                                 (function(){
3918                                     (function(v444){
3919                                         return l173.fvalue(pv, l196, v444);
3920                                     })(l192.fvalue(pv, v443, l100, l100));
3921                                     return l3.value;
3922                                 })();
3923                                 (v442 = (function(){
3924                                     var tmp = v442;
3925                                     return tmp === l3.value? l3.value: tmp.cdr;
3926                                 })());
3927                             }return l3.value;
3928                         })();
3929                         return l3.value;
3930                     })((function(){
3931                         var tmp = v437;
3932                         return tmp === l3.value? l3.value: tmp.cdr;
3933                     })(),l3.value);
3934                 })() : (l26.fvalue(pv, v438, l197) !== l3.value ? (function(){
3935                     return (function(v445,v446){
3936                         (function(){
3937                             while(v445 !== l3.value){
3938                                 (v446 = (function(){
3939                                     var tmp = v445;
3940                                     return tmp === l3.value? l3.value: tmp.car;
3941                                 })());
3942                                 (function(){
3943                                     (function(v447){
3944                                         return l173.fvalue(pv, l197, v447);
3945                                     })(l192.fvalue(pv, v446, l101, l101));
3946                                     return l3.value;
3947                                 })();
3948                                 (v445 = (function(){
3949                                     var tmp = v445;
3950                                     return tmp === l3.value? l3.value: tmp.cdr;
3951                                 })());
3952                             }return l3.value;
3953                         })();
3954                         return l3.value;
3955                     })((function(){
3956                         var tmp = v437;
3957                         return tmp === l3.value? l3.value: tmp.cdr;
3958                     })(),l3.value);
3959                 })() : l3.value)));
3960             })((function(){
3961                 var tmp = v437;
3962                 return tmp === l3.value? l3.value: tmp.car;
3963             })());
3964         })();
3965     }));
3966     return l194;
3967 })();
3968 var l198 = {name: "PROCLAIM"};
3969 (l198).fvalue = (function(){
3970     var symbol = l194;
3971     var func = symbol.fvalue;
3972     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3973     return func;
3974 })();
3975 var l199 = {name: "*COMPILATIONS*"};
3976 (function(){
3977     (((l199.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l199).value = l3.value));
3978     return l199;
3979 })();
3980 var l200 = {name: "DEFINE-COMPILATION"};
3981 l200;
3982 var l201 = {name: "IF"};
3983 ((l199).value = ({car: l43.fvalue(pv, l201, (function (values,v449,v450,v451){
3984     checkArgs(arguments, 4);
3985     return (function(){
3986         return l127.fvalue(values, "(", l138.fvalue(pv, v449), " !== ", l138.fvalue(pv, l3.value), " ? ", l138.fvalue(pv, v450, (function(){
3987             var symbol = l165;
3988             var value = symbol.value;
3989             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3990             return value;
3991         })()), " : ", l138.fvalue(pv, v451, (function(){
3992             var symbol = l165;
3993             var value = symbol.value;
3994             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3995             return value;
3996         })()), ")");
3997     })();
3998 })), cdr: (function(){
3999     var symbol = l199;
4000     var value = symbol.value;
4001     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4002     return value;
4003 })()}));
4004 var l202 = {name: "*LAMBDA-LIST-KEYWORDS*"};
4005 var l203 = {name: "&OPTIONAL"};
4006 var l204 = {name: "&REST"};
4007 var l205 = QIList(l203,l204,l3);
4008 (function(){
4009     (((l202.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l202).value = l205));
4010     return l202;
4011 })();
4012 var l206 = {name: "LIST-UNTIL-KEYWORD"};
4013 (function(){
4014     (l206).fvalue = (function(v454){
4015         ((v454)["fname"] = "LIST-UNTIL-KEYWORD");
4016         return v454;
4017     })((function (values,v452){
4018         checkArgs(arguments, 2);
4019         return (function(){
4020             return ((function(v453){
4021                 return (v453 !== l3.value ? v453 : l85.fvalue(pv, (function(){
4022                     var tmp = v452;
4023                     return tmp === l3.value? l3.value: tmp.car;
4024                 })(), (function(){
4025                     var symbol = l202;
4026                     var value = symbol.value;
4027                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4028                     return value;
4029                 })()));
4030             })(l12.fvalue(pv, v452)) !== l3.value ? l3.value : ({car: (function(){
4031                 var tmp = v452;
4032                 return tmp === l3.value? l3.value: tmp.car;
4033             })(), cdr: l206.fvalue(pv, (function(){
4034                 var tmp = v452;
4035                 return tmp === l3.value? l3.value: tmp.cdr;
4036             })())}));
4037         })();
4038     }));
4039     return l206;
4040 })();
4041 var l207 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
4042 (function(){
4043     (l207).fvalue = (function(v456){
4044         ((v456)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4045         return v456;
4046     })((function (values,v455){
4047         checkArgs(arguments, 2);
4048         return (function(){
4049             return l206.fvalue(values, v455);
4050         })();
4051     }));
4052     return l207;
4053 })();
4054 var l208 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
4055 (function(){
4056     (l208).fvalue = (function(v458){
4057         ((v458)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4058         return v458;
4059     })((function (values,v457){
4060         checkArgs(arguments, 2);
4061         return (function(){
4062             return l72.fvalue(values, (function(){
4063                 var symbol = l57;
4064                 var func = symbol.fvalue;
4065                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4066                 return func;
4067             })(), l206.fvalue(pv, (function(){
4068                 var tmp = l85.fvalue(pv, l203, v457);
4069                 return tmp === l3.value? l3.value: tmp.cdr;
4070             })()));
4071         })();
4072     }));
4073     return l208;
4074 })();
4075 var l209 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
4076 (function(){
4077     (l209).fvalue = (function(v460){
4078         ((v460)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4079         return v460;
4080     })((function (values,v459){
4081         checkArgs(arguments, 2);
4082         return (function(){
4083             return l72.fvalue(values, (function(){
4084                 var symbol = l30;
4085                 var func = symbol.fvalue;
4086                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4087                 return func;
4088             })(), l208.fvalue(pv, v459));
4089         })();
4090     }));
4091     return l209;
4092 })();
4093 var l210 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
4094 (function(){
4095     (l210).fvalue = (function(v463){
4096         ((v463)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4097         return v463;
4098     })((function (values,v461){
4099         checkArgs(arguments, 2);
4100         return (function(){
4101             return (function(v462){
4102                 ((function(){
4103                     var tmp = v462;
4104                     return tmp === l3.value? l3.value: tmp.cdr;
4105                 })() !== l3.value ? (function(){
4106                     throw "Bad lambda-list";
4107                 })() : l3.value);
4108                 return (function(){
4109                     var tmp = v462;
4110                     return tmp === l3.value? l3.value: tmp.car;
4111                 })();
4112             })(l206.fvalue(pv, (function(){
4113                 var tmp = l85.fvalue(pv, l204, v461);
4114                 return tmp === l3.value? l3.value: tmp.cdr;
4115             })()));
4116         })();
4117     }));
4118     return l210;
4119 })();
4120 var l211 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
4121 (function(){
4122     (l211).fvalue = (function(v466){
4123         ((v466)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
4124         return v466;
4125     })((function (values,v465){
4126         checkArgsAtLeast(arguments, 2);
4127         var v464= l3.value;
4128         for (var i = arguments.length-1; i>=2; i--)
4129             v464 = {car: arguments[i], cdr:
4130         v464};
4131         return (function(){
4132             return (v465 !== l3.value ? l127.fvalue(values, "(function(){", (function(){
4133                 var symbol = l126;
4134                 var value = symbol.value;
4135                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4136                 return value;
4137             })(), l136.fvalue(pv, "var func = ", l129.fvalue(pv, v464), ";", (function(){
4138                 var symbol = l126;
4139                 var value = symbol.value;
4140                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4141                 return value;
4142             })(), "func.docstring = '", v465, "';", (function(){
4143                 var symbol = l126;
4144                 var value = symbol.value;
4145                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4146                 return value;
4147             })(), "return func;", (function(){
4148                 var symbol = l126;
4149                 var value = symbol.value;
4150                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4151                 return value;
4152             })()), "})()") : l129.fvalue(values, v464));
4153         })();
4154     }));
4155     return l211;
4156 })();
4157 var l212 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
4158 var l213 = {name: "N/A"};
4159 (function(){
4160     (l212).fvalue = (function(v472){
4161         ((v472)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
4162         return v472;
4163     })((function (values,v467,v468,v469){
4164         checkArgs(arguments, 4);
4165         return (function(){
4166             return (function(v470,v471){
4167                 return (function(){
4168                     try {
4169                         (((function(){
4170                             var x1 = 1;
4171                             if (typeof x1 !== 'number') throw 'Not a number!';
4172                             var x2 = v470;
4173                             if (typeof x2 !== 'number') throw 'Not a number!';
4174                             return (x1<x2?l4.value: l3.value);
4175                         })() !== l3.value ? l26.fvalue(pv, v470, v471) : l3.value) !== l3.value ? (function(){
4176                             var values = mv;
4177                             throw ({type: 'block', id: 178, values: l127.fvalue(values, "checkArgs(arguments, ", l17.fvalue(pv, v470), ");", (function(){
4178                                 var symbol = l126;
4179                                 var value = symbol.value;
4180                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4181                                 return value;
4182                             })()), message: 'Return from unknown block NIL.'})
4183                         })() : l3.value);
4184                         return l127.fvalue(values, ((function(){
4185                             var x1 = 1;
4186                             if (typeof x1 !== 'number') throw 'Not a number!';
4187                             var x2 = v470;
4188                             if (typeof x2 !== 'number') throw 'Not a number!';
4189                             return (x1<x2?l4.value: l3.value);
4190                         })() !== l3.value ? l127.fvalue(pv, "checkArgsAtLeast(arguments, ", l17.fvalue(pv, v470), ");", (function(){
4191                             var symbol = l126;
4192                             var value = symbol.value;
4193                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4194                             return value;
4195                         })()) : ""), (((typeof (v471) == "number")?l4.value: l3.value) !== l3.value ? l127.fvalue(pv, "checkArgsAtMost(arguments, ", l17.fvalue(pv, v471), ");", (function(){
4196                             var symbol = l126;
4197                             var value = symbol.value;
4198                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4199                             return value;
4200                         })()) : ""));
4201                     }
4202                     catch (cf){
4203                         if (cf.type == 'block' && cf.id == 178)
4204                             return values.apply(this, forcemv(cf.values));
4205                         else
4206                             throw cf;
4207                     }
4208                 })();
4209             })(l22.fvalue(pv, v467),(v469 !== l3.value ? l213 : (function(){
4210                 var x1 = 1;
4211                 if (typeof x1 !== 'number') throw 'Not a number!';
4212                 var x2 = v467;
4213                 if (typeof x2 !== 'number') throw 'Not a number!';
4214                 var x3 = v468;
4215                 if (typeof x3 !== 'number') throw 'Not a number!';
4216                 return x1+x2+x3;
4217             })()));
4218         })();
4219     }));
4220     return l212;
4221 })();
4222 var l214 = {name: "COMPILE-LAMBDA"};
4223 var l215 = {name: "LS-COMPILE-BLOCK"};
4224 (function(){
4225     (l214).fvalue = (function(v488){
4226         ((v488)["fname"] = "COMPILE-LAMBDA");
4227         return v488;
4228     })((function (values,v473,v474){
4229         checkArgs(arguments, 3);
4230         return (function(){
4231             return (function(v475,v476,v477,v478){
4232                 ((((typeof((function(){
4233                     var tmp = v474;
4234                     return tmp === l3.value? l3.value: tmp.car;
4235                 })()) == "string")?l4.value: l3.value) !== l3.value ? l27.fvalue(pv, l12.fvalue(pv, (function(){
4236                     var tmp = v474;
4237                     return tmp === l3.value? l3.value: tmp.cdr;
4238                 })())) : l3.value) !== l3.value ? (function(){
4239                     (v478 = (function(){
4240                         var tmp = v474;
4241                         return tmp === l3.value? l3.value: tmp.car;
4242                     })());
4243                     return (v474 = (function(){
4244                         var tmp = v474;
4245                         return tmp === l3.value? l3.value: tmp.cdr;
4246                     })());
4247                 })() : l3.value);
4248                 return (function(v479,v480,v481){
4249                     try {
4250                         var tmp;
4251                         tmp = l181.value;
4252                         l181.value = v481;
4253                         v481 = tmp;
4254                         return l211.fvalue(values, v478, "(function (", l129.fvalue(pv, ({car: "values", cdr: l72.fvalue(pv, (function(){
4255                             var symbol = l184;
4256                             var func = symbol.fvalue;
4257                             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4258                             return func;
4259                         })(), l63.fvalue(pv, v475, v476))}), ","), "){", (function(){
4260                             var symbol = l126;
4261                             var value = symbol.value;
4262                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4263                             return value;
4264                         })(), l136.fvalue(pv, l212.fvalue(pv, v479, v480, v477), (v476 !== l3.value ? l127.fvalue(pv, "switch(arguments.length-1){", (function(){
4265                             var symbol = l126;
4266                             var value = symbol.value;
4267                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4268                             return value;
4269                         })(), (function(v482,v483,v484){
4270                             return (function(){
4271                                 (function(){
4272                                     return (function(){
4273                                         while((function(){
4274                                             var x1 = v484;
4275                                             if (typeof x1 !== 'number') throw 'Not a number!';
4276                                             var x2 = v480;
4277                                             if (typeof x2 !== 'number') throw 'Not a number!';
4278                                             return (x1<x2?l4.value: l3.value);
4279                                         })() !== l3.value){
4280                                             (function(v485){
4281                                                 (v483 = ({car: l127.fvalue(pv, "case ", l17.fvalue(pv, (function(){
4282                                                     var x1 = v484;
4283                                                     if (typeof x1 !== 'number') throw 'Not a number!';
4284                                                     var x2 = v479;
4285                                                     if (typeof x2 !== 'number') throw 'Not a number!';
4286                                                     return x1+x2;
4287                                                 })()), ":", (function(){
4288                                                     var symbol = l126;
4289                                                     var value = symbol.value;
4290                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4291                                                     return value;
4292                                                 })(), l184.fvalue(pv, (function(){
4293                                                     var tmp = v485;
4294                                                     return tmp === l3.value? l3.value: tmp.car;
4295                                                 })()), "=", l138.fvalue(pv, l33.fvalue(pv, v485)), ";", (function(){
4296                                                     var symbol = l126;
4297                                                     var value = symbol.value;
4298                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4299                                                     return value;
4300                                                 })()), cdr: v483}));
4301                                                 return (v484 = (function(){
4302                                                     var x1 = v484;
4303                                                     if (typeof x1 !== 'number') throw 'Not a number!';
4304                                                     var x2 = 1;
4305                                                     if (typeof x2 !== 'number') throw 'Not a number!';
4306                                                     return x1+x2;
4307                                                 })());
4308                                             })(l82.fvalue(pv, v484, v482));
4309                                         }return l3.value;
4310                                     })();
4311                                 })();
4312                                 (v483 = ({car: l127.fvalue(pv, "default: break;", (function(){
4313                                     var symbol = l126;
4314                                     var value = symbol.value;
4315                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4316                                     return value;
4317                                 })()), cdr: v483}));
4318                                 return l129.fvalue(pv, l65.fvalue(pv, v483));
4319                             })();
4320                         })(l208.fvalue(pv, v473),l3.value,0), "}", (function(){
4321                             var symbol = l126;
4322                             var value = symbol.value;
4323                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4324                             return value;
4325                         })()) : ""), (v477 !== l3.value ? (function(v486){
4326                             return l127.fvalue(pv, "var ", v486, "= ", l138.fvalue(pv, l3.value), ";", (function(){
4327                                 var symbol = l126;
4328                                 var value = symbol.value;
4329                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4330                                 return value;
4331                             })(), "for (var i = arguments.length-1; i>=", l17.fvalue(pv, (function(){
4332                                 var x1 = 1;
4333                                 if (typeof x1 !== 'number') throw 'Not a number!';
4334                                 var x2 = v479;
4335                                 if (typeof x2 !== 'number') throw 'Not a number!';
4336                                 var x3 = v480;
4337                                 if (typeof x3 !== 'number') throw 'Not a number!';
4338                                 return x1+x2+x3;
4339                             })()), "; i--)", (function(){
4340                                 var symbol = l126;
4341                                 var value = symbol.value;
4342                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4343                                 return value;
4344                             })(), l136.fvalue(pv, v486, " = ", "{car: arguments[i], cdr: "), v486, "};", (function(){
4345                                 var symbol = l126;
4346                                 var value = symbol.value;
4347                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4348                                 return value;
4349                             })());
4350                         })(l184.fvalue(pv, v477)) : ""), (function(v487){
4351                             try {
4352                                 var tmp;
4353                                 tmp = l165.value;
4354                                 l165.value = v487;
4355                                 v487 = tmp;
4356                                 return l215.fvalue(pv, v474, l4.value);
4357                             }
4358                             finally {
4359                                 l165.value = v487;
4360                             }
4361                         })(l4.value)), "})");
4362                     }
4363                     finally {
4364                         l181.value = v481;
4365                     }
4366                 })(l70.fvalue(pv, v475),l70.fvalue(pv, v476),l185.fvalue(pv, l63.fvalue(pv, l57.fvalue(pv, v477), v475, v476)));
4367             })(l207.fvalue(pv, v473),l209.fvalue(pv, v473),l210.fvalue(pv, v473),l3.value);
4368         })();
4369     }));
4370     return l214;
4371 })();
4372 var l216 = {name: "SETQ-PAIR"};
4373 var l217 = {name: "SET"};
4374 (function(){
4375     (l216).fvalue = (function(v492){
4376         ((v492)["fname"] = "SETQ-PAIR");
4377         return v492;
4378     })((function (values,v489,v490){
4379         checkArgs(arguments, 3);
4380         return (function(){
4381             return (function(v491){
4382                 return ((((l168.fvalue(pv, v491) === l101)?l4.value: l3.value) !== l3.value ? (l27.fvalue(pv, l85.fvalue(pv, l195, l170.fvalue(pv, v491))) !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l197, l170.fvalue(pv, v491))) : l3.value) : l3.value) !== l3.value ? l127.fvalue(values, l169.fvalue(pv, v491), " = ", l138.fvalue(pv, v490)) : l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l217), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v489))), l43.fvalue(pv, v490))));
4383             })(l180.fvalue(pv, v489, (function(){
4384                 var symbol = l181;
4385                 var value = symbol.value;
4386                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4387                 return value;
4388             })(), l101));
4389         })();
4390     }));
4391     return l216;
4392 })();
4393 var l218 = {name: "SETQ"};
4394 ((l199).value = ({car: l43.fvalue(pv, l218, (function (values){
4395     var v493= l3.value;
4396     for (var i = arguments.length-1; i>=1; i--)
4397         v493 = {car: arguments[i], cdr:
4398     v493};
4399     return (function(){
4400         return (function(v494){
4401             (function(){
4402                 try {
4403                     return (function(){
4404                         while(l4.value !== l3.value){
4405                             (l12.fvalue(pv, v493) !== l3.value ? (function(){
4406                                 throw ({type: 'block', id: 183, values: l3.value, message: 'Return from unknown block NIL.'})
4407                             })() : (l12.fvalue(pv, (function(){
4408                                 var tmp = v493;
4409                                 return tmp === l3.value? l3.value: tmp.cdr;
4410                             })()) !== l3.value ? (function(){
4411                                 throw "Odd paris in SETQ";
4412                             })() : (function(){
4413                                 (v494 = l127.fvalue(pv, v494, l127.fvalue(pv, l216.fvalue(pv, (function(){
4414                                     var tmp = v493;
4415                                     return tmp === l3.value? l3.value: tmp.car;
4416                                 })(), l33.fvalue(pv, v493)), (l12.fvalue(pv, l35.fvalue(pv, v493)) !== l3.value ? "" : ", "))));
4417                                 return (v493 = l35.fvalue(pv, v493));
4418                             })()));
4419                         }return l3.value;
4420                     })();
4421                 }
4422                 catch (cf){
4423                     if (cf.type == 'block' && cf.id == 183)
4424                         return cf.values;
4425                     else
4426                         throw cf;
4427                 }
4428             })();
4429             return l127.fvalue(values, "(", v494, ")");
4430         })("");
4431     })();
4432 })), cdr: (function(){
4433     var symbol = l199;
4434     var value = symbol.value;
4435     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4436     return value;
4437 })()}));
4438 var l219 = {name: "JS-VREF"};
4439 ((l199).value = ({car: l43.fvalue(pv, l219, (function (values,v495){
4440     checkArgs(arguments, 2);
4441     return (function(){
4442         return v495;
4443     })();
4444 })), cdr: (function(){
4445     var symbol = l199;
4446     var value = symbol.value;
4447     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4448     return value;
4449 })()}));
4450 var l220 = {name: "JS-VSET"};
4451 ((l199).value = ({car: l43.fvalue(pv, l220, (function (values,v496,v497){
4452     checkArgs(arguments, 3);
4453     return (function(){
4454         return l127.fvalue(values, "(", v496, " = ", l138.fvalue(pv, v497), ")");
4455     })();
4456 })), cdr: (function(){
4457     var symbol = l199;
4458     var value = symbol.value;
4459     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4460     return value;
4461 })()}));
4462 (function(){
4463     (l141).fvalue = (function(v504){
4464         ((v504)["fname"] = "ESCAPE-STRING");
4465         return v504;
4466     })((function (values,v498){
4467         checkArgs(arguments, 2);
4468         return (function(){
4469             return (function(v499,v500,v501){
4470                 (function(){
4471                     return (function(){
4472                         while((function(){
4473                             var x1 = v500;
4474                             if (typeof x1 !== 'number') throw 'Not a number!';
4475                             var x2 = v501;
4476                             if (typeof x2 !== 'number') throw 'Not a number!';
4477                             return (x1<x2?l4.value: l3.value);
4478                         })() !== l3.value){
4479                             (function(v502){
4480                                 ((function(v503){
4481                                     return (v503 !== l3.value ? v503 : l77.fvalue(pv, v502, 92));
4482                                 })(l77.fvalue(pv, v502, 34)) !== l3.value ? (v499 = l127.fvalue(pv, v499, "\\")) : l3.value);
4483                                 (l77.fvalue(pv, v502, 10) !== l3.value ? (function(){
4484                                     (v499 = l127.fvalue(pv, v499, "\\"));
4485                                     return (v502 = 110);
4486                                 })() : l3.value);
4487                                 return (v499 = l127.fvalue(pv, v499, l94.fvalue(pv, v502)));
4488                             })((function(){
4489                                 var string = v498;
4490                                 var index = v500;
4491                                 if (typeof string != 'string')
4492                                     throw 'The value ' + string + ' is not a type string.';
4493                                 if (typeof index != 'number')
4494                                     throw 'The value ' + index + ' is not a type number.';
4495                                 return string.charCodeAt(index);
4496                             })());
4497                             (v500 = (function(){
4498                                 var x1 = v500;
4499                                 if (typeof x1 !== 'number') throw 'Not a number!';
4500                                 var x2 = 1;
4501                                 if (typeof x2 !== 'number') throw 'Not a number!';
4502                                 return x1+x2;
4503                             })());
4504                         }return l3.value;
4505                     })();
4506                 })();
4507                 return v499;
4508             })("",0,l70.fvalue(pv, v498));
4509         })();
4510     }));
4511     return l141;
4512 })();
4513 var l221 = {name: "*LITERAL-SYMBOLS*"};
4514 (function(){
4515     (((l221.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l221).value = l3.value));
4516     return l221;
4517 })();
4518 var l222 = {name: "*LITERAL-COUNTER*"};
4519 (function(){
4520     (((l222.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l222).value = 0));
4521     return l222;
4522 })();
4523 var l223 = {name: "GENLIT"};
4524 (function(){
4525     (l223).fvalue = (function(v505){
4526         ((v505)["fname"] = "GENLIT");
4527         return v505;
4528     })((function (values){
4529         checkArgsAtMost(arguments, 1);
4530         return (function(){
4531             return l127.fvalue(values, "l", l17.fvalue(pv, ((l222).value = (function(){
4532                 var x1 = (function(){
4533                     var symbol = l222;
4534                     var value = symbol.value;
4535                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4536                     return value;
4537                 })();
4538                 if (typeof x1 !== 'number') throw 'Not a number!';
4539                 var x2 = 1;
4540                 if (typeof x2 !== 'number') throw 'Not a number!';
4541                 return x1+x2;
4542             })())));
4543         })();
4544     }));
4545     return l223;
4546 })();
4547 var l224 = {name: "LITERAL"};
4548 (function(){
4549     (l224).fvalue = (function(v520){
4550         ((v520)["fname"] = "LITERAL");
4551         return v520;
4552     })((function (values,v506,v507){
4553         checkArgsAtLeast(arguments, 2);
4554         checkArgsAtMost(arguments, 3);
4555         switch(arguments.length-1){
4556         case 1:
4557         v507=l3.value;
4558         default: break;
4559         }
4560         return (function(){
4561             return (l78.fvalue(pv, v506) !== l3.value ? l17.fvalue(values, v506) : (((typeof(v506) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l141.fvalue(pv, v506), "\"") : (((function(){
4562                 var tmp = v506;
4563                 return (typeof tmp == 'object' && 'name' in tmp);
4564             })()?l4.value: l3.value) !== l3.value ? (function(v508){
4565                 return (v508 !== l3.value ? v508 : (function(v510,v511){
4566                     ((l221).value = ({car: ({car: v506, cdr: v510}), cdr: (function(){
4567                         var symbol = l221;
4568                         var value = symbol.value;
4569                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4570                         return value;
4571                     })()}));
4572                     l187.fvalue(pv, l127.fvalue(pv, "var ", v510, " = ", v511));
4573                     return v510;
4574                 })(l223.fvalue(pv),(function(v509){
4575                     return (l12.fvalue(pv, v509) !== l3.value ? l127.fvalue(pv, "{name: \"", l141.fvalue(pv, (v506).name), "\"}") : l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l123), l43.fvalue(pv, (v506).name), l43.fvalue(pv, l110.fvalue(pv, v509)))));
4576                 })(l118.fvalue(pv, v506))));
4577             })((function(){
4578                 var tmp = l93.fvalue(pv, v506, (function(){
4579                     var symbol = l221;
4580                     var value = symbol.value;
4581                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4582                     return value;
4583                 })());
4584                 return tmp === l3.value? l3.value: tmp.cdr;
4585             })()) : (((function(){
4586                 var tmp = v506;
4587                 return (typeof tmp == 'object' && 'car' in tmp);
4588             })()?l4.value: l3.value) !== l3.value ? (function(){
4589                 var v512 = l84.fvalue(pv, v506);
4590                 var v513 = l83.fvalue(pv, v506);
4591                 var v514 = l127.fvalue(pv, "QIList(", l130.fvalue(pv, l72.fvalue(pv, (function (values,v515){
4592                     checkArgs(arguments, 2);
4593                     return l224.fvalue(values, v515, l4.value);
4594                 }), v512), ","), l224.fvalue(pv, (function(){
4595                     var tmp = v513;
4596                     return tmp === l3.value? l3.value: tmp.car;
4597                 })(), l4.value), ",", l224.fvalue(pv, (function(){
4598                     var tmp = v513;
4599                     return tmp === l3.value? l3.value: tmp.cdr;
4600                 })(), l4.value), ")");
4601                 return (v507 !== l3.value ? v514 : (function(v516){
4602                     l187.fvalue(pv, l127.fvalue(pv, "var ", v516, " = ", v514));
4603                     return v516;
4604                 })(l223.fvalue(pv)));
4605             })() : (((function(){
4606                 var x = v506;
4607                 return typeof x === 'object' && 'length' in x;
4608             })()?l4.value: l3.value) !== l3.value ? (function(v517){
4609                 return (function(v518){
4610                     return (v507 !== l3.value ? v518 : (function(v519){
4611                         l187.fvalue(pv, l127.fvalue(pv, "var ", v519, " = ", v518));
4612                         return v519;
4613                     })(l223.fvalue(pv)));
4614                 })(l127.fvalue(pv, "[", l129.fvalue(pv, l72.fvalue(pv, (function(){
4615                     var symbol = l224;
4616                     var func = symbol.fvalue;
4617                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4618                     return func;
4619                 })(), v517), ", "), "]"));
4620             })(l132.fvalue(pv, v506)) : l3.value)))));
4621         })();
4622     }));
4623     return l224;
4624 })();
4625 ((l199).value = ({car: l43.fvalue(pv, l160, (function (values,v521){
4626     checkArgs(arguments, 2);
4627     return (function(){
4628         return l224.fvalue(values, v521);
4629     })();
4630 })), cdr: (function(){
4631     var symbol = l199;
4632     var value = symbol.value;
4633     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4634     return value;
4635 })()}));
4636 var l225 = {name: "%WHILE"};
4637 ((l199).value = ({car: l43.fvalue(pv, l225, (function (values,v523){
4638     checkArgsAtLeast(arguments, 2);
4639     var v522= l3.value;
4640     for (var i = arguments.length-1; i>=2; i--)
4641         v522 = {car: arguments[i], cdr:
4642     v522};
4643     return (function(){
4644         return l127.fvalue(values, "(function(){", (function(){
4645             var symbol = l126;
4646             var value = symbol.value;
4647             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4648             return value;
4649         })(), l136.fvalue(pv, "while(", l138.fvalue(pv, v523), " !== ", l138.fvalue(pv, l3.value), "){", (function(){
4650             var symbol = l126;
4651             var value = symbol.value;
4652             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4653             return value;
4654         })(), l136.fvalue(pv, l215.fvalue(pv, v522)), "}", "return ", l138.fvalue(pv, l3.value), ";", (function(){
4655             var symbol = l126;
4656             var value = symbol.value;
4657             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4658             return value;
4659         })()), "})()");
4660     })();
4661 })), cdr: (function(){
4662     var symbol = l199;
4663     var value = symbol.value;
4664     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4665     return value;
4666 })()}));
4667 var l226 = {name: "SYMBOL-FUNCTION"};
4668 ((l199).value = ({car: l43.fvalue(pv, l100, (function (values,v524){
4669     checkArgs(arguments, 2);
4670     return (function(){
4671         return ((l58.fvalue(pv, v524) !== l3.value ? (((function(){
4672             var tmp = v524;
4673             return tmp === l3.value? l3.value: tmp.car;
4674         })() === l5)?l4.value: l3.value) : l3.value) !== l3.value ? l214.fvalue(values, l33.fvalue(pv, v524), l35.fvalue(pv, v524)) : (((function(){
4675             var tmp = v524;
4676             return (typeof tmp == 'object' && 'name' in tmp);
4677         })()?l4.value: l3.value) !== l3.value ? l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l226), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v524))))) : l3.value));
4678     })();
4679 })), cdr: (function(){
4680     var symbol = l199;
4681     var value = symbol.value;
4682     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4683     return value;
4684 })()}));
4685 var l227 = {name: "*COMPILING-FILE*"};
4686 (function(){
4687     (((l227.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l227).value = l3.value));
4688     return l227;
4689 })();
4690 var l228 = {name: "EVAL-WHEN-COMPILE"};
4691 var l229 = {name: "EVAL"};
4692 var l230 = {name: "PROGN"};
4693 ((l199).value = ({car: l43.fvalue(pv, l228, (function (values){
4694     var v525= l3.value;
4695     for (var i = arguments.length-1; i>=1; i--)
4696         v525 = {car: arguments[i], cdr:
4697     v525};
4698     return (function(){
4699         return ((function(){
4700             var symbol = l227;
4701             var value = symbol.value;
4702             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4703             return value;
4704         })() !== l3.value ? (function(){
4705             l229.fvalue(pv, ({car: l230, cdr: v525}));
4706             return l3.value;
4707         })() : l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l230), v525)));
4708     })();
4709 })), cdr: (function(){
4710     var symbol = l199;
4711     var value = symbol.value;
4712     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4713     return value;
4714 })()}));
4715 var l231 = {name: "DEFINE-TRANSFORMATION"};
4716 l231;
4717 ((l199).value = ({car: l43.fvalue(pv, l230, (function (values){
4718     var v526= l3.value;
4719     for (var i = arguments.length-1; i>=1; i--)
4720         v526 = {car: arguments[i], cdr:
4721     v526};
4722     return (function(){
4723         return (l12.fvalue(pv, (function(){
4724             var tmp = v526;
4725             return tmp === l3.value? l3.value: tmp.cdr;
4726         })()) !== l3.value ? l138.fvalue(values, (function(){
4727             var tmp = v526;
4728             return tmp === l3.value? l3.value: tmp.car;
4729         })(), (function(){
4730             var symbol = l165;
4731             var value = symbol.value;
4732             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4733             return value;
4734         })()) : l127.fvalue(values, "(function(){", (function(){
4735             var symbol = l126;
4736             var value = symbol.value;
4737             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4738             return value;
4739         })(), l136.fvalue(pv, l215.fvalue(pv, v526, l4.value)), "})()"));
4740     })();
4741 })), cdr: (function(){
4742     var symbol = l199;
4743     var value = symbol.value;
4744     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4745     return value;
4746 })()}));
4747 var l232 = {name: "SPECIAL-VARIABLE-P"};
4748 (function(){
4749     (l232).fvalue = (function(v528){
4750         ((v528)["fname"] = "SPECIAL-VARIABLE-P");
4751         return v528;
4752     })((function (values,v527){
4753         checkArgs(arguments, 2);
4754         return (function(){
4755             return (l193.fvalue(pv, v527, l101, l195) !== l3.value ? l4.value : l3.value);
4756         })();
4757     }));
4758     return l232;
4759 })();
4760 var l233 = {name: "LET-BINDING-WRAPPER"};
4761 (function(){
4762     (l233).fvalue = (function(v535){
4763         ((v535)["fname"] = "LET-BINDING-WRAPPER");
4764         return v535;
4765     })((function (values,v529,v530){
4766         checkArgs(arguments, 3);
4767         return (function(){
4768             try {
4769                 (l12.fvalue(pv, v529) !== l3.value ? (function(){
4770                     var values = mv;
4771                     throw ({type: 'block', id: 196, values: v530, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
4772                 })() : l3.value);
4773                 return l127.fvalue(values, "try {", (function(){
4774                     var symbol = l126;
4775                     var value = symbol.value;
4776                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4777                     return value;
4778                 })(), l136.fvalue(pv, "var tmp;", (function(){
4779                     var symbol = l126;
4780                     var value = symbol.value;
4781                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4782                     return value;
4783                 })(), l131.fvalue(pv, (function (values,v531){
4784                     checkArgs(arguments, 2);
4785                     return (function(v532){
4786                         return l127.fvalue(values, "tmp = ", v532, ".value;", (function(){
4787                             var symbol = l126;
4788                             var value = symbol.value;
4789                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4790                             return value;
4791                         })(), v532, ".value = ", (function(){
4792                             var tmp = v531;
4793                             return tmp === l3.value? l3.value: tmp.cdr;
4794                         })(), ";", (function(){
4795                             var symbol = l126;
4796                             var value = symbol.value;
4797                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4798                             return value;
4799                         })(), (function(){
4800                             var tmp = v531;
4801                             return tmp === l3.value? l3.value: tmp.cdr;
4802                         })(), " = tmp;", (function(){
4803                             var symbol = l126;
4804                             var value = symbol.value;
4805                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4806                             return value;
4807                         })());
4808                     })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4809                         var tmp = v531;
4810                         return tmp === l3.value? l3.value: tmp.car;
4811                     })()))));
4812                 }), v529), v530, (function(){
4813                     var symbol = l126;
4814                     var value = symbol.value;
4815                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4816                     return value;
4817                 })()), "}", (function(){
4818                     var symbol = l126;
4819                     var value = symbol.value;
4820                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4821                     return value;
4822                 })(), "finally {", (function(){
4823                     var symbol = l126;
4824                     var value = symbol.value;
4825                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4826                     return value;
4827                 })(), l136.fvalue(pv, l131.fvalue(pv, (function (values,v533){
4828                     checkArgs(arguments, 2);
4829                     return (function(v534){
4830                         return l127.fvalue(values, v534, ".value", " = ", (function(){
4831                             var tmp = v533;
4832                             return tmp === l3.value? l3.value: tmp.cdr;
4833                         })(), ";", (function(){
4834                             var symbol = l126;
4835                             var value = symbol.value;
4836                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4837                             return value;
4838                         })());
4839                     })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4840                         var tmp = v533;
4841                         return tmp === l3.value? l3.value: tmp.car;
4842                     })()))));
4843                 }), v529)), "}", (function(){
4844                     var symbol = l126;
4845                     var value = symbol.value;
4846                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4847                     return value;
4848                 })());
4849             }
4850             catch (cf){
4851                 if (cf.type == 'block' && cf.id == 196)
4852                     return values.apply(this, forcemv(cf.values));
4853                 else
4854                     throw cf;
4855             }
4856         })();
4857     }));
4858     return l233;
4859 })();
4860 var l234 = {name: "LET"};
4861 ((l199).value = ({car: l43.fvalue(pv, l234, (function (values,v537){
4862     checkArgsAtLeast(arguments, 2);
4863     var v536= l3.value;
4864     for (var i = arguments.length-1; i>=2; i--)
4865         v536 = {car: arguments[i], cdr:
4866     v536};
4867     return (function(){
4868         return (function(){
4869             try {
4870                 var v545 = l181.value;
4871                 var v538 = l72.fvalue(pv, (function(){
4872                     var symbol = l57;
4873                     var func = symbol.fvalue;
4874                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4875                     return func;
4876                 })(), v537);
4877                 var v539 = l72.fvalue(pv, (function(){
4878                     var symbol = l39;
4879                     var func = symbol.fvalue;
4880                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4881                     return func;
4882                 })(), v538);
4883                 var v540 = l72.fvalue(pv, (function(){
4884                     var symbol = l138;
4885                     var func = symbol.fvalue;
4886                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4887                     return func;
4888                 })(), l72.fvalue(pv, (function(){
4889                     var symbol = l40;
4890                     var func = symbol.fvalue;
4891                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4892                     return func;
4893                 })(), v538));
4894                 ((l181).value = l185.fvalue(pv, l87.fvalue(pv, (function(){
4895                     var symbol = l232;
4896                     var func = symbol.fvalue;
4897                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4898                     return func;
4899                 })(), v539)));
4900                 var v541 = l3.value;
4901                 return l127.fvalue(values, "(function(", l129.fvalue(pv, l72.fvalue(pv, (function (values,v542){
4902                     checkArgs(arguments, 2);
4903                     return (l232.fvalue(pv, v542) !== l3.value ? (function(v543){
4904                         (v541 = ({car: ({car: v542, cdr: v543}), cdr: v541}));
4905                         return v543;
4906                     })(l183.fvalue(pv, v542)) : l184.fvalue(values, v542));
4907                 }), v539), ","), "){", (function(){
4908                     var symbol = l126;
4909                     var value = symbol.value;
4910                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4911                     return value;
4912                 })(), (function(v544){
4913                     return l136.fvalue(pv, l233.fvalue(pv, v541, v544));
4914                 })(l215.fvalue(pv, v536, l4.value)), "})(", l129.fvalue(pv, v540, ","), ")");
4915             }
4916             finally {
4917                 l181.value = v545;
4918             }
4919         })();
4920     })();
4921 })), cdr: (function(){
4922     var symbol = l199;
4923     var value = symbol.value;
4924     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4925     return value;
4926 })()}));
4927 var l235 = {name: "LET*-INITIALIZE-VALUE"};
4928 (function(){
4929     (l235).fvalue = (function(v552){
4930         ((v552)["fname"] = "LET*-INITIALIZE-VALUE");
4931         return v552;
4932     })((function (values,v546){
4933         checkArgs(arguments, 2);
4934         return (function(){
4935             return (function(v547,v548){
4936                 return (l232.fvalue(pv, v547) !== l3.value ? l127.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l218), l43.fvalue(pv, v547), l43.fvalue(pv, v548))), ";", (function(){
4937                     var symbol = l126;
4938                     var value = symbol.value;
4939                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4940                     return value;
4941                 })()) : (function(){
4942                     var v549 = l183.fvalue(pv, v547);
4943                     var v550 = l166.fvalue(pv, v547, l101, v549);
4944                     return (function(v551){
4945                         l176.fvalue(pv, v550, (function(){
4946                             var symbol = l181;
4947                             var value = symbol.value;
4948                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4949                             return value;
4950                         })(), l101);
4951                         return v551;
4952                     })(l127.fvalue(pv, "var ", v549, " = ", l138.fvalue(pv, v548), ";", (function(){
4953                         var symbol = l126;
4954                         var value = symbol.value;
4955                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4956                         return value;
4957                     })()));
4958                 })());
4959             })(l39.fvalue(pv, v546),l40.fvalue(pv, v546));
4960         })();
4961     }));
4962     return l235;
4963 })();
4964 var l236 = {name: "LET*-BINDING-WRAPPER"};
4965 (function(){
4966     (l236).fvalue = (function(v561){
4967         ((v561)["fname"] = "LET*-BINDING-WRAPPER");
4968         return v561;
4969     })((function (values,v553,v554){
4970         checkArgs(arguments, 3);
4971         return (function(){
4972             try {
4973                 (l12.fvalue(pv, v553) !== l3.value ? (function(){
4974                     var values = mv;
4975                     throw ({type: 'block', id: 199, values: v554, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
4976                 })() : l3.value);
4977                 return (function(v556){
4978                     return l127.fvalue(values, "try {", (function(){
4979                         var symbol = l126;
4980                         var value = symbol.value;
4981                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4982                         return value;
4983                     })(), l136.fvalue(pv, l131.fvalue(pv, (function (values,v557){
4984                         checkArgs(arguments, 2);
4985                         return (function(v558){
4986                             return l127.fvalue(values, "var ", (function(){
4987                                 var tmp = v557;
4988                                 return tmp === l3.value? l3.value: tmp.cdr;
4989                             })(), " = ", v558, ".value;", (function(){
4990                                 var symbol = l126;
4991                                 var value = symbol.value;
4992                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4993                                 return value;
4994                             })());
4995                         })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
4996                             var tmp = v557;
4997                             return tmp === l3.value? l3.value: tmp.car;
4998                         })()))));
4999                     }), v556), v554), "}", (function(){
5000                         var symbol = l126;
5001                         var value = symbol.value;
5002                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5003                         return value;
5004                     })(), "finally {", (function(){
5005                         var symbol = l126;
5006                         var value = symbol.value;
5007                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5008                         return value;
5009                     })(), l136.fvalue(pv, l131.fvalue(pv, (function (values,v559){
5010                         checkArgs(arguments, 2);
5011                         return (function(v560){
5012                             return l127.fvalue(values, v560, ".value", " = ", (function(){
5013                                 var tmp = v559;
5014                                 return tmp === l3.value? l3.value: tmp.cdr;
5015                             })(), ";", (function(){
5016                                 var symbol = l126;
5017                                 var value = symbol.value;
5018                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5019                                 return value;
5020                             })());
5021                         })(l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, (function(){
5022                             var tmp = v559;
5023                             return tmp === l3.value? l3.value: tmp.car;
5024                         })()))));
5025                     }), v556)), "}", (function(){
5026                         var symbol = l126;
5027                         var value = symbol.value;
5028                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5029                         return value;
5030                     })());
5031                 })(l72.fvalue(pv, (function (values,v555){
5032                     checkArgs(arguments, 2);
5033                     return ({car: v555, cdr: l183.fvalue(pv, v555)});
5034                 }), l88.fvalue(pv, (function(){
5035                     var symbol = l232;
5036                     var func = symbol.fvalue;
5037                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5038                     return func;
5039                 })(), v553)));
5040             }
5041             catch (cf){
5042                 if (cf.type == 'block' && cf.id == 199)
5043                     return values.apply(this, forcemv(cf.values));
5044                 else
5045                     throw cf;
5046             }
5047         })();
5048     }));
5049     return l236;
5050 })();
5051 var l237 = {name: "LET*"};
5052 ((l199).value = ({car: l43.fvalue(pv, l237, (function (values,v563){
5053     checkArgsAtLeast(arguments, 2);
5054     var v562= l3.value;
5055     for (var i = arguments.length-1; i>=2; i--)
5056         v562 = {car: arguments[i], cdr:
5057     v562};
5058     return (function(){
5059         return (function(v564,v565){
5060             try {
5061                 var tmp;
5062                 tmp = l181.value;
5063                 l181.value = v565;
5064                 v565 = tmp;
5065                 return l127.fvalue(values, "(function(){", (function(){
5066                     var symbol = l126;
5067                     var value = symbol.value;
5068                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5069                     return value;
5070                 })(), l136.fvalue(pv, (function(v566,v567){
5071                     return l236.fvalue(pv, v566, v567);
5072                 })(l88.fvalue(pv, (function(){
5073                     var symbol = l232;
5074                     var func = symbol.fvalue;
5075                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5076                     return func;
5077                 })(), l72.fvalue(pv, (function(){
5078                     var symbol = l39;
5079                     var func = symbol.fvalue;
5080                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5081                     return func;
5082                 })(), v564)),l127.fvalue(pv, l131.fvalue(pv, (function(){
5083                     var symbol = l235;
5084                     var func = symbol.fvalue;
5085                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5086                     return func;
5087                 })(), v564), l215.fvalue(pv, v562, l4.value)))), "})()");
5088             }
5089             finally {
5090                 l181.value = v565;
5091             }
5092         })(l72.fvalue(pv, (function(){
5093             var symbol = l57;
5094             var func = symbol.fvalue;
5095             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5096             return func;
5097         })(), v563),l175.fvalue(pv, (function(){
5098             var symbol = l181;
5099             var value = symbol.value;
5100             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5101             return value;
5102         })()));
5103     })();
5104 })), cdr: (function(){
5105     var symbol = l199;
5106     var value = symbol.value;
5107     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5108     return value;
5109 })()}));
5110 var l238 = {name: "*BLOCK-COUNTER*"};
5111 (function(){
5112     (((l238.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l238).value = 0));
5113     return l238;
5114 })();
5115 var l239 = {name: "MULTIPLE-VALUE"};
5116 var l240 = {name: "USED"};
5117 ((l199).value = ({car: l43.fvalue(pv, l177, (function (values,v569){
5118     checkArgsAtLeast(arguments, 2);
5119     var v568= l3.value;
5120     for (var i = arguments.length-1; i>=2; i--)
5121         v568 = {car: arguments[i], cdr:
5122     v568};
5123     return (function(){
5124         return (function(){
5125             var v570 = l17.fvalue(pv, ((l238).value = (function(){
5126                 var x1 = (function(){
5127                     var symbol = l238;
5128                     var value = symbol.value;
5129                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5130                     return value;
5131                 })();
5132                 if (typeof x1 !== 'number') throw 'Not a number!';
5133                 var x2 = 1;
5134                 if (typeof x2 !== 'number') throw 'Not a number!';
5135                 return x1+x2;
5136             })()));
5137             var v571 = l166.fvalue(pv, v569, l177, v570);
5138             ((function(){
5139                 var symbol = l165;
5140                 var value = symbol.value;
5141                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5142                 return value;
5143             })() !== l3.value ? l173.fvalue(pv, l239, v571) : l3.value);
5144             return (function(){
5145                 try {
5146                     var v573 = l181.value;
5147                     ((l181).value = l179.fvalue(pv, l43.fvalue(pv, v571), (function(){
5148                         var symbol = l181;
5149                         var value = symbol.value;
5150                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5151                         return value;
5152                     })(), l177));
5153                     var v572 = l215.fvalue(pv, v568, l4.value);
5154                     return (l85.fvalue(pv, l240, l170.fvalue(pv, v571)) !== l3.value ? l127.fvalue(values, "(function(){", (function(){
5155                         var symbol = l126;
5156                         var value = symbol.value;
5157                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5158                         return value;
5159                     })(), l136.fvalue(pv, "try {", (function(){
5160                         var symbol = l126;
5161                         var value = symbol.value;
5162                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5163                         return value;
5164                     })(), l136.fvalue(pv, v572), "}", (function(){
5165                         var symbol = l126;
5166                         var value = symbol.value;
5167                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5168                         return value;
5169                     })(), "catch (cf){", (function(){
5170                         var symbol = l126;
5171                         var value = symbol.value;
5172                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5173                         return value;
5174                     })(), "    if (cf.type == 'block' && cf.id == ", v570, ")", (function(){
5175                         var symbol = l126;
5176                         var value = symbol.value;
5177                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5178                         return value;
5179                     })(), ((function(){
5180                         var symbol = l165;
5181                         var value = symbol.value;
5182                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5183                         return value;
5184                     })() !== l3.value ? "        return values.apply(this, forcemv(cf.values));" : "        return cf.values;"), (function(){
5185                         var symbol = l126;
5186                         var value = symbol.value;
5187                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5188                         return value;
5189                     })(), "    else", (function(){
5190                         var symbol = l126;
5191                         var value = symbol.value;
5192                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5193                         return value;
5194                     })(), "        throw cf;", (function(){
5195                         var symbol = l126;
5196                         var value = symbol.value;
5197                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5198                         return value;
5199                     })(), "}", (function(){
5200                         var symbol = l126;
5201                         var value = symbol.value;
5202                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5203                         return value;
5204                     })()), "})()") : l127.fvalue(values, "(function(){", (function(){
5205                         var symbol = l126;
5206                         var value = symbol.value;
5207                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5208                         return value;
5209                     })(), l136.fvalue(pv, v572), "})()"));
5210                 }
5211                 finally {
5212                     l181.value = v573;
5213                 }
5214             })();
5215         })();
5216     })();
5217 })), cdr: (function(){
5218     var symbol = l199;
5219     var value = symbol.value;
5220     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5221     return value;
5222 })()}));
5223 var l241 = {name: "RETURN-FROM"};
5224 ((l199).value = ({car: l43.fvalue(pv, l241, (function (values,v574,v575){
5225     checkArgsAtLeast(arguments, 2);
5226     checkArgsAtMost(arguments, 3);
5227     switch(arguments.length-1){
5228     case 1:
5229     v575=l3.value;
5230     default: break;
5231     }
5232     return (function(){
5233         return (function(){
5234             var v576 = l180.fvalue(pv, v574, (function(){
5235                 var symbol = l181;
5236                 var value = symbol.value;
5237                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5238                 return value;
5239             })(), l177);
5240             var v577 = l85.fvalue(pv, l239, l170.fvalue(pv, v576));
5241             (l12.fvalue(pv, v576) !== l3.value ? (function(){
5242                 throw l127.fvalue(pv, "Unknown block `", (v574).name, "'.");
5243             })() : l3.value);
5244             l173.fvalue(pv, l240, v576);
5245             return l127.fvalue(values, "(function(){", (function(){
5246                 var symbol = l126;
5247                 var value = symbol.value;
5248                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5249                 return value;
5250             })(), l136.fvalue(pv, (v577 !== l3.value ? l127.fvalue(pv, "var values = mv;", (function(){
5251                 var symbol = l126;
5252                 var value = symbol.value;
5253                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5254                 return value;
5255             })()) : ""), "throw ({", "type: 'block', ", "id: ", l169.fvalue(pv, v576), ", ", "values: ", l138.fvalue(pv, v575, v577), ", ", "message: 'Return from unknown block ", (v574).name, ".'", "})"), "})()");
5256         })();
5257     })();
5258 })), cdr: (function(){
5259     var symbol = l199;
5260     var value = symbol.value;
5261     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5262     return value;
5263 })()}));
5264 var l242 = {name: "CATCH"};
5265 ((l199).value = ({car: l43.fvalue(pv, l242, (function (values,v579){
5266     checkArgsAtLeast(arguments, 2);
5267     var v578= l3.value;
5268     for (var i = arguments.length-1; i>=2; i--)
5269         v578 = {car: arguments[i], cdr:
5270     v578};
5271     return (function(){
5272         return l127.fvalue(values, "(function(){", (function(){
5273             var symbol = l126;
5274             var value = symbol.value;
5275             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5276             return value;
5277         })(), l136.fvalue(pv, "var id = ", l138.fvalue(pv, v579), ";", (function(){
5278             var symbol = l126;
5279             var value = symbol.value;
5280             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5281             return value;
5282         })(), "try {", (function(){
5283             var symbol = l126;
5284             var value = symbol.value;
5285             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5286             return value;
5287         })(), l136.fvalue(pv, l215.fvalue(pv, v578, l4.value)), (function(){
5288             var symbol = l126;
5289             var value = symbol.value;
5290             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5291             return value;
5292         })(), "}", (function(){
5293             var symbol = l126;
5294             var value = symbol.value;
5295             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5296             return value;
5297         })(), "catch (cf){", (function(){
5298             var symbol = l126;
5299             var value = symbol.value;
5300             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5301             return value;
5302         })(), "    if (cf.type == 'catch' && cf.id == id)", (function(){
5303             var symbol = l126;
5304             var value = symbol.value;
5305             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5306             return value;
5307         })(), ((function(){
5308             var symbol = l165;
5309             var value = symbol.value;
5310             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5311             return value;
5312         })() !== l3.value ? "        return values.apply(this, forcemv(cf.values));" : "        return pv.apply(this, forcemv(cf.values));"), (function(){
5313             var symbol = l126;
5314             var value = symbol.value;
5315             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5316             return value;
5317         })(), "    else", (function(){
5318             var symbol = l126;
5319             var value = symbol.value;
5320             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5321             return value;
5322         })(), "        throw cf;", (function(){
5323             var symbol = l126;
5324             var value = symbol.value;
5325             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5326             return value;
5327         })(), "}", (function(){
5328             var symbol = l126;
5329             var value = symbol.value;
5330             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5331             return value;
5332         })()), "})()");
5333     })();
5334 })), cdr: (function(){
5335     var symbol = l199;
5336     var value = symbol.value;
5337     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5338     return value;
5339 })()}));
5340 var l243 = {name: "THROW"};
5341 ((l199).value = ({car: l43.fvalue(pv, l243, (function (values,v580,v581){
5342     checkArgs(arguments, 3);
5343     return (function(){
5344         return l127.fvalue(values, "(function(){", (function(){
5345             var symbol = l126;
5346             var value = symbol.value;
5347             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5348             return value;
5349         })(), l136.fvalue(pv, "var values = mv;", (function(){
5350             var symbol = l126;
5351             var value = symbol.value;
5352             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5353             return value;
5354         })(), "throw ({", "type: 'catch', ", "id: ", l138.fvalue(pv, v580), ", ", "values: ", l138.fvalue(pv, v581, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5355     })();
5356 })), cdr: (function(){
5357     var symbol = l199;
5358     var value = symbol.value;
5359     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5360     return value;
5361 })()}));
5362 var l244 = {name: "*TAGBODY-COUNTER*"};
5363 (function(){
5364     (((l244.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l244).value = 0));
5365     return l244;
5366 })();
5367 var l245 = {name: "*GO-TAG-COUNTER*"};
5368 (function(){
5369     (((l245.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l245).value = 0));
5370     return l245;
5371 })();
5372 var l246 = {name: "GO-TAG-P"};
5373 (function(){
5374     (l246).fvalue = (function(v584){
5375         ((v584)["fname"] = "GO-TAG-P");
5376         return v584;
5377     })((function (values,v582){
5378         checkArgs(arguments, 2);
5379         return (function(){
5380             return (function(v583){
5381                 return (v583 !== l3.value ? v583 : ((function(){
5382                     var tmp = v582;
5383                     return (typeof tmp == 'object' && 'name' in tmp);
5384                 })()?l4.value: l3.value));
5385             })(l78.fvalue(pv, v582));
5386         })();
5387     }));
5388     return l246;
5389 })();
5390 var l247 = {name: "DECLARE-TAGBODY-TAGS"};
5391 (function(){
5392     (l247).fvalue = (function(v590){
5393         ((v590)["fname"] = "DECLARE-TAGBODY-TAGS");
5394         return v590;
5395     })((function (values,v585,v586){
5396         checkArgs(arguments, 3);
5397         return (function(){
5398             return (function(v589){
5399                 return l179.fvalue(values, v589, (function(){
5400                     var symbol = l181;
5401                     var value = symbol.value;
5402                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5403                     return value;
5404                 })(), l178);
5405             })(l72.fvalue(pv, (function (values,v587){
5406                 checkArgs(arguments, 2);
5407                 return (function(v588){
5408                     return l166.fvalue(values, v587, l178, l43.fvalue(pv, v585, v588));
5409                 })(l17.fvalue(pv, ((l245).value = (function(){
5410                     var x1 = (function(){
5411                         var symbol = l245;
5412                         var value = symbol.value;
5413                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5414                         return value;
5415                     })();
5416                     if (typeof x1 !== 'number') throw 'Not a number!';
5417                     var x2 = 1;
5418                     if (typeof x2 !== 'number') throw 'Not a number!';
5419                     return x1+x2;
5420                 })())));
5421             }), l88.fvalue(pv, (function(){
5422                 var symbol = l246;
5423                 var func = symbol.fvalue;
5424                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5425                 return func;
5426             })(), v586)));
5427         })();
5428     }));
5429     return l247;
5430 })();
5431 var l248 = {name: "TAGBODY"};
5432 ((l199).value = ({car: l43.fvalue(pv, l248, (function (values){
5433     var v591= l3.value;
5434     for (var i = arguments.length-1; i>=1; i--)
5435         v591 = {car: arguments[i], cdr:
5436     v591};
5437     return (function(){
5438         try {
5439             (l91.fvalue(pv, (function(){
5440                 var symbol = l246;
5441                 var func = symbol.fvalue;
5442                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5443                 return func;
5444             })(), v591) !== l3.value ? l3.value : (function(){
5445                 var values = mv;
5446                 throw ({type: 'block', id: 207, values: l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l230), v591, l43.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
5447             })());
5448             (l246.fvalue(pv, (function(){
5449                 var tmp = v591;
5450                 return tmp === l3.value? l3.value: tmp.car;
5451             })()) !== l3.value ? l3.value : (v591 = ({car: l16.fvalue(pv, "START"), cdr: v591})));
5452             return (function(v592){
5453                 return (function(v594,v593){
5454                     try {
5455                         var tmp;
5456                         tmp = l181.value;
5457                         l181.value = v594;
5458                         v594 = tmp;
5459                         (function(v595){
5460                             return (v593 = l40.fvalue(pv, l169.fvalue(pv, v595)));
5461                         })(l180.fvalue(pv, l39.fvalue(pv, v591), (function(){
5462                             var symbol = l181;
5463                             var value = symbol.value;
5464                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5465                             return value;
5466                         })(), l178));
5467                         return l127.fvalue(values, "(function(){", (function(){
5468                             var symbol = l126;
5469                             var value = symbol.value;
5470                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5471                             return value;
5472                         })(), l136.fvalue(pv, "var tagbody_", v592, " = ", v593, ";", (function(){
5473                             var symbol = l126;
5474                             var value = symbol.value;
5475                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5476                             return value;
5477                         })(), "tbloop:", (function(){
5478                             var symbol = l126;
5479                             var value = symbol.value;
5480                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5481                             return value;
5482                         })(), "while (true) {", (function(){
5483                             var symbol = l126;
5484                             var value = symbol.value;
5485                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5486                             return value;
5487                         })(), l136.fvalue(pv, "try {", (function(){
5488                             var symbol = l126;
5489                             var value = symbol.value;
5490                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5491                             return value;
5492                         })(), l136.fvalue(pv, (function(v596){
5493                             return l127.fvalue(pv, "switch(tagbody_", v592, "){", (function(){
5494                                 var symbol = l126;
5495                                 var value = symbol.value;
5496                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5497                                 return value;
5498                             })(), "case ", v593, ":", (function(){
5499                                 var symbol = l126;
5500                                 var value = symbol.value;
5501                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5502                                 return value;
5503                             })(), (function(){
5504                                 return (function(v597,v598){
5505                                     (function(){
5506                                         while(v597 !== l3.value){
5507                                             (v598 = (function(){
5508                                                 var tmp = v597;
5509                                                 return tmp === l3.value? l3.value: tmp.car;
5510                                             })());
5511                                             (function(){
5512                                                 (v596 = l127.fvalue(pv, v596, (l27.fvalue(pv, l246.fvalue(pv, v598)) !== l3.value ? l136.fvalue(pv, l138.fvalue(pv, v598), ";", (function(){
5513                                                     var symbol = l126;
5514                                                     var value = symbol.value;
5515                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5516                                                     return value;
5517                                                 })()) : (function(v599){
5518                                                     return l127.fvalue(pv, "case ", l40.fvalue(pv, l169.fvalue(pv, v599)), ":", (function(){
5519                                                         var symbol = l126;
5520                                                         var value = symbol.value;
5521                                                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5522                                                         return value;
5523                                                     })());
5524                                                 })(l180.fvalue(pv, v598, (function(){
5525                                                     var symbol = l181;
5526                                                     var value = symbol.value;
5527                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5528                                                     return value;
5529                                                 })(), l178)))));
5530                                                 return l3.value;
5531                                             })();
5532                                             (v597 = (function(){
5533                                                 var tmp = v597;
5534                                                 return tmp === l3.value? l3.value: tmp.cdr;
5535                                             })());
5536                                         }return l3.value;
5537                                     })();
5538                                     return v596;
5539                                 })((function(){
5540                                     var tmp = v591;
5541                                     return tmp === l3.value? l3.value: tmp.cdr;
5542                                 })(),l3.value);
5543                             })(), "default:", (function(){
5544                                 var symbol = l126;
5545                                 var value = symbol.value;
5546                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5547                                 return value;
5548                             })(), "    break tbloop;", (function(){
5549                                 var symbol = l126;
5550                                 var value = symbol.value;
5551                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5552                                 return value;
5553                             })(), "}", (function(){
5554                                 var symbol = l126;
5555                                 var value = symbol.value;
5556                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5557                                 return value;
5558                             })());
5559                         })("")), "}", (function(){
5560                             var symbol = l126;
5561                             var value = symbol.value;
5562                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5563                             return value;
5564                         })(), "catch (jump) {", (function(){
5565                             var symbol = l126;
5566                             var value = symbol.value;
5567                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5568                             return value;
5569                         })(), "    if (jump.type == 'tagbody' && jump.id == ", v592, ")", (function(){
5570                             var symbol = l126;
5571                             var value = symbol.value;
5572                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5573                             return value;
5574                         })(), "        tagbody_", v592, " = jump.label;", (function(){
5575                             var symbol = l126;
5576                             var value = symbol.value;
5577                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5578                             return value;
5579                         })(), "    else", (function(){
5580                             var symbol = l126;
5581                             var value = symbol.value;
5582                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5583                             return value;
5584                         })(), "        throw(jump);", (function(){
5585                             var symbol = l126;
5586                             var value = symbol.value;
5587                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5588                             return value;
5589                         })(), "}", (function(){
5590                             var symbol = l126;
5591                             var value = symbol.value;
5592                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5593                             return value;
5594                         })()), "}", (function(){
5595                             var symbol = l126;
5596                             var value = symbol.value;
5597                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5598                             return value;
5599                         })(), "return ", l138.fvalue(pv, l3.value), ";", (function(){
5600                             var symbol = l126;
5601                             var value = symbol.value;
5602                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5603                             return value;
5604                         })()), "})()");
5605                     }
5606                     finally {
5607                         l181.value = v594;
5608                     }
5609                 })(l247.fvalue(pv, v592, v591),l3.value);
5610             })(l17.fvalue(pv, (function(){
5611                 var symbol = l244;
5612                 var value = symbol.value;
5613                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5614                 return value;
5615             })()));
5616         }
5617         catch (cf){
5618             if (cf.type == 'block' && cf.id == 207)
5619                 return values.apply(this, forcemv(cf.values));
5620             else
5621                 throw cf;
5622         }
5623     })();
5624 })), cdr: (function(){
5625     var symbol = l199;
5626     var value = symbol.value;
5627     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5628     return value;
5629 })()}));
5630 var l249 = {name: "GO"};
5631 ((l199).value = ({car: l43.fvalue(pv, l249, (function (values,v600){
5632     checkArgs(arguments, 2);
5633     return (function(){
5634         return (function(v601,v602){
5635             return (v601 !== l3.value ? l127.fvalue(values, "(function(){", (function(){
5636                 var symbol = l126;
5637                 var value = symbol.value;
5638                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5639                 return value;
5640             })(), l136.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l169.fvalue(pv, v601)), ", ", "label: ", l40.fvalue(pv, l169.fvalue(pv, v601)), ", ", "message: 'Attempt to GO to non-existing tag ", v602, "'", "})", (function(){
5641                 var symbol = l126;
5642                 var value = symbol.value;
5643                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5644                 return value;
5645             })()), "})()") : (function(){
5646                 throw l127.fvalue(pv, "Unknown tag `", v602, "'.");
5647             })());
5648         })(l180.fvalue(pv, v600, (function(){
5649             var symbol = l181;
5650             var value = symbol.value;
5651             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5652             return value;
5653         })(), l178),(((function(){
5654             var tmp = v600;
5655             return (typeof tmp == 'object' && 'name' in tmp);
5656         })()?l4.value: l3.value) !== l3.value ? (v600).name : (l78.fvalue(pv, v600) !== l3.value ? l17.fvalue(pv, v600) : l3.value)));
5657     })();
5658 })), cdr: (function(){
5659     var symbol = l199;
5660     var value = symbol.value;
5661     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5662     return value;
5663 })()}));
5664 var l250 = {name: "UNWIND-PROTECT"};
5665 ((l199).value = ({car: l43.fvalue(pv, l250, (function (values,v604){
5666     checkArgsAtLeast(arguments, 2);
5667     var v603= l3.value;
5668     for (var i = arguments.length-1; i>=2; i--)
5669         v603 = {car: arguments[i], cdr:
5670     v603};
5671     return (function(){
5672         return l127.fvalue(values, "(function(){", (function(){
5673             var symbol = l126;
5674             var value = symbol.value;
5675             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5676             return value;
5677         })(), l136.fvalue(pv, "var ret = ", l138.fvalue(pv, l3.value), ";", (function(){
5678             var symbol = l126;
5679             var value = symbol.value;
5680             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5681             return value;
5682         })(), "try {", (function(){
5683             var symbol = l126;
5684             var value = symbol.value;
5685             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5686             return value;
5687         })(), l136.fvalue(pv, "ret = ", l138.fvalue(pv, v604), ";", (function(){
5688             var symbol = l126;
5689             var value = symbol.value;
5690             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5691             return value;
5692         })()), "} finally {", (function(){
5693             var symbol = l126;
5694             var value = symbol.value;
5695             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5696             return value;
5697         })(), l136.fvalue(pv, l215.fvalue(pv, v603)), "}", (function(){
5698             var symbol = l126;
5699             var value = symbol.value;
5700             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5701             return value;
5702         })(), "return ret;", (function(){
5703             var symbol = l126;
5704             var value = symbol.value;
5705             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5706             return value;
5707         })()), "})()");
5708     })();
5709 })), cdr: (function(){
5710     var symbol = l199;
5711     var value = symbol.value;
5712     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5713     return value;
5714 })()}));
5715 var l251 = {name: "MULTIPLE-VALUE-CALL"};
5716 ((l199).value = ({car: l43.fvalue(pv, l251, (function (values,v606){
5717     checkArgsAtLeast(arguments, 2);
5718     var v605= l3.value;
5719     for (var i = arguments.length-1; i>=2; i--)
5720         v605 = {car: arguments[i], cdr:
5721     v605};
5722     return (function(){
5723         return l127.fvalue(values, "(function(){", (function(){
5724             var symbol = l126;
5725             var value = symbol.value;
5726             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5727             return value;
5728         })(), l136.fvalue(pv, "var func = ", l138.fvalue(pv, v606), ";", (function(){
5729             var symbol = l126;
5730             var value = symbol.value;
5731             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5732             return value;
5733         })(), "var args = [", ((function(){
5734             var symbol = l165;
5735             var value = symbol.value;
5736             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5737             return value;
5738         })() !== l3.value ? "values" : "pv"), "];", (function(){
5739             var symbol = l126;
5740             var value = symbol.value;
5741             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5742             return value;
5743         })(), "return ", l127.fvalue(pv, "(function(){", (function(){
5744             var symbol = l126;
5745             var value = symbol.value;
5746             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5747             return value;
5748         })(), l136.fvalue(pv, "var values = mv;", (function(){
5749             var symbol = l126;
5750             var value = symbol.value;
5751             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5752             return value;
5753         })(), "var vs;", (function(){
5754             var symbol = l126;
5755             var value = symbol.value;
5756             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5757             return value;
5758         })(), l131.fvalue(pv, (function (values,v607){
5759             checkArgs(arguments, 2);
5760             return l127.fvalue(values, "vs = ", l138.fvalue(pv, v607, l4.value), ";", (function(){
5761                 var symbol = l126;
5762                 var value = symbol.value;
5763                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5764                 return value;
5765             })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
5766                 var symbol = l126;
5767                 var value = symbol.value;
5768                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5769                 return value;
5770             })(), l136.fvalue(pv, "args = args.concat(vs);", (function(){
5771                 var symbol = l126;
5772                 var value = symbol.value;
5773                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5774                 return value;
5775             })()), "else", (function(){
5776                 var symbol = l126;
5777                 var value = symbol.value;
5778                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5779                 return value;
5780             })(), l136.fvalue(pv, "args.push(vs);", (function(){
5781                 var symbol = l126;
5782                 var value = symbol.value;
5783                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5784                 return value;
5785             })()));
5786         }), v605), "return func.apply(window, args);", (function(){
5787             var symbol = l126;
5788             var value = symbol.value;
5789             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5790             return value;
5791         })()), "})()"), ";", (function(){
5792             var symbol = l126;
5793             var value = symbol.value;
5794             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5795             return value;
5796         })()), "})()");
5797     })();
5798 })), cdr: (function(){
5799     var symbol = l199;
5800     var value = symbol.value;
5801     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5802     return value;
5803 })()}));
5804 var l252 = {name: "MULTIPLE-VALUE-PROG1"};
5805 ((l199).value = ({car: l43.fvalue(pv, l252, (function (values,v609){
5806     checkArgsAtLeast(arguments, 2);
5807     var v608= l3.value;
5808     for (var i = arguments.length-1; i>=2; i--)
5809         v608 = {car: arguments[i], cdr:
5810     v608};
5811     return (function(){
5812         return l127.fvalue(values, "(function(){", (function(){
5813             var symbol = l126;
5814             var value = symbol.value;
5815             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5816             return value;
5817         })(), l136.fvalue(pv, "var args = ", l138.fvalue(pv, v609, (function(){
5818             var symbol = l165;
5819             var value = symbol.value;
5820             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5821             return value;
5822         })()), ";", (function(){
5823             var symbol = l126;
5824             var value = symbol.value;
5825             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5826             return value;
5827         })(), l215.fvalue(pv, v608), "return args;", (function(){
5828             var symbol = l126;
5829             var value = symbol.value;
5830             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5831             return value;
5832         })()), "})()");
5833     })();
5834 })), cdr: (function(){
5835     var symbol = l199;
5836     var value = symbol.value;
5837     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5838     return value;
5839 })()}));
5840 var l253 = {name: "BACKQUOTE-EXPAND-1"};
5841 (function(){
5842     (l253).fvalue = (function(v612){
5843         ((v612)["fname"] = "BACKQUOTE-EXPAND-1");
5844         return v612;
5845     })((function (values,v610){
5846         checkArgs(arguments, 2);
5847         return (function(){
5848             return (((function(){
5849                 var tmp = v610;
5850                 return (typeof tmp == 'object' && 'name' in tmp);
5851             })()?l4.value: l3.value) !== l3.value ? l43.fvalue(values, l160, v610) : (l44.fvalue(pv, v610) !== l3.value ? v610 : ((((function(){
5852                 var tmp = v610;
5853                 return tmp === l3.value? l3.value: tmp.car;
5854             })() === l163)?l4.value: l3.value) !== l3.value ? (function(){
5855                 var tmp = v610;
5856                 return tmp === l3.value? l3.value: tmp.car;
5857             })() : ((((function(){
5858                 var tmp = v610;
5859                 return tmp === l3.value? l3.value: tmp.car;
5860             })() === l161)?l4.value: l3.value) !== l3.value ? l253.fvalue(values, l253.fvalue(pv, l33.fvalue(pv, v610))) : ({car: l63, cdr: l72.fvalue(pv, (function (values,v611){
5861                 checkArgs(arguments, 2);
5862                 return ((l58.fvalue(pv, v611) !== l3.value ? (((function(){
5863                     var tmp = v611;
5864                     return tmp === l3.value? l3.value: tmp.car;
5865                 })() === l163)?l4.value: l3.value) : l3.value) !== l3.value ? l43.fvalue(values, l43, l33.fvalue(pv, v611)) : ((l58.fvalue(pv, v611) !== l3.value ? (((function(){
5866                     var tmp = v611;
5867                     return tmp === l3.value? l3.value: tmp.car;
5868                 })() === l162)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v611) : l43.fvalue(values, l43, l253.fvalue(pv, v611))));
5869             }), v610)})))));
5870         })();
5871     }));
5872     return l253;
5873 })();
5874 var l254 = {name: "BACKQUOTE-EXPAND"};
5875 (function(){
5876     (l254).fvalue = (function(v614){
5877         ((v614)["fname"] = "BACKQUOTE-EXPAND");
5878         return v614;
5879     })((function (values,v613){
5880         checkArgs(arguments, 2);
5881         return (function(){
5882             return ((l58.fvalue(pv, v613) !== l3.value ? (((function(){
5883                 var tmp = v613;
5884                 return tmp === l3.value? l3.value: tmp.car;
5885             })() === l161)?l4.value: l3.value) : l3.value) !== l3.value ? l253.fvalue(values, l33.fvalue(pv, v613)) : v613);
5886         })();
5887     }));
5888     return l254;
5889 })();
5890 l161;
5891 ((l199).value = ({car: l43.fvalue(pv, l161, (function (values,v615){
5892     checkArgs(arguments, 2);
5893     return (function(){
5894         return l138.fvalue(values, l253.fvalue(pv, v615));
5895     })();
5896 })), cdr: (function(){
5897     var symbol = l199;
5898     var value = symbol.value;
5899     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5900     return value;
5901 })()}));
5902 var l255 = {name: "*BUILTINS*"};
5903 (function(){
5904     (((l255.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l255).value = l3.value));
5905     return l255;
5906 })();
5907 var l256 = {name: "DEFINE-RAW-BUILTIN"};
5908 l256;
5909 var l257 = {name: "DEFINE-BUILTIN"};
5910 l257;
5911 var l258 = {name: "TYPE-CHECK"};
5912 l258;
5913 var l259 = {name: "VARIABLE-ARITY-CALL"};
5914 (function(){
5915     (l259).fvalue = (function(v624){
5916         ((v624)["fname"] = "VARIABLE-ARITY-CALL");
5917         return v624;
5918     })((function (values,v616,v617){
5919         checkArgs(arguments, 3);
5920         return (function(){
5921             (((function(){
5922                 var tmp = v616;
5923                 return (typeof tmp == 'object' && 'car' in tmp);
5924             })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
5925                 throw "ARGS must be a non-empty list";
5926             })());
5927             return (function(v618,v619,v620){
5928                 (function(){
5929                     return (function(v621,v622){
5930                         (function(){
5931                             while(v621 !== l3.value){
5932                                 (v622 = (function(){
5933                                     var tmp = v621;
5934                                     return tmp === l3.value? l3.value: tmp.car;
5935                                 })());
5936                                 (function(){
5937                                     (function(v623){
5938                                         (v619 = ({car: v623, cdr: v619}));
5939                                         return (v620 = l127.fvalue(pv, v620, l127.fvalue(pv, "var ", v623, " = ", l138.fvalue(pv, v622), ";", (function(){
5940                                             var symbol = l126;
5941                                             var value = symbol.value;
5942                                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5943                                             return value;
5944                                         })(), "if (typeof ", v623, " !== 'number') throw 'Not a number!';", (function(){
5945                                             var symbol = l126;
5946                                             var value = symbol.value;
5947                                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5948                                             return value;
5949                                         })())));
5950                                     })(l127.fvalue(pv, "x", l17.fvalue(pv, (v618 = (function(){
5951                                         var x1 = v618;
5952                                         if (typeof x1 !== 'number') throw 'Not a number!';
5953                                         var x2 = 1;
5954                                         if (typeof x2 !== 'number') throw 'Not a number!';
5955                                         return x1+x2;
5956                                     })()))));
5957                                     return l3.value;
5958                                 })();
5959                                 (v621 = (function(){
5960                                     var tmp = v621;
5961                                     return tmp === l3.value? l3.value: tmp.cdr;
5962                                 })());
5963                             }return l3.value;
5964                         })();
5965                         return l3.value;
5966                     })(v616,l3.value);
5967                 })();
5968                 return l127.fvalue(values, "(function(){", (function(){
5969                     var symbol = l126;
5970                     var value = symbol.value;
5971                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5972                     return value;
5973                 })(), l136.fvalue(pv, v620, (v617)(pv, l65.fvalue(pv, v619))), "})()");
5974             })(0,l3,"");
5975         })();
5976     }));
5977     return l259;
5978 })();
5979 var l260 = {name: "VARIABLE-ARITY"};
5980 l260;
5981 var l261 = {name: "NUM-OP-NUM"};
5982 (function(){
5983     (l261).fvalue = (function(v628){
5984         ((v628)["fname"] = "NUM-OP-NUM");
5985         return v628;
5986     })((function (values,v625,v626,v627){
5987         checkArgs(arguments, 4);
5988         return (function(){
5989             return l127.fvalue(values, "(function(){", (function(){
5990                 var symbol = l126;
5991                 var value = symbol.value;
5992                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5993                 return value;
5994             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v625, ";", (function(){
5995                 var symbol = l126;
5996                 var value = symbol.value;
5997                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5998                 return value;
5999             })()), l127.fvalue(pv, "var ", "y", " = ", v627, ";", (function(){
6000                 var symbol = l126;
6001                 var value = symbol.value;
6002                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6003                 return value;
6004             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6005                 var symbol = l126;
6006                 var value = symbol.value;
6007                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6008                 return value;
6009             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6010                 var symbol = l126;
6011                 var value = symbol.value;
6012                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6013                 return value;
6014             })())), l127.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
6015                 var symbol = l126;
6016                 var value = symbol.value;
6017                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6018                 return value;
6019             })(), l136.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
6020                 var symbol = l126;
6021                 var value = symbol.value;
6022                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6023                 return value;
6024             })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "x", v626, "y"), ";", (function(){
6025                 var symbol = l126;
6026                 var value = symbol.value;
6027                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6028                 return value;
6029             })())), "})()");
6030         })();
6031     }));
6032     return l261;
6033 })();
6034 ((l255).value = ({car: l43.fvalue(pv, l60, (function (values){
6035     var v629= l3.value;
6036     for (var i = arguments.length-1; i>=1; i--)
6037         v629 = {car: arguments[i], cdr:
6038     v629};
6039     return (function(){
6040         return (l12.fvalue(pv, v629) !== l3.value ? "0" : l259.fvalue(values, v629, (function (values,v630){
6041             checkArgs(arguments, 2);
6042             return l127.fvalue(values, "return ", l129.fvalue(pv, v630, "+"), ";", (function(){
6043                 var symbol = l126;
6044                 var value = symbol.value;
6045                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6046                 return value;
6047             })());
6048         })));
6049     })();
6050 })), cdr: (function(){
6051     var symbol = l255;
6052     var value = symbol.value;
6053     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6054     return value;
6055 })()}));
6056 ((l255).value = ({car: l43.fvalue(pv, l61, (function (values,v632){
6057     checkArgsAtLeast(arguments, 2);
6058     var v631= l3.value;
6059     for (var i = arguments.length-1; i>=2; i--)
6060         v631 = {car: arguments[i], cdr:
6061     v631};
6062     return (function(){
6063         return (function(v633){
6064             return l259.fvalue(values, v633, (function (values,v634){
6065                 checkArgs(arguments, 2);
6066                 return l127.fvalue(values, "return ", (l12.fvalue(pv, v631) !== l3.value ? l127.fvalue(pv, "-", (function(){
6067                     var tmp = v634;
6068                     return tmp === l3.value? l3.value: tmp.car;
6069                 })()) : l129.fvalue(pv, v634, "-")), ";", (function(){
6070                     var symbol = l126;
6071                     var value = symbol.value;
6072                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6073                     return value;
6074                 })());
6075             }));
6076         })(({car: v632, cdr: v631}));
6077     })();
6078 })), cdr: (function(){
6079     var symbol = l255;
6080     var value = symbol.value;
6081     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6082     return value;
6083 })()}));
6084 ((l255).value = ({car: l43.fvalue(pv, l20, (function (values){
6085     var v635= l3.value;
6086     for (var i = arguments.length-1; i>=1; i--)
6087         v635 = {car: arguments[i], cdr:
6088     v635};
6089     return (function(){
6090         return (l12.fvalue(pv, v635) !== l3.value ? "1" : l259.fvalue(values, v635, (function (values,v636){
6091             checkArgs(arguments, 2);
6092             return l127.fvalue(values, "return ", l129.fvalue(pv, v636, "*"), ";", (function(){
6093                 var symbol = l126;
6094                 var value = symbol.value;
6095                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6096                 return value;
6097             })());
6098         })));
6099     })();
6100 })), cdr: (function(){
6101     var symbol = l255;
6102     var value = symbol.value;
6103     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6104     return value;
6105 })()}));
6106 ((l255).value = ({car: l43.fvalue(pv, l21, (function (values,v638){
6107     checkArgsAtLeast(arguments, 2);
6108     var v637= l3.value;
6109     for (var i = arguments.length-1; i>=2; i--)
6110         v637 = {car: arguments[i], cdr:
6111     v637};
6112     return (function(){
6113         return (function(v639){
6114             return l259.fvalue(values, v639, (function (values,v640){
6115                 checkArgs(arguments, 2);
6116                 return l127.fvalue(values, "return ", (l12.fvalue(pv, v637) !== l3.value ? l127.fvalue(pv, "1 /", (function(){
6117                     var tmp = v640;
6118                     return tmp === l3.value? l3.value: tmp.car;
6119                 })()) : l129.fvalue(pv, v640, "/")), ";", (function(){
6120                     var symbol = l126;
6121                     var value = symbol.value;
6122                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6123                     return value;
6124                 })());
6125             }));
6126         })(({car: v638, cdr: v637}));
6127     })();
6128 })), cdr: (function(){
6129     var symbol = l255;
6130     var value = symbol.value;
6131     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6132     return value;
6133 })()}));
6134 var l262 = {name: "MOD"};
6135 ((l255).value = ({car: l43.fvalue(pv, l262, (function (values,v641,v642){
6136     checkArgs(arguments, 3);
6137     return (function(){
6138         return (function(v643,v644){
6139             return l261.fvalue(values, v643, "%", v644);
6140         })(l138.fvalue(pv, v641),l138.fvalue(pv, v642));
6141     })();
6142 })), cdr: (function(){
6143     var symbol = l255;
6144     var value = symbol.value;
6145     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6146     return value;
6147 })()}));
6148 var l263 = {name: "COMPARISON-CONJUNTION"};
6149 (function(){
6150     (l263).fvalue = (function(v647){
6151         ((v647)["fname"] = "COMPARISON-CONJUNTION");
6152         return v647;
6153     })((function (values,v645,v646){
6154         checkArgs(arguments, 3);
6155         return (function(){
6156             return (l12.fvalue(pv, (function(){
6157                 var tmp = v645;
6158                 return tmp === l3.value? l3.value: tmp.cdr;
6159             })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v645)) !== l3.value ? l127.fvalue(values, (function(){
6160                 var tmp = v645;
6161                 return tmp === l3.value? l3.value: tmp.car;
6162             })(), v646, l33.fvalue(pv, v645)) : l127.fvalue(values, (function(){
6163                 var tmp = v645;
6164                 return tmp === l3.value? l3.value: tmp.car;
6165             })(), v646, l33.fvalue(pv, v645), " && ", l263.fvalue(pv, (function(){
6166                 var tmp = v645;
6167                 return tmp === l3.value? l3.value: tmp.cdr;
6168             })(), v646))));
6169         })();
6170     }));
6171     return l263;
6172 })();
6173 var l264 = {name: "DEFINE-BUILTIN-COMPARISON"};
6174 l264;
6175 var l265 = {name: ">"};
6176 ((l255).value = ({car: l43.fvalue(pv, l265, (function (values,v649){
6177     checkArgsAtLeast(arguments, 2);
6178     var v648= l3.value;
6179     for (var i = arguments.length-1; i>=2; i--)
6180         v648 = {car: arguments[i], cdr:
6181     v648};
6182     return (function(){
6183         return (function(v650){
6184             return l259.fvalue(values, v650, (function (values,v651){
6185                 checkArgs(arguments, 2);
6186                 return l127.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v651, ">")), ";", (function(){
6187                     var symbol = l126;
6188                     var value = symbol.value;
6189                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6190                     return value;
6191                 })());
6192             }));
6193         })(({car: v649, cdr: v648}));
6194     })();
6195 })), cdr: (function(){
6196     var symbol = l255;
6197     var value = symbol.value;
6198     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6199     return value;
6200 })()}));
6201 var l266 = {name: "<"};
6202 ((l255).value = ({car: l43.fvalue(pv, l266, (function (values,v653){
6203     checkArgsAtLeast(arguments, 2);
6204     var v652= l3.value;
6205     for (var i = arguments.length-1; i>=2; i--)
6206         v652 = {car: arguments[i], cdr:
6207     v652};
6208     return (function(){
6209         return (function(v654){
6210             return l259.fvalue(values, v654, (function (values,v655){
6211                 checkArgs(arguments, 2);
6212                 return l127.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v655, "<")), ";", (function(){
6213                     var symbol = l126;
6214                     var value = symbol.value;
6215                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6216                     return value;
6217                 })());
6218             }));
6219         })(({car: v653, cdr: v652}));
6220     })();
6221 })), cdr: (function(){
6222     var symbol = l255;
6223     var value = symbol.value;
6224     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6225     return value;
6226 })()}));
6227 var l267 = {name: ">="};
6228 ((l255).value = ({car: l43.fvalue(pv, l267, (function (values,v657){
6229     checkArgsAtLeast(arguments, 2);
6230     var v656= l3.value;
6231     for (var i = arguments.length-1; i>=2; i--)
6232         v656 = {car: arguments[i], cdr:
6233     v656};
6234     return (function(){
6235         return (function(v658){
6236             return l259.fvalue(values, v658, (function (values,v659){
6237                 checkArgs(arguments, 2);
6238                 return l127.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v659, ">=")), ";", (function(){
6239                     var symbol = l126;
6240                     var value = symbol.value;
6241                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6242                     return value;
6243                 })());
6244             }));
6245         })(({car: v657, cdr: v656}));
6246     })();
6247 })), cdr: (function(){
6248     var symbol = l255;
6249     var value = symbol.value;
6250     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6251     return value;
6252 })()}));
6253 var l268 = {name: "<="};
6254 ((l255).value = ({car: l43.fvalue(pv, l268, (function (values,v661){
6255     checkArgsAtLeast(arguments, 2);
6256     var v660= l3.value;
6257     for (var i = arguments.length-1; i>=2; i--)
6258         v660 = {car: arguments[i], cdr:
6259     v660};
6260     return (function(){
6261         return (function(v662){
6262             return l259.fvalue(values, v662, (function (values,v663){
6263                 checkArgs(arguments, 2);
6264                 return l127.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v663, "<=")), ";", (function(){
6265                     var symbol = l126;
6266                     var value = symbol.value;
6267                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6268                     return value;
6269                 })());
6270             }));
6271         })(({car: v661, cdr: v660}));
6272     })();
6273 })), cdr: (function(){
6274     var symbol = l255;
6275     var value = symbol.value;
6276     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6277     return value;
6278 })()}));
6279 ((l255).value = ({car: l43.fvalue(pv, l19, (function (values,v665){
6280     checkArgsAtLeast(arguments, 2);
6281     var v664= l3.value;
6282     for (var i = arguments.length-1; i>=2; i--)
6283         v664 = {car: arguments[i], cdr:
6284     v664};
6285     return (function(){
6286         return (function(v666){
6287             return l259.fvalue(values, v666, (function (values,v667){
6288                 checkArgs(arguments, 2);
6289                 return l127.fvalue(values, "return ", l137.fvalue(pv, l263.fvalue(pv, v667, "==")), ";", (function(){
6290                     var symbol = l126;
6291                     var value = symbol.value;
6292                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6293                     return value;
6294                 })());
6295             }));
6296         })(({car: v665, cdr: v664}));
6297     })();
6298 })), cdr: (function(){
6299     var symbol = l255;
6300     var value = symbol.value;
6301     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6302     return value;
6303 })()}));
6304 var l269 = {name: "NUMBERP"};
6305 ((l255).value = ({car: l43.fvalue(pv, l269, (function (values,v668){
6306     checkArgs(arguments, 2);
6307     return (function(){
6308         return (function(v669){
6309             return l137.fvalue(values, l127.fvalue(pv, "(typeof (", v669, ") == \"number\")"));
6310         })(l138.fvalue(pv, v668));
6311     })();
6312 })), cdr: (function(){
6313     var symbol = l255;
6314     var value = symbol.value;
6315     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6316     return value;
6317 })()}));
6318 var l270 = {name: "FLOOR"};
6319 ((l255).value = ({car: l43.fvalue(pv, l270, (function (values,v670){
6320     checkArgs(arguments, 2);
6321     return (function(){
6322         return (function(v671){
6323             return l127.fvalue(values, "(function(){", (function(){
6324                 var symbol = l126;
6325                 var value = symbol.value;
6326                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6327                 return value;
6328             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v671, ";", (function(){
6329                 var symbol = l126;
6330                 var value = symbol.value;
6331                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6332                 return value;
6333             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6334                 var symbol = l126;
6335                 var value = symbol.value;
6336                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6337                 return value;
6338             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6339                 var symbol = l126;
6340                 var value = symbol.value;
6341                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6342                 return value;
6343             })())), l127.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
6344                 var symbol = l126;
6345                 var value = symbol.value;
6346                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6347                 return value;
6348             })())), "})()");
6349         })(l138.fvalue(pv, v670));
6350     })();
6351 })), cdr: (function(){
6352     var symbol = l255;
6353     var value = symbol.value;
6354     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6355     return value;
6356 })()}));
6357 ((l255).value = ({car: l43.fvalue(pv, l28, (function (values,v672,v673){
6358     checkArgs(arguments, 3);
6359     return (function(){
6360         return (function(v674,v675){
6361             return l127.fvalue(values, "({car: ", v674, ", cdr: ", v675, "})");
6362         })(l138.fvalue(pv, v672),l138.fvalue(pv, v673));
6363     })();
6364 })), cdr: (function(){
6365     var symbol = l255;
6366     var value = symbol.value;
6367     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6368     return value;
6369 })()}));
6370 ((l255).value = ({car: l43.fvalue(pv, l29, (function (values,v676){
6371     checkArgs(arguments, 2);
6372     return (function(){
6373         return (function(v677){
6374             return l137.fvalue(values, l127.fvalue(pv, "(function(){", (function(){
6375                 var symbol = l126;
6376                 var value = symbol.value;
6377                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6378                 return value;
6379             })(), l136.fvalue(pv, "var tmp = ", v677, ";", (function(){
6380                 var symbol = l126;
6381                 var value = symbol.value;
6382                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6383                 return value;
6384             })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
6385                 var symbol = l126;
6386                 var value = symbol.value;
6387                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6388                 return value;
6389             })()), "})()"));
6390         })(l138.fvalue(pv, v676));
6391     })();
6392 })), cdr: (function(){
6393     var symbol = l255;
6394     var value = symbol.value;
6395     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6396     return value;
6397 })()}));
6398 ((l255).value = ({car: l43.fvalue(pv, l30, (function (values,v678){
6399     checkArgs(arguments, 2);
6400     return (function(){
6401         return (function(v679){
6402             return l127.fvalue(values, "(function(){", (function(){
6403                 var symbol = l126;
6404                 var value = symbol.value;
6405                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6406                 return value;
6407             })(), l136.fvalue(pv, "var tmp = ", v679, ";", (function(){
6408                 var symbol = l126;
6409                 var value = symbol.value;
6410                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6411                 return value;
6412             })(), "return tmp === ", l138.fvalue(pv, l3.value), "? ", l138.fvalue(pv, l3.value), ": tmp.car;", (function(){
6413                 var symbol = l126;
6414                 var value = symbol.value;
6415                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6416                 return value;
6417             })()), "})()");
6418         })(l138.fvalue(pv, v678));
6419     })();
6420 })), cdr: (function(){
6421     var symbol = l255;
6422     var value = symbol.value;
6423     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6424     return value;
6425 })()}));
6426 ((l255).value = ({car: l43.fvalue(pv, l31, (function (values,v680){
6427     checkArgs(arguments, 2);
6428     return (function(){
6429         return (function(v681){
6430             return l127.fvalue(values, "(function(){", (function(){
6431                 var symbol = l126;
6432                 var value = symbol.value;
6433                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6434                 return value;
6435             })(), l136.fvalue(pv, "var tmp = ", v681, ";", (function(){
6436                 var symbol = l126;
6437                 var value = symbol.value;
6438                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6439                 return value;
6440             })(), "return tmp === ", l138.fvalue(pv, l3.value), "? ", l138.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
6441                 var symbol = l126;
6442                 var value = symbol.value;
6443                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6444                 return value;
6445             })()), "})()");
6446         })(l138.fvalue(pv, v680));
6447     })();
6448 })), cdr: (function(){
6449     var symbol = l255;
6450     var value = symbol.value;
6451     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6452     return value;
6453 })()}));
6454 var l271 = {name: "RPLACA"};
6455 ((l255).value = ({car: l43.fvalue(pv, l271, (function (values,v682,v683){
6456     checkArgs(arguments, 3);
6457     return (function(){
6458         return (function(v684,v685){
6459             return l127.fvalue(values, "(function(){", (function(){
6460                 var symbol = l126;
6461                 var value = symbol.value;
6462                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6463                 return value;
6464             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v684, ";", (function(){
6465                 var symbol = l126;
6466                 var value = symbol.value;
6467                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6468                 return value;
6469             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6470                 var symbol = l126;
6471                 var value = symbol.value;
6472                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6473                 return value;
6474             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6475                 var symbol = l126;
6476                 var value = symbol.value;
6477                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6478                 return value;
6479             })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "(x.car = ", v685, ", x)"), ";", (function(){
6480                 var symbol = l126;
6481                 var value = symbol.value;
6482                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6483                 return value;
6484             })())), "})()");
6485         })(l138.fvalue(pv, v682),l138.fvalue(pv, v683));
6486     })();
6487 })), cdr: (function(){
6488     var symbol = l255;
6489     var value = symbol.value;
6490     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6491     return value;
6492 })()}));
6493 var l272 = {name: "RPLACD"};
6494 ((l255).value = ({car: l43.fvalue(pv, l272, (function (values,v686,v687){
6495     checkArgs(arguments, 3);
6496     return (function(){
6497         return (function(v688,v689){
6498             return l127.fvalue(values, "(function(){", (function(){
6499                 var symbol = l126;
6500                 var value = symbol.value;
6501                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6502                 return value;
6503             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v688, ";", (function(){
6504                 var symbol = l126;
6505                 var value = symbol.value;
6506                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6507                 return value;
6508             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6509                 var symbol = l126;
6510                 var value = symbol.value;
6511                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6512                 return value;
6513             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6514                 var symbol = l126;
6515                 var value = symbol.value;
6516                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6517                 return value;
6518             })())), l127.fvalue(pv, "return ", l127.fvalue(pv, "(x.cdr = ", v689, ", x)"), ";", (function(){
6519                 var symbol = l126;
6520                 var value = symbol.value;
6521                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6522                 return value;
6523             })())), "})()");
6524         })(l138.fvalue(pv, v686),l138.fvalue(pv, v687));
6525     })();
6526 })), cdr: (function(){
6527     var symbol = l255;
6528     var value = symbol.value;
6529     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6530     return value;
6531 })()}));
6532 var l273 = {name: "SYMBOLP"};
6533 ((l255).value = ({car: l43.fvalue(pv, l273, (function (values,v690){
6534     checkArgs(arguments, 2);
6535     return (function(){
6536         return (function(v691){
6537             return l137.fvalue(values, l127.fvalue(pv, "(function(){", (function(){
6538                 var symbol = l126;
6539                 var value = symbol.value;
6540                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6541                 return value;
6542             })(), l136.fvalue(pv, "var tmp = ", v691, ";", (function(){
6543                 var symbol = l126;
6544                 var value = symbol.value;
6545                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6546                 return value;
6547             })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
6548                 var symbol = l126;
6549                 var value = symbol.value;
6550                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6551                 return value;
6552             })()), "})()"));
6553         })(l138.fvalue(pv, v690));
6554     })();
6555 })), cdr: (function(){
6556     var symbol = l255;
6557     var value = symbol.value;
6558     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6559     return value;
6560 })()}));
6561 var l274 = {name: "MAKE-SYMBOL"};
6562 ((l255).value = ({car: l43.fvalue(pv, l274, (function (values,v692){
6563     checkArgs(arguments, 2);
6564     return (function(){
6565         return (function(v693){
6566             return l127.fvalue(values, "(function(){", (function(){
6567                 var symbol = l126;
6568                 var value = symbol.value;
6569                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6570                 return value;
6571             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "name", " = ", v693, ";", (function(){
6572                 var symbol = l126;
6573                 var value = symbol.value;
6574                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6575                 return value;
6576             })()), l127.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
6577                 var symbol = l126;
6578                 var value = symbol.value;
6579                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6580                 return value;
6581             })(), l136.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
6582                 var symbol = l126;
6583                 var value = symbol.value;
6584                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6585                 return value;
6586             })())), l127.fvalue(pv, "return ", "({name: name})", ";", (function(){
6587                 var symbol = l126;
6588                 var value = symbol.value;
6589                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6590                 return value;
6591             })())), "})()");
6592         })(l138.fvalue(pv, v692));
6593     })();
6594 })), cdr: (function(){
6595     var symbol = l255;
6596     var value = symbol.value;
6597     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6598     return value;
6599 })()}));
6600 var l275 = {name: "SYMBOL-NAME"};
6601 ((l255).value = ({car: l43.fvalue(pv, l275, (function (values,v694){
6602     checkArgs(arguments, 2);
6603     return (function(){
6604         return (function(v695){
6605             return l127.fvalue(values, "(", v695, ").name");
6606         })(l138.fvalue(pv, v694));
6607     })();
6608 })), cdr: (function(){
6609     var symbol = l255;
6610     var value = symbol.value;
6611     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6612     return value;
6613 })()}));
6614 ((l255).value = ({car: l43.fvalue(pv, l217, (function (values,v696,v697){
6615     checkArgs(arguments, 3);
6616     return (function(){
6617         return (function(v698,v699){
6618             return l127.fvalue(values, "(", v698, ").value = ", v699);
6619         })(l138.fvalue(pv, v696),l138.fvalue(pv, v697));
6620     })();
6621 })), cdr: (function(){
6622     var symbol = l255;
6623     var value = symbol.value;
6624     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6625     return value;
6626 })()}));
6627 var l276 = {name: "FSET"};
6628 ((l255).value = ({car: l43.fvalue(pv, l276, (function (values,v700,v701){
6629     checkArgs(arguments, 3);
6630     return (function(){
6631         return (function(v702,v703){
6632             return l127.fvalue(values, "(", v702, ").fvalue = ", v703);
6633         })(l138.fvalue(pv, v700),l138.fvalue(pv, v701));
6634     })();
6635 })), cdr: (function(){
6636     var symbol = l255;
6637     var value = symbol.value;
6638     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6639     return value;
6640 })()}));
6641 ((l255).value = ({car: l43.fvalue(pv, l18, (function (values,v704){
6642     checkArgs(arguments, 2);
6643     return (function(){
6644         return (function(v705){
6645             return l137.fvalue(values, l127.fvalue(pv, "(", v705, ".value !== undefined)"));
6646         })(l138.fvalue(pv, v704));
6647     })();
6648 })), cdr: (function(){
6649     var symbol = l255;
6650     var value = symbol.value;
6651     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6652     return value;
6653 })()}));
6654 var l277 = {name: "SYMBOL-VALUE"};
6655 ((l255).value = ({car: l43.fvalue(pv, l277, (function (values,v706){
6656     checkArgs(arguments, 2);
6657     return (function(){
6658         return (function(v707){
6659             return l127.fvalue(values, "(function(){", (function(){
6660                 var symbol = l126;
6661                 var value = symbol.value;
6662                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6663                 return value;
6664             })(), l136.fvalue(pv, "var symbol = ", v707, ";", (function(){
6665                 var symbol = l126;
6666                 var value = symbol.value;
6667                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6668                 return value;
6669             })(), "var value = symbol.value;", (function(){
6670                 var symbol = l126;
6671                 var value = symbol.value;
6672                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6673                 return value;
6674             })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
6675                 var symbol = l126;
6676                 var value = symbol.value;
6677                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6678                 return value;
6679             })(), "return value;", (function(){
6680                 var symbol = l126;
6681                 var value = symbol.value;
6682                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6683                 return value;
6684             })()), "})()");
6685         })(l138.fvalue(pv, v706));
6686     })();
6687 })), cdr: (function(){
6688     var symbol = l255;
6689     var value = symbol.value;
6690     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6691     return value;
6692 })()}));
6693 ((l255).value = ({car: l43.fvalue(pv, l226, (function (values,v708){
6694     checkArgs(arguments, 2);
6695     return (function(){
6696         return (function(v709){
6697             return l127.fvalue(values, "(function(){", (function(){
6698                 var symbol = l126;
6699                 var value = symbol.value;
6700                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6701                 return value;
6702             })(), l136.fvalue(pv, "var symbol = ", v709, ";", (function(){
6703                 var symbol = l126;
6704                 var value = symbol.value;
6705                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6706                 return value;
6707             })(), "var func = symbol.fvalue;", (function(){
6708                 var symbol = l126;
6709                 var value = symbol.value;
6710                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6711                 return value;
6712             })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
6713                 var symbol = l126;
6714                 var value = symbol.value;
6715                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6716                 return value;
6717             })(), "return func;", (function(){
6718                 var symbol = l126;
6719                 var value = symbol.value;
6720                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6721                 return value;
6722             })()), "})()");
6723         })(l138.fvalue(pv, v708));
6724     })();
6725 })), cdr: (function(){
6726     var symbol = l255;
6727     var value = symbol.value;
6728     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6729     return value;
6730 })()}));
6731 var l278 = {name: "SYMBOL-PLIST"};
6732 ((l255).value = ({car: l43.fvalue(pv, l278, (function (values,v710){
6733     checkArgs(arguments, 2);
6734     return (function(){
6735         return (function(v711){
6736             return l127.fvalue(values, "((", v711, ").plist || ", l138.fvalue(pv, l3.value), ")");
6737         })(l138.fvalue(pv, v710));
6738     })();
6739 })), cdr: (function(){
6740     var symbol = l255;
6741     var value = symbol.value;
6742     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6743     return value;
6744 })()}));
6745 var l279 = {name: "LAMBDA-CODE"};
6746 ((l255).value = ({car: l43.fvalue(pv, l279, (function (values,v712){
6747     checkArgs(arguments, 2);
6748     return (function(){
6749         return (function(v713){
6750             return l127.fvalue(values, "(", v713, ").toString()");
6751         })(l138.fvalue(pv, v712));
6752     })();
6753 })), cdr: (function(){
6754     var symbol = l255;
6755     var value = symbol.value;
6756     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6757     return value;
6758 })()}));
6759 var l280 = {name: "EQ"};
6760 ((l255).value = ({car: l43.fvalue(pv, l280, (function (values,v714,v715){
6761     checkArgs(arguments, 3);
6762     return (function(){
6763         return (function(v716,v717){
6764             return l137.fvalue(values, l127.fvalue(pv, "(", v716, " === ", v717, ")"));
6765         })(l138.fvalue(pv, v714),l138.fvalue(pv, v715));
6766     })();
6767 })), cdr: (function(){
6768     var symbol = l255;
6769     var value = symbol.value;
6770     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6771     return value;
6772 })()}));
6773 var l281 = {name: "EQUAL"};
6774 ((l255).value = ({car: l43.fvalue(pv, l281, (function (values,v718,v719){
6775     checkArgs(arguments, 3);
6776     return (function(){
6777         return (function(v720,v721){
6778             return l137.fvalue(values, l127.fvalue(pv, "(", v720, " == ", v721, ")"));
6779         })(l138.fvalue(pv, v718),l138.fvalue(pv, v719));
6780     })();
6781 })), cdr: (function(){
6782     var symbol = l255;
6783     var value = symbol.value;
6784     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6785     return value;
6786 })()}));
6787 var l282 = {name: "CHAR-TO-STRING"};
6788 ((l255).value = ({car: l43.fvalue(pv, l282, (function (values,v722){
6789     checkArgs(arguments, 2);
6790     return (function(){
6791         return (function(v723){
6792             return l127.fvalue(values, "(function(){", (function(){
6793                 var symbol = l126;
6794                 var value = symbol.value;
6795                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6796                 return value;
6797             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v723, ";", (function(){
6798                 var symbol = l126;
6799                 var value = symbol.value;
6800                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6801                 return value;
6802             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6803                 var symbol = l126;
6804                 var value = symbol.value;
6805                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6806                 return value;
6807             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6808                 var symbol = l126;
6809                 var value = symbol.value;
6810                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6811                 return value;
6812             })())), l127.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
6813                 var symbol = l126;
6814                 var value = symbol.value;
6815                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6816                 return value;
6817             })())), "})()");
6818         })(l138.fvalue(pv, v722));
6819     })();
6820 })), cdr: (function(){
6821     var symbol = l255;
6822     var value = symbol.value;
6823     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6824     return value;
6825 })()}));
6826 var l283 = {name: "STRINGP"};
6827 ((l255).value = ({car: l43.fvalue(pv, l283, (function (values,v724){
6828     checkArgs(arguments, 2);
6829     return (function(){
6830         return (function(v725){
6831             return l137.fvalue(values, l127.fvalue(pv, "(typeof(", v725, ") == \"string\")"));
6832         })(l138.fvalue(pv, v724));
6833     })();
6834 })), cdr: (function(){
6835     var symbol = l255;
6836     var value = symbol.value;
6837     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6838     return value;
6839 })()}));
6840 var l284 = {name: "STRING-UPCASE"};
6841 ((l255).value = ({car: l43.fvalue(pv, l284, (function (values,v726){
6842     checkArgs(arguments, 2);
6843     return (function(){
6844         return (function(v727){
6845             return l127.fvalue(values, "(function(){", (function(){
6846                 var symbol = l126;
6847                 var value = symbol.value;
6848                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6849                 return value;
6850             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v727, ";", (function(){
6851                 var symbol = l126;
6852                 var value = symbol.value;
6853                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6854                 return value;
6855             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6856                 var symbol = l126;
6857                 var value = symbol.value;
6858                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6859                 return value;
6860             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6861                 var symbol = l126;
6862                 var value = symbol.value;
6863                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6864                 return value;
6865             })())), l127.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
6866                 var symbol = l126;
6867                 var value = symbol.value;
6868                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6869                 return value;
6870             })())), "})()");
6871         })(l138.fvalue(pv, v726));
6872     })();
6873 })), cdr: (function(){
6874     var symbol = l255;
6875     var value = symbol.value;
6876     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6877     return value;
6878 })()}));
6879 var l285 = {name: "STRING-LENGTH"};
6880 ((l255).value = ({car: l43.fvalue(pv, l285, (function (values,v728){
6881     checkArgs(arguments, 2);
6882     return (function(){
6883         return (function(v729){
6884             return l127.fvalue(values, "(function(){", (function(){
6885                 var symbol = l126;
6886                 var value = symbol.value;
6887                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6888                 return value;
6889             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v729, ";", (function(){
6890                 var symbol = l126;
6891                 var value = symbol.value;
6892                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6893                 return value;
6894             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6895                 var symbol = l126;
6896                 var value = symbol.value;
6897                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6898                 return value;
6899             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6900                 var symbol = l126;
6901                 var value = symbol.value;
6902                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6903                 return value;
6904             })())), l127.fvalue(pv, "return ", "x.length", ";", (function(){
6905                 var symbol = l126;
6906                 var value = symbol.value;
6907                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6908                 return value;
6909             })())), "})()");
6910         })(l138.fvalue(pv, v728));
6911     })();
6912 })), cdr: (function(){
6913     var symbol = l255;
6914     var value = symbol.value;
6915     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6916     return value;
6917 })()}));
6918 var l286 = {name: "SLICE"};
6919 ((l255).value = ({car: l43.fvalue(pv, l286, (function (values,v730,v731,v732){
6920     checkArgsAtLeast(arguments, 3);
6921     checkArgsAtMost(arguments, 4);
6922     switch(arguments.length-1){
6923     case 2:
6924     v732=l3.value;
6925     default: break;
6926     }
6927     return (function(){
6928         return l127.fvalue(values, "(function(){", (function(){
6929             var symbol = l126;
6930             var value = symbol.value;
6931             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6932             return value;
6933         })(), l136.fvalue(pv, "var str = ", l138.fvalue(pv, v730), ";", (function(){
6934             var symbol = l126;
6935             var value = symbol.value;
6936             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6937             return value;
6938         })(), "var a = ", l138.fvalue(pv, v731), ";", (function(){
6939             var symbol = l126;
6940             var value = symbol.value;
6941             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6942             return value;
6943         })(), "var b;", (function(){
6944             var symbol = l126;
6945             var value = symbol.value;
6946             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6947             return value;
6948         })(), (v732 !== l3.value ? l127.fvalue(pv, "b = ", l138.fvalue(pv, v732), ";", (function(){
6949             var symbol = l126;
6950             var value = symbol.value;
6951             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6952             return value;
6953         })()) : ""), "return str.slice(a,b);", (function(){
6954             var symbol = l126;
6955             var value = symbol.value;
6956             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6957             return value;
6958         })()), "})()");
6959     })();
6960 })), cdr: (function(){
6961     var symbol = l255;
6962     var value = symbol.value;
6963     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6964     return value;
6965 })()}));
6966 var l287 = {name: "CHAR"};
6967 ((l255).value = ({car: l43.fvalue(pv, l287, (function (values,v733,v734){
6968     checkArgs(arguments, 3);
6969     return (function(){
6970         return (function(v735,v736){
6971             return l127.fvalue(values, "(function(){", (function(){
6972                 var symbol = l126;
6973                 var value = symbol.value;
6974                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6975                 return value;
6976             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "string", " = ", v735, ";", (function(){
6977                 var symbol = l126;
6978                 var value = symbol.value;
6979                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6980                 return value;
6981             })()), l127.fvalue(pv, "var ", "index", " = ", v736, ";", (function(){
6982                 var symbol = l126;
6983                 var value = symbol.value;
6984                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6985                 return value;
6986             })()), l127.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
6987                 var symbol = l126;
6988                 var value = symbol.value;
6989                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6990                 return value;
6991             })(), l136.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
6992                 var symbol = l126;
6993                 var value = symbol.value;
6994                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6995                 return value;
6996             })())), l127.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
6997                 var symbol = l126;
6998                 var value = symbol.value;
6999                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7000                 return value;
7001             })(), l136.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
7002                 var symbol = l126;
7003                 var value = symbol.value;
7004                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7005                 return value;
7006             })())), l127.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
7007                 var symbol = l126;
7008                 var value = symbol.value;
7009                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7010                 return value;
7011             })())), "})()");
7012         })(l138.fvalue(pv, v733),l138.fvalue(pv, v734));
7013     })();
7014 })), cdr: (function(){
7015     var symbol = l255;
7016     var value = symbol.value;
7017     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7018     return value;
7019 })()}));
7020 ((l255).value = ({car: l43.fvalue(pv, l71, (function (values,v737,v738){
7021     checkArgs(arguments, 3);
7022     return (function(){
7023         return (function(v739,v740){
7024             return l127.fvalue(values, "(function(){", (function(){
7025                 var symbol = l126;
7026                 var value = symbol.value;
7027                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7028                 return value;
7029             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "string1", " = ", v739, ";", (function(){
7030                 var symbol = l126;
7031                 var value = symbol.value;
7032                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7033                 return value;
7034             })()), l127.fvalue(pv, "var ", "string2", " = ", v740, ";", (function(){
7035                 var symbol = l126;
7036                 var value = symbol.value;
7037                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7038                 return value;
7039             })()), l127.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
7040                 var symbol = l126;
7041                 var value = symbol.value;
7042                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7043                 return value;
7044             })(), l136.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
7045                 var symbol = l126;
7046                 var value = symbol.value;
7047                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7048                 return value;
7049             })())), l127.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
7050                 var symbol = l126;
7051                 var value = symbol.value;
7052                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7053                 return value;
7054             })(), l136.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
7055                 var symbol = l126;
7056                 var value = symbol.value;
7057                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7058                 return value;
7059             })())), l127.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
7060                 var symbol = l126;
7061                 var value = symbol.value;
7062                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7063                 return value;
7064             })())), "})()");
7065         })(l138.fvalue(pv, v737),l138.fvalue(pv, v738));
7066     })();
7067 })), cdr: (function(){
7068     var symbol = l255;
7069     var value = symbol.value;
7070     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7071     return value;
7072 })()}));
7073 var l288 = {name: "FUNCALL"};
7074 ((l255).value = ({car: l43.fvalue(pv, l288, (function (values,v742){
7075     checkArgsAtLeast(arguments, 2);
7076     var v741= l3.value;
7077     for (var i = arguments.length-1; i>=2; i--)
7078         v741 = {car: arguments[i], cdr:
7079     v741};
7080     return (function(){
7081         return l127.fvalue(values, "(", l138.fvalue(pv, v742), ")(", l129.fvalue(pv, ({car: ((function(){
7082             var symbol = l165;
7083             var value = symbol.value;
7084             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7085             return value;
7086         })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
7087             var symbol = l138;
7088             var func = symbol.fvalue;
7089             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7090             return func;
7091         })(), v741)}), ", "), ")");
7092     })();
7093 })), cdr: (function(){
7094     var symbol = l255;
7095     var value = symbol.value;
7096     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7097     return value;
7098 })()}));
7099 var l289 = {name: "APPLY"};
7100 ((l255).value = ({car: l43.fvalue(pv, l289, (function (values,v744){
7101     checkArgsAtLeast(arguments, 2);
7102     var v743= l3.value;
7103     for (var i = arguments.length-1; i>=2; i--)
7104         v743 = {car: arguments[i], cdr:
7105     v743};
7106     return (function(){
7107         return (l12.fvalue(pv, v743) !== l3.value ? l127.fvalue(values, "(", l138.fvalue(pv, v744), ")()") : (function(v745,v746){
7108             return l127.fvalue(values, "(function(){", (function(){
7109                 var symbol = l126;
7110                 var value = symbol.value;
7111                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7112                 return value;
7113             })(), l136.fvalue(pv, "var f = ", l138.fvalue(pv, v744), ";", (function(){
7114                 var symbol = l126;
7115                 var value = symbol.value;
7116                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7117                 return value;
7118             })(), "var args = [", l129.fvalue(pv, ({car: ((function(){
7119                 var symbol = l165;
7120                 var value = symbol.value;
7121                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7122                 return value;
7123             })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
7124                 var symbol = l138;
7125                 var func = symbol.fvalue;
7126                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7127                 return func;
7128             })(), v745)}), ", "), "];", (function(){
7129                 var symbol = l126;
7130                 var value = symbol.value;
7131                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7132                 return value;
7133             })(), "var tail = (", l138.fvalue(pv, v746), ");", (function(){
7134                 var symbol = l126;
7135                 var value = symbol.value;
7136                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7137                 return value;
7138             })(), "while (tail != ", l138.fvalue(pv, l3.value), "){", (function(){
7139                 var symbol = l126;
7140                 var value = symbol.value;
7141                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7142                 return value;
7143             })(), "    args.push(tail.car);", (function(){
7144                 var symbol = l126;
7145                 var value = symbol.value;
7146                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7147                 return value;
7148             })(), "    tail = tail.cdr;", (function(){
7149                 var symbol = l126;
7150                 var value = symbol.value;
7151                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7152                 return value;
7153             })(), "}", (function(){
7154                 var symbol = l126;
7155                 var value = symbol.value;
7156                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7157                 return value;
7158             })(), "return f.apply(this, args);", (function(){
7159                 var symbol = l126;
7160                 var value = symbol.value;
7161                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7162                 return value;
7163             })()), "})()");
7164         })(l84.fvalue(pv, v743),(function(){
7165             var tmp = l83.fvalue(pv, v743);
7166             return tmp === l3.value? l3.value: tmp.car;
7167         })()));
7168     })();
7169 })), cdr: (function(){
7170     var symbol = l255;
7171     var value = symbol.value;
7172     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7173     return value;
7174 })()}));
7175 var l290 = {name: "JS-EVAL"};
7176 ((l255).value = ({car: l43.fvalue(pv, l290, (function (values,v747){
7177     checkArgs(arguments, 2);
7178     return (function(){
7179         return (function(v748){
7180             return l127.fvalue(values, "(function(){", (function(){
7181                 var symbol = l126;
7182                 var value = symbol.value;
7183                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7184                 return value;
7185             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "string", " = ", v748, ";", (function(){
7186                 var symbol = l126;
7187                 var value = symbol.value;
7188                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7189                 return value;
7190             })()), l127.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
7191                 var symbol = l126;
7192                 var value = symbol.value;
7193                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7194                 return value;
7195             })(), l136.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
7196                 var symbol = l126;
7197                 var value = symbol.value;
7198                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7199                 return value;
7200             })())), l127.fvalue(pv, "return ", ((function(){
7201                 var symbol = l165;
7202                 var value = symbol.value;
7203                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7204                 return value;
7205             })() !== l3.value ? l127.fvalue(pv, "(function(){", (function(){
7206                 var symbol = l126;
7207                 var value = symbol.value;
7208                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7209                 return value;
7210             })(), l136.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
7211                 var symbol = l126;
7212                 var value = symbol.value;
7213                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7214                 return value;
7215             })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
7216                 var symbol = l126;
7217                 var value = symbol.value;
7218                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7219                 return value;
7220             })(), l136.fvalue(pv, "v = [v];", (function(){
7221                 var symbol = l126;
7222                 var value = symbol.value;
7223                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7224                 return value;
7225             })(), "v['multiple-value'] = true;", (function(){
7226                 var symbol = l126;
7227                 var value = symbol.value;
7228                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7229                 return value;
7230             })()), "}", (function(){
7231                 var symbol = l126;
7232                 var value = symbol.value;
7233                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7234                 return value;
7235             })(), "return values.apply(this, v);", (function(){
7236                 var symbol = l126;
7237                 var value = symbol.value;
7238                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7239                 return value;
7240             })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
7241                 var symbol = l126;
7242                 var value = symbol.value;
7243                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7244                 return value;
7245             })())), "})()");
7246         })(l138.fvalue(pv, v747));
7247     })();
7248 })), cdr: (function(){
7249     var symbol = l255;
7250     var value = symbol.value;
7251     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7252     return value;
7253 })()}));
7254 var l291 = {name: "ERROR"};
7255 ((l255).value = ({car: l43.fvalue(pv, l291, (function (values,v749){
7256     checkArgs(arguments, 2);
7257     return (function(){
7258         return (function(v750){
7259             return l127.fvalue(values, "(function(){", (function(){
7260                 var symbol = l126;
7261                 var value = symbol.value;
7262                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7263                 return value;
7264             })(), l136.fvalue(pv, "throw ", v750, ";", (function(){
7265                 var symbol = l126;
7266                 var value = symbol.value;
7267                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7268                 return value;
7269             })()), "})()");
7270         })(l138.fvalue(pv, v749));
7271     })();
7272 })), cdr: (function(){
7273     var symbol = l255;
7274     var value = symbol.value;
7275     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7276     return value;
7277 })()}));
7278 var l292 = {name: "NEW"};
7279 ((l255).value = ({car: l43.fvalue(pv, l292, (function (values){
7280     checkArgsAtMost(arguments, 1);
7281     return (function(){
7282         return (function(){
7283             return "{}";
7284         })();
7285     })();
7286 })), cdr: (function(){
7287     var symbol = l255;
7288     var value = symbol.value;
7289     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7290     return value;
7291 })()}));
7292 var l293 = {name: "OBJECTP"};
7293 ((l255).value = ({car: l43.fvalue(pv, l293, (function (values,v751){
7294     checkArgs(arguments, 2);
7295     return (function(){
7296         return (function(v752){
7297             return l137.fvalue(values, l127.fvalue(pv, "(typeof (", v752, ") === 'object')"));
7298         })(l138.fvalue(pv, v751));
7299     })();
7300 })), cdr: (function(){
7301     var symbol = l255;
7302     var value = symbol.value;
7303     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7304     return value;
7305 })()}));
7306 var l294 = {name: "OGET"};
7307 ((l255).value = ({car: l43.fvalue(pv, l294, (function (values,v753,v754){
7308     checkArgs(arguments, 3);
7309     return (function(){
7310         return (function(v755,v756){
7311             return l127.fvalue(values, "(function(){", (function(){
7312                 var symbol = l126;
7313                 var value = symbol.value;
7314                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7315                 return value;
7316             })(), l136.fvalue(pv, "var tmp = ", "(", v755, ")[", v756, "];", (function(){
7317                 var symbol = l126;
7318                 var value = symbol.value;
7319                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7320                 return value;
7321             })(), "return tmp == undefined? ", l138.fvalue(pv, l3.value), ": tmp ;", (function(){
7322                 var symbol = l126;
7323                 var value = symbol.value;
7324                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7325                 return value;
7326             })()), "})()");
7327         })(l138.fvalue(pv, v753),l138.fvalue(pv, v754));
7328     })();
7329 })), cdr: (function(){
7330     var symbol = l255;
7331     var value = symbol.value;
7332     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7333     return value;
7334 })()}));
7335 var l295 = {name: "OSET"};
7336 ((l255).value = ({car: l43.fvalue(pv, l295, (function (values,v757,v758,v759){
7337     checkArgs(arguments, 4);
7338     return (function(){
7339         return (function(v760,v761,v762){
7340             return l127.fvalue(values, "((", v760, ")[", v761, "] = ", v762, ")");
7341         })(l138.fvalue(pv, v757),l138.fvalue(pv, v758),l138.fvalue(pv, v759));
7342     })();
7343 })), cdr: (function(){
7344     var symbol = l255;
7345     var value = symbol.value;
7346     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7347     return value;
7348 })()}));
7349 var l296 = {name: "IN"};
7350 ((l255).value = ({car: l43.fvalue(pv, l296, (function (values,v763,v764){
7351     checkArgs(arguments, 3);
7352     return (function(){
7353         return (function(v765,v766){
7354             return l137.fvalue(values, l127.fvalue(pv, "((", v765, ") in (", v766, "))"));
7355         })(l138.fvalue(pv, v763),l138.fvalue(pv, v764));
7356     })();
7357 })), cdr: (function(){
7358     var symbol = l255;
7359     var value = symbol.value;
7360     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7361     return value;
7362 })()}));
7363 var l297 = {name: "FUNCTIONP"};
7364 ((l255).value = ({car: l43.fvalue(pv, l297, (function (values,v767){
7365     checkArgs(arguments, 2);
7366     return (function(){
7367         return (function(v768){
7368             return l137.fvalue(values, l127.fvalue(pv, "(typeof ", v768, " == 'function')"));
7369         })(l138.fvalue(pv, v767));
7370     })();
7371 })), cdr: (function(){
7372     var symbol = l255;
7373     var value = symbol.value;
7374     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7375     return value;
7376 })()}));
7377 var l298 = {name: "WRITE-STRING"};
7378 ((l255).value = ({car: l43.fvalue(pv, l298, (function (values,v769){
7379     checkArgs(arguments, 2);
7380     return (function(){
7381         return (function(v770){
7382             return l127.fvalue(values, "(function(){", (function(){
7383                 var symbol = l126;
7384                 var value = symbol.value;
7385                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7386                 return value;
7387             })(), l136.fvalue(pv, l127.fvalue(pv, "var ", "x", " = ", v770, ";", (function(){
7388                 var symbol = l126;
7389                 var value = symbol.value;
7390                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7391                 return value;
7392             })()), l127.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
7393                 var symbol = l126;
7394                 var value = symbol.value;
7395                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7396                 return value;
7397             })(), l136.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
7398                 var symbol = l126;
7399                 var value = symbol.value;
7400                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7401                 return value;
7402             })())), l127.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
7403                 var symbol = l126;
7404                 var value = symbol.value;
7405                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7406                 return value;
7407             })())), "})()");
7408         })(l138.fvalue(pv, v769));
7409     })();
7410 })), cdr: (function(){
7411     var symbol = l255;
7412     var value = symbol.value;
7413     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7414     return value;
7415 })()}));
7416 var l299 = {name: "MAKE-ARRAY"};
7417 ((l255).value = ({car: l43.fvalue(pv, l299, (function (values,v771){
7418     checkArgs(arguments, 2);
7419     return (function(){
7420         return (function(v772){
7421             return l127.fvalue(values, "(function(){", (function(){
7422                 var symbol = l126;
7423                 var value = symbol.value;
7424                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7425                 return value;
7426             })(), l136.fvalue(pv, "var r = [];", (function(){
7427                 var symbol = l126;
7428                 var value = symbol.value;
7429                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7430                 return value;
7431             })(), "for (var i = 0; i < ", v772, "; i++)", (function(){
7432                 var symbol = l126;
7433                 var value = symbol.value;
7434                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7435                 return value;
7436             })(), l136.fvalue(pv, "r.push(", l138.fvalue(pv, l3.value), ");", (function(){
7437                 var symbol = l126;
7438                 var value = symbol.value;
7439                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7440                 return value;
7441             })()), "return r;", (function(){
7442                 var symbol = l126;
7443                 var value = symbol.value;
7444                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7445                 return value;
7446             })()), "})()");
7447         })(l138.fvalue(pv, v771));
7448     })();
7449 })), cdr: (function(){
7450     var symbol = l255;
7451     var value = symbol.value;
7452     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7453     return value;
7454 })()}));
7455 var l300 = {name: "ARRAYP"};
7456 ((l255).value = ({car: l43.fvalue(pv, l300, (function (values,v773){
7457     checkArgs(arguments, 2);
7458     return (function(){
7459         return (function(v774){
7460             return l137.fvalue(values, l127.fvalue(pv, "(function(){", (function(){
7461                 var symbol = l126;
7462                 var value = symbol.value;
7463                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7464                 return value;
7465             })(), l136.fvalue(pv, "var x = ", v774, ";", (function(){
7466                 var symbol = l126;
7467                 var value = symbol.value;
7468                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7469                 return value;
7470             })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
7471         })(l138.fvalue(pv, v773));
7472     })();
7473 })), cdr: (function(){
7474     var symbol = l255;
7475     var value = symbol.value;
7476     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7477     return value;
7478 })()}));
7479 var l301 = {name: "AREF"};
7480 ((l255).value = ({car: l43.fvalue(pv, l301, (function (values,v775,v776){
7481     checkArgs(arguments, 3);
7482     return (function(){
7483         return (function(v777,v778){
7484             return l127.fvalue(values, "(function(){", (function(){
7485                 var symbol = l126;
7486                 var value = symbol.value;
7487                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7488                 return value;
7489             })(), l136.fvalue(pv, "var x = ", "(", v777, ")[", v778, "];", (function(){
7490                 var symbol = l126;
7491                 var value = symbol.value;
7492                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7493                 return value;
7494             })(), "if (x === undefined) throw 'Out of range';", (function(){
7495                 var symbol = l126;
7496                 var value = symbol.value;
7497                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7498                 return value;
7499             })(), "return x;", (function(){
7500                 var symbol = l126;
7501                 var value = symbol.value;
7502                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7503                 return value;
7504             })()), "})()");
7505         })(l138.fvalue(pv, v775),l138.fvalue(pv, v776));
7506     })();
7507 })), cdr: (function(){
7508     var symbol = l255;
7509     var value = symbol.value;
7510     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7511     return value;
7512 })()}));
7513 var l302 = {name: "ASET"};
7514 ((l255).value = ({car: l43.fvalue(pv, l302, (function (values,v779,v780,v781){
7515     checkArgs(arguments, 4);
7516     return (function(){
7517         return (function(v782,v783,v784){
7518             return l127.fvalue(values, "(function(){", (function(){
7519                 var symbol = l126;
7520                 var value = symbol.value;
7521                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7522                 return value;
7523             })(), l136.fvalue(pv, "var x = ", v782, ";", (function(){
7524                 var symbol = l126;
7525                 var value = symbol.value;
7526                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7527                 return value;
7528             })(), "var i = ", v783, ";", (function(){
7529                 var symbol = l126;
7530                 var value = symbol.value;
7531                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7532                 return value;
7533             })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
7534                 var symbol = l126;
7535                 var value = symbol.value;
7536                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7537                 return value;
7538             })(), "return x[i] = ", v784, ";", (function(){
7539                 var symbol = l126;
7540                 var value = symbol.value;
7541                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7542                 return value;
7543             })()), "})()");
7544         })(l138.fvalue(pv, v779),l138.fvalue(pv, v780),l138.fvalue(pv, v781));
7545     })();
7546 })), cdr: (function(){
7547     var symbol = l255;
7548     var value = symbol.value;
7549     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7550     return value;
7551 })()}));
7552 var l303 = {name: "GET-UNIX-TIME"};
7553 ((l255).value = ({car: l43.fvalue(pv, l303, (function (values){
7554     checkArgsAtMost(arguments, 1);
7555     return (function(){
7556         return (function(){
7557             return l127.fvalue(values, "(Math.round(new Date() / 1000))");
7558         })();
7559     })();
7560 })), cdr: (function(){
7561     var symbol = l255;
7562     var value = symbol.value;
7563     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7564     return value;
7565 })()}));
7566 var l304 = {name: "VALUES-ARRAY"};
7567 ((l255).value = ({car: l43.fvalue(pv, l304, (function (values,v785){
7568     checkArgs(arguments, 2);
7569     return (function(){
7570         return (function(v786){
7571             return ((function(){
7572                 var symbol = l165;
7573                 var value = symbol.value;
7574                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7575                 return value;
7576             })() !== l3.value ? l127.fvalue(values, "values.apply(this, ", v786, ")") : l127.fvalue(values, "pv.apply(this, ", v786, ")"));
7577         })(l138.fvalue(pv, v785));
7578     })();
7579 })), cdr: (function(){
7580     var symbol = l255;
7581     var value = symbol.value;
7582     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7583     return value;
7584 })()}));
7585 ((l255).value = ({car: l43.fvalue(pv, l135, (function (values){
7586     var v787= l3.value;
7587     for (var i = arguments.length-1; i>=1; i--)
7588         v787 = {car: arguments[i], cdr:
7589     v787};
7590     return (function(){
7591         return ((function(){
7592             var symbol = l165;
7593             var value = symbol.value;
7594             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7595             return value;
7596         })() !== l3.value ? l127.fvalue(values, "values(", l129.fvalue(pv, l72.fvalue(pv, (function(){
7597             var symbol = l138;
7598             var func = symbol.fvalue;
7599             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7600             return func;
7601         })(), v787), ", "), ")") : l127.fvalue(values, "pv(", l129.fvalue(pv, l72.fvalue(pv, (function(){
7602             var symbol = l138;
7603             var func = symbol.fvalue;
7604             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7605             return func;
7606         })(), v787), ", "), ")"));
7607     })();
7608 })), cdr: (function(){
7609     var symbol = l255;
7610     var value = symbol.value;
7611     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7612     return value;
7613 })()}));
7614 (function(){
7615     (l191).fvalue = (function(v790){
7616         ((v790)["fname"] = "MACRO");
7617         return v790;
7618     })((function (values,v788){
7619         checkArgs(arguments, 2);
7620         return (function(){
7621             return (((function(){
7622                 var tmp = v788;
7623                 return (typeof tmp == 'object' && 'name' in tmp);
7624             })()?l4.value: l3.value) !== l3.value ? (function(v789){
7625                 return (((l168.fvalue(pv, v789) === l191)?l4.value: l3.value) !== l3.value ? v789 : l3.value);
7626             })(l180.fvalue(pv, v788, (function(){
7627                 var symbol = l181;
7628                 var value = symbol.value;
7629                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7630                 return value;
7631             })(), l100)) : l3.value);
7632         })();
7633     }));
7634     return l191;
7635 })();
7636 var l305 = {name: "LS-MACROEXPAND-1"};
7637 (function(){
7638     (l305).fvalue = (function(v795){
7639         ((v795)["fname"] = "LS-MACROEXPAND-1");
7640         return v795;
7641     })((function (values,v791){
7642         checkArgs(arguments, 2);
7643         return (function(){
7644             return (function(v792){
7645                 return (v792 !== l3.value ? (function(v793){
7646                     (l58.fvalue(pv, v793) !== l3.value ? (function(v794){
7647                         l171.fvalue(pv, v792, v794);
7648                         return (v793 = v794);
7649                     })(l229.fvalue(pv, v793)) : l3.value);
7650                     return (function(){
7651                         var f = v793;
7652                         var args = [values];
7653                         var tail = ((function(){
7654                             var tmp = v791;
7655                             return tmp === l3.value? l3.value: tmp.cdr;
7656                         })());
7657                         while (tail != l3.value){
7658                             args.push(tail.car);
7659                             tail = tail.cdr;
7660                         }
7661                         return f.apply(this, args);
7662                     })();
7663                 })(l169.fvalue(pv, v792)) : v791);
7664             })(l191.fvalue(pv, (function(){
7665                 var tmp = v791;
7666                 return tmp === l3.value? l3.value: tmp.car;
7667             })()));
7668         })();
7669     }));
7670     return l305;
7671 })();
7672 var l306 = {name: "COMPILE-FUNCALL"};
7673 var l307 = {name: "G764"};
7674 (function(){
7675     (l306).fvalue = (function(v799){
7676         ((v799)["fname"] = "COMPILE-FUNCALL");
7677         return v799;
7678     })((function (values,v796,v797){
7679         checkArgs(arguments, 3);
7680         return (function(){
7681             return (function(v798){
7682                 return ((((function(){
7683                     var tmp = v796;
7684                     return (typeof tmp == 'object' && 'name' in tmp);
7685                 })()?l4.value: l3.value) !== l3.value ? (((l118.fvalue(pv, v796) === l109.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){
7686                     var symbol = l307;
7687                     var value = symbol.value;
7688                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7689                     return value;
7690                 })() : l3.value) : l3.value) !== l3.value ? l127.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v796))), ".fvalue(", l129.fvalue(pv, ({car: v798, cdr: l72.fvalue(pv, (function(){
7691                     var symbol = l138;
7692                     var func = symbol.fvalue;
7693                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7694                     return func;
7695                 })(), v797)}), ", "), ")") : l127.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l100), l43.fvalue(pv, v796))), "(", l129.fvalue(pv, ({car: v798, cdr: l72.fvalue(pv, (function(){
7696                     var symbol = l138;
7697                     var func = symbol.fvalue;
7698                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7699                     return func;
7700                 })(), v797)}), ", "), ")"));
7701             })(((function(){
7702                 var symbol = l165;
7703                 var value = symbol.value;
7704                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7705                 return value;
7706             })() !== l3.value ? "values" : "pv"));
7707         })();
7708     }));
7709     return l306;
7710 })();
7711 (function(){
7712     (l215).fvalue = (function(v802){
7713         ((v802)["fname"] = "LS-COMPILE-BLOCK");
7714         return v802;
7715     })((function (values,v800,v801){
7716         checkArgsAtLeast(arguments, 2);
7717         checkArgsAtMost(arguments, 3);
7718         switch(arguments.length-1){
7719         case 1:
7720         v801=l3.value;
7721         default: break;
7722         }
7723         return (function(){
7724             return (v801 !== l3.value ? l127.fvalue(values, l215.fvalue(pv, l84.fvalue(pv, v800)), "return ", l138.fvalue(pv, (function(){
7725                 var tmp = l83.fvalue(pv, v800);
7726                 return tmp === l3.value? l3.value: tmp.car;
7727             })(), (function(){
7728                 var symbol = l165;
7729                 var value = symbol.value;
7730                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7731                 return value;
7732             })()), ";") : l130.fvalue(values, l87.fvalue(pv, (function(){
7733                 var symbol = l188;
7734                 var func = symbol.fvalue;
7735                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7736                 return func;
7737             })(), l72.fvalue(pv, (function(){
7738                 var symbol = l138;
7739                 var func = symbol.fvalue;
7740                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7741                 return func;
7742             })(), v800)), l127.fvalue(pv, ";", (function(){
7743                 var symbol = l126;
7744                 var value = symbol.value;
7745                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7746                 return value;
7747             })())));
7748         })();
7749     }));
7750     return l215;
7751 })();
7752 (function(){
7753     (l138).fvalue = (function(v812){
7754         ((v812)["fname"] = "LS-COMPILE");
7755         return v812;
7756     })((function (values,v803,v804){
7757         checkArgsAtLeast(arguments, 2);
7758         checkArgsAtMost(arguments, 3);
7759         switch(arguments.length-1){
7760         case 1:
7761         v804=l3.value;
7762         default: break;
7763         }
7764         return (function(){
7765             return (function(v805){
7766                 try {
7767                     var tmp;
7768                     tmp = l165.value;
7769                     l165.value = v805;
7770                     v805 = tmp;
7771                     return (((function(){
7772                         var tmp = v803;
7773                         return (typeof tmp == 'object' && 'name' in tmp);
7774                     })()?l4.value: l3.value) !== l3.value ? (function(v806){
7775                         return ((v806 !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l195, l170.fvalue(pv, v806))) : l3.value) !== l3.value ? l169.fvalue(values, v806) : ((function(v807){
7776                             return (v807 !== l3.value ? v807 : l85.fvalue(pv, l197, l170.fvalue(pv, v806)));
7777                         })(l117.fvalue(pv, v803)) !== l3.value ? l127.fvalue(values, l138.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v803))), ".value") : l138.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l277), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l160), l43.fvalue(pv, v803)))))));
7778                     })(l180.fvalue(pv, v803, (function(){
7779                         var symbol = l181;
7780                         var value = symbol.value;
7781                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7782                         return value;
7783                     })(), l101)) : (l78.fvalue(pv, v803) !== l3.value ? l17.fvalue(values, v803) : (((typeof(v803) == "string")?l4.value: l3.value) !== l3.value ? l127.fvalue(values, "\"", l141.fvalue(pv, v803), "\"") : (((function(){
7784                         var x = v803;
7785                         return typeof x === 'object' && 'length' in x;
7786                     })()?l4.value: l3.value) !== l3.value ? l224.fvalue(values, v803) : (l58.fvalue(pv, v803) !== l3.value ? (function(v808,v809){
7787                         return (l93.fvalue(pv, v808, (function(){
7788                             var symbol = l199;
7789                             var value = symbol.value;
7790                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7791                             return value;
7792                         })()) !== l3.value ? (function(v810){
7793                             return (function(){
7794                                 var f = v810;
7795                                 var args = [values];
7796                                 var tail = (v809);
7797                                 while (tail != l3.value){
7798                                     args.push(tail.car);
7799                                     tail = tail.cdr;
7800                                 }
7801                                 return f.apply(this, args);
7802                             })();
7803                         })(l40.fvalue(pv, l93.fvalue(pv, v808, (function(){
7804                             var symbol = l199;
7805                             var value = symbol.value;
7806                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7807                             return value;
7808                         })()))) : ((l93.fvalue(pv, v808, (function(){
7809                             var symbol = l255;
7810                             var value = symbol.value;
7811                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7812                             return value;
7813                         })()) !== l3.value ? l27.fvalue(pv, l193.fvalue(pv, v808, l100, l196)) : l3.value) !== l3.value ? (function(v811){
7814                             return (function(){
7815                                 var f = v811;
7816                                 var args = [values];
7817                                 var tail = (v809);
7818                                 while (tail != l3.value){
7819                                     args.push(tail.car);
7820                                     tail = tail.cdr;
7821                                 }
7822                                 return f.apply(this, args);
7823                             })();
7824                         })(l40.fvalue(pv, l93.fvalue(pv, v808, (function(){
7825                             var symbol = l255;
7826                             var value = symbol.value;
7827                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7828                             return value;
7829                         })()))) : (l191.fvalue(pv, v808) !== l3.value ? l138.fvalue(values, l305.fvalue(pv, v803), v804) : l306.fvalue(values, v808, v809))));
7830                     })((function(){
7831                         var tmp = v803;
7832                         return tmp === l3.value? l3.value: tmp.car;
7833                     })(),(function(){
7834                         var tmp = v803;
7835                         return tmp === l3.value? l3.value: tmp.cdr;
7836                     })()) : (function(){
7837                         throw "How should I compile this?";
7838                     })())))));
7839                 }
7840                 finally {
7841                     l165.value = v805;
7842                 }
7843             })(v804);
7844         })();
7845     }));
7846     return l138;
7847 })();
7848 var l308 = {name: "LS-COMPILE-TOPLEVEL"};
7849 (function(){
7850     (l308).fvalue = (function(v819){
7851         ((v819)["fname"] = "LS-COMPILE-TOPLEVEL");
7852         return v819;
7853     })((function (values,v813,v814){
7854         checkArgsAtLeast(arguments, 2);
7855         checkArgsAtMost(arguments, 3);
7856         switch(arguments.length-1){
7857         case 1:
7858         v814=l3.value;
7859         default: break;
7860         }
7861         return (function(){
7862             return (function(v815){
7863                 try {
7864                     var tmp;
7865                     tmp = l186.value;
7866                     l186.value = v815;
7867                     v815 = tmp;
7868                     return ((((function(){
7869                         var tmp = v813;
7870                         return (typeof tmp == 'object' && 'car' in tmp);
7871                     })()?l4.value: l3.value) !== l3.value ? (((function(){
7872                         var tmp = v813;
7873                         return tmp === l3.value? l3.value: tmp.car;
7874                     })() === l230)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v817){
7875                         return l129.fvalue(values, l87.fvalue(pv, (function(){
7876                             var symbol = l188;
7877                             var func = symbol.fvalue;
7878                             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7879                             return func;
7880                         })(), v817));
7881                     })(l72.fvalue(pv, (function (values,v816){
7882                         checkArgs(arguments, 2);
7883                         return l308.fvalue(values, v816, l4.value);
7884                     }), (function(){
7885                         var tmp = v813;
7886                         return tmp === l3.value? l3.value: tmp.cdr;
7887                     })())) : (function(v818){
7888                         return l127.fvalue(values, l130.fvalue(pv, l189.fvalue(pv), l127.fvalue(pv, ";", (function(){
7889                             var symbol = l126;
7890                             var value = symbol.value;
7891                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7892                             return value;
7893                         })())), (v818 !== l3.value ? l127.fvalue(pv, v818, ";", (function(){
7894                             var symbol = l126;
7895                             var value = symbol.value;
7896                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7897                             return value;
7898                         })()) : ""));
7899                     })(l138.fvalue(pv, v813, v814)));
7900                 }
7901                 finally {
7902                     l186.value = v815;
7903                 }
7904             })(l3.value);
7905         })();
7906     }));
7907     return l308;
7908 })();
7909 (function(){
7910     (l229).fvalue = (function(v821){
7911         ((v821)["fname"] = "EVAL");
7912         return v821;
7913     })((function (values,v820){
7914         checkArgs(arguments, 2);
7915         return (function(){
7916             return (function(){
7917                 var string = l308.fvalue(pv, v820, l4.value);
7918                 if (typeof string != 'string')
7919                     throw 'The value ' + string + ' is not a type string.';
7920                 return (function(){
7921                     var v = eval.apply(window, [string]);
7922                     if (typeof v !== 'object' || !('multiple-value' in v)){
7923                         v = [v];
7924                         v['multiple-value'] = true;
7925                     }
7926                     return values.apply(this, v);
7927                 })();
7928             })();
7929         })();
7930     }));
7931     return l229;
7932 })();
7933 var l309 = {name: "&BODY"};
7934 var l310 = QIList(l204,l203,l309,l20,l15,l119,l60,l61,l21,l22,l23,l266,l268,l19,l19,l265,l267,l53,l63,l289,l301,l300,l302,l93,l44,l177,l18,l18,l84,l32,l38,l36,l33,l30,l30,l51,l242,l34,l37,l35,l31,l31,l287,l76,l77,l75,l50,l28,l29,l74,l46,l2,l9,l11,l1,l8,l89,l97,l67,l68,l99,l48,l49,l52,l280,l26,l281,l291,l229,l92,l124,l96,l109,l122,l39,l42,l276,l288,l100,l297,l16,l125,l249,l73,l201,l120,l45,l78,l78,l123,l117,l5,l83,l70,l234,l237,l105,l43,l58,l299,l106,l274,l72,l85,l80,l262,l102,l251,l103,l252,l3,l27,l82,l81,l12,l269,l54,l110,l112,l108,l158,l79,l140,l143,l198,l55,l56,l230,l66,l47,l160,l86,l87,l88,l13,l241,l64,l65,l271,l272,l40,l217,l218,l91,l284,l94,l95,l283,l90,l226,l275,l118,l278,l277,l273,l4,l248,l41,l243,l25,l7,l250,l135,l134,l101,l142,l6,l98,l298,l24,l3);
7935 l124.fvalue(values, l310);
7936 ((l119).value = (function(){
7937     var symbol = l115;
7938     var value = symbol.value;
7939     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7940     return value;
7941 })());
7942 (function(){
7943     var string = "var lisp";
7944     if (typeof string != 'string')
7945         throw 'The value ' + string + ' is not a type string.';
7946     return (function(){
7947         var v = eval.apply(window, [string]);
7948         if (typeof v !== 'object' || !('multiple-value' in v)){
7949             v = [v];
7950             v['multiple-value'] = true;
7951         }
7952         return values.apply(this, v);
7953     })();
7954 })();
7955 (lisp = {});
7956 (lisp.read = (function(){
7957     var symbol = l164;
7958     var func = symbol.fvalue;
7959     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7960     return func;
7961 })());
7962 (lisp.print = (function(){
7963     var symbol = l140;
7964     var func = symbol.fvalue;
7965     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7966     return func;
7967 })());
7968 (lisp.eval = (function(){
7969     var symbol = l229;
7970     var func = symbol.fvalue;
7971     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7972     return func;
7973 })());
7974 (lisp.compile = (function (values,v822){
7975     checkArgs(arguments, 2);
7976     return l308.fvalue(values, v822, l4.value);
7977 }));
7978 (lisp.evalString = (function (values,v823){
7979     checkArgs(arguments, 2);
7980     return l229.fvalue(values, l164.fvalue(pv, v823));
7981 }));
7982 (lisp.compileString = (function (values,v824){
7983     checkArgs(arguments, 2);
7984     return l308.fvalue(values, l164.fvalue(pv, v824), l4.value);
7985 }));
7986 var l311 = QIList(QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l209,"l209"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3);
7987 var l312 = {name: "OP"};
7988 var l313 = {name: "SYM"};
7989 var l314 = {name: "X"};
7990 var l315 = {name: "ARGS"};
7991 var l316 = {name: "BODY"};
7992 var l317 = {name: "DECLS"};
7993 var l318 = {name: "DECL"};
7994 var l319 = {name: "NAME"};
7995 var l320 = {name: "ARG"};
7996 var l321 = {name: "FORM"};
7997 var l322 = {name: "PACKAGE-DESIGNATOR"};
7998 var l323 = {name: "VALUE-FROM"};
7999 var l324 = {name: "VARIABLES"};
8000 var l325 = {name: "VARLIST"};
8001 var l326 = {name: "ENDLIST"};
8002 var l327 = {name: "V"};
8003 var l328 = {name: "PAIRS"};
8004 var l329 = {name: "ASSIGNMENTS"};
8005 var l330 = {name: "VALUE"};
8006 var l331 = {name: "FORM1"};
8007 var l332 = {name: "RESULT"};
8008 var l333 = {name: "FORMS"};
8009 var l334 = {name: "G"};
8010 var l335 = {name: "CLAUSULES"};
8011 var l336 = {name: "!FORM"};
8012 var l337 = {name: "CLAUSULE"};
8013 var l338 = {name: "ITER"};
8014 var l339 = {name: "G!TO"};
8015 var l340 = {name: "VAR"};
8016 var l341 = {name: "TO"};
8017 var l342 = {name: "G!LIST"};
8018 var l343 = {name: "PLACE"};
8019 var l344 = {name: "DELTA"};
8020 var l345 = {name: "CONDITION"};
8021 var l346 = {name: "DOCSTRING"};
8022 var l347 = QIList(QIList(QIList(l255,l101,l3,QIList(l195,l3),l3),QIList(l245,l101,l3,QIList(l195,l3),l3),QIList(l244,l101,l3,QIList(l195,l3),l3),QIList(l238,l101,l3,QIList(l195,l3),l3),QIList(l227,l101,l3,QIList(l195,l3),l3),QIList(l222,l101,l3,QIList(l195,l3),l3),QIList(l221,l101,l3,QIList(l195,l3),l3),QIList(l202,l101,l3,QIList(l195,l3),l3),QIList(l199,l101,l3,QIList(l195,l3),l3),QIList(l186,l101,l3,QIList(l195,l3),l3),QIList(l182,l101,l3,QIList(l195,l3),l3),QIList(l181,l101,l3,QIList(l195,l3),l3),QIList(l165,l101,l3,QIList(l195,l3),l3),QIList(l159,l101,l3,QIList(l195,l3),l3),QIList(l126,l101,l3,QIList(l195,l3),l3),QIList(l119,l101,l3,QIList(l195,l3),l3),QIList(l116,l101,l3,QIList(l195,l3),l3),QIList(l115,l101,l3,QIList(l195,l3),l3),QIList(l114,l101,l3,QIList(l195,l3),l3),QIList(l104,l101,l3,QIList(l195,l3),l3),QIList(l15,l101,l3,QIList(l195,l3),l3),QIList(l4,l101,l3,QIList(l195,l197,l3),l3),QIList(l3,l101,l3,QIList(l195,l197,l3),l3),l3),QIList(QIList(l264,l191,QIList(l100,QIList(l5,QIList(l312,l313,l3),QIList(l161,QIList(l256,QIList(l163,l312,l3),QIList(l314,l204,l315,l3),QIList(l234,QIList(QIList(l315,QIList(l28,l314,l315,l3),l3),l3),QIList(l260,l315,QIList(l137,QIList(l263,l315,QIList(l163,l313,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l260,l191,QIList(l100,QIList(l5,QIList(l315,l204,l316,l3),QIList(l7,QIList(l273,l315,l3),QIList(l291,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l161,QIList(l259,QIList(l163,l315,l3),QIList(l5,QIList(QIList(l163,l315,l3),l3),QIList(l127,"return ",QIList(l162,l316,l3),";",l126,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l258,l191,QIList(l100,QIList(l5,QIList(l317,l204,l316,l3),QIList(l161,QIList(l139,QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l127,"var ",QIList(l163,QIList(l39,l318,l3),l3)," = ",QIList(l163,QIList(l41,l318,l3),l3),";",l126,l3),l3),l3),l317,l3),l3),QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l127,"if (typeof ",QIList(l163,QIList(l39,l318,l3),l3)," != '",QIList(l163,QIList(l40,l318,l3),l3),"')",l126,QIList(l136,"throw 'The value ' + ",QIList(l163,QIList(l39,l318,l3),l3)," + ' is not a type ",QIList(l163,QIList(l40,l318,l3),l3),".';",l126,l3),l3),l3),l3),l317,l3),l3),QIList(l127,"return ",QIList(l230,QIList(l162,l316,l3),l3),";",l126,l3),l3),l3),l3),l3),l3,l3),QIList(l257,l191,QIList(l100,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l230,QIList(l256,QIList(l163,l319,l3),QIList(l163,l315,l3),QIList(l234,QIList(l163,QIList(l72,QIList(l5,QIList(l320,l3),QIList(l161,QIList(QIList(l163,l320,l3),QIList(l138,QIList(l163,l320,l3),l3),l3),l3),l3),l315,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l256,l191,QIList(l100,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l47,QIList(l43,QIList(l160,QIList(l163,l319,l3),l3),QIList(l5,QIList(l163,l315,l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l255,l3),l3),l3),l3),l3,l3),QIList(l161,l191,QIList(l100,QIList(l5,QIList(l321,l3),QIList(l253,l321,l3),l3),l3),l3,l3),QIList(l231,l191,QIList(l100,QIList(l5,QIList(l319,l315,l321,l3),QIList(l161,QIList(l200,QIList(l163,l319,l3),QIList(l163,l315,l3),QIList(l138,QIList(l163,l321,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l200,l191,QIList(l100,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l47,QIList(l43,QIList(l160,QIList(l163,l319,l3),l3),QIList(l5,QIList(l163,l315,l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l199,l3),l3),l3),l3),l3,l3),QIList(l139,l191,QIList(l100,QIList(l5,QIList(l204,l316,l3),QIList(l161,QIList(l127,"(function(){",l126,QIList(l136,QIList(l162,l316,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l128,l191,QIList(l100,QIList(l5,QIList(l101,l204,l321,l3),QIList(l161,QIList(l218,QIList(l163,l101,l3),QIList(l127,QIList(l163,l101,l3),QIList(l230,QIList(l162,l321,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l120,l191,QIList(l100,QIList(l5,QIList(l322,l3),QIList(l161,QIList(l228,QIList(l218,l119,QIList(l107,QIList(l163,l322,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l103,l191,QIList(l100,QIList(l5,QIList(l323,l3),QIList(l161,QIList(l251,QIList(l100,l43,l3),QIList(l163,l323,l3),l3),l3),l3),l3),l3,l3),QIList(l102,l191,QIList(l100,QIList(l5,QIList(l324,l323,l204,l316,l3),QIList(l161,QIList(l251,QIList(l5,QIList(l203,QIList(l162,l324,l3),l204,QIList(l163,QIList(l16,l3),l3),l3),QIList(l162,l316,l3),l3),QIList(l163,l323,l3),l3),l3),l3),l3),l3,l3),QIList(l68,l191,QIList(l100,QIList(l5,QIList(l325,l326,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l237,QIList(l163,QIList(l72,QIList(l5,QIList(l314,l3),QIList(l43,QIList(l39,l314,l3),QIList(l40,l314,l3),l3),l3),l325,l3),l3),QIList(l14,l4,QIList(l6,QIList(l163,QIList(l30,l326,l3),l3),QIList(l13,QIList(l230,QIList(l163,QIList(l31,l326,l3),l3),l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l218,QIList(l162,QIList(l289,QIList(l100,l63,l3),QIList(l72,QIList(l5,QIList(l327,l3),QIList(l53,QIList(l29,QIList(l35,l327,l3),l3),QIList(l43,QIList(l39,l327,l3),QIList(l41,l327,l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l191,QIList(l100,QIList(l5,QIList(l325,l326,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(l163,QIList(l72,QIList(l5,QIList(l314,l3),QIList(l43,QIList(l39,l314,l3),QIList(l40,l314,l3),l3),l3),l325,l3),l3),QIList(l14,l4,QIList(l6,QIList(l163,QIList(l30,l326,l3),l3),QIList(l13,QIList(l230,QIList(l163,QIList(l31,l326,l3),l3),l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l66,QIList(l162,QIList(l289,QIList(l100,l63,l3),QIList(l72,QIList(l5,QIList(l327,l3),QIList(l53,QIList(l29,QIList(l35,l327,l3),l3),QIList(l43,QIList(l39,l327,l3),QIList(l41,l327,l3),l3),l3),l3),l325,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l66,l191,QIList(l100,QIList(l5,QIList(l204,l328,l3),QIList(l234,QIList(QIList(l329,QIList(l160,l3,l3),l3),l3),QIList(l14,l4,QIList(l50,QIList(QIList(l12,l328,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l328,l3),l3),QIList(l291,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l234,QIList(QIList(l101,QIList(l30,l328,l3),l3),QIList(l330,QIList(l33,l328,l3),l3),l3),QIList(l47,QIList(l161,QIList(QIList(l163,l101,l3),QIList(l163,QIList(l16,l3),l3),QIList(l163,l330,l3),l3),l3),l329,l3),QIList(l218,l328,QIList(l35,l328,l3),l3),l3),l3),l3),l3),QIList(l218,l329,QIList(l65,l329,l3),l3),QIList(l161,QIList(l234,QIList(l163,QIList(l72,QIList(l100,l31,l3),l329,l3),l3),QIList(l218,QIList(l162,QIList(l59,QIList(l100,l63,l3),QIList(l72,QIList(l100,l84,l3),l329,l3),QIList(l160,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l56,l191,QIList(l100,QIList(l5,QIList(l331,l332,l204,l316,l3),QIList(l161,QIList(l55,QIList(l230,QIList(l163,l331,l3),QIList(l163,l332,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3,l3),QIList(l55,l191,QIList(l100,QIList(l5,QIList(l321,l204,l316,l3),QIList(l234,QIList(QIList(l330,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l330,l3),QIList(l163,l321,l3),l3),l3),QIList(l162,l316,l3),QIList(l163,l330,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l191,QIList(l100,QIList(l5,QIList(l204,l333,l3),QIList(l50,QIList(QIList(l12,l333,l3),l3,l3),QIList(QIList(l12,QIList(l31,l333,l3),l3),QIList(l30,l333,l3),l3),QIList(l4,QIList(l234,QIList(QIList(l334,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l334,l3),QIList(l163,QIList(l30,l333,l3),l3),l3),l3),QIList(l201,QIList(l163,l334,l3),QIList(l163,l334,l3),QIList(l54,QIList(l162,QIList(l31,l333,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l191,QIList(l100,QIList(l5,QIList(l204,l333,l3),QIList(l50,QIList(QIList(l12,l333,l3),l4,l3),QIList(QIList(l12,QIList(l31,l333,l3),l3),QIList(l30,l333,l3),l3),QIList(l4,QIList(l161,QIList(l201,QIList(l163,QIList(l30,l333,l3),l3),QIList(l53,QIList(l162,QIList(l31,l333,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l191,QIList(l100,QIList(l5,QIList(l321,l204,l335,l3),QIList(l161,QIList(l51,QIList(l163,l321,l3),QIList(l162,QIList(l63,l335,QIList(l161,QIList(QIList(l4,QIList(l291,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l191,QIList(l100,QIList(l5,QIList(l321,l204,l335,l3),QIList(l234,QIList(QIList(l336,QIList(l16,l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l336,l3),QIList(l163,l321,l3),l3),l3),QIList(l50,QIList(l162,QIList(l72,QIList(l5,QIList(l337,l3),QIList(l201,QIList(l280,QIList(l30,l337,l3),l4,l3),l337,QIList(l161,QIList(QIList(l26,QIList(l163,l336,l3),QIList(l160,QIList(l163,QIList(l30,l337,l3),l3),l3),l3),QIList(l162,QIList(l31,l337,l3),l3),l3),l3),l3),l3),l335,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l191,QIList(l100,QIList(l5,QIList(l204,l335,l3),QIList(l201,QIList(l12,l335,l3),l3,QIList(l201,QIList(l280,QIList(l32,l335,l3),l4,l3),QIList(l161,QIList(l230,QIList(l162,QIList(l34,l335,l3),l3),l3),l3),QIList(l161,QIList(l201,QIList(l163,QIList(l32,l335,l3),l3),QIList(l230,QIList(l162,QIList(l34,l335,l3),l3),l3),QIList(l50,QIList(l162,QIList(l31,l335,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l191,QIList(l100,QIList(l5,QIList(l338,l204,l316,l3),QIList(l234,QIList(QIList(l339,QIList(l16,l3),l3),QIList(l340,QIList(l39,l338,l3),l3),QIList(l341,QIList(l40,l338,l3),l3),QIList(l332,QIList(l41,l338,l3),l3),l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(QIList(QIList(l163,l340,l3),0,l3),QIList(QIList(l163,l339,l3),QIList(l163,l341,l3),l3),l3),QIList(l225,QIList(l266,QIList(l163,l340,l3),QIList(l163,l339,l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l45,QIList(l163,l340,l3),l3),l3),QIList(l163,l332,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l191,QIList(l100,QIList(l5,QIList(l338,l204,l316,l3),QIList(l234,QIList(QIList(l340,QIList(l39,l338,l3),l3),QIList(l342,QIList(l16,l3),l3),l3),QIList(l161,QIList(l177,l3,QIList(l234,QIList(QIList(QIList(l163,l342,l3),QIList(l163,QIList(l40,l338,l3),l3),l3),QIList(QIList(l163,l340,l3),l3,l3),l3),QIList(l225,QIList(l163,l342,l3),QIList(l218,QIList(l163,l340,l3),QIList(l30,QIList(l163,l342,l3),l3),l3),QIList(l248,QIList(l162,l316,l3),l3),QIList(l218,QIList(l163,l342,l3),QIList(l31,QIList(l163,l342,l3),l3),l3),l3),QIList(l163,QIList(l41,l338,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l191,QIList(l100,QIList(l5,QIList(l314,l343,l3),QIList(l161,QIList(l218,QIList(l163,l343,l3),QIList(l28,QIList(l163,l314,l3),QIList(l163,l343,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l191,QIList(l100,QIList(l5,QIList(l314,l203,QIList(l344,1,l3),l3),QIList(l161,QIList(l218,QIList(l163,l314,l3),QIList(l61,QIList(l163,l314,l3),QIList(l163,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l45,l191,QIList(l100,QIList(l5,QIList(l314,l203,QIList(l344,1,l3),l3),QIList(l161,QIList(l218,QIList(l163,l314,l3),QIList(l60,QIList(l163,l314,l3),QIList(l163,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l191,QIList(l100,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l177,l3,QIList(l225,QIList(l163,l345,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l191,QIList(l100,QIList(l5,QIList(l203,l330,l3),QIList(l161,QIList(l241,l3,QIList(l163,l330,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l191,QIList(l100,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l230,QIList(l276,QIList(l160,QIList(l163,l319,l3),l3),QIList(l10,QIList(l163,QIList(l275,l319,l3),l3),QIList(l163,l315,l3),QIList(l162,QIList(l201,QIList(l53,QIList(l283,QIList(l30,l316,l3),l3),QIList(l27,QIList(l12,QIList(l31,l316,l3),l3),l3),l3),QIList(l161,QIList(QIList(l163,QIList(l30,l316,l3),l3),QIList(l177,QIList(l163,l319,l3),QIList(l162,QIList(l31,l316,l3),l3),l3),l3),l3),QIList(l161,QIList(QIList(l177,QIList(l163,l319,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l191,QIList(l100,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l234,QIList(QIList(l314,QIList(l16,"FN",l3),l3),l3),QIList(l161,QIList(l234,QIList(QIList(QIList(l163,l314,l3),QIList(l5,QIList(l163,l315,l3),QIList(l162,l316,l3),l3),l3),l3),QIList(l295,QIList(l163,l314,l3),"fname",QIList(l163,l319,l3),l3),QIList(l163,l314,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l191,QIList(l100,QIList(l5,QIList(l319,l330,l203,l346,l3),QIList(l161,QIList(l230,QIList(l218,QIList(l163,l319,l3),QIList(l163,l330,l3),l3),QIList(l162,QIList(l6,QIList(l283,l346,l3),QIList(l161,QIList(QIList(l295,QIList(l160,QIList(l163,l319,l3),l3),"vardoc",QIList(l163,l346,l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l191,QIList(l100,QIList(l5,QIList(l319,l330,l203,l346,l3),QIList(l161,QIList(l230,QIList(l2,QIList(l195,QIList(l163,l319,l3),l3),l3),QIList(l7,QIList(l18,QIList(l160,QIList(l163,l319,l3),l3),l3),QIList(l218,QIList(l163,l319,l3),QIList(l163,l330,l3),l3),l3),QIList(l162,QIList(l6,QIList(l283,l346,l3),QIList(l161,QIList(QIList(l295,QIList(l160,QIList(l163,l319,l3),l3),"vardoc",QIList(l163,l346,l3),l3),l3),l3),l3),l3),QIList(l160,QIList(l163,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l191,QIList(l100,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l201,QIList(l163,l345,l3),l3,QIList(l230,QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l191,QIList(l100,QIList(l5,QIList(l345,l204,l316,l3),QIList(l161,QIList(l201,QIList(l163,l345,l3),QIList(l230,QIList(l162,l316,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l191,QIList(l100,QIList(l5,QIList(l315,l204,l316,l3),QIList(l161,QIList(l100,QIList(l5,QIList(l163,l315,l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l191,QIList(l100,QIList(l5,QIList(l204,l317,l3),QIList(l161,QIList(l228,QIList(l162,QIList(l72,QIList(l5,QIList(l318,l3),QIList(l161,QIList(l194,QIList(l160,QIList(l163,l318,l3),l3),l3),l3),l3),l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l191,QIList(l100,QIList(l5,QIList(l319,l315,l204,l316,l3),QIList(l161,QIList(l228,QIList(l190,QIList(l160,QIList(l163,l319,l3),l3),QIList(l160,QIList(l100,QIList(l5,QIList(l163,QIList(l72,QIList(l100,QIList(l5,QIList(l314,l3),QIList(l201,QIList(l280,l314,QIList(l160,l309,l3),l3),QIList(l160,l204,l3),l314,l3),l3),l3),l315,l3),l3),QIList(l162,l316,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3);
8023 (function(){
8024     l121.fvalue(pv, l309);
8025     l121.fvalue(pv, l308);
8026     l121.fvalue(pv, l307);
8027     l121.fvalue(pv, l306);
8028     l121.fvalue(pv, l305);
8029     l121.fvalue(pv, l304);
8030     l121.fvalue(pv, l303);
8031     l121.fvalue(pv, l302);
8032     l121.fvalue(pv, l301);
8033     l121.fvalue(pv, l300);
8034     l121.fvalue(pv, l299);
8035     l121.fvalue(pv, l298);
8036     l121.fvalue(pv, l297);
8037     l121.fvalue(pv, l296);
8038     l121.fvalue(pv, l295);
8039     l121.fvalue(pv, l294);
8040     l121.fvalue(pv, l293);
8041     l121.fvalue(pv, l292);
8042     l121.fvalue(pv, l291);
8043     l121.fvalue(pv, l290);
8044     l121.fvalue(pv, l289);
8045     l121.fvalue(pv, l288);
8046     l121.fvalue(pv, l287);
8047     l121.fvalue(pv, l286);
8048     l121.fvalue(pv, l285);
8049     l121.fvalue(pv, l284);
8050     l121.fvalue(pv, l283);
8051     l121.fvalue(pv, l282);
8052     l121.fvalue(pv, l281);
8053     l121.fvalue(pv, l280);
8054     l121.fvalue(pv, l279);
8055     l121.fvalue(pv, l278);
8056     l121.fvalue(pv, l277);
8057     l121.fvalue(pv, l276);
8058     l121.fvalue(pv, l275);
8059     l121.fvalue(pv, l274);
8060     l121.fvalue(pv, l273);
8061     l121.fvalue(pv, l272);
8062     l121.fvalue(pv, l271);
8063     l121.fvalue(pv, l270);
8064     l121.fvalue(pv, l269);
8065     l121.fvalue(pv, l268);
8066     l121.fvalue(pv, l267);
8067     l121.fvalue(pv, l266);
8068     l121.fvalue(pv, l265);
8069     l121.fvalue(pv, l264);
8070     l121.fvalue(pv, l263);
8071     l121.fvalue(pv, l262);
8072     l121.fvalue(pv, l261);
8073     l121.fvalue(pv, l260);
8074     l121.fvalue(pv, l259);
8075     l121.fvalue(pv, l258);
8076     l121.fvalue(pv, l257);
8077     l121.fvalue(pv, l256);
8078     l121.fvalue(pv, l255);
8079     l121.fvalue(pv, l254);
8080     l121.fvalue(pv, l253);
8081     l121.fvalue(pv, l252);
8082     l121.fvalue(pv, l251);
8083     l121.fvalue(pv, l250);
8084     l121.fvalue(pv, l249);
8085     l121.fvalue(pv, l248);
8086     l121.fvalue(pv, l247);
8087     l121.fvalue(pv, l246);
8088     l121.fvalue(pv, l245);
8089     l121.fvalue(pv, l244);
8090     l121.fvalue(pv, l243);
8091     l121.fvalue(pv, l242);
8092     l121.fvalue(pv, l241);
8093     l121.fvalue(pv, l240);
8094     l121.fvalue(pv, l239);
8095     l121.fvalue(pv, l238);
8096     l121.fvalue(pv, l237);
8097     l121.fvalue(pv, l236);
8098     l121.fvalue(pv, l235);
8099     l121.fvalue(pv, l234);
8100     l121.fvalue(pv, l233);
8101     l121.fvalue(pv, l232);
8102     l121.fvalue(pv, l231);
8103     l121.fvalue(pv, l230);
8104     l121.fvalue(pv, l229);
8105     l121.fvalue(pv, l228);
8106     l121.fvalue(pv, l227);
8107     l121.fvalue(pv, l226);
8108     l121.fvalue(pv, l225);
8109     l121.fvalue(pv, l224);
8110     l121.fvalue(pv, l223);
8111     l121.fvalue(pv, l222);
8112     l121.fvalue(pv, l221);
8113     l121.fvalue(pv, l220);
8114     l121.fvalue(pv, l219);
8115     l121.fvalue(pv, l218);
8116     l121.fvalue(pv, l217);
8117     l121.fvalue(pv, l216);
8118     l121.fvalue(pv, l215);
8119     l121.fvalue(pv, l214);
8120     l121.fvalue(pv, l213);
8121     l121.fvalue(pv, l212);
8122     l121.fvalue(pv, l211);
8123     l121.fvalue(pv, l210);
8124     l121.fvalue(pv, l209);
8125     l121.fvalue(pv, l208);
8126     l121.fvalue(pv, l207);
8127     l121.fvalue(pv, l206);
8128     l121.fvalue(pv, l204);
8129     l121.fvalue(pv, l203);
8130     l121.fvalue(pv, l202);
8131     l121.fvalue(pv, l201);
8132     l121.fvalue(pv, l200);
8133     l121.fvalue(pv, l199);
8134     l121.fvalue(pv, l198);
8135     l121.fvalue(pv, l197);
8136     l121.fvalue(pv, l196);
8137     l121.fvalue(pv, l195);
8138     l121.fvalue(pv, l194);
8139     l121.fvalue(pv, l193);
8140     l121.fvalue(pv, l192);
8141     l121.fvalue(pv, l191);
8142     l121.fvalue(pv, l190);
8143     l121.fvalue(pv, l189);
8144     l121.fvalue(pv, l188);
8145     l121.fvalue(pv, l187);
8146     l121.fvalue(pv, l186);
8147     l121.fvalue(pv, l185);
8148     l121.fvalue(pv, l184);
8149     l121.fvalue(pv, l183);
8150     l121.fvalue(pv, l182);
8151     l121.fvalue(pv, l181);
8152     l121.fvalue(pv, l180);
8153     l121.fvalue(pv, l179);
8154     l121.fvalue(pv, l178);
8155     l121.fvalue(pv, l177);
8156     l121.fvalue(pv, l176);
8157     l121.fvalue(pv, l175);
8158     l121.fvalue(pv, l174);
8159     l121.fvalue(pv, l173);
8160     l121.fvalue(pv, l172);
8161     l121.fvalue(pv, l171);
8162     l121.fvalue(pv, l170);
8163     l121.fvalue(pv, l169);
8164     l121.fvalue(pv, l168);
8165     l121.fvalue(pv, l167);
8166     l121.fvalue(pv, l166);
8167     l121.fvalue(pv, l165);
8168     l121.fvalue(pv, l164);
8169     l121.fvalue(pv, l163);
8170     l121.fvalue(pv, l162);
8171     l121.fvalue(pv, l161);
8172     l121.fvalue(pv, l160);
8173     l121.fvalue(pv, l159);
8174     l121.fvalue(pv, l158);
8175     l121.fvalue(pv, l157);
8176     l121.fvalue(pv, l156);
8177     l121.fvalue(pv, l155);
8178     l121.fvalue(pv, l154);
8179     l121.fvalue(pv, l153);
8180     l121.fvalue(pv, l152);
8181     l121.fvalue(pv, l151);
8182     l121.fvalue(pv, l150);
8183     l121.fvalue(pv, l149);
8184     l121.fvalue(pv, l148);
8185     l121.fvalue(pv, l147);
8186     l121.fvalue(pv, l146);
8187     l121.fvalue(pv, l145);
8188     l121.fvalue(pv, l144);
8189     l121.fvalue(pv, l143);
8190     l121.fvalue(pv, l142);
8191     l121.fvalue(pv, l141);
8192     l121.fvalue(pv, l140);
8193     l121.fvalue(pv, l139);
8194     l121.fvalue(pv, l138);
8195     l121.fvalue(pv, l137);
8196     l121.fvalue(pv, l136);
8197     l121.fvalue(pv, l135);
8198     l121.fvalue(pv, l134);
8199     l121.fvalue(pv, l133);
8200     l121.fvalue(pv, l132);
8201     l121.fvalue(pv, l131);
8202     l121.fvalue(pv, l130);
8203     l121.fvalue(pv, l129);
8204     l121.fvalue(pv, l128);
8205     l121.fvalue(pv, l127);
8206     l121.fvalue(pv, l126);
8207     l121.fvalue(pv, l125);
8208     l121.fvalue(pv, l124);
8209     l121.fvalue(pv, l123);
8210     l121.fvalue(pv, l122);
8211     l121.fvalue(pv, l121);
8212     l121.fvalue(pv, l120);
8213     l121.fvalue(pv, l119);
8214     l121.fvalue(pv, l118);
8215     l121.fvalue(pv, l117);
8216     l121.fvalue(pv, l116);
8217     l121.fvalue(pv, l115);
8218     l121.fvalue(pv, l114);
8219     l121.fvalue(pv, l113);
8220     l121.fvalue(pv, l112);
8221     l121.fvalue(pv, l111);
8222     l121.fvalue(pv, l110);
8223     l121.fvalue(pv, l109);
8224     l121.fvalue(pv, l108);
8225     l121.fvalue(pv, l107);
8226     l121.fvalue(pv, l106);
8227     l121.fvalue(pv, l105);
8228     l121.fvalue(pv, l104);
8229     l121.fvalue(pv, l103);
8230     l121.fvalue(pv, l102);
8231     l121.fvalue(pv, l101);
8232     l121.fvalue(pv, l100);
8233     l121.fvalue(pv, l99);
8234     l121.fvalue(pv, l98);
8235     l121.fvalue(pv, l97);
8236     l121.fvalue(pv, l96);
8237     l121.fvalue(pv, l95);
8238     l121.fvalue(pv, l94);
8239     l121.fvalue(pv, l93);
8240     l121.fvalue(pv, l92);
8241     l121.fvalue(pv, l91);
8242     l121.fvalue(pv, l90);
8243     l121.fvalue(pv, l89);
8244     l121.fvalue(pv, l88);
8245     l121.fvalue(pv, l87);
8246     l121.fvalue(pv, l86);
8247     l121.fvalue(pv, l85);
8248     l121.fvalue(pv, l84);
8249     l121.fvalue(pv, l83);
8250     l121.fvalue(pv, l82);
8251     l121.fvalue(pv, l81);
8252     l121.fvalue(pv, l80);
8253     l121.fvalue(pv, l79);
8254     l121.fvalue(pv, l78);
8255     l121.fvalue(pv, l77);
8256     l121.fvalue(pv, l76);
8257     l121.fvalue(pv, l75);
8258     l121.fvalue(pv, l74);
8259     l121.fvalue(pv, l73);
8260     l121.fvalue(pv, l72);
8261     l121.fvalue(pv, l71);
8262     l121.fvalue(pv, l70);
8263     l121.fvalue(pv, l69);
8264     l121.fvalue(pv, l68);
8265     l121.fvalue(pv, l67);
8266     l121.fvalue(pv, l66);
8267     l121.fvalue(pv, l65);
8268     l121.fvalue(pv, l64);
8269     l121.fvalue(pv, l63);
8270     l121.fvalue(pv, l62);
8271     l121.fvalue(pv, l61);
8272     l121.fvalue(pv, l60);
8273     l121.fvalue(pv, l59);
8274     l121.fvalue(pv, l58);
8275     l121.fvalue(pv, l57);
8276     l121.fvalue(pv, l56);
8277     l121.fvalue(pv, l55);
8278     l121.fvalue(pv, l54);
8279     l121.fvalue(pv, l53);
8280     l121.fvalue(pv, l52);
8281     l121.fvalue(pv, l51);
8282     l121.fvalue(pv, l50);
8283     l121.fvalue(pv, l49);
8284     l121.fvalue(pv, l48);
8285     l121.fvalue(pv, l47);
8286     l121.fvalue(pv, l46);
8287     l121.fvalue(pv, l45);
8288     l121.fvalue(pv, l44);
8289     l121.fvalue(pv, l43);
8290     l121.fvalue(pv, l42);
8291     l121.fvalue(pv, l41);
8292     l121.fvalue(pv, l40);
8293     l121.fvalue(pv, l39);
8294     l121.fvalue(pv, l38);
8295     l121.fvalue(pv, l37);
8296     l121.fvalue(pv, l36);
8297     l121.fvalue(pv, l35);
8298     l121.fvalue(pv, l34);
8299     l121.fvalue(pv, l33);
8300     l121.fvalue(pv, l32);
8301     l121.fvalue(pv, l31);
8302     l121.fvalue(pv, l30);
8303     l121.fvalue(pv, l29);
8304     l121.fvalue(pv, l28);
8305     l121.fvalue(pv, l27);
8306     l121.fvalue(pv, l26);
8307     l121.fvalue(pv, l25);
8308     l121.fvalue(pv, l24);
8309     l121.fvalue(pv, l23);
8310     l121.fvalue(pv, l22);
8311     l121.fvalue(pv, l21);
8312     l121.fvalue(pv, l20);
8313     l121.fvalue(pv, l19);
8314     l121.fvalue(pv, l18);
8315     l121.fvalue(pv, l17);
8316     l121.fvalue(pv, l16);
8317     l121.fvalue(pv, l15);
8318     l121.fvalue(pv, l14);
8319     l121.fvalue(pv, l13);
8320     l121.fvalue(pv, l12);
8321     l121.fvalue(pv, l11);
8322     l121.fvalue(pv, l10);
8323     l121.fvalue(pv, l9);
8324     l121.fvalue(pv, l8);
8325     l121.fvalue(pv, l7);
8326     l121.fvalue(pv, l6);
8327     l121.fvalue(pv, l5);
8328     l121.fvalue(pv, l4);
8329     l121.fvalue(pv, l3);
8330     l121.fvalue(pv, l2);
8331     l121.fvalue(pv, l1);
8332     ((l221).value = l311);
8333     ((l181).value = l347);
8334     ((l182).value = 824);
8335     ((l15).value = 213);
8336     return ((l238).value = 281);
8337 })();
8338 ((l222).value = 347);