1 function pv (x) { return x ; }
5 r['multiple-value'] = true;
6 for (var i=0; i<arguments.length; i++)
11 // NOTE: Define VALUES to be MV for toplevel forms. It is because
12 // `eval' compiles the forms and execute the Javascript code at
13 // toplevel with `js-eval', so it is necessary to return multiple
14 // values from the eval function.
17 function checkArgsAtLeast(args, n){
18 if (args.length < n) throw 'too few arguments';
21 function checkArgsAtMost(args, n){
22 if (args.length > n) throw 'too many arguments';
25 function checkArgs(args, n){
26 checkArgsAtLeast(args, n);
27 checkArgsAtMost(args, n);
30 // Improper list constructor (like LIST*)
32 if (arguments.length == 1)
35 var i = arguments.length-1;
36 var r = arguments[i--];
38 r = {car: arguments[i], cdr: r};
43 var l1 = {name: "DEFMACRO"};
45 var l2 = {name: "DECLAIM"};
47 var l3 = {name: "NIL"};
51 var l5 = {name: "WHEN"};
53 var l6 = {name: "UNLESS"};
55 var l7 = {name: "DEFVAR"};
57 var l8 = {name: "DEFPARAMETER"};
59 var l9 = {name: "NAMED-LAMBDA"};
61 var l10 = {name: "DEFUN"};
63 var l11 = {name: "NULL"};
65 (l11).fvalue = (function(v2){
66 ((v2)["fname"] = "NULL");
68 })((function (values,v1){
69 checkArgs(arguments, 2);
71 return ((v1 === l3.value)?l4.value: l3.value);
76 var l12 = {name: "RETURN"};
78 var l13 = {name: "WHILE"};
80 var l14 = {name: "*GENSYM-COUNTER*"};
82 (((l14.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l14).value = 0));
85 var l15 = {name: "GENSYM"};
86 var l16 = {name: "INTEGER-TO-STRING"};
88 (l15).fvalue = (function(v4){
89 ((v4)["fname"] = "GENSYM");
91 })((function (values,v3){
92 checkArgsAtMost(arguments, 2);
93 switch(arguments.length-1){
99 ((l14).value = (function(){
100 var x1 = (function(){
102 var value = symbol.value;
103 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
106 if (typeof x1 !== 'number') throw 'Not a number!';
108 if (typeof x2 !== 'number') throw 'Not a number!';
112 var name = (function(){
114 var string2 = l16.fvalue(pv, (function(){
116 var value = symbol.value;
117 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
120 if (typeof string1 != 'string')
121 throw 'The value ' + string1 + ' is not a type string.';
122 if (typeof string2 != 'string')
123 throw 'The value ' + string2 + ' is not a type string.';
124 return string1.concat(string2);
126 if (typeof name != 'string')
127 throw 'The value ' + name + ' is not a type string.';
128 return ({name: name});
134 var l17 = {name: "BOUNDP"};
136 (l17).fvalue = (function(v6){
137 ((v6)["fname"] = "BOUNDP");
139 })((function (values,v5){
140 checkArgs(arguments, 2);
142 return ((v5.value !== undefined)?l4.value: l3.value);
147 var l18 = {name: "="};
149 (l18).fvalue = (function(v9){
150 ((v9)["fname"] = "=");
152 })((function (values,v7,v8){
153 checkArgs(arguments, 3);
157 if (typeof x1 !== 'number') throw 'Not a number!';
159 if (typeof x2 !== 'number') throw 'Not a number!';
160 return (x1==x2?l4.value: l3.value);
166 var l19 = {name: "*"};
168 (l19).fvalue = (function(v12){
169 ((v12)["fname"] = "*");
171 })((function (values,v10,v11){
172 checkArgs(arguments, 3);
176 if (typeof x1 !== 'number') throw 'Not a number!';
178 if (typeof x2 !== 'number') throw 'Not a number!';
185 var l20 = {name: "/"};
187 (l20).fvalue = (function(v15){
188 ((v15)["fname"] = "/");
190 })((function (values,v13,v14){
191 checkArgs(arguments, 3);
195 if (typeof x1 !== 'number') throw 'Not a number!';
197 if (typeof x2 !== 'number') throw 'Not a number!';
204 var l21 = {name: "1+"};
206 (l21).fvalue = (function(v17){
207 ((v17)["fname"] = "1+");
209 })((function (values,v16){
210 checkArgs(arguments, 2);
214 if (typeof x1 !== 'number') throw 'Not a number!';
216 if (typeof x2 !== 'number') throw 'Not a number!';
223 var l22 = {name: "1-"};
225 (l22).fvalue = (function(v19){
226 ((v19)["fname"] = "1-");
228 })((function (values,v18){
229 checkArgs(arguments, 2);
233 if (typeof x1 !== 'number') throw 'Not a number!';
235 if (typeof x2 !== 'number') throw 'Not a number!';
242 var l23 = {name: "ZEROP"};
244 (l23).fvalue = (function(v21){
245 ((v21)["fname"] = "ZEROP");
247 })((function (values,v20){
248 checkArgs(arguments, 2);
252 if (typeof x1 !== 'number') throw 'Not a number!';
254 if (typeof x2 !== 'number') throw 'Not a number!';
255 return (x1==x2?l4.value: l3.value);
261 var l24 = {name: "TRUNCATE"};
263 (l24).fvalue = (function(v24){
264 ((v24)["fname"] = "TRUNCATE");
266 })((function (values,v22,v23){
267 checkArgs(arguments, 3);
272 if (typeof x1 !== 'number') throw 'Not a number!';
274 if (typeof x2 !== 'number') throw 'Not a number!';
277 if (typeof x != 'number')
278 throw 'The value ' + x + ' is not a type number.';
279 return Math.floor(x);
285 var l25 = {name: "EQL"};
287 (l25).fvalue = (function(v27){
288 ((v27)["fname"] = "EQL");
290 })((function (values,v25,v26){
291 checkArgs(arguments, 3);
293 return ((v25 === v26)?l4.value: l3.value);
298 var l26 = {name: "NOT"};
300 (l26).fvalue = (function(v29){
301 ((v29)["fname"] = "NOT");
303 })((function (values,v28){
304 checkArgs(arguments, 2);
306 return (v28 !== l3.value ? l3.value : l4.value);
311 var l27 = {name: "CONS"};
313 (l27).fvalue = (function(v32){
314 ((v32)["fname"] = "CONS");
316 })((function (values,v30,v31){
317 checkArgs(arguments, 3);
319 return ({car: v30, cdr: v31});
324 var l28 = {name: "CONSP"};
326 (l28).fvalue = (function(v34){
327 ((v34)["fname"] = "CONSP");
329 })((function (values,v33){
330 checkArgs(arguments, 2);
334 return (typeof tmp == 'object' && 'car' in tmp);
335 })()?l4.value: l3.value);
340 var l29 = {name: "CAR"};
342 (l29).fvalue = (function(v36){
343 ((v36)["fname"] = "CAR");
346 var func = (function (values,v35){
347 checkArgs(arguments, 2);
351 return tmp === l3.value? l3.value: tmp.car;
355 func.docstring = 'Return the CAR part of a cons, or NIL if X is null.';
360 var l30 = {name: "CDR"};
362 (l30).fvalue = (function(v38){
363 ((v38)["fname"] = "CDR");
365 })((function (values,v37){
366 checkArgs(arguments, 2);
370 return tmp === l3.value? l3.value: tmp.cdr;
376 var l31 = {name: "CAAR"};
378 (l31).fvalue = (function(v40){
379 ((v40)["fname"] = "CAAR");
381 })((function (values,v39){
382 checkArgs(arguments, 2);
385 var tmp = (function(){
387 return tmp === l3.value? l3.value: tmp.car;
389 return tmp === l3.value? l3.value: tmp.car;
395 var l32 = {name: "CADR"};
397 (l32).fvalue = (function(v42){
398 ((v42)["fname"] = "CADR");
400 })((function (values,v41){
401 checkArgs(arguments, 2);
404 var tmp = (function(){
406 return tmp === l3.value? l3.value: tmp.cdr;
408 return tmp === l3.value? l3.value: tmp.car;
414 var l33 = {name: "CDAR"};
416 (l33).fvalue = (function(v44){
417 ((v44)["fname"] = "CDAR");
419 })((function (values,v43){
420 checkArgs(arguments, 2);
423 var tmp = (function(){
425 return tmp === l3.value? l3.value: tmp.car;
427 return tmp === l3.value? l3.value: tmp.cdr;
433 var l34 = {name: "CDDR"};
435 (l34).fvalue = (function(v46){
436 ((v46)["fname"] = "CDDR");
438 })((function (values,v45){
439 checkArgs(arguments, 2);
442 var tmp = (function(){
444 return tmp === l3.value? l3.value: tmp.cdr;
446 return tmp === l3.value? l3.value: tmp.cdr;
452 var l35 = {name: "CADDR"};
454 (l35).fvalue = (function(v48){
455 ((v48)["fname"] = "CADDR");
457 })((function (values,v47){
458 checkArgs(arguments, 2);
461 var tmp = (function(){
462 var tmp = (function(){
464 return tmp === l3.value? l3.value: tmp.cdr;
466 return tmp === l3.value? l3.value: tmp.cdr;
468 return tmp === l3.value? l3.value: tmp.car;
474 var l36 = {name: "CDDDR"};
476 (l36).fvalue = (function(v50){
477 ((v50)["fname"] = "CDDDR");
479 })((function (values,v49){
480 checkArgs(arguments, 2);
483 var tmp = (function(){
484 var tmp = (function(){
486 return tmp === l3.value? l3.value: tmp.cdr;
488 return tmp === l3.value? l3.value: tmp.cdr;
490 return tmp === l3.value? l3.value: tmp.cdr;
496 var l37 = {name: "CADDDR"};
498 (l37).fvalue = (function(v52){
499 ((v52)["fname"] = "CADDDR");
501 })((function (values,v51){
502 checkArgs(arguments, 2);
505 var tmp = (function(){
506 var tmp = (function(){
507 var tmp = (function(){
509 return tmp === l3.value? l3.value: tmp.cdr;
511 return tmp === l3.value? l3.value: tmp.cdr;
513 return tmp === l3.value? l3.value: tmp.cdr;
515 return tmp === l3.value? l3.value: tmp.car;
521 var l38 = {name: "FIRST"};
523 (l38).fvalue = (function(v54){
524 ((v54)["fname"] = "FIRST");
526 })((function (values,v53){
527 checkArgs(arguments, 2);
531 return tmp === l3.value? l3.value: tmp.car;
537 var l39 = {name: "SECOND"};
539 (l39).fvalue = (function(v56){
540 ((v56)["fname"] = "SECOND");
542 })((function (values,v55){
543 checkArgs(arguments, 2);
545 return l32.fvalue(values, v55);
550 var l40 = {name: "THIRD"};
552 (l40).fvalue = (function(v58){
553 ((v58)["fname"] = "THIRD");
555 })((function (values,v57){
556 checkArgs(arguments, 2);
558 return l35.fvalue(values, v57);
563 var l41 = {name: "FOURTH"};
565 (l41).fvalue = (function(v60){
566 ((v60)["fname"] = "FOURTH");
568 })((function (values,v59){
569 checkArgs(arguments, 2);
571 return l37.fvalue(values, v59);
576 var l42 = {name: "LIST"};
578 (l42).fvalue = (function(v62){
579 ((v62)["fname"] = "LIST");
581 })((function (values){
583 for (var i = arguments.length-1; i>=1; i--)
584 v61 = {car: arguments[i], cdr:
592 var l43 = {name: "ATOM"};
594 (l43).fvalue = (function(v64){
595 ((v64)["fname"] = "ATOM");
597 })((function (values,v63){
598 checkArgs(arguments, 2);
600 return l26.fvalue(values, ((function(){
602 return (typeof tmp == 'object' && 'car' in tmp);
603 })()?l4.value: l3.value));
608 var l44 = {name: "INCF"};
610 var l45 = {name: "DECF"};
612 var l46 = {name: "PUSH"};
614 var l47 = {name: "DOLIST"};
616 var l48 = {name: "DOTIMES"};
618 var l49 = {name: "COND"};
620 var l50 = {name: "CASE"};
622 var l51 = {name: "ECASE"};
624 var l52 = {name: "AND"};
626 var l53 = {name: "OR"};
628 var l54 = {name: "PROG1"};
630 var l55 = {name: "PROG2"};
632 var l56 = {name: "ENSURE-LIST"};
633 var l57 = {name: "LISTP"};
635 (l56).fvalue = (function(v66){
636 ((v66)["fname"] = "ENSURE-LIST");
638 })((function (values,v65){
639 checkArgs(arguments, 2);
641 return (l57.fvalue(pv, v65) !== l3.value ? v65 : l42.fvalue(values, v65));
646 var l58 = {name: "!REDUCE"};
648 (l58).fvalue = (function(v70){
649 ((v70)["fname"] = "!REDUCE");
651 })((function (values,v67,v68,v69){
652 checkArgs(arguments, 4);
654 return (l11.fvalue(pv, v68) !== l3.value ? v69 : l58.fvalue(values, v67, (function(){
656 return tmp === l3.value? l3.value: tmp.cdr;
657 })(), (v67)(pv, v69, (function(){
659 return tmp === l3.value? l3.value: tmp.car;
665 var l59 = {name: "+"};
667 (l59).fvalue = (function(v75){
668 ((v75)["fname"] = "+");
670 })((function (values){
672 for (var i = arguments.length-1; i>=1; i--)
673 v71 = {car: arguments[i], cdr:
676 return (function(v72){
678 return (function(v73,v74){
680 while(v73 !== l3.value){
683 return tmp === l3.value? l3.value: tmp.car;
688 if (typeof x1 !== 'number') throw 'Not a number!';
690 if (typeof x2 !== 'number') throw 'Not a number!';
697 return tmp === l3.value? l3.value: tmp.cdr;
709 var l60 = {name: "-"};
711 (l60).fvalue = (function(v81){
712 ((v81)["fname"] = "-");
714 })((function (values,v77){
715 checkArgsAtLeast(arguments, 2);
717 for (var i = arguments.length-1; i>=2; i--)
718 v76 = {car: arguments[i], cdr:
721 return (l11.fvalue(pv, v76) !== l3.value ? (function(){
723 if (typeof x1 !== 'number') throw 'Not a number!';
725 })() : (function(v78){
727 return (function(v79,v80){
729 while(v79 !== l3.value){
732 return tmp === l3.value? l3.value: tmp.car;
737 if (typeof x1 !== 'number') throw 'Not a number!';
739 if (typeof x2 !== 'number') throw 'Not a number!';
746 return tmp === l3.value? l3.value: tmp.cdr;
758 var l61 = {name: "APPEND-TWO"};
759 var l62 = {name: "APPEND"};
761 (l61).fvalue = (function(v84){
762 ((v84)["fname"] = "APPEND-TWO");
764 })((function (values,v82,v83){
765 checkArgs(arguments, 3);
767 return (l11.fvalue(pv, v82) !== l3.value ? v83 : ({car: (function(){
769 return tmp === l3.value? l3.value: tmp.car;
770 })(), cdr: l62.fvalue(pv, (function(){
772 return tmp === l3.value? l3.value: tmp.cdr;
779 (l62).fvalue = (function(v86){
780 ((v86)["fname"] = "APPEND");
782 })((function (values){
784 for (var i = arguments.length-1; i>=1; i--)
785 v85 = {car: arguments[i], cdr:
788 return l58.fvalue(values, (function(){
790 var func = symbol.fvalue;
791 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
798 var l63 = {name: "REVAPPEND"};
800 (l63).fvalue = (function(v89){
801 ((v89)["fname"] = "REVAPPEND");
803 })((function (values,v87,v88){
804 checkArgs(arguments, 3);
808 while(v87 !== l3.value){
809 (v88 = ({car: (function(){
811 return tmp === l3.value? l3.value: tmp.car;
815 return tmp === l3.value? l3.value: tmp.cdr;
825 var l64 = {name: "REVERSE"};
827 (l64).fvalue = (function(v91){
828 ((v91)["fname"] = "REVERSE");
830 })((function (values,v90){
831 checkArgs(arguments, 2);
833 return l63.fvalue(values, v90, l3);
838 var l65 = {name: "PSETQ"};
840 var l66 = {name: "LIST-LENGTH"};
842 (l66).fvalue = (function(v94){
843 ((v94)["fname"] = "LIST-LENGTH");
845 })((function (values,v92){
846 checkArgs(arguments, 2);
848 return (function(v93){
851 while(l26.fvalue(pv, l11.fvalue(pv, v92)) !== l3.value){
854 if (typeof x1 !== 'number') throw 'Not a number!';
856 if (typeof x2 !== 'number') throw 'Not a number!';
861 return tmp === l3.value? l3.value: tmp.cdr;
872 var l67 = {name: "LENGTH"};
874 (l67).fvalue = (function(v96){
875 ((v96)["fname"] = "LENGTH");
877 })((function (values,v95){
878 checkArgs(arguments, 2);
880 return (((typeof(v95) == "string")?l4.value: l3.value) !== l3.value ? (function(){
882 if (typeof x != 'string')
883 throw 'The value ' + x + ' is not a type string.';
885 })() : (((function(){
887 return typeof x === 'object' && 'length' in x;
888 })()?l4.value: l3.value) !== l3.value ? (function(){
889 var tmp = (v95)["length"];
890 return tmp == undefined? l3.value: tmp ;
891 })() : (l57.fvalue(pv, v95) !== l3.value ? l66.fvalue(values, v95) : l3.value)));
896 var l68 = {name: "CONCAT-TWO"};
898 (l68).fvalue = (function(v99){
899 ((v99)["fname"] = "CONCAT-TWO");
901 })((function (values,v97,v98){
902 checkArgs(arguments, 3);
907 if (typeof string1 != 'string')
908 throw 'The value ' + string1 + ' is not a type string.';
909 if (typeof string2 != 'string')
910 throw 'The value ' + string2 + ' is not a type string.';
911 return string1.concat(string2);
917 var l69 = {name: "MAPCAR"};
919 (l69).fvalue = (function(v102){
920 ((v102)["fname"] = "MAPCAR");
922 })((function (values,v100,v101){
923 checkArgs(arguments, 3);
925 return (l11.fvalue(pv, v101) !== l3.value ? l3 : ({car: (v100)(pv, (function(){
927 return tmp === l3.value? l3.value: tmp.car;
928 })()), cdr: l69.fvalue(pv, v100, (function(){
930 return tmp === l3.value? l3.value: tmp.cdr;
936 var l70 = {name: "IDENTITY"};
938 (l70).fvalue = (function(v104){
939 ((v104)["fname"] = "IDENTITY");
941 })((function (values,v103){
942 checkArgs(arguments, 2);
949 var l71 = {name: "COPY-LIST"};
951 (l71).fvalue = (function(v106){
952 ((v106)["fname"] = "COPY-LIST");
954 })((function (values,v105){
955 checkArgs(arguments, 2);
957 return l69.fvalue(values, (function(){
959 var func = symbol.fvalue;
960 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
967 var l72 = {name: "CODE-CHAR"};
969 (l72).fvalue = (function(v108){
970 ((v108)["fname"] = "CODE-CHAR");
972 })((function (values,v107){
973 checkArgs(arguments, 2);
980 var l73 = {name: "CHAR-CODE"};
982 (l73).fvalue = (function(v110){
983 ((v110)["fname"] = "CHAR-CODE");
985 })((function (values,v109){
986 checkArgs(arguments, 2);
993 var l74 = {name: "CHAR="};
995 (l74).fvalue = (function(v113){
996 ((v113)["fname"] = "CHAR=");
998 })((function (values,v111,v112){
999 checkArgs(arguments, 3);
1003 if (typeof x1 !== 'number') throw 'Not a number!';
1005 if (typeof x2 !== 'number') throw 'Not a number!';
1006 return (x1==x2?l4.value: l3.value);
1012 var l75 = {name: "INTEGERP"};
1014 (l75).fvalue = (function(v115){
1015 ((v115)["fname"] = "INTEGERP");
1017 })((function (values,v114){
1018 checkArgs(arguments, 2);
1020 return (((typeof (v114) == "number")?l4.value: l3.value) !== l3.value ? (function(){
1021 var x1 = (function(){
1023 if (typeof x != 'number')
1024 throw 'The value ' + x + ' is not a type number.';
1025 return Math.floor(x);
1027 if (typeof x1 !== 'number') throw 'Not a number!';
1029 if (typeof x2 !== 'number') throw 'Not a number!';
1030 return (x1==x2?l4.value: l3.value);
1036 var l76 = {name: "PLUSP"};
1038 (l76).fvalue = (function(v117){
1039 ((v117)["fname"] = "PLUSP");
1041 })((function (values,v116){
1042 checkArgs(arguments, 2);
1046 if (typeof x1 !== 'number') throw 'Not a number!';
1048 if (typeof x2 !== 'number') throw 'Not a number!';
1049 return (x1<x2?l4.value: l3.value);
1055 var l77 = {name: "MINUSP"};
1057 (l77).fvalue = (function(v119){
1058 ((v119)["fname"] = "MINUSP");
1060 })((function (values,v118){
1061 checkArgs(arguments, 2);
1065 if (typeof x1 !== 'number') throw 'Not a number!';
1067 if (typeof x2 !== 'number') throw 'Not a number!';
1068 return (x1<x2?l4.value: l3.value);
1075 (l57).fvalue = (function(v122){
1076 ((v122)["fname"] = "LISTP");
1078 })((function (values,v120){
1079 checkArgs(arguments, 2);
1081 return (function(v121){
1082 return (v121 !== l3.value ? v121 : l11.fvalue(values, v120));
1085 return (typeof tmp == 'object' && 'car' in tmp);
1086 })()?l4.value: l3.value));
1091 var l78 = {name: "NTHCDR"};
1093 (l78).fvalue = (function(v125){
1094 ((v125)["fname"] = "NTHCDR");
1096 })((function (values,v123,v124){
1097 checkArgs(arguments, 3);
1101 while((l76.fvalue(pv, v123) !== l3.value ? v124 : l3.value) !== l3.value){
1102 (v123 = l22.fvalue(pv, v123));
1103 (v124 = (function(){
1105 return tmp === l3.value? l3.value: tmp.cdr;
1115 var l79 = {name: "NTH"};
1117 (l79).fvalue = (function(v128){
1118 ((v128)["fname"] = "NTH");
1120 })((function (values,v126,v127){
1121 checkArgs(arguments, 3);
1124 var tmp = l78.fvalue(pv, v126, v127);
1125 return tmp === l3.value? l3.value: tmp.car;
1131 var l80 = {name: "LAST"};
1133 (l80).fvalue = (function(v130){
1134 ((v130)["fname"] = "LAST");
1136 })((function (values,v129){
1137 checkArgs(arguments, 2);
1142 var tmp = (function(){
1144 return tmp === l3.value? l3.value: tmp.cdr;
1146 return (typeof tmp == 'object' && 'car' in tmp);
1147 })()?l4.value: l3.value) !== l3.value){
1148 (v129 = (function(){
1150 return tmp === l3.value? l3.value: tmp.cdr;
1160 var l81 = {name: "BUTLAST"};
1162 (l81).fvalue = (function(v132){
1163 ((v132)["fname"] = "BUTLAST");
1165 })((function (values,v131){
1166 checkArgs(arguments, 2);
1168 return (((function(){
1169 var tmp = (function(){
1171 return tmp === l3.value? l3.value: tmp.cdr;
1173 return (typeof tmp == 'object' && 'car' in tmp);
1174 })()?l4.value: l3.value) !== l3.value ? ({car: (function(){
1176 return tmp === l3.value? l3.value: tmp.car;
1177 })(), cdr: l81.fvalue(pv, (function(){
1179 return tmp === l3.value? l3.value: tmp.cdr;
1180 })())}) : l3.value);
1185 var l82 = {name: "MEMBER"};
1187 (l82).fvalue = (function(v135){
1188 ((v135)["fname"] = "MEMBER");
1190 })((function (values,v133,v134){
1191 checkArgs(arguments, 3);
1196 while(v134 !== l3.value){
1197 (l25.fvalue(pv, v133, (function(){
1199 return tmp === l3.value? l3.value: tmp.car;
1200 })()) !== l3.value ? (function(){
1201 throw ({type: 'block', id: 62, value: v134, message: 'Return from unknown block NIL.'})
1203 (v134 = (function(){
1205 return tmp === l3.value? l3.value: tmp.cdr;
1211 if (cf.type == 'block' && cf.id == 62)
1221 var l83 = {name: "REMOVE"};
1223 (l83).fvalue = (function(v138){
1224 ((v138)["fname"] = "REMOVE");
1226 })((function (values,v136,v137){
1227 checkArgs(arguments, 3);
1229 return (l11.fvalue(pv, v137) !== l3.value ? l3.value : (l25.fvalue(pv, v136, (function(){
1231 return tmp === l3.value? l3.value: tmp.car;
1232 })()) !== l3.value ? l83.fvalue(values, v136, (function(){
1234 return tmp === l3.value? l3.value: tmp.cdr;
1235 })()) : ({car: (function(){
1237 return tmp === l3.value? l3.value: tmp.car;
1238 })(), cdr: l83.fvalue(pv, v136, (function(){
1240 return tmp === l3.value? l3.value: tmp.cdr;
1246 var l84 = {name: "REMOVE-IF"};
1248 (l84).fvalue = (function(v141){
1249 ((v141)["fname"] = "REMOVE-IF");
1251 })((function (values,v139,v140){
1252 checkArgs(arguments, 3);
1254 return (l11.fvalue(pv, v140) !== l3.value ? l3.value : ((v139)(pv, (function(){
1256 return tmp === l3.value? l3.value: tmp.car;
1257 })()) !== l3.value ? l84.fvalue(values, v139, (function(){
1259 return tmp === l3.value? l3.value: tmp.cdr;
1260 })()) : ({car: (function(){
1262 return tmp === l3.value? l3.value: tmp.car;
1263 })(), cdr: l84.fvalue(pv, v139, (function(){
1265 return tmp === l3.value? l3.value: tmp.cdr;
1271 var l85 = {name: "REMOVE-IF-NOT"};
1273 (l85).fvalue = (function(v144){
1274 ((v144)["fname"] = "REMOVE-IF-NOT");
1276 })((function (values,v142,v143){
1277 checkArgs(arguments, 3);
1279 return (l11.fvalue(pv, v143) !== l3.value ? l3.value : ((v142)(pv, (function(){
1281 return tmp === l3.value? l3.value: tmp.car;
1282 })()) !== l3.value ? ({car: (function(){
1284 return tmp === l3.value? l3.value: tmp.car;
1285 })(), cdr: l85.fvalue(pv, v142, (function(){
1287 return tmp === l3.value? l3.value: tmp.cdr;
1288 })())}) : l85.fvalue(values, v142, (function(){
1290 return tmp === l3.value? l3.value: tmp.cdr;
1296 var l86 = {name: "DIGIT-CHAR-P"};
1298 (l86).fvalue = (function(v146){
1299 ((v146)["fname"] = "DIGIT-CHAR-P");
1301 })((function (values,v145){
1302 checkArgs(arguments, 2);
1304 return (((function(){
1306 if (typeof x1 !== 'number') throw 'Not a number!';
1308 if (typeof x2 !== 'number') throw 'Not a number!';
1309 return (x1<=x2?l4.value: l3.value);
1310 })() !== l3.value ? (function(){
1312 if (typeof x1 !== 'number') throw 'Not a number!';
1314 if (typeof x2 !== 'number') throw 'Not a number!';
1315 return (x1<=x2?l4.value: l3.value);
1316 })() : l3.value) !== l3.value ? (function(){
1318 if (typeof x1 !== 'number') throw 'Not a number!';
1320 if (typeof x2 !== 'number') throw 'Not a number!';
1327 var l87 = {name: "SUBSEQ"};
1329 (l87).fvalue = (function(v150){
1330 ((v150)["fname"] = "SUBSEQ");
1332 })((function (values,v147,v148,v149){
1333 checkArgsAtLeast(arguments, 3);
1334 checkArgsAtMost(arguments, 4);
1335 switch(arguments.length-1){
1341 return (((typeof(v147) == "string")?l4.value: l3.value) !== l3.value ? (v149 !== l3.value ? (function(){
1346 return str.slice(a,b);
1351 return str.slice(a,b);
1352 })()) : (function(){
1353 throw "Unsupported argument.";
1359 var l88 = {name: "PARSE-INTEGER"};
1361 (l88).fvalue = (function(v155){
1362 ((v155)["fname"] = "PARSE-INTEGER");
1364 })((function (values,v151){
1365 checkArgs(arguments, 2);
1367 return (function(v152,v153,v154){
1372 if (typeof x1 !== 'number') throw 'Not a number!';
1374 if (typeof x2 !== 'number') throw 'Not a number!';
1375 return (x1<x2?l4.value: l3.value);
1377 (v152 = (function(){
1378 var x1 = (function(){
1380 if (typeof x1 !== 'number') throw 'Not a number!';
1382 if (typeof x2 !== 'number') throw 'Not a number!';
1385 if (typeof x1 !== 'number') throw 'Not a number!';
1386 var x2 = l86.fvalue(pv, (function(){
1389 if (typeof string != 'string')
1390 throw 'The value ' + string + ' is not a type string.';
1391 if (typeof index != 'number')
1392 throw 'The value ' + index + ' is not a type number.';
1393 return string.charCodeAt(index);
1395 if (typeof x2 !== 'number') throw 'Not a number!';
1398 (v153 = (function(){
1400 if (typeof x1 !== 'number') throw 'Not a number!';
1402 if (typeof x2 !== 'number') throw 'Not a number!';
1409 })(0,0,l67.fvalue(pv, v151));
1414 var l89 = {name: "SOME"};
1416 (l89).fvalue = (function(v162){
1417 ((v162)["fname"] = "SOME");
1419 })((function (values,v156,v157){
1420 checkArgs(arguments, 3);
1423 return (((typeof(v157) == "string")?l4.value: l3.value) !== l3.value ? (function(v158,v159){
1428 if (typeof x1 !== 'number') throw 'Not a number!';
1430 if (typeof x2 !== 'number') throw 'Not a number!';
1431 return (x1<x2?l4.value: l3.value);
1433 ((v156)(pv, (function(){
1436 if (typeof string != 'string')
1437 throw 'The value ' + string + ' is not a type string.';
1438 if (typeof index != 'number')
1439 throw 'The value ' + index + ' is not a type number.';
1440 return string.charCodeAt(index);
1441 })()) !== l3.value ? (function(){
1442 throw ({type: 'block', id: 70, value: l4.value, message: 'Return from unknown block SOME.'})
1444 (v158 = (function(){
1446 if (typeof x1 !== 'number') throw 'Not a number!';
1448 if (typeof x2 !== 'number') throw 'Not a number!';
1455 })(0,l67.fvalue(pv, v157)) : (l57.fvalue(pv, v157) !== l3.value ? (function(){
1457 return (function(v160,v161){
1459 while(v160 !== l3.value){
1460 (v161 = (function(){
1462 return tmp === l3.value? l3.value: tmp.car;
1465 ((v156)(pv, v161) !== l3.value ? (function(){
1466 throw ({type: 'block', id: 72, value: l4.value, message: 'Return from unknown block NIL.'})
1470 (v160 = (function(){
1472 return tmp === l3.value? l3.value: tmp.cdr;
1480 if (cf.type == 'block' && cf.id == 72)
1486 throw "Unknown sequence.";
1490 if (cf.type == 'block' && cf.id == 70)
1499 var l90 = {name: "EVERY"};
1501 (l90).fvalue = (function(v169){
1502 ((v169)["fname"] = "EVERY");
1504 })((function (values,v163,v164){
1505 checkArgs(arguments, 3);
1508 return (((typeof(v164) == "string")?l4.value: l3.value) !== l3.value ? (function(v165,v166){
1513 if (typeof x1 !== 'number') throw 'Not a number!';
1515 if (typeof x2 !== 'number') throw 'Not a number!';
1516 return (x1<x2?l4.value: l3.value);
1518 ((v163)(pv, (function(){
1521 if (typeof string != 'string')
1522 throw 'The value ' + string + ' is not a type string.';
1523 if (typeof index != 'number')
1524 throw 'The value ' + index + ' is not a type number.';
1525 return string.charCodeAt(index);
1526 })()) !== l3.value ? l3.value : (function(){
1527 throw ({type: 'block', id: 73, value: l3.value, message: 'Return from unknown block EVERY.'})
1529 (v165 = (function(){
1531 if (typeof x1 !== 'number') throw 'Not a number!';
1533 if (typeof x2 !== 'number') throw 'Not a number!';
1540 })(0,l67.fvalue(pv, v164)) : (l57.fvalue(pv, v164) !== l3.value ? (function(){
1542 return (function(v167,v168){
1544 while(v167 !== l3.value){
1545 (v168 = (function(){
1547 return tmp === l3.value? l3.value: tmp.car;
1550 ((v163)(pv, v168) !== l3.value ? l3.value : (function(){
1551 throw ({type: 'block', id: 75, value: l3.value, message: 'Return from unknown block NIL.'})
1555 (v167 = (function(){
1557 return tmp === l3.value? l3.value: tmp.cdr;
1565 if (cf.type == 'block' && cf.id == 75)
1571 throw "Unknown sequence.";
1575 if (cf.type == 'block' && cf.id == 73)
1584 var l91 = {name: "ASSOC"};
1586 (l91).fvalue = (function(v172){
1587 ((v172)["fname"] = "ASSOC");
1589 })((function (values,v170,v171){
1590 checkArgs(arguments, 3);
1595 while(v171 !== l3.value){
1596 (l25.fvalue(pv, v170, l31.fvalue(pv, v171)) !== l3.value ? (function(){
1597 throw ({type: 'block', id: 77, value: l3.value, message: 'Return from unknown block NIL.'})
1598 })() : (v171 = (function(){
1600 return tmp === l3.value? l3.value: tmp.cdr;
1606 if (cf.type == 'block' && cf.id == 77)
1614 return tmp === l3.value? l3.value: tmp.car;
1620 var l92 = {name: "STRING"};
1622 (l92).fvalue = (function(v174){
1623 ((v174)["fname"] = "STRING");
1625 })((function (values,v173){
1626 checkArgs(arguments, 2);
1628 return (((typeof(v173) == "string")?l4.value: l3.value) !== l3.value ? v173 : (((function(){
1630 return (typeof tmp == 'object' && 'name' in tmp);
1631 })()?l4.value: l3.value) !== l3.value ? (v173).name : (function(){
1633 if (typeof x != 'number')
1634 throw 'The value ' + x + ' is not a type number.';
1635 return String.fromCharCode(x);
1641 var l93 = {name: "STRING="};
1643 (l93).fvalue = (function(v177){
1644 ((v177)["fname"] = "STRING=");
1646 })((function (values,v175,v176){
1647 checkArgs(arguments, 3);
1649 return ((v175 == v176)?l4.value: l3.value);
1654 var l94 = {name: "FDEFINITION"};
1656 (l94).fvalue = (function(v179){
1657 ((v179)["fname"] = "FDEFINITION");
1659 })((function (values,v178){
1660 checkArgs(arguments, 2);
1662 return (((typeof v178 == 'function')?l4.value: l3.value) !== l3.value ? v178 : (((function(){
1664 return (typeof tmp == 'object' && 'name' in tmp);
1665 })()?l4.value: l3.value) !== l3.value ? (function(){
1667 var func = symbol.fvalue;
1668 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1671 throw "Invalid function";
1677 var l95 = {name: "DISASSEMBLE"};
1678 var l96 = {name: "WRITE-LINE"};
1680 (l95).fvalue = (function(v181){
1681 ((v181)["fname"] = "DISASSEMBLE");
1683 })((function (values,v180){
1684 checkArgs(arguments, 2);
1686 l96.fvalue(pv, (l94.fvalue(pv, v180)).toString());
1692 var l97 = {name: "DOCUMENTATION"};
1693 var l98 = {name: "FUNCTION"};
1694 var l99 = {name: "VARIABLE"};
1696 (l97).fvalue = (function(v186){
1697 ((v186)["fname"] = "DOCUMENTATION");
1700 var func = (function (values,v182,v183){
1701 checkArgs(arguments, 3);
1703 return (function(v184){
1704 return (l25.fvalue(pv, v184, l98) !== l3.value ? (function(v185){
1706 var tmp = (v185)["docstring"];
1707 return tmp == undefined? l3.value: tmp ;
1709 })(l94.fvalue(pv, v182)) : (l25.fvalue(pv, v184, l99) !== l3.value ? (function(){
1712 return (typeof tmp == 'object' && 'name' in tmp);
1713 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
1714 throw "Wrong argument type! it should be a symbol";
1717 var tmp = (v182)["vardoc"];
1718 return tmp == undefined? l3.value: tmp ;
1721 throw "ECASE expression failed.";
1726 func.docstring = 'Return the documentation of X. TYPE must be the symbol VARIABLE or FUNCTION.';
1731 var l100 = {name: "*PACKAGE-LIST*"};
1733 (((l100.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l100).value = l3.value));
1736 var l101 = {name: "LIST-ALL-PACKAGES"};
1738 (l101).fvalue = (function(v187){
1739 ((v187)["fname"] = "LIST-ALL-PACKAGES");
1741 })((function (values){
1742 checkArgsAtMost(arguments, 1);
1746 var value = symbol.value;
1747 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1754 var l102 = {name: "MAKE-PACKAGE"};
1755 var l103 = {name: "FIND-PACKAGE-OR-FAIL"};
1757 (l102).fvalue = (function(v192){
1758 ((v192)["fname"] = "MAKE-PACKAGE");
1760 })((function (values,v188,v189){
1761 checkArgsAtLeast(arguments, 2);
1762 checkArgsAtMost(arguments, 3);
1763 switch(arguments.length-1){
1769 return (function(v190,v191){
1770 ((v190)["packageName"] = v188);
1771 ((v190)["symbols"] = {});
1772 ((v190)["exports"] = {});
1773 ((v190)["use"] = v191);
1774 ((l100).value = ({car: v190, cdr: (function(){
1776 var value = symbol.value;
1777 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1781 })({},l69.fvalue(pv, (function(){
1783 var func = symbol.fvalue;
1784 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
1791 var l104 = {name: "PACKAGEP"};
1793 (l104).fvalue = (function(v194){
1794 ((v194)["fname"] = "PACKAGEP");
1796 })((function (values,v193){
1797 checkArgs(arguments, 2);
1799 return (((typeof (v193) === 'object')?l4.value: l3.value) !== l3.value ? ((("symbols") in (v193))?l4.value: l3.value) : l3.value);
1804 var l105 = {name: "FIND-PACKAGE"};
1805 var l106 = {name: "PACKAGE-NAME"};
1807 (l105).fvalue = (function(v199){
1808 ((v199)["fname"] = "FIND-PACKAGE");
1810 })((function (values,v195){
1811 checkArgs(arguments, 2);
1814 (l104.fvalue(pv, v195) !== l3.value ? (function(){
1815 throw ({type: 'block', id: 86, value: v195, message: 'Return from unknown block FIND-PACKAGE.'})
1817 return (function(v196){
1820 return (function(v197,v198){
1822 while(v197 !== l3.value){
1823 (v198 = (function(){
1825 return tmp === l3.value? l3.value: tmp.car;
1828 (l93.fvalue(pv, l106.fvalue(pv, v198), v196) !== l3.value ? (function(){
1829 throw ({type: 'block', id: 87, value: v198, message: 'Return from unknown block NIL.'})
1833 (v197 = (function(){
1835 return tmp === l3.value? l3.value: tmp.cdr;
1842 var value = symbol.value;
1843 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1848 if (cf.type == 'block' && cf.id == 87)
1854 })(l92.fvalue(pv, v195));
1857 if (cf.type == 'block' && cf.id == 86)
1867 (l103).fvalue = (function(v202){
1868 ((v202)["fname"] = "FIND-PACKAGE-OR-FAIL");
1870 })((function (values,v200){
1871 checkArgs(arguments, 2);
1873 return (function(v201){
1874 return (v201 !== l3.value ? v201 : (function(){
1875 throw "Package unknown.";
1877 })(l105.fvalue(pv, v200));
1883 (l106).fvalue = (function(v205){
1884 ((v205)["fname"] = "PACKAGE-NAME");
1886 })((function (values,v203){
1887 checkArgs(arguments, 2);
1889 return (function(v204){
1891 var tmp = (v204)["packageName"];
1892 return tmp == undefined? l3.value: tmp ;
1894 })(l103.fvalue(pv, v203));
1899 var l107 = {name: "%PACKAGE-SYMBOLS"};
1901 (l107).fvalue = (function(v208){
1902 ((v208)["fname"] = "%PACKAGE-SYMBOLS");
1904 })((function (values,v206){
1905 checkArgs(arguments, 2);
1907 return (function(v207){
1909 var tmp = (v207)["symbols"];
1910 return tmp == undefined? l3.value: tmp ;
1912 })(l103.fvalue(pv, v206));
1917 var l108 = {name: "PACKAGE-USE-LIST"};
1919 (l108).fvalue = (function(v211){
1920 ((v211)["fname"] = "PACKAGE-USE-LIST");
1922 })((function (values,v209){
1923 checkArgs(arguments, 2);
1925 return (function(v210){
1927 var tmp = (v210)["use"];
1928 return tmp == undefined? l3.value: tmp ;
1930 })(l103.fvalue(pv, v209));
1935 var l109 = {name: "%PACKAGE-EXTERNAL-SYMBOLS"};
1937 (l109).fvalue = (function(v214){
1938 ((v214)["fname"] = "%PACKAGE-EXTERNAL-SYMBOLS");
1940 })((function (values,v212){
1941 checkArgs(arguments, 2);
1943 return (function(v213){
1945 var tmp = (v213)["exports"];
1946 return tmp == undefined? l3.value: tmp ;
1948 })(l103.fvalue(pv, v212));
1953 var l110 = {name: "*COMMON-LISP-PACKAGE*"};
1955 (((l110.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l110).value = l102.fvalue(pv, "CL")));
1958 var l111 = {name: "*USER-PACKAGE*"};
1960 (((l111.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l111).value = l102.fvalue(pv, "CL-USER", l42.fvalue(pv, (function(){
1962 var value = symbol.value;
1963 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1968 var l112 = {name: "*KEYWORD-PACKAGE*"};
1970 (((l112.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l112).value = l102.fvalue(pv, "KEYWORD")));
1973 var l113 = {name: "KEYWORDP"};
1974 var l114 = {name: "SYMBOL-PACKAGE"};
1976 (l113).fvalue = (function(v216){
1977 ((v216)["fname"] = "KEYWORDP");
1979 })((function (values,v215){
1980 checkArgs(arguments, 2);
1982 return (((function(){
1984 return (typeof tmp == 'object' && 'name' in tmp);
1985 })()?l4.value: l3.value) !== l3.value ? ((l114.fvalue(pv, v215) === (function(){
1987 var value = symbol.value;
1988 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
1990 })())?l4.value: l3.value) : l3.value);
1995 var l115 = {name: "*PACKAGE*"};
1997 (((l115.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l115).value = (function(){
1999 var value = symbol.value;
2000 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2005 var l116 = {name: "IN-PACKAGE"};
2007 var l117 = {name: "%INTERN-SYMBOL"};
2009 (l117).fvalue = (function(v219){
2010 ((v219)["fname"] = "%INTERN-SYMBOL");
2012 })((function (values,v217){
2013 checkArgs(arguments, 2);
2015 return (function(v218){
2016 ((v217)["package"] = (function(){
2018 var value = symbol.value;
2019 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2022 return ((v218)[(v217).name] = v217);
2023 })(l107.fvalue(pv, (function(){
2025 var value = symbol.value;
2026 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2033 var l118 = {name: "%FIND-SYMBOL"};
2035 (l118).fvalue = (function(v227){
2036 ((v227)["fname"] = "%FIND-SYMBOL");
2038 })((function (values,v220,v221){
2039 checkArgs(arguments, 3);
2042 return (function(v222){
2043 return (function(v223){
2044 return ((((v220) in (v223))?l4.value: l3.value) !== l3.value ? ({car: (function(){
2045 var tmp = (v223)[v220];
2046 return tmp == undefined? l3.value: tmp ;
2047 })(), cdr: l4.value}) : (function(){
2048 return (function(v224,v225){
2050 while(v224 !== l3.value){
2051 (v225 = (function(){
2053 return tmp === l3.value? l3.value: tmp.car;
2057 return ((((v220) in (v226))?l4.value: l3.value) !== l3.value ? (function(){
2058 throw ({type: 'block', id: 95, value: ({car: (function(){
2059 var tmp = (v226)[v220];
2060 return tmp == undefined? l3.value: tmp ;
2061 })(), cdr: l4.value}), message: 'Return from unknown block %FIND-SYMBOL.'})
2063 })(l109.fvalue(pv, v225));
2066 (v224 = (function(){
2068 return tmp === l3.value? l3.value: tmp.cdr;
2072 return ({car: l3.value, cdr: l3.value});
2073 })(l108.fvalue(pv, v222),l3.value);
2075 })(l107.fvalue(pv, v222));
2076 })(l103.fvalue(pv, v221));
2079 if (cf.type == 'block' && cf.id == 95)
2088 var l119 = {name: "FIND-SYMBOL"};
2090 (l119).fvalue = (function(v230){
2091 ((v230)["fname"] = "FIND-SYMBOL");
2093 })((function (values,v228,v229){
2094 checkArgsAtLeast(arguments, 2);
2095 checkArgsAtMost(arguments, 3);
2096 switch(arguments.length-1){
2100 var value = symbol.value;
2101 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2108 var tmp = l118.fvalue(pv, v228, v229);
2109 return tmp === l3.value? l3.value: tmp.car;
2115 var l120 = {name: "INTERN"};
2116 var l121 = {name: "EXPORT"};
2118 (l120).fvalue = (function(v237){
2119 ((v237)["fname"] = "INTERN");
2121 })((function (values,v231,v232){
2122 checkArgsAtLeast(arguments, 2);
2123 checkArgsAtMost(arguments, 3);
2124 switch(arguments.length-1){
2128 var value = symbol.value;
2129 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2135 return (function(v233){
2136 return (function(v234){
2137 return ((function(){
2139 return tmp === l3.value? l3.value: tmp.cdr;
2140 })() !== l3.value ? (function(){
2142 return tmp === l3.value? l3.value: tmp.car;
2143 })() : (function(v235){
2145 var tmp = (v235)[v231];
2146 return tmp == undefined? l3.value: tmp ;
2148 return (function(v236){
2149 ((v236)["package"] = v233);
2150 (((v233 === (function(){
2152 var value = symbol.value;
2153 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2155 })())?l4.value: l3.value) !== l3.value ? (function(){
2156 ((v236)["value"] = v236);
2157 return l121.fvalue(pv, l42.fvalue(pv, v236), v233);
2159 return ((v235)[v231] = v236);
2162 if (typeof name != 'string')
2163 throw 'The value ' + name + ' is not a type string.';
2164 return ({name: name});
2166 })(l107.fvalue(pv, v233)));
2167 })(l118.fvalue(pv, v231, v233));
2168 })(l103.fvalue(pv, v232));
2174 (l114).fvalue = (function(v239){
2175 ((v239)["fname"] = "SYMBOL-PACKAGE");
2177 })((function (values,v238){
2178 checkArgs(arguments, 2);
2182 return (typeof tmp == 'object' && 'name' in tmp);
2183 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
2184 throw "it is not a symbol";
2187 var tmp = (v238)["package"];
2188 return tmp == undefined? l3.value: tmp ;
2195 (l121).fvalue = (function(v245){
2196 ((v245)["fname"] = "EXPORT");
2198 })((function (values,v240,v241){
2199 checkArgsAtLeast(arguments, 2);
2200 checkArgsAtMost(arguments, 3);
2201 switch(arguments.length-1){
2205 var value = symbol.value;
2206 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2212 return (function(v242){
2214 return (function(v243,v244){
2216 while(v243 !== l3.value){
2217 (v244 = (function(){
2219 return tmp === l3.value? l3.value: tmp.car;
2222 ((v242)[(v244).name] = v244);
2225 (v243 = (function(){
2227 return tmp === l3.value? l3.value: tmp.cdr;
2234 })(l109.fvalue(pv, v241));
2239 var l122 = {name: "GET-UNIVERSAL-TIME"};
2241 (l122).fvalue = (function(v246){
2242 ((v246)["fname"] = "GET-UNIVERSAL-TIME");
2244 })((function (values){
2245 checkArgsAtMost(arguments, 1);
2248 var x1 = (Math.round(new Date() / 1000));
2249 if (typeof x1 !== 'number') throw 'Not a number!';
2250 var x2 = 2208988800;
2251 if (typeof x2 !== 'number') throw 'Not a number!';
2258 var l123 = {name: "*NEWLINE*"};
2260 (((l123.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l123).value = l92.fvalue(pv, l72.fvalue(pv, 10))));
2263 var l124 = {name: "CONCAT"};
2265 (l124).fvalue = (function(v248){
2266 ((v248)["fname"] = "CONCAT");
2268 })((function (values){
2270 for (var i = arguments.length-1; i>=1; i--)
2271 v247 = {car: arguments[i], cdr:
2274 return l58.fvalue(values, (function(){
2276 var func = symbol.fvalue;
2277 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2284 var l125 = {name: "CONCATF"};
2286 var l126 = {name: "JOIN"};
2288 (l126).fvalue = (function(v251){
2289 ((v251)["fname"] = "JOIN");
2291 })((function (values,v249,v250){
2292 checkArgsAtLeast(arguments, 2);
2293 checkArgsAtMost(arguments, 3);
2294 switch(arguments.length-1){
2300 return (l11.fvalue(pv, v249) !== l3.value ? "" : (l11.fvalue(pv, (function(){
2302 return tmp === l3.value? l3.value: tmp.cdr;
2303 })()) !== l3.value ? (function(){
2305 return tmp === l3.value? l3.value: tmp.car;
2306 })() : l124.fvalue(values, (function(){
2308 return tmp === l3.value? l3.value: tmp.car;
2309 })(), v250, l126.fvalue(pv, (function(){
2311 return tmp === l3.value? l3.value: tmp.cdr;
2317 var l127 = {name: "JOIN-TRAILING"};
2319 (l127).fvalue = (function(v254){
2320 ((v254)["fname"] = "JOIN-TRAILING");
2322 })((function (values,v252,v253){
2323 checkArgsAtLeast(arguments, 2);
2324 checkArgsAtMost(arguments, 3);
2325 switch(arguments.length-1){
2331 return (l11.fvalue(pv, v252) !== l3.value ? "" : l124.fvalue(values, (function(){
2333 return tmp === l3.value? l3.value: tmp.car;
2334 })(), v253, l127.fvalue(pv, (function(){
2336 return tmp === l3.value? l3.value: tmp.cdr;
2342 var l128 = {name: "MAPCONCAT"};
2344 (l128).fvalue = (function(v257){
2345 ((v257)["fname"] = "MAPCONCAT");
2347 })((function (values,v255,v256){
2348 checkArgs(arguments, 3);
2350 return l126.fvalue(values, l69.fvalue(pv, v255, v256));
2355 var l129 = {name: "VECTOR-TO-LIST"};
2357 (l129).fvalue = (function(v263){
2358 ((v263)["fname"] = "VECTOR-TO-LIST");
2360 })((function (values,v258){
2361 checkArgs(arguments, 2);
2363 return (function(v259,v260){
2365 return (function(v261,v262){
2369 if (typeof x1 !== 'number') throw 'Not a number!';
2371 if (typeof x2 !== 'number') throw 'Not a number!';
2372 return (x1<x2?l4.value: l3.value);
2375 (v259 = ({car: (function(){
2376 var x = (v258)[v261];
2377 if (x === undefined) throw 'Out of range';
2382 (v261 = (function(){
2384 if (typeof x1 !== 'number') throw 'Not a number!';
2386 if (typeof x2 !== 'number') throw 'Not a number!';
2391 return l64.fvalue(values, v259);
2394 })(l3.value,l67.fvalue(pv, v258));
2399 var l130 = {name: "LIST-TO-VECTOR"};
2401 (l130).fvalue = (function(v269){
2402 ((v269)["fname"] = "LIST-TO-VECTOR");
2404 })((function (values,v264){
2405 checkArgs(arguments, 2);
2407 return (function(v265,v266){
2409 return (function(v267,v268){
2411 while(v267 !== l3.value){
2412 (v268 = (function(){
2414 return tmp === l3.value? l3.value: tmp.car;
2420 if (i < 0 || i >= x.length) throw 'Out of range';
2423 (v266 = (function(){
2425 if (typeof x1 !== 'number') throw 'Not a number!';
2427 if (typeof x2 !== 'number') throw 'Not a number!';
2432 (v267 = (function(){
2434 return tmp === l3.value? l3.value: tmp.cdr;
2443 for (var i = 0; i < l67.fvalue(pv, v264); i++)
2451 var l131 = {name: "VALUES-LIST"};
2453 (l131).fvalue = (function(v271){
2454 ((v271)["fname"] = "VALUES-LIST");
2456 })((function (values,v270){
2457 checkArgs(arguments, 2);
2459 return values.apply(this, l130.fvalue(pv, v270));
2464 var l132 = {name: "VALUES"};
2466 (l132).fvalue = (function(v273){
2467 ((v273)["fname"] = "VALUES");
2469 })((function (values){
2471 for (var i = arguments.length-1; i>=1; i--)
2472 v272 = {car: arguments[i], cdr:
2475 return l131.fvalue(values, v272);
2480 var l133 = {name: "MULTIPLE-VALUE-BIND"};
2482 var l134 = {name: "MULTIPLE-VALUE-LIST"};
2484 var l135 = {name: "INDENT"};
2486 (l135).fvalue = (function(v280){
2487 ((v280)["fname"] = "INDENT");
2489 })((function (values){
2491 for (var i = arguments.length-1; i>=1; i--)
2492 v274 = {car: arguments[i], cdr:
2495 return (function(v275){
2496 return (function(v276,v277,v278){
2497 (l76.fvalue(pv, l67.fvalue(pv, v275)) !== l3.value ? (v276 = l124.fvalue(pv, v276, " ")) : l3.value);
2502 if (typeof x1 !== 'number') throw 'Not a number!';
2504 if (typeof x2 !== 'number') throw 'Not a number!';
2505 return (x1<x2?l4.value: l3.value);
2508 return (v276 = l124.fvalue(pv, v276, v279));
2509 })(((l74.fvalue(pv, (function(){
2512 if (typeof string != 'string')
2513 throw 'The value ' + string + ' is not a type string.';
2514 if (typeof index != 'number')
2515 throw 'The value ' + index + ' is not a type number.';
2516 return string.charCodeAt(index);
2517 })(), 10) !== l3.value ? ((function(){
2519 if (typeof x1 !== 'number') throw 'Not a number!';
2520 var x2 = l22.fvalue(pv, v278);
2521 if (typeof x2 !== 'number') throw 'Not a number!';
2522 return (x1<x2?l4.value: l3.value);
2523 })() !== l3.value ? l26.fvalue(pv, l74.fvalue(pv, (function(){
2525 var index = l21.fvalue(pv, v277);
2526 if (typeof string != 'string')
2527 throw 'The value ' + string + ' is not a type string.';
2528 if (typeof index != 'number')
2529 throw 'The value ' + index + ' is not a type number.';
2530 return string.charCodeAt(index);
2531 })(), 10)) : l3.value) : l3.value) !== l3.value ? l124.fvalue(pv, l92.fvalue(pv, 10), " ") : l92.fvalue(pv, (function(){
2534 if (typeof string != 'string')
2535 throw 'The value ' + string + ' is not a type string.';
2536 if (typeof index != 'number')
2537 throw 'The value ' + index + ' is not a type number.';
2538 return string.charCodeAt(index);
2540 (v277 = (function(){
2542 if (typeof x1 !== 'number') throw 'Not a number!';
2544 if (typeof x2 !== 'number') throw 'Not a number!';
2551 })("",0,l67.fvalue(pv, v275));
2552 })(l126.fvalue(pv, v274));
2558 (l16).fvalue = (function(v284){
2559 ((v284)["fname"] = "INTEGER-TO-STRING");
2561 })((function (values,v281){
2562 checkArgs(arguments, 2);
2564 return (l23.fvalue(pv, v281) !== l3.value ? "0" : (l77.fvalue(pv, v281) !== l3.value ? l124.fvalue(values, "-", l16.fvalue(pv, (function(){
2566 if (typeof x1 !== 'number') throw 'Not a number!';
2568 if (typeof x2 !== 'number') throw 'Not a number!';
2570 })())) : (function(v282){
2573 while(l26.fvalue(pv, l23.fvalue(pv, v281)) !== l3.value){
2574 (v282 = ({car: (function(){
2577 if (typeof x != 'number')
2578 throw 'The value ' + x + ' is not a type number.';
2579 if (typeof y != 'number')
2580 throw 'The value ' + y + ' is not a type number.';
2583 (v281 = l24.fvalue(pv, v281, 10));
2587 return l126.fvalue(values, l69.fvalue(pv, (function (values,v283){
2588 checkArgs(arguments, 2);
2589 return l92.fvalue(values, (function(){
2590 var string = "0123456789";
2592 if (typeof string != 'string')
2593 throw 'The value ' + string + ' is not a type string.';
2594 if (typeof index != 'number')
2595 throw 'The value ' + index + ' is not a type number.';
2596 return string.charCodeAt(index);
2604 var l136 = {name: "JS!BOOL"};
2605 var l137 = {name: "LS-COMPILE"};
2607 (l136).fvalue = (function(v286){
2608 ((v286)["fname"] = "JS!BOOL");
2610 })((function (values,v285){
2611 checkArgs(arguments, 2);
2613 return l124.fvalue(values, "(", v285, "?", l137.fvalue(pv, l4.value), ": ", l137.fvalue(pv, l3.value), ")");
2618 var l138 = {name: "JS!SELFCALL"};
2620 var l139 = {name: "PRIN1-TO-STRING"};
2621 var l140 = {name: "ESCAPE-STRING"};
2623 (l139).fvalue = (function(v292){
2624 ((v292)["fname"] = "PRIN1-TO-STRING");
2626 })((function (values,v287){
2627 checkArgs(arguments, 2);
2629 return (((function(){
2631 return (typeof tmp == 'object' && 'name' in tmp);
2632 })()?l4.value: l3.value) !== l3.value ? ((function(){
2633 var tmp = l118.fvalue(pv, (v287).name, (function(){
2635 var value = symbol.value;
2636 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2639 return tmp === l3.value? l3.value: tmp.cdr;
2640 })() !== l3.value ? (v287).name : (function(v288,v289){
2641 return l124.fvalue(values, (l11.fvalue(pv, v288) !== l3.value ? "#" : (((v288 === l105.fvalue(pv, "KEYWORD"))?l4.value: l3.value) !== l3.value ? "" : l106.fvalue(pv, v288))), ":", v289);
2642 })(l114.fvalue(pv, v287),(v287).name)) : (l75.fvalue(pv, v287) !== l3.value ? l16.fvalue(values, v287) : (((typeof(v287) == "string")?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "\"", l140.fvalue(pv, v287), "\"") : (((typeof v287 == 'function')?l4.value: l3.value) !== l3.value ? (function(v290){
2643 return (v290 !== l3.value ? l124.fvalue(values, "#<FUNCTION ", v290, ">") : l124.fvalue(values, "#<FUNCTION>"));
2645 var tmp = (v287)["fname"];
2646 return tmp == undefined? l3.value: tmp ;
2647 })()) : (l57.fvalue(pv, v287) !== l3.value ? l124.fvalue(values, "(", l127.fvalue(pv, l69.fvalue(pv, (function(){
2649 var func = symbol.fvalue;
2650 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
2652 })(), l81.fvalue(pv, v287)), " "), (function(v291){
2653 return (l11.fvalue(pv, (function(){
2655 return tmp === l3.value? l3.value: tmp.cdr;
2656 })()) !== l3.value ? l139.fvalue(pv, (function(){
2658 return tmp === l3.value? l3.value: tmp.car;
2659 })()) : l124.fvalue(pv, l139.fvalue(pv, (function(){
2661 return tmp === l3.value? l3.value: tmp.car;
2662 })()), " . ", l139.fvalue(pv, (function(){
2664 return tmp === l3.value? l3.value: tmp.cdr;
2666 })(l80.fvalue(pv, v287)), ")") : (((function(){
2668 return typeof x === 'object' && 'length' in x;
2669 })()?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "#", l139.fvalue(pv, l129.fvalue(pv, v287))) : (l104.fvalue(pv, v287) !== l3.value ? l124.fvalue(values, "#<PACKAGE ", l106.fvalue(pv, v287), ">") : l3.value)))))));
2675 (l96).fvalue = (function(v294){
2676 ((v294)["fname"] = "WRITE-LINE");
2678 })((function (values,v293){
2679 checkArgs(arguments, 2);
2683 if (typeof x != 'string')
2684 throw 'The value ' + x + ' is not a type string.';
2685 return lisp.write(x);
2688 var x = (function(){
2690 var value = symbol.value;
2691 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
2694 if (typeof x != 'string')
2695 throw 'The value ' + x + ' is not a type string.';
2696 return lisp.write(x);
2703 var l141 = {name: "WARN"};
2705 (l141).fvalue = (function(v296){
2706 ((v296)["fname"] = "WARN");
2708 })((function (values,v295){
2709 checkArgs(arguments, 2);
2712 var x = "WARNING: ";
2713 if (typeof x != 'string')
2714 throw 'The value ' + x + ' is not a type string.';
2715 return lisp.write(x);
2717 return l96.fvalue(values, v295);
2722 var l142 = {name: "PRINT"};
2724 (l142).fvalue = (function(v298){
2725 ((v298)["fname"] = "PRINT");
2727 })((function (values,v297){
2728 checkArgs(arguments, 2);
2730 l96.fvalue(pv, l139.fvalue(pv, v297));
2736 var l143 = {name: "MAKE-STRING-STREAM"};
2738 (l143).fvalue = (function(v300){
2739 ((v300)["fname"] = "MAKE-STRING-STREAM");
2741 })((function (values,v299){
2742 checkArgs(arguments, 2);
2744 return ({car: v299, cdr: 0});
2749 var l144 = {name: "%PEEK-CHAR"};
2751 (l144).fvalue = (function(v302){
2752 ((v302)["fname"] = "%PEEK-CHAR");
2754 })((function (values,v301){
2755 checkArgs(arguments, 2);
2757 return ((function(){
2758 var x1 = (function(){
2760 return tmp === l3.value? l3.value: tmp.cdr;
2762 if (typeof x1 !== 'number') throw 'Not a number!';
2763 var x2 = l67.fvalue(pv, (function(){
2765 return tmp === l3.value? l3.value: tmp.car;
2767 if (typeof x2 !== 'number') throw 'Not a number!';
2768 return (x1<x2?l4.value: l3.value);
2769 })() !== l3.value ? (function(){
2770 var string = (function(){
2772 return tmp === l3.value? l3.value: tmp.car;
2774 var index = (function(){
2776 return tmp === l3.value? l3.value: tmp.cdr;
2778 if (typeof string != 'string')
2779 throw 'The value ' + string + ' is not a type string.';
2780 if (typeof index != 'number')
2781 throw 'The value ' + index + ' is not a type number.';
2782 return string.charCodeAt(index);
2788 var l145 = {name: "%READ-CHAR"};
2790 (l145).fvalue = (function(v305){
2791 ((v305)["fname"] = "%READ-CHAR");
2793 })((function (values,v303){
2794 checkArgs(arguments, 2);
2796 return ((function(){
2797 var x1 = (function(){
2799 return tmp === l3.value? l3.value: tmp.cdr;
2801 if (typeof x1 !== 'number') throw 'Not a number!';
2802 var x2 = l67.fvalue(pv, (function(){
2804 return tmp === l3.value? l3.value: tmp.car;
2806 if (typeof x2 !== 'number') throw 'Not a number!';
2807 return (x1<x2?l4.value: l3.value);
2808 })() !== l3.value ? (function(v304){
2811 if (typeof x != 'object')
2812 throw 'The value ' + x + ' is not a type object.';
2813 return (x.cdr = l21.fvalue(pv, (function(){
2815 return tmp === l3.value? l3.value: tmp.cdr;
2820 var string = (function(){
2822 return tmp === l3.value? l3.value: tmp.car;
2824 var index = (function(){
2826 return tmp === l3.value? l3.value: tmp.cdr;
2828 if (typeof string != 'string')
2829 throw 'The value ' + string + ' is not a type string.';
2830 if (typeof index != 'number')
2831 throw 'The value ' + index + ' is not a type number.';
2832 return string.charCodeAt(index);
2838 var l146 = {name: "WHITESPACEP"};
2840 (l146).fvalue = (function(v309){
2841 ((v309)["fname"] = "WHITESPACEP");
2843 })((function (values,v306){
2844 checkArgs(arguments, 2);
2846 return (function(v307){
2847 return (v307 !== l3.value ? v307 : (function(v308){
2848 return (v308 !== l3.value ? v308 : l74.fvalue(values, v306, 9));
2849 })(l74.fvalue(pv, v306, 10)));
2850 })(l74.fvalue(pv, v306, 32));
2855 var l147 = {name: "SKIP-WHITESPACES"};
2857 (l147).fvalue = (function(v312){
2858 ((v312)["fname"] = "SKIP-WHITESPACES");
2860 })((function (values,v310){
2861 checkArgs(arguments, 2);
2863 return (function(v311){
2864 (v311 = l144.fvalue(pv, v310));
2867 while((v311 !== l3.value ? l146.fvalue(pv, v311) : l3.value) !== l3.value){
2868 l145.fvalue(pv, v310);
2869 (v311 = l144.fvalue(pv, v310));
2878 var l148 = {name: "TERMINALP"};
2880 (l148).fvalue = (function(v317){
2881 ((v317)["fname"] = "TERMINALP");
2883 })((function (values,v313){
2884 checkArgs(arguments, 2);
2886 return (function(v314){
2887 return (v314 !== l3.value ? v314 : (function(v315){
2888 return (v315 !== l3.value ? v315 : (function(v316){
2889 return (v316 !== l3.value ? v316 : l74.fvalue(values, 40, v313));
2890 })(l74.fvalue(pv, 41, v313)));
2891 })(l146.fvalue(pv, v313)));
2892 })(l11.fvalue(pv, v313));
2897 var l149 = {name: "READ-UNTIL"};
2899 (l149).fvalue = (function(v322){
2900 ((v322)["fname"] = "READ-UNTIL");
2902 })((function (values,v318,v319){
2903 checkArgs(arguments, 3);
2905 return (function(v320,v321){
2906 (v321 = l144.fvalue(pv, v318));
2909 while((v321 !== l3.value ? l26.fvalue(pv, (v319)(pv, v321)) : l3.value) !== l3.value){
2910 (v320 = l124.fvalue(pv, v320, l92.fvalue(pv, v321)));
2911 l145.fvalue(pv, v318);
2912 (v321 = l144.fvalue(pv, v318));
2922 var l150 = {name: "SKIP-WHITESPACES-AND-COMMENTS"};
2924 (l150).fvalue = (function(v326){
2925 ((v326)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2927 })((function (values,v323){
2928 checkArgs(arguments, 2);
2930 return (function(v324){
2931 l147.fvalue(pv, v323);
2932 (v324 = l144.fvalue(pv, v323));
2935 while((v324 !== l3.value ? l74.fvalue(pv, v324, 59) : l3.value) !== l3.value){
2936 l149.fvalue(pv, v323, (function (values,v325){
2937 checkArgs(arguments, 2);
2938 return l74.fvalue(values, v325, 10);
2940 l147.fvalue(pv, v323);
2941 (v324 = l144.fvalue(pv, v323));
2950 var l151 = {name: "%READ-LIST"};
2951 var l152 = {name: "LS-READ"};
2953 (l151).fvalue = (function(v330){
2954 ((v330)["fname"] = "%READ-LIST");
2956 })((function (values,v327){
2957 checkArgs(arguments, 2);
2959 l150.fvalue(pv, v327);
2960 return (function(v328){
2961 return (l11.fvalue(pv, v328) !== l3.value ? (function(){
2962 throw "Unspected EOF";
2963 })() : (l74.fvalue(pv, v328, 41) !== l3.value ? (function(){
2964 l145.fvalue(pv, v327);
2966 })() : (l74.fvalue(pv, v328, 46) !== l3.value ? (function(){
2967 l145.fvalue(pv, v327);
2968 return (function(v329){
2969 l150.fvalue(pv, v327);
2970 (l74.fvalue(pv, l145.fvalue(pv, v327), 41) !== l3.value ? l3.value : (function(){
2971 throw "')' was expected.";
2974 })(l152.fvalue(pv, v327));
2975 })() : ({car: l152.fvalue(pv, v327), cdr: l151.fvalue(pv, v327)}))));
2976 })(l144.fvalue(pv, v327));
2981 var l153 = {name: "READ-STRING"};
2983 (l153).fvalue = (function(v334){
2984 ((v334)["fname"] = "READ-STRING");
2986 })((function (values,v331){
2987 checkArgs(arguments, 2);
2989 return (function(v332,v333){
2990 (v333 = l145.fvalue(pv, v331));
2993 while(l26.fvalue(pv, l25.fvalue(pv, v333, 34)) !== l3.value){
2994 (l11.fvalue(pv, v333) !== l3.value ? (function(){
2995 throw "Unexpected EOF";
2997 (l25.fvalue(pv, v333, 92) !== l3.value ? (v333 = l145.fvalue(pv, v331)) : l3.value);
2998 (v332 = l124.fvalue(pv, v332, l92.fvalue(pv, v333)));
2999 (v333 = l145.fvalue(pv, v331));
3009 var l154 = {name: "READ-SHARP"};
3011 (l154).fvalue = (function(v339){
3012 ((v339)["fname"] = "READ-SHARP");
3014 })((function (values,v335){
3015 checkArgs(arguments, 2);
3017 l145.fvalue(pv, v335);
3018 return (function(v336){
3019 return (l25.fvalue(pv, v336, 39) !== l3.value ? l42.fvalue(values, l98, l152.fvalue(pv, v335)) : (l25.fvalue(pv, v336, 40) !== l3.value ? l130.fvalue(values, l151.fvalue(pv, v335)) : (l25.fvalue(pv, v336, 58) !== l3.value ? (function(){
3020 var name = (function(){
3021 var x = l149.fvalue(pv, v335, (function(){
3023 var func = symbol.fvalue;
3024 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3027 if (typeof x != 'string')
3028 throw 'The value ' + x + ' is not a type string.';
3029 return x.toUpperCase();
3031 if (typeof name != 'string')
3032 throw 'The value ' + name + ' is not a type string.';
3033 return ({name: name});
3034 })() : (l25.fvalue(pv, v336, 92) !== l3.value ? (function(v337){
3035 return (l93.fvalue(pv, v337, "space") !== l3.value ? l73.fvalue(values, 32) : (l93.fvalue(pv, v337, "tab") !== l3.value ? l73.fvalue(values, 9) : (l93.fvalue(pv, v337, "newline") !== l3.value ? l73.fvalue(values, 10) : l73.fvalue(values, (function(){
3038 if (typeof string != 'string')
3039 throw 'The value ' + string + ' is not a type string.';
3040 if (typeof index != 'number')
3041 throw 'The value ' + index + ' is not a type number.';
3042 return string.charCodeAt(index);
3044 })(l124.fvalue(pv, l92.fvalue(pv, l145.fvalue(pv, v335)), l149.fvalue(pv, v335, (function(){
3046 var func = symbol.fvalue;
3047 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3049 })()))) : (l25.fvalue(pv, v336, 43) !== l3.value ? (function(v338){
3050 return (l93.fvalue(pv, v338, "common-lisp") !== l3.value ? (function(){
3051 l152.fvalue(pv, v335);
3052 return l152.fvalue(values, v335);
3053 })() : (l93.fvalue(pv, v338, "ecmalisp") !== l3.value ? l152.fvalue(values, v335) : (function(){
3054 throw "Unknown reader form.";
3056 })(l149.fvalue(pv, v335, (function(){
3058 var func = symbol.fvalue;
3059 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3061 })())) : (function(){
3062 throw "ECASE expression failed.";
3064 })(l145.fvalue(pv, v335));
3069 var l155 = {name: "READ-SYMBOL"};
3071 (l155).fvalue = (function(v347){
3072 ((v347)["fname"] = "READ-SYMBOL");
3074 })((function (values,v340){
3075 checkArgs(arguments, 2);
3077 return (function(v341,v342,v343,v344,v345){
3083 if (typeof x1 !== 'number') throw 'Not a number!';
3085 if (typeof x2 !== 'number') throw 'Not a number!';
3086 return (x1<x2?l4.value: l3.value);
3087 })() !== l3.value ? l26.fvalue(pv, l74.fvalue(pv, (function(){
3090 if (typeof string != 'string')
3091 throw 'The value ' + string + ' is not a type string.';
3092 if (typeof index != 'number')
3093 throw 'The value ' + index + ' is not a type number.';
3094 return string.charCodeAt(index);
3095 })(), 58)) : l3.value) !== l3.value){
3096 (v345 = (function(){
3098 if (typeof x1 !== 'number') throw 'Not a number!';
3100 if (typeof x2 !== 'number') throw 'Not a number!';
3108 if (typeof x1 !== 'number') throw 'Not a number!';
3110 if (typeof x2 !== 'number') throw 'Not a number!';
3111 return (x1==x2?l4.value: l3.value);
3112 })() !== l3.value ? (function(){
3114 (v342 = (function(){
3116 var value = symbol.value;
3117 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3120 return (v344 = l4.value);
3122 (l23.fvalue(pv, v345) !== l3.value ? (v342 = "KEYWORD") : (v342 = (function(){
3123 var x = l87.fvalue(pv, v340, 0, v345);
3124 if (typeof x != 'string')
3125 throw 'The value ' + x + ' is not a type string.';
3126 return x.toUpperCase();
3128 (v345 = (function(){
3130 if (typeof x1 !== 'number') throw 'Not a number!';
3132 if (typeof x2 !== 'number') throw 'Not a number!';
3135 (l74.fvalue(pv, (function(){
3138 if (typeof string != 'string')
3139 throw 'The value ' + string + ' is not a type string.';
3140 if (typeof index != 'number')
3141 throw 'The value ' + index + ' is not a type number.';
3142 return string.charCodeAt(index);
3143 })(), 58) !== l3.value ? (function(){
3145 return (v345 = (function(){
3147 if (typeof x1 !== 'number') throw 'Not a number!';
3149 if (typeof x2 !== 'number') throw 'Not a number!';
3153 return (v343 = l87.fvalue(pv, v340, v345));
3155 (v343 = (function(){
3157 if (typeof x != 'string')
3158 throw 'The value ' + x + ' is not a type string.';
3159 return x.toUpperCase();
3161 (v342 = l105.fvalue(pv, v342));
3162 return ((function(v346){
3163 return (v346 !== l3.value ? v346 : ((v342 === l105.fvalue(pv, "KEYWORD"))?l4.value: l3.value));
3164 })(v344) !== l3.value ? l120.fvalue(values, v343, v342) : l119.fvalue(values, v343, v342));
3165 })(l67.fvalue(pv, v340),l3.value,l3.value,l3.value,l3.value);
3170 var l156 = {name: "*EOF*"};
3172 (((l156.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l156).value = l15.fvalue(pv)));
3175 var l157 = {name: "QUOTE"};
3176 var l158 = {name: "BACKQUOTE"};
3177 var l159 = {name: "UNQUOTE-SPLICING"};
3178 var l160 = {name: "UNQUOTE"};
3180 (l152).fvalue = (function(v352){
3181 ((v352)["fname"] = "LS-READ");
3183 })((function (values,v348){
3184 checkArgs(arguments, 2);
3186 l150.fvalue(pv, v348);
3187 return (function(v349){
3188 return ((function(v350){
3189 return (v350 !== l3.value ? v350 : l74.fvalue(pv, v349, 41));
3190 })(l11.fvalue(pv, v349)) !== l3.value ? (function(){
3192 var value = symbol.value;
3193 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3195 })() : (l74.fvalue(pv, v349, 40) !== l3.value ? (function(){
3196 l145.fvalue(pv, v348);
3197 return l151.fvalue(values, v348);
3198 })() : (l74.fvalue(pv, v349, 39) !== l3.value ? (function(){
3199 l145.fvalue(pv, v348);
3200 return l42.fvalue(values, l157, l152.fvalue(pv, v348));
3201 })() : (l74.fvalue(pv, v349, 96) !== l3.value ? (function(){
3202 l145.fvalue(pv, v348);
3203 return l42.fvalue(values, l158, l152.fvalue(pv, v348));
3204 })() : (l74.fvalue(pv, v349, 34) !== l3.value ? (function(){
3205 l145.fvalue(pv, v348);
3206 return l153.fvalue(values, v348);
3207 })() : (l74.fvalue(pv, v349, 44) !== l3.value ? (function(){
3208 l145.fvalue(pv, v348);
3209 return (l25.fvalue(pv, l144.fvalue(pv, v348), 64) !== l3.value ? (function(){
3210 l145.fvalue(pv, v348);
3211 return l42.fvalue(values, l159, l152.fvalue(pv, v348));
3212 })() : l42.fvalue(values, l160, l152.fvalue(pv, v348)));
3213 })() : (l74.fvalue(pv, v349, 35) !== l3.value ? l154.fvalue(values, v348) : (function(v351){
3214 return (l90.fvalue(pv, (function(){
3216 var func = symbol.fvalue;
3217 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3219 })(), v351) !== l3.value ? l88.fvalue(values, v351) : l155.fvalue(values, v351));
3220 })(l149.fvalue(pv, v348, (function(){
3222 var func = symbol.fvalue;
3223 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3226 })(l144.fvalue(pv, v348));
3231 var l161 = {name: "LS-READ-FROM-STRING"};
3233 (l161).fvalue = (function(v354){
3234 ((v354)["fname"] = "LS-READ-FROM-STRING");
3236 })((function (values,v353){
3237 checkArgs(arguments, 2);
3239 return l152.fvalue(values, l143.fvalue(pv, v353));
3244 var l162 = {name: "*MULTIPLE-VALUE-P*"};
3246 (((l162.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l162).value = l3.value));
3249 var l163 = {name: "*COMPILATION-UNIT-CHECKS*"};
3251 (((l163.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l163).value = l3));
3254 var l164 = {name: "MAKE-BINDING"};
3256 (l164).fvalue = (function(v359){
3257 ((v359)["fname"] = "MAKE-BINDING");
3259 })((function (values,v355,v356,v357,v358){
3260 checkArgsAtLeast(arguments, 4);
3261 checkArgsAtMost(arguments, 5);
3262 switch(arguments.length-1){
3268 return l42.fvalue(values, v355, v356, v357, v358);
3273 var l165 = {name: "BINDING-NAME"};
3275 (l165).fvalue = (function(v361){
3276 ((v361)["fname"] = "BINDING-NAME");
3278 })((function (values,v360){
3279 checkArgs(arguments, 2);
3281 return l38.fvalue(values, v360);
3286 var l166 = {name: "BINDING-TYPE"};
3288 (l166).fvalue = (function(v363){
3289 ((v363)["fname"] = "BINDING-TYPE");
3291 })((function (values,v362){
3292 checkArgs(arguments, 2);
3294 return l39.fvalue(values, v362);
3299 var l167 = {name: "BINDING-VALUE"};
3301 (l167).fvalue = (function(v365){
3302 ((v365)["fname"] = "BINDING-VALUE");
3304 })((function (values,v364){
3305 checkArgs(arguments, 2);
3307 return l40.fvalue(values, v364);
3312 var l168 = {name: "BINDING-DECLARATIONS"};
3314 (l168).fvalue = (function(v367){
3315 ((v367)["fname"] = "BINDING-DECLARATIONS");
3317 })((function (values,v366){
3318 checkArgs(arguments, 2);
3320 return l41.fvalue(values, v366);
3325 var l169 = {name: "SET-BINDING-VALUE"};
3327 (l169).fvalue = (function(v370){
3328 ((v370)["fname"] = "SET-BINDING-VALUE");
3330 })((function (values,v368,v369){
3331 checkArgs(arguments, 3);
3334 var x = l34.fvalue(pv, v368);
3335 if (typeof x != 'object')
3336 throw 'The value ' + x + ' is not a type object.';
3337 return (x.car = v369);
3343 var l170 = {name: "SET-BINDING-DECLARATIONS"};
3345 (l170).fvalue = (function(v373){
3346 ((v373)["fname"] = "SET-BINDING-DECLARATIONS");
3348 })((function (values,v371,v372){
3349 checkArgs(arguments, 3);
3352 var x = l36.fvalue(pv, v371);
3353 if (typeof x != 'object')
3354 throw 'The value ' + x + ' is not a type object.';
3355 return (x.car = v372);
3361 var l171 = {name: "PUSH-BINDING-DECLARATION"};
3363 (l171).fvalue = (function(v376){
3364 ((v376)["fname"] = "PUSH-BINDING-DECLARATION");
3366 })((function (values,v374,v375){
3367 checkArgs(arguments, 3);
3369 return l170.fvalue(values, v375, ({car: v374, cdr: l168.fvalue(pv, v375)}));
3374 var l172 = {name: "MAKE-LEXENV"};
3376 (l172).fvalue = (function(v377){
3377 ((v377)["fname"] = "MAKE-LEXENV");
3379 })((function (values){
3380 checkArgsAtMost(arguments, 1);
3382 return l42.fvalue(values, l3.value, l3.value, l3.value, l3.value);
3387 var l173 = {name: "COPY-LEXENV"};
3389 (l173).fvalue = (function(v379){
3390 ((v379)["fname"] = "COPY-LEXENV");
3392 })((function (values,v378){
3393 checkArgs(arguments, 2);
3395 return l71.fvalue(values, v378);
3400 var l174 = {name: "PUSH-TO-LEXENV"};
3401 var l175 = {name: "BLOCK"};
3402 var l176 = {name: "GOTAG"};
3404 (l174).fvalue = (function(v384){
3405 ((v384)["fname"] = "PUSH-TO-LEXENV");
3407 })((function (values,v380,v381,v382){
3408 checkArgs(arguments, 4);
3410 return (function(v383){
3411 return (l25.fvalue(pv, v383, l99) !== l3.value ? (function(){
3413 if (typeof x != 'object')
3414 throw 'The value ' + x + ' is not a type object.';
3415 return (x.car = ({car: v380, cdr: (function(){
3417 return tmp === l3.value? l3.value: tmp.car;
3419 })() : (l25.fvalue(pv, v383, l98) !== l3.value ? (function(){
3420 var x = (function(){
3422 return tmp === l3.value? l3.value: tmp.cdr;
3424 if (typeof x != 'object')
3425 throw 'The value ' + x + ' is not a type object.';
3426 return (x.car = ({car: v380, cdr: l32.fvalue(pv, v381)}));
3427 })() : (l25.fvalue(pv, v383, l175) !== l3.value ? (function(){
3428 var x = l34.fvalue(pv, v381);
3429 if (typeof x != 'object')
3430 throw 'The value ' + x + ' is not a type object.';
3431 return (x.car = ({car: v380, cdr: l35.fvalue(pv, v381)}));
3432 })() : (l25.fvalue(pv, v383, l176) !== l3.value ? (function(){
3433 var x = l36.fvalue(pv, v381);
3434 if (typeof x != 'object')
3435 throw 'The value ' + x + ' is not a type object.';
3436 return (x.car = ({car: v380, cdr: l37.fvalue(pv, v381)}));
3438 throw "ECASE expression failed.";
3445 var l177 = {name: "EXTEND-LEXENV"};
3447 (l177).fvalue = (function(v391){
3448 ((v391)["fname"] = "EXTEND-LEXENV");
3450 })((function (values,v385,v386,v387){
3451 checkArgs(arguments, 4);
3453 return (function(v388){
3455 return (function(v389,v390){
3457 while(v389 !== l3.value){
3458 (v390 = (function(){
3460 return tmp === l3.value? l3.value: tmp.car;
3463 l174.fvalue(pv, v390, v388, v387);
3466 (v389 = (function(){
3468 return tmp === l3.value? l3.value: tmp.cdr;
3473 })(l64.fvalue(pv, v385),l3.value);
3475 })(l173.fvalue(pv, v386));
3480 var l178 = {name: "LOOKUP-IN-LEXENV"};
3482 (l178).fvalue = (function(v396){
3483 ((v396)["fname"] = "LOOKUP-IN-LEXENV");
3485 })((function (values,v392,v393,v394){
3486 checkArgs(arguments, 4);
3488 return l91.fvalue(values, v392, (function(v395){
3489 return (l25.fvalue(pv, v395, l99) !== l3.value ? l38.fvalue(pv, v393) : (l25.fvalue(pv, v395, l98) !== l3.value ? l39.fvalue(pv, v393) : (l25.fvalue(pv, v395, l175) !== l3.value ? l40.fvalue(pv, v393) : (l25.fvalue(pv, v395, l176) !== l3.value ? l41.fvalue(pv, v393) : (function(){
3490 throw "ECASE expression failed.";
3497 var l179 = {name: "*ENVIRONMENT*"};
3499 (((l179.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l179).value = l172.fvalue(pv)));
3502 var l180 = {name: "*VARIABLE-COUNTER*"};
3504 (((l180.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l180).value = 0));
3507 var l181 = {name: "GVARNAME"};
3509 (l181).fvalue = (function(v398){
3510 ((v398)["fname"] = "GVARNAME");
3512 })((function (values,v397){
3513 checkArgs(arguments, 2);
3515 return l124.fvalue(values, "v", l16.fvalue(pv, ((l180).value = (function(){
3516 var x1 = (function(){
3518 var value = symbol.value;
3519 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3522 if (typeof x1 !== 'number') throw 'Not a number!';
3524 if (typeof x2 !== 'number') throw 'Not a number!';
3531 var l182 = {name: "TRANSLATE-VARIABLE"};
3533 (l182).fvalue = (function(v400){
3534 ((v400)["fname"] = "TRANSLATE-VARIABLE");
3536 })((function (values,v399){
3537 checkArgs(arguments, 2);
3539 return l167.fvalue(values, l178.fvalue(pv, v399, (function(){
3541 var value = symbol.value;
3542 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3549 var l183 = {name: "EXTEND-LOCAL-ENV"};
3550 var l184 = {name: "LEXICAL-VARIABLE"};
3552 (l183).fvalue = (function(v406){
3553 ((v406)["fname"] = "EXTEND-LOCAL-ENV");
3555 })((function (values,v401){
3556 checkArgs(arguments, 2);
3558 return (function(v402){
3560 return (function(v403,v404){
3562 while(v403 !== l3.value){
3563 (v404 = (function(){
3565 return tmp === l3.value? l3.value: tmp.car;
3569 return l174.fvalue(pv, v405, v402, l99);
3570 })(l164.fvalue(pv, v404, l184, l181.fvalue(pv, v404)));
3573 (v403 = (function(){
3575 return tmp === l3.value? l3.value: tmp.cdr;
3582 })(l173.fvalue(pv, (function(){
3584 var value = symbol.value;
3585 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3592 var l185 = {name: "*TOPLEVEL-COMPILATIONS*"};
3594 (((l185.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l185).value = l3.value));
3597 var l186 = {name: "TOPLEVEL-COMPILATION"};
3599 (l186).fvalue = (function(v408){
3600 ((v408)["fname"] = "TOPLEVEL-COMPILATION");
3602 })((function (values,v407){
3603 checkArgs(arguments, 2);
3605 return ((l185).value = ({car: v407, cdr: (function(){
3607 var value = symbol.value;
3608 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3615 var l187 = {name: "NULL-OR-EMPTY-P"};
3617 (l187).fvalue = (function(v410){
3618 ((v410)["fname"] = "NULL-OR-EMPTY-P");
3620 })((function (values,v409){
3621 checkArgs(arguments, 2);
3623 return l23.fvalue(values, l67.fvalue(pv, v409));
3628 var l188 = {name: "GET-TOPLEVEL-COMPILATIONS"};
3630 (l188).fvalue = (function(v411){
3631 ((v411)["fname"] = "GET-TOPLEVEL-COMPILATIONS");
3633 })((function (values){
3634 checkArgsAtMost(arguments, 1);
3636 return l64.fvalue(values, l84.fvalue(pv, (function(){
3638 var func = symbol.fvalue;
3639 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3643 var value = symbol.value;
3644 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3651 var l189 = {name: "%COMPILE-DEFMACRO"};
3652 var l190 = {name: "MACRO"};
3654 (l189).fvalue = (function(v414){
3655 ((v414)["fname"] = "%COMPILE-DEFMACRO");
3657 })((function (values,v412,v413){
3658 checkArgs(arguments, 3);
3660 l186.fvalue(pv, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v412))));
3661 return l174.fvalue(values, l164.fvalue(pv, v412, l190, v413), (function(){
3663 var value = symbol.value;
3664 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3671 var l191 = {name: "GLOBAL-BINDING"};
3673 (l191).fvalue = (function(v420){
3674 ((v420)["fname"] = "GLOBAL-BINDING");
3676 })((function (values,v415,v416,v417){
3677 checkArgs(arguments, 4);
3679 return (function(v418){
3680 return (v418 !== l3.value ? v418 : (function(v419){
3681 l174.fvalue(pv, v419, (function(){
3683 var value = symbol.value;
3684 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3688 })(l164.fvalue(pv, v415, v416, l3.value)));
3689 })(l178.fvalue(pv, v415, (function(){
3691 var value = symbol.value;
3692 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3699 var l192 = {name: "CLAIMP"};
3701 (l192).fvalue = (function(v425){
3702 ((v425)["fname"] = "CLAIMP");
3704 })((function (values,v421,v422,v423){
3705 checkArgs(arguments, 4);
3707 return (function(v424){
3708 return (v424 !== l3.value ? l82.fvalue(values, v423, l168.fvalue(pv, v424)) : l3.value);
3709 })(l178.fvalue(pv, v421, (function(){
3711 var value = symbol.value;
3712 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3719 var l193 = {name: "!PROCLAIM"};
3720 var l194 = {name: "SPECIAL"};
3721 var l195 = {name: "NOTINLINE"};
3722 var l196 = {name: "CONSTANT"};
3724 (l193).fvalue = (function(v437){
3725 ((v437)["fname"] = "!PROCLAIM");
3727 })((function (values,v426){
3728 checkArgs(arguments, 2);
3730 return (function(v427){
3731 return (l25.fvalue(pv, v427, l194) !== l3.value ? (function(){
3732 return (function(v428,v429){
3734 while(v428 !== l3.value){
3735 (v429 = (function(){
3737 return tmp === l3.value? l3.value: tmp.car;
3741 return l171.fvalue(pv, l194, v430);
3742 })(l191.fvalue(pv, v429, l99, l99));
3745 (v428 = (function(){
3747 return tmp === l3.value? l3.value: tmp.cdr;
3754 return tmp === l3.value? l3.value: tmp.cdr;
3756 })() : (l25.fvalue(pv, v427, l195) !== l3.value ? (function(){
3757 return (function(v431,v432){
3759 while(v431 !== l3.value){
3760 (v432 = (function(){
3762 return tmp === l3.value? l3.value: tmp.car;
3766 return l171.fvalue(pv, l195, v433);
3767 })(l191.fvalue(pv, v432, l98, l98));
3770 (v431 = (function(){
3772 return tmp === l3.value? l3.value: tmp.cdr;
3779 return tmp === l3.value? l3.value: tmp.cdr;
3781 })() : (l25.fvalue(pv, v427, l196) !== l3.value ? (function(){
3782 return (function(v434,v435){
3784 while(v434 !== l3.value){
3785 (v435 = (function(){
3787 return tmp === l3.value? l3.value: tmp.car;
3791 return l171.fvalue(pv, l196, v436);
3792 })(l191.fvalue(pv, v435, l99, l99));
3795 (v434 = (function(){
3797 return tmp === l3.value? l3.value: tmp.cdr;
3804 return tmp === l3.value? l3.value: tmp.cdr;
3809 return tmp === l3.value? l3.value: tmp.car;
3815 var l197 = {name: "PROCLAIM"};
3816 (l197).fvalue = (function(){
3818 var func = symbol.fvalue;
3819 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3822 var l198 = {name: "*COMPILATIONS*"};
3824 (((l198.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l198).value = l3.value));
3827 var l199 = {name: "DEFINE-COMPILATION"};
3829 var l200 = {name: "IF"};
3830 ((l198).value = ({car: l42.fvalue(pv, l200, (function (values,v438,v439,v440){
3831 checkArgs(arguments, 4);
3833 return l124.fvalue(values, "(", l137.fvalue(pv, v438), " !== ", l137.fvalue(pv, l3.value), " ? ", l137.fvalue(pv, v439, (function(){
3835 var value = symbol.value;
3836 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3838 })()), " : ", l137.fvalue(pv, v440, (function(){
3840 var value = symbol.value;
3841 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3845 })), cdr: (function(){
3847 var value = symbol.value;
3848 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3851 var l201 = {name: "*LAMBDA-LIST-KEYWORDS*"};
3852 var l202 = {name: "&OPTIONAL"};
3853 var l203 = {name: "&REST"};
3854 var l204 = QIList(l202,l203,l3);
3856 (((l201.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l201).value = l204));
3859 var l205 = {name: "LIST-UNTIL-KEYWORD"};
3861 (l205).fvalue = (function(v443){
3862 ((v443)["fname"] = "LIST-UNTIL-KEYWORD");
3864 })((function (values,v441){
3865 checkArgs(arguments, 2);
3867 return ((function(v442){
3868 return (v442 !== l3.value ? v442 : l82.fvalue(pv, (function(){
3870 return tmp === l3.value? l3.value: tmp.car;
3873 var value = symbol.value;
3874 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3877 })(l11.fvalue(pv, v441)) !== l3.value ? l3.value : ({car: (function(){
3879 return tmp === l3.value? l3.value: tmp.car;
3880 })(), cdr: l205.fvalue(pv, (function(){
3882 return tmp === l3.value? l3.value: tmp.cdr;
3888 var l206 = {name: "LAMBDA-LIST-REQUIRED-ARGUMENTS"};
3890 (l206).fvalue = (function(v445){
3891 ((v445)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
3893 })((function (values,v444){
3894 checkArgs(arguments, 2);
3896 return l205.fvalue(values, v444);
3901 var l207 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"};
3903 (l207).fvalue = (function(v447){
3904 ((v447)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
3906 })((function (values,v446){
3907 checkArgs(arguments, 2);
3909 return l69.fvalue(values, (function(){
3911 var func = symbol.fvalue;
3912 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3914 })(), l205.fvalue(pv, (function(){
3915 var tmp = l82.fvalue(pv, l202, v446);
3916 return tmp === l3.value? l3.value: tmp.cdr;
3922 var l208 = {name: "LAMBDA-LIST-OPTIONAL-ARGUMENTS"};
3924 (l208).fvalue = (function(v449){
3925 ((v449)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
3927 })((function (values,v448){
3928 checkArgs(arguments, 2);
3930 return l69.fvalue(values, (function(){
3932 var func = symbol.fvalue;
3933 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
3935 })(), l207.fvalue(pv, v448));
3940 var l209 = {name: "LAMBDA-LIST-REST-ARGUMENT"};
3942 (l209).fvalue = (function(v452){
3943 ((v452)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
3945 })((function (values,v450){
3946 checkArgs(arguments, 2);
3948 return (function(v451){
3951 return tmp === l3.value? l3.value: tmp.cdr;
3952 })() !== l3.value ? (function(){
3953 throw "Bad lambda-list";
3957 return tmp === l3.value? l3.value: tmp.car;
3959 })(l205.fvalue(pv, (function(){
3960 var tmp = l82.fvalue(pv, l203, v450);
3961 return tmp === l3.value? l3.value: tmp.cdr;
3967 var l210 = {name: "LAMBDA-DOCSTRING-WRAPPER"};
3969 (l210).fvalue = (function(v455){
3970 ((v455)["fname"] = "LAMBDA-DOCSTRING-WRAPPER");
3972 })((function (values,v454){
3973 checkArgsAtLeast(arguments, 2);
3975 for (var i = arguments.length-1; i>=2; i--)
3976 v453 = {car: arguments[i], cdr:
3979 return (v454 !== l3.value ? l124.fvalue(values, "(function(){", (function(){
3981 var value = symbol.value;
3982 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3984 })(), l135.fvalue(pv, "var func = ", l126.fvalue(pv, v453), ";", (function(){
3986 var value = symbol.value;
3987 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3989 })(), "func.docstring = '", v454, "';", (function(){
3991 var value = symbol.value;
3992 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3994 })(), "return func;", (function(){
3996 var value = symbol.value;
3997 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
3999 })()), "})()") : l126.fvalue(values, v453));
4004 var l211 = {name: "LAMBDA-CHECK-ARGUMENT-COUNT"};
4005 var l212 = {name: "N/A"};
4007 (l211).fvalue = (function(v461){
4008 ((v461)["fname"] = "LAMBDA-CHECK-ARGUMENT-COUNT");
4010 })((function (values,v456,v457,v458){
4011 checkArgs(arguments, 4);
4013 return (function(v459,v460){
4018 if (typeof x1 !== 'number') throw 'Not a number!';
4020 if (typeof x2 !== 'number') throw 'Not a number!';
4021 return (x1<x2?l4.value: l3.value);
4022 })() !== l3.value ? l25.fvalue(pv, v459, v460) : l3.value) !== l3.value ? (function(){
4023 throw ({type: 'block', id: 177, value: l124.fvalue(pv, "checkArgs(arguments, ", l16.fvalue(pv, v459), ");", (function(){
4025 var value = symbol.value;
4026 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4028 })()), message: 'Return from unknown block NIL.'})
4030 return l124.fvalue(values, ((function(){
4032 if (typeof x1 !== 'number') throw 'Not a number!';
4034 if (typeof x2 !== 'number') throw 'Not a number!';
4035 return (x1<x2?l4.value: l3.value);
4036 })() !== l3.value ? l124.fvalue(pv, "checkArgsAtLeast(arguments, ", l16.fvalue(pv, v459), ");", (function(){
4038 var value = symbol.value;
4039 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4041 })()) : ""), (((typeof (v460) == "number")?l4.value: l3.value) !== l3.value ? l124.fvalue(pv, "checkArgsAtMost(arguments, ", l16.fvalue(pv, v460), ");", (function(){
4043 var value = symbol.value;
4044 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4049 if (cf.type == 'block' && cf.id == 177)
4055 })(l21.fvalue(pv, v456),(v458 !== l3.value ? l212 : (function(){
4057 if (typeof x1 !== 'number') throw 'Not a number!';
4059 if (typeof x2 !== 'number') throw 'Not a number!';
4061 if (typeof x3 !== 'number') throw 'Not a number!';
4068 var l213 = {name: "LAMBDA"};
4069 var l214 = {name: "LS-COMPILE-BLOCK"};
4070 ((l198).value = ({car: l42.fvalue(pv, l213, (function (values,v463){
4071 checkArgsAtLeast(arguments, 2);
4073 for (var i = arguments.length-1; i>=2; i--)
4074 v462 = {car: arguments[i], cdr:
4077 return (function(v464,v465,v466,v467){
4078 ((((typeof((function(){
4080 return tmp === l3.value? l3.value: tmp.car;
4081 })()) == "string")?l4.value: l3.value) !== l3.value ? l26.fvalue(pv, l11.fvalue(pv, (function(){
4083 return tmp === l3.value? l3.value: tmp.cdr;
4084 })())) : l3.value) !== l3.value ? (function(){
4085 (v467 = (function(){
4087 return tmp === l3.value? l3.value: tmp.car;
4089 return (v462 = (function(){
4091 return tmp === l3.value? l3.value: tmp.cdr;
4094 return (function(v468,v469,v470){
4100 return l210.fvalue(values, v467, "(function (", l126.fvalue(pv, ({car: "values", cdr: l69.fvalue(pv, (function(){
4102 var func = symbol.fvalue;
4103 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4105 })(), l62.fvalue(pv, v464, v465))}), ","), "){", (function(){
4107 var value = symbol.value;
4108 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4110 })(), l135.fvalue(pv, l211.fvalue(pv, v468, v469, v466), (v465 !== l3.value ? l124.fvalue(pv, "switch(arguments.length-1){", (function(){
4112 var value = symbol.value;
4113 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4115 })(), (function(v471,v472,v473){
4121 if (typeof x1 !== 'number') throw 'Not a number!';
4123 if (typeof x2 !== 'number') throw 'Not a number!';
4124 return (x1<x2?l4.value: l3.value);
4127 (v472 = ({car: l124.fvalue(pv, "case ", l16.fvalue(pv, (function(){
4129 if (typeof x1 !== 'number') throw 'Not a number!';
4131 if (typeof x2 !== 'number') throw 'Not a number!';
4133 })()), ":", (function(){
4135 var value = symbol.value;
4136 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4138 })(), l182.fvalue(pv, (function(){
4140 return tmp === l3.value? l3.value: tmp.car;
4141 })()), "=", l137.fvalue(pv, l32.fvalue(pv, v474)), ";", (function(){
4143 var value = symbol.value;
4144 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4146 })()), cdr: v472}));
4147 return (v473 = (function(){
4149 if (typeof x1 !== 'number') throw 'Not a number!';
4151 if (typeof x2 !== 'number') throw 'Not a number!';
4154 })(l79.fvalue(pv, v473, v471));
4158 (v472 = ({car: l124.fvalue(pv, "default: break;", (function(){
4160 var value = symbol.value;
4161 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4163 })()), cdr: v472}));
4164 return l126.fvalue(pv, l64.fvalue(pv, v472));
4166 })(l207.fvalue(pv, v463),l3.value,0), "}", (function(){
4168 var value = symbol.value;
4169 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4171 })()) : ""), (v466 !== l3.value ? (function(v475){
4172 return l124.fvalue(pv, "var ", v475, "= ", l137.fvalue(pv, l3.value), ";", (function(){
4174 var value = symbol.value;
4175 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4177 })(), "for (var i = arguments.length-1; i>=", l16.fvalue(pv, (function(){
4179 if (typeof x1 !== 'number') throw 'Not a number!';
4181 if (typeof x2 !== 'number') throw 'Not a number!';
4183 if (typeof x3 !== 'number') throw 'Not a number!';
4185 })()), "; i--)", (function(){
4187 var value = symbol.value;
4188 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4190 })(), l135.fvalue(pv, v475, " = ", "{car: arguments[i], cdr: "), v475, "};", (function(){
4192 var value = symbol.value;
4193 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4196 })(l182.fvalue(pv, v466)) : ""), (function(v476){
4202 return l214.fvalue(pv, v462, l4.value);
4207 })(l4.value)), "})");
4212 })(l67.fvalue(pv, v464),l67.fvalue(pv, v465),l183.fvalue(pv, l62.fvalue(pv, l56.fvalue(pv, v466), v464, v465)));
4213 })(l206.fvalue(pv, v463),l208.fvalue(pv, v463),l209.fvalue(pv, v463),l3.value);
4215 })), cdr: (function(){
4217 var value = symbol.value;
4218 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4221 var l215 = {name: "SETQ-PAIR"};
4222 var l216 = {name: "SET"};
4224 (l215).fvalue = (function(v480){
4225 ((v480)["fname"] = "SETQ-PAIR");
4227 })((function (values,v477,v478){
4228 checkArgs(arguments, 3);
4230 return (function(v479){
4231 return (((l166.fvalue(pv, v479) === l184)?l4.value: l3.value) !== l3.value ? l124.fvalue(values, l167.fvalue(pv, v479), " = ", l137.fvalue(pv, v478)) : l137.fvalue(values, l62.fvalue(pv, l42.fvalue(pv, l216), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v477))), l42.fvalue(pv, v478))));
4232 })(l178.fvalue(pv, v477, (function(){
4234 var value = symbol.value;
4235 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4242 var l217 = {name: "SETQ"};
4243 ((l198).value = ({car: l42.fvalue(pv, l217, (function (values){
4245 for (var i = arguments.length-1; i>=1; i--)
4246 v481 = {car: arguments[i], cdr:
4249 return (function(v482){
4253 while(l4.value !== l3.value){
4254 (l11.fvalue(pv, v481) !== l3.value ? (function(){
4255 throw ({type: 'block', id: 182, value: l3.value, message: 'Return from unknown block NIL.'})
4256 })() : (l11.fvalue(pv, (function(){
4258 return tmp === l3.value? l3.value: tmp.cdr;
4259 })()) !== l3.value ? (function(){
4260 throw "Odd paris in SETQ";
4262 (v482 = l124.fvalue(pv, v482, l124.fvalue(pv, l215.fvalue(pv, (function(){
4264 return tmp === l3.value? l3.value: tmp.car;
4265 })(), l32.fvalue(pv, v481)), (l11.fvalue(pv, l34.fvalue(pv, v481)) !== l3.value ? "" : ", "))));
4266 return (v481 = l34.fvalue(pv, v481));
4272 if (cf.type == 'block' && cf.id == 182)
4278 return l124.fvalue(values, "(", v482, ")");
4281 })), cdr: (function(){
4283 var value = symbol.value;
4284 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4287 var l218 = {name: "JS-VREF"};
4288 ((l198).value = ({car: l42.fvalue(pv, l218, (function (values,v483){
4289 checkArgs(arguments, 2);
4293 })), cdr: (function(){
4295 var value = symbol.value;
4296 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4299 var l219 = {name: "JS-VSET"};
4300 ((l198).value = ({car: l42.fvalue(pv, l219, (function (values,v484,v485){
4301 checkArgs(arguments, 3);
4303 return l124.fvalue(values, "(", v484, " = ", l137.fvalue(pv, v485), ")");
4305 })), cdr: (function(){
4307 var value = symbol.value;
4308 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4312 (l140).fvalue = (function(v492){
4313 ((v492)["fname"] = "ESCAPE-STRING");
4315 })((function (values,v486){
4316 checkArgs(arguments, 2);
4318 return (function(v487,v488,v489){
4323 if (typeof x1 !== 'number') throw 'Not a number!';
4325 if (typeof x2 !== 'number') throw 'Not a number!';
4326 return (x1<x2?l4.value: l3.value);
4330 return (v491 !== l3.value ? v491 : l74.fvalue(pv, v490, 92));
4331 })(l74.fvalue(pv, v490, 34)) !== l3.value ? (v487 = l124.fvalue(pv, v487, "\\")) : l3.value);
4332 (l74.fvalue(pv, v490, 10) !== l3.value ? (function(){
4333 (v487 = l124.fvalue(pv, v487, "\\"));
4334 return (v490 = 110);
4336 return (v487 = l124.fvalue(pv, v487, l92.fvalue(pv, v490)));
4340 if (typeof string != 'string')
4341 throw 'The value ' + string + ' is not a type string.';
4342 if (typeof index != 'number')
4343 throw 'The value ' + index + ' is not a type number.';
4344 return string.charCodeAt(index);
4346 (v488 = (function(){
4348 if (typeof x1 !== 'number') throw 'Not a number!';
4350 if (typeof x2 !== 'number') throw 'Not a number!';
4357 })("",0,l67.fvalue(pv, v486));
4362 var l220 = {name: "*LITERAL-SYMBOLS*"};
4364 (((l220.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l220).value = l3.value));
4367 var l221 = {name: "*LITERAL-COUNTER*"};
4369 (((l221.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l221).value = 0));
4372 var l222 = {name: "GENLIT"};
4374 (l222).fvalue = (function(v493){
4375 ((v493)["fname"] = "GENLIT");
4377 })((function (values){
4378 checkArgsAtMost(arguments, 1);
4380 return l124.fvalue(values, "l", l16.fvalue(pv, ((l221).value = (function(){
4381 var x1 = (function(){
4383 var value = symbol.value;
4384 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4387 if (typeof x1 !== 'number') throw 'Not a number!';
4389 if (typeof x2 !== 'number') throw 'Not a number!';
4396 var l223 = {name: "LITERAL"};
4398 (l223).fvalue = (function(v508){
4399 ((v508)["fname"] = "LITERAL");
4401 })((function (values,v494,v495){
4402 checkArgsAtLeast(arguments, 2);
4403 checkArgsAtMost(arguments, 3);
4404 switch(arguments.length-1){
4410 return (l75.fvalue(pv, v494) !== l3.value ? l16.fvalue(values, v494) : (((typeof(v494) == "string")?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "\"", l140.fvalue(pv, v494), "\"") : (((function(){
4412 return (typeof tmp == 'object' && 'name' in tmp);
4413 })()?l4.value: l3.value) !== l3.value ? (function(v496){
4414 return (v496 !== l3.value ? v496 : (function(v498,v499){
4415 ((l220).value = ({car: ({car: v494, cdr: v498}), cdr: (function(){
4417 var value = symbol.value;
4418 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4421 l186.fvalue(pv, l124.fvalue(pv, "var ", v498, " = ", v499));
4423 })(l222.fvalue(pv),(function(v497){
4424 return (l11.fvalue(pv, v497) !== l3.value ? l124.fvalue(pv, "{name: \"", l140.fvalue(pv, (v494).name), "\"}") : l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l120), l42.fvalue(pv, (v494).name), l42.fvalue(pv, l106.fvalue(pv, v497)))));
4425 })(l114.fvalue(pv, v494))));
4427 var tmp = l91.fvalue(pv, v494, (function(){
4429 var value = symbol.value;
4430 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4433 return tmp === l3.value? l3.value: tmp.cdr;
4434 })()) : (((function(){
4436 return (typeof tmp == 'object' && 'car' in tmp);
4437 })()?l4.value: l3.value) !== l3.value ? (function(){
4438 var v500 = l81.fvalue(pv, v494);
4439 var v501 = l80.fvalue(pv, v494);
4440 var v502 = l124.fvalue(pv, "QIList(", l127.fvalue(pv, l69.fvalue(pv, (function (values,v503){
4441 checkArgs(arguments, 2);
4442 return l223.fvalue(values, v503, l4.value);
4443 }), v500), ","), l223.fvalue(pv, (function(){
4445 return tmp === l3.value? l3.value: tmp.car;
4446 })(), l4.value), ",", l223.fvalue(pv, (function(){
4448 return tmp === l3.value? l3.value: tmp.cdr;
4449 })(), l4.value), ")");
4450 return (v495 !== l3.value ? v502 : (function(v504){
4451 l186.fvalue(pv, l124.fvalue(pv, "var ", v504, " = ", v502));
4453 })(l222.fvalue(pv)));
4454 })() : (((function(){
4456 return typeof x === 'object' && 'length' in x;
4457 })()?l4.value: l3.value) !== l3.value ? (function(v505){
4458 return (function(v506){
4459 return (v495 !== l3.value ? v506 : (function(v507){
4460 l186.fvalue(pv, l124.fvalue(pv, "var ", v507, " = ", v506));
4462 })(l222.fvalue(pv)));
4463 })(l124.fvalue(pv, "[", l126.fvalue(pv, l69.fvalue(pv, (function(){
4465 var func = symbol.fvalue;
4466 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4468 })(), v505), ", "), "]"));
4469 })(l129.fvalue(pv, v494)) : l3.value)))));
4474 ((l198).value = ({car: l42.fvalue(pv, l157, (function (values,v509){
4475 checkArgs(arguments, 2);
4477 return l223.fvalue(values, v509);
4479 })), cdr: (function(){
4481 var value = symbol.value;
4482 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4485 var l224 = {name: "%WHILE"};
4486 ((l198).value = ({car: l42.fvalue(pv, l224, (function (values,v511){
4487 checkArgsAtLeast(arguments, 2);
4489 for (var i = arguments.length-1; i>=2; i--)
4490 v510 = {car: arguments[i], cdr:
4493 return l124.fvalue(values, "(function(){", (function(){
4495 var value = symbol.value;
4496 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4498 })(), l135.fvalue(pv, "while(", l137.fvalue(pv, v511), " !== ", l137.fvalue(pv, l3.value), "){", (function(){
4500 var value = symbol.value;
4501 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4503 })(), l135.fvalue(pv, l214.fvalue(pv, v510)), "}", "return ", l137.fvalue(pv, l3.value), ";", (function(){
4505 var value = symbol.value;
4506 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4510 })), cdr: (function(){
4512 var value = symbol.value;
4513 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4516 var l225 = {name: "SYMBOL-FUNCTION"};
4517 ((l198).value = ({car: l42.fvalue(pv, l98, (function (values,v512){
4518 checkArgs(arguments, 2);
4520 return ((l57.fvalue(pv, v512) !== l3.value ? (((function(){
4522 return tmp === l3.value? l3.value: tmp.car;
4523 })() === l213)?l4.value: l3.value) : l3.value) !== l3.value ? l137.fvalue(values, v512) : (((function(){
4525 return (typeof tmp == 'object' && 'name' in tmp);
4526 })()?l4.value: l3.value) !== l3.value ? l137.fvalue(values, l62.fvalue(pv, l42.fvalue(pv, l225), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v512))))) : l3.value));
4528 })), cdr: (function(){
4530 var value = symbol.value;
4531 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4534 var l226 = {name: "EVAL-WHEN-COMPILE"};
4535 var l227 = {name: "EVAL"};
4536 var l228 = {name: "PROGN"};
4537 ((l198).value = ({car: l42.fvalue(pv, l226, (function (values){
4539 for (var i = arguments.length-1; i>=1; i--)
4540 v513 = {car: arguments[i], cdr:
4543 l227.fvalue(pv, ({car: l228, cdr: v513}));
4546 })), cdr: (function(){
4548 var value = symbol.value;
4549 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4552 var l229 = {name: "DEFINE-TRANSFORMATION"};
4554 ((l198).value = ({car: l42.fvalue(pv, l228, (function (values){
4556 for (var i = arguments.length-1; i>=1; i--)
4557 v514 = {car: arguments[i], cdr:
4560 return (l11.fvalue(pv, (function(){
4562 return tmp === l3.value? l3.value: tmp.cdr;
4563 })()) !== l3.value ? l137.fvalue(values, (function(){
4565 return tmp === l3.value? l3.value: tmp.car;
4568 var value = symbol.value;
4569 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4571 })()) : l124.fvalue(values, "(function(){", (function(){
4573 var value = symbol.value;
4574 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4576 })(), l135.fvalue(pv, l214.fvalue(pv, v514, l4.value)), "})()"));
4578 })), cdr: (function(){
4580 var value = symbol.value;
4581 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4584 var l230 = {name: "SPECIAL-VARIABLE-P"};
4586 (l230).fvalue = (function(v516){
4587 ((v516)["fname"] = "SPECIAL-VARIABLE-P");
4589 })((function (values,v515){
4590 checkArgs(arguments, 2);
4592 return (l192.fvalue(pv, v515, l99, l194) !== l3.value ? l4.value : l3.value);
4597 var l231 = {name: "LET-BINDING-WRAPPER"};
4599 (l231).fvalue = (function(v523){
4600 ((v523)["fname"] = "LET-BINDING-WRAPPER");
4602 })((function (values,v517,v518){
4603 checkArgs(arguments, 3);
4606 (l11.fvalue(pv, v517) !== l3.value ? (function(){
4607 throw ({type: 'block', id: 195, value: v518, message: 'Return from unknown block LET-BINDING-WRAPPER.'})
4609 return l124.fvalue(values, "try {", (function(){
4611 var value = symbol.value;
4612 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4614 })(), l135.fvalue(pv, "var tmp;", (function(){
4616 var value = symbol.value;
4617 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4619 })(), l128.fvalue(pv, (function (values,v519){
4620 checkArgs(arguments, 2);
4621 return (function(v520){
4622 return l124.fvalue(values, "tmp = ", v520, ".value;", (function(){
4624 var value = symbol.value;
4625 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4627 })(), v520, ".value = ", (function(){
4629 return tmp === l3.value? l3.value: tmp.cdr;
4630 })(), ";", (function(){
4632 var value = symbol.value;
4633 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4637 return tmp === l3.value? l3.value: tmp.cdr;
4638 })(), " = tmp;", (function(){
4640 var value = symbol.value;
4641 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4644 })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
4646 return tmp === l3.value? l3.value: tmp.car;
4648 }), v517), v518, (function(){
4650 var value = symbol.value;
4651 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4653 })()), "}", (function(){
4655 var value = symbol.value;
4656 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4658 })(), "finally {", (function(){
4660 var value = symbol.value;
4661 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4663 })(), l135.fvalue(pv, l128.fvalue(pv, (function (values,v521){
4664 checkArgs(arguments, 2);
4665 return (function(v522){
4666 return l124.fvalue(values, v522, ".value", " = ", (function(){
4668 return tmp === l3.value? l3.value: tmp.cdr;
4669 })(), ";", (function(){
4671 var value = symbol.value;
4672 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4675 })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
4677 return tmp === l3.value? l3.value: tmp.car;
4679 }), v517)), "}", (function(){
4681 var value = symbol.value;
4682 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4687 if (cf.type == 'block' && cf.id == 195)
4696 var l232 = {name: "LET"};
4697 var l233 = {name: "DYNAMIC-BINDINGS"};
4698 ((l198).value = ({car: l42.fvalue(pv, l232, (function (values,v525){
4699 checkArgsAtLeast(arguments, 2);
4701 for (var i = arguments.length-1; i>=2; i--)
4702 v524 = {car: arguments[i], cdr:
4707 var v533 = l179.value;
4708 var v526 = l69.fvalue(pv, (function(){
4710 var func = symbol.fvalue;
4711 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4714 var v527 = l69.fvalue(pv, (function(){
4716 var func = symbol.fvalue;
4717 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4720 var v528 = l69.fvalue(pv, (function(){
4722 var func = symbol.fvalue;
4723 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4725 })(), l69.fvalue(pv, (function(){
4727 var func = symbol.fvalue;
4728 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4731 ((l179).value = l183.fvalue(pv, l84.fvalue(pv, (function(){
4733 var func = symbol.fvalue;
4734 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4737 var v529 = l3.value;
4738 return l124.fvalue(values, "(function(", l126.fvalue(pv, l69.fvalue(pv, (function (values,v530){
4739 checkArgs(arguments, 2);
4740 return (l230.fvalue(pv, v530) !== l3.value ? (function(v531){
4741 ((l233).value = ({car: ({car: v530, cdr: v531}), cdr: v529}));
4743 })(l181.fvalue(pv, v530)) : l182.fvalue(values, v530));
4744 }), v527), ","), "){", (function(){
4746 var value = symbol.value;
4747 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4749 })(), (function(v532){
4750 return l135.fvalue(pv, l231.fvalue(pv, v529, v532));
4751 })(l214.fvalue(pv, v524, l4.value)), "})(", l126.fvalue(pv, v528, ","), ")");
4758 })), cdr: (function(){
4760 var value = symbol.value;
4761 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4764 var l234 = {name: "LET*-INITIALIZE-VALUE"};
4766 (l234).fvalue = (function(v540){
4767 ((v540)["fname"] = "LET*-INITIALIZE-VALUE");
4769 })((function (values,v534){
4770 checkArgs(arguments, 2);
4772 return (function(v535,v536){
4773 return (l230.fvalue(pv, v535) !== l3.value ? l124.fvalue(values, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l217), l42.fvalue(pv, v535), l42.fvalue(pv, v536))), ";", (function(){
4775 var value = symbol.value;
4776 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4778 })()) : (function(){
4779 var v537 = l181.fvalue(pv, v535);
4780 var v538 = l164.fvalue(pv, v535, l99, v537);
4781 return (function(v539){
4782 l174.fvalue(pv, v538, (function(){
4784 var value = symbol.value;
4785 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4789 })(l124.fvalue(pv, "var ", v537, " = ", l137.fvalue(pv, v536), ";", (function(){
4791 var value = symbol.value;
4792 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4796 })(l38.fvalue(pv, v534),l39.fvalue(pv, v534));
4801 var l235 = {name: "LET*-BINDING-WRAPPER"};
4803 (l235).fvalue = (function(v549){
4804 ((v549)["fname"] = "LET*-BINDING-WRAPPER");
4806 })((function (values,v541,v542){
4807 checkArgs(arguments, 3);
4810 (l11.fvalue(pv, v541) !== l3.value ? (function(){
4811 throw ({type: 'block', id: 198, value: v542, message: 'Return from unknown block LET*-BINDING-WRAPPER.'})
4813 return (function(v544){
4814 return l124.fvalue(values, "try {", (function(){
4816 var value = symbol.value;
4817 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4819 })(), l135.fvalue(pv, l128.fvalue(pv, (function (values,v545){
4820 checkArgs(arguments, 2);
4821 return (function(v546){
4822 return l124.fvalue(values, "var ", (function(){
4824 return tmp === l3.value? l3.value: tmp.cdr;
4825 })(), " = ", v546, ".value;", (function(){
4827 var value = symbol.value;
4828 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4831 })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
4833 return tmp === l3.value? l3.value: tmp.car;
4835 }), v544), v542), "}", (function(){
4837 var value = symbol.value;
4838 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4840 })(), "finally {", (function(){
4842 var value = symbol.value;
4843 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4845 })(), l135.fvalue(pv, l128.fvalue(pv, (function (values,v547){
4846 checkArgs(arguments, 2);
4847 return (function(v548){
4848 return l124.fvalue(values, v548, ".value", " = ", (function(){
4850 return tmp === l3.value? l3.value: tmp.cdr;
4851 })(), ";", (function(){
4853 var value = symbol.value;
4854 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4857 })(l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, (function(){
4859 return tmp === l3.value? l3.value: tmp.car;
4861 }), v544)), "}", (function(){
4863 var value = symbol.value;
4864 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4867 })(l69.fvalue(pv, (function (values,v543){
4868 checkArgs(arguments, 2);
4869 return ({car: v543, cdr: l181.fvalue(pv, v543)});
4870 }), l85.fvalue(pv, (function(){
4872 var func = symbol.fvalue;
4873 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4878 if (cf.type == 'block' && cf.id == 198)
4887 var l236 = {name: "LET*"};
4888 ((l198).value = ({car: l42.fvalue(pv, l236, (function (values,v551){
4889 checkArgsAtLeast(arguments, 2);
4891 for (var i = arguments.length-1; i>=2; i--)
4892 v550 = {car: arguments[i], cdr:
4895 return (function(v552,v553){
4901 return l124.fvalue(values, "(function(){", (function(){
4903 var value = symbol.value;
4904 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4906 })(), l135.fvalue(pv, (function(v554,v555){
4907 return l235.fvalue(pv, v554, v555);
4908 })(l85.fvalue(pv, (function(){
4910 var func = symbol.fvalue;
4911 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4913 })(), l69.fvalue(pv, (function(){
4915 var func = symbol.fvalue;
4916 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4918 })(), v552)),l124.fvalue(pv, l128.fvalue(pv, (function(){
4920 var func = symbol.fvalue;
4921 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4923 })(), v552), l214.fvalue(pv, v550, l4.value)))), "})()");
4928 })(l69.fvalue(pv, (function(){
4930 var func = symbol.fvalue;
4931 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
4933 })(), v551),l173.fvalue(pv, (function(){
4935 var value = symbol.value;
4936 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4940 })), cdr: (function(){
4942 var value = symbol.value;
4943 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4946 var l237 = {name: "*BLOCK-COUNTER*"};
4948 (((l237.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l237).value = 0));
4951 var l238 = {name: "USED"};
4952 ((l198).value = ({car: l42.fvalue(pv, l175, (function (values,v557){
4953 checkArgsAtLeast(arguments, 2);
4955 for (var i = arguments.length-1; i>=2; i--)
4956 v556 = {car: arguments[i], cdr:
4961 var v561 = l179.value;
4962 var v558 = l16.fvalue(pv, ((l237).value = (function(){
4963 var x1 = (function(){
4965 var value = symbol.value;
4966 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4969 if (typeof x1 !== 'number') throw 'Not a number!';
4971 if (typeof x2 !== 'number') throw 'Not a number!';
4974 var v559 = l164.fvalue(pv, v557, l175, v558);
4975 ((l179).value = l177.fvalue(pv, l42.fvalue(pv, v559), (function(){
4977 var value = symbol.value;
4978 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4981 var v560 = l214.fvalue(pv, v556, l4.value);
4982 return (l82.fvalue(pv, l238, l168.fvalue(pv, v559)) !== l3.value ? l124.fvalue(values, "(function(){", (function(){
4984 var value = symbol.value;
4985 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4987 })(), l135.fvalue(pv, "try {", (function(){
4989 var value = symbol.value;
4990 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4992 })(), l135.fvalue(pv, v560), "}", (function(){
4994 var value = symbol.value;
4995 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
4997 })(), "catch (cf){", (function(){
4999 var value = symbol.value;
5000 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5002 })(), " if (cf.type == 'block' && cf.id == ", v558, ")", (function(){
5004 var value = symbol.value;
5005 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5007 })(), " return cf.value;", (function(){
5009 var value = symbol.value;
5010 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5012 })(), " else", (function(){
5014 var value = symbol.value;
5015 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5017 })(), " throw cf;", (function(){
5019 var value = symbol.value;
5020 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5022 })(), "}", (function(){
5024 var value = symbol.value;
5025 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5027 })()), "})()") : l124.fvalue(values, "(function(){", (function(){
5029 var value = symbol.value;
5030 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5032 })(), l135.fvalue(pv, l135.fvalue(pv, v560)), "})()"));
5039 })), cdr: (function(){
5041 var value = symbol.value;
5042 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5045 var l239 = {name: "RETURN-FROM"};
5046 ((l198).value = ({car: l42.fvalue(pv, l239, (function (values,v562,v563){
5047 checkArgsAtLeast(arguments, 2);
5048 checkArgsAtMost(arguments, 3);
5049 switch(arguments.length-1){
5055 return (function(v564){
5056 (l11.fvalue(pv, v564) !== l3.value ? (function(){
5057 throw l124.fvalue(pv, "Unknown block `", (v562).name, "'.");
5059 l171.fvalue(pv, l238, v564);
5060 return l124.fvalue(values, "(function(){", (function(){
5062 var value = symbol.value;
5063 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5065 })(), l135.fvalue(pv, "throw ({", "type: 'block', ", "id: ", l167.fvalue(pv, v564), ", ", "value: ", l137.fvalue(pv, v563), ", ", "message: 'Return from unknown block ", (v562).name, ".'", "})"), "})()");
5066 })(l178.fvalue(pv, v562, (function(){
5068 var value = symbol.value;
5069 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5073 })), cdr: (function(){
5075 var value = symbol.value;
5076 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5079 var l240 = {name: "CATCH"};
5080 ((l198).value = ({car: l42.fvalue(pv, l240, (function (values,v566){
5081 checkArgsAtLeast(arguments, 2);
5083 for (var i = arguments.length-1; i>=2; i--)
5084 v565 = {car: arguments[i], cdr:
5087 return l124.fvalue(values, "(function(){", (function(){
5089 var value = symbol.value;
5090 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5092 })(), l135.fvalue(pv, "var id = ", l137.fvalue(pv, v566), ";", (function(){
5094 var value = symbol.value;
5095 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5097 })(), "try {", (function(){
5099 var value = symbol.value;
5100 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5102 })(), l135.fvalue(pv, "return ", l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l228), v565)), ";", (function(){
5104 var value = symbol.value;
5105 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5107 })()), "}", (function(){
5109 var value = symbol.value;
5110 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5112 })(), "catch (cf){", (function(){
5114 var value = symbol.value;
5115 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5117 })(), " if (cf.type == 'catch' && cf.id == id)", (function(){
5119 var value = symbol.value;
5120 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5122 })(), " return cf.value;", (function(){
5124 var value = symbol.value;
5125 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5127 })(), " else", (function(){
5129 var value = symbol.value;
5130 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5132 })(), " throw cf;", (function(){
5134 var value = symbol.value;
5135 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5137 })(), "}", (function(){
5139 var value = symbol.value;
5140 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5144 })), cdr: (function(){
5146 var value = symbol.value;
5147 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5150 var l241 = {name: "THROW"};
5151 ((l198).value = ({car: l42.fvalue(pv, l241, (function (values,v567,v568){
5152 checkArgs(arguments, 3);
5154 return l124.fvalue(values, "(function(){", (function(){
5156 var value = symbol.value;
5157 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5159 })(), l135.fvalue(pv, "throw ({", "type: 'catch', ", "id: ", l137.fvalue(pv, v567), ", ", "value: ", l137.fvalue(pv, v568), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5161 })), cdr: (function(){
5163 var value = symbol.value;
5164 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5167 var l242 = {name: "*TAGBODY-COUNTER*"};
5169 (((l242.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l242).value = 0));
5172 var l243 = {name: "*GO-TAG-COUNTER*"};
5174 (((l243.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l243).value = 0));
5177 var l244 = {name: "GO-TAG-P"};
5179 (l244).fvalue = (function(v571){
5180 ((v571)["fname"] = "GO-TAG-P");
5182 })((function (values,v569){
5183 checkArgs(arguments, 2);
5185 return (function(v570){
5186 return (v570 !== l3.value ? v570 : ((function(){
5188 return (typeof tmp == 'object' && 'name' in tmp);
5189 })()?l4.value: l3.value));
5190 })(l75.fvalue(pv, v569));
5195 var l245 = {name: "DECLARE-TAGBODY-TAGS"};
5197 (l245).fvalue = (function(v577){
5198 ((v577)["fname"] = "DECLARE-TAGBODY-TAGS");
5200 })((function (values,v572,v573){
5201 checkArgs(arguments, 3);
5203 return (function(v576){
5204 return l177.fvalue(values, v576, (function(){
5206 var value = symbol.value;
5207 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5210 })(l69.fvalue(pv, (function (values,v574){
5211 checkArgs(arguments, 2);
5212 return (function(v575){
5213 return l164.fvalue(values, v574, l176, l42.fvalue(pv, v572, v575));
5214 })(l16.fvalue(pv, ((l243).value = (function(){
5215 var x1 = (function(){
5217 var value = symbol.value;
5218 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5221 if (typeof x1 !== 'number') throw 'Not a number!';
5223 if (typeof x2 !== 'number') throw 'Not a number!';
5226 }), l85.fvalue(pv, (function(){
5228 var func = symbol.fvalue;
5229 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5236 var l246 = {name: "TAGBODY"};
5237 ((l198).value = ({car: l42.fvalue(pv, l246, (function (values){
5239 for (var i = arguments.length-1; i>=1; i--)
5240 v578 = {car: arguments[i], cdr:
5244 (l89.fvalue(pv, (function(){
5246 var func = symbol.fvalue;
5247 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
5249 })(), v578) !== l3.value ? l3.value : (function(){
5250 throw ({type: 'block', id: 206, value: l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l228), v578, l42.fvalue(pv, l3))), message: 'Return from unknown block TAGBODY.'})
5252 (l244.fvalue(pv, (function(){
5254 return tmp === l3.value? l3.value: tmp.car;
5255 })()) !== l3.value ? l3.value : (v578 = ({car: l15.fvalue(pv, "START"), cdr: v578})));
5256 return (function(v579){
5257 return (function(v581,v580){
5264 return (v580 = l39.fvalue(pv, l167.fvalue(pv, v582)));
5265 })(l178.fvalue(pv, l38.fvalue(pv, v578), (function(){
5267 var value = symbol.value;
5268 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5271 return l124.fvalue(values, "(function(){", (function(){
5273 var value = symbol.value;
5274 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5276 })(), l135.fvalue(pv, "var tagbody_", v579, " = ", v580, ";", (function(){
5278 var value = symbol.value;
5279 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5281 })(), "tbloop:", (function(){
5283 var value = symbol.value;
5284 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5286 })(), "while (true) {", (function(){
5288 var value = symbol.value;
5289 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5291 })(), l135.fvalue(pv, "try {", (function(){
5293 var value = symbol.value;
5294 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5296 })(), l135.fvalue(pv, (function(v583){
5297 return l124.fvalue(pv, "switch(tagbody_", v579, "){", (function(){
5299 var value = symbol.value;
5300 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5302 })(), "case ", v580, ":", (function(){
5304 var value = symbol.value;
5305 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5308 return (function(v584,v585){
5310 while(v584 !== l3.value){
5311 (v585 = (function(){
5313 return tmp === l3.value? l3.value: tmp.car;
5316 (v583 = l124.fvalue(pv, v583, (l26.fvalue(pv, l244.fvalue(pv, v585)) !== l3.value ? l135.fvalue(pv, l137.fvalue(pv, v585), ";", (function(){
5318 var value = symbol.value;
5319 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5321 })()) : (function(v586){
5322 return l124.fvalue(pv, "case ", l39.fvalue(pv, l167.fvalue(pv, v586)), ":", (function(){
5324 var value = symbol.value;
5325 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5328 })(l178.fvalue(pv, v585, (function(){
5330 var value = symbol.value;
5331 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5336 (v584 = (function(){
5338 return tmp === l3.value? l3.value: tmp.cdr;
5345 return tmp === l3.value? l3.value: tmp.cdr;
5347 })(), "default:", (function(){
5349 var value = symbol.value;
5350 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5352 })(), " break tbloop;", (function(){
5354 var value = symbol.value;
5355 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5357 })(), "}", (function(){
5359 var value = symbol.value;
5360 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5363 })("")), "}", (function(){
5365 var value = symbol.value;
5366 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5368 })(), "catch (jump) {", (function(){
5370 var value = symbol.value;
5371 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5373 })(), " if (jump.type == 'tagbody' && jump.id == ", v579, ")", (function(){
5375 var value = symbol.value;
5376 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5378 })(), " tagbody_", v579, " = jump.label;", (function(){
5380 var value = symbol.value;
5381 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5383 })(), " else", (function(){
5385 var value = symbol.value;
5386 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5388 })(), " throw(jump);", (function(){
5390 var value = symbol.value;
5391 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5393 })(), "}", (function(){
5395 var value = symbol.value;
5396 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5398 })()), "}", (function(){
5400 var value = symbol.value;
5401 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5403 })(), "return ", l137.fvalue(pv, l3.value), ";", (function(){
5405 var value = symbol.value;
5406 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5413 })(l245.fvalue(pv, v579, v578),l3.value);
5414 })(l16.fvalue(pv, (function(){
5416 var value = symbol.value;
5417 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5422 if (cf.type == 'block' && cf.id == 206)
5428 })), cdr: (function(){
5430 var value = symbol.value;
5431 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5434 var l247 = {name: "GO"};
5435 ((l198).value = ({car: l42.fvalue(pv, l247, (function (values,v587){
5436 checkArgs(arguments, 2);
5438 return (function(v588,v589){
5439 return (v588 !== l3.value ? l124.fvalue(values, "(function(){", (function(){
5441 var value = symbol.value;
5442 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5444 })(), l135.fvalue(pv, "throw ({", "type: 'tagbody', ", "id: ", l38.fvalue(pv, l167.fvalue(pv, v588)), ", ", "label: ", l39.fvalue(pv, l167.fvalue(pv, v588)), ", ", "message: 'Attempt to GO to non-existing tag ", v589, "'", "})", (function(){
5446 var value = symbol.value;
5447 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5449 })()), "})()") : (function(){
5450 throw l124.fvalue(pv, "Unknown tag `", v589, "'.");
5452 })(l178.fvalue(pv, v587, (function(){
5454 var value = symbol.value;
5455 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5457 })(), l176),(((function(){
5459 return (typeof tmp == 'object' && 'name' in tmp);
5460 })()?l4.value: l3.value) !== l3.value ? (v587).name : (l75.fvalue(pv, v587) !== l3.value ? l16.fvalue(pv, v587) : l3.value)));
5462 })), cdr: (function(){
5464 var value = symbol.value;
5465 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5468 var l248 = {name: "UNWIND-PROTECT"};
5469 ((l198).value = ({car: l42.fvalue(pv, l248, (function (values,v591){
5470 checkArgsAtLeast(arguments, 2);
5472 for (var i = arguments.length-1; i>=2; i--)
5473 v590 = {car: arguments[i], cdr:
5476 return l124.fvalue(values, "(function(){", (function(){
5478 var value = symbol.value;
5479 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5481 })(), l135.fvalue(pv, "var ret = ", l137.fvalue(pv, l3.value), ";", (function(){
5483 var value = symbol.value;
5484 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5486 })(), "try {", (function(){
5488 var value = symbol.value;
5489 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5491 })(), l135.fvalue(pv, "ret = ", l137.fvalue(pv, v591), ";", (function(){
5493 var value = symbol.value;
5494 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5496 })()), "} finally {", (function(){
5498 var value = symbol.value;
5499 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5501 })(), l135.fvalue(pv, l214.fvalue(pv, v590)), "}", (function(){
5503 var value = symbol.value;
5504 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5506 })(), "return ret;", (function(){
5508 var value = symbol.value;
5509 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5513 })), cdr: (function(){
5515 var value = symbol.value;
5516 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5519 var l249 = {name: "MULTIPLE-VALUE-CALL"};
5520 ((l198).value = ({car: l42.fvalue(pv, l249, (function (values,v593){
5521 checkArgsAtLeast(arguments, 2);
5523 for (var i = arguments.length-1; i>=2; i--)
5524 v592 = {car: arguments[i], cdr:
5527 return l124.fvalue(values, "(function(){", (function(){
5529 var value = symbol.value;
5530 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5532 })(), l135.fvalue(pv, "var func = ", l137.fvalue(pv, v593), ";", (function(){
5534 var value = symbol.value;
5535 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5537 })(), "var args = [", ((function(){
5539 var value = symbol.value;
5540 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5542 })() !== l3.value ? "values" : "pv"), "];", (function(){
5544 var value = symbol.value;
5545 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5547 })(), "return ", l124.fvalue(pv, "(function(){", (function(){
5549 var value = symbol.value;
5550 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5552 })(), l135.fvalue(pv, "var values = mv;", (function(){
5554 var value = symbol.value;
5555 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5557 })(), "var vs;", (function(){
5559 var value = symbol.value;
5560 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5562 })(), l128.fvalue(pv, (function (values,v594){
5563 checkArgs(arguments, 2);
5564 return l124.fvalue(values, "vs = ", l137.fvalue(pv, v594, l4.value), ";", (function(){
5566 var value = symbol.value;
5567 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5569 })(), "if (typeof vs === 'object' && 'multiple-value' in vs)", (function(){
5571 var value = symbol.value;
5572 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5574 })(), l135.fvalue(pv, "args = args.concat(vs);", (function(){
5576 var value = symbol.value;
5577 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5579 })()), "else", (function(){
5581 var value = symbol.value;
5582 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5584 })(), l135.fvalue(pv, "args.push(vs);", (function(){
5586 var value = symbol.value;
5587 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5590 }), v592), "return func.apply(window, args);", (function(){
5592 var value = symbol.value;
5593 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5595 })()), "})()"), ";", (function(){
5597 var value = symbol.value;
5598 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5602 })), cdr: (function(){
5604 var value = symbol.value;
5605 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5608 var l250 = {name: "MULTIPLE-VALUE-PROG1"};
5609 ((l198).value = ({car: l42.fvalue(pv, l250, (function (values,v596){
5610 checkArgsAtLeast(arguments, 2);
5612 for (var i = arguments.length-1; i>=2; i--)
5613 v595 = {car: arguments[i], cdr:
5616 return l124.fvalue(values, "(function(){", (function(){
5618 var value = symbol.value;
5619 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5621 })(), l135.fvalue(pv, "var args = ", l137.fvalue(pv, v596, (function(){
5623 var value = symbol.value;
5624 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5626 })()), ";", (function(){
5628 var value = symbol.value;
5629 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5631 })(), l214.fvalue(pv, v595), "return args;", (function(){
5633 var value = symbol.value;
5634 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5638 })), cdr: (function(){
5640 var value = symbol.value;
5641 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5644 var l251 = {name: "BACKQUOTE-EXPAND-1"};
5646 (l251).fvalue = (function(v599){
5647 ((v599)["fname"] = "BACKQUOTE-EXPAND-1");
5649 })((function (values,v597){
5650 checkArgs(arguments, 2);
5652 return (((function(){
5654 return (typeof tmp == 'object' && 'name' in tmp);
5655 })()?l4.value: l3.value) !== l3.value ? l42.fvalue(values, l157, v597) : (l43.fvalue(pv, v597) !== l3.value ? v597 : ((((function(){
5657 return tmp === l3.value? l3.value: tmp.car;
5658 })() === l160)?l4.value: l3.value) !== l3.value ? (function(){
5660 return tmp === l3.value? l3.value: tmp.car;
5661 })() : ((((function(){
5663 return tmp === l3.value? l3.value: tmp.car;
5664 })() === l158)?l4.value: l3.value) !== l3.value ? l251.fvalue(values, l251.fvalue(pv, l32.fvalue(pv, v597))) : ({car: l62, cdr: l69.fvalue(pv, (function (values,v598){
5665 checkArgs(arguments, 2);
5666 return ((l57.fvalue(pv, v598) !== l3.value ? (((function(){
5668 return tmp === l3.value? l3.value: tmp.car;
5669 })() === l160)?l4.value: l3.value) : l3.value) !== l3.value ? l42.fvalue(values, l42, l32.fvalue(pv, v598)) : ((l57.fvalue(pv, v598) !== l3.value ? (((function(){
5671 return tmp === l3.value? l3.value: tmp.car;
5672 })() === l159)?l4.value: l3.value) : l3.value) !== l3.value ? l32.fvalue(values, v598) : l42.fvalue(values, l42, l251.fvalue(pv, v598))));
5678 var l252 = {name: "BACKQUOTE-EXPAND"};
5680 (l252).fvalue = (function(v601){
5681 ((v601)["fname"] = "BACKQUOTE-EXPAND");
5683 })((function (values,v600){
5684 checkArgs(arguments, 2);
5686 return ((l57.fvalue(pv, v600) !== l3.value ? (((function(){
5688 return tmp === l3.value? l3.value: tmp.car;
5689 })() === l158)?l4.value: l3.value) : l3.value) !== l3.value ? l251.fvalue(values, l32.fvalue(pv, v600)) : v600);
5695 ((l198).value = ({car: l42.fvalue(pv, l158, (function (values,v602){
5696 checkArgs(arguments, 2);
5698 return l137.fvalue(values, l251.fvalue(pv, v602));
5700 })), cdr: (function(){
5702 var value = symbol.value;
5703 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5706 var l253 = {name: "*BUILTINS*"};
5708 (((l253.value !== undefined)?l4.value: l3.value) !== l3.value ? l3.value : ((l253).value = l3.value));
5711 var l254 = {name: "DEFINE-RAW-BUILTIN"};
5713 var l255 = {name: "DEFINE-BUILTIN"};
5715 var l256 = {name: "TYPE-CHECK"};
5717 var l257 = {name: "VARIABLE-ARITY-CALL"};
5719 (l257).fvalue = (function(v611){
5720 ((v611)["fname"] = "VARIABLE-ARITY-CALL");
5722 })((function (values,v603,v604){
5723 checkArgs(arguments, 3);
5727 return (typeof tmp == 'object' && 'car' in tmp);
5728 })()?l4.value: l3.value) !== l3.value ? l3.value : (function(){
5729 throw "ARGS must be a non-empty list";
5731 return (function(v605,v606,v607){
5733 return (function(v608,v609){
5735 while(v608 !== l3.value){
5736 (v609 = (function(){
5738 return tmp === l3.value? l3.value: tmp.car;
5742 (v606 = ({car: v610, cdr: v606}));
5743 return (v607 = l124.fvalue(pv, v607, l124.fvalue(pv, "var ", v610, " = ", l137.fvalue(pv, v609), ";", (function(){
5745 var value = symbol.value;
5746 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5748 })(), "if (typeof ", v610, " !== 'number') throw 'Not a number!';", (function(){
5750 var value = symbol.value;
5751 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5754 })(l124.fvalue(pv, "x", l16.fvalue(pv, (v605 = (function(){
5756 if (typeof x1 !== 'number') throw 'Not a number!';
5758 if (typeof x2 !== 'number') throw 'Not a number!';
5763 (v608 = (function(){
5765 return tmp === l3.value? l3.value: tmp.cdr;
5772 return l124.fvalue(values, "(function(){", (function(){
5774 var value = symbol.value;
5775 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5777 })(), l135.fvalue(pv, v607, (v604)(pv, l64.fvalue(pv, v606))), "})()");
5783 var l258 = {name: "VARIABLE-ARITY"};
5785 var l259 = {name: "NUM-OP-NUM"};
5787 (l259).fvalue = (function(v615){
5788 ((v615)["fname"] = "NUM-OP-NUM");
5790 })((function (values,v612,v613,v614){
5791 checkArgs(arguments, 4);
5793 return l124.fvalue(values, "(function(){", (function(){
5795 var value = symbol.value;
5796 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5798 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v612, ";", (function(){
5800 var value = symbol.value;
5801 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5803 })()), l124.fvalue(pv, "var ", "y", " = ", v614, ";", (function(){
5805 var value = symbol.value;
5806 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5808 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
5810 var value = symbol.value;
5811 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5813 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
5815 var value = symbol.value;
5816 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5818 })())), l124.fvalue(pv, "if (typeof ", "y", " != '", "number", "')", (function(){
5820 var value = symbol.value;
5821 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5823 })(), l135.fvalue(pv, "throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", (function(){
5825 var value = symbol.value;
5826 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5828 })())), l124.fvalue(pv, "return ", l124.fvalue(pv, "x", v613, "y"), ";", (function(){
5830 var value = symbol.value;
5831 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5838 ((l253).value = ({car: l42.fvalue(pv, l59, (function (values){
5840 for (var i = arguments.length-1; i>=1; i--)
5841 v616 = {car: arguments[i], cdr:
5844 return (l11.fvalue(pv, v616) !== l3.value ? "0" : l257.fvalue(values, v616, (function (values,v617){
5845 checkArgs(arguments, 2);
5846 return l124.fvalue(values, "return ", l126.fvalue(pv, v617, "+"), ";", (function(){
5848 var value = symbol.value;
5849 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5854 })), cdr: (function(){
5856 var value = symbol.value;
5857 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5860 ((l253).value = ({car: l42.fvalue(pv, l60, (function (values,v619){
5861 checkArgsAtLeast(arguments, 2);
5863 for (var i = arguments.length-1; i>=2; i--)
5864 v618 = {car: arguments[i], cdr:
5867 return (function(v620){
5868 return l257.fvalue(values, v620, (function (values,v621){
5869 checkArgs(arguments, 2);
5870 return l124.fvalue(values, "return ", (l11.fvalue(pv, v618) !== l3.value ? l124.fvalue(pv, "-", (function(){
5872 return tmp === l3.value? l3.value: tmp.car;
5873 })()) : l126.fvalue(pv, v621, "-")), ";", (function(){
5875 var value = symbol.value;
5876 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5880 })(({car: v619, cdr: v618}));
5882 })), cdr: (function(){
5884 var value = symbol.value;
5885 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5888 ((l253).value = ({car: l42.fvalue(pv, l19, (function (values){
5890 for (var i = arguments.length-1; i>=1; i--)
5891 v622 = {car: arguments[i], cdr:
5894 return (l11.fvalue(pv, v622) !== l3.value ? "1" : l257.fvalue(values, v622, (function (values,v623){
5895 checkArgs(arguments, 2);
5896 return l124.fvalue(values, "return ", l126.fvalue(pv, v623, "*"), ";", (function(){
5898 var value = symbol.value;
5899 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5904 })), cdr: (function(){
5906 var value = symbol.value;
5907 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5910 ((l253).value = ({car: l42.fvalue(pv, l20, (function (values,v625){
5911 checkArgsAtLeast(arguments, 2);
5913 for (var i = arguments.length-1; i>=2; i--)
5914 v624 = {car: arguments[i], cdr:
5917 return (function(v626){
5918 return l257.fvalue(values, v626, (function (values,v627){
5919 checkArgs(arguments, 2);
5920 return l124.fvalue(values, "return ", (l11.fvalue(pv, v624) !== l3.value ? l124.fvalue(pv, "1 /", (function(){
5922 return tmp === l3.value? l3.value: tmp.car;
5923 })()) : l126.fvalue(pv, v627, "/")), ";", (function(){
5925 var value = symbol.value;
5926 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5930 })(({car: v625, cdr: v624}));
5932 })), cdr: (function(){
5934 var value = symbol.value;
5935 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5938 var l260 = {name: "MOD"};
5939 ((l253).value = ({car: l42.fvalue(pv, l260, (function (values,v628,v629){
5940 checkArgs(arguments, 3);
5942 return (function(v630,v631){
5943 return l259.fvalue(values, v630, "%", v631);
5944 })(l137.fvalue(pv, v628),l137.fvalue(pv, v629));
5946 })), cdr: (function(){
5948 var value = symbol.value;
5949 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5952 var l261 = {name: "COMPARISON-CONJUNTION"};
5954 (l261).fvalue = (function(v634){
5955 ((v634)["fname"] = "COMPARISON-CONJUNTION");
5957 })((function (values,v632,v633){
5958 checkArgs(arguments, 3);
5960 return (l11.fvalue(pv, (function(){
5962 return tmp === l3.value? l3.value: tmp.cdr;
5963 })()) !== l3.value ? "true" : (l11.fvalue(pv, l34.fvalue(pv, v632)) !== l3.value ? l124.fvalue(values, (function(){
5965 return tmp === l3.value? l3.value: tmp.car;
5966 })(), v633, l32.fvalue(pv, v632)) : l124.fvalue(values, (function(){
5968 return tmp === l3.value? l3.value: tmp.car;
5969 })(), v633, l32.fvalue(pv, v632), " && ", l261.fvalue(pv, (function(){
5971 return tmp === l3.value? l3.value: tmp.cdr;
5977 var l262 = {name: "DEFINE-BUILTIN-COMPARISON"};
5979 var l263 = {name: ">"};
5980 ((l253).value = ({car: l42.fvalue(pv, l263, (function (values,v636){
5981 checkArgsAtLeast(arguments, 2);
5983 for (var i = arguments.length-1; i>=2; i--)
5984 v635 = {car: arguments[i], cdr:
5987 return (function(v637){
5988 return l257.fvalue(values, v637, (function (values,v638){
5989 checkArgs(arguments, 2);
5990 return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v638, ">")), ";", (function(){
5992 var value = symbol.value;
5993 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
5997 })(({car: v636, cdr: v635}));
5999 })), cdr: (function(){
6001 var value = symbol.value;
6002 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6005 var l264 = {name: "<"};
6006 ((l253).value = ({car: l42.fvalue(pv, l264, (function (values,v640){
6007 checkArgsAtLeast(arguments, 2);
6009 for (var i = arguments.length-1; i>=2; i--)
6010 v639 = {car: arguments[i], cdr:
6013 return (function(v641){
6014 return l257.fvalue(values, v641, (function (values,v642){
6015 checkArgs(arguments, 2);
6016 return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v642, "<")), ";", (function(){
6018 var value = symbol.value;
6019 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6023 })(({car: v640, cdr: v639}));
6025 })), cdr: (function(){
6027 var value = symbol.value;
6028 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6031 var l265 = {name: ">="};
6032 ((l253).value = ({car: l42.fvalue(pv, l265, (function (values,v644){
6033 checkArgsAtLeast(arguments, 2);
6035 for (var i = arguments.length-1; i>=2; i--)
6036 v643 = {car: arguments[i], cdr:
6039 return (function(v645){
6040 return l257.fvalue(values, v645, (function (values,v646){
6041 checkArgs(arguments, 2);
6042 return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v646, ">=")), ";", (function(){
6044 var value = symbol.value;
6045 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6049 })(({car: v644, cdr: v643}));
6051 })), cdr: (function(){
6053 var value = symbol.value;
6054 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6057 var l266 = {name: "<="};
6058 ((l253).value = ({car: l42.fvalue(pv, l266, (function (values,v648){
6059 checkArgsAtLeast(arguments, 2);
6061 for (var i = arguments.length-1; i>=2; i--)
6062 v647 = {car: arguments[i], cdr:
6065 return (function(v649){
6066 return l257.fvalue(values, v649, (function (values,v650){
6067 checkArgs(arguments, 2);
6068 return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v650, "<=")), ";", (function(){
6070 var value = symbol.value;
6071 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6075 })(({car: v648, cdr: v647}));
6077 })), cdr: (function(){
6079 var value = symbol.value;
6080 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6083 ((l253).value = ({car: l42.fvalue(pv, l18, (function (values,v652){
6084 checkArgsAtLeast(arguments, 2);
6086 for (var i = arguments.length-1; i>=2; i--)
6087 v651 = {car: arguments[i], cdr:
6090 return (function(v653){
6091 return l257.fvalue(values, v653, (function (values,v654){
6092 checkArgs(arguments, 2);
6093 return l124.fvalue(values, "return ", l136.fvalue(pv, l261.fvalue(pv, v654, "==")), ";", (function(){
6095 var value = symbol.value;
6096 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6100 })(({car: v652, cdr: v651}));
6102 })), cdr: (function(){
6104 var value = symbol.value;
6105 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6108 var l267 = {name: "NUMBERP"};
6109 ((l253).value = ({car: l42.fvalue(pv, l267, (function (values,v655){
6110 checkArgs(arguments, 2);
6112 return (function(v656){
6113 return l136.fvalue(values, l124.fvalue(pv, "(typeof (", v656, ") == \"number\")"));
6114 })(l137.fvalue(pv, v655));
6116 })), cdr: (function(){
6118 var value = symbol.value;
6119 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6122 var l268 = {name: "FLOOR"};
6123 ((l253).value = ({car: l42.fvalue(pv, l268, (function (values,v657){
6124 checkArgs(arguments, 2);
6126 return (function(v658){
6127 return l124.fvalue(values, "(function(){", (function(){
6129 var value = symbol.value;
6130 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6132 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v658, ";", (function(){
6134 var value = symbol.value;
6135 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6137 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6139 var value = symbol.value;
6140 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6142 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6144 var value = symbol.value;
6145 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6147 })())), l124.fvalue(pv, "return ", "Math.floor(x)", ";", (function(){
6149 var value = symbol.value;
6150 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6153 })(l137.fvalue(pv, v657));
6155 })), cdr: (function(){
6157 var value = symbol.value;
6158 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6161 ((l253).value = ({car: l42.fvalue(pv, l27, (function (values,v659,v660){
6162 checkArgs(arguments, 3);
6164 return (function(v661,v662){
6165 return l124.fvalue(values, "({car: ", v661, ", cdr: ", v662, "})");
6166 })(l137.fvalue(pv, v659),l137.fvalue(pv, v660));
6168 })), cdr: (function(){
6170 var value = symbol.value;
6171 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6174 ((l253).value = ({car: l42.fvalue(pv, l28, (function (values,v663){
6175 checkArgs(arguments, 2);
6177 return (function(v664){
6178 return l136.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
6180 var value = symbol.value;
6181 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6183 })(), l135.fvalue(pv, "var tmp = ", v664, ";", (function(){
6185 var value = symbol.value;
6186 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6188 })(), "return (typeof tmp == 'object' && 'car' in tmp);", (function(){
6190 var value = symbol.value;
6191 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6194 })(l137.fvalue(pv, v663));
6196 })), cdr: (function(){
6198 var value = symbol.value;
6199 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6202 ((l253).value = ({car: l42.fvalue(pv, l29, (function (values,v665){
6203 checkArgs(arguments, 2);
6205 return (function(v666){
6206 return l124.fvalue(values, "(function(){", (function(){
6208 var value = symbol.value;
6209 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6211 })(), l135.fvalue(pv, "var tmp = ", v666, ";", (function(){
6213 var value = symbol.value;
6214 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6216 })(), "return tmp === ", l137.fvalue(pv, l3.value), "? ", l137.fvalue(pv, l3.value), ": tmp.car;", (function(){
6218 var value = symbol.value;
6219 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6222 })(l137.fvalue(pv, v665));
6224 })), cdr: (function(){
6226 var value = symbol.value;
6227 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6230 ((l253).value = ({car: l42.fvalue(pv, l30, (function (values,v667){
6231 checkArgs(arguments, 2);
6233 return (function(v668){
6234 return l124.fvalue(values, "(function(){", (function(){
6236 var value = symbol.value;
6237 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6239 })(), l135.fvalue(pv, "var tmp = ", v668, ";", (function(){
6241 var value = symbol.value;
6242 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6244 })(), "return tmp === ", l137.fvalue(pv, l3.value), "? ", l137.fvalue(pv, l3.value), ": tmp.cdr;", (function(){
6246 var value = symbol.value;
6247 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6250 })(l137.fvalue(pv, v667));
6252 })), cdr: (function(){
6254 var value = symbol.value;
6255 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6258 var l269 = {name: "SETCAR"};
6259 ((l253).value = ({car: l42.fvalue(pv, l269, (function (values,v669,v670){
6260 checkArgs(arguments, 3);
6262 return (function(v671,v672){
6263 return l124.fvalue(values, "(function(){", (function(){
6265 var value = symbol.value;
6266 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6268 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v671, ";", (function(){
6270 var value = symbol.value;
6271 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6273 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6275 var value = symbol.value;
6276 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6278 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6280 var value = symbol.value;
6281 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6283 })())), l124.fvalue(pv, "return ", l124.fvalue(pv, "(x.car = ", v672, ")"), ";", (function(){
6285 var value = symbol.value;
6286 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6289 })(l137.fvalue(pv, v669),l137.fvalue(pv, v670));
6291 })), cdr: (function(){
6293 var value = symbol.value;
6294 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6297 var l270 = {name: "SETCDR"};
6298 ((l253).value = ({car: l42.fvalue(pv, l270, (function (values,v673,v674){
6299 checkArgs(arguments, 3);
6301 return (function(v675,v676){
6302 return l124.fvalue(values, "(function(){", (function(){
6304 var value = symbol.value;
6305 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6307 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v675, ";", (function(){
6309 var value = symbol.value;
6310 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6312 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "object", "')", (function(){
6314 var value = symbol.value;
6315 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6317 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", (function(){
6319 var value = symbol.value;
6320 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6322 })())), l124.fvalue(pv, "return ", l124.fvalue(pv, "(x.cdr = ", v676, ")"), ";", (function(){
6324 var value = symbol.value;
6325 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6328 })(l137.fvalue(pv, v673),l137.fvalue(pv, v674));
6330 })), cdr: (function(){
6332 var value = symbol.value;
6333 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6336 var l271 = {name: "SYMBOLP"};
6337 ((l253).value = ({car: l42.fvalue(pv, l271, (function (values,v677){
6338 checkArgs(arguments, 2);
6340 return (function(v678){
6341 return l136.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
6343 var value = symbol.value;
6344 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6346 })(), l135.fvalue(pv, "var tmp = ", v678, ";", (function(){
6348 var value = symbol.value;
6349 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6351 })(), "return (typeof tmp == 'object' && 'name' in tmp);", (function(){
6353 var value = symbol.value;
6354 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6357 })(l137.fvalue(pv, v677));
6359 })), cdr: (function(){
6361 var value = symbol.value;
6362 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6365 var l272 = {name: "MAKE-SYMBOL"};
6366 ((l253).value = ({car: l42.fvalue(pv, l272, (function (values,v679){
6367 checkArgs(arguments, 2);
6369 return (function(v680){
6370 return l124.fvalue(values, "(function(){", (function(){
6372 var value = symbol.value;
6373 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6375 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "name", " = ", v680, ";", (function(){
6377 var value = symbol.value;
6378 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6380 })()), l124.fvalue(pv, "if (typeof ", "name", " != '", "string", "')", (function(){
6382 var value = symbol.value;
6383 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6385 })(), l135.fvalue(pv, "throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", (function(){
6387 var value = symbol.value;
6388 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6390 })())), l124.fvalue(pv, "return ", "({name: name})", ";", (function(){
6392 var value = symbol.value;
6393 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6396 })(l137.fvalue(pv, v679));
6398 })), cdr: (function(){
6400 var value = symbol.value;
6401 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6404 var l273 = {name: "SYMBOL-NAME"};
6405 ((l253).value = ({car: l42.fvalue(pv, l273, (function (values,v681){
6406 checkArgs(arguments, 2);
6408 return (function(v682){
6409 return l124.fvalue(values, "(", v682, ").name");
6410 })(l137.fvalue(pv, v681));
6412 })), cdr: (function(){
6414 var value = symbol.value;
6415 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6418 ((l253).value = ({car: l42.fvalue(pv, l216, (function (values,v683,v684){
6419 checkArgs(arguments, 3);
6421 return (function(v685,v686){
6422 return l124.fvalue(values, "(", v685, ").value = ", v686);
6423 })(l137.fvalue(pv, v683),l137.fvalue(pv, v684));
6425 })), cdr: (function(){
6427 var value = symbol.value;
6428 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6431 var l274 = {name: "FSET"};
6432 ((l253).value = ({car: l42.fvalue(pv, l274, (function (values,v687,v688){
6433 checkArgs(arguments, 3);
6435 return (function(v689,v690){
6436 return l124.fvalue(values, "(", v689, ").fvalue = ", v690);
6437 })(l137.fvalue(pv, v687),l137.fvalue(pv, v688));
6439 })), cdr: (function(){
6441 var value = symbol.value;
6442 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6445 ((l253).value = ({car: l42.fvalue(pv, l17, (function (values,v691){
6446 checkArgs(arguments, 2);
6448 return (function(v692){
6449 return l136.fvalue(values, l124.fvalue(pv, "(", v692, ".value !== undefined)"));
6450 })(l137.fvalue(pv, v691));
6452 })), cdr: (function(){
6454 var value = symbol.value;
6455 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6458 var l275 = {name: "SYMBOL-VALUE"};
6459 ((l253).value = ({car: l42.fvalue(pv, l275, (function (values,v693){
6460 checkArgs(arguments, 2);
6462 return (function(v694){
6463 return l124.fvalue(values, "(function(){", (function(){
6465 var value = symbol.value;
6466 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6468 })(), l135.fvalue(pv, "var symbol = ", v694, ";", (function(){
6470 var value = symbol.value;
6471 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6473 })(), "var value = symbol.value;", (function(){
6475 var value = symbol.value;
6476 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6478 })(), "if (value === undefined) throw \"Variable `\" + symbol.name + \"' is unbound.\";", (function(){
6480 var value = symbol.value;
6481 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6483 })(), "return value;", (function(){
6485 var value = symbol.value;
6486 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6489 })(l137.fvalue(pv, v693));
6491 })), cdr: (function(){
6493 var value = symbol.value;
6494 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6497 ((l253).value = ({car: l42.fvalue(pv, l225, (function (values,v695){
6498 checkArgs(arguments, 2);
6500 return (function(v696){
6501 return l124.fvalue(values, "(function(){", (function(){
6503 var value = symbol.value;
6504 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6506 })(), l135.fvalue(pv, "var symbol = ", v696, ";", (function(){
6508 var value = symbol.value;
6509 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6511 })(), "var func = symbol.fvalue;", (function(){
6513 var value = symbol.value;
6514 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6516 })(), "if (func === undefined) throw \"Function `\" + symbol.name + \"' is undefined.\";", (function(){
6518 var value = symbol.value;
6519 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6521 })(), "return func;", (function(){
6523 var value = symbol.value;
6524 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6527 })(l137.fvalue(pv, v695));
6529 })), cdr: (function(){
6531 var value = symbol.value;
6532 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6535 var l276 = {name: "SYMBOL-PLIST"};
6536 ((l253).value = ({car: l42.fvalue(pv, l276, (function (values,v697){
6537 checkArgs(arguments, 2);
6539 return (function(v698){
6540 return l124.fvalue(values, "((", v698, ").plist || ", l137.fvalue(pv, l3.value), ")");
6541 })(l137.fvalue(pv, v697));
6543 })), cdr: (function(){
6545 var value = symbol.value;
6546 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6549 var l277 = {name: "LAMBDA-CODE"};
6550 ((l253).value = ({car: l42.fvalue(pv, l277, (function (values,v699){
6551 checkArgs(arguments, 2);
6553 return (function(v700){
6554 return l124.fvalue(values, "(", v700, ").toString()");
6555 })(l137.fvalue(pv, v699));
6557 })), cdr: (function(){
6559 var value = symbol.value;
6560 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6563 var l278 = {name: "EQ"};
6564 ((l253).value = ({car: l42.fvalue(pv, l278, (function (values,v701,v702){
6565 checkArgs(arguments, 3);
6567 return (function(v703,v704){
6568 return l136.fvalue(values, l124.fvalue(pv, "(", v703, " === ", v704, ")"));
6569 })(l137.fvalue(pv, v701),l137.fvalue(pv, v702));
6571 })), cdr: (function(){
6573 var value = symbol.value;
6574 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6577 var l279 = {name: "EQUAL"};
6578 ((l253).value = ({car: l42.fvalue(pv, l279, (function (values,v705,v706){
6579 checkArgs(arguments, 3);
6581 return (function(v707,v708){
6582 return l136.fvalue(values, l124.fvalue(pv, "(", v707, " == ", v708, ")"));
6583 })(l137.fvalue(pv, v705),l137.fvalue(pv, v706));
6585 })), cdr: (function(){
6587 var value = symbol.value;
6588 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6591 var l280 = {name: "CHAR-TO-STRING"};
6592 ((l253).value = ({car: l42.fvalue(pv, l280, (function (values,v709){
6593 checkArgs(arguments, 2);
6595 return (function(v710){
6596 return l124.fvalue(values, "(function(){", (function(){
6598 var value = symbol.value;
6599 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6601 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v710, ";", (function(){
6603 var value = symbol.value;
6604 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6606 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "number", "')", (function(){
6608 var value = symbol.value;
6609 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6611 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", (function(){
6613 var value = symbol.value;
6614 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6616 })())), l124.fvalue(pv, "return ", "String.fromCharCode(x)", ";", (function(){
6618 var value = symbol.value;
6619 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6622 })(l137.fvalue(pv, v709));
6624 })), cdr: (function(){
6626 var value = symbol.value;
6627 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6630 var l281 = {name: "STRINGP"};
6631 ((l253).value = ({car: l42.fvalue(pv, l281, (function (values,v711){
6632 checkArgs(arguments, 2);
6634 return (function(v712){
6635 return l136.fvalue(values, l124.fvalue(pv, "(typeof(", v712, ") == \"string\")"));
6636 })(l137.fvalue(pv, v711));
6638 })), cdr: (function(){
6640 var value = symbol.value;
6641 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6644 var l282 = {name: "STRING-UPCASE"};
6645 ((l253).value = ({car: l42.fvalue(pv, l282, (function (values,v713){
6646 checkArgs(arguments, 2);
6648 return (function(v714){
6649 return l124.fvalue(values, "(function(){", (function(){
6651 var value = symbol.value;
6652 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6654 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v714, ";", (function(){
6656 var value = symbol.value;
6657 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6659 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6661 var value = symbol.value;
6662 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6664 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6666 var value = symbol.value;
6667 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6669 })())), l124.fvalue(pv, "return ", "x.toUpperCase()", ";", (function(){
6671 var value = symbol.value;
6672 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6675 })(l137.fvalue(pv, v713));
6677 })), cdr: (function(){
6679 var value = symbol.value;
6680 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6683 var l283 = {name: "STRING-LENGTH"};
6684 ((l253).value = ({car: l42.fvalue(pv, l283, (function (values,v715){
6685 checkArgs(arguments, 2);
6687 return (function(v716){
6688 return l124.fvalue(values, "(function(){", (function(){
6690 var value = symbol.value;
6691 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6693 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v716, ";", (function(){
6695 var value = symbol.value;
6696 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6698 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
6700 var value = symbol.value;
6701 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6703 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
6705 var value = symbol.value;
6706 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6708 })())), l124.fvalue(pv, "return ", "x.length", ";", (function(){
6710 var value = symbol.value;
6711 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6714 })(l137.fvalue(pv, v715));
6716 })), cdr: (function(){
6718 var value = symbol.value;
6719 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6722 var l284 = {name: "SLICE"};
6723 ((l253).value = ({car: l42.fvalue(pv, l284, (function (values,v717,v718,v719){
6724 checkArgsAtLeast(arguments, 3);
6725 checkArgsAtMost(arguments, 4);
6726 switch(arguments.length-1){
6732 return l124.fvalue(values, "(function(){", (function(){
6734 var value = symbol.value;
6735 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6737 })(), l135.fvalue(pv, "var str = ", l137.fvalue(pv, v717), ";", (function(){
6739 var value = symbol.value;
6740 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6742 })(), "var a = ", l137.fvalue(pv, v718), ";", (function(){
6744 var value = symbol.value;
6745 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6747 })(), "var b;", (function(){
6749 var value = symbol.value;
6750 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6752 })(), (v719 !== l3.value ? l124.fvalue(pv, "b = ", l137.fvalue(pv, v719), ";", (function(){
6754 var value = symbol.value;
6755 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6757 })()) : ""), "return str.slice(a,b);", (function(){
6759 var value = symbol.value;
6760 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6764 })), cdr: (function(){
6766 var value = symbol.value;
6767 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6770 var l285 = {name: "CHAR"};
6771 ((l253).value = ({car: l42.fvalue(pv, l285, (function (values,v720,v721){
6772 checkArgs(arguments, 3);
6774 return (function(v722,v723){
6775 return l124.fvalue(values, "(function(){", (function(){
6777 var value = symbol.value;
6778 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6780 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "string", " = ", v722, ";", (function(){
6782 var value = symbol.value;
6783 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6785 })()), l124.fvalue(pv, "var ", "index", " = ", v723, ";", (function(){
6787 var value = symbol.value;
6788 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6790 })()), l124.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
6792 var value = symbol.value;
6793 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6795 })(), l135.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
6797 var value = symbol.value;
6798 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6800 })())), l124.fvalue(pv, "if (typeof ", "index", " != '", "number", "')", (function(){
6802 var value = symbol.value;
6803 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6805 })(), l135.fvalue(pv, "throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", (function(){
6807 var value = symbol.value;
6808 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6810 })())), l124.fvalue(pv, "return ", "string.charCodeAt(index)", ";", (function(){
6812 var value = symbol.value;
6813 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6816 })(l137.fvalue(pv, v720),l137.fvalue(pv, v721));
6818 })), cdr: (function(){
6820 var value = symbol.value;
6821 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6824 ((l253).value = ({car: l42.fvalue(pv, l68, (function (values,v724,v725){
6825 checkArgs(arguments, 3);
6827 return (function(v726,v727){
6828 return l124.fvalue(values, "(function(){", (function(){
6830 var value = symbol.value;
6831 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6833 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "string1", " = ", v726, ";", (function(){
6835 var value = symbol.value;
6836 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6838 })()), l124.fvalue(pv, "var ", "string2", " = ", v727, ";", (function(){
6840 var value = symbol.value;
6841 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6843 })()), l124.fvalue(pv, "if (typeof ", "string1", " != '", "string", "')", (function(){
6845 var value = symbol.value;
6846 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6848 })(), l135.fvalue(pv, "throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", (function(){
6850 var value = symbol.value;
6851 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6853 })())), l124.fvalue(pv, "if (typeof ", "string2", " != '", "string", "')", (function(){
6855 var value = symbol.value;
6856 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6858 })(), l135.fvalue(pv, "throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", (function(){
6860 var value = symbol.value;
6861 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6863 })())), l124.fvalue(pv, "return ", "string1.concat(string2)", ";", (function(){
6865 var value = symbol.value;
6866 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6869 })(l137.fvalue(pv, v724),l137.fvalue(pv, v725));
6871 })), cdr: (function(){
6873 var value = symbol.value;
6874 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6877 var l286 = {name: "FUNCALL"};
6878 ((l253).value = ({car: l42.fvalue(pv, l286, (function (values,v729){
6879 checkArgsAtLeast(arguments, 2);
6881 for (var i = arguments.length-1; i>=2; i--)
6882 v728 = {car: arguments[i], cdr:
6885 return l124.fvalue(values, "(", l137.fvalue(pv, v729), ")(", l126.fvalue(pv, ({car: ((function(){
6887 var value = symbol.value;
6888 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6890 })() !== l3.value ? "values" : "pv"), cdr: l69.fvalue(pv, (function(){
6892 var func = symbol.fvalue;
6893 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
6895 })(), v728)}), ", "), ")");
6897 })), cdr: (function(){
6899 var value = symbol.value;
6900 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6903 var l287 = {name: "APPLY"};
6904 ((l253).value = ({car: l42.fvalue(pv, l287, (function (values,v731){
6905 checkArgsAtLeast(arguments, 2);
6907 for (var i = arguments.length-1; i>=2; i--)
6908 v730 = {car: arguments[i], cdr:
6911 return (l11.fvalue(pv, v730) !== l3.value ? l124.fvalue(values, "(", l137.fvalue(pv, v731), ")()") : (function(v732,v733){
6912 return l124.fvalue(values, "(function(){", (function(){
6914 var value = symbol.value;
6915 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6917 })(), l135.fvalue(pv, "var f = ", l137.fvalue(pv, v731), ";", (function(){
6919 var value = symbol.value;
6920 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6922 })(), "var args = [", l126.fvalue(pv, ({car: ((function(){
6924 var value = symbol.value;
6925 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6927 })() !== l3.value ? "values" : "pv"), cdr: l69.fvalue(pv, (function(){
6929 var func = symbol.fvalue;
6930 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
6932 })(), v732)}), ", "), "];", (function(){
6934 var value = symbol.value;
6935 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6937 })(), "var tail = (", l137.fvalue(pv, v733), ");", (function(){
6939 var value = symbol.value;
6940 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6942 })(), "while (tail != ", l137.fvalue(pv, l3.value), "){", (function(){
6944 var value = symbol.value;
6945 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6947 })(), " args.push(tail.car);", (function(){
6949 var value = symbol.value;
6950 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6952 })(), " tail = tail.cdr;", (function(){
6954 var value = symbol.value;
6955 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6957 })(), "}", (function(){
6959 var value = symbol.value;
6960 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6962 })(), "return f.apply(this, args);", (function(){
6964 var value = symbol.value;
6965 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6968 })(l81.fvalue(pv, v730),(function(){
6969 var tmp = l80.fvalue(pv, v730);
6970 return tmp === l3.value? l3.value: tmp.car;
6973 })), cdr: (function(){
6975 var value = symbol.value;
6976 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6979 var l288 = {name: "JS-EVAL"};
6980 ((l253).value = ({car: l42.fvalue(pv, l288, (function (values,v734){
6981 checkArgs(arguments, 2);
6983 return (function(v735){
6984 return l124.fvalue(values, "(function(){", (function(){
6986 var value = symbol.value;
6987 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6989 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "string", " = ", v735, ";", (function(){
6991 var value = symbol.value;
6992 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6994 })()), l124.fvalue(pv, "if (typeof ", "string", " != '", "string", "')", (function(){
6996 var value = symbol.value;
6997 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
6999 })(), l135.fvalue(pv, "throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", (function(){
7001 var value = symbol.value;
7002 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7004 })())), l124.fvalue(pv, "return ", ((function(){
7006 var value = symbol.value;
7007 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7009 })() !== l3.value ? l124.fvalue(pv, "(function(){", (function(){
7011 var value = symbol.value;
7012 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7014 })(), l135.fvalue(pv, "var v = eval.apply(window, [string]);", (function(){
7016 var value = symbol.value;
7017 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7019 })(), "if (typeof v !== 'object' || !('multiple-value' in v)){", (function(){
7021 var value = symbol.value;
7022 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7024 })(), l135.fvalue(pv, "v = [v];", (function(){
7026 var value = symbol.value;
7027 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7029 })(), "v['multiple-value'] = true;", (function(){
7031 var value = symbol.value;
7032 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7034 })()), "}", (function(){
7036 var value = symbol.value;
7037 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7039 })(), "return values.apply(this, v);", (function(){
7041 var value = symbol.value;
7042 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7044 })()), "})()") : "eval.apply(window, [string])"), ";", (function(){
7046 var value = symbol.value;
7047 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7050 })(l137.fvalue(pv, v734));
7052 })), cdr: (function(){
7054 var value = symbol.value;
7055 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7058 var l289 = {name: "ERROR"};
7059 ((l253).value = ({car: l42.fvalue(pv, l289, (function (values,v736){
7060 checkArgs(arguments, 2);
7062 return (function(v737){
7063 return l124.fvalue(values, "(function(){", (function(){
7065 var value = symbol.value;
7066 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7068 })(), l135.fvalue(pv, "throw ", v737, ";", (function(){
7070 var value = symbol.value;
7071 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7074 })(l137.fvalue(pv, v736));
7076 })), cdr: (function(){
7078 var value = symbol.value;
7079 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7082 var l290 = {name: "NEW"};
7083 ((l253).value = ({car: l42.fvalue(pv, l290, (function (values){
7084 checkArgsAtMost(arguments, 1);
7090 })), cdr: (function(){
7092 var value = symbol.value;
7093 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7096 var l291 = {name: "OBJECTP"};
7097 ((l253).value = ({car: l42.fvalue(pv, l291, (function (values,v738){
7098 checkArgs(arguments, 2);
7100 return (function(v739){
7101 return l136.fvalue(values, l124.fvalue(pv, "(typeof (", v739, ") === 'object')"));
7102 })(l137.fvalue(pv, v738));
7104 })), cdr: (function(){
7106 var value = symbol.value;
7107 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7110 var l292 = {name: "OGET"};
7111 ((l253).value = ({car: l42.fvalue(pv, l292, (function (values,v740,v741){
7112 checkArgs(arguments, 3);
7114 return (function(v742,v743){
7115 return l124.fvalue(values, "(function(){", (function(){
7117 var value = symbol.value;
7118 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7120 })(), l135.fvalue(pv, "var tmp = ", "(", v742, ")[", v743, "];", (function(){
7122 var value = symbol.value;
7123 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7125 })(), "return tmp == undefined? ", l137.fvalue(pv, l3.value), ": tmp ;", (function(){
7127 var value = symbol.value;
7128 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7131 })(l137.fvalue(pv, v740),l137.fvalue(pv, v741));
7133 })), cdr: (function(){
7135 var value = symbol.value;
7136 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7139 var l293 = {name: "OSET"};
7140 ((l253).value = ({car: l42.fvalue(pv, l293, (function (values,v744,v745,v746){
7141 checkArgs(arguments, 4);
7143 return (function(v747,v748,v749){
7144 return l124.fvalue(values, "((", v747, ")[", v748, "] = ", v749, ")");
7145 })(l137.fvalue(pv, v744),l137.fvalue(pv, v745),l137.fvalue(pv, v746));
7147 })), cdr: (function(){
7149 var value = symbol.value;
7150 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7153 var l294 = {name: "IN"};
7154 ((l253).value = ({car: l42.fvalue(pv, l294, (function (values,v750,v751){
7155 checkArgs(arguments, 3);
7157 return (function(v752,v753){
7158 return l136.fvalue(values, l124.fvalue(pv, "((", v752, ") in (", v753, "))"));
7159 })(l137.fvalue(pv, v750),l137.fvalue(pv, v751));
7161 })), cdr: (function(){
7163 var value = symbol.value;
7164 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7167 var l295 = {name: "FUNCTIONP"};
7168 ((l253).value = ({car: l42.fvalue(pv, l295, (function (values,v754){
7169 checkArgs(arguments, 2);
7171 return (function(v755){
7172 return l136.fvalue(values, l124.fvalue(pv, "(typeof ", v755, " == 'function')"));
7173 })(l137.fvalue(pv, v754));
7175 })), cdr: (function(){
7177 var value = symbol.value;
7178 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7181 var l296 = {name: "WRITE-STRING"};
7182 ((l253).value = ({car: l42.fvalue(pv, l296, (function (values,v756){
7183 checkArgs(arguments, 2);
7185 return (function(v757){
7186 return l124.fvalue(values, "(function(){", (function(){
7188 var value = symbol.value;
7189 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7191 })(), l135.fvalue(pv, l124.fvalue(pv, "var ", "x", " = ", v757, ";", (function(){
7193 var value = symbol.value;
7194 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7196 })()), l124.fvalue(pv, "if (typeof ", "x", " != '", "string", "')", (function(){
7198 var value = symbol.value;
7199 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7201 })(), l135.fvalue(pv, "throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", (function(){
7203 var value = symbol.value;
7204 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7206 })())), l124.fvalue(pv, "return ", "lisp.write(x)", ";", (function(){
7208 var value = symbol.value;
7209 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7212 })(l137.fvalue(pv, v756));
7214 })), cdr: (function(){
7216 var value = symbol.value;
7217 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7220 var l297 = {name: "MAKE-ARRAY"};
7221 ((l253).value = ({car: l42.fvalue(pv, l297, (function (values,v758){
7222 checkArgs(arguments, 2);
7224 return (function(v759){
7225 return l124.fvalue(values, "(function(){", (function(){
7227 var value = symbol.value;
7228 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7230 })(), l135.fvalue(pv, "var r = [];", (function(){
7232 var value = symbol.value;
7233 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7235 })(), "for (var i = 0; i < ", v759, "; i++)", (function(){
7237 var value = symbol.value;
7238 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7240 })(), l135.fvalue(pv, "r.push(", l137.fvalue(pv, l3.value), ");", (function(){
7242 var value = symbol.value;
7243 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7245 })()), "return r;", (function(){
7247 var value = symbol.value;
7248 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7251 })(l137.fvalue(pv, v758));
7253 })), cdr: (function(){
7255 var value = symbol.value;
7256 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7259 var l298 = {name: "ARRAYP"};
7260 ((l253).value = ({car: l42.fvalue(pv, l298, (function (values,v760){
7261 checkArgs(arguments, 2);
7263 return (function(v761){
7264 return l136.fvalue(values, l124.fvalue(pv, "(function(){", (function(){
7266 var value = symbol.value;
7267 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7269 })(), l135.fvalue(pv, "var x = ", v761, ";", (function(){
7271 var value = symbol.value;
7272 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7274 })(), "return typeof x === 'object' && 'length' in x;"), "})()"));
7275 })(l137.fvalue(pv, v760));
7277 })), cdr: (function(){
7279 var value = symbol.value;
7280 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7283 var l299 = {name: "AREF"};
7284 ((l253).value = ({car: l42.fvalue(pv, l299, (function (values,v762,v763){
7285 checkArgs(arguments, 3);
7287 return (function(v764,v765){
7288 return l124.fvalue(values, "(function(){", (function(){
7290 var value = symbol.value;
7291 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7293 })(), l135.fvalue(pv, "var x = ", "(", v764, ")[", v765, "];", (function(){
7295 var value = symbol.value;
7296 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7298 })(), "if (x === undefined) throw 'Out of range';", (function(){
7300 var value = symbol.value;
7301 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7303 })(), "return x;", (function(){
7305 var value = symbol.value;
7306 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7309 })(l137.fvalue(pv, v762),l137.fvalue(pv, v763));
7311 })), cdr: (function(){
7313 var value = symbol.value;
7314 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7317 var l300 = {name: "ASET"};
7318 ((l253).value = ({car: l42.fvalue(pv, l300, (function (values,v766,v767,v768){
7319 checkArgs(arguments, 4);
7321 return (function(v769,v770,v771){
7322 return l124.fvalue(values, "(function(){", (function(){
7324 var value = symbol.value;
7325 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7327 })(), l135.fvalue(pv, "var x = ", v769, ";", (function(){
7329 var value = symbol.value;
7330 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7332 })(), "var i = ", v770, ";", (function(){
7334 var value = symbol.value;
7335 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7337 })(), "if (i < 0 || i >= x.length) throw 'Out of range';", (function(){
7339 var value = symbol.value;
7340 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7342 })(), "return x[i] = ", v771, ";", (function(){
7344 var value = symbol.value;
7345 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7348 })(l137.fvalue(pv, v766),l137.fvalue(pv, v767),l137.fvalue(pv, v768));
7350 })), cdr: (function(){
7352 var value = symbol.value;
7353 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7356 var l301 = {name: "GET-UNIX-TIME"};
7357 ((l253).value = ({car: l42.fvalue(pv, l301, (function (values){
7358 checkArgsAtMost(arguments, 1);
7361 return l124.fvalue(values, "(Math.round(new Date() / 1000))");
7364 })), cdr: (function(){
7366 var value = symbol.value;
7367 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7370 var l302 = {name: "VALUES-ARRAY"};
7371 ((l253).value = ({car: l42.fvalue(pv, l302, (function (values,v772){
7372 checkArgs(arguments, 2);
7374 return (function(v773){
7375 return ((function(){
7377 var value = symbol.value;
7378 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7380 })() !== l3.value ? l124.fvalue(values, "values.apply(this, ", v773, ")") : l124.fvalue(values, "pv.apply(this, ", v773, ")"));
7381 })(l137.fvalue(pv, v772));
7383 })), cdr: (function(){
7385 var value = symbol.value;
7386 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7389 ((l253).value = ({car: l42.fvalue(pv, l132, (function (values){
7391 for (var i = arguments.length-1; i>=1; i--)
7392 v774 = {car: arguments[i], cdr:
7395 return ((function(){
7397 var value = symbol.value;
7398 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7400 })() !== l3.value ? l124.fvalue(values, "values(", l126.fvalue(pv, l69.fvalue(pv, (function(){
7402 var func = symbol.fvalue;
7403 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7405 })(), v774), ", "), ")") : l124.fvalue(values, "pv(", l126.fvalue(pv, l69.fvalue(pv, (function(){
7407 var func = symbol.fvalue;
7408 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7410 })(), v774), ", "), ")"));
7412 })), cdr: (function(){
7414 var value = symbol.value;
7415 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7419 (l190).fvalue = (function(v777){
7420 ((v777)["fname"] = "MACRO");
7422 })((function (values,v775){
7423 checkArgs(arguments, 2);
7425 return (((function(){
7427 return (typeof tmp == 'object' && 'name' in tmp);
7428 })()?l4.value: l3.value) !== l3.value ? (function(v776){
7429 return (((l166.fvalue(pv, v776) === l190)?l4.value: l3.value) !== l3.value ? v776 : l3.value);
7430 })(l178.fvalue(pv, v775, (function(){
7432 var value = symbol.value;
7433 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7435 })(), l98)) : l3.value);
7440 var l303 = {name: "LS-MACROEXPAND-1"};
7442 (l303).fvalue = (function(v782){
7443 ((v782)["fname"] = "LS-MACROEXPAND-1");
7445 })((function (values,v778){
7446 checkArgs(arguments, 2);
7448 return (function(v779){
7449 return (v779 !== l3.value ? (function(v780){
7450 (l57.fvalue(pv, v780) !== l3.value ? (function(v781){
7451 l169.fvalue(pv, v779, v781);
7452 return (v780 = v781);
7453 })(l227.fvalue(pv, v780)) : l3.value);
7456 var args = [values];
7457 var tail = ((function(){
7459 return tmp === l3.value? l3.value: tmp.cdr;
7461 while (tail != l3.value){
7462 args.push(tail.car);
7465 return f.apply(this, args);
7467 })(l167.fvalue(pv, v779)) : v778);
7468 })(l190.fvalue(pv, (function(){
7470 return tmp === l3.value? l3.value: tmp.car;
7476 var l304 = {name: "COMPILE-FUNCALL"};
7477 var l305 = {name: "G764"};
7479 (l304).fvalue = (function(v786){
7480 ((v786)["fname"] = "COMPILE-FUNCALL");
7482 })((function (values,v783,v784){
7483 checkArgs(arguments, 3);
7485 return (function(v785){
7486 return ((((function(){
7488 return (typeof tmp == 'object' && 'name' in tmp);
7489 })()?l4.value: l3.value) !== l3.value ? (((l114.fvalue(pv, v783) === l105.fvalue(pv, "COMMON-LISP"))?l4.value: l3.value) !== l3.value ? (function(){
7491 var value = symbol.value;
7492 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7494 })() : l3.value) : l3.value) !== l3.value ? l124.fvalue(values, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v783))), ".fvalue(", l126.fvalue(pv, ({car: v785, cdr: l69.fvalue(pv, (function(){
7496 var func = symbol.fvalue;
7497 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7499 })(), v784)}), ", "), ")") : l124.fvalue(values, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l98), l42.fvalue(pv, v783))), "(", l126.fvalue(pv, ({car: v785, cdr: l69.fvalue(pv, (function(){
7501 var func = symbol.fvalue;
7502 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7504 })(), v784)}), ", "), ")"));
7507 var value = symbol.value;
7508 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7510 })() !== l3.value ? "values" : "pv"));
7516 (l214).fvalue = (function(v789){
7517 ((v789)["fname"] = "LS-COMPILE-BLOCK");
7519 })((function (values,v787,v788){
7520 checkArgsAtLeast(arguments, 2);
7521 checkArgsAtMost(arguments, 3);
7522 switch(arguments.length-1){
7528 return (v788 !== l3.value ? l124.fvalue(values, l214.fvalue(pv, l81.fvalue(pv, v787)), "return ", l137.fvalue(pv, (function(){
7529 var tmp = l80.fvalue(pv, v787);
7530 return tmp === l3.value? l3.value: tmp.car;
7533 var value = symbol.value;
7534 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7536 })()), ";") : l127.fvalue(values, l84.fvalue(pv, (function(){
7538 var func = symbol.fvalue;
7539 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7541 })(), l69.fvalue(pv, (function(){
7543 var func = symbol.fvalue;
7544 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7546 })(), v787)), l124.fvalue(pv, ";", (function(){
7548 var value = symbol.value;
7549 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7557 (l137).fvalue = (function(v799){
7558 ((v799)["fname"] = "LS-COMPILE");
7560 })((function (values,v790,v791){
7561 checkArgsAtLeast(arguments, 2);
7562 checkArgsAtMost(arguments, 3);
7563 switch(arguments.length-1){
7569 return (function(v792){
7575 return (((function(){
7577 return (typeof tmp == 'object' && 'name' in tmp);
7578 })()?l4.value: l3.value) !== l3.value ? (function(v793){
7579 return ((v793 !== l3.value ? l26.fvalue(pv, l82.fvalue(pv, l194, l168.fvalue(pv, v793))) : l3.value) !== l3.value ? l167.fvalue(values, v793) : ((function(v794){
7580 return (v794 !== l3.value ? v794 : l82.fvalue(pv, l196, l168.fvalue(pv, v793)));
7581 })(l113.fvalue(pv, v790)) !== l3.value ? l124.fvalue(values, l137.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v790))), ".value") : l137.fvalue(values, l62.fvalue(pv, l42.fvalue(pv, l275), l42.fvalue(pv, l62.fvalue(pv, l42.fvalue(pv, l157), l42.fvalue(pv, v790)))))));
7582 })(l178.fvalue(pv, v790, (function(){
7584 var value = symbol.value;
7585 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7587 })(), l99)) : (l75.fvalue(pv, v790) !== l3.value ? l16.fvalue(values, v790) : (((typeof(v790) == "string")?l4.value: l3.value) !== l3.value ? l124.fvalue(values, "\"", l140.fvalue(pv, v790), "\"") : (((function(){
7589 return typeof x === 'object' && 'length' in x;
7590 })()?l4.value: l3.value) !== l3.value ? l223.fvalue(values, v790) : (l57.fvalue(pv, v790) !== l3.value ? (function(v795,v796){
7591 return (l91.fvalue(pv, v795, (function(){
7593 var value = symbol.value;
7594 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7596 })()) !== l3.value ? (function(v797){
7599 var args = [values];
7601 while (tail != l3.value){
7602 args.push(tail.car);
7605 return f.apply(this, args);
7607 })(l39.fvalue(pv, l91.fvalue(pv, v795, (function(){
7609 var value = symbol.value;
7610 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7612 })()))) : ((l91.fvalue(pv, v795, (function(){
7614 var value = symbol.value;
7615 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7617 })()) !== l3.value ? l26.fvalue(pv, l192.fvalue(pv, v795, l98, l195)) : l3.value) !== l3.value ? (function(v798){
7620 var args = [values];
7622 while (tail != l3.value){
7623 args.push(tail.car);
7626 return f.apply(this, args);
7628 })(l39.fvalue(pv, l91.fvalue(pv, v795, (function(){
7630 var value = symbol.value;
7631 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7633 })()))) : (l190.fvalue(pv, v795) !== l3.value ? l137.fvalue(values, l303.fvalue(pv, v790), v791) : l304.fvalue(values, v795, v796))));
7636 return tmp === l3.value? l3.value: tmp.car;
7639 return tmp === l3.value? l3.value: tmp.cdr;
7640 })()) : (function(){
7641 throw "How should I compile this?";
7652 var l306 = {name: "LS-COMPILE-TOPLEVEL"};
7654 (l306).fvalue = (function(v806){
7655 ((v806)["fname"] = "LS-COMPILE-TOPLEVEL");
7657 })((function (values,v800,v801){
7658 checkArgsAtLeast(arguments, 2);
7659 checkArgsAtMost(arguments, 3);
7660 switch(arguments.length-1){
7666 return (function(v802){
7672 return ((((function(){
7674 return (typeof tmp == 'object' && 'car' in tmp);
7675 })()?l4.value: l3.value) !== l3.value ? (((function(){
7677 return tmp === l3.value? l3.value: tmp.car;
7678 })() === l228)?l4.value: l3.value) : l3.value) !== l3.value ? (function(v804){
7679 return l126.fvalue(values, l84.fvalue(pv, (function(){
7681 var func = symbol.fvalue;
7682 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7685 })(l69.fvalue(pv, (function (values,v803){
7686 checkArgs(arguments, 2);
7687 return l306.fvalue(values, v803, l4.value);
7690 return tmp === l3.value? l3.value: tmp.cdr;
7691 })())) : (function(v805){
7692 return l124.fvalue(values, l127.fvalue(pv, l188.fvalue(pv), l124.fvalue(pv, ";", (function(){
7694 var value = symbol.value;
7695 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7697 })())), (v805 !== l3.value ? l124.fvalue(pv, v805, ";", (function(){
7699 var value = symbol.value;
7700 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7703 })(l137.fvalue(pv, v800, v801)));
7714 (l227).fvalue = (function(v808){
7715 ((v808)["fname"] = "EVAL");
7717 })((function (values,v807){
7718 checkArgs(arguments, 2);
7721 var string = l306.fvalue(pv, v807, l4.value);
7722 if (typeof string != 'string')
7723 throw 'The value ' + string + ' is not a type string.';
7725 var v = eval.apply(window, [string]);
7726 if (typeof v !== 'object' || !('multiple-value' in v)){
7728 v['multiple-value'] = true;
7730 return values.apply(this, v);
7737 var l307 = {name: "&BODY"};
7738 var l308 = QIList(l203,l202,l307,l19,l14,l115,l59,l60,l20,l21,l22,l264,l266,l18,l18,l263,l265,l52,l62,l287,l299,l298,l300,l91,l43,l175,l17,l17,l81,l31,l37,l35,l32,l29,l29,l50,l240,l33,l36,l34,l30,l30,l285,l73,l74,l72,l49,l27,l28,l71,l45,l2,l8,l10,l1,l7,l86,l95,l97,l47,l48,l51,l278,l25,l279,l289,l227,l90,l121,l94,l105,l119,l38,l41,l274,l286,l98,l295,l15,l122,l247,l70,l200,l116,l44,l75,l75,l120,l113,l213,l80,l67,l232,l236,l101,l42,l57,l297,l102,l272,l69,l82,l77,l260,l133,l249,l134,l250,l3,l26,l79,l78,l11,l267,l53,l106,l108,l104,l76,l139,l142,l197,l54,l55,l228,l65,l46,l157,l83,l84,l85,l12,l239,l63,l64,l39,l216,l217,l89,l282,l92,l93,l281,l87,l225,l273,l114,l276,l275,l271,l4,l246,l40,l241,l24,l6,l248,l132,l131,l99,l141,l5,l96,l296,l23,l3);
7739 l121.fvalue(values, l308);
7740 ((l115).value = (function(){
7742 var value = symbol.value;
7743 if (value === undefined) throw "Variable `" + symbol.name + "' is unbound.";
7747 var string = "var lisp";
7748 if (typeof string != 'string')
7749 throw 'The value ' + string + ' is not a type string.';
7751 var v = eval.apply(window, [string]);
7752 if (typeof v !== 'object' || !('multiple-value' in v)){
7754 v['multiple-value'] = true;
7756 return values.apply(this, v);
7760 (lisp.read = (function(){
7762 var func = symbol.fvalue;
7763 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7766 (lisp.print = (function(){
7768 var func = symbol.fvalue;
7769 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7772 (lisp.eval = (function(){
7774 var func = symbol.fvalue;
7775 if (func === undefined) throw "Function `" + symbol.name + "' is undefined.";
7778 (lisp.compile = (function (values,v809){
7779 checkArgs(arguments, 2);
7780 return l306.fvalue(values, v809, l4.value);
7782 (lisp.evalString = (function (values,v810){
7783 checkArgs(arguments, 2);
7784 return l227.fvalue(values, l161.fvalue(pv, v810));
7786 (lisp.compileString = (function (values,v811){
7787 checkArgs(arguments, 2);
7788 return l306.fvalue(values, l161.fvalue(pv, v811), l4.value);
7790 var l309 = QIList(QIList(l307,"l307"),QIList(l306,"l306"),QIList(l305,"l305"),QIList(l304,"l304"),QIList(l303,"l303"),QIList(l302,"l302"),QIList(l301,"l301"),QIList(l300,"l300"),QIList(l299,"l299"),QIList(l298,"l298"),QIList(l297,"l297"),QIList(l296,"l296"),QIList(l295,"l295"),QIList(l294,"l294"),QIList(l293,"l293"),QIList(l292,"l292"),QIList(l291,"l291"),QIList(l290,"l290"),QIList(l289,"l289"),QIList(l288,"l288"),QIList(l287,"l287"),QIList(l286,"l286"),QIList(l285,"l285"),QIList(l284,"l284"),QIList(l283,"l283"),QIList(l282,"l282"),QIList(l281,"l281"),QIList(l280,"l280"),QIList(l279,"l279"),QIList(l278,"l278"),QIList(l277,"l277"),QIList(l276,"l276"),QIList(l275,"l275"),QIList(l274,"l274"),QIList(l273,"l273"),QIList(l272,"l272"),QIList(l271,"l271"),QIList(l270,"l270"),QIList(l269,"l269"),QIList(l268,"l268"),QIList(l267,"l267"),QIList(l266,"l266"),QIList(l265,"l265"),QIList(l264,"l264"),QIList(l263,"l263"),QIList(l262,"l262"),QIList(l261,"l261"),QIList(l260,"l260"),QIList(l259,"l259"),QIList(l258,"l258"),QIList(l257,"l257"),QIList(l256,"l256"),QIList(l255,"l255"),QIList(l254,"l254"),QIList(l253,"l253"),QIList(l252,"l252"),QIList(l251,"l251"),QIList(l250,"l250"),QIList(l249,"l249"),QIList(l248,"l248"),QIList(l247,"l247"),QIList(l246,"l246"),QIList(l245,"l245"),QIList(l244,"l244"),QIList(l243,"l243"),QIList(l242,"l242"),QIList(l241,"l241"),QIList(l240,"l240"),QIList(l239,"l239"),QIList(l238,"l238"),QIList(l237,"l237"),QIList(l236,"l236"),QIList(l235,"l235"),QIList(l234,"l234"),QIList(l233,"l233"),QIList(l232,"l232"),QIList(l231,"l231"),QIList(l230,"l230"),QIList(l229,"l229"),QIList(l228,"l228"),QIList(l227,"l227"),QIList(l226,"l226"),QIList(l225,"l225"),QIList(l224,"l224"),QIList(l223,"l223"),QIList(l222,"l222"),QIList(l221,"l221"),QIList(l220,"l220"),QIList(l219,"l219"),QIList(l218,"l218"),QIList(l217,"l217"),QIList(l216,"l216"),QIList(l215,"l215"),QIList(l214,"l214"),QIList(l213,"l213"),QIList(l212,"l212"),QIList(l211,"l211"),QIList(l210,"l210"),QIList(l209,"l209"),QIList(l208,"l208"),QIList(l207,"l207"),QIList(l206,"l206"),QIList(l205,"l205"),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);
7791 var l310 = {name: "OP"};
7792 var l311 = {name: "SYM"};
7793 var l312 = {name: "X"};
7794 var l313 = {name: "ARGS"};
7795 var l314 = {name: "BODY"};
7796 var l315 = {name: "DECLS"};
7797 var l316 = {name: "DECL"};
7798 var l317 = {name: "NAME"};
7799 var l318 = {name: "ARG"};
7800 var l319 = {name: "FORM"};
7801 var l320 = {name: "VALUE-FROM"};
7802 var l321 = {name: "VARIABLES"};
7803 var l322 = {name: "PACKAGE-DESIGNATOR"};
7804 var l323 = {name: "PAIRS"};
7805 var l324 = {name: "ASSIGNMENTS"};
7806 var l325 = {name: "VALUE"};
7807 var l326 = {name: "FORM1"};
7808 var l327 = {name: "RESULT"};
7809 var l328 = {name: "FORMS"};
7810 var l329 = {name: "G"};
7811 var l330 = {name: "CLAUSULES"};
7812 var l331 = {name: "!FORM"};
7813 var l332 = {name: "CLAUSULE"};
7814 var l333 = {name: "ITER"};
7815 var l334 = {name: "G!TO"};
7816 var l335 = {name: "VAR"};
7817 var l336 = {name: "TO"};
7818 var l337 = {name: "G!LIST"};
7819 var l338 = {name: "PLACE"};
7820 var l339 = {name: "DELTA"};
7821 var l340 = {name: "CONDITION"};
7822 var l341 = {name: "DOCSTRING"};
7823 var l342 = QIList(QIList(QIList(l253,l99,l3,QIList(l194,l3),l3),QIList(l243,l99,l3,QIList(l194,l3),l3),QIList(l242,l99,l3,QIList(l194,l3),l3),QIList(l237,l99,l3,QIList(l194,l3),l3),QIList(l221,l99,l3,QIList(l194,l3),l3),QIList(l220,l99,l3,QIList(l194,l3),l3),QIList(l201,l99,l3,QIList(l194,l3),l3),QIList(l198,l99,l3,QIList(l194,l3),l3),QIList(l185,l99,l3,QIList(l194,l3),l3),QIList(l180,l99,l3,QIList(l194,l3),l3),QIList(l179,l99,l3,QIList(l194,l3),l3),QIList(l163,l99,l3,QIList(l194,l3),l3),QIList(l162,l99,l3,QIList(l194,l3),l3),QIList(l156,l99,l3,QIList(l194,l3),l3),QIList(l123,l99,l3,QIList(l194,l3),l3),QIList(l115,l99,l3,QIList(l194,l3),l3),QIList(l112,l99,l3,QIList(l194,l3),l3),QIList(l111,l99,l3,QIList(l194,l3),l3),QIList(l110,l99,l3,QIList(l194,l3),l3),QIList(l100,l99,l3,QIList(l194,l3),l3),QIList(l14,l99,l3,QIList(l194,l3),l3),QIList(l4,l99,l3,QIList(l194,l196,l3),l3),QIList(l3,l99,l3,QIList(l194,l196,l3),l3),l3),QIList(QIList(l262,l190,QIList(l213,QIList(l310,l311,l3),QIList(l158,QIList(l254,QIList(l160,l310,l3),QIList(l312,l203,l313,l3),QIList(l232,QIList(QIList(l313,QIList(l27,l312,l313,l3),l3),l3),QIList(l258,l313,QIList(l136,QIList(l261,l313,QIList(l160,l311,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l258,l190,QIList(l213,QIList(l313,l203,l314,l3),QIList(l6,QIList(l271,l313,l3),QIList(l289,"Bad usage of VARIABLE-ARITY, you must pass a symbol",l3),l3),QIList(l158,QIList(l257,QIList(l160,l313,l3),QIList(l213,QIList(QIList(l160,l313,l3),l3),QIList(l124,"return ",QIList(l159,l314,l3),";",l123,l3),l3),l3),l3),l3),l3,l3),QIList(l256,l190,QIList(l213,QIList(l315,l203,l314,l3),QIList(l158,QIList(l138,QIList(l159,QIList(l69,QIList(l213,QIList(l316,l3),QIList(l158,QIList(l124,"var ",QIList(l160,QIList(l38,l316,l3),l3)," = ",QIList(l160,QIList(l40,l316,l3),l3),";",l123,l3),l3),l3),l315,l3),l3),QIList(l159,QIList(l69,QIList(l213,QIList(l316,l3),QIList(l158,QIList(l124,"if (typeof ",QIList(l160,QIList(l38,l316,l3),l3)," != '",QIList(l160,QIList(l39,l316,l3),l3),"')",l123,QIList(l135,"throw 'The value ' + ",QIList(l160,QIList(l38,l316,l3),l3)," + ' is not a type ",QIList(l160,QIList(l39,l316,l3),l3),".';",l123,l3),l3),l3),l3),l315,l3),l3),QIList(l124,"return ",QIList(l228,QIList(l159,l314,l3),l3),";",l123,l3),l3),l3),l3),l3,l3),QIList(l255,l190,QIList(l213,QIList(l317,l313,l203,l314,l3),QIList(l158,QIList(l228,QIList(l254,QIList(l160,l317,l3),QIList(l160,l313,l3),QIList(l232,QIList(l160,QIList(l69,QIList(l213,QIList(l318,l3),QIList(l158,QIList(QIList(l160,l318,l3),QIList(l137,QIList(l160,l318,l3),l3),l3),l3),l3),l313,l3),l3),QIList(l159,l314,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l254,l190,QIList(l213,QIList(l317,l313,l203,l314,l3),QIList(l158,QIList(l46,QIList(l42,QIList(l157,QIList(l160,l317,l3),l3),QIList(l213,QIList(l160,l313,l3),QIList(l175,QIList(l160,l317,l3),QIList(l159,l314,l3),l3),l3),l3),l253,l3),l3),l3),l3,l3),QIList(l158,l190,QIList(l213,QIList(l319,l3),QIList(l251,l319,l3),l3),l3,l3),QIList(l229,l190,QIList(l213,QIList(l317,l313,l319,l3),QIList(l158,QIList(l199,QIList(l160,l317,l3),QIList(l160,l313,l3),QIList(l137,QIList(l160,l319,l3),l3),l3),l3),l3),l3,l3),QIList(l199,l190,QIList(l213,QIList(l317,l313,l203,l314,l3),QIList(l158,QIList(l46,QIList(l42,QIList(l157,QIList(l160,l317,l3),l3),QIList(l213,QIList(l160,l313,l3),QIList(l175,QIList(l160,l317,l3),QIList(l159,l314,l3),l3),l3),l3),l198,l3),l3),l3),l3,l3),QIList(l138,l190,QIList(l213,QIList(l203,l314,l3),QIList(l158,QIList(l124,"(function(){",l123,QIList(l135,QIList(l159,l314,l3),l3),"})()",l3),l3),l3),l3,l3),QIList(l134,l190,QIList(l213,QIList(l320,l3),QIList(l158,QIList(l249,QIList(l98,l42,l3),QIList(l160,l320,l3),l3),l3),l3),l3,l3),QIList(l133,l190,QIList(l213,QIList(l321,l320,l203,l314,l3),QIList(l158,QIList(l249,QIList(l213,QIList(l202,QIList(l159,l321,l3),l203,QIList(l160,QIList(l15,l3),l3),l3),QIList(l159,l314,l3),l3),QIList(l160,l320,l3),l3),l3),l3),l3,l3),QIList(l125,l190,QIList(l213,QIList(l99,l203,l319,l3),QIList(l158,QIList(l217,QIList(l160,l99,l3),QIList(l124,QIList(l160,l99,l3),QIList(l228,QIList(l159,l319,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l116,l190,QIList(l213,QIList(l322,l3),QIList(l158,QIList(l226,QIList(l217,l115,QIList(l103,QIList(l160,l322,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l65,l190,QIList(l213,QIList(l203,l323,l3),QIList(l232,QIList(QIList(l324,QIList(l157,l3,l3),l3),l3),QIList(l13,l4,QIList(l49,QIList(QIList(l11,l323,l3),QIList(l12,l3),l3),QIList(QIList(l11,QIList(l30,l323,l3),l3),QIList(l289,"Odd paris in PSETQ",l3),l3),QIList(l4,QIList(l232,QIList(QIList(l99,QIList(l29,l323,l3),l3),QIList(l325,QIList(l32,l323,l3),l3),l3),QIList(l46,QIList(l158,QIList(QIList(l160,l99,l3),QIList(l160,QIList(l15,l3),l3),QIList(l160,l325,l3),l3),l3),l324,l3),QIList(l217,l323,QIList(l34,l323,l3),l3),l3),l3),l3),l3),QIList(l217,l324,QIList(l64,l324,l3),l3),QIList(l158,QIList(l232,QIList(l160,QIList(l69,QIList(l98,l30,l3),l324,l3),l3),QIList(l217,QIList(l159,QIList(l58,QIList(l98,l62,l3),QIList(l69,QIList(l98,l81,l3),l324,l3),QIList(l157,l3,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l55,l190,QIList(l213,QIList(l326,l327,l203,l314,l3),QIList(l158,QIList(l54,QIList(l228,QIList(l160,l326,l3),QIList(l160,l327,l3),l3),QIList(l159,l314,l3),l3),l3),l3),l3,l3),QIList(l54,l190,QIList(l213,QIList(l319,l203,l314,l3),QIList(l232,QIList(QIList(l325,QIList(l15,l3),l3),l3),QIList(l158,QIList(l232,QIList(QIList(QIList(l160,l325,l3),QIList(l160,l319,l3),l3),l3),QIList(l159,l314,l3),QIList(l160,l325,l3),l3),l3),l3),l3),l3,l3),QIList(l53,l190,QIList(l213,QIList(l203,l328,l3),QIList(l49,QIList(QIList(l11,l328,l3),l3,l3),QIList(QIList(l11,QIList(l30,l328,l3),l3),QIList(l29,l328,l3),l3),QIList(l4,QIList(l232,QIList(QIList(l329,QIList(l15,l3),l3),l3),QIList(l158,QIList(l232,QIList(QIList(QIList(l160,l329,l3),QIList(l160,QIList(l29,l328,l3),l3),l3),l3),QIList(l200,QIList(l160,l329,l3),QIList(l160,l329,l3),QIList(l53,QIList(l159,QIList(l30,l328,l3),l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l52,l190,QIList(l213,QIList(l203,l328,l3),QIList(l49,QIList(QIList(l11,l328,l3),l4,l3),QIList(QIList(l11,QIList(l30,l328,l3),l3),QIList(l29,l328,l3),l3),QIList(l4,QIList(l158,QIList(l200,QIList(l160,QIList(l29,l328,l3),l3),QIList(l52,QIList(l159,QIList(l30,l328,l3),l3),l3),l3,l3),l3),l3),l3),l3),l3,l3),QIList(l51,l190,QIList(l213,QIList(l319,l203,l330,l3),QIList(l158,QIList(l50,QIList(l160,l319,l3),QIList(l159,QIList(l62,l330,QIList(l158,QIList(QIList(l4,QIList(l289,"ECASE expression failed.",l3),l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l50,l190,QIList(l213,QIList(l319,l203,l330,l3),QIList(l232,QIList(QIList(l331,QIList(l15,l3),l3),l3),QIList(l158,QIList(l232,QIList(QIList(QIList(l160,l331,l3),QIList(l160,l319,l3),l3),l3),QIList(l49,QIList(l159,QIList(l69,QIList(l213,QIList(l332,l3),QIList(l200,QIList(l278,QIList(l29,l332,l3),l4,l3),l332,QIList(l158,QIList(QIList(l25,QIList(l160,l331,l3),QIList(l157,QIList(l160,QIList(l29,l332,l3),l3),l3),l3),QIList(l159,QIList(l30,l332,l3),l3),l3),l3),l3),l3),l330,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l49,l190,QIList(l213,QIList(l203,l330,l3),QIList(l200,QIList(l11,l330,l3),l3,QIList(l200,QIList(l278,QIList(l31,l330,l3),l4,l3),QIList(l158,QIList(l228,QIList(l159,QIList(l33,l330,l3),l3),l3),l3),QIList(l158,QIList(l200,QIList(l160,QIList(l31,l330,l3),l3),QIList(l228,QIList(l159,QIList(l33,l330,l3),l3),l3),QIList(l49,QIList(l159,QIList(l30,l330,l3),l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l48,l190,QIList(l213,QIList(l333,l203,l314,l3),QIList(l232,QIList(QIList(l334,QIList(l15,l3),l3),QIList(l335,QIList(l38,l333,l3),l3),QIList(l336,QIList(l39,l333,l3),l3),QIList(l327,QIList(l40,l333,l3),l3),l3),QIList(l158,QIList(l175,l3,QIList(l232,QIList(QIList(QIList(l160,l335,l3),0,l3),QIList(QIList(l160,l334,l3),QIList(l160,l336,l3),l3),l3),QIList(l224,QIList(l264,QIList(l160,l335,l3),QIList(l160,l334,l3),l3),QIList(l246,QIList(l159,l314,l3),l3),QIList(l44,QIList(l160,l335,l3),l3),l3),QIList(l160,l327,l3),l3),l3),l3),l3),l3),l3,l3),QIList(l47,l190,QIList(l213,QIList(l333,l203,l314,l3),QIList(l232,QIList(QIList(l335,QIList(l38,l333,l3),l3),QIList(l337,QIList(l15,l3),l3),l3),QIList(l158,QIList(l175,l3,QIList(l232,QIList(QIList(QIList(l160,l337,l3),QIList(l160,QIList(l39,l333,l3),l3),l3),QIList(QIList(l160,l335,l3),l3,l3),l3),QIList(l224,QIList(l160,l337,l3),QIList(l217,QIList(l160,l335,l3),QIList(l29,QIList(l160,l337,l3),l3),l3),QIList(l246,QIList(l159,l314,l3),l3),QIList(l217,QIList(l160,l337,l3),QIList(l30,QIList(l160,l337,l3),l3),l3),l3),QIList(l160,QIList(l40,l333,l3),l3),l3),l3),l3),l3),l3),l3,l3),QIList(l46,l190,QIList(l213,QIList(l312,l338,l3),QIList(l158,QIList(l217,QIList(l160,l338,l3),QIList(l27,QIList(l160,l312,l3),QIList(l160,l338,l3),l3),l3),l3),l3),l3,l3),QIList(l45,l190,QIList(l213,QIList(l312,l202,QIList(l339,1,l3),l3),QIList(l158,QIList(l217,QIList(l160,l312,l3),QIList(l60,QIList(l160,l312,l3),QIList(l160,l339,l3),l3),l3),l3),l3),l3,l3),QIList(l44,l190,QIList(l213,QIList(l312,l202,QIList(l339,1,l3),l3),QIList(l158,QIList(l217,QIList(l160,l312,l3),QIList(l59,QIList(l160,l312,l3),QIList(l160,l339,l3),l3),l3),l3),l3),l3,l3),QIList(l13,l190,QIList(l213,QIList(l340,l203,l314,l3),QIList(l158,QIList(l175,l3,QIList(l224,QIList(l160,l340,l3),QIList(l159,l314,l3),l3),l3),l3),l3),l3,l3),QIList(l12,l190,QIList(l213,QIList(l202,l325,l3),QIList(l158,QIList(l239,l3,QIList(l160,l325,l3),l3),l3),l3),l3,l3),QIList(l10,l190,QIList(l213,QIList(l317,l313,l203,l314,l3),QIList(l158,QIList(l228,QIList(l274,QIList(l157,QIList(l160,l317,l3),l3),QIList(l9,QIList(l160,QIList(l273,l317,l3),l3),QIList(l160,l313,l3),QIList(l159,QIList(l200,QIList(l52,QIList(l281,QIList(l29,l314,l3),l3),QIList(l26,QIList(l11,QIList(l30,l314,l3),l3),l3),l3),QIList(l158,QIList(QIList(l160,QIList(l29,l314,l3),l3),QIList(l175,QIList(l160,l317,l3),QIList(l159,QIList(l30,l314,l3),l3),l3),l3),l3),QIList(l158,QIList(QIList(l175,QIList(l160,l317,l3),QIList(l159,l314,l3),l3),l3),l3),l3),l3),l3),l3),QIList(l157,QIList(l160,l317,l3),l3),l3),l3),l3),l3,l3),QIList(l9,l190,QIList(l213,QIList(l317,l313,l203,l314,l3),QIList(l232,QIList(QIList(l312,QIList(l15,"FN",l3),l3),l3),QIList(l158,QIList(l232,QIList(QIList(QIList(l160,l312,l3),QIList(l213,QIList(l160,l313,l3),QIList(l159,l314,l3),l3),l3),l3),QIList(l293,QIList(l160,l312,l3),"fname",QIList(l160,l317,l3),l3),QIList(l160,l312,l3),l3),l3),l3),l3),l3,l3),QIList(l8,l190,QIList(l213,QIList(l317,l325,l202,l341,l3),QIList(l158,QIList(l228,QIList(l217,QIList(l160,l317,l3),QIList(l160,l325,l3),l3),QIList(l159,QIList(l5,QIList(l281,l341,l3),QIList(l158,QIList(QIList(l293,QIList(l157,QIList(l160,l317,l3),l3),"vardoc",QIList(l160,l341,l3),l3),l3),l3),l3),l3),QIList(l157,QIList(l160,l317,l3),l3),l3),l3),l3),l3,l3),QIList(l7,l190,QIList(l213,QIList(l317,l325,l202,l341,l3),QIList(l158,QIList(l228,QIList(l2,QIList(l194,QIList(l160,l317,l3),l3),l3),QIList(l6,QIList(l17,QIList(l157,QIList(l160,l317,l3),l3),l3),QIList(l217,QIList(l160,l317,l3),QIList(l160,l325,l3),l3),l3),QIList(l159,QIList(l5,QIList(l281,l341,l3),QIList(l158,QIList(QIList(l293,QIList(l157,QIList(l160,l317,l3),l3),"vardoc",QIList(l160,l341,l3),l3),l3),l3),l3),l3),QIList(l157,QIList(l160,l317,l3),l3),l3),l3),l3),l3,l3),QIList(l6,l190,QIList(l213,QIList(l340,l203,l314,l3),QIList(l158,QIList(l200,QIList(l160,l340,l3),l3,QIList(l228,QIList(l159,l314,l3),l3),l3),l3),l3),l3,l3),QIList(l5,l190,QIList(l213,QIList(l340,l203,l314,l3),QIList(l158,QIList(l200,QIList(l160,l340,l3),QIList(l228,QIList(l159,l314,l3),l3),l3,l3),l3),l3),l3,l3),QIList(l2,l190,QIList(l213,QIList(l203,l315,l3),QIList(l158,QIList(l226,QIList(l159,QIList(l69,QIList(l213,QIList(l316,l3),QIList(l158,QIList(l193,QIList(l157,QIList(l160,l316,l3),l3),l3),l3),l3),l315,l3),l3),l3),l3),l3),l3,l3),QIList(l1,l190,QIList(l213,QIList(l317,l313,l203,l314,l3),QIList(l158,QIList(l226,QIList(l189,QIList(l157,QIList(l160,l317,l3),l3),QIList(l157,QIList(l213,QIList(l160,QIList(l69,QIList(l213,QIList(l312,l3),QIList(l200,QIList(l278,l312,QIList(l157,l307,l3),l3),QIList(l157,l203,l3),l312,l3),l3),l313,l3),l3),QIList(l159,l314,l3),l3),l3),l3),l3),l3),l3),l3,l3),l3),l3,l3,l3);
7825 l117.fvalue(pv, l307);
7826 l117.fvalue(pv, l306);
7827 l117.fvalue(pv, l305);
7828 l117.fvalue(pv, l304);
7829 l117.fvalue(pv, l303);
7830 l117.fvalue(pv, l302);
7831 l117.fvalue(pv, l301);
7832 l117.fvalue(pv, l300);
7833 l117.fvalue(pv, l299);
7834 l117.fvalue(pv, l298);
7835 l117.fvalue(pv, l297);
7836 l117.fvalue(pv, l296);
7837 l117.fvalue(pv, l295);
7838 l117.fvalue(pv, l294);
7839 l117.fvalue(pv, l293);
7840 l117.fvalue(pv, l292);
7841 l117.fvalue(pv, l291);
7842 l117.fvalue(pv, l290);
7843 l117.fvalue(pv, l289);
7844 l117.fvalue(pv, l288);
7845 l117.fvalue(pv, l287);
7846 l117.fvalue(pv, l286);
7847 l117.fvalue(pv, l285);
7848 l117.fvalue(pv, l284);
7849 l117.fvalue(pv, l283);
7850 l117.fvalue(pv, l282);
7851 l117.fvalue(pv, l281);
7852 l117.fvalue(pv, l280);
7853 l117.fvalue(pv, l279);
7854 l117.fvalue(pv, l278);
7855 l117.fvalue(pv, l277);
7856 l117.fvalue(pv, l276);
7857 l117.fvalue(pv, l275);
7858 l117.fvalue(pv, l274);
7859 l117.fvalue(pv, l273);
7860 l117.fvalue(pv, l272);
7861 l117.fvalue(pv, l271);
7862 l117.fvalue(pv, l270);
7863 l117.fvalue(pv, l269);
7864 l117.fvalue(pv, l268);
7865 l117.fvalue(pv, l267);
7866 l117.fvalue(pv, l266);
7867 l117.fvalue(pv, l265);
7868 l117.fvalue(pv, l264);
7869 l117.fvalue(pv, l263);
7870 l117.fvalue(pv, l262);
7871 l117.fvalue(pv, l261);
7872 l117.fvalue(pv, l260);
7873 l117.fvalue(pv, l259);
7874 l117.fvalue(pv, l258);
7875 l117.fvalue(pv, l257);
7876 l117.fvalue(pv, l256);
7877 l117.fvalue(pv, l255);
7878 l117.fvalue(pv, l254);
7879 l117.fvalue(pv, l253);
7880 l117.fvalue(pv, l252);
7881 l117.fvalue(pv, l251);
7882 l117.fvalue(pv, l250);
7883 l117.fvalue(pv, l249);
7884 l117.fvalue(pv, l248);
7885 l117.fvalue(pv, l247);
7886 l117.fvalue(pv, l246);
7887 l117.fvalue(pv, l245);
7888 l117.fvalue(pv, l244);
7889 l117.fvalue(pv, l243);
7890 l117.fvalue(pv, l242);
7891 l117.fvalue(pv, l241);
7892 l117.fvalue(pv, l240);
7893 l117.fvalue(pv, l239);
7894 l117.fvalue(pv, l238);
7895 l117.fvalue(pv, l237);
7896 l117.fvalue(pv, l236);
7897 l117.fvalue(pv, l235);
7898 l117.fvalue(pv, l234);
7899 l117.fvalue(pv, l233);
7900 l117.fvalue(pv, l232);
7901 l117.fvalue(pv, l231);
7902 l117.fvalue(pv, l230);
7903 l117.fvalue(pv, l229);
7904 l117.fvalue(pv, l228);
7905 l117.fvalue(pv, l227);
7906 l117.fvalue(pv, l226);
7907 l117.fvalue(pv, l225);
7908 l117.fvalue(pv, l224);
7909 l117.fvalue(pv, l223);
7910 l117.fvalue(pv, l222);
7911 l117.fvalue(pv, l221);
7912 l117.fvalue(pv, l220);
7913 l117.fvalue(pv, l219);
7914 l117.fvalue(pv, l218);
7915 l117.fvalue(pv, l217);
7916 l117.fvalue(pv, l216);
7917 l117.fvalue(pv, l215);
7918 l117.fvalue(pv, l214);
7919 l117.fvalue(pv, l213);
7920 l117.fvalue(pv, l212);
7921 l117.fvalue(pv, l211);
7922 l117.fvalue(pv, l210);
7923 l117.fvalue(pv, l209);
7924 l117.fvalue(pv, l208);
7925 l117.fvalue(pv, l207);
7926 l117.fvalue(pv, l206);
7927 l117.fvalue(pv, l205);
7928 l117.fvalue(pv, l203);
7929 l117.fvalue(pv, l202);
7930 l117.fvalue(pv, l201);
7931 l117.fvalue(pv, l200);
7932 l117.fvalue(pv, l199);
7933 l117.fvalue(pv, l198);
7934 l117.fvalue(pv, l197);
7935 l117.fvalue(pv, l196);
7936 l117.fvalue(pv, l195);
7937 l117.fvalue(pv, l194);
7938 l117.fvalue(pv, l193);
7939 l117.fvalue(pv, l192);
7940 l117.fvalue(pv, l191);
7941 l117.fvalue(pv, l190);
7942 l117.fvalue(pv, l189);
7943 l117.fvalue(pv, l188);
7944 l117.fvalue(pv, l187);
7945 l117.fvalue(pv, l186);
7946 l117.fvalue(pv, l185);
7947 l117.fvalue(pv, l184);
7948 l117.fvalue(pv, l183);
7949 l117.fvalue(pv, l182);
7950 l117.fvalue(pv, l181);
7951 l117.fvalue(pv, l180);
7952 l117.fvalue(pv, l179);
7953 l117.fvalue(pv, l178);
7954 l117.fvalue(pv, l177);
7955 l117.fvalue(pv, l176);
7956 l117.fvalue(pv, l175);
7957 l117.fvalue(pv, l174);
7958 l117.fvalue(pv, l173);
7959 l117.fvalue(pv, l172);
7960 l117.fvalue(pv, l171);
7961 l117.fvalue(pv, l170);
7962 l117.fvalue(pv, l169);
7963 l117.fvalue(pv, l168);
7964 l117.fvalue(pv, l167);
7965 l117.fvalue(pv, l166);
7966 l117.fvalue(pv, l165);
7967 l117.fvalue(pv, l164);
7968 l117.fvalue(pv, l163);
7969 l117.fvalue(pv, l162);
7970 l117.fvalue(pv, l161);
7971 l117.fvalue(pv, l160);
7972 l117.fvalue(pv, l159);
7973 l117.fvalue(pv, l158);
7974 l117.fvalue(pv, l157);
7975 l117.fvalue(pv, l156);
7976 l117.fvalue(pv, l155);
7977 l117.fvalue(pv, l154);
7978 l117.fvalue(pv, l153);
7979 l117.fvalue(pv, l152);
7980 l117.fvalue(pv, l151);
7981 l117.fvalue(pv, l150);
7982 l117.fvalue(pv, l149);
7983 l117.fvalue(pv, l148);
7984 l117.fvalue(pv, l147);
7985 l117.fvalue(pv, l146);
7986 l117.fvalue(pv, l145);
7987 l117.fvalue(pv, l144);
7988 l117.fvalue(pv, l143);
7989 l117.fvalue(pv, l142);
7990 l117.fvalue(pv, l141);
7991 l117.fvalue(pv, l140);
7992 l117.fvalue(pv, l139);
7993 l117.fvalue(pv, l138);
7994 l117.fvalue(pv, l137);
7995 l117.fvalue(pv, l136);
7996 l117.fvalue(pv, l135);
7997 l117.fvalue(pv, l134);
7998 l117.fvalue(pv, l133);
7999 l117.fvalue(pv, l132);
8000 l117.fvalue(pv, l131);
8001 l117.fvalue(pv, l130);
8002 l117.fvalue(pv, l129);
8003 l117.fvalue(pv, l128);
8004 l117.fvalue(pv, l127);
8005 l117.fvalue(pv, l126);
8006 l117.fvalue(pv, l125);
8007 l117.fvalue(pv, l124);
8008 l117.fvalue(pv, l123);
8009 l117.fvalue(pv, l122);
8010 l117.fvalue(pv, l121);
8011 l117.fvalue(pv, l120);
8012 l117.fvalue(pv, l119);
8013 l117.fvalue(pv, l118);
8014 l117.fvalue(pv, l117);
8015 l117.fvalue(pv, l116);
8016 l117.fvalue(pv, l115);
8017 l117.fvalue(pv, l114);
8018 l117.fvalue(pv, l113);
8019 l117.fvalue(pv, l112);
8020 l117.fvalue(pv, l111);
8021 l117.fvalue(pv, l110);
8022 l117.fvalue(pv, l109);
8023 l117.fvalue(pv, l108);
8024 l117.fvalue(pv, l107);
8025 l117.fvalue(pv, l106);
8026 l117.fvalue(pv, l105);
8027 l117.fvalue(pv, l104);
8028 l117.fvalue(pv, l103);
8029 l117.fvalue(pv, l102);
8030 l117.fvalue(pv, l101);
8031 l117.fvalue(pv, l100);
8032 l117.fvalue(pv, l99);
8033 l117.fvalue(pv, l98);
8034 l117.fvalue(pv, l97);
8035 l117.fvalue(pv, l96);
8036 l117.fvalue(pv, l95);
8037 l117.fvalue(pv, l94);
8038 l117.fvalue(pv, l93);
8039 l117.fvalue(pv, l92);
8040 l117.fvalue(pv, l91);
8041 l117.fvalue(pv, l90);
8042 l117.fvalue(pv, l89);
8043 l117.fvalue(pv, l88);
8044 l117.fvalue(pv, l87);
8045 l117.fvalue(pv, l86);
8046 l117.fvalue(pv, l85);
8047 l117.fvalue(pv, l84);
8048 l117.fvalue(pv, l83);
8049 l117.fvalue(pv, l82);
8050 l117.fvalue(pv, l81);
8051 l117.fvalue(pv, l80);
8052 l117.fvalue(pv, l79);
8053 l117.fvalue(pv, l78);
8054 l117.fvalue(pv, l77);
8055 l117.fvalue(pv, l76);
8056 l117.fvalue(pv, l75);
8057 l117.fvalue(pv, l74);
8058 l117.fvalue(pv, l73);
8059 l117.fvalue(pv, l72);
8060 l117.fvalue(pv, l71);
8061 l117.fvalue(pv, l70);
8062 l117.fvalue(pv, l69);
8063 l117.fvalue(pv, l68);
8064 l117.fvalue(pv, l67);
8065 l117.fvalue(pv, l66);
8066 l117.fvalue(pv, l65);
8067 l117.fvalue(pv, l64);
8068 l117.fvalue(pv, l63);
8069 l117.fvalue(pv, l62);
8070 l117.fvalue(pv, l61);
8071 l117.fvalue(pv, l60);
8072 l117.fvalue(pv, l59);
8073 l117.fvalue(pv, l58);
8074 l117.fvalue(pv, l57);
8075 l117.fvalue(pv, l56);
8076 l117.fvalue(pv, l55);
8077 l117.fvalue(pv, l54);
8078 l117.fvalue(pv, l53);
8079 l117.fvalue(pv, l52);
8080 l117.fvalue(pv, l51);
8081 l117.fvalue(pv, l50);
8082 l117.fvalue(pv, l49);
8083 l117.fvalue(pv, l48);
8084 l117.fvalue(pv, l47);
8085 l117.fvalue(pv, l46);
8086 l117.fvalue(pv, l45);
8087 l117.fvalue(pv, l44);
8088 l117.fvalue(pv, l43);
8089 l117.fvalue(pv, l42);
8090 l117.fvalue(pv, l41);
8091 l117.fvalue(pv, l40);
8092 l117.fvalue(pv, l39);
8093 l117.fvalue(pv, l38);
8094 l117.fvalue(pv, l37);
8095 l117.fvalue(pv, l36);
8096 l117.fvalue(pv, l35);
8097 l117.fvalue(pv, l34);
8098 l117.fvalue(pv, l33);
8099 l117.fvalue(pv, l32);
8100 l117.fvalue(pv, l31);
8101 l117.fvalue(pv, l30);
8102 l117.fvalue(pv, l29);
8103 l117.fvalue(pv, l28);
8104 l117.fvalue(pv, l27);
8105 l117.fvalue(pv, l26);
8106 l117.fvalue(pv, l25);
8107 l117.fvalue(pv, l24);
8108 l117.fvalue(pv, l23);
8109 l117.fvalue(pv, l22);
8110 l117.fvalue(pv, l21);
8111 l117.fvalue(pv, l20);
8112 l117.fvalue(pv, l19);
8113 l117.fvalue(pv, l18);
8114 l117.fvalue(pv, l17);
8115 l117.fvalue(pv, l16);
8116 l117.fvalue(pv, l15);
8117 l117.fvalue(pv, l14);
8118 l117.fvalue(pv, l13);
8119 l117.fvalue(pv, l12);
8120 l117.fvalue(pv, l11);
8121 l117.fvalue(pv, l10);
8122 l117.fvalue(pv, l9);
8123 l117.fvalue(pv, l8);
8124 l117.fvalue(pv, l7);
8125 l117.fvalue(pv, l6);
8126 l117.fvalue(pv, l5);
8127 l117.fvalue(pv, l4);
8128 l117.fvalue(pv, l3);
8129 l117.fvalue(pv, l2);
8130 l117.fvalue(pv, l1);
8131 ((l220).value = l309);
8132 ((l179).value = l342);
8133 ((l180).value = 811);
8134 ((l14).value = 206);
8135 return ((l237).value = 280);
8137 ((l221).value = 342);