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: "*PACKAGE-LIST*"};
1695 (function(){
1696     (((l102.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l102).value = l3.value));
1697     return l102;
1698 })();
1699 var l103 = {name: "LIST-ALL-PACKAGES"};
1700 (function(){
1701     (l103).fvalue = (function(v182){
1702         ((v182)["fname"] = "LIST-ALL-PACKAGES");
1703         return v182;
1704     })((function (values){
1705         checkArgsAtMost(arguments, 1);
1706         return (function(){
1707             return (function(){
1708                 var symbol = l102;
1709                 var value = symbol.value;
1710                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1711                 return value;
1712             })();
1713         })();
1714     }));
1715     return l103;
1716 })();
1717 var l104 = {name: "MAKE-PACKAGE"};
1718 var l105 = {name: "FIND-PACKAGE-OR-FAIL"};
1719 (function(){
1720     (l104).fvalue = (function(v187){
1721         ((v187)["fname"] = "MAKE-PACKAGE");
1722         return v187;
1723     })((function (values,v183,v184){
1724         checkArgsAtLeast(arguments, 2);
1725         checkArgsAtMost(arguments, 3);
1726         switch(arguments.length-1){
1727         case 1:
1728         v184=l3.value;
1729         default: break;
1730         }
1731         return (function(){
1732             return (function(v185,v186){
1733                 ((v185)["packageName"] = v183);
1734                 ((v185)["symbols"] = {});
1735                 ((v185)["exports"] = {});
1736                 ((v185)["use"] = v186);
1737                 ((l102).value = ({car: v185, cdr: (function(){
1738                     var symbol = l102;
1739                     var value = symbol.value;
1740                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1741                     return value;
1742                 })()}));
1743                 return v185;
1744             })({},l72.fvalue(pv, (function(){
1745                 var symbol = l105;
1746                 var func = symbol.fvalue;
1747                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1748                 return func;
1749             })(), v184));
1750         })();
1751     }));
1752     return l104;
1753 })();
1754 var l106 = {name: "PACKAGEP"};
1755 (function(){
1756     (l106).fvalue = (function(v189){
1757         ((v189)["fname"] = "PACKAGEP");
1758         return v189;
1759     })((function (values,v188){
1760         checkArgs(arguments, 2);
1761         return (function(){
1762             return (((typeof (v188) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v188))?l4.value: l3.value) : l3.value);
1763         })();
1764     }));
1765     return l106;
1766 })();
1767 var l107 = {name: "FIND-PACKAGE"};
1768 var l108 = {name: "PACKAGE-NAME"};
1769 (function(){
1770     (l107).fvalue = (function(v194){
1771         ((v194)["fname"] = "FIND-PACKAGE");
1772         return v194;
1773     })((function (values,v190){
1774         checkArgs(arguments, 2);
1775         return (function(){
1776             try {
1777                 (l106.fvalue(pv, v190) !== l3.value ? (function(){
1778                     var values = mv;
1779                     throw ({type: 'block', id: 84, values: v190, message: 'Return from unknown block FIND-PACKAGE.'})
1780                 })() : l3.value);
1781                 return (function(v191){
1782                     return (function(){
1783                         try {
1784                             return (function(v192,v193){
1785                                 (function(){
1786                                     while(v192 !== l3.value){
1787                                         (v193 = (function(){
1788                                             var tmp = v192;
1789                                             return tmp === l3.value? l3.value: tmp.car;
1790                                         })());
1791                                         (function(){
1792                                             (l95.fvalue(pv, l108.fvalue(pv, v193), v191) !== l3.value ? (function(){
1793                                                 var values = mv;
1794                                                 throw ({type: 'block', id: 85, values: v193, message: 'Return from unknown block NIL.'})
1795                                             })() : l3.value);
1796                                             return l3.value;
1797                                         })();
1798                                         (v192 = (function(){
1799                                             var tmp = v192;
1800                                             return tmp === l3.value? l3.value: tmp.cdr;
1801                                         })());
1802                                     }return l3.value;
1803                                 })();
1804                                 return l3.value;
1805                             })((function(){
1806                                 var symbol = l102;
1807                                 var value = symbol.value;
1808                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1809                                 return value;
1810                             })(),l3.value);
1811                         }
1812                         catch (cf){
1813                             if (cf.type == 'block' && cf.id == 85)
1814                                 return values.apply(this, forcemv(cf.values));
1815                             else
1816                                 throw cf;
1817                         }
1818                     })();
1819                 })(l94.fvalue(pv, v190));
1820             }
1821             catch (cf){
1822                 if (cf.type == 'block' && cf.id == 84)
1823                     return values.apply(this, forcemv(cf.values));
1824                 else
1825                     throw cf;
1826             }
1827         })();
1828     }));
1829     return l107;
1830 })();
1831 (function(){
1832     (l105).fvalue = (function(v197){
1833         ((v197)["fname"] = "FIND-PACKAGE-OR-FAIL");
1834         return v197;
1835     })((function (values,v195){
1836         checkArgs(arguments, 2);
1837         return (function(){
1838             return (function(v196){
1839                 return (v196 !== l3.value ? v196 : (function(){
1840                     throw "Package unknown.";
1841                 })());
1842             })(l107.fvalue(pv, v195));
1843         })();
1844     }));
1845     return l105;
1846 })();
1847 (function(){
1848     (l108).fvalue = (function(v200){
1849         ((v200)["fname"] = "PACKAGE-NAME");
1850         return v200;
1851     })((function (values,v198){
1852         checkArgs(arguments, 2);
1853         return (function(){
1854             return (function(v199){
1855                 return (function(){
1856                     var tmp = (v199)["packageName"];
1857                     return tmp == undefined? l3.value: tmp ;
1858                 })();
1859             })(l105.fvalue(pv, v198));
1860         })();
1861     }));
1862     return l108;
1863 })();
1864 var l109 = {name: "%PACKAGE-SYMBOLS"};
1865 (function(){
1866     (l109).fvalue = (function(v203){
1867         ((v203)["fname"] = "%PACKAGE-SYMBOLS");
1868         return v203;
1869     })((function (values,v201){
1870         checkArgs(arguments, 2);
1871         return (function(){
1872             return (function(v202){
1873                 return (function(){
1874                     var tmp = (v202)["symbols"];
1875                     return tmp == undefined? l3.value: tmp ;
1876                 })();
1877             })(l105.fvalue(pv, v201));
1878         })();
1879     }));
1880     return l109;
1881 })();
1882 var l110 = {name: "PACKAGE-USE-LIST"};
1883 (function(){
1884     (l110).fvalue = (function(v206){
1885         ((v206)["fname"] = "PACKAGE-USE-LIST");
1886         return v206;
1887     })((function (values,v204){
1888         checkArgs(arguments, 2);
1889         return (function(){
1890             return (function(v205){
1891                 return (function(){
1892                     var tmp = (v205)["use"];
1893                     return tmp == undefined? l3.value: tmp ;
1894                 })();
1895             })(l105.fvalue(pv, v204));
1896         })();
1897     }));
1898     return l110;
1899 })();
1900 var l111 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"};
1901 (function(){
1902     (l111).fvalue = (function(v209){
1903         ((v209)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS");
1904         return v209;
1905     })((function (values,v207){
1906         checkArgs(arguments, 2);
1907         return (function(){
1908             return (function(v208){
1909                 return (function(){
1910                     var tmp = (v208)["exports"];
1911                     return tmp == undefined? l3.value: tmp ;
1912                 })();
1913             })(l105.fvalue(pv, v207));
1914         })();
1915     }));
1916     return l111;
1917 })();
1918 var l112 = {name: "*COMMON-LISP-PACKAGE*"};
1919 (function(){
1920     (((l112.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l112).value = l104.fvalue(pv, "CL")));
1921     return l112;
1922 })();
1923 var l113 = {name: "*USER-PACKAGE*"};
1924 (function(){
1925     (((l113.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l113).value = l104.fvalue(pv, "CL-USER", l43.fvalue(pv, (function(){
1926         var symbol = l112;
1927         var value = symbol.value;
1928         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1929         return value;
1930     })()))));
1931     return l113;
1932 })();
1933 var l114 = {name: "*KEYWORD-PACKAGE*"};
1934 (function(){
1935     (((l114.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l114).value = l104.fvalue(pv, "KEYWORD")));
1936     return l114;
1937 })();
1938 var l115 = {name: "KEYWORDP"};
1939 var l116 = {name: "SYMBOL-PACKAGE"};
1940 (function(){
1941     (l115).fvalue = (function(v211){
1942         ((v211)["fname"] = "KEYWORDP");
1943         return v211;
1944     })((function (values,v210){
1945         checkArgs(arguments, 2);
1946         return (function(){
1947             return (((function(){
1948                 var tmp = v210;
1949                 return (typeof tmp == 'object' && 'name' in tmp);
1950             })()?l4.value: l3.value) !== l3.value ? ((l116.fvalue(pv, v210) === (function(){
1951                 var symbol = l114;
1952                 var value = symbol.value;
1953                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1954                 return value;
1955             })())?l4.value: l3.value) : l3.value);
1956         })();
1957     }));
1958     return l115;
1959 })();
1960 var l117 = {name: "*PACKAGE*"};
1961 (function(){
1962     (((l117.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l117).value = (function(){
1963         var symbol = l112;
1964         var value = symbol.value;
1965         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1966         return value;
1967     })()));
1968     return l117;
1969 })();
1970 var l118 = {name: "IN-PACKAGE"};
1971 l118;
1972 var l119 = {name: "%INTERN-SYMBOL"};
1973 (function(){
1974     (l119).fvalue = (function(v214){
1975         ((v214)["fname"] = "%INTERN-SYMBOL");
1976         return v214;
1977     })((function (values,v212){
1978         checkArgs(arguments, 2);
1979         return (function(){
1980             return (function(v213){
1981                 ((v212)["package"] = (function(){
1982                     var symbol = l112;
1983                     var value = symbol.value;
1984                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1985                     return value;
1986                 })());
1987                 return ((v213)[(v212).name] = v212);
1988             })(l109.fvalue(pv, (function(){
1989                 var symbol = l112;
1990                 var value = symbol.value;
1991                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1992                 return value;
1993             })()));
1994         })();
1995     }));
1996     return l119;
1997 })();
1998 var l120 = {name: "%FIND-SYMBOL"};
1999 (function(){
2000     (l120).fvalue = (function(v222){
2001         ((v222)["fname"] = "%FIND-SYMBOL");
2002         return v222;
2003     })((function (values,v215,v216){
2004         checkArgs(arguments, 3);
2005         return (function(){
2006             try {
2007                 return (function(v217){
2008                     return (function(v218){
2009                         return ((((v215) in (v218))?l4.value: l3.value) !== l3.value ? ({car: (function(){
2010                             var tmp = (v218)[v215];
2011                             return tmp == undefined? l3.value: tmp ;
2012                         })(), cdr: l4.value}) : (function(){
2013                             return (function(v219,v220){
2014                                 (function(){
2015                                     while(v219 !== l3.value){
2016                                         (v220 = (function(){
2017                                             var tmp = v219;
2018                                             return tmp === l3.value? l3.value: tmp.car;
2019                                         })());
2020                                         (function(){
2021                                             (function(v221){
2022                                                 return ((((v215) in (v221))?l4.value: l3.value) !== l3.value ? (function(){
2023                                                     var values = mv;
2024                                                     throw ({type: 'block', id: 93, values: ({car: (function(){
2025                                                         var tmp = (v221)[v215];
2026                                                         return tmp == undefined? l3.value: tmp ;
2027                                                     })(), cdr: l4.value}), message: 'Return from unknown block %FIND-SYMBOL.'})
2028                                                 })() : l3.value);
2029                                             })(l111.fvalue(pv, v220));
2030                                             return l3.value;
2031                                         })();
2032                                         (v219 = (function(){
2033                                             var tmp = v219;
2034                                             return tmp === l3.value? l3.value: tmp.cdr;
2035                                         })());
2036                                     }return l3.value;
2037                                 })();
2038                                 return ({car: l3.value, cdr: l3.value});
2039                             })(l110.fvalue(pv, v217),l3.value);
2040                         })());
2041                     })(l109.fvalue(pv, v217));
2042                 })(l105.fvalue(pv, v216));
2043             }
2044             catch (cf){
2045                 if (cf.type == 'block' && cf.id == 93)
2046                     return values.apply(this, forcemv(cf.values));
2047                 else
2048                     throw cf;
2049             }
2050         })();
2051     }));
2052     return l120;
2053 })();
2054 var l121 = {name: "FIND-SYMBOL"};
2055 (function(){
2056     (l121).fvalue = (function(v225){
2057         ((v225)["fname"] = "FIND-SYMBOL");
2058         return v225;
2059     })((function (values,v223,v224){
2060         checkArgsAtLeast(arguments, 2);
2061         checkArgsAtMost(arguments, 3);
2062         switch(arguments.length-1){
2063         case 1:
2064         v224=(function(){
2065             var symbol = l117;
2066             var value = symbol.value;
2067             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2068             return value;
2069         })();
2070         default: break;
2071         }
2072         return (function(){
2073             return (function(){
2074                 var tmp = l120.fvalue(pv, v223, v224);
2075                 return tmp === l3.value? l3.value: tmp.car;
2076             })();
2077         })();
2078     }));
2079     return l121;
2080 })();
2081 var l122 = {name: "INTERN"};
2082 var l123 = {name: "EXPORT"};
2083 (function(){
2084     (l122).fvalue = (function(v232){
2085         ((v232)["fname"] = "INTERN");
2086         return v232;
2087     })((function (values,v226,v227){
2088         checkArgsAtLeast(arguments, 2);
2089         checkArgsAtMost(arguments, 3);
2090         switch(arguments.length-1){
2091         case 1:
2092         v227=(function(){
2093             var symbol = l117;
2094             var value = symbol.value;
2095             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2096             return value;
2097         })();
2098         default: break;
2099         }
2100         return (function(){
2101             return (function(v228){
2102                 return (function(v229){
2103                     return ((function(){
2104                         var tmp = v229;
2105                         return tmp === l3.value? l3.value: tmp.cdr;
2106                     })() !== l3.value ? (function(){
2107                         var tmp = v229;
2108                         return tmp === l3.value? l3.value: tmp.car;
2109                     })() : (function(v230){
2110                         (function(){
2111                             var tmp = (v230)[v226];
2112                             return tmp == undefined? l3.value: tmp ;
2113                         })();
2114                         return (function(v231){
2115                             ((v231)["package"] = v228);
2116                             (((v228 === (function(){
2117                                 var symbol = l114;
2118                                 var value = symbol.value;
2119                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2120                                 return value;
2121                             })())?l4.value: l3.value) !== l3.value ? (function(){
2122                                 ((v231)["value"] = v231);
2123                                 return l123.fvalue(pv, l43.fvalue(pv, v231), v228);
2124                             })() : l3.value);
2125                             return ((v230)[v226] = v231);
2126                         })((function(){
2127                             var name = v226;
2128                             if (typeof name != 'string')
2129                                 throw 'The value ' + name + ' is not a type string.';
2130                             return ({name: name});
2131                         })());
2132                     })(l109.fvalue(pv, v228)));
2133                 })(l120.fvalue(pv, v226, v228));
2134             })(l105.fvalue(pv, v227));
2135         })();
2136     }));
2137     return l122;
2138 })();
2139 (function(){
2140     (l116).fvalue = (function(v234){
2141         ((v234)["fname"] = "SYMBOL-PACKAGE");
2142         return v234;
2143     })((function (values,v233){
2144         checkArgs(arguments, 2);
2145         return (function(){
2146             (((function(){
2147                 var tmp = v233;
2148                 return (typeof tmp == 'object' && 'name' in tmp);
2149             })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
2150                 throw "it is not a symbol";
2151             })());
2152             return (function(){
2153                 var tmp = (v233)["package"];
2154                 return tmp == undefined? l3.value: tmp ;
2155             })();
2156         })();
2157     }));
2158     return l116;
2159 })();
2160 (function(){
2161     (l123).fvalue = (function(v240){
2162         ((v240)["fname"] = "EXPORT");
2163         return v240;
2164     })((function (values,v235,v236){
2165         checkArgsAtLeast(arguments, 2);
2166         checkArgsAtMost(arguments, 3);
2167         switch(arguments.length-1){
2168         case 1:
2169         v236=(function(){
2170             var symbol = l117;
2171             var value = symbol.value;
2172             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2173             return value;
2174         })();
2175         default: break;
2176         }
2177         return (function(){
2178             return (function(v237){
2179                 return (function(){
2180                     return (function(v238,v239){
2181                         (function(){
2182                             while(v238 !== l3.value){
2183                                 (v239 = (function(){
2184                                     var tmp = v238;
2185                                     return tmp === l3.value? l3.value: tmp.car;
2186                                 })());
2187                                 (function(){
2188                                     ((v237)[(v239).name] = v239);
2189                                     return l3.value;
2190                                 })();
2191                                 (v238 = (function(){
2192                                     var tmp = v238;
2193                                     return tmp === l3.value? l3.value: tmp.cdr;
2194                                 })());
2195                             }return l3.value;
2196                         })();
2197                         return l4.value;
2198                     })(v235,l3.value);
2199                 })();
2200             })(l111.fvalue(pv, v236));
2201         })();
2202     }));
2203     return l123;
2204 })();
2205 var l124 = {name: "GET-UNIVERSAL-TIME"};
2206 (function(){
2207     (l124).fvalue = (function(v241){
2208         ((v241)["fname"] = "GET-UNIVERSAL-TIME");
2209         return v241;
2210     })((function (values){
2211         checkArgsAtMost(arguments, 1);
2212         return (function(){
2213             return (function(){
2214                 var x1 = (Math.round(new Date() / 1000));
2215                 if (typeof x1 !== 'number') throw 'Not a number!';
2216                 var x2 = 2208988800;
2217                 if (typeof x2 !== 'number') throw 'Not a number!';
2218                 return x1+x2;
2219             })();
2220         })();
2221     }));
2222     return l124;
2223 })();
2224 var l125 = {name: "*NEWLINE*"};
2225 (function(){
2226     (((l125.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l125).value = l94.fvalue(pv, l75.fvalue(pv, 10))));
2227     return l125;
2228 })();
2229 var l126 = {name: "CONCAT"};
2230 (function(){
2231     (l126).fvalue = (function(v243){
2232         ((v243)["fname"] = "CONCAT");
2233         return v243;
2234     })((function (values){
2235         var v242= l3.value;
2236         for (var i = arguments.length-1; i>=1; i--)
2237             v242 = {car: arguments[i], cdr:
2238         v242};
2239         return (function(){
2240             return l59.fvalue(values, (function(){
2241                 var symbol = l71;
2242                 var func = symbol.fvalue;
2243                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2244                 return func;
2245             })(), v242, "");
2246         })();
2247     }));
2248     return l126;
2249 })();
2250 var l127 = {name: "CONCATF"};
2251 l127;
2252 var l128 = {name: "JOIN"};
2253 (function(){
2254     (l128).fvalue = (function(v246){
2255         ((v246)["fname"] = "JOIN");
2256         return v246;
2257     })((function (values,v244,v245){
2258         checkArgsAtLeast(arguments, 2);
2259         checkArgsAtMost(arguments, 3);
2260         switch(arguments.length-1){
2261         case 1:
2262         v245="";
2263         default: break;
2264         }
2265         return (function(){
2266             return (l12.fvalue(pv, v244) !== l3.value ? "" : (l12.fvalue(pv, (function(){
2267                 var tmp = v244;
2268                 return tmp === l3.value? l3.value: tmp.cdr;
2269             })()) !== l3.value ? (function(){
2270                 var tmp = v244;
2271                 return tmp === l3.value? l3.value: tmp.car;
2272             })() : l126.fvalue(values, (function(){
2273                 var tmp = v244;
2274                 return tmp === l3.value? l3.value: tmp.car;
2275             })(), v245, l128.fvalue(pv, (function(){
2276                 var tmp = v244;
2277                 return tmp === l3.value? l3.value: tmp.cdr;
2278             })(), v245))));
2279         })();
2280     }));
2281     return l128;
2282 })();
2283 var l129 = {name: "JOIN-TRAILING"};
2284 (function(){
2285     (l129).fvalue = (function(v249){
2286         ((v249)["fname"] = "JOIN-TRAILING");
2287         return v249;
2288     })((function (values,v247,v248){
2289         checkArgsAtLeast(arguments, 2);
2290         checkArgsAtMost(arguments, 3);
2291         switch(arguments.length-1){
2292         case 1:
2293         v248="";
2294         default: break;
2295         }
2296         return (function(){
2297             return (l12.fvalue(pv, v247) !== l3.value ? "" : l126.fvalue(values, (function(){
2298                 var tmp = v247;
2299                 return tmp === l3.value? l3.value: tmp.car;
2300             })(), v248, l129.fvalue(pv, (function(){
2301                 var tmp = v247;
2302                 return tmp === l3.value? l3.value: tmp.cdr;
2303             })(), v248)));
2304         })();
2305     }));
2306     return l129;
2307 })();
2308 var l130 = {name: "MAPCONCAT"};
2309 (function(){
2310     (l130).fvalue = (function(v252){
2311         ((v252)["fname"] = "MAPCONCAT");
2312         return v252;
2313     })((function (values,v250,v251){
2314         checkArgs(arguments, 3);
2315         return (function(){
2316             return l128.fvalue(values, l72.fvalue(pv, v250, v251));
2317         })();
2318     }));
2319     return l130;
2320 })();
2321 var l131 = {name: "VECTOR-TO-LIST"};
2322 (function(){
2323     (l131).fvalue = (function(v258){
2324         ((v258)["fname"] = "VECTOR-TO-LIST");
2325         return v258;
2326     })((function (values,v253){
2327         checkArgs(arguments, 2);
2328         return (function(){
2329             return (function(v254,v255){
2330                 return (function(){
2331                     return (function(v256,v257){
2332                         (function(){
2333                             while((function(){
2334                                 var x1 = v256;
2335                                 if (typeof x1 !== 'number') throw 'Not a number!';
2336                                 var x2 = v257;
2337                                 if (typeof x2 !== 'number') throw 'Not a number!';
2338                                 return (x1<x2?l4.value: l3.value);
2339                             })() !== l3.value){
2340                                 (function(){
2341                                     (v254 = ({car: (function(){
2342                                         var x = (v253)[v256];
2343                                         if (x === undefined) throw 'Out of range';
2344                                         return x;
2345                                     })(), cdr: v254}));
2346                                     return l3.value;
2347                                 })();
2348                                 (v256 = (function(){
2349                                     var x1 = v256;
2350                                     if (typeof x1 !== 'number') throw 'Not a number!';
2351                                     var x2 = 1;
2352                                     if (typeof x2 !== 'number') throw 'Not a number!';
2353                                     return x1+x2;
2354                                 })());
2355                             }return l3.value;
2356                         })();
2357                         return l65.fvalue(values, v254);
2358                     })(0,v255);
2359                 })();
2360             })(l3.value,l70.fvalue(pv, v253));
2361         })();
2362     }));
2363     return l131;
2364 })();
2365 var l132 = {name: "LIST-TO-VECTOR"};
2366 (function(){
2367     (l132).fvalue = (function(v264){
2368         ((v264)["fname"] = "LIST-TO-VECTOR");
2369         return v264;
2370     })((function (values,v259){
2371         checkArgs(arguments, 2);
2372         return (function(){
2373             return (function(v260,v261){
2374                 return (function(){
2375                     return (function(v262,v263){
2376                         (function(){
2377                             while(v262 !== l3.value){
2378                                 (v263 = (function(){
2379                                     var tmp = v262;
2380                                     return tmp === l3.value? l3.value: tmp.car;
2381                                 })());
2382                                 (function(){
2383                                     (function(){
2384                                         var x = v260;
2385                                         var i = v261;
2386                                         if (i < 0 || i >= x.length) throw 'Out of range';
2387                                         return x[i] = v263;
2388                                     })();
2389                                     (v261 = (function(){
2390                                         var x1 = v261;
2391                                         if (typeof x1 !== 'number') throw 'Not a number!';
2392                                         var x2 = 1;
2393                                         if (typeof x2 !== 'number') throw 'Not a number!';
2394                                         return x1+x2;
2395                                     })());
2396                                     return l3.value;
2397                                 })();
2398                                 (v262 = (function(){
2399                                     var tmp = v262;
2400                                     return tmp === l3.value? l3.value: tmp.cdr;
2401                                 })());
2402                             }return l3.value;
2403                         })();
2404                         return v260;
2405                     })(v259,l3.value);
2406                 })();
2407             })((function(){
2408                 var r = [];
2409                 for (var i = 0; i < l70.fvalue(pv, v259); i++)
2410                     r.push(l3.value);
2411                 return r;
2412             })(),0);
2413         })();
2414     }));
2415     return l132;
2416 })();
2417 var l133 = {name: "VALUES-LIST"};
2418 (function(){
2419     (l133).fvalue = (function(v266){
2420         ((v266)["fname"] = "VALUES-LIST");
2421         return v266;
2422     })((function (values,v265){
2423         checkArgs(arguments, 2);
2424         return (function(){
2425             return values.apply(this, l132.fvalue(pv, v265));
2426         })();
2427     }));
2428     return l133;
2429 })();
2430 var l134 = {name: "VALUES"};
2431 (function(){
2432     (l134).fvalue = (function(v268){
2433         ((v268)["fname"] = "VALUES");
2434         return v268;
2435     })((function (values){
2436         var v267= l3.value;
2437         for (var i = arguments.length-1; i>=1; i--)
2438             v267 = {car: arguments[i], cdr:
2439         v267};
2440         return (function(){
2441             return l133.fvalue(values, v267);
2442         })();
2443     }));
2444     return l134;
2445 })();
2446 var l135 = {name: "MULTIPLE-VALUE-BIND"};
2447 l135;
2448 var l136 = {name: "MULTIPLE-VALUE-LIST"};
2449 l136;
2450 var l137 = {name: "INDENT"};
2451 (function(){
2452     (l137).fvalue = (function(v275){
2453         ((v275)["fname"] = "INDENT");
2454         return v275;
2455     })((function (values){
2456         var v269= l3.value;
2457         for (var i = arguments.length-1; i>=1; i--)
2458             v269 = {car: arguments[i], cdr:
2459         v269};
2460         return (function(){
2461             return (function(v270){
2462                 return (function(v271,v272,v273){
2463                     (l79.fvalue(pv, l70.fvalue(pv, v270)) !== l3.value ? (v271 = l126.fvalue(pv, v271, "    ")) : l3.value);
2464                     (function(){
2465                         return (function(){
2466                             while((function(){
2467                                 var x1 = v272;
2468                                 if (typeof x1 !== 'number') throw 'Not a number!';
2469                                 var x2 = v273;
2470                                 if (typeof x2 !== 'number') throw 'Not a number!';
2471                                 return (x1<x2?l4.value: l3.value);
2472                             })() !== l3.value){
2473                                 (function(v274){
2474                                     return (v271 = l126.fvalue(pv, v271, v274));
2475                                 })(((l77.fvalue(pv, (function(){
2476                                     var string = v270;
2477                                     var index = v272;
2478                                     if (typeof string != 'string')
2479                                         throw 'The value ' + string + ' is not a type string.';
2480                                     if (typeof index != 'number')
2481                                         throw 'The value ' + index + ' is not a type number.';
2482                                     return string.charCodeAt(index);
2483                                 })(), 10) !== l3.value ? ((function(){
2484                                     var x1 = v272;
2485                                     if (typeof x1 !== 'number') throw 'Not a number!';
2486                                     var x2 = l23.fvalue(pv, v273);
2487                                     if (typeof x2 !== 'number') throw 'Not a number!';
2488                                     return (x1<x2?l4.value: l3.value);
2489                                 })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
2490                                     var string = v270;
2491                                     var index = l22.fvalue(pv, v272);
2492                                     if (typeof string != 'string')
2493                                         throw 'The value ' + string + ' is not a type string.';
2494                                     if (typeof index != 'number')
2495                                         throw 'The value ' + index + ' is not a type number.';
2496                                     return string.charCodeAt(index);
2497                                 })(), 10)) : l3.value) : l3.value) !== l3.value ? l126.fvalue(pv, l94.fvalue(pv, 10), "    ") : l94.fvalue(pv, (function(){
2498                                     var string = v270;
2499                                     var index = v272;
2500                                     if (typeof string != 'string')
2501                                         throw 'The value ' + string + ' is not a type string.';
2502                                     if (typeof index != 'number')
2503                                         throw 'The value ' + index + ' is not a type number.';
2504                                     return string.charCodeAt(index);
2505                                 })())));
2506                                 (v272 = (function(){
2507                                     var x1 = v272;
2508                                     if (typeof x1 !== 'number') throw 'Not a number!';
2509                                     var x2 = 1;
2510                                     if (typeof x2 !== 'number') throw 'Not a number!';
2511                                     return x1+x2;
2512                                 })());
2513                             }return l3.value;
2514                         })();
2515                     })();
2516                     return v271;
2517                 })("",0,l70.fvalue(pv, v270));
2518             })(l128.fvalue(pv, v269));
2519         })();
2520     }));
2521     return l137;
2522 })();
2523 (function(){
2524     (l17).fvalue = (function(v279){
2525         ((v279)["fname"] = "INTEGER-TO-STRING");
2526         return v279;
2527     })((function (values,v276){
2528         checkArgs(arguments, 2);
2529         return (function(){
2530             return (l24.fvalue(pv, v276) !== l3.value ? "0" : (l80.fvalue(pv, v276) !== l3.value ? l126.fvalue(values, "-", l17.fvalue(pv, (function(){
2531                 var x1 = 0;
2532                 if (typeof x1 !== 'number') throw 'Not a number!';
2533                 var x2 = v276;
2534                 if (typeof x2 !== 'number') throw 'Not a number!';
2535                 return x1-x2;
2536             })())) : (function(v277){
2537                 (function(){
2538                     return (function(){
2539                         while(l27.fvalue(pv, l24.fvalue(pv, v276)) !== l3.value){
2540                             (v277 = ({car: (function(){
2541                                 var x = v276;
2542                                 var y = 10;
2543                                 if (typeof x != 'number')
2544                                     throw 'The value ' + x + ' is not a type number.';
2545                                 if (typeof y != 'number')
2546                                     throw 'The value ' + y + ' is not a type number.';
2547                                 return x%y;
2548                             })(), cdr: v277}));
2549                             (v276 = l25.fvalue(pv, v276, 10));
2550                         }return l3.value;
2551                     })();
2552                 })();
2553                 return l128.fvalue(values, l72.fvalue(pv, (function (values,v278){
2554                     checkArgs(arguments, 2);
2555                     return l94.fvalue(values, (function(){
2556                         var string = "0123456789";
2557                         var index = v278;
2558                         if (typeof string != 'string')
2559                             throw 'The value ' + string + ' is not a type string.';
2560                         if (typeof index != 'number')
2561                             throw 'The value ' + index + ' is not a type number.';
2562                         return string.charCodeAt(index);
2563                     })());
2564                 }), v277));
2565             })(l3.value)));
2566         })();
2567     }));
2568     return l17;
2569 })();
2570 var l138 = {name: "JS!BOOL"};
2571 var l139 = {name: "LS-COMPILE"};
2572 (function(){
2573     (l138).fvalue = (function(v281){
2574         ((v281)["fname"] = "JS!BOOL");
2575         return v281;
2576     })((function (values,v280){
2577         checkArgs(arguments, 2);
2578         return (function(){
2579             return l126.fvalue(values, "(", v280, "?", l139.fvalue(pv, l4.value), ": ", l139.fvalue(pv, l3.value), ")");
2580         })();
2581     }));
2582     return l138;
2583 })();
2584 var l140 = {name: "JS!SELFCALL"};
2585 l140;
2586 var l141 = {name: "PRIN1-TO-STRING"};
2587 var l142 = {name: "ESCAPE-STRING"};
2588 (function(){
2589     (l141).fvalue = (function(v287){
2590         ((v287)["fname"] = "PRIN1-TO-STRING");
2591         return v287;
2592     })((function (values,v282){
2593         checkArgs(arguments, 2);
2594         return (function(){
2595             return (((function(){
2596                 var tmp = v282;
2597                 return (typeof tmp == 'object' && 'name' in tmp);
2598             })()?l4.value: l3.value) !== l3.value ? ((function(){
2599                 var tmp = l120.fvalue(pv, (v282).name, (function(){
2600                     var symbol = l117;
2601                     var value = symbol.value;
2602                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2603                     return value;
2604                 })());
2605                 return tmp === l3.value? l3.value: tmp.cdr;
2606             })() !== l3.value ? (v282).name : (function(v283,v284){
2607                 return l126.fvalue(values, (l12.fvalue(pv, v283) !== l3.value ? "#" : (((v283 === l107.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l108.fvalue(pv, v283))), ":", v284);
2608             })(l116.fvalue(pv, v282),(v282).name)) : (l78.fvalue(pv, v282) !== l3.value ? l17.fvalue(values, v282) : (((typeof(v282) == "string")?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "\"", l142.fvalue(pv, v282), "\"") : (((typeof v282 == 'function')?l4.value: l3.value) !== l3.value ? (function(v285){
2609                 return (v285 !== l3.value ? l126.fvalue(values, "#<FUNCTION ", v285, ">") : l126.fvalue(values, "#<FUNCTION>"));
2610             })((function(){
2611                 var tmp = (v282)["fname"];
2612                 return tmp == undefined? l3.value: tmp ;
2613             })()) : (l58.fvalue(pv, v282) !== l3.value ? l126.fvalue(values, "(", l129.fvalue(pv, l72.fvalue(pv, (function(){
2614                 var symbol = l141;
2615                 var func = symbol.fvalue;
2616                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2617                 return func;
2618             })(), l84.fvalue(pv, v282)), " "), (function(v286){
2619                 return (l12.fvalue(pv, (function(){
2620                     var tmp = v286;
2621                     return tmp === l3.value? l3.value: tmp.cdr;
2622                 })()) !== l3.value ? l141.fvalue(pv, (function(){
2623                     var tmp = v286;
2624                     return tmp === l3.value? l3.value: tmp.car;
2625                 })()) : l126.fvalue(pv, l141.fvalue(pv, (function(){
2626                     var tmp = v286;
2627                     return tmp === l3.value? l3.value: tmp.car;
2628                 })()), " . ", l141.fvalue(pv, (function(){
2629                     var tmp = v286;
2630                     return tmp === l3.value? l3.value: tmp.cdr;
2631                 })())));
2632             })(l83.fvalue(pv, v282)), ")") : (((function(){
2633                 var x = v282;
2634                 return typeof x === 'object' && 'length' in x;
2635             })()?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "#", l141.fvalue(pv, l131.fvalue(pv, v282))) : (l106.fvalue(pv, v282) !== l3.value ? l126.fvalue(values, "#<PACKAGE ", l108.fvalue(pv, v282), ">") : l3.value)))))));
2636         })();
2637     }));
2638     return l141;
2639 })();
2640 (function(){
2641     (l98).fvalue = (function(v289){
2642         ((v289)["fname"] = "WRITE-LINE");
2643         return v289;
2644     })((function (values,v288){
2645         checkArgs(arguments, 2);
2646         return (function(){
2647             (function(){
2648                 var x = v288;
2649                 if (typeof x != 'string')
2650                     throw 'The value ' + x + ' is not a type string.';
2651                 return lisp.write(x);
2652             })();
2653             (function(){
2654                 var x = (function(){
2655                     var symbol = l125;
2656                     var value = symbol.value;
2657                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2658                     return value;
2659                 })();
2660                 if (typeof x != 'string')
2661                     throw 'The value ' + x + ' is not a type string.';
2662                 return lisp.write(x);
2663             })();
2664             return v288;
2665         })();
2666     }));
2667     return l98;
2668 })();
2669 var l143 = {name: "WARN"};
2670 (function(){
2671     (l143).fvalue = (function(v291){
2672         ((v291)["fname"] = "WARN");
2673         return v291;
2674     })((function (values,v290){
2675         checkArgs(arguments, 2);
2676         return (function(){
2677             (function(){
2678                 var x = "WARNING: ";
2679                 if (typeof x != 'string')
2680                     throw 'The value ' + x + ' is not a type string.';
2681                 return lisp.write(x);
2682             })();
2683             return l98.fvalue(values, v290);
2684         })();
2685     }));
2686     return l143;
2687 })();
2688 var l144 = {name: "PRINT"};
2689 (function(){
2690     (l144).fvalue = (function(v293){
2691         ((v293)["fname"] = "PRINT");
2692         return v293;
2693     })((function (values,v292){
2694         checkArgs(arguments, 2);
2695         return (function(){
2696             l98.fvalue(pv, l141.fvalue(pv, v292));
2697             return v292;
2698         })();
2699     }));
2700     return l144;
2701 })();
2702 var l145 = {name: "MAKE-STRING-STREAM"};
2703 (function(){
2704     (l145).fvalue = (function(v295){
2705         ((v295)["fname"] = "MAKE-STRING-STREAM");
2706         return v295;
2707     })((function (values,v294){
2708         checkArgs(arguments, 2);
2709         return (function(){
2710             return ({car: v294, cdr: 0});
2711         })();
2712     }));
2713     return l145;
2714 })();
2715 var l146 = {name: "%PEEK-CHAR"};
2716 (function(){
2717     (l146).fvalue = (function(v297){
2718         ((v297)["fname"] = "%PEEK-CHAR");
2719         return v297;
2720     })((function (values,v296){
2721         checkArgs(arguments, 2);
2722         return (function(){
2723             return ((function(){
2724                 var x1 = (function(){
2725                     var tmp = v296;
2726                     return tmp === l3.value? l3.value: tmp.cdr;
2727                 })();
2728                 if (typeof x1 !== 'number') throw 'Not a number!';
2729                 var x2 = l70.fvalue(pv, (function(){
2730                     var tmp = v296;
2731                     return tmp === l3.value? l3.value: tmp.car;
2732                 })());
2733                 if (typeof x2 !== 'number') throw 'Not a number!';
2734                 return (x1<x2?l4.value: l3.value);
2735             })() !== l3.value ? (function(){
2736                 var string = (function(){
2737                     var tmp = v296;
2738                     return tmp === l3.value? l3.value: tmp.car;
2739                 })();
2740                 var index = (function(){
2741                     var tmp = v296;
2742                     return tmp === l3.value? l3.value: tmp.cdr;
2743                 })();
2744                 if (typeof string != 'string')
2745                     throw 'The value ' + string + ' is not a type string.';
2746                 if (typeof index != 'number')
2747                     throw 'The value ' + index + ' is not a type number.';
2748                 return string.charCodeAt(index);
2749             })() : l3.value);
2750         })();
2751     }));
2752     return l146;
2753 })();
2754 var l147 = {name: "%READ-CHAR"};
2755 (function(){
2756     (l147).fvalue = (function(v300){
2757         ((v300)["fname"] = "%READ-CHAR");
2758         return v300;
2759     })((function (values,v298){
2760         checkArgs(arguments, 2);
2761         return (function(){
2762             return ((function(){
2763                 var x1 = (function(){
2764                     var tmp = v298;
2765                     return tmp === l3.value? l3.value: tmp.cdr;
2766                 })();
2767                 if (typeof x1 !== 'number') throw 'Not a number!';
2768                 var x2 = l70.fvalue(pv, (function(){
2769                     var tmp = v298;
2770                     return tmp === l3.value? l3.value: tmp.car;
2771                 })());
2772                 if (typeof x2 !== 'number') throw 'Not a number!';
2773                 return (x1<x2?l4.value: l3.value);
2774             })() !== l3.value ? (function(v299){
2775                 (function(){
2776                     var x = v298;
2777                     if (typeof x != 'object')
2778                         throw 'The value ' + x + ' is not a type object.';
2779                     return (x.cdr = l22.fvalue(pv, (function(){
2780                         var tmp = v298;
2781                         return tmp === l3.value? l3.value: tmp.cdr;
2782                     })()), x);
2783                 })();
2784                 return v299;
2785             })((function(){
2786                 var string = (function(){
2787                     var tmp = v298;
2788                     return tmp === l3.value? l3.value: tmp.car;
2789                 })();
2790                 var index = (function(){
2791                     var tmp = v298;
2792                     return tmp === l3.value? l3.value: tmp.cdr;
2793                 })();
2794                 if (typeof string != 'string')
2795                     throw 'The value ' + string + ' is not a type string.';
2796                 if (typeof index != 'number')
2797                     throw 'The value ' + index + ' is not a type number.';
2798                 return string.charCodeAt(index);
2799             })()) : l3.value);
2800         })();
2801     }));
2802     return l147;
2803 })();
2804 var l148 = {name: "WHITESPACEP"};
2805 (function(){
2806     (l148).fvalue = (function(v304){
2807         ((v304)["fname"] = "WHITESPACEP");
2808         return v304;
2809     })((function (values,v301){
2810         checkArgs(arguments, 2);
2811         return (function(){
2812             return (function(v302){
2813                 return (v302 !== l3.value ? v302 : (function(v303){
2814                     return (v303 !== l3.value ? v303 : l77.fvalue(values, v301, 9));
2815                 })(l77.fvalue(pv, v301, 10)));
2816             })(l77.fvalue(pv, v301, 32));
2817         })();
2818     }));
2819     return l148;
2820 })();
2821 var l149 = {name: "SKIP-WHITESPACES"};
2822 (function(){
2823     (l149).fvalue = (function(v307){
2824         ((v307)["fname"] = "SKIP-WHITESPACES");
2825         return v307;
2826     })((function (values,v305){
2827         checkArgs(arguments, 2);
2828         return (function(){
2829             return (function(v306){
2830                 (v306 = l146.fvalue(pv, v305));
2831                 return (function(){
2832                     return (function(){
2833                         while((v306 !== l3.value ? l148.fvalue(pv, v306) : l3.value) !== l3.value){
2834                             l147.fvalue(pv, v305);
2835                             (v306 = l146.fvalue(pv, v305));
2836                         }return l3.value;
2837                     })();
2838                 })();
2839             })(l3.value);
2840         })();
2841     }));
2842     return l149;
2843 })();
2844 var l150 = {name: "TERMINALP"};
2845 (function(){
2846     (l150).fvalue = (function(v312){
2847         ((v312)["fname"] = "TERMINALP");
2848         return v312;
2849     })((function (values,v308){
2850         checkArgs(arguments, 2);
2851         return (function(){
2852             return (function(v309){
2853                 return (v309 !== l3.value ? v309 : (function(v310){
2854                     return (v310 !== l3.value ? v310 : (function(v311){
2855                         return (v311 !== l3.value ? v311 : l77.fvalue(values, 40, v308));
2856                     })(l77.fvalue(pv, 41, v308)));
2857                 })(l148.fvalue(pv, v308)));
2858             })(l12.fvalue(pv, v308));
2859         })();
2860     }));
2861     return l150;
2862 })();
2863 var l151 = {name: "READ-UNTIL"};
2864 (function(){
2865     (l151).fvalue = (function(v317){
2866         ((v317)["fname"] = "READ-UNTIL");
2867         return v317;
2868     })((function (values,v313,v314){
2869         checkArgs(arguments, 3);
2870         return (function(){
2871             return (function(v315,v316){
2872                 (v316 = l146.fvalue(pv, v313));
2873                 (function(){
2874                     return (function(){
2875                         while((v316 !== l3.value ? l27.fvalue(pv, (v314)(pv, v316)) : l3.value) !== l3.value){
2876                             (v315 = l126.fvalue(pv, v315, l94.fvalue(pv, v316)));
2877                             l147.fvalue(pv, v313);
2878                             (v316 = l146.fvalue(pv, v313));
2879                         }return l3.value;
2880                     })();
2881                 })();
2882                 return v315;
2883             })("",l3.value);
2884         })();
2885     }));
2886     return l151;
2887 })();
2888 var l152 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
2889 (function(){
2890     (l152).fvalue = (function(v321){
2891         ((v321)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2892         return v321;
2893     })((function (values,v318){
2894         checkArgs(arguments, 2);
2895         return (function(){
2896             return (function(v319){
2897                 l149.fvalue(pv, v318);
2898                 (v319 = l146.fvalue(pv, v318));
2899                 return (function(){
2900                     return (function(){
2901                         while((v319 !== l3.value ? l77.fvalue(pv, v319, 59) : l3.value) !== l3.value){
2902                             l151.fvalue(pv, v318, (function (values,v320){
2903                                 checkArgs(arguments, 2);
2904                                 return l77.fvalue(values, v320, 10);
2905                             }));
2906                             l149.fvalue(pv, v318);
2907                             (v319 = l146.fvalue(pv, v318));
2908                         }return l3.value;
2909                     })();
2910                 })();
2911             })(l3.value);
2912         })();
2913     }));
2914     return l152;
2915 })();
2916 var l153 = {name: "%READ-LIST"};
2917 var l154 = {name: "LS-READ"};
2918 (function(){
2919     (l153).fvalue = (function(v325){
2920         ((v325)["fname"] = "%READ-LIST");
2921         return v325;
2922     })((function (values,v322){
2923         checkArgs(arguments, 2);
2924         return (function(){
2925             l152.fvalue(pv, v322);
2926             return (function(v323){
2927                 return (l12.fvalue(pv, v323) !== l3.value ? (function(){
2928                     throw "Unspected EOF";
2929                 })() : (l77.fvalue(pv, v323, 41) !== l3.value ? (function(){
2930                     l147.fvalue(pv, v322);
2931                     return l3.value;
2932                 })() : (l77.fvalue(pv, v323, 46) !== l3.value ? (function(){
2933                     l147.fvalue(pv, v322);
2934                     return (function(v324){
2935                         l152.fvalue(pv, v322);
2936                         (l77.fvalue(pv, l147.fvalue(pv, v322), 41) !== l3.value ? l3.value : (function(){
2937                             throw "')' was expected.";
2938                         })());
2939                         return v324;
2940                     })(l154.fvalue(pv, v322));
2941                 })() : ({car: l154.fvalue(pv, v322), cdr: l153.fvalue(pv, v322)}))));
2942             })(l146.fvalue(pv, v322));
2943         })();
2944     }));
2945     return l153;
2946 })();
2947 var l155 = {name: "READ-STRING"};
2948 (function(){
2949     (l155).fvalue = (function(v329){
2950         ((v329)["fname"] = "READ-STRING");
2951         return v329;
2952     })((function (values,v326){
2953         checkArgs(arguments, 2);
2954         return (function(){
2955             return (function(v327,v328){
2956                 (v328 = l147.fvalue(pv, v326));
2957                 (function(){
2958                     return (function(){
2959                         while(l27.fvalue(pv, l26.fvalue(pv, v328, 34)) !== l3.value){
2960                             (l12.fvalue(pv, v328) !== l3.value ? (function(){
2961                                 throw "Unexpected EOF";
2962                             })() : l3.value);
2963                             (l26.fvalue(pv, v328, 92) !== l3.value ? (v328 = l147.fvalue(pv, v326)) : l3.value);
2964                             (v327 = l126.fvalue(pv, v327, l94.fvalue(pv, v328)));
2965                             (v328 = l147.fvalue(pv, v326));
2966                         }return l3.value;
2967                     })();
2968                 })();
2969                 return v327;
2970             })("",l3.value);
2971         })();
2972     }));
2973     return l155;
2974 })();
2975 var l156 = {name: "READ-SHARP"};
2976 (function(){
2977     (l156).fvalue = (function(v334){
2978         ((v334)["fname"] = "READ-SHARP");
2979         return v334;
2980     })((function (values,v330){
2981         checkArgs(arguments, 2);
2982         return (function(){
2983             l147.fvalue(pv, v330);
2984             return (function(v331){
2985                 return (l26.fvalue(pv, v331, 39) !== l3.value ? l43.fvalue(values, l100, l154.fvalue(pv, v330)) : (l26.fvalue(pv, v331, 40) !== l3.value ? l132.fvalue(values, l153.fvalue(pv, v330)) : (l26.fvalue(pv, v331, 58) !== l3.value ? (function(){
2986                     var name = (function(){
2987                         var x = l151.fvalue(pv, v330, (function(){
2988                             var symbol = l150;
2989                             var func = symbol.fvalue;
2990                             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2991                             return func;
2992                         })());
2993                         if (typeof x != 'string')
2994                             throw 'The value ' + x + ' is not a type string.';
2995                         return x.toUpperCase();
2996                     })();
2997                     if (typeof name != 'string')
2998                         throw 'The value ' + name + ' is not a type string.';
2999                     return ({name: name});
3000                 })() : (l26.fvalue(pv, v331, 92) !== l3.value ? (function(v332){
3001                     return (l95.fvalue(pv, v332, "space") !== l3.value ? l76.fvalue(values, 32) : (l95.fvalue(pv, v332, "tab") !== l3.value ? l76.fvalue(values, 9) : (l95.fvalue(pv, v332, "newline") !== l3.value ? l76.fvalue(values, 10) : l76.fvalue(values, (function(){
3002                         var string = v332;
3003                         var index = 0;
3004                         if (typeof string != 'string')
3005                             throw 'The value ' + string + ' is not a type string.';
3006                         if (typeof index != 'number')
3007                             throw 'The value ' + index + ' is not a type number.';
3008                         return string.charCodeAt(index);
3009                     })()))));
3010                 })(l126.fvalue(pv, l94.fvalue(pv, l147.fvalue(pv, v330)), l151.fvalue(pv, v330, (function(){
3011                     var symbol = l150;
3012                     var func = symbol.fvalue;
3013                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3014                     return func;
3015                 })()))) : (l26.fvalue(pv, v331, 43) !== l3.value ? (function(v333){
3016                     return (l95.fvalue(pv, v333, "common-lisp") !== l3.value ? (function(){
3017                         l154.fvalue(pv, v330);
3018                         return l154.fvalue(values, v330);
3019                     })() : (l95.fvalue(pv, v333, "ecmalisp") !== l3.value ? l154.fvalue(values, v330) : (function(){
3020                         throw "Unknown reader form.";
3021                     })()));
3022                 })(l151.fvalue(pv, v330, (function(){
3023                     var symbol = l150;
3024                     var func = symbol.fvalue;
3025                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3026                     return func;
3027                 })())) : (function(){
3028                     throw "ECASE expression failed.";
3029                 })())))));
3030             })(l147.fvalue(pv, v330));
3031         })();
3032     }));
3033     return l156;
3034 })();
3035 var l157 = {name: "READ-SYMBOL"};
3036 (function(){
3037     (l157).fvalue = (function(v342){
3038         ((v342)["fname"] = "READ-SYMBOL");
3039         return v342;
3040     })((function (values,v335){
3041         checkArgs(arguments, 2);
3042         return (function(){
3043             return (function(v336,v337,v338,v339,v340){
3044                 (v340 = 0);
3045                 (function(){
3046                     return (function(){
3047                         while(((function(){
3048                             var x1 = v340;
3049                             if (typeof x1 !== 'number') throw 'Not a number!';
3050                             var x2 = v336;
3051                             if (typeof x2 !== 'number') throw 'Not a number!';
3052                             return (x1<x2?l4.value: l3.value);
3053                         })() !== l3.value ? l27.fvalue(pv, l77.fvalue(pv, (function(){
3054                             var string = v335;
3055                             var index = v340;
3056                             if (typeof string != 'string')
3057                                 throw 'The value ' + string + ' is not a type string.';
3058                             if (typeof index != 'number')
3059                                 throw 'The value ' + index + ' is not a type number.';
3060                             return string.charCodeAt(index);
3061                         })(), 58)) : l3.value) !== l3.value){
3062                             (v340 = (function(){
3063                                 var x1 = v340;
3064                                 if (typeof x1 !== 'number') throw 'Not a number!';
3065                                 var x2 = 1;
3066                                 if (typeof x2 !== 'number') throw 'Not a number!';
3067                                 return x1+x2;
3068                             })());
3069                         }return l3.value;
3070                     })();
3071                 })();
3072                 ((function(){
3073                     var x1 = v340;
3074                     if (typeof x1 !== 'number') throw 'Not a number!';
3075                     var x2 = v336;
3076                     if (typeof x2 !== 'number') throw 'Not a number!';
3077                     return (x1==x2?l4.value: l3.value);
3078                 })() !== l3.value ? (function(){
3079                     (v338 = v335);
3080                     (v337 = (function(){
3081                         var symbol = l117;
3082                         var value = symbol.value;
3083                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3084                         return value;
3085                     })());
3086                     return (v339 = l4.value);
3087                 })() : (function(){
3088                     (l24.fvalue(pv, v340) !== l3.value ? (v337 = "KEYWORD") : (v337 = (function(){
3089                         var x = l90.fvalue(pv, v335, 0, v340);
3090                         if (typeof x != 'string')
3091                             throw 'The value ' + x + ' is not a type string.';
3092                         return x.toUpperCase();
3093                     })()));
3094                     (v340 = (function(){
3095                         var x1 = v340;
3096                         if (typeof x1 !== 'number') throw 'Not a number!';
3097                         var x2 = 1;
3098                         if (typeof x2 !== 'number') throw 'Not a number!';
3099                         return x1+x2;
3100                     })());
3101                     (l77.fvalue(pv, (function(){
3102                         var string = v335;
3103                         var index = v340;
3104                         if (typeof string != 'string')
3105                             throw 'The value ' + string + ' is not a type string.';
3106                         if (typeof index != 'number')
3107                             throw 'The value ' + index + ' is not a type number.';
3108                         return string.charCodeAt(index);
3109                     })(), 58) !== l3.value ? (function(){
3110                         (v339 = l4.value);
3111                         return (v340 = (function(){
3112                             var x1 = v340;
3113                             if (typeof x1 !== 'number') throw 'Not a number!';
3114                             var x2 = 1;
3115                             if (typeof x2 !== 'number') throw 'Not a number!';
3116                             return x1+x2;
3117                         })());
3118                     })() : l3.value);
3119                     return (v338 = l90.fvalue(pv, v335, v340));
3120                 })());
3121                 (v338 = (function(){
3122                     var x = v338;
3123                     if (typeof x != 'string')
3124                         throw 'The value ' + x + ' is not a type string.';
3125                     return x.toUpperCase();
3126                 })());
3127                 (v337 = l107.fvalue(pv, v337));
3128                 return ((function(v341){
3129                     return (v341 !== l3.value ? v341 : ((v337 === l107.fvalue(pv, "KEYWORD"))?l4.value: l3.value));
3130                 })(v339) !== l3.value ? l122.fvalue(values, v338, v337) : l121.fvalue(values, v338, v337));
3131             })(l70.fvalue(pv, v335),l3.value,l3.value,l3.value,l3.value);
3132         })();
3133     }));
3134     return l157;
3135 })();
3136 var l158 = {name: "!PARSE-INTEGER"};
3137 (function(){
3138     (l158).fvalue = (function(v353){
3139         ((v353)["fname"] = "!PARSE-INTEGER");
3140         return v353;
3141     })((function (values,v343,v344){
3142         checkArgs(arguments, 3);
3143         return (function(){
3144             return (function(){
3145                 try {
3146                     return (function(v345,v346,v347,v348){
3147                         (l24.fvalue(pv, v347) !== l3.value ? (function(){
3148                             var values = mv;
3149                             throw ({type: 'block', id: 138, values: values(l3.value, 0), message: 'Return from unknown block NIL.'})
3150                         })() : l3.value);
3151                         (function(v349){
3152                             return (l26.fvalue(pv, v349, 43) !== l3.value ? (v346 = (function(){
3153                                 var x1 = v346;
3154                                 if (typeof x1 !== 'number') throw 'Not a number!';
3155                                 var x2 = 1;
3156                                 if (typeof x2 !== 'number') throw 'Not a number!';
3157                                 return x1+x2;
3158                             })()) : (l26.fvalue(pv, v349, 45) !== l3.value ? (function(){
3159                                 (v348 = -1);
3160                                 return (v346 = (function(){
3161                                     var x1 = v346;
3162                                     if (typeof x1 !== 'number') throw 'Not a number!';
3163                                     var x2 = 1;
3164                                     if (typeof x2 !== 'number') throw 'Not a number!';
3165                                     return x1+x2;
3166                                 })());
3167                             })() : l3.value));
3168                         })((function(){
3169                             var string = v343;
3170                             var index = 0;
3171                             if (typeof string != 'string')
3172                                 throw 'The value ' + string + ' is not a type string.';
3173                             if (typeof index != 'number')
3174                                 throw 'The value ' + index + ' is not a type number.';
3175                             return string.charCodeAt(index);
3176                         })());
3177                         (((function(){
3178                             var x1 = v346;
3179                             if (typeof x1 !== 'number') throw 'Not a number!';
3180                             var x2 = v347;
3181                             if (typeof x2 !== 'number') throw 'Not a number!';
3182                             return (x1<x2?l4.value: l3.value);
3183                         })() !== l3.value ? (v345 = l89.fvalue(pv, (function(){
3184                             var string = v343;
3185                             var index = v346;
3186                             if (typeof string != 'string')
3187                                 throw 'The value ' + string + ' is not a type string.';
3188                             if (typeof index != 'number')
3189                                 throw 'The value ' + index + ' is not a type number.';
3190                             return string.charCodeAt(index);
3191                         })())) : l3.value) !== l3.value ? l3.value : (function(){
3192                             var values = mv;
3193                             throw ({type: 'block', id: 138, values: values(l3.value, v346), message: 'Return from unknown block NIL.'})
3194                         })());
3195                         (v346 = (function(){
3196                             var x1 = v346;
3197                             if (typeof x1 !== 'number') throw 'Not a number!';
3198                             var x2 = 1;
3199                             if (typeof x2 !== 'number') throw 'Not a number!';
3200                             return x1+x2;
3201                         })());
3202                         (function(){
3203                             try {
3204                                 return (function(){
3205                                     while((function(){
3206                                         var x1 = v346;
3207                                         if (typeof x1 !== 'number') throw 'Not a number!';
3208                                         var x2 = v347;
3209                                         if (typeof x2 !== 'number') throw 'Not a number!';
3210                                         return (x1<x2?l4.value: l3.value);
3211                                     })() !== l3.value){
3212                                         (function(v350){
3213                                             (v350 !== l3.value ? l3.value : (function(){
3214                                                 throw ({type: 'block', id: 139, values: l3.value, message: 'Return from unknown block NIL.'})
3215                                             })());
3216                                             (v345 = (function(){
3217                                                 var x1 = (function(){
3218                                                     var x1 = v345;
3219                                                     if (typeof x1 !== 'number') throw 'Not a number!';
3220                                                     var x2 = 10;
3221                                                     if (typeof x2 !== 'number') throw 'Not a number!';
3222                                                     return x1*x2;
3223                                                 })();
3224                                                 if (typeof x1 !== 'number') throw 'Not a number!';
3225                                                 var x2 = v350;
3226                                                 if (typeof x2 !== 'number') throw 'Not a number!';
3227                                                 return x1+x2;
3228                                             })());
3229                                             return (v346 = (function(){
3230                                                 var x1 = v346;
3231                                                 if (typeof x1 !== 'number') throw 'Not a number!';
3232                                                 var x2 = 1;
3233                                                 if (typeof x2 !== 'number') throw 'Not a number!';
3234                                                 return x1+x2;
3235                                             })());
3236                                         })(l89.fvalue(pv, (function(){
3237                                             var string = v343;
3238                                             var index = v346;
3239                                             if (typeof string != 'string')
3240                                                 throw 'The value ' + string + ' is not a type string.';
3241                                             if (typeof index != 'number')
3242                                                 throw 'The value ' + index + ' is not a type number.';
3243                                             return string.charCodeAt(index);
3244                                         })()));
3245                                     }return l3.value;
3246                                 })();
3247                             }
3248                             catch (cf){
3249                                 if (cf.type == 'block' && cf.id == 139)
3250                                     return cf.values;
3251                                 else
3252                                     throw cf;
3253                             }
3254                         })();
3255                         return ((function(v351){
3256                             return (v351 !== l3.value ? v351 : (function(v352){
3257                                 return (v352 !== l3.value ? v352 : l77.fvalue(pv, (function(){
3258                                     var string = v343;
3259                                     var index = v346;
3260                                     if (typeof string != 'string')
3261                                         throw 'The value ' + string + ' is not a type string.';
3262                                     if (typeof index != 'number')
3263                                         throw 'The value ' + index + ' is not a type number.';
3264                                     return string.charCodeAt(index);
3265                                 })(), 32));
3266                             })((function(){
3267                                 var x1 = v346;
3268                                 if (typeof x1 !== 'number') throw 'Not a number!';
3269                                 var x2 = v347;
3270                                 if (typeof x2 !== 'number') throw 'Not a number!';
3271                                 return (x1==x2?l4.value: l3.value);
3272                             })()));
3273                         })(v344) !== l3.value ? values((function(){
3274                             var x1 = v348;
3275                             if (typeof x1 !== 'number') throw 'Not a number!';
3276                             var x2 = v345;
3277                             if (typeof x2 !== 'number') throw 'Not a number!';
3278                             return x1*x2;
3279                         })(), v346) : values(l3.value, v346));
3280                     })(0,0,l70.fvalue(pv, v343),1);
3281                 }
3282                 catch (cf){
3283                     if (cf.type == 'block' && cf.id == 138)
3284                         return values.apply(this, forcemv(cf.values));
3285                     else
3286                         throw cf;
3287                 }
3288             })();
3289         })();
3290     }));
3291     return l158;
3292 })();
3293 var l159 = {name: "PARSE-INTEGER"};
3294 (function(){
3295     (l159).fvalue = (function(v355){
3296         ((v355)["fname"] = "PARSE-INTEGER");
3297         return v355;
3298     })((function (values,v354){
3299         checkArgs(arguments, 2);
3300         return (function(){
3301             return l158.fvalue(values, v354, l3.value);
3302         })();
3303     }));
3304     return l159;
3305 })();
3306 var l160 = {name: "*EOF*"};
3307 (function(){
3308     (((l160.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l160).value = l16.fvalue(pv)));
3309     return l160;
3310 })();
3311 var l161 = {name: "QUOTE"};
3312 var l162 = {name: "BACKQUOTE"};
3313 var l163 = {name: "UNQUOTE-SPLICING"};
3314 var l164 = {name: "UNQUOTE"};
3315 (function(){
3316     (l154).fvalue = (function(v361){
3317         ((v361)["fname"] = "LS-READ");
3318         return v361;
3319     })((function (values,v356){
3320         checkArgs(arguments, 2);
3321         return (function(){
3322             l152.fvalue(pv, v356);
3323             return (function(v357){
3324                 return ((function(v358){
3325                     return (v358 !== l3.value ? v358 : l77.fvalue(pv, v357, 41));
3326                 })(l12.fvalue(pv, v357)) !== l3.value ? (function(){
3327                     var symbol = l160;
3328                     var value = symbol.value;
3329                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3330                     return value;
3331                 })() : (l77.fvalue(pv, v357, 40) !== l3.value ? (function(){
3332                     l147.fvalue(pv, v356);
3333                     return l153.fvalue(values, v356);
3334                 })() : (l77.fvalue(pv, v357, 39) !== l3.value ? (function(){
3335                     l147.fvalue(pv, v356);
3336                     return l43.fvalue(values, l161, l154.fvalue(pv, v356));
3337                 })() : (l77.fvalue(pv, v357, 96) !== l3.value ? (function(){
3338                     l147.fvalue(pv, v356);
3339                     return l43.fvalue(values, l162, l154.fvalue(pv, v356));
3340                 })() : (l77.fvalue(pv, v357, 34) !== l3.value ? (function(){
3341                     l147.fvalue(pv, v356);
3342                     return l155.fvalue(values, v356);
3343                 })() : (l77.fvalue(pv, v357, 44) !== l3.value ? (function(){
3344                     l147.fvalue(pv, v356);
3345                     return (l26.fvalue(pv, l146.fvalue(pv, v356), 64) !== l3.value ? (function(){
3346                         l147.fvalue(pv, v356);
3347                         return l43.fvalue(values, l163, l154.fvalue(pv, v356));
3348                     })() : l43.fvalue(values, l164, l154.fvalue(pv, v356)));
3349                 })() : (l77.fvalue(pv, v357, 35) !== l3.value ? l156.fvalue(values, v356) : (function(v359){
3350                     return (function(v360){
3351                         return (v360 !== l3.value ? v360 : l157.fvalue(values, v359));
3352                     })(pv(l158.fvalue(pv, v359, l3.value)));
3353                 })(l151.fvalue(pv, v356, (function(){
3354                     var symbol = l150;
3355                     var func = symbol.fvalue;
3356                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3357                     return func;
3358                 })())))))))));
3359             })(l146.fvalue(pv, v356));
3360         })();
3361     }));
3362     return l154;
3363 })();
3364 var l165 = {name: "LS-READ-FROM-STRING"};
3365 (function(){
3366     (l165).fvalue = (function(v363){
3367         ((v363)["fname"] = "LS-READ-FROM-STRING");
3368         return v363;
3369     })((function (values,v362){
3370         checkArgs(arguments, 2);
3371         return (function(){
3372             return l154.fvalue(values, l145.fvalue(pv, v362));
3373         })();
3374     }));
3375     return l165;
3376 })();
3377 var l166 = {name: "*MULTIPLE-VALUE-P*"};
3378 (function(){
3379     (((l166.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l166).value = l3.value));
3380     return l166;
3381 })();
3382 var l167 = {name: "MAKE-BINDING"};
3383 (function(){
3384     (l167).fvalue = (function(v368){
3385         ((v368)["fname"] = "MAKE-BINDING");
3386         return v368;
3387     })((function (values,v364,v365,v366,v367){
3388         checkArgsAtLeast(arguments, 4);
3389         checkArgsAtMost(arguments, 5);
3390         switch(arguments.length-1){
3391         case 3:
3392         v367=l3.value;
3393         default: break;
3394         }
3395         return (function(){
3396             return l43.fvalue(values, v364, v365, v366, v367);
3397         })();
3398     }));
3399     return l167;
3400 })();
3401 var l168 = {name: "BINDING-NAME"};
3402 (function(){
3403     (l168).fvalue = (function(v370){
3404         ((v370)["fname"] = "BINDING-NAME");
3405         return v370;
3406     })((function (values,v369){
3407         checkArgs(arguments, 2);
3408         return (function(){
3409             return l39.fvalue(values, v369);
3410         })();
3411     }));
3412     return l168;
3413 })();
3414 var l169 = {name: "BINDING-TYPE"};
3415 (function(){
3416     (l169).fvalue = (function(v372){
3417         ((v372)["fname"] = "BINDING-TYPE");
3418         return v372;
3419     })((function (values,v371){
3420         checkArgs(arguments, 2);
3421         return (function(){
3422             return l40.fvalue(values, v371);
3423         })();
3424     }));
3425     return l169;
3426 })();
3427 var l170 = {name: "BINDING-VALUE"};
3428 (function(){
3429     (l170).fvalue = (function(v374){
3430         ((v374)["fname"] = "BINDING-VALUE");
3431         return v374;
3432     })((function (values,v373){
3433         checkArgs(arguments, 2);
3434         return (function(){
3435             return l41.fvalue(values, v373);
3436         })();
3437     }));
3438     return l170;
3439 })();
3440 var l171 = {name: "BINDING-DECLARATIONS"};
3441 (function(){
3442     (l171).fvalue = (function(v376){
3443         ((v376)["fname"] = "BINDING-DECLARATIONS");
3444         return v376;
3445     })((function (values,v375){
3446         checkArgs(arguments, 2);
3447         return (function(){
3448             return l42.fvalue(values, v375);
3449         })();
3450     }));
3451     return l171;
3452 })();
3453 var l172 = {name: "SET-BINDING-VALUE"};
3454 (function(){
3455     (l172).fvalue = (function(v379){
3456         ((v379)["fname"] = "SET-BINDING-VALUE");
3457         return v379;
3458     })((function (values,v377,v378){
3459         checkArgs(arguments, 3);
3460         return (function(){
3461             return (function(){
3462                 var x = l35.fvalue(pv, v377);
3463                 if (typeof x != 'object')
3464                     throw 'The value ' + x + ' is not a type object.';
3465                 return (x.car = v378, x);
3466             })();
3467         })();
3468     }));
3469     return l172;
3470 })();
3471 var l173 = {name: "SET-BINDING-DECLARATIONS"};
3472 (function(){
3473     (l173).fvalue = (function(v382){
3474         ((v382)["fname"] = "SET-BINDING-DECLARATIONS");
3475         return v382;
3476     })((function (values,v380,v381){
3477         checkArgs(arguments, 3);
3478         return (function(){
3479             return (function(){
3480                 var x = l37.fvalue(pv, v380);
3481                 if (typeof x != 'object')
3482                     throw 'The value ' + x + ' is not a type object.';
3483                 return (x.car = v381, x);
3484             })();
3485         })();
3486     }));
3487     return l173;
3488 })();
3489 var l174 = {name: "PUSH-BINDING-DECLARATION"};
3490 (function(){
3491     (l174).fvalue = (function(v385){
3492         ((v385)["fname"] = "PUSH-BINDING-DECLARATION");
3493         return v385;
3494     })((function (values,v383,v384){
3495         checkArgs(arguments, 3);
3496         return (function(){
3497             return l173.fvalue(values, v384, ({car: v383, cdr: l171.fvalue(pv, v384)}));
3498         })();
3499     }));
3500     return l174;
3501 })();
3502 var l175 = {name: "MAKE-LEXENV"};
3503 (function(){
3504     (l175).fvalue = (function(v386){
3505         ((v386)["fname"] = "MAKE-LEXENV");
3506         return v386;
3507     })((function (values){
3508         checkArgsAtMost(arguments, 1);
3509         return (function(){
3510             return l43.fvalue(values, l3.value, l3.value, l3.value, l3.value);
3511         })();
3512     }));
3513     return l175;
3514 })();
3515 var l176 = {name: "COPY-LEXENV"};
3516 (function(){
3517     (l176).fvalue = (function(v388){
3518         ((v388)["fname"] = "COPY-LEXENV");
3519         return v388;
3520     })((function (values,v387){
3521         checkArgs(arguments, 2);
3522         return (function(){
3523             return l74.fvalue(values, v387);
3524         })();
3525     }));
3526     return l176;
3527 })();
3528 var l177 = {name: "PUSH-TO-LEXENV"};
3529 var l178 = {name: "BLOCK"};
3530 var l179 = {name: "GOTAG"};
3531 (function(){
3532     (l177).fvalue = (function(v393){
3533         ((v393)["fname"] = "PUSH-TO-LEXENV");
3534         return v393;
3535     })((function (values,v389,v390,v391){
3536         checkArgs(arguments, 4);
3537         return (function(){
3538             return (function(v392){
3539                 return (l26.fvalue(pv, v392, l101) !== l3.value ? (function(){
3540                     var x = v390;
3541                     if (typeof x != 'object')
3542                         throw 'The value ' + x + ' is not a type object.';
3543                     return (x.car = ({car: v389, cdr: (function(){
3544                         var tmp = v390;
3545                         return tmp === l3.value? l3.value: tmp.car;
3546                     })()}), x);
3547                 })() : (l26.fvalue(pv, v392, l100) !== l3.value ? (function(){
3548                     var x = (function(){
3549                         var tmp = v390;
3550                         return tmp === l3.value? l3.value: tmp.cdr;
3551                     })();
3552                     if (typeof x != 'object')
3553                         throw 'The value ' + x + ' is not a type object.';
3554                     return (x.car = ({car: v389, cdr: l33.fvalue(pv, v390)}), x);
3555                 })() : (l26.fvalue(pv, v392, l178) !== l3.value ? (function(){
3556                     var x = l35.fvalue(pv, v390);
3557                     if (typeof x != 'object')
3558                         throw 'The value ' + x + ' is not a type object.';
3559                     return (x.car = ({car: v389, cdr: l36.fvalue(pv, v390)}), x);
3560                 })() : (l26.fvalue(pv, v392, l179) !== l3.value ? (function(){
3561                     var x = l37.fvalue(pv, v390);
3562                     if (typeof x != 'object')
3563                         throw 'The value ' + x + ' is not a type object.';
3564                     return (x.car = ({car: v389, cdr: l38.fvalue(pv, v390)}), x);
3565                 })() : (function(){
3566                     throw "ECASE expression failed.";
3567                 })()))));
3568             })(v391);
3569         })();
3570     }));
3571     return l177;
3572 })();
3573 var l180 = {name: "EXTEND-LEXENV"};
3574 (function(){
3575     (l180).fvalue = (function(v400){
3576         ((v400)["fname"] = "EXTEND-LEXENV");
3577         return v400;
3578     })((function (values,v394,v395,v396){
3579         checkArgs(arguments, 4);
3580         return (function(){
3581             return (function(v397){
3582                 return (function(){
3583                     return (function(v398,v399){
3584                         (function(){
3585                             while(v398 !== l3.value){
3586                                 (v399 = (function(){
3587                                     var tmp = v398;
3588                                     return tmp === l3.value? l3.value: tmp.car;
3589                                 })());
3590                                 (function(){
3591                                     l177.fvalue(pv, v399, v397, v396);
3592                                     return l3.value;
3593                                 })();
3594                                 (v398 = (function(){
3595                                     var tmp = v398;
3596                                     return tmp === l3.value? l3.value: tmp.cdr;
3597                                 })());
3598                             }return l3.value;
3599                         })();
3600                         return v397;
3601                     })(l65.fvalue(pv, v394),l3.value);
3602                 })();
3603             })(l176.fvalue(pv, v395));
3604         })();
3605     }));
3606     return l180;
3607 })();
3608 var l181 = {name: "LOOKUP-IN-LEXENV"};
3609 (function(){
3610     (l181).fvalue = (function(v405){
3611         ((v405)["fname"] = "LOOKUP-IN-LEXENV");
3612         return v405;
3613     })((function (values,v401,v402,v403){
3614         checkArgs(arguments, 4);
3615         return (function(){
3616             return l93.fvalue(values, v401, (function(v404){
3617                 return (l26.fvalue(pv, v404, l101) !== l3.value ? l39.fvalue(pv, v402) : (l26.fvalue(pv, v404, l100) !== l3.value ? l40.fvalue(pv, v402) : (l26.fvalue(pv, v404, l178) !== l3.value ? l41.fvalue(pv, v402) : (l26.fvalue(pv, v404, l179) !== l3.value ? l42.fvalue(pv, v402) : (function(){
3618                     throw "ECASE expression failed.";
3619                 })()))));
3620             })(v403));
3621         })();
3622     }));
3623     return l181;
3624 })();
3625 var l182 = {name: "*ENVIRONMENT*"};
3626 (function(){
3627     (((l182.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l182).value = l175.fvalue(pv)));
3628     return l182;
3629 })();
3630 var l183 = {name: "*VARIABLE-COUNTER*"};
3631 (function(){
3632     (((l183.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l183).value = 0));
3633     return l183;
3634 })();
3635 var l184 = {name: "GVARNAME"};
3636 (function(){
3637     (l184).fvalue = (function(v407){
3638         ((v407)["fname"] = "GVARNAME");
3639         return v407;
3640     })((function (values,v406){
3641         checkArgs(arguments, 2);
3642         return (function(){
3643             return l126.fvalue(values, "v", l17.fvalue(pv, ((l183).value = (function(){
3644                 var x1 = (function(){
3645                     var symbol = l183;
3646                     var value = symbol.value;
3647                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3648                     return value;
3649                 })();
3650                 if (typeof x1 !== 'number') throw 'Not a number!';
3651                 var x2 = 1;
3652                 if (typeof x2 !== 'number') throw 'Not a number!';
3653                 return x1+x2;
3654             })())));
3655         })();
3656     }));
3657     return l184;
3658 })();
3659 var l185 = {name: "TRANSLATE-VARIABLE"};
3660 (function(){
3661     (l185).fvalue = (function(v409){
3662         ((v409)["fname"] = "TRANSLATE-VARIABLE");
3663         return v409;
3664     })((function (values,v408){
3665         checkArgs(arguments, 2);
3666         return (function(){
3667             return l170.fvalue(values, l181.fvalue(pv, v408, (function(){
3668                 var symbol = l182;
3669                 var value = symbol.value;
3670                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3671                 return value;
3672             })(), l101));
3673         })();
3674     }));
3675     return l185;
3676 })();
3677 var l186 = {name: "EXTEND-LOCAL-ENV"};
3678 (function(){
3679     (l186).fvalue = (function(v415){
3680         ((v415)["fname"] = "EXTEND-LOCAL-ENV");
3681         return v415;
3682     })((function (values,v410){
3683         checkArgs(arguments, 2);
3684         return (function(){
3685             return (function(v411){
3686                 return (function(){
3687                     return (function(v412,v413){
3688                         (function(){
3689                             while(v412 !== l3.value){
3690                                 (v413 = (function(){
3691                                     var tmp = v412;
3692                                     return tmp === l3.value? l3.value: tmp.car;
3693                                 })());
3694                                 (function(){
3695                                     (function(v414){
3696                                         return l177.fvalue(pv, v414, v411, l101);
3697                                     })(l167.fvalue(pv, v413, l101, l184.fvalue(pv, v413)));
3698                                     return l3.value;
3699                                 })();
3700                                 (v412 = (function(){
3701                                     var tmp = v412;
3702                                     return tmp === l3.value? l3.value: tmp.cdr;
3703                                 })());
3704                             }return l3.value;
3705                         })();
3706                         return v411;
3707                     })(v410,l3.value);
3708                 })();
3709             })(l176.fvalue(pv, (function(){
3710                 var symbol = l182;
3711                 var value = symbol.value;
3712                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3713                 return value;
3714             })()));
3715         })();
3716     }));
3717     return l186;
3718 })();
3719 var l187 = {name: "*TOPLEVEL-COMPILATIONS*"};
3720 (function(){
3721     (((l187.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l187).value = l3.value));
3722     return l187;
3723 })();
3724 var l188 = {name: "TOPLEVEL-COMPILATION"};
3725 (function(){
3726     (l188).fvalue = (function(v417){
3727         ((v417)["fname"] = "TOPLEVEL-COMPILATION");
3728         return v417;
3729     })((function (values,v416){
3730         checkArgs(arguments, 2);
3731         return (function(){
3732             return ((l187).value = ({car: v416, cdr: (function(){
3733                 var symbol = l187;
3734                 var value = symbol.value;
3735                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3736                 return value;
3737             })()}));
3738         })();
3739     }));
3740     return l188;
3741 })();
3742 var l189 = {name: "NULL-OR-EMPTY-P"};
3743 (function(){
3744     (l189).fvalue = (function(v419){
3745         ((v419)["fname"] = "NULL-OR-EMPTY-P");
3746         return v419;
3747     })((function (values,v418){
3748         checkArgs(arguments, 2);
3749         return (function(){
3750             return l24.fvalue(values, l70.fvalue(pv, v418));
3751         })();
3752     }));
3753     return l189;
3754 })();
3755 var l190 = {name: "GET-TOPLEVEL-COMPILATIONS"};
3756 (function(){
3757     (l190).fvalue = (function(v420){
3758         ((v420)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
3759         return v420;
3760     })((function (values){
3761         checkArgsAtMost(arguments, 1);
3762         return (function(){
3763             return l65.fvalue(values, l87.fvalue(pv, (function(){
3764                 var symbol = l189;
3765                 var func = symbol.fvalue;
3766                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3767                 return func;
3768             })(), (function(){
3769                 var symbol = l187;
3770                 var value = symbol.value;
3771                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3772                 return value;
3773             })()));
3774         })();
3775     }));
3776     return l190;
3777 })();
3778 var l191 = {name: "%COMPILE-DEFMACRO"};
3779 var l192 = {name: "MACRO"};
3780 (function(){
3781     (l191).fvalue = (function(v423){
3782         ((v423)["fname"] = "%COMPILE-DEFMACRO");
3783         return v423;
3784     })((function (values,v421,v422){
3785         checkArgs(arguments, 3);
3786         return (function(){
3787             l188.fvalue(pv, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v421))));
3788             l177.fvalue(pv, l167.fvalue(pv, v421, l192, v422), (function(){
3789                 var symbol = l182;
3790                 var value = symbol.value;
3791                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3792                 return value;
3793             })(), l100);
3794             return v421;
3795         })();
3796     }));
3797     return l191;
3798 })();
3799 var l193 = {name: "GLOBAL-BINDING"};
3800 (function(){
3801     (l193).fvalue = (function(v429){
3802         ((v429)["fname"] = "GLOBAL-BINDING");
3803         return v429;
3804     })((function (values,v424,v425,v426){
3805         checkArgs(arguments, 4);
3806         return (function(){
3807             return (function(v427){
3808                 return (v427 !== l3.value ? v427 : (function(v428){
3809                     l177.fvalue(pv, v428, (function(){
3810                         var symbol = l182;
3811                         var value = symbol.value;
3812                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3813                         return value;
3814                     })(), v426);
3815                     return v428;
3816                 })(l167.fvalue(pv, v424, v425, l3.value)));
3817             })(l181.fvalue(pv, v424, (function(){
3818                 var symbol = l182;
3819                 var value = symbol.value;
3820                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3821                 return value;
3822             })(), v426));
3823         })();
3824     }));
3825     return l193;
3826 })();
3827 var l194 = {name: "CLAIMP"};
3828 (function(){
3829     (l194).fvalue = (function(v434){
3830         ((v434)["fname"] = "CLAIMP");
3831         return v434;
3832     })((function (values,v430,v431,v432){
3833         checkArgs(arguments, 4);
3834         return (function(){
3835             return (function(v433){
3836                 return (v433 !== l3.value ? l85.fvalue(values, v432, l171.fvalue(pv, v433)) : l3.value);
3837             })(l181.fvalue(pv, v430, (function(){
3838                 var symbol = l182;
3839                 var value = symbol.value;
3840                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3841                 return value;
3842             })(), v431));
3843         })();
3844     }));
3845     return l194;
3846 })();
3847 var l195 = {name: "!PROCLAIM"};
3848 var l196 = {name: "SPECIAL"};
3849 var l197 = {name: "NOTINLINE"};
3850 var l198 = {name: "CONSTANT"};
3851 (function(){
3852     (l195).fvalue = (function(v446){
3853         ((v446)["fname"] = "!PROCLAIM");
3854         return v446;
3855     })((function (values,v435){
3856         checkArgs(arguments, 2);
3857         return (function(){
3858             return (function(v436){
3859                 return (l26.fvalue(pv, v436, l196) !== l3.value ? (function(){
3860                     return (function(v437,v438){
3861                         (function(){
3862                             while(v437 !== l3.value){
3863                                 (v438 = (function(){
3864                                     var tmp = v437;
3865                                     return tmp === l3.value? l3.value: tmp.car;
3866                                 })());
3867                                 (function(){
3868                                     (function(v439){
3869                                         return l174.fvalue(pv, l196, v439);
3870                                     })(l193.fvalue(pv, v438, l101, l101));
3871                                     return l3.value;
3872                                 })();
3873                                 (v437 = (function(){
3874                                     var tmp = v437;
3875                                     return tmp === l3.value? l3.value: tmp.cdr;
3876                                 })());
3877                             }return l3.value;
3878                         })();
3879                         return l3.value;
3880                     })((function(){
3881                         var tmp = v435;
3882                         return tmp === l3.value? l3.value: tmp.cdr;
3883                     })(),l3.value);
3884                 })() : (l26.fvalue(pv, v436, l197) !== l3.value ? (function(){
3885                     return (function(v440,v441){
3886                         (function(){
3887                             while(v440 !== l3.value){
3888                                 (v441 = (function(){
3889                                     var tmp = v440;
3890                                     return tmp === l3.value? l3.value: tmp.car;
3891                                 })());
3892                                 (function(){
3893                                     (function(v442){
3894                                         return l174.fvalue(pv, l197, v442);
3895                                     })(l193.fvalue(pv, v441, l100, l100));
3896                                     return l3.value;
3897                                 })();
3898                                 (v440 = (function(){
3899                                     var tmp = v440;
3900                                     return tmp === l3.value? l3.value: tmp.cdr;
3901                                 })());
3902                             }return l3.value;
3903                         })();
3904                         return l3.value;
3905                     })((function(){
3906                         var tmp = v435;
3907                         return tmp === l3.value? l3.value: tmp.cdr;
3908                     })(),l3.value);
3909                 })() : (l26.fvalue(pv, v436, l198) !== l3.value ? (function(){
3910                     return (function(v443,v444){
3911                         (function(){
3912                             while(v443 !== l3.value){
3913                                 (v444 = (function(){
3914                                     var tmp = v443;
3915                                     return tmp === l3.value? l3.value: tmp.car;
3916                                 })());
3917                                 (function(){
3918                                     (function(v445){
3919                                         return l174.fvalue(pv, l198, v445);
3920                                     })(l193.fvalue(pv, v444, l101, l101));
3921                                     return l3.value;
3922                                 })();
3923                                 (v443 = (function(){
3924                                     var tmp = v443;
3925                                     return tmp === l3.value? l3.value: tmp.cdr;
3926                                 })());
3927                             }return l3.value;
3928                         })();
3929                         return l3.value;
3930                     })((function(){
3931                         var tmp = v435;
3932                         return tmp === l3.value? l3.value: tmp.cdr;
3933                     })(),l3.value);
3934                 })() : l3.value)));
3935             })((function(){
3936                 var tmp = v435;
3937                 return tmp === l3.value? l3.value: tmp.car;
3938             })());
3939         })();
3940     }));
3941     return l195;
3942 })();
3943 var l199 = {name: "PROCLAIM"};
3944 (l199).fvalue = (function(){
3945     var symbol = l195;
3946     var func = symbol.fvalue;
3947     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3948     return func;
3949 })();
3950 var l200 = {name: "*COMPILATIONS*"};
3951 (function(){
3952     (((l200.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l200).value = l3.value));
3953     return l200;
3954 })();
3955 var l201 = {name: "DEFINE-COMPILATION"};
3956 l201;
3957 var l202 = {name: "IF"};
3958 ((l200).value = ({car: l43.fvalue(pv, l202, (function (values,v447,v448,v449){
3959     checkArgs(arguments, 4);
3960     return (function(){
3961         return l126.fvalue(values, "(", l139.fvalue(pv, v447), " !== ", l139.fvalue(pv, l3.value), " ? ", l139.fvalue(pv, v448, (function(){
3962             var symbol = l166;
3963             var value = symbol.value;
3964             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3965             return value;
3966         })()), " : ", l139.fvalue(pv, v449, (function(){
3967             var symbol = l166;
3968             var value = symbol.value;
3969             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3970             return value;
3971         })()), ")");
3972     })();
3973 })), cdr: (function(){
3974     var symbol = l200;
3975     var value = symbol.value;
3976     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3977     return value;
3978 })()}));
3979 var l203 = {name: "*LAMBDA-LIST-KEYWORDS*"};
3980 var l204 = {name: "&OPTIONAL"};
3981 var l205 = {name: "&REST"};
3982 var l206 = QIList(l204,l205,l3);
3983 (function(){
3984     (((l203.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l203).value = l206));
3985     return l203;
3986 })();
3987 var l207 = {name: "LIST-UNTIL-KEYWORD"};
3988 (function(){
3989     (l207).fvalue = (function(v452){
3990         ((v452)["fname"] = "LIST-UNTIL-KEYWORD");
3991         return v452;
3992     })((function (values,v450){
3993         checkArgs(arguments, 2);
3994         return (function(){
3995             return ((function(v451){
3996                 return (v451 !== l3.value ? v451 : l85.fvalue(pv, (function(){
3997                     var tmp = v450;
3998                     return tmp === l3.value? l3.value: tmp.car;
3999                 })(), (function(){
4000                     var symbol = l203;
4001                     var value = symbol.value;
4002                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4003                     return value;
4004                 })()));
4005             })(l12.fvalue(pv, v450)) !== l3.value ? l3.value : ({car: (function(){
4006                 var tmp = v450;
4007                 return tmp === l3.value? l3.value: tmp.car;
4008             })(), cdr: l207.fvalue(pv, (function(){
4009                 var tmp = v450;
4010                 return tmp === l3.value? l3.value: tmp.cdr;
4011             })())}));
4012         })();
4013     }));
4014     return l207;
4015 })();
4016 var l208 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
4017 (function(){
4018     (l208).fvalue = (function(v454){
4019         ((v454)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4020         return v454;
4021     })((function (values,v453){
4022         checkArgs(arguments, 2);
4023         return (function(){
4024             return l207.fvalue(values, v453);
4025         })();
4026     }));
4027     return l208;
4028 })();
4029 var l209 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
4030 (function(){
4031     (l209).fvalue = (function(v456){
4032         ((v456)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4033         return v456;
4034     })((function (values,v455){
4035         checkArgs(arguments, 2);
4036         return (function(){
4037             return l72.fvalue(values, (function(){
4038                 var symbol = l57;
4039                 var func = symbol.fvalue;
4040                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4041                 return func;
4042             })(), l207.fvalue(pv, (function(){
4043                 var tmp = l85.fvalue(pv, l204, v455);
4044                 return tmp === l3.value? l3.value: tmp.cdr;
4045             })()));
4046         })();
4047     }));
4048     return l209;
4049 })();
4050 var l210 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
4051 (function(){
4052     (l210).fvalue = (function(v458){
4053         ((v458)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4054         return v458;
4055     })((function (values,v457){
4056         checkArgs(arguments, 2);
4057         return (function(){
4058             return l72.fvalue(values, (function(){
4059                 var symbol = l30;
4060                 var func = symbol.fvalue;
4061                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4062                 return func;
4063             })(), l209.fvalue(pv, v457));
4064         })();
4065     }));
4066     return l210;
4067 })();
4068 var l211 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
4069 (function(){
4070     (l211).fvalue = (function(v461){
4071         ((v461)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4072         return v461;
4073     })((function (values,v459){
4074         checkArgs(arguments, 2);
4075         return (function(){
4076             return (function(v460){
4077                 ((function(){
4078                     var tmp = v460;
4079                     return tmp === l3.value? l3.value: tmp.cdr;
4080                 })() !== l3.value ? (function(){
4081                     throw "Bad lambda-list";
4082                 })() : l3.value);
4083                 return (function(){
4084                     var tmp = v460;
4085                     return tmp === l3.value? l3.value: tmp.car;
4086                 })();
4087             })(l207.fvalue(pv, (function(){
4088                 var tmp = l85.fvalue(pv, l205, v459);
4089                 return tmp === l3.value? l3.value: tmp.cdr;
4090             })()));
4091         })();
4092     }));
4093     return l211;
4094 })();
4095 var l212 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
4096 (function(){
4097     (l212).fvalue = (function(v464){
4098         ((v464)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
4099         return v464;
4100     })((function (values,v463){
4101         checkArgsAtLeast(arguments, 2);
4102         var v462= l3.value;
4103         for (var i = arguments.length-1; i>=2; i--)
4104             v462 = {car: arguments[i], cdr:
4105         v462};
4106         return (function(){
4107             return (v463 !== l3.value ? l126.fvalue(values, "(function(){", (function(){
4108                 var symbol = l125;
4109                 var value = symbol.value;
4110                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4111                 return value;
4112             })(), l137.fvalue(pv, "var func = ", l128.fvalue(pv, v462), ";", (function(){
4113                 var symbol = l125;
4114                 var value = symbol.value;
4115                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4116                 return value;
4117             })(), "func.docstring = '", v463, "';", (function(){
4118                 var symbol = l125;
4119                 var value = symbol.value;
4120                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4121                 return value;
4122             })(), "return func;", (function(){
4123                 var symbol = l125;
4124                 var value = symbol.value;
4125                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4126                 return value;
4127             })()), "})()") : l128.fvalue(values, v462));
4128         })();
4129     }));
4130     return l212;
4131 })();
4132 var l213 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
4133 var l214 = {name: "N/A"};
4134 (function(){
4135     (l213).fvalue = (function(v470){
4136         ((v470)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
4137         return v470;
4138     })((function (values,v465,v466,v467){
4139         checkArgs(arguments, 4);
4140         return (function(){
4141             return (function(v468,v469){
4142                 return (function(){
4143                     try {
4144                         (((function(){
4145                             var x1 = 1;
4146                             if (typeof x1 !== 'number') throw 'Not a number!';
4147                             var x2 = v468;
4148                             if (typeof x2 !== 'number') throw 'Not a number!';
4149                             return (x1<x2?l4.value: l3.value);
4150                         })() !== l3.value ? l26.fvalue(pv, v468, v469) : l3.value) !== l3.value ? (function(){
4151                             var values = mv;
4152                             throw ({type: 'block', id: 179, values: l126.fvalue(values, "checkArgs(arguments, ", l17.fvalue(pv, v468), ");", (function(){
4153                                 var symbol = l125;
4154                                 var value = symbol.value;
4155                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4156                                 return value;
4157                             })()), message: 'Return from unknown block NIL.'})
4158                         })() : l3.value);
4159                         return l126.fvalue(values, ((function(){
4160                             var x1 = 1;
4161                             if (typeof x1 !== 'number') throw 'Not a number!';
4162                             var x2 = v468;
4163                             if (typeof x2 !== 'number') throw 'Not a number!';
4164                             return (x1<x2?l4.value: l3.value);
4165                         })() !== l3.value ? l126.fvalue(pv, "checkArgsAtLeast(arguments, ", l17.fvalue(pv, v468), ");", (function(){
4166                             var symbol = l125;
4167                             var value = symbol.value;
4168                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4169                             return value;
4170                         })()) : ""), (((typeof (v469) == "number")?l4.value: l3.value) !== l3.value ? l126.fvalue(pv, "checkArgsAtMost(arguments, ", l17.fvalue(pv, v469), ");", (function(){
4171                             var symbol = l125;
4172                             var value = symbol.value;
4173                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4174                             return value;
4175                         })()) : ""));
4176                     }
4177                     catch (cf){
4178                         if (cf.type == 'block' && cf.id == 179)
4179                             return values.apply(this, forcemv(cf.values));
4180                         else
4181                             throw cf;
4182                     }
4183                 })();
4184             })(l22.fvalue(pv, v465),(v467 !== l3.value ? l214 : (function(){
4185                 var x1 = 1;
4186                 if (typeof x1 !== 'number') throw 'Not a number!';
4187                 var x2 = v465;
4188                 if (typeof x2 !== 'number') throw 'Not a number!';
4189                 var x3 = v466;
4190                 if (typeof x3 !== 'number') throw 'Not a number!';
4191                 return x1+x2+x3;
4192             })()));
4193         })();
4194     }));
4195     return l213;
4196 })();
4197 var l215 = {name: "COMPILE-LAMBDA"};
4198 var l216 = {name: "LS-COMPILE-BLOCK"};
4199 (function(){
4200     (l215).fvalue = (function(v486){
4201         ((v486)["fname"] = "COMPILE-LAMBDA");
4202         return v486;
4203     })((function (values,v471,v472){
4204         checkArgs(arguments, 3);
4205         return (function(){
4206             return (function(v473,v474,v475,v476){
4207                 ((((typeof((function(){
4208                     var tmp = v472;
4209                     return tmp === l3.value? l3.value: tmp.car;
4210                 })()) == "string")?l4.value: l3.value) !== l3.value ? l27.fvalue(pv, l12.fvalue(pv, (function(){
4211                     var tmp = v472;
4212                     return tmp === l3.value? l3.value: tmp.cdr;
4213                 })())) : l3.value) !== l3.value ? (function(){
4214                     (v476 = (function(){
4215                         var tmp = v472;
4216                         return tmp === l3.value? l3.value: tmp.car;
4217                     })());
4218                     return (v472 = (function(){
4219                         var tmp = v472;
4220                         return tmp === l3.value? l3.value: tmp.cdr;
4221                     })());
4222                 })() : l3.value);
4223                 return (function(v477,v478,v479){
4224                     try {
4225                         var tmp;
4226                         tmp = l182.value;
4227                         l182.value = v479;
4228                         v479 = tmp;
4229                         return l212.fvalue(values, v476, "(function (", l128.fvalue(pv, ({car: "values", cdr: l72.fvalue(pv, (function(){
4230                             var symbol = l185;
4231                             var func = symbol.fvalue;
4232                             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4233                             return func;
4234                         })(), l63.fvalue(pv, v473, v474))}), ","), "){", (function(){
4235                             var symbol = l125;
4236                             var value = symbol.value;
4237                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4238                             return value;
4239                         })(), l137.fvalue(pv, l213.fvalue(pv, v477, v478, v475), (v474 !== l3.value ? l126.fvalue(pv, "switch(arguments.length-1){", (function(){
4240                             var symbol = l125;
4241                             var value = symbol.value;
4242                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4243                             return value;
4244                         })(), (function(v480,v481,v482){
4245                             return (function(){
4246                                 (function(){
4247                                     return (function(){
4248                                         while((function(){
4249                                             var x1 = v482;
4250                                             if (typeof x1 !== 'number') throw 'Not a number!';
4251                                             var x2 = v478;
4252                                             if (typeof x2 !== 'number') throw 'Not a number!';
4253                                             return (x1<x2?l4.value: l3.value);
4254                                         })() !== l3.value){
4255                                             (function(v483){
4256                                                 (v481 = ({car: l126.fvalue(pv, "case ", l17.fvalue(pv, (function(){
4257                                                     var x1 = v482;
4258                                                     if (typeof x1 !== 'number') throw 'Not a number!';
4259                                                     var x2 = v477;
4260                                                     if (typeof x2 !== 'number') throw 'Not a number!';
4261                                                     return x1+x2;
4262                                                 })()), ":", (function(){
4263                                                     var symbol = l125;
4264                                                     var value = symbol.value;
4265                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4266                                                     return value;
4267                                                 })(), l185.fvalue(pv, (function(){
4268                                                     var tmp = v483;
4269                                                     return tmp === l3.value? l3.value: tmp.car;
4270                                                 })()), "=", l139.fvalue(pv, l33.fvalue(pv, v483)), ";", (function(){
4271                                                     var symbol = l125;
4272                                                     var value = symbol.value;
4273                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4274                                                     return value;
4275                                                 })()), cdr: v481}));
4276                                                 return (v482 = (function(){
4277                                                     var x1 = v482;
4278                                                     if (typeof x1 !== 'number') throw 'Not a number!';
4279                                                     var x2 = 1;
4280                                                     if (typeof x2 !== 'number') throw 'Not a number!';
4281                                                     return x1+x2;
4282                                                 })());
4283                                             })(l82.fvalue(pv, v482, v480));
4284                                         }return l3.value;
4285                                     })();
4286                                 })();
4287                                 (v481 = ({car: l126.fvalue(pv, "default: break;", (function(){
4288                                     var symbol = l125;
4289                                     var value = symbol.value;
4290                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4291                                     return value;
4292                                 })()), cdr: v481}));
4293                                 return l128.fvalue(pv, l65.fvalue(pv, v481));
4294                             })();
4295                         })(l209.fvalue(pv, v471),l3.value,0), "}", (function(){
4296                             var symbol = l125;
4297                             var value = symbol.value;
4298                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4299                             return value;
4300                         })()) : ""), (v475 !== l3.value ? (function(v484){
4301                             return l126.fvalue(pv, "var ", v484, "= ", l139.fvalue(pv, l3.value), ";", (function(){
4302                                 var symbol = l125;
4303                                 var value = symbol.value;
4304                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4305                                 return value;
4306                             })(), "for (var i = arguments.length-1; i>=", l17.fvalue(pv, (function(){
4307                                 var x1 = 1;
4308                                 if (typeof x1 !== 'number') throw 'Not a number!';
4309                                 var x2 = v477;
4310                                 if (typeof x2 !== 'number') throw 'Not a number!';
4311                                 var x3 = v478;
4312                                 if (typeof x3 !== 'number') throw 'Not a number!';
4313                                 return x1+x2+x3;
4314                             })()), "; i--)", (function(){
4315                                 var symbol = l125;
4316                                 var value = symbol.value;
4317                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4318                                 return value;
4319                             })(), l137.fvalue(pv, v484, " = ", "{car: arguments[i], cdr: "), v484, "};", (function(){
4320                                 var symbol = l125;
4321                                 var value = symbol.value;
4322                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4323                                 return value;
4324                             })());
4325                         })(l185.fvalue(pv, v475)) : ""), (function(v485){
4326                             try {
4327                                 var tmp;
4328                                 tmp = l166.value;
4329                                 l166.value = v485;
4330                                 v485 = tmp;
4331                                 return l216.fvalue(pv, v472, l4.value);
4332                             }
4333                             finally {
4334                                 l166.value = v485;
4335                             }
4336                         })(l4.value)), "})");
4337                     }
4338                     finally {
4339                         l182.value = v479;
4340                     }
4341                 })(l70.fvalue(pv, v473),l70.fvalue(pv, v474),l186.fvalue(pv, l63.fvalue(pv, l57.fvalue(pv, v475), v473, v474)));
4342             })(l208.fvalue(pv, v471),l210.fvalue(pv, v471),l211.fvalue(pv, v471),l3.value);
4343         })();
4344     }));
4345     return l215;
4346 })();
4347 var l217 = {name: "SETQ-PAIR"};
4348 var l218 = {name: "SET"};
4349 (function(){
4350     (l217).fvalue = (function(v490){
4351         ((v490)["fname"] = "SETQ-PAIR");
4352         return v490;
4353     })((function (values,v487,v488){
4354         checkArgs(arguments, 3);
4355         return (function(){
4356             return (function(v489){
4357                 return ((((l169.fvalue(pv, v489) === l101)?l4.value: l3.value) !== l3.value ? (l27.fvalue(pv, l85.fvalue(pv, l196, l171.fvalue(pv, v489))) !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l198, l171.fvalue(pv, v489))) : l3.value) : l3.value) !== l3.value ? l126.fvalue(values, l170.fvalue(pv, v489), " = ", l139.fvalue(pv, v488)) : l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l218), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v487))), l43.fvalue(pv, v488))));
4358             })(l181.fvalue(pv, v487, (function(){
4359                 var symbol = l182;
4360                 var value = symbol.value;
4361                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4362                 return value;
4363             })(), l101));
4364         })();
4365     }));
4366     return l217;
4367 })();
4368 var l219 = {name: "SETQ"};
4369 ((l200).value = ({car: l43.fvalue(pv, l219, (function (values){
4370     var v491= l3.value;
4371     for (var i = arguments.length-1; i>=1; i--)
4372         v491 = {car: arguments[i], cdr:
4373     v491};
4374     return (function(){
4375         return (function(v492){
4376             (function(){
4377                 try {
4378                     return (function(){
4379                         while(l4.value !== l3.value){
4380                             (l12.fvalue(pv, v491) !== l3.value ? (function(){
4381                                 throw ({type: 'block', id: 184, values: l3.value, message: 'Return from unknown block NIL.'})
4382                             })() : (l12.fvalue(pv, (function(){
4383                                 var tmp = v491;
4384                                 return tmp === l3.value? l3.value: tmp.cdr;
4385                             })()) !== l3.value ? (function(){
4386                                 throw "Odd paris in SETQ";
4387                             })() : (function(){
4388                                 (v492 = l126.fvalue(pv, v492, l126.fvalue(pv, l217.fvalue(pv, (function(){
4389                                     var tmp = v491;
4390                                     return tmp === l3.value? l3.value: tmp.car;
4391                                 })(), l33.fvalue(pv, v491)), (l12.fvalue(pv, l35.fvalue(pv, v491)) !== l3.value ? "" : ", "))));
4392                                 return (v491 = l35.fvalue(pv, v491));
4393                             })()));
4394                         }return l3.value;
4395                     })();
4396                 }
4397                 catch (cf){
4398                     if (cf.type == 'block' && cf.id == 184)
4399                         return cf.values;
4400                     else
4401                         throw cf;
4402                 }
4403             })();
4404             return l126.fvalue(values, "(", v492, ")");
4405         })("");
4406     })();
4407 })), cdr: (function(){
4408     var symbol = l200;
4409     var value = symbol.value;
4410     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4411     return value;
4412 })()}));
4413 var l220 = {name: "JS-VREF"};
4414 ((l200).value = ({car: l43.fvalue(pv, l220, (function (values,v493){
4415     checkArgs(arguments, 2);
4416     return (function(){
4417         return v493;
4418     })();
4419 })), cdr: (function(){
4420     var symbol = l200;
4421     var value = symbol.value;
4422     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4423     return value;
4424 })()}));
4425 var l221 = {name: "JS-VSET"};
4426 ((l200).value = ({car: l43.fvalue(pv, l221, (function (values,v494,v495){
4427     checkArgs(arguments, 3);
4428     return (function(){
4429         return l126.fvalue(values, "(", v494, " = ", l139.fvalue(pv, v495), ")");
4430     })();
4431 })), cdr: (function(){
4432     var symbol = l200;
4433     var value = symbol.value;
4434     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4435     return value;
4436 })()}));
4437 (function(){
4438     (l142).fvalue = (function(v502){
4439         ((v502)["fname"] = "ESCAPE-STRING");
4440         return v502;
4441     })((function (values,v496){
4442         checkArgs(arguments, 2);
4443         return (function(){
4444             return (function(v497,v498,v499){
4445                 (function(){
4446                     return (function(){
4447                         while((function(){
4448                             var x1 = v498;
4449                             if (typeof x1 !== 'number') throw 'Not a number!';
4450                             var x2 = v499;
4451                             if (typeof x2 !== 'number') throw 'Not a number!';
4452                             return (x1<x2?l4.value: l3.value);
4453                         })() !== l3.value){
4454                             (function(v500){
4455                                 ((function(v501){
4456                                     return (v501 !== l3.value ? v501 : l77.fvalue(pv, v500, 92));
4457                                 })(l77.fvalue(pv, v500, 34)) !== l3.value ? (v497 = l126.fvalue(pv, v497, "\\")) : l3.value);
4458                                 (l77.fvalue(pv, v500, 10) !== l3.value ? (function(){
4459                                     (v497 = l126.fvalue(pv, v497, "\\"));
4460                                     return (v500 = 110);
4461                                 })() : l3.value);
4462                                 return (v497 = l126.fvalue(pv, v497, l94.fvalue(pv, v500)));
4463                             })((function(){
4464                                 var string = v496;
4465                                 var index = v498;
4466                                 if (typeof string != 'string')
4467                                     throw 'The value ' + string + ' is not a type string.';
4468                                 if (typeof index != 'number')
4469                                     throw 'The value ' + index + ' is not a type number.';
4470                                 return string.charCodeAt(index);
4471                             })());
4472                             (v498 = (function(){
4473                                 var x1 = v498;
4474                                 if (typeof x1 !== 'number') throw 'Not a number!';
4475                                 var x2 = 1;
4476                                 if (typeof x2 !== 'number') throw 'Not a number!';
4477                                 return x1+x2;
4478                             })());
4479                         }return l3.value;
4480                     })();
4481                 })();
4482                 return v497;
4483             })("",0,l70.fvalue(pv, v496));
4484         })();
4485     }));
4486     return l142;
4487 })();
4488 var l222 = {name: "*LITERAL-SYMBOLS*"};
4489 (function(){
4490     (((l222.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l222).value = l3.value));
4491     return l222;
4492 })();
4493 var l223 = {name: "*LITERAL-COUNTER*"};
4494 (function(){
4495     (((l223.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l223).value = 0));
4496     return l223;
4497 })();
4498 var l224 = {name: "GENLIT"};
4499 (function(){
4500     (l224).fvalue = (function(v503){
4501         ((v503)["fname"] = "GENLIT");
4502         return v503;
4503     })((function (values){
4504         checkArgsAtMost(arguments, 1);
4505         return (function(){
4506             return l126.fvalue(values, "l", l17.fvalue(pv, ((l223).value = (function(){
4507                 var x1 = (function(){
4508                     var symbol = l223;
4509                     var value = symbol.value;
4510                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4511                     return value;
4512                 })();
4513                 if (typeof x1 !== 'number') throw 'Not a number!';
4514                 var x2 = 1;
4515                 if (typeof x2 !== 'number') throw 'Not a number!';
4516                 return x1+x2;
4517             })())));
4518         })();
4519     }));
4520     return l224;
4521 })();
4522 var l225 = {name: "LITERAL"};
4523 (function(){
4524     (l225).fvalue = (function(v518){
4525         ((v518)["fname"] = "LITERAL");
4526         return v518;
4527     })((function (values,v504,v505){
4528         checkArgsAtLeast(arguments, 2);
4529         checkArgsAtMost(arguments, 3);
4530         switch(arguments.length-1){
4531         case 1:
4532         v505=l3.value;
4533         default: break;
4534         }
4535         return (function(){
4536             return (l78.fvalue(pv, v504) !== l3.value ? l17.fvalue(values, v504) : (((typeof(v504) == "string")?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "\"", l142.fvalue(pv, v504), "\"") : (((function(){
4537                 var tmp = v504;
4538                 return (typeof tmp == 'object' && 'name' in tmp);
4539             })()?l4.value: l3.value) !== l3.value ? (function(v506){
4540                 return (v506 !== l3.value ? v506 : (function(v508,v509){
4541                     ((l222).value = ({car: ({car: v504, cdr: v508}), cdr: (function(){
4542                         var symbol = l222;
4543                         var value = symbol.value;
4544                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4545                         return value;
4546                     })()}));
4547                     l188.fvalue(pv, l126.fvalue(pv, "var ", v508, " = ", v509));
4548                     return v508;
4549                 })(l224.fvalue(pv),(function(v507){
4550                     return (l12.fvalue(pv, v507) !== l3.value ? l126.fvalue(pv, "{name: \"", l142.fvalue(pv, (v504).name), "\"}") : l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l122), l43.fvalue(pv, (v504).name), l43.fvalue(pv, l108.fvalue(pv, v507)))));
4551                 })(l116.fvalue(pv, v504))));
4552             })((function(){
4553                 var tmp = l93.fvalue(pv, v504, (function(){
4554                     var symbol = l222;
4555                     var value = symbol.value;
4556                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4557                     return value;
4558                 })());
4559                 return tmp === l3.value? l3.value: tmp.cdr;
4560             })()) : (((function(){
4561                 var tmp = v504;
4562                 return (typeof tmp == 'object' && 'car' in tmp);
4563             })()?l4.value: l3.value) !== l3.value ? (function(){
4564                 var v510 = l84.fvalue(pv, v504);
4565                 var v511 = l83.fvalue(pv, v504);
4566                 var v512 = l126.fvalue(pv, "QIList(", l129.fvalue(pv, l72.fvalue(pv, (function (values,v513){
4567                     checkArgs(arguments, 2);
4568                     return l225.fvalue(values, v513, l4.value);
4569                 }), v510), ","), l225.fvalue(pv, (function(){
4570                     var tmp = v511;
4571                     return tmp === l3.value? l3.value: tmp.car;
4572                 })(), l4.value), ",", l225.fvalue(pv, (function(){
4573                     var tmp = v511;
4574                     return tmp === l3.value? l3.value: tmp.cdr;
4575                 })(), l4.value), ")");
4576                 return (v505 !== l3.value ? v512 : (function(v514){
4577                     l188.fvalue(pv, l126.fvalue(pv, "var ", v514, " = ", v512));
4578                     return v514;
4579                 })(l224.fvalue(pv)));
4580             })() : (((function(){
4581                 var x = v504;
4582                 return typeof x === 'object' && 'length' in x;
4583             })()?l4.value: l3.value) !== l3.value ? (function(v515){
4584                 return (function(v516){
4585                     return (v505 !== l3.value ? v516 : (function(v517){
4586                         l188.fvalue(pv, l126.fvalue(pv, "var ", v517, " = ", v516));
4587                         return v517;
4588                     })(l224.fvalue(pv)));
4589                 })(l126.fvalue(pv, "[", l128.fvalue(pv, l72.fvalue(pv, (function(){
4590                     var symbol = l225;
4591                     var func = symbol.fvalue;
4592                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4593                     return func;
4594                 })(), v515), ", "), "]"));
4595             })(l131.fvalue(pv, v504)) : l3.value)))));
4596         })();
4597     }));
4598     return l225;
4599 })();
4600 ((l200).value = ({car: l43.fvalue(pv, l161, (function (values,v519){
4601     checkArgs(arguments, 2);
4602     return (function(){
4603         return l225.fvalue(values, v519);
4604     })();
4605 })), cdr: (function(){
4606     var symbol = l200;
4607     var value = symbol.value;
4608     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4609     return value;
4610 })()}));
4611 var l226 = {name: "%WHILE"};
4612 ((l200).value = ({car: l43.fvalue(pv, l226, (function (values,v521){
4613     checkArgsAtLeast(arguments, 2);
4614     var v520= l3.value;
4615     for (var i = arguments.length-1; i>=2; i--)
4616         v520 = {car: arguments[i], cdr:
4617     v520};
4618     return (function(){
4619         return l126.fvalue(values, "(function(){", (function(){
4620             var symbol = l125;
4621             var value = symbol.value;
4622             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4623             return value;
4624         })(), l137.fvalue(pv, "while(", l139.fvalue(pv, v521), " !== ", l139.fvalue(pv, l3.value), "){", (function(){
4625             var symbol = l125;
4626             var value = symbol.value;
4627             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4628             return value;
4629         })(), l137.fvalue(pv, l216.fvalue(pv, v520)), "}", "return ", l139.fvalue(pv, l3.value), ";", (function(){
4630             var symbol = l125;
4631             var value = symbol.value;
4632             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4633             return value;
4634         })()), "})()");
4635     })();
4636 })), cdr: (function(){
4637     var symbol = l200;
4638     var value = symbol.value;
4639     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4640     return value;
4641 })()}));
4642 var l227 = {name: "SYMBOL-FUNCTION"};
4643 ((l200).value = ({car: l43.fvalue(pv, l100, (function (values,v522){
4644     checkArgs(arguments, 2);
4645     return (function(){
4646         return ((l58.fvalue(pv, v522) !== l3.value ? (((function(){
4647             var tmp = v522;
4648             return tmp === l3.value? l3.value: tmp.car;
4649         })() === l5)?l4.value: l3.value) : l3.value) !== l3.value ? l215.fvalue(values, l33.fvalue(pv, v522), l35.fvalue(pv, v522)) : (((function(){
4650             var tmp = v522;
4651             return (typeof tmp == 'object' && 'name' in tmp);
4652         })()?l4.value: l3.value) !== l3.value ? l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l227), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v522))))) : l3.value));
4653     })();
4654 })), cdr: (function(){
4655     var symbol = l200;
4656     var value = symbol.value;
4657     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4658     return value;
4659 })()}));
4660 var l228 = {name: "*COMPILING-FILE*"};
4661 (function(){
4662     (((l228.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l228).value = l3.value));
4663     return l228;
4664 })();
4665 var l229 = {name: "EVAL-WHEN-COMPILE"};
4666 var l230 = {name: "EVAL"};
4667 var l231 = {name: "PROGN"};
4668 ((l200).value = ({car: l43.fvalue(pv, l229, (function (values){
4669     var v523= l3.value;
4670     for (var i = arguments.length-1; i>=1; i--)
4671         v523 = {car: arguments[i], cdr:
4672     v523};
4673     return (function(){
4674         return ((function(){
4675             var symbol = l228;
4676             var value = symbol.value;
4677             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4678             return value;
4679         })() !== l3.value ? (function(){
4680             l230.fvalue(pv, ({car: l231, cdr: v523}));
4681             return l3.value;
4682         })() : l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l231), v523)));
4683     })();
4684 })), cdr: (function(){
4685     var symbol = l200;
4686     var value = symbol.value;
4687     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4688     return value;
4689 })()}));
4690 var l232 = {name: "DEFINE-TRANSFORMATION"};
4691 l232;
4692 ((l200).value = ({car: l43.fvalue(pv, l231, (function (values){
4693     var v524= l3.value;
4694     for (var i = arguments.length-1; i>=1; i--)
4695         v524 = {car: arguments[i], cdr:
4696     v524};
4697     return (function(){
4698         return (l12.fvalue(pv, (function(){
4699             var tmp = v524;
4700             return tmp === l3.value? l3.value: tmp.cdr;
4701         })()) !== l3.value ? l139.fvalue(values, (function(){
4702             var tmp = v524;
4703             return tmp === l3.value? l3.value: tmp.car;
4704         })(), (function(){
4705             var symbol = l166;
4706             var value = symbol.value;
4707             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4708             return value;
4709         })()) : l126.fvalue(values, "(function(){", (function(){
4710             var symbol = l125;
4711             var value = symbol.value;
4712             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4713             return value;
4714         })(), l137.fvalue(pv, l216.fvalue(pv, v524, l4.value)), "})()"));
4715     })();
4716 })), cdr: (function(){
4717     var symbol = l200;
4718     var value = symbol.value;
4719     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4720     return value;
4721 })()}));
4722 var l233 = {name: "SPECIAL-VARIABLE-P"};
4723 (function(){
4724     (l233).fvalue = (function(v526){
4725         ((v526)["fname"] = "SPECIAL-VARIABLE-P");
4726         return v526;
4727     })((function (values,v525){
4728         checkArgs(arguments, 2);
4729         return (function(){
4730             return (l194.fvalue(pv, v525, l101, l196) !== l3.value ? l4.value : l3.value);
4731         })();
4732     }));
4733     return l233;
4734 })();
4735 var l234 = {name: "LET-BINDING-WRAPPER"};
4736 (function(){
4737     (l234).fvalue = (function(v533){
4738         ((v533)["fname"] = "LET-BINDING-WRAPPER");
4739         return v533;
4740     })((function (values,v527,v528){
4741         checkArgs(arguments, 3);
4742         return (function(){
4743             try {
4744                 (l12.fvalue(pv, v527) !== l3.value ? (function(){
4745                     var values = mv;
4746                     throw ({type: 'block', id: 197, values: v528, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
4747                 })() : l3.value);
4748                 return l126.fvalue(values, "try {", (function(){
4749                     var symbol = l125;
4750                     var value = symbol.value;
4751                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4752                     return value;
4753                 })(), l137.fvalue(pv, "var tmp;", (function(){
4754                     var symbol = l125;
4755                     var value = symbol.value;
4756                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4757                     return value;
4758                 })(), l130.fvalue(pv, (function (values,v529){
4759                     checkArgs(arguments, 2);
4760                     return (function(v530){
4761                         return l126.fvalue(values, "tmp = ", v530, ".value;", (function(){
4762                             var symbol = l125;
4763                             var value = symbol.value;
4764                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4765                             return value;
4766                         })(), v530, ".value = ", (function(){
4767                             var tmp = v529;
4768                             return tmp === l3.value? l3.value: tmp.cdr;
4769                         })(), ";", (function(){
4770                             var symbol = l125;
4771                             var value = symbol.value;
4772                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4773                             return value;
4774                         })(), (function(){
4775                             var tmp = v529;
4776                             return tmp === l3.value? l3.value: tmp.cdr;
4777                         })(), " = tmp;", (function(){
4778                             var symbol = l125;
4779                             var value = symbol.value;
4780                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4781                             return value;
4782                         })());
4783                     })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4784                         var tmp = v529;
4785                         return tmp === l3.value? l3.value: tmp.car;
4786                     })()))));
4787                 }), v527), v528, (function(){
4788                     var symbol = l125;
4789                     var value = symbol.value;
4790                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4791                     return value;
4792                 })()), "}", (function(){
4793                     var symbol = l125;
4794                     var value = symbol.value;
4795                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4796                     return value;
4797                 })(), "finally {", (function(){
4798                     var symbol = l125;
4799                     var value = symbol.value;
4800                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4801                     return value;
4802                 })(), l137.fvalue(pv, l130.fvalue(pv, (function (values,v531){
4803                     checkArgs(arguments, 2);
4804                     return (function(v532){
4805                         return l126.fvalue(values, v532, ".value", " = ", (function(){
4806                             var tmp = v531;
4807                             return tmp === l3.value? l3.value: tmp.cdr;
4808                         })(), ";", (function(){
4809                             var symbol = l125;
4810                             var value = symbol.value;
4811                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4812                             return value;
4813                         })());
4814                     })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4815                         var tmp = v531;
4816                         return tmp === l3.value? l3.value: tmp.car;
4817                     })()))));
4818                 }), v527)), "}", (function(){
4819                     var symbol = l125;
4820                     var value = symbol.value;
4821                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4822                     return value;
4823                 })());
4824             }
4825             catch (cf){
4826                 if (cf.type == 'block' && cf.id == 197)
4827                     return values.apply(this, forcemv(cf.values));
4828                 else
4829                     throw cf;
4830             }
4831         })();
4832     }));
4833     return l234;
4834 })();
4835 var l235 = {name: "LET"};
4836 ((l200).value = ({car: l43.fvalue(pv, l235, (function (values,v535){
4837     checkArgsAtLeast(arguments, 2);
4838     var v534= l3.value;
4839     for (var i = arguments.length-1; i>=2; i--)
4840         v534 = {car: arguments[i], cdr:
4841     v534};
4842     return (function(){
4843         return (function(){
4844             try {
4845                 var v543 = l182.value;
4846                 var v536 = l72.fvalue(pv, (function(){
4847                     var symbol = l57;
4848                     var func = symbol.fvalue;
4849                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4850                     return func;
4851                 })(), v535);
4852                 var v537 = l72.fvalue(pv, (function(){
4853                     var symbol = l39;
4854                     var func = symbol.fvalue;
4855                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4856                     return func;
4857                 })(), v536);
4858                 var v538 = l72.fvalue(pv, (function(){
4859                     var symbol = l139;
4860                     var func = symbol.fvalue;
4861                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4862                     return func;
4863                 })(), l72.fvalue(pv, (function(){
4864                     var symbol = l40;
4865                     var func = symbol.fvalue;
4866                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4867                     return func;
4868                 })(), v536));
4869                 ((l182).value = l186.fvalue(pv, l87.fvalue(pv, (function(){
4870                     var symbol = l233;
4871                     var func = symbol.fvalue;
4872                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4873                     return func;
4874                 })(), v537)));
4875                 var v539 = l3.value;
4876                 return l126.fvalue(values, "(function(", l128.fvalue(pv, l72.fvalue(pv, (function (values,v540){
4877                     checkArgs(arguments, 2);
4878                     return (l233.fvalue(pv, v540) !== l3.value ? (function(v541){
4879                         (v539 = ({car: ({car: v540, cdr: v541}), cdr: v539}));
4880                         return v541;
4881                     })(l184.fvalue(pv, v540)) : l185.fvalue(values, v540));
4882                 }), v537), ","), "){", (function(){
4883                     var symbol = l125;
4884                     var value = symbol.value;
4885                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4886                     return value;
4887                 })(), (function(v542){
4888                     return l137.fvalue(pv, l234.fvalue(pv, v539, v542));
4889                 })(l216.fvalue(pv, v534, l4.value)), "})(", l128.fvalue(pv, v538, ","), ")");
4890             }
4891             finally {
4892                 l182.value = v543;
4893             }
4894         })();
4895     })();
4896 })), cdr: (function(){
4897     var symbol = l200;
4898     var value = symbol.value;
4899     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4900     return value;
4901 })()}));
4902 var l236 = {name: "LET*-INITIALIZE-VALUE"};
4903 (function(){
4904     (l236).fvalue = (function(v550){
4905         ((v550)["fname"] = "LET*-INITIALIZE-VALUE");
4906         return v550;
4907     })((function (values,v544){
4908         checkArgs(arguments, 2);
4909         return (function(){
4910             return (function(v545,v546){
4911                 return (l233.fvalue(pv, v545) !== l3.value ? l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l219), l43.fvalue(pv, v545), l43.fvalue(pv, v546))), ";", (function(){
4912                     var symbol = l125;
4913                     var value = symbol.value;
4914                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4915                     return value;
4916                 })()) : (function(){
4917                     var v547 = l184.fvalue(pv, v545);
4918                     var v548 = l167.fvalue(pv, v545, l101, v547);
4919                     return (function(v549){
4920                         l177.fvalue(pv, v548, (function(){
4921                             var symbol = l182;
4922                             var value = symbol.value;
4923                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4924                             return value;
4925                         })(), l101);
4926                         return v549;
4927                     })(l126.fvalue(pv, "var ", v547, " = ", l139.fvalue(pv, v546), ";", (function(){
4928                         var symbol = l125;
4929                         var value = symbol.value;
4930                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4931                         return value;
4932                     })()));
4933                 })());
4934             })(l39.fvalue(pv, v544),l40.fvalue(pv, v544));
4935         })();
4936     }));
4937     return l236;
4938 })();
4939 var l237 = {name: "LET*-BINDING-WRAPPER"};
4940 (function(){
4941     (l237).fvalue = (function(v559){
4942         ((v559)["fname"] = "LET*-BINDING-WRAPPER");
4943         return v559;
4944     })((function (values,v551,v552){
4945         checkArgs(arguments, 3);
4946         return (function(){
4947             try {
4948                 (l12.fvalue(pv, v551) !== l3.value ? (function(){
4949                     var values = mv;
4950                     throw ({type: 'block', id: 200, values: v552, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
4951                 })() : l3.value);
4952                 return (function(v554){
4953                     return l126.fvalue(values, "try {", (function(){
4954                         var symbol = l125;
4955                         var value = symbol.value;
4956                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4957                         return value;
4958                     })(), l137.fvalue(pv, l130.fvalue(pv, (function (values,v555){
4959                         checkArgs(arguments, 2);
4960                         return (function(v556){
4961                             return l126.fvalue(values, "var ", (function(){
4962                                 var tmp = v555;
4963                                 return tmp === l3.value? l3.value: tmp.cdr;
4964                             })(), " = ", v556, ".value;", (function(){
4965                                 var symbol = l125;
4966                                 var value = symbol.value;
4967                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4968                                 return value;
4969                             })());
4970                         })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4971                             var tmp = v555;
4972                             return tmp === l3.value? l3.value: tmp.car;
4973                         })()))));
4974                     }), v554), v552), "}", (function(){
4975                         var symbol = l125;
4976                         var value = symbol.value;
4977                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4978                         return value;
4979                     })(), "finally {", (function(){
4980                         var symbol = l125;
4981                         var value = symbol.value;
4982                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4983                         return value;
4984                     })(), l137.fvalue(pv, l130.fvalue(pv, (function (values,v557){
4985                         checkArgs(arguments, 2);
4986                         return (function(v558){
4987                             return l126.fvalue(values, v558, ".value", " = ", (function(){
4988                                 var tmp = v557;
4989                                 return tmp === l3.value? l3.value: tmp.cdr;
4990                             })(), ";", (function(){
4991                                 var symbol = l125;
4992                                 var value = symbol.value;
4993                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4994                                 return value;
4995                             })());
4996                         })(l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, (function(){
4997                             var tmp = v557;
4998                             return tmp === l3.value? l3.value: tmp.car;
4999                         })()))));
5000                     }), v554)), "}", (function(){
5001                         var symbol = l125;
5002                         var value = symbol.value;
5003                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5004                         return value;
5005                     })());
5006                 })(l72.fvalue(pv, (function (values,v553){
5007                     checkArgs(arguments, 2);
5008                     return ({car: v553, cdr: l184.fvalue(pv, v553)});
5009                 }), l88.fvalue(pv, (function(){
5010                     var symbol = l233;
5011                     var func = symbol.fvalue;
5012                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5013                     return func;
5014                 })(), v551)));
5015             }
5016             catch (cf){
5017                 if (cf.type == 'block' && cf.id == 200)
5018                     return values.apply(this, forcemv(cf.values));
5019                 else
5020                     throw cf;
5021             }
5022         })();
5023     }));
5024     return l237;
5025 })();
5026 var l238 = {name: "LET*"};
5027 ((l200).value = ({car: l43.fvalue(pv, l238, (function (values,v561){
5028     checkArgsAtLeast(arguments, 2);
5029     var v560= l3.value;
5030     for (var i = arguments.length-1; i>=2; i--)
5031         v560 = {car: arguments[i], cdr:
5032     v560};
5033     return (function(){
5034         return (function(v562,v563){
5035             try {
5036                 var tmp;
5037                 tmp = l182.value;
5038                 l182.value = v563;
5039                 v563 = tmp;
5040                 return l126.fvalue(values, "(function(){", (function(){
5041                     var symbol = l125;
5042                     var value = symbol.value;
5043                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5044                     return value;
5045                 })(), l137.fvalue(pv, (function(v564,v565){
5046                     return l237.fvalue(pv, v564, v565);
5047                 })(l88.fvalue(pv, (function(){
5048                     var symbol = l233;
5049                     var func = symbol.fvalue;
5050                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5051                     return func;
5052                 })(), l72.fvalue(pv, (function(){
5053                     var symbol = l39;
5054                     var func = symbol.fvalue;
5055                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5056                     return func;
5057                 })(), v562)),l126.fvalue(pv, l130.fvalue(pv, (function(){
5058                     var symbol = l236;
5059                     var func = symbol.fvalue;
5060                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5061                     return func;
5062                 })(), v562), l216.fvalue(pv, v560, l4.value)))), "})()");
5063             }
5064             finally {
5065                 l182.value = v563;
5066             }
5067         })(l72.fvalue(pv, (function(){
5068             var symbol = l57;
5069             var func = symbol.fvalue;
5070             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5071             return func;
5072         })(), v561),l176.fvalue(pv, (function(){
5073             var symbol = l182;
5074             var value = symbol.value;
5075             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5076             return value;
5077         })()));
5078     })();
5079 })), cdr: (function(){
5080     var symbol = l200;
5081     var value = symbol.value;
5082     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5083     return value;
5084 })()}));
5085 var l239 = {name: "*BLOCK-COUNTER*"};
5086 (function(){
5087     (((l239.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l239).value = 0));
5088     return l239;
5089 })();
5090 var l240 = {name: "MULTIPLE-VALUE"};
5091 var l241 = {name: "USED"};
5092 ((l200).value = ({car: l43.fvalue(pv, l178, (function (values,v567){
5093     checkArgsAtLeast(arguments, 2);
5094     var v566= l3.value;
5095     for (var i = arguments.length-1; i>=2; i--)
5096         v566 = {car: arguments[i], cdr:
5097     v566};
5098     return (function(){
5099         return (function(){
5100             var v568 = l17.fvalue(pv, ((l239).value = (function(){
5101                 var x1 = (function(){
5102                     var symbol = l239;
5103                     var value = symbol.value;
5104                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5105                     return value;
5106                 })();
5107                 if (typeof x1 !== 'number') throw 'Not a number!';
5108                 var x2 = 1;
5109                 if (typeof x2 !== 'number') throw 'Not a number!';
5110                 return x1+x2;
5111             })()));
5112             var v569 = l167.fvalue(pv, v567, l178, v568);
5113             ((function(){
5114                 var symbol = l166;
5115                 var value = symbol.value;
5116                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5117                 return value;
5118             })() !== l3.value ? l174.fvalue(pv, l240, v569) : l3.value);
5119             return (function(){
5120                 try {
5121                     var v571 = l182.value;
5122                     ((l182).value = l180.fvalue(pv, l43.fvalue(pv, v569), (function(){
5123                         var symbol = l182;
5124                         var value = symbol.value;
5125                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5126                         return value;
5127                     })(), l178));
5128                     var v570 = l216.fvalue(pv, v566, l4.value);
5129                     return (l85.fvalue(pv, l241, l171.fvalue(pv, v569)) !== l3.value ? l126.fvalue(values, "(function(){", (function(){
5130                         var symbol = l125;
5131                         var value = symbol.value;
5132                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5133                         return value;
5134                     })(), l137.fvalue(pv, "try {", (function(){
5135                         var symbol = l125;
5136                         var value = symbol.value;
5137                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5138                         return value;
5139                     })(), l137.fvalue(pv, v570), "}", (function(){
5140                         var symbol = l125;
5141                         var value = symbol.value;
5142                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5143                         return value;
5144                     })(), "catch (cf){", (function(){
5145                         var symbol = l125;
5146                         var value = symbol.value;
5147                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5148                         return value;
5149                     })(), "    if (cf.type == 'block' && cf.id == ", v568, ")", (function(){
5150                         var symbol = l125;
5151                         var value = symbol.value;
5152                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5153                         return value;
5154                     })(), ((function(){
5155                         var symbol = l166;
5156                         var value = symbol.value;
5157                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5158                         return value;
5159                     })() !== l3.value ? "        return values.apply(this, forcemv(cf.values));" : "        return cf.values;"), (function(){
5160                         var symbol = l125;
5161                         var value = symbol.value;
5162                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5163                         return value;
5164                     })(), "    else", (function(){
5165                         var symbol = l125;
5166                         var value = symbol.value;
5167                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5168                         return value;
5169                     })(), "        throw cf;", (function(){
5170                         var symbol = l125;
5171                         var value = symbol.value;
5172                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5173                         return value;
5174                     })(), "}", (function(){
5175                         var symbol = l125;
5176                         var value = symbol.value;
5177                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5178                         return value;
5179                     })()), "})()") : l126.fvalue(values, "(function(){", (function(){
5180                         var symbol = l125;
5181                         var value = symbol.value;
5182                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5183                         return value;
5184                     })(), l137.fvalue(pv, v570), "})()"));
5185                 }
5186                 finally {
5187                     l182.value = v571;
5188                 }
5189             })();
5190         })();
5191     })();
5192 })), cdr: (function(){
5193     var symbol = l200;
5194     var value = symbol.value;
5195     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5196     return value;
5197 })()}));
5198 var l242 = {name: "RETURN-FROM"};
5199 ((l200).value = ({car: l43.fvalue(pv, l242, (function (values,v572,v573){
5200     checkArgsAtLeast(arguments, 2);
5201     checkArgsAtMost(arguments, 3);
5202     switch(arguments.length-1){
5203     case 1:
5204     v573=l3.value;
5205     default: break;
5206     }
5207     return (function(){
5208         return (function(){
5209             var v574 = l181.fvalue(pv, v572, (function(){
5210                 var symbol = l182;
5211                 var value = symbol.value;
5212                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5213                 return value;
5214             })(), l178);
5215             var v575 = l85.fvalue(pv, l240, l171.fvalue(pv, v574));
5216             (l12.fvalue(pv, v574) !== l3.value ? (function(){
5217                 throw l126.fvalue(pv, "Unknown block `", (v572).name, "'.");
5218             })() : l3.value);
5219             l174.fvalue(pv, l241, v574);
5220             return l126.fvalue(values, "(function(){", (function(){
5221                 var symbol = l125;
5222                 var value = symbol.value;
5223                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5224                 return value;
5225             })(), l137.fvalue(pv, (v575 !== l3.value ? l126.fvalue(pv, "var values = mv;", (function(){
5226                 var symbol = l125;
5227                 var value = symbol.value;
5228                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5229                 return value;
5230             })()) : ""), "throw ({", "type: 'block', ", "id: ", l170.fvalue(pv, v574), ", ", "values: ", l139.fvalue(pv, v573, v575), ", ", "message: 'Return from unknown block ", (v572).name, ".'", "})"), "})()");
5231         })();
5232     })();
5233 })), cdr: (function(){
5234     var symbol = l200;
5235     var value = symbol.value;
5236     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5237     return value;
5238 })()}));
5239 var l243 = {name: "CATCH"};
5240 ((l200).value = ({car: l43.fvalue(pv, l243, (function (values,v577){
5241     checkArgsAtLeast(arguments, 2);
5242     var v576= l3.value;
5243     for (var i = arguments.length-1; i>=2; i--)
5244         v576 = {car: arguments[i], cdr:
5245     v576};
5246     return (function(){
5247         return l126.fvalue(values, "(function(){", (function(){
5248             var symbol = l125;
5249             var value = symbol.value;
5250             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5251             return value;
5252         })(), l137.fvalue(pv, "var id = ", l139.fvalue(pv, v577), ";", (function(){
5253             var symbol = l125;
5254             var value = symbol.value;
5255             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5256             return value;
5257         })(), "try {", (function(){
5258             var symbol = l125;
5259             var value = symbol.value;
5260             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5261             return value;
5262         })(), l137.fvalue(pv, l216.fvalue(pv, v576, l4.value)), (function(){
5263             var symbol = l125;
5264             var value = symbol.value;
5265             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5266             return value;
5267         })(), "}", (function(){
5268             var symbol = l125;
5269             var value = symbol.value;
5270             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5271             return value;
5272         })(), "catch (cf){", (function(){
5273             var symbol = l125;
5274             var value = symbol.value;
5275             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5276             return value;
5277         })(), "    if (cf.type == 'catch' && cf.id == id)", (function(){
5278             var symbol = l125;
5279             var value = symbol.value;
5280             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5281             return value;
5282         })(), ((function(){
5283             var symbol = l166;
5284             var value = symbol.value;
5285             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5286             return value;
5287         })() !== l3.value ? "        return values.apply(this, forcemv(cf.values));" : "        return pv.apply(this, forcemv(cf.values));"), (function(){
5288             var symbol = l125;
5289             var value = symbol.value;
5290             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5291             return value;
5292         })(), "    else", (function(){
5293             var symbol = l125;
5294             var value = symbol.value;
5295             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5296             return value;
5297         })(), "        throw cf;", (function(){
5298             var symbol = l125;
5299             var value = symbol.value;
5300             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5301             return value;
5302         })(), "}", (function(){
5303             var symbol = l125;
5304             var value = symbol.value;
5305             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5306             return value;
5307         })()), "})()");
5308     })();
5309 })), cdr: (function(){
5310     var symbol = l200;
5311     var value = symbol.value;
5312     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5313     return value;
5314 })()}));
5315 var l244 = {name: "THROW"};
5316 ((l200).value = ({car: l43.fvalue(pv, l244, (function (values,v578,v579){
5317     checkArgs(arguments, 3);
5318     return (function(){
5319         return l126.fvalue(values, "(function(){", (function(){
5320             var symbol = l125;
5321             var value = symbol.value;
5322             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5323             return value;
5324         })(), l137.fvalue(pv, "var values = mv;", (function(){
5325             var symbol = l125;
5326             var value = symbol.value;
5327             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5328             return value;
5329         })(), "throw ({", "type: 'catch', ", "id: ", l139.fvalue(pv, v578), ", ", "values: ", l139.fvalue(pv, v579, l4.value), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5330     })();
5331 })), cdr: (function(){
5332     var symbol = l200;
5333     var value = symbol.value;
5334     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5335     return value;
5336 })()}));
5337 var l245 = {name: "*TAGBODY-COUNTER*"};
5338 (function(){
5339     (((l245.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l245).value = 0));
5340     return l245;
5341 })();
5342 var l246 = {name: "*GO-TAG-COUNTER*"};
5343 (function(){
5344     (((l246.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l246).value = 0));
5345     return l246;
5346 })();
5347 var l247 = {name: "GO-TAG-P"};
5348 (function(){
5349     (l247).fvalue = (function(v582){
5350         ((v582)["fname"] = "GO-TAG-P");
5351         return v582;
5352     })((function (values,v580){
5353         checkArgs(arguments, 2);
5354         return (function(){
5355             return (function(v581){
5356                 return (v581 !== l3.value ? v581 : ((function(){
5357                     var tmp = v580;
5358                     return (typeof tmp == 'object' && 'name' in tmp);
5359                 })()?l4.value: l3.value));
5360             })(l78.fvalue(pv, v580));
5361         })();
5362     }));
5363     return l247;
5364 })();
5365 var l248 = {name: "DECLARE-TAGBODY-TAGS"};
5366 (function(){
5367     (l248).fvalue = (function(v588){
5368         ((v588)["fname"] = "DECLARE-TAGBODY-TAGS");
5369         return v588;
5370     })((function (values,v583,v584){
5371         checkArgs(arguments, 3);
5372         return (function(){
5373             return (function(v587){
5374                 return l180.fvalue(values, v587, (function(){
5375                     var symbol = l182;
5376                     var value = symbol.value;
5377                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5378                     return value;
5379                 })(), l179);
5380             })(l72.fvalue(pv, (function (values,v585){
5381                 checkArgs(arguments, 2);
5382                 return (function(v586){
5383                     return l167.fvalue(values, v585, l179, l43.fvalue(pv, v583, v586));
5384                 })(l17.fvalue(pv, ((l246).value = (function(){
5385                     var x1 = (function(){
5386                         var symbol = l246;
5387                         var value = symbol.value;
5388                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5389                         return value;
5390                     })();
5391                     if (typeof x1 !== 'number') throw 'Not a number!';
5392                     var x2 = 1;
5393                     if (typeof x2 !== 'number') throw 'Not a number!';
5394                     return x1+x2;
5395                 })())));
5396             }), l88.fvalue(pv, (function(){
5397                 var symbol = l247;
5398                 var func = symbol.fvalue;
5399                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5400                 return func;
5401             })(), v584)));
5402         })();
5403     }));
5404     return l248;
5405 })();
5406 var l249 = {name: "TAGBODY"};
5407 ((l200).value = ({car: l43.fvalue(pv, l249, (function (values){
5408     var v589= l3.value;
5409     for (var i = arguments.length-1; i>=1; i--)
5410         v589 = {car: arguments[i], cdr:
5411     v589};
5412     return (function(){
5413         try {
5414             (l91.fvalue(pv, (function(){
5415                 var symbol = l247;
5416                 var func = symbol.fvalue;
5417                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5418                 return func;
5419             })(), v589) !== l3.value ? l3.value : (function(){
5420                 var values = mv;
5421                 throw ({type: 'block', id: 208, values: l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l231), v589, l43.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
5422             })());
5423             (l247.fvalue(pv, (function(){
5424                 var tmp = v589;
5425                 return tmp === l3.value? l3.value: tmp.car;
5426             })()) !== l3.value ? l3.value : (v589 = ({car: l16.fvalue(pv, "START"), cdr: v589})));
5427             return (function(v590){
5428                 return (function(v592,v591){
5429                     try {
5430                         var tmp;
5431                         tmp = l182.value;
5432                         l182.value = v592;
5433                         v592 = tmp;
5434                         (function(v593){
5435                             return (v591 = l40.fvalue(pv, l170.fvalue(pv, v593)));
5436                         })(l181.fvalue(pv, l39.fvalue(pv, v589), (function(){
5437                             var symbol = l182;
5438                             var value = symbol.value;
5439                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5440                             return value;
5441                         })(), l179));
5442                         return l126.fvalue(values, "(function(){", (function(){
5443                             var symbol = l125;
5444                             var value = symbol.value;
5445                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5446                             return value;
5447                         })(), l137.fvalue(pv, "var tagbody_", v590, " = ", v591, ";", (function(){
5448                             var symbol = l125;
5449                             var value = symbol.value;
5450                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5451                             return value;
5452                         })(), "tbloop:", (function(){
5453                             var symbol = l125;
5454                             var value = symbol.value;
5455                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5456                             return value;
5457                         })(), "while (true) {", (function(){
5458                             var symbol = l125;
5459                             var value = symbol.value;
5460                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5461                             return value;
5462                         })(), l137.fvalue(pv, "try {", (function(){
5463                             var symbol = l125;
5464                             var value = symbol.value;
5465                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5466                             return value;
5467                         })(), l137.fvalue(pv, (function(v594){
5468                             return l126.fvalue(pv, "switch(tagbody_", v590, "){", (function(){
5469                                 var symbol = l125;
5470                                 var value = symbol.value;
5471                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5472                                 return value;
5473                             })(), "case ", v591, ":", (function(){
5474                                 var symbol = l125;
5475                                 var value = symbol.value;
5476                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5477                                 return value;
5478                             })(), (function(){
5479                                 return (function(v595,v596){
5480                                     (function(){
5481                                         while(v595 !== l3.value){
5482                                             (v596 = (function(){
5483                                                 var tmp = v595;
5484                                                 return tmp === l3.value? l3.value: tmp.car;
5485                                             })());
5486                                             (function(){
5487                                                 (v594 = l126.fvalue(pv, v594, (l27.fvalue(pv, l247.fvalue(pv, v596)) !== l3.value ? l137.fvalue(pv, l139.fvalue(pv, v596), ";", (function(){
5488                                                     var symbol = l125;
5489                                                     var value = symbol.value;
5490                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5491                                                     return value;
5492                                                 })()) : (function(v597){
5493                                                     return l126.fvalue(pv, "case ", l40.fvalue(pv, l170.fvalue(pv, v597)), ":", (function(){
5494                                                         var symbol = l125;
5495                                                         var value = symbol.value;
5496                                                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5497                                                         return value;
5498                                                     })());
5499                                                 })(l181.fvalue(pv, v596, (function(){
5500                                                     var symbol = l182;
5501                                                     var value = symbol.value;
5502                                                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5503                                                     return value;
5504                                                 })(), l179)))));
5505                                                 return l3.value;
5506                                             })();
5507                                             (v595 = (function(){
5508                                                 var tmp = v595;
5509                                                 return tmp === l3.value? l3.value: tmp.cdr;
5510                                             })());
5511                                         }return l3.value;
5512                                     })();
5513                                     return v594;
5514                                 })((function(){
5515                                     var tmp = v589;
5516                                     return tmp === l3.value? l3.value: tmp.cdr;
5517                                 })(),l3.value);
5518                             })(), "default:", (function(){
5519                                 var symbol = l125;
5520                                 var value = symbol.value;
5521                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5522                                 return value;
5523                             })(), "    break tbloop;", (function(){
5524                                 var symbol = l125;
5525                                 var value = symbol.value;
5526                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5527                                 return value;
5528                             })(), "}", (function(){
5529                                 var symbol = l125;
5530                                 var value = symbol.value;
5531                                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5532                                 return value;
5533                             })());
5534                         })("")), "}", (function(){
5535                             var symbol = l125;
5536                             var value = symbol.value;
5537                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5538                             return value;
5539                         })(), "catch (jump) {", (function(){
5540                             var symbol = l125;
5541                             var value = symbol.value;
5542                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5543                             return value;
5544                         })(), "    if (jump.type == 'tagbody' && jump.id == ", v590, ")", (function(){
5545                             var symbol = l125;
5546                             var value = symbol.value;
5547                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5548                             return value;
5549                         })(), "        tagbody_", v590, " = jump.label;", (function(){
5550                             var symbol = l125;
5551                             var value = symbol.value;
5552                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5553                             return value;
5554                         })(), "    else", (function(){
5555                             var symbol = l125;
5556                             var value = symbol.value;
5557                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5558                             return value;
5559                         })(), "        throw(jump);", (function(){
5560                             var symbol = l125;
5561                             var value = symbol.value;
5562                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5563                             return value;
5564                         })(), "}", (function(){
5565                             var symbol = l125;
5566                             var value = symbol.value;
5567                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5568                             return value;
5569                         })()), "}", (function(){
5570                             var symbol = l125;
5571                             var value = symbol.value;
5572                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5573                             return value;
5574                         })(), "return ", l139.fvalue(pv, l3.value), ";", (function(){
5575                             var symbol = l125;
5576                             var value = symbol.value;
5577                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5578                             return value;
5579                         })()), "})()");
5580                     }
5581                     finally {
5582                         l182.value = v592;
5583                     }
5584                 })(l248.fvalue(pv, v590, v589),l3.value);
5585             })(l17.fvalue(pv, (function(){
5586                 var symbol = l245;
5587                 var value = symbol.value;
5588                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5589                 return value;
5590             })()));
5591         }
5592         catch (cf){
5593             if (cf.type == 'block' && cf.id == 208)
5594                 return values.apply(this, forcemv(cf.values));
5595             else
5596                 throw cf;
5597         }
5598     })();
5599 })), cdr: (function(){
5600     var symbol = l200;
5601     var value = symbol.value;
5602     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5603     return value;
5604 })()}));
5605 var l250 = {name: "GO"};
5606 ((l200).value = ({car: l43.fvalue(pv, l250, (function (values,v598){
5607     checkArgs(arguments, 2);
5608     return (function(){
5609         return (function(v599,v600){
5610             return (v599 !== l3.value ? l126.fvalue(values, "(function(){", (function(){
5611                 var symbol = l125;
5612                 var value = symbol.value;
5613                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5614                 return value;
5615             })(), l137.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l39.fvalue(pv, l170.fvalue(pv, v599)), ", ", "label: ", l40.fvalue(pv, l170.fvalue(pv, v599)), ", ", "message: 'Attempt to GO to non-existing tag ", v600, "'", "})", (function(){
5616                 var symbol = l125;
5617                 var value = symbol.value;
5618                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5619                 return value;
5620             })()), "})()") : (function(){
5621                 throw l126.fvalue(pv, "Unknown tag `", v600, "'.");
5622             })());
5623         })(l181.fvalue(pv, v598, (function(){
5624             var symbol = l182;
5625             var value = symbol.value;
5626             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5627             return value;
5628         })(), l179),(((function(){
5629             var tmp = v598;
5630             return (typeof tmp == 'object' && 'name' in tmp);
5631         })()?l4.value: l3.value) !== l3.value ? (v598).name : (l78.fvalue(pv, v598) !== l3.value ? l17.fvalue(pv, v598) : l3.value)));
5632     })();
5633 })), cdr: (function(){
5634     var symbol = l200;
5635     var value = symbol.value;
5636     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5637     return value;
5638 })()}));
5639 var l251 = {name: "UNWIND-PROTECT"};
5640 ((l200).value = ({car: l43.fvalue(pv, l251, (function (values,v602){
5641     checkArgsAtLeast(arguments, 2);
5642     var v601= l3.value;
5643     for (var i = arguments.length-1; i>=2; i--)
5644         v601 = {car: arguments[i], cdr:
5645     v601};
5646     return (function(){
5647         return l126.fvalue(values, "(function(){", (function(){
5648             var symbol = l125;
5649             var value = symbol.value;
5650             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5651             return value;
5652         })(), l137.fvalue(pv, "var ret = ", l139.fvalue(pv, l3.value), ";", (function(){
5653             var symbol = l125;
5654             var value = symbol.value;
5655             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5656             return value;
5657         })(), "try {", (function(){
5658             var symbol = l125;
5659             var value = symbol.value;
5660             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5661             return value;
5662         })(), l137.fvalue(pv, "ret = ", l139.fvalue(pv, v602), ";", (function(){
5663             var symbol = l125;
5664             var value = symbol.value;
5665             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5666             return value;
5667         })()), "} finally {", (function(){
5668             var symbol = l125;
5669             var value = symbol.value;
5670             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5671             return value;
5672         })(), l137.fvalue(pv, l216.fvalue(pv, v601)), "}", (function(){
5673             var symbol = l125;
5674             var value = symbol.value;
5675             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5676             return value;
5677         })(), "return ret;", (function(){
5678             var symbol = l125;
5679             var value = symbol.value;
5680             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5681             return value;
5682         })()), "})()");
5683     })();
5684 })), cdr: (function(){
5685     var symbol = l200;
5686     var value = symbol.value;
5687     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5688     return value;
5689 })()}));
5690 var l252 = {name: "MULTIPLE-VALUE-CALL"};
5691 ((l200).value = ({car: l43.fvalue(pv, l252, (function (values,v604){
5692     checkArgsAtLeast(arguments, 2);
5693     var v603= l3.value;
5694     for (var i = arguments.length-1; i>=2; i--)
5695         v603 = {car: arguments[i], cdr:
5696     v603};
5697     return (function(){
5698         return l126.fvalue(values, "(function(){", (function(){
5699             var symbol = l125;
5700             var value = symbol.value;
5701             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5702             return value;
5703         })(), l137.fvalue(pv, "var func = ", l139.fvalue(pv, v604), ";", (function(){
5704             var symbol = l125;
5705             var value = symbol.value;
5706             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5707             return value;
5708         })(), "var args = [", ((function(){
5709             var symbol = l166;
5710             var value = symbol.value;
5711             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5712             return value;
5713         })() !== l3.value ? "values" : "pv"), "];", (function(){
5714             var symbol = l125;
5715             var value = symbol.value;
5716             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5717             return value;
5718         })(), "return ", l126.fvalue(pv, "(function(){", (function(){
5719             var symbol = l125;
5720             var value = symbol.value;
5721             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5722             return value;
5723         })(), l137.fvalue(pv, "var values = mv;", (function(){
5724             var symbol = l125;
5725             var value = symbol.value;
5726             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5727             return value;
5728         })(), "var vs;", (function(){
5729             var symbol = l125;
5730             var value = symbol.value;
5731             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5732             return value;
5733         })(), l130.fvalue(pv, (function (values,v605){
5734             checkArgs(arguments, 2);
5735             return l126.fvalue(values, "vs = ", l139.fvalue(pv, v605, l4.value), ";", (function(){
5736                 var symbol = l125;
5737                 var value = symbol.value;
5738                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5739                 return value;
5740             })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
5741                 var symbol = l125;
5742                 var value = symbol.value;
5743                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5744                 return value;
5745             })(), l137.fvalue(pv, "args = args.concat(vs);", (function(){
5746                 var symbol = l125;
5747                 var value = symbol.value;
5748                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5749                 return value;
5750             })()), "else", (function(){
5751                 var symbol = l125;
5752                 var value = symbol.value;
5753                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5754                 return value;
5755             })(), l137.fvalue(pv, "args.push(vs);", (function(){
5756                 var symbol = l125;
5757                 var value = symbol.value;
5758                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5759                 return value;
5760             })()));
5761         }), v603), "return func.apply(window, args);", (function(){
5762             var symbol = l125;
5763             var value = symbol.value;
5764             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5765             return value;
5766         })()), "})()"), ";", (function(){
5767             var symbol = l125;
5768             var value = symbol.value;
5769             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5770             return value;
5771         })()), "})()");
5772     })();
5773 })), cdr: (function(){
5774     var symbol = l200;
5775     var value = symbol.value;
5776     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5777     return value;
5778 })()}));
5779 var l253 = {name: "MULTIPLE-VALUE-PROG1"};
5780 ((l200).value = ({car: l43.fvalue(pv, l253, (function (values,v607){
5781     checkArgsAtLeast(arguments, 2);
5782     var v606= l3.value;
5783     for (var i = arguments.length-1; i>=2; i--)
5784         v606 = {car: arguments[i], cdr:
5785     v606};
5786     return (function(){
5787         return l126.fvalue(values, "(function(){", (function(){
5788             var symbol = l125;
5789             var value = symbol.value;
5790             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5791             return value;
5792         })(), l137.fvalue(pv, "var args = ", l139.fvalue(pv, v607, (function(){
5793             var symbol = l166;
5794             var value = symbol.value;
5795             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5796             return value;
5797         })()), ";", (function(){
5798             var symbol = l125;
5799             var value = symbol.value;
5800             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5801             return value;
5802         })(), l216.fvalue(pv, v606), "return args;", (function(){
5803             var symbol = l125;
5804             var value = symbol.value;
5805             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5806             return value;
5807         })()), "})()");
5808     })();
5809 })), cdr: (function(){
5810     var symbol = l200;
5811     var value = symbol.value;
5812     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5813     return value;
5814 })()}));
5815 var l254 = {name: "BACKQUOTE-EXPAND-1"};
5816 (function(){
5817     (l254).fvalue = (function(v610){
5818         ((v610)["fname"] = "BACKQUOTE-EXPAND-1");
5819         return v610;
5820     })((function (values,v608){
5821         checkArgs(arguments, 2);
5822         return (function(){
5823             return (((function(){
5824                 var tmp = v608;
5825                 return (typeof tmp == 'object' && 'name' in tmp);
5826             })()?l4.value: l3.value) !== l3.value ? l43.fvalue(values, l161, v608) : (l44.fvalue(pv, v608) !== l3.value ? v608 : ((((function(){
5827                 var tmp = v608;
5828                 return tmp === l3.value? l3.value: tmp.car;
5829             })() === l164)?l4.value: l3.value) !== l3.value ? (function(){
5830                 var tmp = v608;
5831                 return tmp === l3.value? l3.value: tmp.car;
5832             })() : ((((function(){
5833                 var tmp = v608;
5834                 return tmp === l3.value? l3.value: tmp.car;
5835             })() === l162)?l4.value: l3.value) !== l3.value ? l254.fvalue(values, l254.fvalue(pv, l33.fvalue(pv, v608))) : ({car: l63, cdr: l72.fvalue(pv, (function (values,v609){
5836                 checkArgs(arguments, 2);
5837                 return ((l58.fvalue(pv, v609) !== l3.value ? (((function(){
5838                     var tmp = v609;
5839                     return tmp === l3.value? l3.value: tmp.car;
5840                 })() === l164)?l4.value: l3.value) : l3.value) !== l3.value ? l43.fvalue(values, l43, l33.fvalue(pv, v609)) : ((l58.fvalue(pv, v609) !== l3.value ? (((function(){
5841                     var tmp = v609;
5842                     return tmp === l3.value? l3.value: tmp.car;
5843                 })() === l163)?l4.value: l3.value) : l3.value) !== l3.value ? l33.fvalue(values, v609) : l43.fvalue(values, l43, l254.fvalue(pv, v609))));
5844             }), v608)})))));
5845         })();
5846     }));
5847     return l254;
5848 })();
5849 var l255 = {name: "BACKQUOTE-EXPAND"};
5850 (function(){
5851     (l255).fvalue = (function(v612){
5852         ((v612)["fname"] = "BACKQUOTE-EXPAND");
5853         return v612;
5854     })((function (values,v611){
5855         checkArgs(arguments, 2);
5856         return (function(){
5857             return ((l58.fvalue(pv, v611) !== l3.value ? (((function(){
5858                 var tmp = v611;
5859                 return tmp === l3.value? l3.value: tmp.car;
5860             })() === l162)?l4.value: l3.value) : l3.value) !== l3.value ? l254.fvalue(values, l33.fvalue(pv, v611)) : v611);
5861         })();
5862     }));
5863     return l255;
5864 })();
5865 l162;
5866 ((l200).value = ({car: l43.fvalue(pv, l162, (function (values,v613){
5867     checkArgs(arguments, 2);
5868     return (function(){
5869         return l139.fvalue(values, l254.fvalue(pv, v613));
5870     })();
5871 })), cdr: (function(){
5872     var symbol = l200;
5873     var value = symbol.value;
5874     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5875     return value;
5876 })()}));
5877 var l256 = {name: "*BUILTINS*"};
5878 (function(){
5879     (((l256.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l256).value = l3.value));
5880     return l256;
5881 })();
5882 var l257 = {name: "DEFINE-RAW-BUILTIN"};
5883 l257;
5884 var l258 = {name: "DEFINE-BUILTIN"};
5885 l258;
5886 var l259 = {name: "TYPE-CHECK"};
5887 l259;
5888 var l260 = {name: "VARIABLE-ARITY-CALL"};
5889 (function(){
5890     (l260).fvalue = (function(v622){
5891         ((v622)["fname"] = "VARIABLE-ARITY-CALL");
5892         return v622;
5893     })((function (values,v614,v615){
5894         checkArgs(arguments, 3);
5895         return (function(){
5896             (((function(){
5897                 var tmp = v614;
5898                 return (typeof tmp == 'object' && 'car' in tmp);
5899             })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
5900                 throw "ARGS must be a non-empty list";
5901             })());
5902             return (function(v616,v617,v618){
5903                 (function(){
5904                     return (function(v619,v620){
5905                         (function(){
5906                             while(v619 !== l3.value){
5907                                 (v620 = (function(){
5908                                     var tmp = v619;
5909                                     return tmp === l3.value? l3.value: tmp.car;
5910                                 })());
5911                                 (function(){
5912                                     (function(v621){
5913                                         (v617 = ({car: v621, cdr: v617}));
5914                                         return (v618 = l126.fvalue(pv, v618, l126.fvalue(pv, "var ", v621, " = ", l139.fvalue(pv, v620), ";", (function(){
5915                                             var symbol = l125;
5916                                             var value = symbol.value;
5917                                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5918                                             return value;
5919                                         })(), "if (typeof ", v621, " !== 'number') throw 'Not a number!';", (function(){
5920                                             var symbol = l125;
5921                                             var value = symbol.value;
5922                                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5923                                             return value;
5924                                         })())));
5925                                     })(l126.fvalue(pv, "x", l17.fvalue(pv, (v616 = (function(){
5926                                         var x1 = v616;
5927                                         if (typeof x1 !== 'number') throw 'Not a number!';
5928                                         var x2 = 1;
5929                                         if (typeof x2 !== 'number') throw 'Not a number!';
5930                                         return x1+x2;
5931                                     })()))));
5932                                     return l3.value;
5933                                 })();
5934                                 (v619 = (function(){
5935                                     var tmp = v619;
5936                                     return tmp === l3.value? l3.value: tmp.cdr;
5937                                 })());
5938                             }return l3.value;
5939                         })();
5940                         return l3.value;
5941                     })(v614,l3.value);
5942                 })();
5943                 return l126.fvalue(values, "(function(){", (function(){
5944                     var symbol = l125;
5945                     var value = symbol.value;
5946                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5947                     return value;
5948                 })(), l137.fvalue(pv, v618, (v615)(pv, l65.fvalue(pv, v617))), "})()");
5949             })(0,l3,"");
5950         })();
5951     }));
5952     return l260;
5953 })();
5954 var l261 = {name: "VARIABLE-ARITY"};
5955 l261;
5956 var l262 = {name: "NUM-OP-NUM"};
5957 (function(){
5958     (l262).fvalue = (function(v626){
5959         ((v626)["fname"] = "NUM-OP-NUM");
5960         return v626;
5961     })((function (values,v623,v624,v625){
5962         checkArgs(arguments, 4);
5963         return (function(){
5964             return l126.fvalue(values, "(function(){", (function(){
5965                 var symbol = l125;
5966                 var value = symbol.value;
5967                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5968                 return value;
5969             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v623, ";", (function(){
5970                 var symbol = l125;
5971                 var value = symbol.value;
5972                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5973                 return value;
5974             })()), l126.fvalue(pv, "var ", "y", " = ", v625, ";", (function(){
5975                 var symbol = l125;
5976                 var value = symbol.value;
5977                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5978                 return value;
5979             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
5980                 var symbol = l125;
5981                 var value = symbol.value;
5982                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5983                 return value;
5984             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
5985                 var symbol = l125;
5986                 var value = symbol.value;
5987                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5988                 return value;
5989             })())), l126.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
5990                 var symbol = l125;
5991                 var value = symbol.value;
5992                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5993                 return value;
5994             })(), l137.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
5995                 var symbol = l125;
5996                 var value = symbol.value;
5997                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5998                 return value;
5999             })())), l126.fvalue(pv, "return ", l126.fvalue(pv, "x", v624, "y"), ";", (function(){
6000                 var symbol = l125;
6001                 var value = symbol.value;
6002                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6003                 return value;
6004             })())), "})()");
6005         })();
6006     }));
6007     return l262;
6008 })();
6009 ((l256).value = ({car: l43.fvalue(pv, l60, (function (values){
6010     var v627= l3.value;
6011     for (var i = arguments.length-1; i>=1; i--)
6012         v627 = {car: arguments[i], cdr:
6013     v627};
6014     return (function(){
6015         return (l12.fvalue(pv, v627) !== l3.value ? "0" : l260.fvalue(values, v627, (function (values,v628){
6016             checkArgs(arguments, 2);
6017             return l126.fvalue(values, "return ", l128.fvalue(pv, v628, "+"), ";", (function(){
6018                 var symbol = l125;
6019                 var value = symbol.value;
6020                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6021                 return value;
6022             })());
6023         })));
6024     })();
6025 })), cdr: (function(){
6026     var symbol = l256;
6027     var value = symbol.value;
6028     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6029     return value;
6030 })()}));
6031 ((l256).value = ({car: l43.fvalue(pv, l61, (function (values,v630){
6032     checkArgsAtLeast(arguments, 2);
6033     var v629= l3.value;
6034     for (var i = arguments.length-1; i>=2; i--)
6035         v629 = {car: arguments[i], cdr:
6036     v629};
6037     return (function(){
6038         return (function(v631){
6039             return l260.fvalue(values, v631, (function (values,v632){
6040                 checkArgs(arguments, 2);
6041                 return l126.fvalue(values, "return ", (l12.fvalue(pv, v629) !== l3.value ? l126.fvalue(pv, "-", (function(){
6042                     var tmp = v632;
6043                     return tmp === l3.value? l3.value: tmp.car;
6044                 })()) : l128.fvalue(pv, v632, "-")), ";", (function(){
6045                     var symbol = l125;
6046                     var value = symbol.value;
6047                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6048                     return value;
6049                 })());
6050             }));
6051         })(({car: v630, cdr: v629}));
6052     })();
6053 })), cdr: (function(){
6054     var symbol = l256;
6055     var value = symbol.value;
6056     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6057     return value;
6058 })()}));
6059 ((l256).value = ({car: l43.fvalue(pv, l20, (function (values){
6060     var v633= l3.value;
6061     for (var i = arguments.length-1; i>=1; i--)
6062         v633 = {car: arguments[i], cdr:
6063     v633};
6064     return (function(){
6065         return (l12.fvalue(pv, v633) !== l3.value ? "1" : l260.fvalue(values, v633, (function (values,v634){
6066             checkArgs(arguments, 2);
6067             return l126.fvalue(values, "return ", l128.fvalue(pv, v634, "*"), ";", (function(){
6068                 var symbol = l125;
6069                 var value = symbol.value;
6070                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6071                 return value;
6072             })());
6073         })));
6074     })();
6075 })), cdr: (function(){
6076     var symbol = l256;
6077     var value = symbol.value;
6078     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6079     return value;
6080 })()}));
6081 ((l256).value = ({car: l43.fvalue(pv, l21, (function (values,v636){
6082     checkArgsAtLeast(arguments, 2);
6083     var v635= l3.value;
6084     for (var i = arguments.length-1; i>=2; i--)
6085         v635 = {car: arguments[i], cdr:
6086     v635};
6087     return (function(){
6088         return (function(v637){
6089             return l260.fvalue(values, v637, (function (values,v638){
6090                 checkArgs(arguments, 2);
6091                 return l126.fvalue(values, "return ", (l12.fvalue(pv, v635) !== l3.value ? l126.fvalue(pv, "1 /", (function(){
6092                     var tmp = v638;
6093                     return tmp === l3.value? l3.value: tmp.car;
6094                 })()) : l128.fvalue(pv, v638, "/")), ";", (function(){
6095                     var symbol = l125;
6096                     var value = symbol.value;
6097                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6098                     return value;
6099                 })());
6100             }));
6101         })(({car: v636, cdr: v635}));
6102     })();
6103 })), cdr: (function(){
6104     var symbol = l256;
6105     var value = symbol.value;
6106     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6107     return value;
6108 })()}));
6109 var l263 = {name: "MOD"};
6110 ((l256).value = ({car: l43.fvalue(pv, l263, (function (values,v639,v640){
6111     checkArgs(arguments, 3);
6112     return (function(){
6113         return (function(v641,v642){
6114             return l262.fvalue(values, v641, "%", v642);
6115         })(l139.fvalue(pv, v639),l139.fvalue(pv, v640));
6116     })();
6117 })), cdr: (function(){
6118     var symbol = l256;
6119     var value = symbol.value;
6120     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6121     return value;
6122 })()}));
6123 var l264 = {name: "COMPARISON-CONJUNTION"};
6124 (function(){
6125     (l264).fvalue = (function(v645){
6126         ((v645)["fname"] = "COMPARISON-CONJUNTION");
6127         return v645;
6128     })((function (values,v643,v644){
6129         checkArgs(arguments, 3);
6130         return (function(){
6131             return (l12.fvalue(pv, (function(){
6132                 var tmp = v643;
6133                 return tmp === l3.value? l3.value: tmp.cdr;
6134             })()) !== l3.value ? "true" : (l12.fvalue(pv, l35.fvalue(pv, v643)) !== l3.value ? l126.fvalue(values, (function(){
6135                 var tmp = v643;
6136                 return tmp === l3.value? l3.value: tmp.car;
6137             })(), v644, l33.fvalue(pv, v643)) : l126.fvalue(values, (function(){
6138                 var tmp = v643;
6139                 return tmp === l3.value? l3.value: tmp.car;
6140             })(), v644, l33.fvalue(pv, v643), " && ", l264.fvalue(pv, (function(){
6141                 var tmp = v643;
6142                 return tmp === l3.value? l3.value: tmp.cdr;
6143             })(), v644))));
6144         })();
6145     }));
6146     return l264;
6147 })();
6148 var l265 = {name: "DEFINE-BUILTIN-COMPARISON"};
6149 l265;
6150 var l266 = {name: ">"};
6151 ((l256).value = ({car: l43.fvalue(pv, l266, (function (values,v647){
6152     checkArgsAtLeast(arguments, 2);
6153     var v646= l3.value;
6154     for (var i = arguments.length-1; i>=2; i--)
6155         v646 = {car: arguments[i], cdr:
6156     v646};
6157     return (function(){
6158         return (function(v648){
6159             return l260.fvalue(values, v648, (function (values,v649){
6160                 checkArgs(arguments, 2);
6161                 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v649, ">")), ";", (function(){
6162                     var symbol = l125;
6163                     var value = symbol.value;
6164                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6165                     return value;
6166                 })());
6167             }));
6168         })(({car: v647, cdr: v646}));
6169     })();
6170 })), cdr: (function(){
6171     var symbol = l256;
6172     var value = symbol.value;
6173     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6174     return value;
6175 })()}));
6176 var l267 = {name: "<"};
6177 ((l256).value = ({car: l43.fvalue(pv, l267, (function (values,v651){
6178     checkArgsAtLeast(arguments, 2);
6179     var v650= l3.value;
6180     for (var i = arguments.length-1; i>=2; i--)
6181         v650 = {car: arguments[i], cdr:
6182     v650};
6183     return (function(){
6184         return (function(v652){
6185             return l260.fvalue(values, v652, (function (values,v653){
6186                 checkArgs(arguments, 2);
6187                 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v653, "<")), ";", (function(){
6188                     var symbol = l125;
6189                     var value = symbol.value;
6190                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6191                     return value;
6192                 })());
6193             }));
6194         })(({car: v651, cdr: v650}));
6195     })();
6196 })), cdr: (function(){
6197     var symbol = l256;
6198     var value = symbol.value;
6199     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6200     return value;
6201 })()}));
6202 var l268 = {name: ">="};
6203 ((l256).value = ({car: l43.fvalue(pv, l268, (function (values,v655){
6204     checkArgsAtLeast(arguments, 2);
6205     var v654= l3.value;
6206     for (var i = arguments.length-1; i>=2; i--)
6207         v654 = {car: arguments[i], cdr:
6208     v654};
6209     return (function(){
6210         return (function(v656){
6211             return l260.fvalue(values, v656, (function (values,v657){
6212                 checkArgs(arguments, 2);
6213                 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v657, ">=")), ";", (function(){
6214                     var symbol = l125;
6215                     var value = symbol.value;
6216                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6217                     return value;
6218                 })());
6219             }));
6220         })(({car: v655, cdr: v654}));
6221     })();
6222 })), cdr: (function(){
6223     var symbol = l256;
6224     var value = symbol.value;
6225     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6226     return value;
6227 })()}));
6228 var l269 = {name: "<="};
6229 ((l256).value = ({car: l43.fvalue(pv, l269, (function (values,v659){
6230     checkArgsAtLeast(arguments, 2);
6231     var v658= l3.value;
6232     for (var i = arguments.length-1; i>=2; i--)
6233         v658 = {car: arguments[i], cdr:
6234     v658};
6235     return (function(){
6236         return (function(v660){
6237             return l260.fvalue(values, v660, (function (values,v661){
6238                 checkArgs(arguments, 2);
6239                 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v661, "<=")), ";", (function(){
6240                     var symbol = l125;
6241                     var value = symbol.value;
6242                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6243                     return value;
6244                 })());
6245             }));
6246         })(({car: v659, cdr: v658}));
6247     })();
6248 })), cdr: (function(){
6249     var symbol = l256;
6250     var value = symbol.value;
6251     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6252     return value;
6253 })()}));
6254 ((l256).value = ({car: l43.fvalue(pv, l19, (function (values,v663){
6255     checkArgsAtLeast(arguments, 2);
6256     var v662= l3.value;
6257     for (var i = arguments.length-1; i>=2; i--)
6258         v662 = {car: arguments[i], cdr:
6259     v662};
6260     return (function(){
6261         return (function(v664){
6262             return l260.fvalue(values, v664, (function (values,v665){
6263                 checkArgs(arguments, 2);
6264                 return l126.fvalue(values, "return ", l138.fvalue(pv, l264.fvalue(pv, v665, "==")), ";", (function(){
6265                     var symbol = l125;
6266                     var value = symbol.value;
6267                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6268                     return value;
6269                 })());
6270             }));
6271         })(({car: v663, cdr: v662}));
6272     })();
6273 })), cdr: (function(){
6274     var symbol = l256;
6275     var value = symbol.value;
6276     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6277     return value;
6278 })()}));
6279 var l270 = {name: "NUMBERP"};
6280 ((l256).value = ({car: l43.fvalue(pv, l270, (function (values,v666){
6281     checkArgs(arguments, 2);
6282     return (function(){
6283         return (function(v667){
6284             return l138.fvalue(values, l126.fvalue(pv, "(typeof (", v667, ") == \"number\")"));
6285         })(l139.fvalue(pv, v666));
6286     })();
6287 })), cdr: (function(){
6288     var symbol = l256;
6289     var value = symbol.value;
6290     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6291     return value;
6292 })()}));
6293 var l271 = {name: "FLOOR"};
6294 ((l256).value = ({car: l43.fvalue(pv, l271, (function (values,v668){
6295     checkArgs(arguments, 2);
6296     return (function(){
6297         return (function(v669){
6298             return l126.fvalue(values, "(function(){", (function(){
6299                 var symbol = l125;
6300                 var value = symbol.value;
6301                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6302                 return value;
6303             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v669, ";", (function(){
6304                 var symbol = l125;
6305                 var value = symbol.value;
6306                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6307                 return value;
6308             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6309                 var symbol = l125;
6310                 var value = symbol.value;
6311                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6312                 return value;
6313             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6314                 var symbol = l125;
6315                 var value = symbol.value;
6316                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6317                 return value;
6318             })())), l126.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
6319                 var symbol = l125;
6320                 var value = symbol.value;
6321                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6322                 return value;
6323             })())), "})()");
6324         })(l139.fvalue(pv, v668));
6325     })();
6326 })), cdr: (function(){
6327     var symbol = l256;
6328     var value = symbol.value;
6329     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6330     return value;
6331 })()}));
6332 ((l256).value = ({car: l43.fvalue(pv, l28, (function (values,v670,v671){
6333     checkArgs(arguments, 3);
6334     return (function(){
6335         return (function(v672,v673){
6336             return l126.fvalue(values, "({car: ", v672, ", cdr: ", v673, "})");
6337         })(l139.fvalue(pv, v670),l139.fvalue(pv, v671));
6338     })();
6339 })), cdr: (function(){
6340     var symbol = l256;
6341     var value = symbol.value;
6342     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6343     return value;
6344 })()}));
6345 ((l256).value = ({car: l43.fvalue(pv, l29, (function (values,v674){
6346     checkArgs(arguments, 2);
6347     return (function(){
6348         return (function(v675){
6349             return l138.fvalue(values, l126.fvalue(pv, "(function(){", (function(){
6350                 var symbol = l125;
6351                 var value = symbol.value;
6352                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6353                 return value;
6354             })(), l137.fvalue(pv, "var tmp = ", v675, ";", (function(){
6355                 var symbol = l125;
6356                 var value = symbol.value;
6357                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6358                 return value;
6359             })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
6360                 var symbol = l125;
6361                 var value = symbol.value;
6362                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6363                 return value;
6364             })()), "})()"));
6365         })(l139.fvalue(pv, v674));
6366     })();
6367 })), cdr: (function(){
6368     var symbol = l256;
6369     var value = symbol.value;
6370     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6371     return value;
6372 })()}));
6373 ((l256).value = ({car: l43.fvalue(pv, l30, (function (values,v676){
6374     checkArgs(arguments, 2);
6375     return (function(){
6376         return (function(v677){
6377             return l126.fvalue(values, "(function(){", (function(){
6378                 var symbol = l125;
6379                 var value = symbol.value;
6380                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6381                 return value;
6382             })(), l137.fvalue(pv, "var tmp = ", v677, ";", (function(){
6383                 var symbol = l125;
6384                 var value = symbol.value;
6385                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6386                 return value;
6387             })(), "return tmp === ", l139.fvalue(pv, l3.value), "? ", l139.fvalue(pv, l3.value), ": tmp.car;", (function(){
6388                 var symbol = l125;
6389                 var value = symbol.value;
6390                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6391                 return value;
6392             })()), "})()");
6393         })(l139.fvalue(pv, v676));
6394     })();
6395 })), cdr: (function(){
6396     var symbol = l256;
6397     var value = symbol.value;
6398     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6399     return value;
6400 })()}));
6401 ((l256).value = ({car: l43.fvalue(pv, l31, (function (values,v678){
6402     checkArgs(arguments, 2);
6403     return (function(){
6404         return (function(v679){
6405             return l126.fvalue(values, "(function(){", (function(){
6406                 var symbol = l125;
6407                 var value = symbol.value;
6408                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6409                 return value;
6410             })(), l137.fvalue(pv, "var tmp = ", v679, ";", (function(){
6411                 var symbol = l125;
6412                 var value = symbol.value;
6413                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6414                 return value;
6415             })(), "return tmp === ", l139.fvalue(pv, l3.value), "? ", l139.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
6416                 var symbol = l125;
6417                 var value = symbol.value;
6418                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6419                 return value;
6420             })()), "})()");
6421         })(l139.fvalue(pv, v678));
6422     })();
6423 })), cdr: (function(){
6424     var symbol = l256;
6425     var value = symbol.value;
6426     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6427     return value;
6428 })()}));
6429 var l272 = {name: "RPLACA"};
6430 ((l256).value = ({car: l43.fvalue(pv, l272, (function (values,v680,v681){
6431     checkArgs(arguments, 3);
6432     return (function(){
6433         return (function(v682,v683){
6434             return l126.fvalue(values, "(function(){", (function(){
6435                 var symbol = l125;
6436                 var value = symbol.value;
6437                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6438                 return value;
6439             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v682, ";", (function(){
6440                 var symbol = l125;
6441                 var value = symbol.value;
6442                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6443                 return value;
6444             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6445                 var symbol = l125;
6446                 var value = symbol.value;
6447                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6448                 return value;
6449             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6450                 var symbol = l125;
6451                 var value = symbol.value;
6452                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6453                 return value;
6454             })())), l126.fvalue(pv, "return ", l126.fvalue(pv, "(x.car = ", v683, ", x)"), ";", (function(){
6455                 var symbol = l125;
6456                 var value = symbol.value;
6457                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6458                 return value;
6459             })())), "})()");
6460         })(l139.fvalue(pv, v680),l139.fvalue(pv, v681));
6461     })();
6462 })), cdr: (function(){
6463     var symbol = l256;
6464     var value = symbol.value;
6465     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6466     return value;
6467 })()}));
6468 var l273 = {name: "RPLACD"};
6469 ((l256).value = ({car: l43.fvalue(pv, l273, (function (values,v684,v685){
6470     checkArgs(arguments, 3);
6471     return (function(){
6472         return (function(v686,v687){
6473             return l126.fvalue(values, "(function(){", (function(){
6474                 var symbol = l125;
6475                 var value = symbol.value;
6476                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6477                 return value;
6478             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v686, ";", (function(){
6479                 var symbol = l125;
6480                 var value = symbol.value;
6481                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6482                 return value;
6483             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6484                 var symbol = l125;
6485                 var value = symbol.value;
6486                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6487                 return value;
6488             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6489                 var symbol = l125;
6490                 var value = symbol.value;
6491                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6492                 return value;
6493             })())), l126.fvalue(pv, "return ", l126.fvalue(pv, "(x.cdr = ", v687, ", x)"), ";", (function(){
6494                 var symbol = l125;
6495                 var value = symbol.value;
6496                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6497                 return value;
6498             })())), "})()");
6499         })(l139.fvalue(pv, v684),l139.fvalue(pv, v685));
6500     })();
6501 })), cdr: (function(){
6502     var symbol = l256;
6503     var value = symbol.value;
6504     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6505     return value;
6506 })()}));
6507 var l274 = {name: "SYMBOLP"};
6508 ((l256).value = ({car: l43.fvalue(pv, l274, (function (values,v688){
6509     checkArgs(arguments, 2);
6510     return (function(){
6511         return (function(v689){
6512             return l138.fvalue(values, l126.fvalue(pv, "(function(){", (function(){
6513                 var symbol = l125;
6514                 var value = symbol.value;
6515                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6516                 return value;
6517             })(), l137.fvalue(pv, "var tmp = ", v689, ";", (function(){
6518                 var symbol = l125;
6519                 var value = symbol.value;
6520                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6521                 return value;
6522             })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
6523                 var symbol = l125;
6524                 var value = symbol.value;
6525                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6526                 return value;
6527             })()), "})()"));
6528         })(l139.fvalue(pv, v688));
6529     })();
6530 })), cdr: (function(){
6531     var symbol = l256;
6532     var value = symbol.value;
6533     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6534     return value;
6535 })()}));
6536 var l275 = {name: "MAKE-SYMBOL"};
6537 ((l256).value = ({car: l43.fvalue(pv, l275, (function (values,v690){
6538     checkArgs(arguments, 2);
6539     return (function(){
6540         return (function(v691){
6541             return l126.fvalue(values, "(function(){", (function(){
6542                 var symbol = l125;
6543                 var value = symbol.value;
6544                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6545                 return value;
6546             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "name", " = ", v691, ";", (function(){
6547                 var symbol = l125;
6548                 var value = symbol.value;
6549                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6550                 return value;
6551             })()), l126.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
6552                 var symbol = l125;
6553                 var value = symbol.value;
6554                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6555                 return value;
6556             })(), l137.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
6557                 var symbol = l125;
6558                 var value = symbol.value;
6559                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6560                 return value;
6561             })())), l126.fvalue(pv, "return ", "({name: name})", ";", (function(){
6562                 var symbol = l125;
6563                 var value = symbol.value;
6564                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6565                 return value;
6566             })())), "})()");
6567         })(l139.fvalue(pv, v690));
6568     })();
6569 })), cdr: (function(){
6570     var symbol = l256;
6571     var value = symbol.value;
6572     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6573     return value;
6574 })()}));
6575 var l276 = {name: "SYMBOL-NAME"};
6576 ((l256).value = ({car: l43.fvalue(pv, l276, (function (values,v692){
6577     checkArgs(arguments, 2);
6578     return (function(){
6579         return (function(v693){
6580             return l126.fvalue(values, "(", v693, ").name");
6581         })(l139.fvalue(pv, v692));
6582     })();
6583 })), cdr: (function(){
6584     var symbol = l256;
6585     var value = symbol.value;
6586     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6587     return value;
6588 })()}));
6589 ((l256).value = ({car: l43.fvalue(pv, l218, (function (values,v694,v695){
6590     checkArgs(arguments, 3);
6591     return (function(){
6592         return (function(v696,v697){
6593             return l126.fvalue(values, "(", v696, ").value = ", v697);
6594         })(l139.fvalue(pv, v694),l139.fvalue(pv, v695));
6595     })();
6596 })), cdr: (function(){
6597     var symbol = l256;
6598     var value = symbol.value;
6599     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6600     return value;
6601 })()}));
6602 var l277 = {name: "FSET"};
6603 ((l256).value = ({car: l43.fvalue(pv, l277, (function (values,v698,v699){
6604     checkArgs(arguments, 3);
6605     return (function(){
6606         return (function(v700,v701){
6607             return l126.fvalue(values, "(", v700, ").fvalue = ", v701);
6608         })(l139.fvalue(pv, v698),l139.fvalue(pv, v699));
6609     })();
6610 })), cdr: (function(){
6611     var symbol = l256;
6612     var value = symbol.value;
6613     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6614     return value;
6615 })()}));
6616 ((l256).value = ({car: l43.fvalue(pv, l18, (function (values,v702){
6617     checkArgs(arguments, 2);
6618     return (function(){
6619         return (function(v703){
6620             return l138.fvalue(values, l126.fvalue(pv, "(", v703, ".value !== undefined)"));
6621         })(l139.fvalue(pv, v702));
6622     })();
6623 })), cdr: (function(){
6624     var symbol = l256;
6625     var value = symbol.value;
6626     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6627     return value;
6628 })()}));
6629 var l278 = {name: "SYMBOL-VALUE"};
6630 ((l256).value = ({car: l43.fvalue(pv, l278, (function (values,v704){
6631     checkArgs(arguments, 2);
6632     return (function(){
6633         return (function(v705){
6634             return l126.fvalue(values, "(function(){", (function(){
6635                 var symbol = l125;
6636                 var value = symbol.value;
6637                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6638                 return value;
6639             })(), l137.fvalue(pv, "var symbol = ", v705, ";", (function(){
6640                 var symbol = l125;
6641                 var value = symbol.value;
6642                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6643                 return value;
6644             })(), "var value = symbol.value;", (function(){
6645                 var symbol = l125;
6646                 var value = symbol.value;
6647                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6648                 return value;
6649             })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
6650                 var symbol = l125;
6651                 var value = symbol.value;
6652                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6653                 return value;
6654             })(), "return value;", (function(){
6655                 var symbol = l125;
6656                 var value = symbol.value;
6657                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6658                 return value;
6659             })()), "})()");
6660         })(l139.fvalue(pv, v704));
6661     })();
6662 })), cdr: (function(){
6663     var symbol = l256;
6664     var value = symbol.value;
6665     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6666     return value;
6667 })()}));
6668 ((l256).value = ({car: l43.fvalue(pv, l227, (function (values,v706){
6669     checkArgs(arguments, 2);
6670     return (function(){
6671         return (function(v707){
6672             return l126.fvalue(values, "(function(){", (function(){
6673                 var symbol = l125;
6674                 var value = symbol.value;
6675                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6676                 return value;
6677             })(), l137.fvalue(pv, "var symbol = ", v707, ";", (function(){
6678                 var symbol = l125;
6679                 var value = symbol.value;
6680                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6681                 return value;
6682             })(), "var func = symbol.fvalue;", (function(){
6683                 var symbol = l125;
6684                 var value = symbol.value;
6685                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6686                 return value;
6687             })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
6688                 var symbol = l125;
6689                 var value = symbol.value;
6690                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6691                 return value;
6692             })(), "return func;", (function(){
6693                 var symbol = l125;
6694                 var value = symbol.value;
6695                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6696                 return value;
6697             })()), "})()");
6698         })(l139.fvalue(pv, v706));
6699     })();
6700 })), cdr: (function(){
6701     var symbol = l256;
6702     var value = symbol.value;
6703     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6704     return value;
6705 })()}));
6706 var l279 = {name: "SYMBOL-PLIST"};
6707 ((l256).value = ({car: l43.fvalue(pv, l279, (function (values,v708){
6708     checkArgs(arguments, 2);
6709     return (function(){
6710         return (function(v709){
6711             return l126.fvalue(values, "((", v709, ").plist || ", l139.fvalue(pv, l3.value), ")");
6712         })(l139.fvalue(pv, v708));
6713     })();
6714 })), cdr: (function(){
6715     var symbol = l256;
6716     var value = symbol.value;
6717     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6718     return value;
6719 })()}));
6720 var l280 = {name: "LAMBDA-CODE"};
6721 ((l256).value = ({car: l43.fvalue(pv, l280, (function (values,v710){
6722     checkArgs(arguments, 2);
6723     return (function(){
6724         return (function(v711){
6725             return l126.fvalue(values, "(", v711, ").toString()");
6726         })(l139.fvalue(pv, v710));
6727     })();
6728 })), cdr: (function(){
6729     var symbol = l256;
6730     var value = symbol.value;
6731     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6732     return value;
6733 })()}));
6734 var l281 = {name: "EQ"};
6735 ((l256).value = ({car: l43.fvalue(pv, l281, (function (values,v712,v713){
6736     checkArgs(arguments, 3);
6737     return (function(){
6738         return (function(v714,v715){
6739             return l138.fvalue(values, l126.fvalue(pv, "(", v714, " === ", v715, ")"));
6740         })(l139.fvalue(pv, v712),l139.fvalue(pv, v713));
6741     })();
6742 })), cdr: (function(){
6743     var symbol = l256;
6744     var value = symbol.value;
6745     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6746     return value;
6747 })()}));
6748 var l282 = {name: "EQUAL"};
6749 ((l256).value = ({car: l43.fvalue(pv, l282, (function (values,v716,v717){
6750     checkArgs(arguments, 3);
6751     return (function(){
6752         return (function(v718,v719){
6753             return l138.fvalue(values, l126.fvalue(pv, "(", v718, " == ", v719, ")"));
6754         })(l139.fvalue(pv, v716),l139.fvalue(pv, v717));
6755     })();
6756 })), cdr: (function(){
6757     var symbol = l256;
6758     var value = symbol.value;
6759     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6760     return value;
6761 })()}));
6762 var l283 = {name: "CHAR-TO-STRING"};
6763 ((l256).value = ({car: l43.fvalue(pv, l283, (function (values,v720){
6764     checkArgs(arguments, 2);
6765     return (function(){
6766         return (function(v721){
6767             return l126.fvalue(values, "(function(){", (function(){
6768                 var symbol = l125;
6769                 var value = symbol.value;
6770                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6771                 return value;
6772             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v721, ";", (function(){
6773                 var symbol = l125;
6774                 var value = symbol.value;
6775                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6776                 return value;
6777             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6778                 var symbol = l125;
6779                 var value = symbol.value;
6780                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6781                 return value;
6782             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6783                 var symbol = l125;
6784                 var value = symbol.value;
6785                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6786                 return value;
6787             })())), l126.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
6788                 var symbol = l125;
6789                 var value = symbol.value;
6790                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6791                 return value;
6792             })())), "})()");
6793         })(l139.fvalue(pv, v720));
6794     })();
6795 })), cdr: (function(){
6796     var symbol = l256;
6797     var value = symbol.value;
6798     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6799     return value;
6800 })()}));
6801 var l284 = {name: "STRINGP"};
6802 ((l256).value = ({car: l43.fvalue(pv, l284, (function (values,v722){
6803     checkArgs(arguments, 2);
6804     return (function(){
6805         return (function(v723){
6806             return l138.fvalue(values, l126.fvalue(pv, "(typeof(", v723, ") == \"string\")"));
6807         })(l139.fvalue(pv, v722));
6808     })();
6809 })), cdr: (function(){
6810     var symbol = l256;
6811     var value = symbol.value;
6812     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6813     return value;
6814 })()}));
6815 var l285 = {name: "STRING-UPCASE"};
6816 ((l256).value = ({car: l43.fvalue(pv, l285, (function (values,v724){
6817     checkArgs(arguments, 2);
6818     return (function(){
6819         return (function(v725){
6820             return l126.fvalue(values, "(function(){", (function(){
6821                 var symbol = l125;
6822                 var value = symbol.value;
6823                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6824                 return value;
6825             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v725, ";", (function(){
6826                 var symbol = l125;
6827                 var value = symbol.value;
6828                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6829                 return value;
6830             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6831                 var symbol = l125;
6832                 var value = symbol.value;
6833                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6834                 return value;
6835             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6836                 var symbol = l125;
6837                 var value = symbol.value;
6838                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6839                 return value;
6840             })())), l126.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
6841                 var symbol = l125;
6842                 var value = symbol.value;
6843                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6844                 return value;
6845             })())), "})()");
6846         })(l139.fvalue(pv, v724));
6847     })();
6848 })), cdr: (function(){
6849     var symbol = l256;
6850     var value = symbol.value;
6851     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6852     return value;
6853 })()}));
6854 var l286 = {name: "STRING-LENGTH"};
6855 ((l256).value = ({car: l43.fvalue(pv, l286, (function (values,v726){
6856     checkArgs(arguments, 2);
6857     return (function(){
6858         return (function(v727){
6859             return l126.fvalue(values, "(function(){", (function(){
6860                 var symbol = l125;
6861                 var value = symbol.value;
6862                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6863                 return value;
6864             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v727, ";", (function(){
6865                 var symbol = l125;
6866                 var value = symbol.value;
6867                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6868                 return value;
6869             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6870                 var symbol = l125;
6871                 var value = symbol.value;
6872                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6873                 return value;
6874             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6875                 var symbol = l125;
6876                 var value = symbol.value;
6877                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6878                 return value;
6879             })())), l126.fvalue(pv, "return ", "x.length", ";", (function(){
6880                 var symbol = l125;
6881                 var value = symbol.value;
6882                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6883                 return value;
6884             })())), "})()");
6885         })(l139.fvalue(pv, v726));
6886     })();
6887 })), cdr: (function(){
6888     var symbol = l256;
6889     var value = symbol.value;
6890     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6891     return value;
6892 })()}));
6893 var l287 = {name: "SLICE"};
6894 ((l256).value = ({car: l43.fvalue(pv, l287, (function (values,v728,v729,v730){
6895     checkArgsAtLeast(arguments, 3);
6896     checkArgsAtMost(arguments, 4);
6897     switch(arguments.length-1){
6898     case 2:
6899     v730=l3.value;
6900     default: break;
6901     }
6902     return (function(){
6903         return l126.fvalue(values, "(function(){", (function(){
6904             var symbol = l125;
6905             var value = symbol.value;
6906             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6907             return value;
6908         })(), l137.fvalue(pv, "var str = ", l139.fvalue(pv, v728), ";", (function(){
6909             var symbol = l125;
6910             var value = symbol.value;
6911             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6912             return value;
6913         })(), "var a = ", l139.fvalue(pv, v729), ";", (function(){
6914             var symbol = l125;
6915             var value = symbol.value;
6916             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6917             return value;
6918         })(), "var b;", (function(){
6919             var symbol = l125;
6920             var value = symbol.value;
6921             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6922             return value;
6923         })(), (v730 !== l3.value ? l126.fvalue(pv, "b = ", l139.fvalue(pv, v730), ";", (function(){
6924             var symbol = l125;
6925             var value = symbol.value;
6926             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6927             return value;
6928         })()) : ""), "return str.slice(a,b);", (function(){
6929             var symbol = l125;
6930             var value = symbol.value;
6931             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6932             return value;
6933         })()), "})()");
6934     })();
6935 })), cdr: (function(){
6936     var symbol = l256;
6937     var value = symbol.value;
6938     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6939     return value;
6940 })()}));
6941 var l288 = {name: "CHAR"};
6942 ((l256).value = ({car: l43.fvalue(pv, l288, (function (values,v731,v732){
6943     checkArgs(arguments, 3);
6944     return (function(){
6945         return (function(v733,v734){
6946             return l126.fvalue(values, "(function(){", (function(){
6947                 var symbol = l125;
6948                 var value = symbol.value;
6949                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6950                 return value;
6951             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "string", " = ", v733, ";", (function(){
6952                 var symbol = l125;
6953                 var value = symbol.value;
6954                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6955                 return value;
6956             })()), l126.fvalue(pv, "var ", "index", " = ", v734, ";", (function(){
6957                 var symbol = l125;
6958                 var value = symbol.value;
6959                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6960                 return value;
6961             })()), l126.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
6962                 var symbol = l125;
6963                 var value = symbol.value;
6964                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6965                 return value;
6966             })(), l137.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
6967                 var symbol = l125;
6968                 var value = symbol.value;
6969                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6970                 return value;
6971             })())), l126.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
6972                 var symbol = l125;
6973                 var value = symbol.value;
6974                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6975                 return value;
6976             })(), l137.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
6977                 var symbol = l125;
6978                 var value = symbol.value;
6979                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6980                 return value;
6981             })())), l126.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
6982                 var symbol = l125;
6983                 var value = symbol.value;
6984                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6985                 return value;
6986             })())), "})()");
6987         })(l139.fvalue(pv, v731),l139.fvalue(pv, v732));
6988     })();
6989 })), cdr: (function(){
6990     var symbol = l256;
6991     var value = symbol.value;
6992     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6993     return value;
6994 })()}));
6995 ((l256).value = ({car: l43.fvalue(pv, l71, (function (values,v735,v736){
6996     checkArgs(arguments, 3);
6997     return (function(){
6998         return (function(v737,v738){
6999             return l126.fvalue(values, "(function(){", (function(){
7000                 var symbol = l125;
7001                 var value = symbol.value;
7002                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7003                 return value;
7004             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "string1", " = ", v737, ";", (function(){
7005                 var symbol = l125;
7006                 var value = symbol.value;
7007                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7008                 return value;
7009             })()), l126.fvalue(pv, "var ", "string2", " = ", v738, ";", (function(){
7010                 var symbol = l125;
7011                 var value = symbol.value;
7012                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7013                 return value;
7014             })()), l126.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
7015                 var symbol = l125;
7016                 var value = symbol.value;
7017                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7018                 return value;
7019             })(), l137.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
7020                 var symbol = l125;
7021                 var value = symbol.value;
7022                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7023                 return value;
7024             })())), l126.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
7025                 var symbol = l125;
7026                 var value = symbol.value;
7027                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7028                 return value;
7029             })(), l137.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
7030                 var symbol = l125;
7031                 var value = symbol.value;
7032                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7033                 return value;
7034             })())), l126.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
7035                 var symbol = l125;
7036                 var value = symbol.value;
7037                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7038                 return value;
7039             })())), "})()");
7040         })(l139.fvalue(pv, v735),l139.fvalue(pv, v736));
7041     })();
7042 })), cdr: (function(){
7043     var symbol = l256;
7044     var value = symbol.value;
7045     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7046     return value;
7047 })()}));
7048 var l289 = {name: "FUNCALL"};
7049 ((l256).value = ({car: l43.fvalue(pv, l289, (function (values,v740){
7050     checkArgsAtLeast(arguments, 2);
7051     var v739= l3.value;
7052     for (var i = arguments.length-1; i>=2; i--)
7053         v739 = {car: arguments[i], cdr:
7054     v739};
7055     return (function(){
7056         return l126.fvalue(values, "(", l139.fvalue(pv, v740), ")(", l128.fvalue(pv, ({car: ((function(){
7057             var symbol = l166;
7058             var value = symbol.value;
7059             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7060             return value;
7061         })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
7062             var symbol = l139;
7063             var func = symbol.fvalue;
7064             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7065             return func;
7066         })(), v739)}), ", "), ")");
7067     })();
7068 })), cdr: (function(){
7069     var symbol = l256;
7070     var value = symbol.value;
7071     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7072     return value;
7073 })()}));
7074 var l290 = {name: "APPLY"};
7075 ((l256).value = ({car: l43.fvalue(pv, l290, (function (values,v742){
7076     checkArgsAtLeast(arguments, 2);
7077     var v741= l3.value;
7078     for (var i = arguments.length-1; i>=2; i--)
7079         v741 = {car: arguments[i], cdr:
7080     v741};
7081     return (function(){
7082         return (l12.fvalue(pv, v741) !== l3.value ? l126.fvalue(values, "(", l139.fvalue(pv, v742), ")()") : (function(v743,v744){
7083             return l126.fvalue(values, "(function(){", (function(){
7084                 var symbol = l125;
7085                 var value = symbol.value;
7086                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7087                 return value;
7088             })(), l137.fvalue(pv, "var f = ", l139.fvalue(pv, v742), ";", (function(){
7089                 var symbol = l125;
7090                 var value = symbol.value;
7091                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7092                 return value;
7093             })(), "var args = [", l128.fvalue(pv, ({car: ((function(){
7094                 var symbol = l166;
7095                 var value = symbol.value;
7096                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7097                 return value;
7098             })() !== l3.value ? "values" : "pv"), cdr: l72.fvalue(pv, (function(){
7099                 var symbol = l139;
7100                 var func = symbol.fvalue;
7101                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7102                 return func;
7103             })(), v743)}), ", "), "];", (function(){
7104                 var symbol = l125;
7105                 var value = symbol.value;
7106                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7107                 return value;
7108             })(), "var tail = (", l139.fvalue(pv, v744), ");", (function(){
7109                 var symbol = l125;
7110                 var value = symbol.value;
7111                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7112                 return value;
7113             })(), "while (tail != ", l139.fvalue(pv, l3.value), "){", (function(){
7114                 var symbol = l125;
7115                 var value = symbol.value;
7116                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7117                 return value;
7118             })(), "    args.push(tail.car);", (function(){
7119                 var symbol = l125;
7120                 var value = symbol.value;
7121                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7122                 return value;
7123             })(), "    tail = tail.cdr;", (function(){
7124                 var symbol = l125;
7125                 var value = symbol.value;
7126                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7127                 return value;
7128             })(), "}", (function(){
7129                 var symbol = l125;
7130                 var value = symbol.value;
7131                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7132                 return value;
7133             })(), "return f.apply(this, args);", (function(){
7134                 var symbol = l125;
7135                 var value = symbol.value;
7136                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7137                 return value;
7138             })()), "})()");
7139         })(l84.fvalue(pv, v741),(function(){
7140             var tmp = l83.fvalue(pv, v741);
7141             return tmp === l3.value? l3.value: tmp.car;
7142         })()));
7143     })();
7144 })), cdr: (function(){
7145     var symbol = l256;
7146     var value = symbol.value;
7147     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7148     return value;
7149 })()}));
7150 var l291 = {name: "JS-EVAL"};
7151 ((l256).value = ({car: l43.fvalue(pv, l291, (function (values,v745){
7152     checkArgs(arguments, 2);
7153     return (function(){
7154         return (function(v746){
7155             return l126.fvalue(values, "(function(){", (function(){
7156                 var symbol = l125;
7157                 var value = symbol.value;
7158                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7159                 return value;
7160             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "string", " = ", v746, ";", (function(){
7161                 var symbol = l125;
7162                 var value = symbol.value;
7163                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7164                 return value;
7165             })()), l126.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
7166                 var symbol = l125;
7167                 var value = symbol.value;
7168                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7169                 return value;
7170             })(), l137.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
7171                 var symbol = l125;
7172                 var value = symbol.value;
7173                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7174                 return value;
7175             })())), l126.fvalue(pv, "return ", ((function(){
7176                 var symbol = l166;
7177                 var value = symbol.value;
7178                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7179                 return value;
7180             })() !== l3.value ? l126.fvalue(pv, "(function(){", (function(){
7181                 var symbol = l125;
7182                 var value = symbol.value;
7183                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7184                 return value;
7185             })(), l137.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
7186                 var symbol = l125;
7187                 var value = symbol.value;
7188                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7189                 return value;
7190             })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
7191                 var symbol = l125;
7192                 var value = symbol.value;
7193                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7194                 return value;
7195             })(), l137.fvalue(pv, "v = [v];", (function(){
7196                 var symbol = l125;
7197                 var value = symbol.value;
7198                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7199                 return value;
7200             })(), "v['multiple-value'] = true;", (function(){
7201                 var symbol = l125;
7202                 var value = symbol.value;
7203                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7204                 return value;
7205             })()), "}", (function(){
7206                 var symbol = l125;
7207                 var value = symbol.value;
7208                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7209                 return value;
7210             })(), "return values.apply(this, v);", (function(){
7211                 var symbol = l125;
7212                 var value = symbol.value;
7213                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7214                 return value;
7215             })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
7216                 var symbol = l125;
7217                 var value = symbol.value;
7218                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7219                 return value;
7220             })())), "})()");
7221         })(l139.fvalue(pv, v745));
7222     })();
7223 })), cdr: (function(){
7224     var symbol = l256;
7225     var value = symbol.value;
7226     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7227     return value;
7228 })()}));
7229 var l292 = {name: "ERROR"};
7230 ((l256).value = ({car: l43.fvalue(pv, l292, (function (values,v747){
7231     checkArgs(arguments, 2);
7232     return (function(){
7233         return (function(v748){
7234             return l126.fvalue(values, "(function(){", (function(){
7235                 var symbol = l125;
7236                 var value = symbol.value;
7237                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7238                 return value;
7239             })(), l137.fvalue(pv, "throw ", v748, ";", (function(){
7240                 var symbol = l125;
7241                 var value = symbol.value;
7242                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7243                 return value;
7244             })()), "})()");
7245         })(l139.fvalue(pv, v747));
7246     })();
7247 })), cdr: (function(){
7248     var symbol = l256;
7249     var value = symbol.value;
7250     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7251     return value;
7252 })()}));
7253 var l293 = {name: "NEW"};
7254 ((l256).value = ({car: l43.fvalue(pv, l293, (function (values){
7255     checkArgsAtMost(arguments, 1);
7256     return (function(){
7257         return (function(){
7258             return "{}";
7259         })();
7260     })();
7261 })), cdr: (function(){
7262     var symbol = l256;
7263     var value = symbol.value;
7264     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7265     return value;
7266 })()}));
7267 var l294 = {name: "OBJECTP"};
7268 ((l256).value = ({car: l43.fvalue(pv, l294, (function (values,v749){
7269     checkArgs(arguments, 2);
7270     return (function(){
7271         return (function(v750){
7272             return l138.fvalue(values, l126.fvalue(pv, "(typeof (", v750, ") === 'object')"));
7273         })(l139.fvalue(pv, v749));
7274     })();
7275 })), cdr: (function(){
7276     var symbol = l256;
7277     var value = symbol.value;
7278     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7279     return value;
7280 })()}));
7281 var l295 = {name: "OGET"};
7282 ((l256).value = ({car: l43.fvalue(pv, l295, (function (values,v751,v752){
7283     checkArgs(arguments, 3);
7284     return (function(){
7285         return (function(v753,v754){
7286             return l126.fvalue(values, "(function(){", (function(){
7287                 var symbol = l125;
7288                 var value = symbol.value;
7289                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7290                 return value;
7291             })(), l137.fvalue(pv, "var tmp = ", "(", v753, ")[", v754, "];", (function(){
7292                 var symbol = l125;
7293                 var value = symbol.value;
7294                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7295                 return value;
7296             })(), "return tmp == undefined? ", l139.fvalue(pv, l3.value), ": tmp ;", (function(){
7297                 var symbol = l125;
7298                 var value = symbol.value;
7299                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7300                 return value;
7301             })()), "})()");
7302         })(l139.fvalue(pv, v751),l139.fvalue(pv, v752));
7303     })();
7304 })), cdr: (function(){
7305     var symbol = l256;
7306     var value = symbol.value;
7307     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7308     return value;
7309 })()}));
7310 var l296 = {name: "OSET"};
7311 ((l256).value = ({car: l43.fvalue(pv, l296, (function (values,v755,v756,v757){
7312     checkArgs(arguments, 4);
7313     return (function(){
7314         return (function(v758,v759,v760){
7315             return l126.fvalue(values, "((", v758, ")[", v759, "] = ", v760, ")");
7316         })(l139.fvalue(pv, v755),l139.fvalue(pv, v756),l139.fvalue(pv, v757));
7317     })();
7318 })), cdr: (function(){
7319     var symbol = l256;
7320     var value = symbol.value;
7321     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7322     return value;
7323 })()}));
7324 var l297 = {name: "IN"};
7325 ((l256).value = ({car: l43.fvalue(pv, l297, (function (values,v761,v762){
7326     checkArgs(arguments, 3);
7327     return (function(){
7328         return (function(v763,v764){
7329             return l138.fvalue(values, l126.fvalue(pv, "((", v763, ") in (", v764, "))"));
7330         })(l139.fvalue(pv, v761),l139.fvalue(pv, v762));
7331     })();
7332 })), cdr: (function(){
7333     var symbol = l256;
7334     var value = symbol.value;
7335     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7336     return value;
7337 })()}));
7338 var l298 = {name: "FUNCTIONP"};
7339 ((l256).value = ({car: l43.fvalue(pv, l298, (function (values,v765){
7340     checkArgs(arguments, 2);
7341     return (function(){
7342         return (function(v766){
7343             return l138.fvalue(values, l126.fvalue(pv, "(typeof ", v766, " == 'function')"));
7344         })(l139.fvalue(pv, v765));
7345     })();
7346 })), cdr: (function(){
7347     var symbol = l256;
7348     var value = symbol.value;
7349     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7350     return value;
7351 })()}));
7352 var l299 = {name: "WRITE-STRING"};
7353 ((l256).value = ({car: l43.fvalue(pv, l299, (function (values,v767){
7354     checkArgs(arguments, 2);
7355     return (function(){
7356         return (function(v768){
7357             return l126.fvalue(values, "(function(){", (function(){
7358                 var symbol = l125;
7359                 var value = symbol.value;
7360                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7361                 return value;
7362             })(), l137.fvalue(pv, l126.fvalue(pv, "var ", "x", " = ", v768, ";", (function(){
7363                 var symbol = l125;
7364                 var value = symbol.value;
7365                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7366                 return value;
7367             })()), l126.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
7368                 var symbol = l125;
7369                 var value = symbol.value;
7370                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7371                 return value;
7372             })(), l137.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
7373                 var symbol = l125;
7374                 var value = symbol.value;
7375                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7376                 return value;
7377             })())), l126.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
7378                 var symbol = l125;
7379                 var value = symbol.value;
7380                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7381                 return value;
7382             })())), "})()");
7383         })(l139.fvalue(pv, v767));
7384     })();
7385 })), cdr: (function(){
7386     var symbol = l256;
7387     var value = symbol.value;
7388     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7389     return value;
7390 })()}));
7391 var l300 = {name: "MAKE-ARRAY"};
7392 ((l256).value = ({car: l43.fvalue(pv, l300, (function (values,v769){
7393     checkArgs(arguments, 2);
7394     return (function(){
7395         return (function(v770){
7396             return l126.fvalue(values, "(function(){", (function(){
7397                 var symbol = l125;
7398                 var value = symbol.value;
7399                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7400                 return value;
7401             })(), l137.fvalue(pv, "var r = [];", (function(){
7402                 var symbol = l125;
7403                 var value = symbol.value;
7404                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7405                 return value;
7406             })(), "for (var i = 0; i < ", v770, "; i++)", (function(){
7407                 var symbol = l125;
7408                 var value = symbol.value;
7409                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7410                 return value;
7411             })(), l137.fvalue(pv, "r.push(", l139.fvalue(pv, l3.value), ");", (function(){
7412                 var symbol = l125;
7413                 var value = symbol.value;
7414                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7415                 return value;
7416             })()), "return r;", (function(){
7417                 var symbol = l125;
7418                 var value = symbol.value;
7419                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7420                 return value;
7421             })()), "})()");
7422         })(l139.fvalue(pv, v769));
7423     })();
7424 })), cdr: (function(){
7425     var symbol = l256;
7426     var value = symbol.value;
7427     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7428     return value;
7429 })()}));
7430 var l301 = {name: "ARRAYP"};
7431 ((l256).value = ({car: l43.fvalue(pv, l301, (function (values,v771){
7432     checkArgs(arguments, 2);
7433     return (function(){
7434         return (function(v772){
7435             return l138.fvalue(values, l126.fvalue(pv, "(function(){", (function(){
7436                 var symbol = l125;
7437                 var value = symbol.value;
7438                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7439                 return value;
7440             })(), l137.fvalue(pv, "var x = ", v772, ";", (function(){
7441                 var symbol = l125;
7442                 var value = symbol.value;
7443                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7444                 return value;
7445             })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
7446         })(l139.fvalue(pv, v771));
7447     })();
7448 })), cdr: (function(){
7449     var symbol = l256;
7450     var value = symbol.value;
7451     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7452     return value;
7453 })()}));
7454 var l302 = {name: "AREF"};
7455 ((l256).value = ({car: l43.fvalue(pv, l302, (function (values,v773,v774){
7456     checkArgs(arguments, 3);
7457     return (function(){
7458         return (function(v775,v776){
7459             return l126.fvalue(values, "(function(){", (function(){
7460                 var symbol = l125;
7461                 var value = symbol.value;
7462                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7463                 return value;
7464             })(), l137.fvalue(pv, "var x = ", "(", v775, ")[", v776, "];", (function(){
7465                 var symbol = l125;
7466                 var value = symbol.value;
7467                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7468                 return value;
7469             })(), "if (x === undefined) throw 'Out of range';", (function(){
7470                 var symbol = l125;
7471                 var value = symbol.value;
7472                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7473                 return value;
7474             })(), "return x;", (function(){
7475                 var symbol = l125;
7476                 var value = symbol.value;
7477                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7478                 return value;
7479             })()), "})()");
7480         })(l139.fvalue(pv, v773),l139.fvalue(pv, v774));
7481     })();
7482 })), cdr: (function(){
7483     var symbol = l256;
7484     var value = symbol.value;
7485     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7486     return value;
7487 })()}));
7488 var l303 = {name: "ASET"};
7489 ((l256).value = ({car: l43.fvalue(pv, l303, (function (values,v777,v778,v779){
7490     checkArgs(arguments, 4);
7491     return (function(){
7492         return (function(v780,v781,v782){
7493             return l126.fvalue(values, "(function(){", (function(){
7494                 var symbol = l125;
7495                 var value = symbol.value;
7496                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7497                 return value;
7498             })(), l137.fvalue(pv, "var x = ", v780, ";", (function(){
7499                 var symbol = l125;
7500                 var value = symbol.value;
7501                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7502                 return value;
7503             })(), "var i = ", v781, ";", (function(){
7504                 var symbol = l125;
7505                 var value = symbol.value;
7506                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7507                 return value;
7508             })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
7509                 var symbol = l125;
7510                 var value = symbol.value;
7511                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7512                 return value;
7513             })(), "return x[i] = ", v782, ";", (function(){
7514                 var symbol = l125;
7515                 var value = symbol.value;
7516                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7517                 return value;
7518             })()), "})()");
7519         })(l139.fvalue(pv, v777),l139.fvalue(pv, v778),l139.fvalue(pv, v779));
7520     })();
7521 })), cdr: (function(){
7522     var symbol = l256;
7523     var value = symbol.value;
7524     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7525     return value;
7526 })()}));
7527 var l304 = {name: "GET-UNIX-TIME"};
7528 ((l256).value = ({car: l43.fvalue(pv, l304, (function (values){
7529     checkArgsAtMost(arguments, 1);
7530     return (function(){
7531         return (function(){
7532             return l126.fvalue(values, "(Math.round(new Date() / 1000))");
7533         })();
7534     })();
7535 })), cdr: (function(){
7536     var symbol = l256;
7537     var value = symbol.value;
7538     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7539     return value;
7540 })()}));
7541 var l305 = {name: "VALUES-ARRAY"};
7542 ((l256).value = ({car: l43.fvalue(pv, l305, (function (values,v783){
7543     checkArgs(arguments, 2);
7544     return (function(){
7545         return (function(v784){
7546             return ((function(){
7547                 var symbol = l166;
7548                 var value = symbol.value;
7549                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7550                 return value;
7551             })() !== l3.value ? l126.fvalue(values, "values.apply(this, ", v784, ")") : l126.fvalue(values, "pv.apply(this, ", v784, ")"));
7552         })(l139.fvalue(pv, v783));
7553     })();
7554 })), cdr: (function(){
7555     var symbol = l256;
7556     var value = symbol.value;
7557     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7558     return value;
7559 })()}));
7560 ((l256).value = ({car: l43.fvalue(pv, l134, (function (values){
7561     var v785= l3.value;
7562     for (var i = arguments.length-1; i>=1; i--)
7563         v785 = {car: arguments[i], cdr:
7564     v785};
7565     return (function(){
7566         return ((function(){
7567             var symbol = l166;
7568             var value = symbol.value;
7569             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7570             return value;
7571         })() !== l3.value ? l126.fvalue(values, "values(", l128.fvalue(pv, l72.fvalue(pv, (function(){
7572             var symbol = l139;
7573             var func = symbol.fvalue;
7574             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7575             return func;
7576         })(), v785), ", "), ")") : l126.fvalue(values, "pv(", l128.fvalue(pv, l72.fvalue(pv, (function(){
7577             var symbol = l139;
7578             var func = symbol.fvalue;
7579             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7580             return func;
7581         })(), v785), ", "), ")"));
7582     })();
7583 })), cdr: (function(){
7584     var symbol = l256;
7585     var value = symbol.value;
7586     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7587     return value;
7588 })()}));
7589 (function(){
7590     (l192).fvalue = (function(v788){
7591         ((v788)["fname"] = "MACRO");
7592         return v788;
7593     })((function (values,v786){
7594         checkArgs(arguments, 2);
7595         return (function(){
7596             return (((function(){
7597                 var tmp = v786;
7598                 return (typeof tmp == 'object' && 'name' in tmp);
7599             })()?l4.value: l3.value) !== l3.value ? (function(v787){
7600                 return (((l169.fvalue(pv, v787) === l192)?l4.value: l3.value) !== l3.value ? v787 : l3.value);
7601             })(l181.fvalue(pv, v786, (function(){
7602                 var symbol = l182;
7603                 var value = symbol.value;
7604                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7605                 return value;
7606             })(), l100)) : l3.value);
7607         })();
7608     }));
7609     return l192;
7610 })();
7611 var l306 = {name: "LS-MACROEXPAND-1"};
7612 (function(){
7613     (l306).fvalue = (function(v793){
7614         ((v793)["fname"] = "LS-MACROEXPAND-1");
7615         return v793;
7616     })((function (values,v789){
7617         checkArgs(arguments, 2);
7618         return (function(){
7619             return (function(v790){
7620                 return (v790 !== l3.value ? (function(v791){
7621                     (l58.fvalue(pv, v791) !== l3.value ? (function(v792){
7622                         l172.fvalue(pv, v790, v792);
7623                         return (v791 = v792);
7624                     })(l230.fvalue(pv, v791)) : l3.value);
7625                     return (function(){
7626                         var f = v791;
7627                         var args = [values];
7628                         var tail = ((function(){
7629                             var tmp = v789;
7630                             return tmp === l3.value? l3.value: tmp.cdr;
7631                         })());
7632                         while (tail != l3.value){
7633                             args.push(tail.car);
7634                             tail = tail.cdr;
7635                         }
7636                         return f.apply(this, args);
7637                     })();
7638                 })(l170.fvalue(pv, v790)) : v789);
7639             })(l192.fvalue(pv, (function(){
7640                 var tmp = v789;
7641                 return tmp === l3.value? l3.value: tmp.car;
7642             })()));
7643         })();
7644     }));
7645     return l306;
7646 })();
7647 var l307 = {name: "COMPILE-FUNCALL"};
7648 var l308 = {name: "G878"};
7649 (function(){
7650     (l307).fvalue = (function(v797){
7651         ((v797)["fname"] = "COMPILE-FUNCALL");
7652         return v797;
7653     })((function (values,v794,v795){
7654         checkArgs(arguments, 3);
7655         return (function(){
7656             return (function(v796){
7657                 return ((((function(){
7658                     var tmp = v794;
7659                     return (typeof tmp == 'object' && 'name' in tmp);
7660                 })()?l4.value: l3.value) !== l3.value ? (((l116.fvalue(pv, v794) === l107.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){
7661                     var symbol = l308;
7662                     var value = symbol.value;
7663                     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7664                     return value;
7665                 })() : l3.value) : l3.value) !== l3.value ? l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v794))), ".fvalue(", l128.fvalue(pv, ({car: v796, cdr: l72.fvalue(pv, (function(){
7666                     var symbol = l139;
7667                     var func = symbol.fvalue;
7668                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7669                     return func;
7670                 })(), v795)}), ", "), ")") : l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l100), l43.fvalue(pv, v794))), "(", l128.fvalue(pv, ({car: v796, cdr: l72.fvalue(pv, (function(){
7671                     var symbol = l139;
7672                     var func = symbol.fvalue;
7673                     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7674                     return func;
7675                 })(), v795)}), ", "), ")"));
7676             })(((function(){
7677                 var symbol = l166;
7678                 var value = symbol.value;
7679                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7680                 return value;
7681             })() !== l3.value ? "values" : "pv"));
7682         })();
7683     }));
7684     return l307;
7685 })();
7686 (function(){
7687     (l216).fvalue = (function(v800){
7688         ((v800)["fname"] = "LS-COMPILE-BLOCK");
7689         return v800;
7690     })((function (values,v798,v799){
7691         checkArgsAtLeast(arguments, 2);
7692         checkArgsAtMost(arguments, 3);
7693         switch(arguments.length-1){
7694         case 1:
7695         v799=l3.value;
7696         default: break;
7697         }
7698         return (function(){
7699             return (v799 !== l3.value ? l126.fvalue(values, l216.fvalue(pv, l84.fvalue(pv, v798)), "return ", l139.fvalue(pv, (function(){
7700                 var tmp = l83.fvalue(pv, v798);
7701                 return tmp === l3.value? l3.value: tmp.car;
7702             })(), (function(){
7703                 var symbol = l166;
7704                 var value = symbol.value;
7705                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7706                 return value;
7707             })()), ";") : l129.fvalue(values, l87.fvalue(pv, (function(){
7708                 var symbol = l189;
7709                 var func = symbol.fvalue;
7710                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7711                 return func;
7712             })(), l72.fvalue(pv, (function(){
7713                 var symbol = l139;
7714                 var func = symbol.fvalue;
7715                 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7716                 return func;
7717             })(), v798)), l126.fvalue(pv, ";", (function(){
7718                 var symbol = l125;
7719                 var value = symbol.value;
7720                 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7721                 return value;
7722             })())));
7723         })();
7724     }));
7725     return l216;
7726 })();
7727 (function(){
7728     (l139).fvalue = (function(v810){
7729         ((v810)["fname"] = "LS-COMPILE");
7730         return v810;
7731     })((function (values,v801,v802){
7732         checkArgsAtLeast(arguments, 2);
7733         checkArgsAtMost(arguments, 3);
7734         switch(arguments.length-1){
7735         case 1:
7736         v802=l3.value;
7737         default: break;
7738         }
7739         return (function(){
7740             return (function(v803){
7741                 try {
7742                     var tmp;
7743                     tmp = l166.value;
7744                     l166.value = v803;
7745                     v803 = tmp;
7746                     return (((function(){
7747                         var tmp = v801;
7748                         return (typeof tmp == 'object' && 'name' in tmp);
7749                     })()?l4.value: l3.value) !== l3.value ? (function(v804){
7750                         return ((v804 !== l3.value ? l27.fvalue(pv, l85.fvalue(pv, l196, l171.fvalue(pv, v804))) : l3.value) !== l3.value ? l170.fvalue(values, v804) : ((function(v805){
7751                             return (v805 !== l3.value ? v805 : l85.fvalue(pv, l198, l171.fvalue(pv, v804)));
7752                         })(l115.fvalue(pv, v801)) !== l3.value ? l126.fvalue(values, l139.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v801))), ".value") : l139.fvalue(values, l63.fvalue(pv, l43.fvalue(pv, l278), l43.fvalue(pv, l63.fvalue(pv, l43.fvalue(pv, l161), l43.fvalue(pv, v801)))))));
7753                     })(l181.fvalue(pv, v801, (function(){
7754                         var symbol = l182;
7755                         var value = symbol.value;
7756                         if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7757                         return value;
7758                     })(), l101)) : (l78.fvalue(pv, v801) !== l3.value ? l17.fvalue(values, v801) : (((typeof(v801) == "string")?l4.value: l3.value) !== l3.value ? l126.fvalue(values, "\"", l142.fvalue(pv, v801), "\"") : (((function(){
7759                         var x = v801;
7760                         return typeof x === 'object' && 'length' in x;
7761                     })()?l4.value: l3.value) !== l3.value ? l225.fvalue(values, v801) : (l58.fvalue(pv, v801) !== l3.value ? (function(v806,v807){
7762                         return (l93.fvalue(pv, v806, (function(){
7763                             var symbol = l200;
7764                             var value = symbol.value;
7765                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7766                             return value;
7767                         })()) !== l3.value ? (function(v808){
7768                             return (function(){
7769                                 var f = v808;
7770                                 var args = [values];
7771                                 var tail = (v807);
7772                                 while (tail != l3.value){
7773                                     args.push(tail.car);
7774                                     tail = tail.cdr;
7775                                 }
7776                                 return f.apply(this, args);
7777                             })();
7778                         })(l40.fvalue(pv, l93.fvalue(pv, v806, (function(){
7779                             var symbol = l200;
7780                             var value = symbol.value;
7781                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7782                             return value;
7783                         })()))) : ((l93.fvalue(pv, v806, (function(){
7784                             var symbol = l256;
7785                             var value = symbol.value;
7786                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7787                             return value;
7788                         })()) !== l3.value ? l27.fvalue(pv, l194.fvalue(pv, v806, l100, l197)) : l3.value) !== l3.value ? (function(v809){
7789                             return (function(){
7790                                 var f = v809;
7791                                 var args = [values];
7792                                 var tail = (v807);
7793                                 while (tail != l3.value){
7794                                     args.push(tail.car);
7795                                     tail = tail.cdr;
7796                                 }
7797                                 return f.apply(this, args);
7798                             })();
7799                         })(l40.fvalue(pv, l93.fvalue(pv, v806, (function(){
7800                             var symbol = l256;
7801                             var value = symbol.value;
7802                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7803                             return value;
7804                         })()))) : (l192.fvalue(pv, v806) !== l3.value ? l139.fvalue(values, l306.fvalue(pv, v801), v802) : l307.fvalue(values, v806, v807))));
7805                     })((function(){
7806                         var tmp = v801;
7807                         return tmp === l3.value? l3.value: tmp.car;
7808                     })(),(function(){
7809                         var tmp = v801;
7810                         return tmp === l3.value? l3.value: tmp.cdr;
7811                     })()) : (function(){
7812                         throw "How should I compile this?";
7813                     })())))));
7814                 }
7815                 finally {
7816                     l166.value = v803;
7817                 }
7818             })(v802);
7819         })();
7820     }));
7821     return l139;
7822 })();
7823 var l309 = {name: "LS-COMPILE-TOPLEVEL"};
7824 (function(){
7825     (l309).fvalue = (function(v817){
7826         ((v817)["fname"] = "LS-COMPILE-TOPLEVEL");
7827         return v817;
7828     })((function (values,v811,v812){
7829         checkArgsAtLeast(arguments, 2);
7830         checkArgsAtMost(arguments, 3);
7831         switch(arguments.length-1){
7832         case 1:
7833         v812=l3.value;
7834         default: break;
7835         }
7836         return (function(){
7837             return (function(v813){
7838                 try {
7839                     var tmp;
7840                     tmp = l187.value;
7841                     l187.value = v813;
7842                     v813 = tmp;
7843                     return ((((function(){
7844                         var tmp = v811;
7845                         return (typeof tmp == 'object' && 'car' in tmp);
7846                     })()?l4.value: l3.value) !== l3.value ? (((function(){
7847                         var tmp = v811;
7848                         return tmp === l3.value? l3.value: tmp.car;
7849                     })() === l231)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v815){
7850                         return l128.fvalue(values, l87.fvalue(pv, (function(){
7851                             var symbol = l189;
7852                             var func = symbol.fvalue;
7853                             if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7854                             return func;
7855                         })(), v815));
7856                     })(l72.fvalue(pv, (function (values,v814){
7857                         checkArgs(arguments, 2);
7858                         return l309.fvalue(values, v814, l4.value);
7859                     }), (function(){
7860                         var tmp = v811;
7861                         return tmp === l3.value? l3.value: tmp.cdr;
7862                     })())) : (function(v816){
7863                         return l126.fvalue(values, l129.fvalue(pv, l190.fvalue(pv), l126.fvalue(pv, ";", (function(){
7864                             var symbol = l125;
7865                             var value = symbol.value;
7866                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7867                             return value;
7868                         })())), (v816 !== l3.value ? l126.fvalue(pv, v816, ";", (function(){
7869                             var symbol = l125;
7870                             var value = symbol.value;
7871                             if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7872                             return value;
7873                         })()) : ""));
7874                     })(l139.fvalue(pv, v811, v812)));
7875                 }
7876                 finally {
7877                     l187.value = v813;
7878                 }
7879             })(l3.value);
7880         })();
7881     }));
7882     return l309;
7883 })();
7884 (function(){
7885     (l230).fvalue = (function(v819){
7886         ((v819)["fname"] = "EVAL");
7887         return v819;
7888     })((function (values,v818){
7889         checkArgs(arguments, 2);
7890         return (function(){
7891             return (function(){
7892                 var string = l309.fvalue(pv, v818, l4.value);
7893                 if (typeof string != 'string')
7894                     throw 'The value ' + string + ' is not a type string.';
7895                 return (function(){
7896                     var v = eval.apply(window, [string]);
7897                     if (typeof v !== 'object' || !('multiple-value' in v)){
7898                         v = [v];
7899                         v['multiple-value'] = true;
7900                     }
7901                     return values.apply(this, v);
7902                 })();
7903             })();
7904         })();
7905     }));
7906     return l230;
7907 })();
7908 var l310 = {name: "&BODY"};
7909 var l311 = QIList(l205,l204,l310,l20,l15,l117,l60,l61,l21,l22,l23,l267,l269,l19,l19,l266,l268,l53,l63,l290,l302,l301,l303,l93,l44,l178,l18,l18,l84,l32,l38,l36,l33,l30,l30,l51,l243,l34,l37,l35,l31,l31,l288,l76,l77,l75,l50,l28,l29,l74,l46,l2,l9,l11,l1,l8,l89,l97,l67,l68,l99,l48,l49,l52,l281,l26,l282,l292,l230,l92,l123,l96,l107,l121,l39,l42,l277,l289,l100,l298,l16,l124,l250,l73,l202,l118,l45,l78,l78,l122,l115,l5,l83,l70,l235,l238,l103,l43,l58,l300,l104,l275,l72,l85,l80,l263,l135,l252,l136,l253,l3,l27,l82,l81,l12,l270,l54,l108,l110,l106,l159,l79,l141,l144,l199,l55,l56,l231,l66,l47,l161,l86,l87,l88,l13,l242,l64,l65,l272,l273,l40,l218,l219,l91,l285,l94,l95,l284,l90,l227,l276,l116,l279,l278,l274,l4,l249,l41,l244,l25,l7,l251,l134,l133,l101,l143,l6,l98,l299,l24,l3);
7910 l123.fvalue(values, l311);
7911 ((l117).value = (function(){
7912     var symbol = l113;
7913     var value = symbol.value;
7914     if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7915     return value;
7916 })());
7917 (function(){
7918     var string = "var lisp";
7919     if (typeof string != 'string')
7920         throw 'The value ' + string + ' is not a type string.';
7921     return (function(){
7922         var v = eval.apply(window, [string]);
7923         if (typeof v !== 'object' || !('multiple-value' in v)){
7924             v = [v];
7925             v['multiple-value'] = true;
7926         }
7927         return values.apply(this, v);
7928     })();
7929 })();
7930 (lisp = {});
7931 (lisp.read = (function(){
7932     var symbol = l165;
7933     var func = symbol.fvalue;
7934     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7935     return func;
7936 })());
7937 (lisp.print = (function(){
7938     var symbol = l141;
7939     var func = symbol.fvalue;
7940     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7941     return func;
7942 })());
7943 (lisp.eval = (function(){
7944     var symbol = l230;
7945     var func = symbol.fvalue;
7946     if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7947     return func;
7948 })());
7949 (lisp.compile = (function (values,v820){
7950     checkArgs(arguments, 2);
7951     return l309.fvalue(values, v820, l4.value);
7952 }));
7953 (lisp.evalString = (function (values,v821){
7954     checkArgs(arguments, 2);
7955     return l230.fvalue(values, l165.fvalue(pv, v821));
7956 }));
7957 (lisp.compileString = (function (values,v822){
7958     checkArgs(arguments, 2);
7959     return l309.fvalue(values, l165.fvalue(pv, v822), l4.value);
7960 }));
7961 var l312 = QIList(QIList(l310,"l310"),QIList(l309,"l309"),QIList(l308,"l308"),QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(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(l205,"l205"),QIList(l204,"l204"),QIList(l203,"l203"),QIList(l202,"l202"),QIList(l201,"l201"),QIList(l200,"l200"),QIList(l199,"l199"),QIList(l198,"l198"),QIList(l197,"l197"),QIList(l196,"l196"),QIList(l195,"l195"),QIList(l194,"l194"),QIList(l193,"l193"),QIList(l192,"l192"),QIList(l191,"l191"),QIList(l190,"l190"),QIList(l189,"l189"),QIList(l188,"l188"),QIList(l187,"l187"),QIList(l186,"l186"),QIList(l185,"l185"),QIList(l184,"l184"),QIList(l183,"l183"),QIList(l182,"l182"),QIList(l181,"l181"),QIList(l180,"l180"),QIList(l179,"l179"),QIList(l178,"l178"),QIList(l177,"l177"),QIList(l176,"l176"),QIList(l175,"l175"),QIList(l174,"l174"),QIList(l173,"l173"),QIList(l172,"l172"),QIList(l171,"l171"),QIList(l170,"l170"),QIList(l169,"l169"),QIList(l168,"l168"),QIList(l167,"l167"),QIList(l166,"l166"),QIList(l165,"l165"),QIList(l164,"l164"),QIList(l163,"l163"),QIList(l162,"l162"),QIList(l161,"l161"),QIList(l160,"l160"),QIList(l159,"l159"),QIList(l158,"l158"),QIList(l157,"l157"),QIList(l156,"l156"),QIList(l155,"l155"),QIList(l154,"l154"),QIList(l153,"l153"),QIList(l152,"l152"),QIList(l151,"l151"),QIList(l150,"l150"),QIList(l149,"l149"),QIList(l148,"l148"),QIList(l147,"l147"),QIList(l146,"l146"),QIList(l145,"l145"),QIList(l144,"l144"),QIList(l143,"l143"),QIList(l142,"l142"),QIList(l141,"l141"),QIList(l140,"l140"),QIList(l139,"l139"),QIList(l138,"l138"),QIList(l137,"l137"),QIList(l136,"l136"),QIList(l135,"l135"),QIList(l134,"l134"),QIList(l133,"l133"),QIList(l132,"l132"),QIList(l131,"l131"),QIList(l130,"l130"),QIList(l129,"l129"),QIList(l128,"l128"),QIList(l127,"l127"),QIList(l126,"l126"),QIList(l125,"l125"),QIList(l124,"l124"),QIList(l123,"l123"),QIList(l122,"l122"),QIList(l121,"l121"),QIList(l120,"l120"),QIList(l119,"l119"),QIList(l118,"l118"),QIList(l117,"l117"),QIList(l116,"l116"),QIList(l115,"l115"),QIList(l114,"l114"),QIList(l113,"l113"),QIList(l112,"l112"),QIList(l111,"l111"),QIList(l110,"l110"),QIList(l109,"l109"),QIList(l108,"l108"),QIList(l107,"l107"),QIList(l106,"l106"),QIList(l105,"l105"),QIList(l104,"l104"),QIList(l103,"l103"),QIList(l102,"l102"),QIList(l101,"l101"),QIList(l100,"l100"),QIList(l99,"l99"),QIList(l98,"l98"),QIList(l97,"l97"),QIList(l96,"l96"),QIList(l95,"l95"),QIList(l94,"l94"),QIList(l93,"l93"),QIList(l92,"l92"),QIList(l91,"l91"),QIList(l90,"l90"),QIList(l89,"l89"),QIList(l88,"l88"),QIList(l87,"l87"),QIList(l86,"l86"),QIList(l85,"l85"),QIList(l84,"l84"),QIList(l83,"l83"),QIList(l82,"l82"),QIList(l81,"l81"),QIList(l80,"l80"),QIList(l79,"l79"),QIList(l78,"l78"),QIList(l77,"l77"),QIList(l76,"l76"),QIList(l75,"l75"),QIList(l74,"l74"),QIList(l73,"l73"),QIList(l72,"l72"),QIList(l71,"l71"),QIList(l70,"l70"),QIList(l69,"l69"),QIList(l68,"l68"),QIList(l67,"l67"),QIList(l66,"l66"),QIList(l65,"l65"),QIList(l64,"l64"),QIList(l63,"l63"),QIList(l62,"l62"),QIList(l61,"l61"),QIList(l60,"l60"),QIList(l59,"l59"),QIList(l58,"l58"),QIList(l57,"l57"),QIList(l56,"l56"),QIList(l55,"l55"),QIList(l54,"l54"),QIList(l53,"l53"),QIList(l52,"l52"),QIList(l51,"l51"),QIList(l50,"l50"),QIList(l49,"l49"),QIList(l48,"l48"),QIList(l47,"l47"),QIList(l46,"l46"),QIList(l45,"l45"),QIList(l44,"l44"),QIList(l43,"l43"),QIList(l42,"l42"),QIList(l41,"l41"),QIList(l40,"l40"),QIList(l39,"l39"),QIList(l38,"l38"),QIList(l37,"l37"),QIList(l36,"l36"),QIList(l35,"l35"),QIList(l34,"l34"),QIList(l33,"l33"),QIList(l32,"l32"),QIList(l31,"l31"),QIList(l30,"l30"),QIList(l29,"l29"),QIList(l28,"l28"),QIList(l27,"l27"),QIList(l26,"l26"),QIList(l25,"l25"),QIList(l24,"l24"),QIList(l23,"l23"),QIList(l22,"l22"),QIList(l21,"l21"),QIList(l20,"l20"),QIList(l19,"l19"),QIList(l18,"l18"),QIList(l17,"l17"),QIList(l16,"l16"),QIList(l15,"l15"),QIList(l14,"l14"),QIList(l13,"l13"),QIList(l12,"l12"),QIList(l11,"l11"),QIList(l10,"l10"),QIList(l9,"l9"),QIList(l8,"l8"),QIList(l7,"l7"),QIList(l6,"l6"),QIList(l5,"l5"),QIList(l4,"l4"),QIList(l3,"l3"),QIList(l2,"l2"),QIList(l1,"l1"),l3);
7962 var l313 = {name: "OP"};
7963 var l314 = {name: "SYM"};
7964 var l315 = {name: "X"};
7965 var l316 = {name: "ARGS"};
7966 var l317 = {name: "BODY"};
7967 var l318 = {name: "DECLS"};
7968 var l319 = {name: "DECL"};
7969 var l320 = {name: "NAME"};
7970 var l321 = {name: "ARG"};
7971 var l322 = {name: "FORM"};
7972 var l323 = {name: "VALUE-FROM"};
7973 var l324 = {name: "VARIABLES"};
7974 var l325 = {name: "PACKAGE-DESIGNATOR"};
7975 var l326 = {name: "VARLIST"};
7976 var l327 = {name: "ENDLIST"};
7977 var l328 = {name: "V"};
7978 var l329 = {name: "PAIRS"};
7979 var l330 = {name: "ASSIGNMENTS"};
7980 var l331 = {name: "VALUE"};
7981 var l332 = {name: "FORM1"};
7982 var l333 = {name: "RESULT"};
7983 var l334 = {name: "FORMS"};
7984 var l335 = {name: "G"};
7985 var l336 = {name: "CLAUSULES"};
7986 var l337 = {name: "!FORM"};
7987 var l338 = {name: "CLAUSULE"};
7988 var l339 = {name: "ITER"};
7989 var l340 = {name: "G!TO"};
7990 var l341 = {name: "VAR"};
7991 var l342 = {name: "TO"};
7992 var l343 = {name: "G!LIST"};
7993 var l344 = {name: "PLACE"};
7994 var l345 = {name: "DELTA"};
7995 var l346 = {name: "CONDITION"};
7996 var l347 = {name: "DOCSTRING"};
7997 var l348 = QIList(QIList(QIList(l256,l101,l3,QIList(l196,l3),l3),QIList(l246,l101,l3,QIList(l196,l3),l3),QIList(l245,l101,l3,QIList(l196,l3),l3),QIList(l239,l101,l3,QIList(l196,l3),l3),QIList(l228,l101,l3,QIList(l196,l3),l3),QIList(l223,l101,l3,QIList(l196,l3),l3),QIList(l222,l101,l3,QIList(l196,l3),l3),QIList(l203,l101,l3,QIList(l196,l3),l3),QIList(l200,l101,l3,QIList(l196,l3),l3),QIList(l187,l101,l3,QIList(l196,l3),l3),QIList(l183,l101,l3,QIList(l196,l3),l3),QIList(l182,l101,l3,QIList(l196,l3),l3),QIList(l166,l101,l3,QIList(l196,l3),l3),QIList(l160,l101,l3,QIList(l196,l3),l3),QIList(l125,l101,l3,QIList(l196,l3),l3),QIList(l117,l101,l3,QIList(l196,l3),l3),QIList(l114,l101,l3,QIList(l196,l3),l3),QIList(l113,l101,l3,QIList(l196,l3),l3),QIList(l112,l101,l3,QIList(l196,l3),l3),QIList(l102,l101,l3,QIList(l196,l3),l3),QIList(l15,l101,l3,QIList(l196,l3),l3),QIList(l4,l101,l3,QIList(l196,l198,l3),l3),QIList(l3,l101,l3,QIList(l196,l198,l3),l3),l3),QIList(QIList(l265,l192,QIList(l100,QIList(l5,QIList(l313,l314,l3),QIList(l162,QIList(l257,QIList(l164,l313,l3),QIList(l315,l205,l316,l3),QIList(l235,QIList(QIList(l316,QIList(l28,l315,l316,l3),l3),l3),QIList(l261,l316,QIList(l138,QIList(l264,l316,QIList(l164,l314,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l261,l192,QIList(l100,QIList(l5,QIList(l316,l205,l317,l3),QIList(l7,QIList(l274,l316,l3),QIList(l292,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l162,QIList(l260,QIList(l164,l316,l3),QIList(l5,QIList(QIList(l164,l316,l3),l3),QIList(l126,"return ",QIList(l163,l317,l3),";",l125,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l259,l192,QIList(l100,QIList(l5,QIList(l318,l205,l317,l3),QIList(l162,QIList(l140,QIList(l163,QIList(l72,QIList(l5,QIList(l319,l3),QIList(l162,QIList(l126,"var ",QIList(l164,QIList(l39,l319,l3),l3)," = ",QIList(l164,QIList(l41,l319,l3),l3),";",l125,l3),l3),l3),l318,l3),l3),QIList(l163,QIList(l72,QIList(l5,QIList(l319,l3),QIList(l162,QIList(l126,"if (typeof ",QIList(l164,QIList(l39,l319,l3),l3)," != '",QIList(l164,QIList(l40,l319,l3),l3),"')",l125,QIList(l137,"throw 'The value ' + ",QIList(l164,QIList(l39,l319,l3),l3)," + ' is not a type ",QIList(l164,QIList(l40,l319,l3),l3),".';",l125,l3),l3),l3),l3),l318,l3),l3),QIList(l126,"return ",QIList(l231,QIList(l163,l317,l3),l3),";",l125,l3),l3),l3),l3),l3),l3,l3),QIList(l258,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l231,QIList(l257,QIList(l164,l320,l3),QIList(l164,l316,l3),QIList(l235,QIList(l164,QIList(l72,QIList(l5,QIList(l321,l3),QIList(l162,QIList(QIList(l164,l321,l3),QIList(l139,QIList(l164,l321,l3),l3),l3),l3),l3),l316,l3),l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l257,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l47,QIList(l43,QIList(l161,QIList(l164,l320,l3),l3),QIList(l5,QIList(l164,l316,l3),QIList(l178,QIList(l164,l320,l3),QIList(l163,l317,l3),l3),l3),l3),l256,l3),l3),l3),l3),l3,l3),QIList(l162,l192,QIList(l100,QIList(l5,QIList(l322,l3),QIList(l254,l322,l3),l3),l3),l3,l3),QIList(l232,l192,QIList(l100,QIList(l5,QIList(l320,l316,l322,l3),QIList(l162,QIList(l201,QIList(l164,l320,l3),QIList(l164,l316,l3),QIList(l139,QIList(l164,l322,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l201,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l47,QIList(l43,QIList(l161,QIList(l164,l320,l3),l3),QIList(l5,QIList(l164,l316,l3),QIList(l178,QIList(l164,l320,l3),QIList(l163,l317,l3),l3),l3),l3),l200,l3),l3),l3),l3),l3,l3),QIList(l140,l192,QIList(l100,QIList(l5,QIList(l205,l317,l3),QIList(l162,QIList(l126,"(function(){",l125,QIList(l137,QIList(l163,l317,l3),l3),"})()",l3),l3),l3),l3),l3,l3),QIList(l136,l192,QIList(l100,QIList(l5,QIList(l323,l3),QIList(l162,QIList(l252,QIList(l100,l43,l3),QIList(l164,l323,l3),l3),l3),l3),l3),l3,l3),QIList(l135,l192,QIList(l100,QIList(l5,QIList(l324,l323,l205,l317,l3),QIList(l162,QIList(l252,QIList(l5,QIList(l204,QIList(l163,l324,l3),l205,QIList(l164,QIList(l16,l3),l3),l3),QIList(l163,l317,l3),l3),QIList(l164,l323,l3),l3),l3),l3),l3),l3,l3),QIList(l127,l192,QIList(l100,QIList(l5,QIList(l101,l205,l322,l3),QIList(l162,QIList(l219,QIList(l164,l101,l3),QIList(l126,QIList(l164,l101,l3),QIList(l231,QIList(l163,l322,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l118,l192,QIList(l100,QIList(l5,QIList(l325,l3),QIList(l162,QIList(l229,QIList(l219,l117,QIList(l105,QIList(l164,l325,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l68,l192,QIList(l100,QIList(l5,QIList(l326,l327,l205,l317,l3),QIList(l162,QIList(l178,l3,QIList(l238,QIList(l164,QIList(l72,QIList(l5,QIList(l315,l3),QIList(l43,QIList(l39,l315,l3),QIList(l40,l315,l3),l3),l3),l326,l3),l3),QIList(l14,l4,QIList(l6,QIList(l164,QIList(l30,l327,l3),l3),QIList(l13,QIList(l231,QIList(l164,QIList(l31,l327,l3),l3),l3),l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l219,QIList(l163,QIList(l290,QIList(l100,l63,l3),QIList(l72,QIList(l5,QIList(l328,l3),QIList(l53,QIList(l29,QIList(l35,l328,l3),l3),QIList(l43,QIList(l39,l328,l3),QIList(l41,l328,l3),l3),l3),l3),l326,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l67,l192,QIList(l100,QIList(l5,QIList(l326,l327,l205,l317,l3),QIList(l162,QIList(l178,l3,QIList(l235,QIList(l164,QIList(l72,QIList(l5,QIList(l315,l3),QIList(l43,QIList(l39,l315,l3),QIList(l40,l315,l3),l3),l3),l326,l3),l3),QIList(l14,l4,QIList(l6,QIList(l164,QIList(l30,l327,l3),l3),QIList(l13,QIList(l231,QIList(l164,QIList(l31,l327,l3),l3),l3),l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l66,QIList(l163,QIList(l290,QIList(l100,l63,l3),QIList(l72,QIList(l5,QIList(l328,l3),QIList(l53,QIList(l29,QIList(l35,l328,l3),l3),QIList(l43,QIList(l39,l328,l3),QIList(l41,l328,l3),l3),l3),l3),l326,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l66,l192,QIList(l100,QIList(l5,QIList(l205,l329,l3),QIList(l235,QIList(QIList(l330,QIList(l161,l3,l3),l3),l3),QIList(l14,l4,QIList(l50,QIList(QIList(l12,l329,l3),QIList(l13,l3),l3),QIList(QIList(l12,QIList(l31,l329,l3),l3),QIList(l292,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l235,QIList(QIList(l101,QIList(l30,l329,l3),l3),QIList(l331,QIList(l33,l329,l3),l3),l3),QIList(l47,QIList(l162,QIList(QIList(l164,l101,l3),QIList(l164,QIList(l16,l3),l3),QIList(l164,l331,l3),l3),l3),l330,l3),QIList(l219,l329,QIList(l35,l329,l3),l3),l3),l3),l3),l3),QIList(l219,l330,QIList(l65,l330,l3),l3),QIList(l162,QIList(l235,QIList(l164,QIList(l72,QIList(l100,l31,l3),l330,l3),l3),QIList(l219,QIList(l163,QIList(l59,QIList(l100,l63,l3),QIList(l72,QIList(l100,l84,l3),l330,l3),QIList(l161,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l56,l192,QIList(l100,QIList(l5,QIList(l332,l333,l205,l317,l3),QIList(l162,QIList(l55,QIList(l231,QIList(l164,l332,l3),QIList(l164,l333,l3),l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3,l3),QIList(l55,l192,QIList(l100,QIList(l5,QIList(l322,l205,l317,l3),QIList(l235,QIList(QIList(l331,QIList(l16,l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l331,l3),QIList(l164,l322,l3),l3),l3),QIList(l163,l317,l3),QIList(l164,l331,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l54,l192,QIList(l100,QIList(l5,QIList(l205,l334,l3),QIList(l50,QIList(QIList(l12,l334,l3),l3,l3),QIList(QIList(l12,QIList(l31,l334,l3),l3),QIList(l30,l334,l3),l3),QIList(l4,QIList(l235,QIList(QIList(l335,QIList(l16,l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l335,l3),QIList(l164,QIList(l30,l334,l3),l3),l3),l3),QIList(l202,QIList(l164,l335,l3),QIList(l164,l335,l3),QIList(l54,QIList(l163,QIList(l31,l334,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l53,l192,QIList(l100,QIList(l5,QIList(l205,l334,l3),QIList(l50,QIList(QIList(l12,l334,l3),l4,l3),QIList(QIList(l12,QIList(l31,l334,l3),l3),QIList(l30,l334,l3),l3),QIList(l4,QIList(l162,QIList(l202,QIList(l164,QIList(l30,l334,l3),l3),QIList(l53,QIList(l163,QIList(l31,l334,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l192,QIList(l100,QIList(l5,QIList(l322,l205,l336,l3),QIList(l162,QIList(l51,QIList(l164,l322,l3),QIList(l163,QIList(l63,l336,QIList(l162,QIList(QIList(l4,QIList(l292,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l51,l192,QIList(l100,QIList(l5,QIList(l322,l205,l336,l3),QIList(l235,QIList(QIList(l337,QIList(l16,l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l337,l3),QIList(l164,l322,l3),l3),l3),QIList(l50,QIList(l163,QIList(l72,QIList(l5,QIList(l338,l3),QIList(l202,QIList(l281,QIList(l30,l338,l3),l4,l3),l338,QIList(l162,QIList(QIList(l26,QIList(l164,l337,l3),QIList(l161,QIList(l164,QIList(l30,l338,l3),l3),l3),l3),QIList(l163,QIList(l31,l338,l3),l3),l3),l3),l3),l3),l336,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l192,QIList(l100,QIList(l5,QIList(l205,l336,l3),QIList(l202,QIList(l12,l336,l3),l3,QIList(l202,QIList(l281,QIList(l32,l336,l3),l4,l3),QIList(l162,QIList(l231,QIList(l163,QIList(l34,l336,l3),l3),l3),l3),QIList(l162,QIList(l202,QIList(l164,QIList(l32,l336,l3),l3),QIList(l231,QIList(l163,QIList(l34,l336,l3),l3),l3),QIList(l50,QIList(l163,QIList(l31,l336,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l192,QIList(l100,QIList(l5,QIList(l339,l205,l317,l3),QIList(l235,QIList(QIList(l340,QIList(l16,l3),l3),QIList(l341,QIList(l39,l339,l3),l3),QIList(l342,QIList(l40,l339,l3),l3),QIList(l333,QIList(l41,l339,l3),l3),l3),QIList(l162,QIList(l178,l3,QIList(l235,QIList(QIList(QIList(l164,l341,l3),0,l3),QIList(QIList(l164,l340,l3),QIList(l164,l342,l3),l3),l3),QIList(l226,QIList(l267,QIList(l164,l341,l3),QIList(l164,l340,l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l45,QIList(l164,l341,l3),l3),l3),QIList(l164,l333,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l192,QIList(l100,QIList(l5,QIList(l339,l205,l317,l3),QIList(l235,QIList(QIList(l341,QIList(l39,l339,l3),l3),QIList(l343,QIList(l16,l3),l3),l3),QIList(l162,QIList(l178,l3,QIList(l235,QIList(QIList(QIList(l164,l343,l3),QIList(l164,QIList(l40,l339,l3),l3),l3),QIList(QIList(l164,l341,l3),l3,l3),l3),QIList(l226,QIList(l164,l343,l3),QIList(l219,QIList(l164,l341,l3),QIList(l30,QIList(l164,l343,l3),l3),l3),QIList(l249,QIList(l163,l317,l3),l3),QIList(l219,QIList(l164,l343,l3),QIList(l31,QIList(l164,l343,l3),l3),l3),l3),QIList(l164,QIList(l41,l339,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l192,QIList(l100,QIList(l5,QIList(l315,l344,l3),QIList(l162,QIList(l219,QIList(l164,l344,l3),QIList(l28,QIList(l164,l315,l3),QIList(l164,l344,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l192,QIList(l100,QIList(l5,QIList(l315,l204,QIList(l345,1,l3),l3),QIList(l162,QIList(l219,QIList(l164,l315,l3),QIList(l61,QIList(l164,l315,l3),QIList(l164,l345,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l45,l192,QIList(l100,QIList(l5,QIList(l315,l204,QIList(l345,1,l3),l3),QIList(l162,QIList(l219,QIList(l164,l315,l3),QIList(l60,QIList(l164,l315,l3),QIList(l164,l345,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l14,l192,QIList(l100,QIList(l5,QIList(l346,l205,l317,l3),QIList(l162,QIList(l178,l3,QIList(l226,QIList(l164,l346,l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l13,l192,QIList(l100,QIList(l5,QIList(l204,l331,l3),QIList(l162,QIList(l242,l3,QIList(l164,l331,l3),l3),l3),l3),l3),l3,l3),QIList(l11,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l231,QIList(l277,QIList(l161,QIList(l164,l320,l3),l3),QIList(l10,QIList(l164,QIList(l276,l320,l3),l3),QIList(l164,l316,l3),QIList(l163,QIList(l202,QIList(l53,QIList(l284,QIList(l30,l317,l3),l3),QIList(l27,QIList(l12,QIList(l31,l317,l3),l3),l3),l3),QIList(l162,QIList(QIList(l164,QIList(l30,l317,l3),l3),QIList(l178,QIList(l164,l320,l3),QIList(l163,QIList(l31,l317,l3),l3),l3),l3),l3),QIList(l162,QIList(QIList(l178,QIList(l164,l320,l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l161,QIList(l164,l320,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l10,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l235,QIList(QIList(l315,QIList(l16,"FN",l3),l3),l3),QIList(l162,QIList(l235,QIList(QIList(QIList(l164,l315,l3),QIList(l5,QIList(l164,l316,l3),QIList(l163,l317,l3),l3),l3),l3),QIList(l296,QIList(l164,l315,l3),"fname",QIList(l164,l320,l3),l3),QIList(l164,l315,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l9,l192,QIList(l100,QIList(l5,QIList(l320,l331,l204,l347,l3),QIList(l162,QIList(l231,QIList(l219,QIList(l164,l320,l3),QIList(l164,l331,l3),l3),QIList(l163,QIList(l6,QIList(l284,l347,l3),QIList(l162,QIList(QIList(l296,QIList(l161,QIList(l164,l320,l3),l3),"vardoc",QIList(l164,l347,l3),l3),l3),l3),l3),l3),QIList(l161,QIList(l164,l320,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l8,l192,QIList(l100,QIList(l5,QIList(l320,l331,l204,l347,l3),QIList(l162,QIList(l231,QIList(l2,QIList(l196,QIList(l164,l320,l3),l3),l3),QIList(l7,QIList(l18,QIList(l161,QIList(l164,l320,l3),l3),l3),QIList(l219,QIList(l164,l320,l3),QIList(l164,l331,l3),l3),l3),QIList(l163,QIList(l6,QIList(l284,l347,l3),QIList(l162,QIList(QIList(l296,QIList(l161,QIList(l164,l320,l3),l3),"vardoc",QIList(l164,l347,l3),l3),l3),l3),l3),l3),QIList(l161,QIList(l164,l320,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l7,l192,QIList(l100,QIList(l5,QIList(l346,l205,l317,l3),QIList(l162,QIList(l202,QIList(l164,l346,l3),l3,QIList(l231,QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l6,l192,QIList(l100,QIList(l5,QIList(l346,l205,l317,l3),QIList(l162,QIList(l202,QIList(l164,l346,l3),QIList(l231,QIList(l163,l317,l3),l3),l3,l3),l3),l3),l3),l3,l3),QIList(l5,l192,QIList(l100,QIList(l5,QIList(l316,l205,l317,l3),QIList(l162,QIList(l100,QIList(l5,QIList(l164,l316,l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l2,l192,QIList(l100,QIList(l5,QIList(l205,l318,l3),QIList(l162,QIList(l229,QIList(l163,QIList(l72,QIList(l5,QIList(l319,l3),QIList(l162,QIList(l195,QIList(l161,QIList(l164,l319,l3),l3),l3),l3),l3),l318,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l1,l192,QIList(l100,QIList(l5,QIList(l320,l316,l205,l317,l3),QIList(l162,QIList(l229,QIList(l191,QIList(l161,QIList(l164,l320,l3),l3),QIList(l161,QIList(l100,QIList(l5,QIList(l164,QIList(l72,QIList(l100,QIList(l5,QIList(l315,l3),QIList(l202,QIList(l281,l315,QIList(l161,l310,l3),l3),QIList(l161,l205,l3),l315,l3),l3),l3),l316,l3),l3),QIList(l163,l317,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3);
7998 (function(){
7999     l119.fvalue(pv, l310);
8000     l119.fvalue(pv, l309);
8001     l119.fvalue(pv, l308);
8002     l119.fvalue(pv, l307);
8003     l119.fvalue(pv, l306);
8004     l119.fvalue(pv, l305);
8005     l119.fvalue(pv, l304);
8006     l119.fvalue(pv, l303);
8007     l119.fvalue(pv, l302);
8008     l119.fvalue(pv, l301);
8009     l119.fvalue(pv, l300);
8010     l119.fvalue(pv, l299);
8011     l119.fvalue(pv, l298);
8012     l119.fvalue(pv, l297);
8013     l119.fvalue(pv, l296);
8014     l119.fvalue(pv, l295);
8015     l119.fvalue(pv, l294);
8016     l119.fvalue(pv, l293);
8017     l119.fvalue(pv, l292);
8018     l119.fvalue(pv, l291);
8019     l119.fvalue(pv, l290);
8020     l119.fvalue(pv, l289);
8021     l119.fvalue(pv, l288);
8022     l119.fvalue(pv, l287);
8023     l119.fvalue(pv, l286);
8024     l119.fvalue(pv, l285);
8025     l119.fvalue(pv, l284);
8026     l119.fvalue(pv, l283);
8027     l119.fvalue(pv, l282);
8028     l119.fvalue(pv, l281);
8029     l119.fvalue(pv, l280);
8030     l119.fvalue(pv, l279);
8031     l119.fvalue(pv, l278);
8032     l119.fvalue(pv, l277);
8033     l119.fvalue(pv, l276);
8034     l119.fvalue(pv, l275);
8035     l119.fvalue(pv, l274);
8036     l119.fvalue(pv, l273);
8037     l119.fvalue(pv, l272);
8038     l119.fvalue(pv, l271);
8039     l119.fvalue(pv, l270);
8040     l119.fvalue(pv, l269);
8041     l119.fvalue(pv, l268);
8042     l119.fvalue(pv, l267);
8043     l119.fvalue(pv, l266);
8044     l119.fvalue(pv, l265);
8045     l119.fvalue(pv, l264);
8046     l119.fvalue(pv, l263);
8047     l119.fvalue(pv, l262);
8048     l119.fvalue(pv, l261);
8049     l119.fvalue(pv, l260);
8050     l119.fvalue(pv, l259);
8051     l119.fvalue(pv, l258);
8052     l119.fvalue(pv, l257);
8053     l119.fvalue(pv, l256);
8054     l119.fvalue(pv, l255);
8055     l119.fvalue(pv, l254);
8056     l119.fvalue(pv, l253);
8057     l119.fvalue(pv, l252);
8058     l119.fvalue(pv, l251);
8059     l119.fvalue(pv, l250);
8060     l119.fvalue(pv, l249);
8061     l119.fvalue(pv, l248);
8062     l119.fvalue(pv, l247);
8063     l119.fvalue(pv, l246);
8064     l119.fvalue(pv, l245);
8065     l119.fvalue(pv, l244);
8066     l119.fvalue(pv, l243);
8067     l119.fvalue(pv, l242);
8068     l119.fvalue(pv, l241);
8069     l119.fvalue(pv, l240);
8070     l119.fvalue(pv, l239);
8071     l119.fvalue(pv, l238);
8072     l119.fvalue(pv, l237);
8073     l119.fvalue(pv, l236);
8074     l119.fvalue(pv, l235);
8075     l119.fvalue(pv, l234);
8076     l119.fvalue(pv, l233);
8077     l119.fvalue(pv, l232);
8078     l119.fvalue(pv, l231);
8079     l119.fvalue(pv, l230);
8080     l119.fvalue(pv, l229);
8081     l119.fvalue(pv, l228);
8082     l119.fvalue(pv, l227);
8083     l119.fvalue(pv, l226);
8084     l119.fvalue(pv, l225);
8085     l119.fvalue(pv, l224);
8086     l119.fvalue(pv, l223);
8087     l119.fvalue(pv, l222);
8088     l119.fvalue(pv, l221);
8089     l119.fvalue(pv, l220);
8090     l119.fvalue(pv, l219);
8091     l119.fvalue(pv, l218);
8092     l119.fvalue(pv, l217);
8093     l119.fvalue(pv, l216);
8094     l119.fvalue(pv, l215);
8095     l119.fvalue(pv, l214);
8096     l119.fvalue(pv, l213);
8097     l119.fvalue(pv, l212);
8098     l119.fvalue(pv, l211);
8099     l119.fvalue(pv, l210);
8100     l119.fvalue(pv, l209);
8101     l119.fvalue(pv, l208);
8102     l119.fvalue(pv, l207);
8103     l119.fvalue(pv, l205);
8104     l119.fvalue(pv, l204);
8105     l119.fvalue(pv, l203);
8106     l119.fvalue(pv, l202);
8107     l119.fvalue(pv, l201);
8108     l119.fvalue(pv, l200);
8109     l119.fvalue(pv, l199);
8110     l119.fvalue(pv, l198);
8111     l119.fvalue(pv, l197);
8112     l119.fvalue(pv, l196);
8113     l119.fvalue(pv, l195);
8114     l119.fvalue(pv, l194);
8115     l119.fvalue(pv, l193);
8116     l119.fvalue(pv, l192);
8117     l119.fvalue(pv, l191);
8118     l119.fvalue(pv, l190);
8119     l119.fvalue(pv, l189);
8120     l119.fvalue(pv, l188);
8121     l119.fvalue(pv, l187);
8122     l119.fvalue(pv, l186);
8123     l119.fvalue(pv, l185);
8124     l119.fvalue(pv, l184);
8125     l119.fvalue(pv, l183);
8126     l119.fvalue(pv, l182);
8127     l119.fvalue(pv, l181);
8128     l119.fvalue(pv, l180);
8129     l119.fvalue(pv, l179);
8130     l119.fvalue(pv, l178);
8131     l119.fvalue(pv, l177);
8132     l119.fvalue(pv, l176);
8133     l119.fvalue(pv, l175);
8134     l119.fvalue(pv, l174);
8135     l119.fvalue(pv, l173);
8136     l119.fvalue(pv, l172);
8137     l119.fvalue(pv, l171);
8138     l119.fvalue(pv, l170);
8139     l119.fvalue(pv, l169);
8140     l119.fvalue(pv, l168);
8141     l119.fvalue(pv, l167);
8142     l119.fvalue(pv, l166);
8143     l119.fvalue(pv, l165);
8144     l119.fvalue(pv, l164);
8145     l119.fvalue(pv, l163);
8146     l119.fvalue(pv, l162);
8147     l119.fvalue(pv, l161);
8148     l119.fvalue(pv, l160);
8149     l119.fvalue(pv, l159);
8150     l119.fvalue(pv, l158);
8151     l119.fvalue(pv, l157);
8152     l119.fvalue(pv, l156);
8153     l119.fvalue(pv, l155);
8154     l119.fvalue(pv, l154);
8155     l119.fvalue(pv, l153);
8156     l119.fvalue(pv, l152);
8157     l119.fvalue(pv, l151);
8158     l119.fvalue(pv, l150);
8159     l119.fvalue(pv, l149);
8160     l119.fvalue(pv, l148);
8161     l119.fvalue(pv, l147);
8162     l119.fvalue(pv, l146);
8163     l119.fvalue(pv, l145);
8164     l119.fvalue(pv, l144);
8165     l119.fvalue(pv, l143);
8166     l119.fvalue(pv, l142);
8167     l119.fvalue(pv, l141);
8168     l119.fvalue(pv, l140);
8169     l119.fvalue(pv, l139);
8170     l119.fvalue(pv, l138);
8171     l119.fvalue(pv, l137);
8172     l119.fvalue(pv, l136);
8173     l119.fvalue(pv, l135);
8174     l119.fvalue(pv, l134);
8175     l119.fvalue(pv, l133);
8176     l119.fvalue(pv, l132);
8177     l119.fvalue(pv, l131);
8178     l119.fvalue(pv, l130);
8179     l119.fvalue(pv, l129);
8180     l119.fvalue(pv, l128);
8181     l119.fvalue(pv, l127);
8182     l119.fvalue(pv, l126);
8183     l119.fvalue(pv, l125);
8184     l119.fvalue(pv, l124);
8185     l119.fvalue(pv, l123);
8186     l119.fvalue(pv, l122);
8187     l119.fvalue(pv, l121);
8188     l119.fvalue(pv, l120);
8189     l119.fvalue(pv, l119);
8190     l119.fvalue(pv, l118);
8191     l119.fvalue(pv, l117);
8192     l119.fvalue(pv, l116);
8193     l119.fvalue(pv, l115);
8194     l119.fvalue(pv, l114);
8195     l119.fvalue(pv, l113);
8196     l119.fvalue(pv, l112);
8197     l119.fvalue(pv, l111);
8198     l119.fvalue(pv, l110);
8199     l119.fvalue(pv, l109);
8200     l119.fvalue(pv, l108);
8201     l119.fvalue(pv, l107);
8202     l119.fvalue(pv, l106);
8203     l119.fvalue(pv, l105);
8204     l119.fvalue(pv, l104);
8205     l119.fvalue(pv, l103);
8206     l119.fvalue(pv, l102);
8207     l119.fvalue(pv, l101);
8208     l119.fvalue(pv, l100);
8209     l119.fvalue(pv, l99);
8210     l119.fvalue(pv, l98);
8211     l119.fvalue(pv, l97);
8212     l119.fvalue(pv, l96);
8213     l119.fvalue(pv, l95);
8214     l119.fvalue(pv, l94);
8215     l119.fvalue(pv, l93);
8216     l119.fvalue(pv, l92);
8217     l119.fvalue(pv, l91);
8218     l119.fvalue(pv, l90);
8219     l119.fvalue(pv, l89);
8220     l119.fvalue(pv, l88);
8221     l119.fvalue(pv, l87);
8222     l119.fvalue(pv, l86);
8223     l119.fvalue(pv, l85);
8224     l119.fvalue(pv, l84);
8225     l119.fvalue(pv, l83);
8226     l119.fvalue(pv, l82);
8227     l119.fvalue(pv, l81);
8228     l119.fvalue(pv, l80);
8229     l119.fvalue(pv, l79);
8230     l119.fvalue(pv, l78);
8231     l119.fvalue(pv, l77);
8232     l119.fvalue(pv, l76);
8233     l119.fvalue(pv, l75);
8234     l119.fvalue(pv, l74);
8235     l119.fvalue(pv, l73);
8236     l119.fvalue(pv, l72);
8237     l119.fvalue(pv, l71);
8238     l119.fvalue(pv, l70);
8239     l119.fvalue(pv, l69);
8240     l119.fvalue(pv, l68);
8241     l119.fvalue(pv, l67);
8242     l119.fvalue(pv, l66);
8243     l119.fvalue(pv, l65);
8244     l119.fvalue(pv, l64);
8245     l119.fvalue(pv, l63);
8246     l119.fvalue(pv, l62);
8247     l119.fvalue(pv, l61);
8248     l119.fvalue(pv, l60);
8249     l119.fvalue(pv, l59);
8250     l119.fvalue(pv, l58);
8251     l119.fvalue(pv, l57);
8252     l119.fvalue(pv, l56);
8253     l119.fvalue(pv, l55);
8254     l119.fvalue(pv, l54);
8255     l119.fvalue(pv, l53);
8256     l119.fvalue(pv, l52);
8257     l119.fvalue(pv, l51);
8258     l119.fvalue(pv, l50);
8259     l119.fvalue(pv, l49);
8260     l119.fvalue(pv, l48);
8261     l119.fvalue(pv, l47);
8262     l119.fvalue(pv, l46);
8263     l119.fvalue(pv, l45);
8264     l119.fvalue(pv, l44);
8265     l119.fvalue(pv, l43);
8266     l119.fvalue(pv, l42);
8267     l119.fvalue(pv, l41);
8268     l119.fvalue(pv, l40);
8269     l119.fvalue(pv, l39);
8270     l119.fvalue(pv, l38);
8271     l119.fvalue(pv, l37);
8272     l119.fvalue(pv, l36);
8273     l119.fvalue(pv, l35);
8274     l119.fvalue(pv, l34);
8275     l119.fvalue(pv, l33);
8276     l119.fvalue(pv, l32);
8277     l119.fvalue(pv, l31);
8278     l119.fvalue(pv, l30);
8279     l119.fvalue(pv, l29);
8280     l119.fvalue(pv, l28);
8281     l119.fvalue(pv, l27);
8282     l119.fvalue(pv, l26);
8283     l119.fvalue(pv, l25);
8284     l119.fvalue(pv, l24);
8285     l119.fvalue(pv, l23);
8286     l119.fvalue(pv, l22);
8287     l119.fvalue(pv, l21);
8288     l119.fvalue(pv, l20);
8289     l119.fvalue(pv, l19);
8290     l119.fvalue(pv, l18);
8291     l119.fvalue(pv, l17);
8292     l119.fvalue(pv, l16);
8293     l119.fvalue(pv, l15);
8294     l119.fvalue(pv, l14);
8295     l119.fvalue(pv, l13);
8296     l119.fvalue(pv, l12);
8297     l119.fvalue(pv, l11);
8298     l119.fvalue(pv, l10);
8299     l119.fvalue(pv, l9);
8300     l119.fvalue(pv, l8);
8301     l119.fvalue(pv, l7);
8302     l119.fvalue(pv, l6);
8303     l119.fvalue(pv, l5);
8304     l119.fvalue(pv, l4);
8305     l119.fvalue(pv, l3);
8306     l119.fvalue(pv, l2);
8307     l119.fvalue(pv, l1);
8308     ((l222).value = l312);
8309     ((l182).value = l348);
8310     ((l183).value = 822);
8311     ((l15).value = 212);
8312     return ((l239).value = 282);
8313 })();
8314 ((l223).value = 348);