43 return v2 = (function(){
45 if (typeof name != 'string')
46 throw 'The value ' + name + ' is not a type string.';
47 return ({name: name});
52 return v3 = (function(){
54 if (typeof name != 'string')
55 throw 'The value ' + name + ' is not a type string.';
56 return ({name: name});
61 return f1 = (function(v4){
62 ((v4)["fname"] = "NULL");
65 if (arguments.length < 1) throw 'too few arguments';
66 if (arguments.length > 1) throw 'too many arguments';
67 return ((v5 === v2)?v3: v2);
71 return f2 = (function(v6){
72 ((v6)["fname"] = "INTERNP");
75 if (arguments.length < 1) throw 'too few arguments';
76 if (arguments.length > 1) throw 'too many arguments';
77 return (((v7) in (v1))?v3: v2);
81 return f3 = (function(v8){
82 ((v8)["fname"] = "INTERN");
85 if (arguments.length < 1) throw 'too few arguments';
86 if (arguments.length > 1) throw 'too many arguments';
87 return (f2(v9) !== v2 ? (function(){
89 return tmp == undefined? v2: tmp ;
90 })() : ((v1)[v9] = (function(){
92 if (typeof name != 'string')
93 throw 'The value ' + name + ' is not a type string.';
94 return ({name: name});
99 return f4 = (function(v10){
100 ((v10)["fname"] = "FIND-SYMBOL");
103 if (arguments.length < 1) throw 'too few arguments';
104 if (arguments.length > 1) throw 'too many arguments';
107 return tmp == undefined? v2: tmp ;
115 return f5 = (function(v13){
116 ((v13)["fname"] = "GENSYM");
119 if (arguments.length > 1) throw 'too many arguments';
120 switch(arguments.length){
128 if (typeof x != 'number')
129 throw 'The value ' + x + ' is not a type number.';
130 if (typeof y != 'number')
131 throw 'The value ' + y + ' is not a type number.';
135 var name = (function(){
137 var string2 = f6(v12);
138 if (typeof string1 != 'string')
139 throw 'The value ' + string1 + ' is not a type string.';
140 if (typeof string2 != 'string')
141 throw 'The value ' + string2 + ' is not a type string.';
142 return string1.concat(string2);
144 if (typeof name != 'string')
145 throw 'The value ' + name + ' is not a type string.';
146 return ({name: name});
151 return f7 = (function(v15){
152 ((v15)["fname"] = "=");
154 })((function (v16,v17){
155 if (arguments.length < 2) throw 'too few arguments';
156 if (arguments.length > 2) throw 'too many arguments';
160 if (typeof x != 'number')
161 throw 'The value ' + x + ' is not a type number.';
162 if (typeof y != 'number')
163 throw 'The value ' + y + ' is not a type number.';
169 return f8 = (function(v18){
170 ((v18)["fname"] = "+");
172 })((function (v19,v20){
173 if (arguments.length < 2) throw 'too few arguments';
174 if (arguments.length > 2) throw 'too many arguments';
178 if (typeof x != 'number')
179 throw 'The value ' + x + ' is not a type number.';
180 if (typeof y != 'number')
181 throw 'The value ' + y + ' is not a type number.';
187 return f9 = (function(v21){
188 ((v21)["fname"] = "-");
190 })((function (v22,v23){
191 if (arguments.length < 2) throw 'too few arguments';
192 if (arguments.length > 2) throw 'too many arguments';
196 if (typeof x != 'number')
197 throw 'The value ' + x + ' is not a type number.';
198 if (typeof y != 'number')
199 throw 'The value ' + y + ' is not a type number.';
205 return f10 = (function(v24){
206 ((v24)["fname"] = "*");
208 })((function (v25,v26){
209 if (arguments.length < 2) throw 'too few arguments';
210 if (arguments.length > 2) throw 'too many arguments';
214 if (typeof x != 'number')
215 throw 'The value ' + x + ' is not a type number.';
216 if (typeof y != 'number')
217 throw 'The value ' + y + ' is not a type number.';
223 return f11 = (function(v27){
224 ((v27)["fname"] = "/");
226 })((function (v28,v29){
227 if (arguments.length < 2) throw 'too few arguments';
228 if (arguments.length > 2) throw 'too many arguments';
232 if (typeof x != 'number')
233 throw 'The value ' + x + ' is not a type number.';
234 if (typeof y != 'number')
235 throw 'The value ' + y + ' is not a type number.';
241 return f12 = (function(v30){
242 ((v30)["fname"] = "1+");
245 if (arguments.length < 1) throw 'too few arguments';
246 if (arguments.length > 1) throw 'too many arguments';
250 if (typeof x != 'number')
251 throw 'The value ' + x + ' is not a type number.';
252 if (typeof y != 'number')
253 throw 'The value ' + y + ' is not a type number.';
259 return f13 = (function(v32){
260 ((v32)["fname"] = "1-");
263 if (arguments.length < 1) throw 'too few arguments';
264 if (arguments.length > 1) throw 'too many arguments';
268 if (typeof x != 'number')
269 throw 'The value ' + x + ' is not a type number.';
270 if (typeof y != 'number')
271 throw 'The value ' + y + ' is not a type number.';
277 return f14 = (function(v34){
278 ((v34)["fname"] = "ZEROP");
281 if (arguments.length < 1) throw 'too few arguments';
282 if (arguments.length > 1) throw 'too many arguments';
286 if (typeof x != 'number')
287 throw 'The value ' + x + ' is not a type number.';
288 if (typeof y != 'number')
289 throw 'The value ' + y + ' is not a type number.';
295 return f15 = (function(v36){
296 ((v36)["fname"] = "TRUNCATE");
298 })((function (v37,v38){
299 if (arguments.length < 2) throw 'too few arguments';
300 if (arguments.length > 2) throw 'too many arguments';
305 if (typeof x != 'number')
306 throw 'The value ' + x + ' is not a type number.';
307 if (typeof y != 'number')
308 throw 'The value ' + y + ' is not a type number.';
311 if (typeof x != 'number')
312 throw 'The value ' + x + ' is not a type number.';
313 return Math.floor(x);
318 return f16 = (function(v39){
319 ((v39)["fname"] = "EQL");
321 })((function (v40,v41){
322 if (arguments.length < 2) throw 'too few arguments';
323 if (arguments.length > 2) throw 'too many arguments';
324 return ((v40 === v41)?v3: v2);
328 return f17 = (function(v42){
329 ((v42)["fname"] = "NOT");
332 if (arguments.length < 1) throw 'too few arguments';
333 if (arguments.length > 1) throw 'too many arguments';
334 return (v43 !== v2 ? v2 : v3);
338 return f18 = (function(v44){
339 ((v44)["fname"] = "CONS");
341 })((function (v45,v46){
342 if (arguments.length < 2) throw 'too few arguments';
343 if (arguments.length > 2) throw 'too many arguments';
344 return ({car: v45, cdr: v46});
348 return f19 = (function(v47){
349 ((v47)["fname"] = "CONSP");
352 if (arguments.length < 1) throw 'too few arguments';
353 if (arguments.length > 1) throw 'too many arguments';
356 return (typeof tmp == 'object' && 'car' in tmp);
361 return f20 = (function(v49){
362 ((v49)["fname"] = "CAR");
365 if (arguments.length < 1) throw 'too few arguments';
366 if (arguments.length > 1) throw 'too many arguments';
369 return tmp === v2? v2: tmp.car;
374 return f21 = (function(v51){
375 ((v51)["fname"] = "CDR");
378 if (arguments.length < 1) throw 'too few arguments';
379 if (arguments.length > 1) throw 'too many arguments';
382 return tmp === v2? v2: tmp.cdr;
387 return f22 = (function(v53){
388 ((v53)["fname"] = "CAAR");
391 if (arguments.length < 1) throw 'too few arguments';
392 if (arguments.length > 1) throw 'too many arguments';
394 var tmp = (function(){
396 return tmp === v2? v2: tmp.car;
398 return tmp === v2? v2: tmp.car;
403 return f23 = (function(v55){
404 ((v55)["fname"] = "CADR");
407 if (arguments.length < 1) throw 'too few arguments';
408 if (arguments.length > 1) throw 'too many arguments';
410 var tmp = (function(){
412 return tmp === v2? v2: tmp.cdr;
414 return tmp === v2? v2: tmp.car;
419 return f24 = (function(v57){
420 ((v57)["fname"] = "CDAR");
423 if (arguments.length < 1) throw 'too few arguments';
424 if (arguments.length > 1) throw 'too many arguments';
426 var tmp = (function(){
428 return tmp === v2? v2: tmp.car;
430 return tmp === v2? v2: tmp.cdr;
435 return f25 = (function(v59){
436 ((v59)["fname"] = "CDDR");
439 if (arguments.length < 1) throw 'too few arguments';
440 if (arguments.length > 1) throw 'too many arguments';
442 var tmp = (function(){
444 return tmp === v2? v2: tmp.cdr;
446 return tmp === v2? v2: tmp.cdr;
451 return f26 = (function(v61){
452 ((v61)["fname"] = "CADDR");
455 if (arguments.length < 1) throw 'too few arguments';
456 if (arguments.length > 1) throw 'too many arguments';
458 var tmp = (function(){
459 var tmp = (function(){
461 return tmp === v2? v2: tmp.cdr;
463 return tmp === v2? v2: tmp.cdr;
465 return tmp === v2? v2: tmp.car;
470 return f27 = (function(v63){
471 ((v63)["fname"] = "CDDDR");
474 if (arguments.length < 1) throw 'too few arguments';
475 if (arguments.length > 1) throw 'too many arguments';
477 var tmp = (function(){
478 var tmp = (function(){
480 return tmp === v2? v2: tmp.cdr;
482 return tmp === v2? v2: tmp.cdr;
484 return tmp === v2? v2: tmp.cdr;
489 return f28 = (function(v65){
490 ((v65)["fname"] = "CADDDR");
493 if (arguments.length < 1) throw 'too few arguments';
494 if (arguments.length > 1) throw 'too many arguments';
496 var tmp = (function(){
497 var tmp = (function(){
498 var tmp = (function(){
500 return tmp === v2? v2: tmp.cdr;
502 return tmp === v2? v2: tmp.cdr;
504 return tmp === v2? v2: tmp.cdr;
506 return tmp === v2? v2: tmp.car;
511 return f29 = (function(v67){
512 ((v67)["fname"] = "FIRST");
515 if (arguments.length < 1) throw 'too few arguments';
516 if (arguments.length > 1) throw 'too many arguments';
519 return tmp === v2? v2: tmp.car;
524 return f30 = (function(v69){
525 ((v69)["fname"] = "SECOND");
528 if (arguments.length < 1) throw 'too few arguments';
529 if (arguments.length > 1) throw 'too many arguments';
534 return f31 = (function(v71){
535 ((v71)["fname"] = "THIRD");
538 if (arguments.length < 1) throw 'too few arguments';
539 if (arguments.length > 1) throw 'too many arguments';
544 return f32 = (function(v73){
545 ((v73)["fname"] = "FOURTH");
548 if (arguments.length < 1) throw 'too few arguments';
549 if (arguments.length > 1) throw 'too many arguments';
554 return f33 = (function(v75){
555 ((v75)["fname"] = "LIST");
559 for (var i = arguments.length-1; i>=0; i--)
560 v76 = {car: arguments[i], cdr: v76};
565 return f34 = (function(v77){
566 ((v77)["fname"] = "ATOM");
569 if (arguments.length < 1) throw 'too few arguments';
570 if (arguments.length > 1) throw 'too many arguments';
571 return f17(((function(){
573 return (typeof tmp == 'object' && 'car' in tmp);
581 return f35 = (function(v79){
582 ((v79)["fname"] = "ENSURE-LIST");
585 if (arguments.length < 1) throw 'too few arguments';
586 if (arguments.length > 1) throw 'too many arguments';
587 return (f36(v80) !== v2 ? v80 : f33(v80));
592 return f37 = (function(v81){
593 ((v81)["fname"] = "!REDUCE");
595 })((function (v82,v83,v84){
596 if (arguments.length < 3) throw 'too few arguments';
597 if (arguments.length > 3) throw 'too many arguments';
598 return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
600 return tmp === v2? v2: tmp.cdr;
601 })(), (v82)(v84, (function(){
603 return tmp === v2? v2: tmp.car;
607 var l31 = f3("STRING=");
609 var l30 = f3("ASSOC");
611 var l29 = f3("EVERY");
613 var l28 = f3("PARSE-INTEGER");
615 var l27 = f3("SUBSEQ");
617 var l26 = f3("DIGIT-CHAR-P");
619 var l25 = f3("REMOVE-IF-NOT");
621 var l24 = f3("REMOVE-IF");
623 var l23 = f3("REMOVE");
625 var l22 = f3("MEMBER");
627 var l21 = f3("BUTLAST");
629 var l20 = f3("LAST");
633 var l18 = f3("LISTP");
635 var l17 = f3("MINUSP");
637 var l16 = f3("PLUSP");
639 var l15 = f3("INTEGERP");
641 var l14 = f3("CHAR=");
643 var l13 = f3("CHAR-CODE");
645 var l12 = f3("CODE-CHAR");
647 var l11 = f3("MAPCAR");
650 var l9 = f3("CONCAT-TWO");
652 var l8 = f3("LENGTH");
654 var l7 = f3("LIST-LENGTH");
656 var l6 = f3("REVERSE");
659 var l4 = f3("REVERSE-AUX");
661 var l3 = f3("APPEND");
664 var l1 = f3("APPEND-TWO");
669 return f38 = (function(v85){
670 ((v85)["fname"] = "APPEND-TWO");
672 })((function (v86,v87){
673 if (arguments.length < 2) throw 'too few arguments';
674 if (arguments.length > 2) throw 'too many arguments';
675 return (f1(v86) !== v2 ? v87 : ({car: (function(){
677 return tmp === v2? v2: tmp.car;
678 })(), cdr: f39((function(){
680 return tmp === v2? v2: tmp.cdr;
688 return f39 = (function(v88){
689 ((v88)["fname"] = "APPEND");
693 for (var i = arguments.length-1; i>=0; i--)
694 v89 = {car: arguments[i], cdr: v89};
695 return f37(f38, v89, l2);
702 return f40 = (function(v90){
703 ((v90)["fname"] = "REVERSE-AUX");
705 })((function (v91,v92){
706 if (arguments.length < 2) throw 'too few arguments';
707 if (arguments.length > 2) throw 'too many arguments';
708 return (f1(v91) !== v2 ? v92 : f40((function(){
710 return tmp === v2? v2: tmp.cdr;
711 })(), ({car: (function(){
713 return tmp === v2? v2: tmp.car;
721 return f41 = (function(v93){
722 ((v93)["fname"] = "REVERSE");
725 if (arguments.length < 1) throw 'too few arguments';
726 if (arguments.length > 1) throw 'too many arguments';
734 return f42 = (function(v95){
735 ((v95)["fname"] = "LIST-LENGTH");
738 if (arguments.length < 1) throw 'too few arguments';
739 if (arguments.length > 1) throw 'too many arguments';
740 return (function(v97){
742 while(f17(f1(v96)) !== v2){
746 if (typeof x != 'number')
747 throw 'The value ' + x + ' is not a type number.';
748 if (typeof y != 'number')
749 throw 'The value ' + y + ' is not a type number.';
754 return tmp === v2? v2: tmp.cdr;
765 return f43 = (function(v98){
766 ((v98)["fname"] = "LENGTH");
769 if (arguments.length < 1) throw 'too few arguments';
770 if (arguments.length > 1) throw 'too many arguments';
771 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
773 if (typeof x != 'string')
774 throw 'The value ' + x + ' is not a type string.';
783 return f44 = (function(v100){
784 ((v100)["fname"] = "CONCAT-TWO");
786 })((function (v101,v102){
787 if (arguments.length < 2) throw 'too few arguments';
788 if (arguments.length > 2) throw 'too many arguments';
792 if (typeof string1 != 'string')
793 throw 'The value ' + string1 + ' is not a type string.';
794 if (typeof string2 != 'string')
795 throw 'The value ' + string2 + ' is not a type string.';
796 return string1.concat(string2);
804 return f45 = (function(v103){
805 ((v103)["fname"] = "MAPCAR");
807 })((function (v104,v105){
808 if (arguments.length < 2) throw 'too few arguments';
809 if (arguments.length > 2) throw 'too many arguments';
810 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
812 return tmp === v2? v2: tmp.car;
813 })()), cdr: f45(v104, (function(){
815 return tmp === v2? v2: tmp.cdr;
823 return f46 = (function(v106){
824 ((v106)["fname"] = "CODE-CHAR");
827 if (arguments.length < 1) throw 'too few arguments';
828 if (arguments.length > 1) throw 'too many arguments';
836 return f47 = (function(v108){
837 ((v108)["fname"] = "CHAR-CODE");
840 if (arguments.length < 1) throw 'too few arguments';
841 if (arguments.length > 1) throw 'too many arguments';
849 return f48 = (function(v110){
850 ((v110)["fname"] = "CHAR=");
852 })((function (v111,v112){
853 if (arguments.length < 2) throw 'too few arguments';
854 if (arguments.length > 2) throw 'too many arguments';
858 if (typeof x != 'number')
859 throw 'The value ' + x + ' is not a type number.';
860 if (typeof y != 'number')
861 throw 'The value ' + y + ' is not a type number.';
870 return f49 = (function(v113){
871 ((v113)["fname"] = "INTEGERP");
874 if (arguments.length < 1) throw 'too few arguments';
875 if (arguments.length > 1) throw 'too many arguments';
876 return (((typeof (v114) == "number")?v3: v2) !== v2 ? ((function(){
879 if (typeof x != 'number')
880 throw 'The value ' + x + ' is not a type number.';
881 return Math.floor(x);
884 if (typeof x != 'number')
885 throw 'The value ' + x + ' is not a type number.';
886 if (typeof y != 'number')
887 throw 'The value ' + y + ' is not a type number.';
896 return f50 = (function(v115){
897 ((v115)["fname"] = "PLUSP");
900 if (arguments.length < 1) throw 'too few arguments';
901 if (arguments.length > 1) throw 'too many arguments';
905 if (typeof x != 'number')
906 throw 'The value ' + x + ' is not a type number.';
907 if (typeof y != 'number')
908 throw 'The value ' + y + ' is not a type number.';
917 return f51 = (function(v117){
918 ((v117)["fname"] = "MINUSP");
921 if (arguments.length < 1) throw 'too few arguments';
922 if (arguments.length > 1) throw 'too many arguments';
926 if (typeof x != 'number')
927 throw 'The value ' + x + ' is not a type number.';
928 if (typeof y != 'number')
929 throw 'The value ' + y + ' is not a type number.';
938 return f36 = (function(v119){
939 ((v119)["fname"] = "LISTP");
942 if (arguments.length < 1) throw 'too few arguments';
943 if (arguments.length > 1) throw 'too many arguments';
944 return (function(v121){
945 return (v121 !== v2 ? v121 : f1(v120));
948 return (typeof tmp == 'object' && 'car' in tmp);
956 return f52 = (function(v122){
957 ((v122)["fname"] = "NTH");
959 })((function (v123,v124){
960 if (arguments.length < 2) throw 'too few arguments';
961 if (arguments.length > 2) throw 'too many arguments';
962 return (f1(v124) !== v2 ? (function(){
964 })() : (f14(v123) !== v2 ? (function(){
967 return tmp === v2? v2: tmp.car;
970 return f52(f13(v123), (function(){
972 return tmp === v2? v2: tmp.cdr;
981 return f53 = (function(v125){
982 ((v125)["fname"] = "LAST");
985 if (arguments.length < 1) throw 'too few arguments';
986 if (arguments.length > 1) throw 'too many arguments';
987 return (((function(){
988 var tmp = (function(){
990 return tmp === v2? v2: tmp.cdr;
992 return (typeof tmp == 'object' && 'car' in tmp);
993 })()?v3: v2) !== v2 ? f53((function(){
995 return tmp === v2? v2: tmp.cdr;
1003 return f54 = (function(v127){
1004 ((v127)["fname"] = "BUTLAST");
1006 })((function (v128){
1007 if (arguments.length < 1) throw 'too few arguments';
1008 if (arguments.length > 1) throw 'too many arguments';
1009 return (((function(){
1010 var tmp = (function(){
1012 return tmp === v2? v2: tmp.cdr;
1014 return (typeof tmp == 'object' && 'car' in tmp);
1015 })()?v3: v2) !== v2 ? ({car: (function(){
1017 return tmp === v2? v2: tmp.car;
1018 })(), cdr: f54((function(){
1020 return tmp === v2? v2: tmp.cdr;
1028 return f55 = (function(v129){
1029 ((v129)["fname"] = "MEMBER");
1031 })((function (v130,v131){
1032 if (arguments.length < 2) throw 'too few arguments';
1033 if (arguments.length > 2) throw 'too many arguments';
1034 return (f1(v131) !== v2 ? (function(){
1036 })() : (f16(v130, (function(){
1038 return tmp === v2? v2: tmp.car;
1039 })()) !== v2 ? (function(){
1042 return f55(v130, (function(){
1044 return tmp === v2? v2: tmp.cdr;
1053 return f56 = (function(v132){
1054 ((v132)["fname"] = "REMOVE");
1056 })((function (v133,v134){
1057 if (arguments.length < 2) throw 'too few arguments';
1058 if (arguments.length > 2) throw 'too many arguments';
1059 return (f1(v134) !== v2 ? (function(){
1061 })() : (f16(v133, (function(){
1063 return tmp === v2? v2: tmp.car;
1064 })()) !== v2 ? (function(){
1065 return f56(v133, (function(){
1067 return tmp === v2? v2: tmp.cdr;
1070 return ({car: (function(){
1072 return tmp === v2? v2: tmp.car;
1073 })(), cdr: f56(v133, (function(){
1075 return tmp === v2? v2: tmp.cdr;
1084 return f57 = (function(v135){
1085 ((v135)["fname"] = "REMOVE-IF");
1087 })((function (v136,v137){
1088 if (arguments.length < 2) throw 'too few arguments';
1089 if (arguments.length > 2) throw 'too many arguments';
1090 return (f1(v137) !== v2 ? (function(){
1092 })() : ((v136)((function(){
1094 return tmp === v2? v2: tmp.car;
1095 })()) !== v2 ? (function(){
1096 return f57(v136, (function(){
1098 return tmp === v2? v2: tmp.cdr;
1101 return ({car: (function(){
1103 return tmp === v2? v2: tmp.car;
1104 })(), cdr: f57(v136, (function(){
1106 return tmp === v2? v2: tmp.cdr;
1115 return f58 = (function(v138){
1116 ((v138)["fname"] = "REMOVE-IF-NOT");
1118 })((function (v139,v140){
1119 if (arguments.length < 2) throw 'too few arguments';
1120 if (arguments.length > 2) throw 'too many arguments';
1121 return (f1(v140) !== v2 ? (function(){
1123 })() : ((v139)((function(){
1125 return tmp === v2? v2: tmp.car;
1126 })()) !== v2 ? (function(){
1127 return ({car: (function(){
1129 return tmp === v2? v2: tmp.car;
1130 })(), cdr: f58(v139, (function(){
1132 return tmp === v2? v2: tmp.cdr;
1135 return f58(v139, (function(){
1137 return tmp === v2? v2: tmp.cdr;
1146 return f59 = (function(v141){
1147 ((v141)["fname"] = "DIGIT-CHAR-P");
1149 })((function (v142){
1150 if (arguments.length < 1) throw 'too few arguments';
1151 if (arguments.length > 1) throw 'too many arguments';
1152 return ((((function(){
1155 if (typeof x != 'number')
1156 throw 'The value ' + x + ' is not a type number.';
1157 if (typeof y != 'number')
1158 throw 'The value ' + y + ' is not a type number.';
1160 })()?v3: v2) !== v2 ? ((function(){
1163 if (typeof x != 'number')
1164 throw 'The value ' + x + ' is not a type number.';
1165 if (typeof y != 'number')
1166 throw 'The value ' + y + ' is not a type number.';
1168 })()?v3: v2) : v2) !== v2 ? (function(){
1171 if (typeof x != 'number')
1172 throw 'The value ' + x + ' is not a type number.';
1173 if (typeof y != 'number')
1174 throw 'The value ' + y + ' is not a type number.';
1183 return f60 = (function(v143){
1184 ((v143)["fname"] = "SUBSEQ");
1186 })((function (v144,v145,v146){
1187 if (arguments.length < 2) throw 'too few arguments';
1188 if (arguments.length > 3) throw 'too many arguments';
1189 switch(arguments.length){
1194 return (((typeof(v144) == "string")?v3: v2) !== v2 ? (function(){
1195 return (v146 !== v2 ? (function(){
1200 return str.slice(a,b);
1205 return str.slice(a,b);
1208 return (function (){ throw "Unsupported argument."; })();
1216 return f61 = (function(v147){
1217 ((v147)["fname"] = "PARSE-INTEGER");
1219 })((function (v148){
1220 if (arguments.length < 1) throw 'too few arguments';
1221 if (arguments.length > 1) throw 'too many arguments';
1222 return (function(v149,v150,v151){
1227 if (typeof x != 'number')
1228 throw 'The value ' + x + ' is not a type number.';
1229 if (typeof y != 'number')
1230 throw 'The value ' + y + ' is not a type number.';
1232 })()?v3: v2) !== v2){
1234 var x = (function(){
1237 if (typeof x != 'number')
1238 throw 'The value ' + x + ' is not a type number.';
1239 if (typeof y != 'number')
1240 throw 'The value ' + y + ' is not a type number.';
1243 var y = f59((function(){
1246 if (typeof string != 'string')
1247 throw 'The value ' + string + ' is not a type string.';
1248 if (typeof index != 'number')
1249 throw 'The value ' + index + ' is not a type number.';
1250 return string.charCodeAt(index);
1252 if (typeof x != 'number')
1253 throw 'The value ' + x + ' is not a type number.';
1254 if (typeof y != 'number')
1255 throw 'The value ' + y + ' is not a type number.';
1261 if (typeof x != 'number')
1262 throw 'The value ' + x + ' is not a type number.';
1263 if (typeof y != 'number')
1264 throw 'The value ' + y + ' is not a type number.';
1276 return f62 = (function(v152){
1277 ((v152)["fname"] = "EVERY");
1279 })((function (v153,v154){
1280 if (arguments.length < 2) throw 'too few arguments';
1281 if (arguments.length > 2) throw 'too many arguments';
1282 return (function(v155,v156,v157){
1284 while((v155 !== v2 ? ((function(){
1287 if (typeof x != 'number')
1288 throw 'The value ' + x + ' is not a type number.';
1289 if (typeof y != 'number')
1290 throw 'The value ' + y + ' is not a type number.';
1292 })()?v3: v2) : v2) !== v2){
1293 ((v153)((function(){
1296 if (typeof string != 'string')
1297 throw 'The value ' + string + ' is not a type string.';
1298 if (typeof index != 'number')
1299 throw 'The value ' + index + ' is not a type number.';
1300 return string.charCodeAt(index);
1301 })()) !== v2 ? v2 : (function(){
1307 if (typeof x != 'number')
1308 throw 'The value ' + x + ' is not a type number.';
1309 if (typeof y != 'number')
1310 throw 'The value ' + y + ' is not a type number.';
1322 return f63 = (function(v158){
1323 ((v158)["fname"] = "ASSOC");
1325 })((function (v159,v160){
1326 if (arguments.length < 2) throw 'too few arguments';
1327 if (arguments.length > 2) throw 'too many arguments';
1328 return (f1(v160) !== v2 ? (function(){
1330 })() : (f16(v159, f22(v160)) !== v2 ? (function(){
1333 return tmp === v2? v2: tmp.car;
1336 return f63(v159, (function(){
1338 return tmp === v2? v2: tmp.cdr;
1347 return f64 = (function(v161){
1348 ((v161)["fname"] = "STRING=");
1350 })((function (v162,v163){
1351 if (arguments.length < 2) throw 'too few arguments';
1352 if (arguments.length > 2) throw 'too many arguments';
1353 return ((v162 == v163)?v3: v2);
1359 var l32 = f3("*NEWLINE*");
1363 return v164 = (function(){
1365 if (typeof x != 'number')
1366 throw 'The value ' + x + ' is not a type number.';
1367 return String.fromCharCode(x);
1372 var l33 = f3("CONCAT");
1376 return f65 = (function(v165){
1377 ((v165)["fname"] = "CONCAT");
1381 for (var i = arguments.length-1; i>=0; i--)
1382 v166 = {car: arguments[i], cdr: v166};
1383 return f37(f44, v166, "");
1388 var l34 = f3("JOIN");
1392 return f66 = (function(v167){
1393 ((v167)["fname"] = "JOIN");
1395 })((function (v168,v169){
1396 if (arguments.length < 1) throw 'too few arguments';
1397 if (arguments.length > 2) throw 'too many arguments';
1398 switch(arguments.length){
1403 return (f1(v168) !== v2 ? (function(){
1405 })() : (f1((function(){
1407 return tmp === v2? v2: tmp.cdr;
1408 })()) !== v2 ? (function(){
1411 return tmp === v2? v2: tmp.car;
1414 return f65((function(){
1416 return tmp === v2? v2: tmp.car;
1417 })(), v169, f66((function(){
1419 return tmp === v2? v2: tmp.cdr;
1426 var l35 = f3("JOIN-TRAILING");
1430 return f67 = (function(v170){
1431 ((v170)["fname"] = "JOIN-TRAILING");
1433 })((function (v171,v172){
1434 if (arguments.length < 1) throw 'too few arguments';
1435 if (arguments.length > 2) throw 'too many arguments';
1436 switch(arguments.length){
1441 return (f1(v171) !== v2 ? "" : f65((function(){
1443 return tmp === v2? v2: tmp.car;
1444 })(), v172, f67((function(){
1446 return tmp === v2? v2: tmp.cdr;
1452 var l36 = f3("INDENT");
1456 return f68 = (function(v173){
1457 ((v173)["fname"] = "INDENT");
1461 for (var i = arguments.length-1; i>=0; i--)
1462 v174 = {car: arguments[i], cdr: v174};
1463 return (function(v175){
1464 return (function(v176,v177,v178){
1465 (f50(v178) !== v2 ? (function(){
1472 if (typeof x != 'number')
1473 throw 'The value ' + x + ' is not a type number.';
1474 if (typeof y != 'number')
1475 throw 'The value ' + y + ' is not a type number.';
1477 })()?v3: v2) !== v2){
1478 v176 = f65(v176, ((f48((function(){
1481 if (typeof string != 'string')
1482 throw 'The value ' + string + ' is not a type string.';
1483 if (typeof index != 'number')
1484 throw 'The value ' + index + ' is not a type number.';
1485 return string.charCodeAt(index);
1486 })(), 10) !== v2 ? (((function(){
1489 if (typeof x != 'number')
1490 throw 'The value ' + x + ' is not a type number.';
1491 if (typeof y != 'number')
1492 throw 'The value ' + y + ' is not a type number.';
1494 })()?v3: v2) !== v2 ? f17(f48((function(){
1496 var index = f12(v177);
1497 if (typeof string != 'string')
1498 throw 'The value ' + string + ' is not a type string.';
1499 if (typeof index != 'number')
1500 throw 'The value ' + index + ' is not a type number.';
1501 return string.charCodeAt(index);
1502 })(), 10)) : v2) : v2) !== v2 ? f65((function(){
1504 if (typeof x != 'number')
1505 throw 'The value ' + x + ' is not a type number.';
1506 return String.fromCharCode(x);
1507 })(), " ") : f60(v175, v177, f12(v177))));
1511 if (typeof x != 'number')
1512 throw 'The value ' + x + ' is not a type number.';
1513 if (typeof y != 'number')
1514 throw 'The value ' + y + ' is not a type number.';
1520 })(f37(f65, v174, ""));
1525 var l37 = f3("INTEGER-TO-STRING");
1529 return f6 = (function(v179){
1530 ((v179)["fname"] = "INTEGER-TO-STRING");
1532 })((function (v180){
1533 if (arguments.length < 1) throw 'too few arguments';
1534 if (arguments.length > 1) throw 'too many arguments';
1535 return (f14(v180) !== v2 ? (function(){
1537 })() : (f51(v180) !== v2 ? (function(){
1538 return f65("-", f6((function(){
1541 if (typeof x != 'number')
1542 throw 'The value ' + x + ' is not a type number.';
1543 if (typeof y != 'number')
1544 throw 'The value ' + y + ' is not a type number.';
1548 return (function(v181){
1550 while(f17(f14(v180)) !== v2){
1551 v181 = ({car: (function(){
1554 if (typeof x != 'number')
1555 throw 'The value ' + x + ' is not a type number.';
1556 if (typeof y != 'number')
1557 throw 'The value ' + y + ' is not a type number.';
1560 v180 = f15(v180, 10);
1562 return f66(f45((function (v182){
1563 if (arguments.length < 1) throw 'too few arguments';
1564 if (arguments.length > 1) throw 'too many arguments';
1566 var x = (function(){
1567 var string = "0123456789";
1569 if (typeof string != 'string')
1570 throw 'The value ' + string + ' is not a type string.';
1571 if (typeof index != 'number')
1572 throw 'The value ' + index + ' is not a type number.';
1573 return string.charCodeAt(index);
1575 if (typeof x != 'number')
1576 throw 'The value ' + x + ' is not a type number.';
1577 return String.fromCharCode(x);
1586 var l40 = f3("PRINT");
1588 var l39 = f3("WRITE-LINE");
1590 var l38 = f3("PRINT-TO-STRING");
1595 return f69 = (function(v183){
1596 ((v183)["fname"] = "PRINT-TO-STRING");
1598 })((function (v184){
1599 if (arguments.length < 1) throw 'too few arguments';
1600 if (arguments.length > 1) throw 'too many arguments';
1601 return (((function(){
1603 return (typeof tmp == 'object' && 'name' in tmp);
1604 })()?v3: v2) !== v2 ? (function(){
1606 })() : (f49(v184) !== v2 ? (function(){
1608 })() : (((typeof(v184) == "string")?v3: v2) !== v2 ? (function(){
1609 return f65("\"", f70(v184), "\"");
1610 })() : (((typeof v184 == 'function')?v3: v2) !== v2 ? (function(){
1611 return (function(v185){
1612 return (v185 !== v2 ? f65("#<FUNCTION ", v185, ">") : f65("#<FUNCTION>"));
1614 var tmp = (v184)["fname"];
1615 return tmp == undefined? v2: tmp ;
1617 })() : (f36(v184) !== v2 ? (function(){
1618 return f65("(", f67(f45(f69, f54(v184)), " "), (function(v186){
1619 return (f1((function(){
1621 return tmp === v2? v2: tmp.cdr;
1622 })()) !== v2 ? f69((function(){
1624 return tmp === v2? v2: tmp.car;
1625 })()) : f65(f69((function(){
1627 return tmp === v2? v2: tmp.car;
1628 })()), " . ", f69((function(){
1630 return tmp === v2? v2: tmp.cdr;
1632 })(f53(v184)), ")");
1640 return f71 = (function(v187){
1641 ((v187)["fname"] = "WRITE-LINE");
1643 })((function (v188){
1644 if (arguments.length < 1) throw 'too few arguments';
1645 if (arguments.length > 1) throw 'too many arguments';
1648 if (typeof x != 'string')
1649 throw 'The value ' + x + ' is not a type string.';
1650 return lisp.write(x);
1654 if (typeof x != 'string')
1655 throw 'The value ' + x + ' is not a type string.';
1656 return lisp.write(x);
1665 return f72 = (function(v189){
1666 ((v189)["fname"] = "PRINT");
1668 })((function (v190){
1669 if (arguments.length < 1) throw 'too few arguments';
1670 if (arguments.length > 1) throw 'too many arguments';
1671 return f71(f69(v190));
1677 var l41 = f3("MAKE-STRING-STREAM");
1681 return f73 = (function(v191){
1682 ((v191)["fname"] = "MAKE-STRING-STREAM");
1684 })((function (v192){
1685 if (arguments.length < 1) throw 'too few arguments';
1686 if (arguments.length > 1) throw 'too many arguments';
1687 return ({car: v192, cdr: 0});
1692 var l42 = f3("%PEEK-CHAR");
1696 return f74 = (function(v193){
1697 ((v193)["fname"] = "%PEEK-CHAR");
1699 })((function (v194){
1700 if (arguments.length < 1) throw 'too few arguments';
1701 if (arguments.length > 1) throw 'too many arguments';
1702 return (((function(){
1703 var x = (function(){
1705 return tmp === v2? v2: tmp.cdr;
1707 var y = f43((function(){
1709 return tmp === v2? v2: tmp.car;
1711 if (typeof x != 'number')
1712 throw 'The value ' + x + ' is not a type number.';
1713 if (typeof y != 'number')
1714 throw 'The value ' + y + ' is not a type number.';
1716 })()?v3: v2) !== v2 ? (function(){
1717 var string = (function(){
1719 return tmp === v2? v2: tmp.car;
1721 var index = (function(){
1723 return tmp === v2? v2: tmp.cdr;
1725 if (typeof string != 'string')
1726 throw 'The value ' + string + ' is not a type string.';
1727 if (typeof index != 'number')
1728 throw 'The value ' + index + ' is not a type number.';
1729 return string.charCodeAt(index);
1735 var l43 = f3("%READ-CHAR");
1739 return f75 = (function(v195){
1740 ((v195)["fname"] = "%READ-CHAR");
1742 })((function (v196){
1743 if (arguments.length < 1) throw 'too few arguments';
1744 if (arguments.length > 1) throw 'too many arguments';
1745 return (((function(){
1746 var x = (function(){
1748 return tmp === v2? v2: tmp.cdr;
1750 var y = f43((function(){
1752 return tmp === v2? v2: tmp.car;
1754 if (typeof x != 'number')
1755 throw 'The value ' + x + ' is not a type number.';
1756 if (typeof y != 'number')
1757 throw 'The value ' + y + ' is not a type number.';
1759 })()?v3: v2) !== v2 ? (function(v197){
1762 if (typeof x != 'object')
1763 throw 'The value ' + x + ' is not a type object.';
1764 return (x.cdr = f12((function(){
1766 return tmp === v2? v2: tmp.cdr;
1771 var string = (function(){
1773 return tmp === v2? v2: tmp.car;
1775 var index = (function(){
1777 return tmp === v2? v2: tmp.cdr;
1779 if (typeof string != 'string')
1780 throw 'The value ' + string + ' is not a type string.';
1781 if (typeof index != 'number')
1782 throw 'The value ' + index + ' is not a type number.';
1783 return string.charCodeAt(index);
1789 var l44 = f3("WHITESPACEP");
1793 return f76 = (function(v198){
1794 ((v198)["fname"] = "WHITESPACEP");
1796 })((function (v199){
1797 if (arguments.length < 1) throw 'too few arguments';
1798 if (arguments.length > 1) throw 'too many arguments';
1799 return (function(v200){
1800 return (v200 !== v2 ? v200 : (function(v201){
1801 return (v201 !== v2 ? v201 : f48(v199, 9));
1808 var l45 = f3("SKIP-WHITESPACES");
1812 return f77 = (function(v202){
1813 ((v202)["fname"] = "SKIP-WHITESPACES");
1815 })((function (v203){
1816 if (arguments.length < 1) throw 'too few arguments';
1817 if (arguments.length > 1) throw 'too many arguments';
1818 return (function(v204){
1821 while((v204 !== v2 ? f76(v204) : v2) !== v2){
1830 var l46 = f3("TERMINALP");
1834 return f78 = (function(v205){
1835 ((v205)["fname"] = "TERMINALP");
1837 })((function (v206){
1838 if (arguments.length < 1) throw 'too few arguments';
1839 if (arguments.length > 1) throw 'too many arguments';
1840 return (function(v207){
1841 return (v207 !== v2 ? v207 : (function(v208){
1842 return (v208 !== v2 ? v208 : (function(v209){
1843 return (v209 !== v2 ? v209 : f48(40, v206));
1851 var l47 = f3("READ-UNTIL");
1855 return f79 = (function(v210){
1856 ((v210)["fname"] = "READ-UNTIL");
1858 })((function (v211,v212){
1859 if (arguments.length < 2) throw 'too few arguments';
1860 if (arguments.length > 2) throw 'too many arguments';
1861 return (function(v213,v214){
1864 while((v214 !== v2 ? f17((v212)(v214)) : v2) !== v2){
1865 v213 = f65(v213, (function(){
1867 if (typeof x != 'number')
1868 throw 'The value ' + x + ' is not a type number.';
1869 return String.fromCharCode(x);
1880 var l48 = f3("SKIP-WHITESPACES-AND-COMMENTS");
1884 return f80 = (function(v215){
1885 ((v215)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
1887 })((function (v216){
1888 if (arguments.length < 1) throw 'too few arguments';
1889 if (arguments.length > 1) throw 'too many arguments';
1890 return (function(v217){
1894 while((v217 !== v2 ? f48(v217, 59) : v2) !== v2){
1895 f79(v216, (function (v218){
1896 if (arguments.length < 1) throw 'too few arguments';
1897 if (arguments.length > 1) throw 'too many arguments';
1898 return f48(v218, 10);
1908 var l49 = f3("%READ-LIST");
1912 return f81 = (function(v219){
1913 ((v219)["fname"] = "%READ-LIST");
1915 })((function (v220){
1916 if (arguments.length < 1) throw 'too few arguments';
1917 if (arguments.length > 1) throw 'too many arguments';
1919 return (function(v221){
1920 return (f1(v221) !== v2 ? (function(){
1921 return (function (){ throw "Unspected EOF"; })();
1922 })() : (f48(v221, 41) !== v2 ? (function(){
1925 })() : (f48(v221, 46) !== v2 ? (function(){
1927 return (function(v222){
1929 (f48(f75(v220), 41) !== v2 ? v2 : (function(){
1930 return (function (){ throw "')' was expected."; })();
1935 return ({car: f82(v220), cdr: f81(v220)});
1942 var l50 = f3("READ-STRING");
1946 return f83 = (function(v223){
1947 ((v223)["fname"] = "READ-STRING");
1949 })((function (v224){
1950 if (arguments.length < 1) throw 'too few arguments';
1951 if (arguments.length > 1) throw 'too many arguments';
1952 return (function(v225,v226){
1955 while(f17(f16(v226, 34)) !== v2){
1956 (f1(v226) !== v2 ? (function(){
1957 return (function (){ throw "Unexpected EOF"; })();
1959 (f16(v226, 92) !== v2 ? (function(){
1960 return v226 = f75(v224);
1962 v225 = f65(v225, (function(){
1964 if (typeof x != 'number')
1965 throw 'The value ' + x + ' is not a type number.';
1966 return String.fromCharCode(x);
1976 var l52 = f3("READ-SHARP");
1977 var l51 = f3("FUNCTION");
1981 return f84 = (function(v227){
1982 ((v227)["fname"] = "READ-SHARP");
1984 })((function (v228){
1985 if (arguments.length < 1) throw 'too few arguments';
1986 if (arguments.length > 1) throw 'too many arguments';
1988 return (function(v229){
1989 return (f16(v229, 39) !== v2 ? (function(){
1990 return f33(l51, f82(v228));
1991 })() : (f16(v229, 92) !== v2 ? (function(){
1992 return (function(v230){
1993 return (f64(v230, "space") !== v2 ? (function(){
1995 })() : (f64(v230, "tab") !== v2 ? (function(){
1997 })() : (f64(v230, "newline") !== v2 ? (function(){
2000 return f47((function(){
2003 if (typeof string != 'string')
2004 throw 'The value ' + string + ' is not a type string.';
2005 if (typeof index != 'number')
2006 throw 'The value ' + index + ' is not a type number.';
2007 return string.charCodeAt(index);
2012 if (typeof x != 'number')
2013 throw 'The value ' + x + ' is not a type number.';
2014 return String.fromCharCode(x);
2015 })(), f79(v228, f78)));
2016 })() : (f16(v229, 43) !== v2 ? (function(){
2017 return (function(v231){
2018 return (f64(v231, "common-lisp") !== v2 ? (function(){
2021 })() : (f64(v231, "ecmalisp") !== v2 ? (function(){
2024 return (function (){ throw "Unknown reader form."; })();
2028 return (function (){ throw "ECASE expression failed."; })();
2035 var l53 = f3("*EOF*");
2039 return v232 = (function(){
2041 if (typeof name != 'string')
2042 throw 'The value ' + name + ' is not a type string.';
2043 return ({name: name});
2048 var l58 = f3("LS-READ");
2049 var l57 = f3("UNQUOTE");
2050 var l56 = f3("UNQUOTE-SPLICING");
2051 var l55 = f3("BACKQUOTE");
2052 var l54 = f3("QUOTE");
2056 return f82 = (function(v233){
2057 ((v233)["fname"] = "LS-READ");
2059 })((function (v234){
2060 if (arguments.length < 1) throw 'too few arguments';
2061 if (arguments.length > 1) throw 'too many arguments';
2063 return (function(v235){
2064 return (f1(v235) !== v2 ? (function(){
2066 })() : (f48(v235, 40) !== v2 ? (function(){
2069 })() : (f48(v235, 39) !== v2 ? (function(){
2071 return f33(l54, f82(v234));
2072 })() : (f48(v235, 96) !== v2 ? (function(){
2074 return f33(l55, f82(v234));
2075 })() : (f48(v235, 34) !== v2 ? (function(){
2078 })() : (f48(v235, 44) !== v2 ? (function(){
2080 return (f16(f74(v234), 64) !== v2 ? (function(){
2082 return f33(l56, f82(v234));
2083 })() : f33(l57, f82(v234)));
2084 })() : (f48(v235, 35) !== v2 ? (function(){
2087 return (function(v236){
2088 return (f62(f59, v236) !== v2 ? f61(v236) : f3((function(){
2090 if (typeof x != 'string')
2091 throw 'The value ' + x + ' is not a type string.';
2092 return x.toUpperCase();
2101 var l59 = f3("LS-READ-FROM-STRING");
2105 return f85 = (function(v237){
2106 ((v237)["fname"] = "LS-READ-FROM-STRING");
2108 })((function (v238){
2109 if (arguments.length < 1) throw 'too few arguments';
2110 if (arguments.length > 1) throw 'too many arguments';
2111 return f82(f73(v238));
2116 var l61 = f3("*COMPILATION-UNIT-CHECKS*");
2117 var l60 = f3("NIL");
2125 var l63 = f3("*ENV*");
2126 var l62 = f3("NIL");
2134 var l65 = f3("*FENV*");
2135 var l64 = f3("NIL");
2143 var l66 = f3("MAKE-BINDING");
2147 return f86 = (function(v242){
2148 ((v242)["fname"] = "MAKE-BINDING");
2150 })((function (v243,v244,v245,v246){
2151 if (arguments.length < 4) throw 'too few arguments';
2152 if (arguments.length > 4) throw 'too many arguments';
2153 return f33(v243, v244, v245, v246);
2158 var l67 = f3("BINDING-NAME");
2162 return f87 = (function(v247){
2163 ((v247)["fname"] = "BINDING-NAME");
2165 })((function (v248){
2166 if (arguments.length < 1) throw 'too few arguments';
2167 if (arguments.length > 1) throw 'too many arguments';
2173 var l68 = f3("BINDING-TYPE");
2177 return f88 = (function(v249){
2178 ((v249)["fname"] = "BINDING-TYPE");
2180 })((function (v250){
2181 if (arguments.length < 1) throw 'too few arguments';
2182 if (arguments.length > 1) throw 'too many arguments';
2188 var l69 = f3("BINDING-TRANSLATION");
2192 return f89 = (function(v251){
2193 ((v251)["fname"] = "BINDING-TRANSLATION");
2195 })((function (v252){
2196 if (arguments.length < 1) throw 'too few arguments';
2197 if (arguments.length > 1) throw 'too many arguments';
2203 var l70 = f3("BINDING-DECLARED");
2207 return f90 = (function(v253){
2208 ((v253)["fname"] = "BINDING-DECLARED");
2210 })((function (v254){
2211 if (arguments.length < 1) throw 'too few arguments';
2212 if (arguments.length > 1) throw 'too many arguments';
2213 return (v254 !== v2 ? f32(v254) : v2);
2218 var l71 = f3("MARK-BINDING-AS-DECLARED");
2222 return f91 = (function(v255){
2223 ((v255)["fname"] = "MARK-BINDING-AS-DECLARED");
2225 })((function (v256){
2226 if (arguments.length < 1) throw 'too few arguments';
2227 if (arguments.length > 1) throw 'too many arguments';
2230 if (typeof x != 'object')
2231 throw 'The value ' + x + ' is not a type object.';
2232 return (x.car = v3);
2238 var l72 = f3("*VARIABLE-COUNTER*");
2246 var l73 = f3("GVARNAME");
2250 return f92 = (function(v258){
2251 ((v258)["fname"] = "GVARNAME");
2253 })((function (v259){
2254 if (arguments.length < 1) throw 'too few arguments';
2255 if (arguments.length > 1) throw 'too many arguments';
2256 return f65("v", f6(v257 = (function(){
2259 if (typeof x != 'number')
2260 throw 'The value ' + x + ' is not a type number.';
2261 if (typeof y != 'number')
2262 throw 'The value ' + y + ' is not a type number.';
2269 var l75 = f3("LOOKUP-VARIABLE");
2270 var l74 = f3("VARIABLE");
2274 return f93 = (function(v260){
2275 ((v260)["fname"] = "LOOKUP-VARIABLE");
2277 })((function (v261,v262){
2278 if (arguments.length < 2) throw 'too few arguments';
2279 if (arguments.length > 2) throw 'too many arguments';
2280 return (function(v263){
2281 return (v263 !== v2 ? v263 : (function(v264){
2282 return (v264 !== v2 ? v264 : (function(v265,v266){
2283 v240 = ({car: v266, cdr: v240});
2284 v239 = ({car: (function (){
2285 if (arguments.length > 0) throw 'too many arguments';
2286 return (f90(f63(v261, v240)) !== v2 ? v2 : (function(){
2287 return (function (){ throw f65("Undefined variable `", v265, "'"); })();
2291 })((v261).name,f86(v261, l74, f92(v261), v2)));
2292 })(f63(v261, v240)));
2293 })(f63(v261, v262));
2298 var l76 = f3("LOOKUP-VARIABLE-TRANSLATION");
2302 return f94 = (function(v267){
2303 ((v267)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
2305 })((function (v268,v269){
2306 if (arguments.length < 2) throw 'too few arguments';
2307 if (arguments.length > 2) throw 'too many arguments';
2308 return f89(f93(v268, v269));
2313 var l78 = f3("EXTEND-LOCAL-ENV");
2314 var l77 = f3("VARIABLE");
2318 return f95 = (function(v270){
2319 ((v270)["fname"] = "EXTEND-LOCAL-ENV");
2321 })((function (v271,v272){
2322 if (arguments.length < 2) throw 'too few arguments';
2323 if (arguments.length > 2) throw 'too many arguments';
2324 return f39(f45((function (v273){
2325 if (arguments.length < 1) throw 'too few arguments';
2326 if (arguments.length > 1) throw 'too many arguments';
2327 return f86(v273, l77, f92(v273), v3);
2333 var l79 = f3("*FUNCTION-COUNTER*");
2341 var l81 = f3("LOOKUP-FUNCTION");
2342 var l80 = f3("FUNCTION");
2346 return f96 = (function(v275){
2347 ((v275)["fname"] = "LOOKUP-FUNCTION");
2349 })((function (v276,v277){
2350 if (arguments.length < 2) throw 'too few arguments';
2351 if (arguments.length > 2) throw 'too many arguments';
2352 return (function(v278){
2353 return (v278 !== v2 ? v278 : (function(v279){
2354 return (v279 !== v2 ? v279 : (function(v280,v281){
2355 v241 = ({car: v281, cdr: v241});
2356 v239 = ({car: (function (){
2357 if (arguments.length > 0) throw 'too many arguments';
2358 return (f90(f63(v276, v241)) !== v2 ? v2 : (function(){
2359 return (function (){ throw f65("Undefined function `", v280, "'"); })();
2363 })((v276).name,f86(v276, l80, f65("f", f6(v274 = (function(){
2366 if (typeof x != 'number')
2367 throw 'The value ' + x + ' is not a type number.';
2368 if (typeof y != 'number')
2369 throw 'The value ' + y + ' is not a type number.';
2372 })(f63(v276, v241)));
2373 })(f63(v276, v277));
2378 var l82 = f3("LOOKUP-FUNCTION-TRANSLATION");
2382 return f97 = (function(v282){
2383 ((v282)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
2385 })((function (v283,v284){
2386 if (arguments.length < 2) throw 'too few arguments';
2387 if (arguments.length > 2) throw 'too many arguments';
2388 return f89(f96(v283, v284));
2393 var l83 = f3("*TOPLEVEL-COMPILATIONS*");
2401 var l84 = f3("%COMPILE-DEFVAR");
2405 return f98 = (function(v286){
2406 ((v286)["fname"] = "%COMPILE-DEFVAR");
2408 })((function (v287){
2409 if (arguments.length < 1) throw 'too few arguments';
2410 if (arguments.length > 1) throw 'too many arguments';
2411 return (function(v288){
2413 return v285 = ({car: f65("var ", f89(v288)), cdr: v285});
2414 })(f93(v287, v240));
2419 var l85 = f3("%COMPILE-DEFUN");
2423 return f99 = (function(v289){
2424 ((v289)["fname"] = "%COMPILE-DEFUN");
2426 })((function (v290){
2427 if (arguments.length < 1) throw 'too few arguments';
2428 if (arguments.length > 1) throw 'too many arguments';
2429 return (function(v291){
2431 return v285 = ({car: f65("var ", f89(v291)), cdr: v285});
2432 })(f96(v290, v241));
2437 var l87 = f3("%COMPILE-DEFMACRO");
2438 var l86 = f3("MACRO");
2442 return f100 = (function(v292){
2443 ((v292)["fname"] = "%COMPILE-DEFMACRO");
2445 })((function (v293,v294){
2446 if (arguments.length < 2) throw 'too few arguments';
2447 if (arguments.length > 2) throw 'too many arguments';
2448 return v241 = ({car: f86(v293, l86, v294, v3), cdr: v241});
2453 var l88 = f3("*COMPILATIONS*");
2461 var l89 = f3("LS-COMPILE-BLOCK");
2465 return f101 = (function(v296){
2466 ((v296)["fname"] = "LS-COMPILE-BLOCK");
2468 })((function (v297,v298,v299){
2469 if (arguments.length < 3) throw 'too few arguments';
2470 if (arguments.length > 3) throw 'too many arguments';
2471 return f67(f57((function (v300){
2472 if (arguments.length < 1) throw 'too few arguments';
2473 if (arguments.length > 1) throw 'too many arguments';
2474 return (function(v301){
2475 return (v301 !== v2 ? v301 : (((typeof(v300) == "string")?v3: v2) !== v2 ? f14(f43(v300)) : v2));
2477 }), f45((function (v302){
2478 if (arguments.length < 1) throw 'too few arguments';
2479 if (arguments.length > 1) throw 'too many arguments';
2480 return f102(v302, v298, v299);
2481 }), v297)), f65(";", v164));
2487 v295 = ({car: f33(l90, (function (v303,v304,v305,v306,v307){
2488 if (arguments.length < 5) throw 'too few arguments';
2489 if (arguments.length > 5) throw 'too many arguments';
2490 return f65("(", f102(v305, v303, v304), " !== ", f102(v2, v2, v2), " ? ", f102(v306, v303, v304), " : ", f102(v307, v303, v304), ")");
2492 var l92 = f3("*LAMBDA-LIST-KEYWORDS*");
2493 var l91 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
2501 var l93 = f3("LIST-UNTIL-KEYWORD");
2505 return f103 = (function(v309){
2506 ((v309)["fname"] = "LIST-UNTIL-KEYWORD");
2508 })((function (v310){
2509 if (arguments.length < 1) throw 'too few arguments';
2510 if (arguments.length > 1) throw 'too many arguments';
2511 return ((function(v311){
2512 return (v311 !== v2 ? v311 : f55((function(){
2514 return tmp === v2? v2: tmp.car;
2516 })(f1(v310)) !== v2 ? v2 : ({car: (function(){
2518 return tmp === v2? v2: tmp.car;
2519 })(), cdr: f103((function(){
2521 return tmp === v2? v2: tmp.cdr;
2527 var l94 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
2531 return f104 = (function(v312){
2532 ((v312)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
2534 })((function (v313){
2535 if (arguments.length < 1) throw 'too few arguments';
2536 if (arguments.length > 1) throw 'too many arguments';
2542 var l96 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
2543 var l95 = f3("&OPTIONAL");
2547 return f105 = (function(v314){
2548 ((v314)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
2550 })((function (v315){
2551 if (arguments.length < 1) throw 'too few arguments';
2552 if (arguments.length > 1) throw 'too many arguments';
2553 return f45(f35, f103((function(){
2554 var tmp = f55(l95, v315);
2555 return tmp === v2? v2: tmp.cdr;
2561 var l97 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
2565 return f106 = (function(v316){
2566 ((v316)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
2568 })((function (v317){
2569 if (arguments.length < 1) throw 'too few arguments';
2570 if (arguments.length > 1) throw 'too many arguments';
2571 return f45(f20, f105(v317));
2576 var l99 = f3("LAMBDA-LIST-REST-ARGUMENT");
2577 var l98 = f3("&REST");
2581 return f107 = (function(v318){
2582 ((v318)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
2584 })((function (v319){
2585 if (arguments.length < 1) throw 'too few arguments';
2586 if (arguments.length > 1) throw 'too many arguments';
2587 return (function(v320){
2590 return tmp === v2? v2: tmp.cdr;
2591 })() !== v2 ? (function(){
2592 return (function (){ throw "Bad lambda-list"; })();
2596 return tmp === v2? v2: tmp.car;
2598 })(f103((function(){
2599 var tmp = f55(l98, v319);
2600 return tmp === v2? v2: tmp.cdr;
2606 var l100 = f3("LAMBDA");
2607 v295 = ({car: f33(l100, (function (v322,v323,v324){
2608 if (arguments.length < 3) throw 'too few arguments';
2610 for (var i = arguments.length-1; i>=3; i--)
2611 v321 = {car: arguments[i], cdr: v321};
2612 return (function(v325,v326,v327){
2613 return (function(v328,v329,v330){
2614 return f65("(function (", f66(f45((function (v331){
2615 if (arguments.length < 1) throw 'too few arguments';
2616 if (arguments.length > 1) throw 'too many arguments';
2617 return f94(v331, v330);
2618 }), f39(v325, v326)), ","), "){", v164, f68((v325 !== v2 ? f65("if (arguments.length < ", f6(v328), ") throw 'too few arguments';", v164) : ""), (f17(v327) !== v2 ? f65("if (arguments.length > ", f6((function(){
2621 if (typeof x != 'number')
2622 throw 'The value ' + x + ' is not a type number.';
2623 if (typeof y != 'number')
2624 throw 'The value ' + y + ' is not a type number.';
2626 })()), ") throw 'too many arguments';", v164) : ""), (v326 !== v2 ? f65("switch(arguments.length){", v164, (function(v332,v333,v334){
2632 if (typeof x != 'number')
2633 throw 'The value ' + x + ' is not a type number.';
2634 if (typeof y != 'number')
2635 throw 'The value ' + y + ' is not a type number.';
2637 })()?v3: v2) !== v2){
2639 v333 = ({car: f65("case ", f6((function(){
2642 if (typeof x != 'number')
2643 throw 'The value ' + x + ' is not a type number.';
2644 if (typeof y != 'number')
2645 throw 'The value ' + y + ' is not a type number.';
2647 })()), ":", v164, f94((function(){
2649 return tmp === v2? v2: tmp.car;
2650 })(), v330), "=", f102(f23(v335), v330, v323), ";", v164), cdr: v333});
2651 return v334 = (function(){
2654 if (typeof x != 'number')
2655 throw 'The value ' + x + ' is not a type number.';
2656 if (typeof y != 'number')
2657 throw 'The value ' + y + ' is not a type number.';
2660 })(f52(v334, v332));
2662 v333 = ({car: f65("default: break;", v164), cdr: v333});
2663 return f66(f41(v333));
2665 })(f105(v324),v2,0), "}", v164) : ""), (v327 !== v2 ? (function(v336){
2666 return f65("var ", v336, "= ", f102(v2, v322, v323), ";", v164, "for (var i = arguments.length-1; i>=", f6((function(){
2669 if (typeof x != 'number')
2670 throw 'The value ' + x + ' is not a type number.';
2671 if (typeof y != 'number')
2672 throw 'The value ' + y + ' is not a type number.';
2674 })()), "; i--)", v164, f68(v336, " = ", "{car: arguments[i], cdr: "), v336, "};", v164);
2675 })(f94(v327, v330)) : ""), f65(f101(f54(v321), v330, v323), "return ", f102((function(){
2676 var tmp = f53(v321);
2677 return tmp === v2? v2: tmp.car;
2678 })(), v330, v323), ";")), v164, "})");
2679 })(f43(v325),f43(v326),f95(f39(f35(v327), v325, v326), v322));
2680 })(f104(v324),f106(v324),f107(v324));
2682 var l101 = f3("FSETQ");
2683 v295 = ({car: f33(l101, (function (v337,v338,v339,v340){
2684 if (arguments.length < 4) throw 'too few arguments';
2685 if (arguments.length > 4) throw 'too many arguments';
2686 return f65(f97(v339, v338), " = ", f102(v340, v337, v338));
2688 var l102 = f3("SETQ");
2689 v295 = ({car: f33(l102, (function (v341,v342,v343,v344){
2690 if (arguments.length < 4) throw 'too few arguments';
2691 if (arguments.length > 4) throw 'too many arguments';
2692 return f65(f94(v343, v341), " = ", f102(v344, v341, v342));
2694 var l103 = f3("ESCAPE-STRING");
2698 return f70 = (function(v345){
2699 ((v345)["fname"] = "ESCAPE-STRING");
2701 })((function (v346){
2702 if (arguments.length < 1) throw 'too few arguments';
2703 if (arguments.length > 1) throw 'too many arguments';
2704 return (function(v347,v348,v349){
2709 if (typeof x != 'number')
2710 throw 'The value ' + x + ' is not a type number.';
2711 if (typeof y != 'number')
2712 throw 'The value ' + y + ' is not a type number.';
2714 })()?v3: v2) !== v2){
2717 return (v351 !== v2 ? v351 : f48(v350, 92));
2718 })(f48(v350, 34)) !== v2 ? (function(){
2719 return v347 = f65(v347, "\\");
2721 (f48(v350, 10) !== v2 ? (function(){
2722 v347 = f65(v347, "\\");
2725 return v347 = f65(v347, (function(){
2727 if (typeof x != 'number')
2728 throw 'The value ' + x + ' is not a type number.';
2729 return String.fromCharCode(x);
2734 if (typeof string != 'string')
2735 throw 'The value ' + string + ' is not a type string.';
2736 if (typeof index != 'number')
2737 throw 'The value ' + index + ' is not a type number.';
2738 return string.charCodeAt(index);
2743 if (typeof x != 'number')
2744 throw 'The value ' + x + ' is not a type number.';
2745 if (typeof y != 'number')
2746 throw 'The value ' + y + ' is not a type number.';
2756 var l105 = f3("LITERAL->JS");
2757 var l104 = f3("INTERN");
2761 return f108 = (function(v352){
2762 ((v352)["fname"] = "LITERAL->JS");
2764 })((function (v353){
2765 if (arguments.length < 1) throw 'too few arguments';
2766 if (arguments.length > 1) throw 'too many arguments';
2767 return (f49(v353) !== v2 ? (function(){
2769 })() : (((typeof(v353) == "string")?v3: v2) !== v2 ? (function(){
2770 return f65("\"", f70(v353), "\"");
2771 })() : (((function(){
2773 return (typeof tmp == 'object' && 'name' in tmp);
2774 })()?v3: v2) !== v2 ? (function(){
2775 return f102(f39(f33(l104), f33(f70((v353).name))), v240, v241);
2776 })() : (((function(){
2778 return (typeof tmp == 'object' && 'car' in tmp);
2779 })()?v3: v2) !== v2 ? (function(){
2780 return f65("{car: ", f108((function(){
2782 return tmp === v2? v2: tmp.car;
2783 })()), ", cdr: ", f108((function(){
2785 return tmp === v2? v2: tmp.cdr;
2792 var l106 = f3("*LITERAL-COUNTER*");
2800 var l107 = f3("LITERAL");
2804 return f109 = (function(v355){
2805 ((v355)["fname"] = "LITERAL");
2807 })((function (v356){
2808 if (arguments.length < 1) throw 'too few arguments';
2809 if (arguments.length > 1) throw 'too many arguments';
2810 return (function(v357){
2811 v285 = ({car: f65("var ", v357, " = ", f108(v356)), cdr: v285});
2813 })(f65("l", f6(v354 = (function(){
2816 if (typeof x != 'number')
2817 throw 'The value ' + x + ' is not a type number.';
2818 if (typeof y != 'number')
2819 throw 'The value ' + y + ' is not a type number.';
2826 var l108 = f3("QUOTE");
2827 v295 = ({car: f33(l108, (function (v358,v359,v360){
2828 if (arguments.length < 3) throw 'too few arguments';
2829 if (arguments.length > 3) throw 'too many arguments';
2832 var l109 = f3("WHILE");
2833 v295 = ({car: f33(l109, (function (v362,v363,v364){
2834 if (arguments.length < 3) throw 'too few arguments';
2836 for (var i = arguments.length-1; i>=3; i--)
2837 v361 = {car: arguments[i], cdr: v361};
2838 return f65("(function(){", v164, f68("while(", f102(v364, v362, v363), " !== ", f102(v2, v2, v2), "){", v164, f68(f101(v361, v362, v363))), "}})()");
2840 var l111 = f3("LAMBDA");
2841 var l110 = f3("FUNCTION");
2842 v295 = ({car: f33(l110, (function (v365,v366,v367){
2843 if (arguments.length < 3) throw 'too few arguments';
2844 if (arguments.length > 3) throw 'too many arguments';
2845 return ((f36(v367) !== v2 ? (((function(){
2847 return tmp === v2? v2: tmp.car;
2848 })() === l111)?v3: v2) : v2) !== v2 ? (function(){
2849 return f102(v367, v365, v366);
2850 })() : (((function(){
2852 return (typeof tmp == 'object' && 'name' in tmp);
2853 })()?v3: v2) !== v2 ? (function(){
2854 return f97(v367, v366);
2857 var l113 = f3("PROGN");
2858 var l112 = f3("EVAL-WHEN-COMPILE");
2859 v295 = ({car: f33(l112, (function (v369,v370){
2860 if (arguments.length < 2) throw 'too few arguments';
2862 for (var i = arguments.length-1; i>=2; i--)
2863 v368 = {car: arguments[i], cdr: v368};
2864 f110(({car: l113, cdr: v368}));
2867 var l114 = f3("PROGN");
2868 v295 = ({car: f33(l114, (function (v372,v373){
2869 if (arguments.length < 2) throw 'too few arguments';
2871 for (var i = arguments.length-1; i>=2; i--)
2872 v371 = {car: arguments[i], cdr: v371};
2873 return f65("(function(){", v164, f68(f101(f54(v371), v372, v373), "return ", f102((function(){
2874 var tmp = f53(v371);
2875 return tmp === v2? v2: tmp.car;
2876 })(), v372, v373), ";", v164), "})()");
2878 var l115 = f3("LET");
2879 v295 = ({car: f33(l115, (function (v375,v376,v377){
2880 if (arguments.length < 3) throw 'too few arguments';
2882 for (var i = arguments.length-1; i>=3; i--)
2883 v374 = {car: arguments[i], cdr: v374};
2884 return (function(v378){
2885 return (function(v379,v380){
2886 return (function(v381){
2887 return f65("(function(", f66(f45((function (v382){
2888 if (arguments.length < 1) throw 'too few arguments';
2889 if (arguments.length > 1) throw 'too many arguments';
2890 return f94(v382, v381);
2891 }), v379), ","), "){", v164, f68(f101(f54(v374), v381, v376), "return ", f102((function(){
2892 var tmp = f53(v374);
2893 return tmp === v2? v2: tmp.car;
2894 })(), v381, v376), ";", v164), "})(", f66(f45((function (v383){
2895 if (arguments.length < 1) throw 'too few arguments';
2896 if (arguments.length > 1) throw 'too many arguments';
2897 return f102(v383, v375, v376);
2898 }), v380), ","), ")");
2899 })(f95(v379, v375));
2900 })(f45(f29, v378),f45(f30, v378));
2903 var l124 = f3("BACKQUOTE-EXPAND-1");
2904 var l123 = f3("LIST");
2905 var l122 = f3("UNQUOTE-SPLICING");
2906 var l121 = f3("LIST");
2907 var l120 = f3("UNQUOTE");
2908 var l119 = f3("APPEND");
2909 var l118 = f3("BACKQUOTE");
2910 var l117 = f3("UNQUOTE");
2911 var l116 = f3("QUOTE");
2915 return f111 = (function(v384){
2916 ((v384)["fname"] = "BACKQUOTE-EXPAND-1");
2918 })((function (v385){
2919 if (arguments.length < 1) throw 'too few arguments';
2920 if (arguments.length > 1) throw 'too many arguments';
2921 return (((function(){
2923 return (typeof tmp == 'object' && 'name' in tmp);
2924 })()?v3: v2) !== v2 ? (function(){
2925 return f33(l116, v385);
2926 })() : (f34(v385) !== v2 ? (function(){
2928 })() : ((((function(){
2930 return tmp === v2? v2: tmp.car;
2931 })() === l117)?v3: v2) !== v2 ? (function(){
2934 return tmp === v2? v2: tmp.car;
2936 })() : ((((function(){
2938 return tmp === v2? v2: tmp.car;
2939 })() === l118)?v3: v2) !== v2 ? (function(){
2940 return f111(f111(f23(v385)));
2942 return ({car: l119, cdr: f45((function (v386){
2943 if (arguments.length < 1) throw 'too few arguments';
2944 if (arguments.length > 1) throw 'too many arguments';
2945 return ((f36(v386) !== v2 ? (((function(){
2947 return tmp === v2? v2: tmp.car;
2948 })() === l120)?v3: v2) : v2) !== v2 ? (function(){
2949 return f33(l121, f23(v386));
2950 })() : ((f36(v386) !== v2 ? (((function(){
2952 return tmp === v2? v2: tmp.car;
2953 })() === l122)?v3: v2) : v2) !== v2 ? (function(){
2956 return f33(l123, f111(v386));
2964 var l126 = f3("BACKQUOTE-EXPAND");
2965 var l125 = f3("BACKQUOTE");
2969 return f112 = (function(v387){
2970 ((v387)["fname"] = "BACKQUOTE-EXPAND");
2972 })((function (v388){
2973 if (arguments.length < 1) throw 'too few arguments';
2974 if (arguments.length > 1) throw 'too many arguments';
2975 return ((f36(v388) !== v2 ? (((function(){
2977 return tmp === v2? v2: tmp.car;
2978 })() === l125)?v3: v2) : v2) !== v2 ? f111(f23(v388)) : v388);
2983 var l127 = f3("BACKQUOTE");
2984 v295 = ({car: f33(l127, (function (v389,v390,v391){
2985 if (arguments.length < 3) throw 'too few arguments';
2986 if (arguments.length > 3) throw 'too many arguments';
2987 return f102(f111(v391), v389, v390);
2989 var l128 = f3("COMPILE-BOOL");
2993 return f113 = (function(v392){
2994 ((v392)["fname"] = "COMPILE-BOOL");
2996 })((function (v393){
2997 if (arguments.length < 1) throw 'too few arguments';
2998 if (arguments.length > 1) throw 'too many arguments';
2999 return f65("(", v393, "?", f102(v3, v2, v2), ": ", f102(v2, v2, v2), ")");
3004 var l129 = f3("NUM-OP-NUM");
3008 return f114 = (function(v394){
3009 ((v394)["fname"] = "NUM-OP-NUM");
3011 })((function (v395,v396,v397){
3012 if (arguments.length < 3) throw 'too few arguments';
3013 if (arguments.length > 3) throw 'too many arguments';
3014 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v395, ";", v164), f65("var ", "y", " = ", v397, ";", v164), f65("if (typeof ", "x", " != '", "number", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v164)), f65("if (typeof ", "y", " != '", "number", "')", v164, f68("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3015 return f65("x", v396, "y");
3016 })(), ";", v164)), "})()");
3022 v295 = ({car: f33(l130, (function (v398,v399,v400,v401){
3023 if (arguments.length < 4) throw 'too few arguments';
3024 if (arguments.length > 4) throw 'too many arguments';
3025 return (function(v402,v403){
3026 return f114(v402, "+", v403);
3027 })(f102(v400, v398, v399),f102(v401, v398, v399));
3030 v295 = ({car: f33(l131, (function (v404,v405,v406,v407){
3031 if (arguments.length < 4) throw 'too few arguments';
3032 if (arguments.length > 4) throw 'too many arguments';
3033 return (function(v408,v409){
3034 return f114(v408, "-", v409);
3035 })(f102(v406, v404, v405),f102(v407, v404, v405));
3038 v295 = ({car: f33(l132, (function (v410,v411,v412,v413){
3039 if (arguments.length < 4) throw 'too few arguments';
3040 if (arguments.length > 4) throw 'too many arguments';
3041 return (function(v414,v415){
3042 return f114(v414, "*", v415);
3043 })(f102(v412, v410, v411),f102(v413, v410, v411));
3046 v295 = ({car: f33(l133, (function (v416,v417,v418,v419){
3047 if (arguments.length < 4) throw 'too few arguments';
3048 if (arguments.length > 4) throw 'too many arguments';
3049 return (function(v420,v421){
3050 return f114(v420, "/", v421);
3051 })(f102(v418, v416, v417),f102(v419, v416, v417));
3053 var l134 = f3("MOD");
3054 v295 = ({car: f33(l134, (function (v422,v423,v424,v425){
3055 if (arguments.length < 4) throw 'too few arguments';
3056 if (arguments.length > 4) throw 'too many arguments';
3057 return (function(v426,v427){
3058 return f114(v426, "%", v427);
3059 })(f102(v424, v422, v423),f102(v425, v422, v423));
3062 v295 = ({car: f33(l135, (function (v428,v429,v430,v431){
3063 if (arguments.length < 4) throw 'too few arguments';
3064 if (arguments.length > 4) throw 'too many arguments';
3065 return (function(v432,v433){
3066 return f113(f114(v432, "<", v433));
3067 })(f102(v430, v428, v429),f102(v431, v428, v429));
3070 v295 = ({car: f33(l136, (function (v434,v435,v436,v437){
3071 if (arguments.length < 4) throw 'too few arguments';
3072 if (arguments.length > 4) throw 'too many arguments';
3073 return (function(v438,v439){
3074 return f113(f114(v438, ">", v439));
3075 })(f102(v436, v434, v435),f102(v437, v434, v435));
3078 v295 = ({car: f33(l137, (function (v440,v441,v442,v443){
3079 if (arguments.length < 4) throw 'too few arguments';
3080 if (arguments.length > 4) throw 'too many arguments';
3081 return (function(v444,v445){
3082 return f113(f114(v444, "==", v445));
3083 })(f102(v442, v440, v441),f102(v443, v440, v441));
3085 var l138 = f3("<=");
3086 v295 = ({car: f33(l138, (function (v446,v447,v448,v449){
3087 if (arguments.length < 4) throw 'too few arguments';
3088 if (arguments.length > 4) throw 'too many arguments';
3089 return (function(v450,v451){
3090 return f113(f114(v450, "<=", v451));
3091 })(f102(v448, v446, v447),f102(v449, v446, v447));
3093 var l139 = f3(">=");
3094 v295 = ({car: f33(l139, (function (v452,v453,v454,v455){
3095 if (arguments.length < 4) throw 'too few arguments';
3096 if (arguments.length > 4) throw 'too many arguments';
3097 return (function(v456,v457){
3098 return f113(f114(v456, ">=", v457));
3099 })(f102(v454, v452, v453),f102(v455, v452, v453));
3101 var l140 = f3("NUMBERP");
3102 v295 = ({car: f33(l140, (function (v458,v459,v460){
3103 if (arguments.length < 3) throw 'too few arguments';
3104 if (arguments.length > 3) throw 'too many arguments';
3105 return (function(v461){
3106 return f113(f65("(typeof (", v461, ") == \"number\")"));
3107 })(f102(v460, v458, v459));
3109 var l141 = f3("FLOOR");
3110 v295 = ({car: f33(l141, (function (v462,v463,v464){
3111 if (arguments.length < 3) throw 'too few arguments';
3112 if (arguments.length > 3) throw 'too many arguments';
3113 return (function(v465){
3114 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v465, ";", v164), f65("if (typeof ", "x", " != '", "number", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3115 return "Math.floor(x)";
3116 })(), ";", v164)), "})()");
3117 })(f102(v464, v462, v463));
3119 var l142 = f3("CONS");
3120 v295 = ({car: f33(l142, (function (v466,v467,v468,v469){
3121 if (arguments.length < 4) throw 'too few arguments';
3122 if (arguments.length > 4) throw 'too many arguments';
3123 return (function(v470,v471){
3124 return f65("({car: ", v470, ", cdr: ", v471, "})");
3125 })(f102(v468, v466, v467),f102(v469, v466, v467));
3127 var l143 = f3("CONSP");
3128 v295 = ({car: f33(l143, (function (v472,v473,v474){
3129 if (arguments.length < 3) throw 'too few arguments';
3130 if (arguments.length > 3) throw 'too many arguments';
3131 return (function(v475){
3132 return f113(f65("(function(){", v164, f68("var tmp = ", v475, ";", v164, "return (typeof tmp == 'object' && 'car' in tmp);", v164), "})()"));
3133 })(f102(v474, v472, v473));
3135 var l144 = f3("CAR");
3136 v295 = ({car: f33(l144, (function (v476,v477,v478){
3137 if (arguments.length < 3) throw 'too few arguments';
3138 if (arguments.length > 3) throw 'too many arguments';
3139 return (function(v479){
3140 return f65("(function(){", v164, f68("var tmp = ", v479, ";", v164, "return tmp === ", f102(v2, v2, v2), "? ", f102(v2, v2, v2), ": tmp.car;", v164), "})()");
3141 })(f102(v478, v476, v477));
3143 var l145 = f3("CDR");
3144 v295 = ({car: f33(l145, (function (v480,v481,v482){
3145 if (arguments.length < 3) throw 'too few arguments';
3146 if (arguments.length > 3) throw 'too many arguments';
3147 return (function(v483){
3148 return f65("(function(){", v164, f68("var tmp = ", v483, ";", v164, "return tmp === ", f102(v2, v2, v2), "? ", f102(v2, v2, v2), ": tmp.cdr;", v164), "})()");
3149 })(f102(v482, v480, v481));
3151 var l146 = f3("SETCAR");
3152 v295 = ({car: f33(l146, (function (v484,v485,v486,v487){
3153 if (arguments.length < 4) throw 'too few arguments';
3154 if (arguments.length > 4) throw 'too many arguments';
3155 return (function(v488,v489){
3156 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v488, ";", v164), f65("if (typeof ", "x", " != '", "object", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v164)), f65("return ", (function(){
3157 return f65("(x.car = ", v489, ")");
3158 })(), ";", v164)), "})()");
3159 })(f102(v486, v484, v485),f102(v487, v484, v485));
3161 var l147 = f3("SETCDR");
3162 v295 = ({car: f33(l147, (function (v490,v491,v492,v493){
3163 if (arguments.length < 4) throw 'too few arguments';
3164 if (arguments.length > 4) throw 'too many arguments';
3165 return (function(v494,v495){
3166 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v494, ";", v164), f65("if (typeof ", "x", " != '", "object", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v164)), f65("return ", (function(){
3167 return f65("(x.cdr = ", v495, ")");
3168 })(), ";", v164)), "})()");
3169 })(f102(v492, v490, v491),f102(v493, v490, v491));
3171 var l148 = f3("SYMBOLP");
3172 v295 = ({car: f33(l148, (function (v496,v497,v498){
3173 if (arguments.length < 3) throw 'too few arguments';
3174 if (arguments.length > 3) throw 'too many arguments';
3175 return (function(v499){
3176 return f113(f65("(function(){", v164, f68("var tmp = ", v499, ";", v164, "return (typeof tmp == 'object' && 'name' in tmp);", v164), "})()"));
3177 })(f102(v498, v496, v497));
3179 var l149 = f3("MAKE-SYMBOL");
3180 v295 = ({car: f33(l149, (function (v500,v501,v502){
3181 if (arguments.length < 3) throw 'too few arguments';
3182 if (arguments.length > 3) throw 'too many arguments';
3183 return (function(v503){
3184 return f65("(function(){", v164, f68(f65("var ", "name", " = ", v503, ";", v164), f65("if (typeof ", "name", " != '", "string", "')", v164, f68("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3185 return "({name: name})";
3186 })(), ";", v164)), "})()");
3187 })(f102(v502, v500, v501));
3189 var l150 = f3("SYMBOL-NAME");
3190 v295 = ({car: f33(l150, (function (v504,v505,v506){
3191 if (arguments.length < 3) throw 'too few arguments';
3192 if (arguments.length > 3) throw 'too many arguments';
3193 return (function(v507){
3194 return f65("(", v507, ").name");
3195 })(f102(v506, v504, v505));
3197 var l151 = f3("EQ");
3198 v295 = ({car: f33(l151, (function (v508,v509,v510,v511){
3199 if (arguments.length < 4) throw 'too few arguments';
3200 if (arguments.length > 4) throw 'too many arguments';
3201 return (function(v512,v513){
3202 return f113(f65("(", v512, " === ", v513, ")"));
3203 })(f102(v510, v508, v509),f102(v511, v508, v509));
3205 var l152 = f3("EQUAL");
3206 v295 = ({car: f33(l152, (function (v514,v515,v516,v517){
3207 if (arguments.length < 4) throw 'too few arguments';
3208 if (arguments.length > 4) throw 'too many arguments';
3209 return (function(v518,v519){
3210 return f113(f65("(", v518, " == ", v519, ")"));
3211 })(f102(v516, v514, v515),f102(v517, v514, v515));
3213 var l153 = f3("STRING");
3214 v295 = ({car: f33(l153, (function (v520,v521,v522){
3215 if (arguments.length < 3) throw 'too few arguments';
3216 if (arguments.length > 3) throw 'too many arguments';
3217 return (function(v523){
3218 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v523, ";", v164), f65("if (typeof ", "x", " != '", "number", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3219 return "String.fromCharCode(x)";
3220 })(), ";", v164)), "})()");
3221 })(f102(v522, v520, v521));
3223 var l154 = f3("STRINGP");
3224 v295 = ({car: f33(l154, (function (v524,v525,v526){
3225 if (arguments.length < 3) throw 'too few arguments';
3226 if (arguments.length > 3) throw 'too many arguments';
3227 return (function(v527){
3228 return f113(f65("(typeof(", v527, ") == \"string\")"));
3229 })(f102(v526, v524, v525));
3231 var l155 = f3("STRING-UPCASE");
3232 v295 = ({car: f33(l155, (function (v528,v529,v530){
3233 if (arguments.length < 3) throw 'too few arguments';
3234 if (arguments.length > 3) throw 'too many arguments';
3235 return (function(v531){
3236 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v531, ";", v164), f65("if (typeof ", "x", " != '", "string", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3237 return "x.toUpperCase()";
3238 })(), ";", v164)), "})()");
3239 })(f102(v530, v528, v529));
3241 var l156 = f3("STRING-LENGTH");
3242 v295 = ({car: f33(l156, (function (v532,v533,v534){
3243 if (arguments.length < 3) throw 'too few arguments';
3244 if (arguments.length > 3) throw 'too many arguments';
3245 return (function(v535){
3246 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v535, ";", v164), f65("if (typeof ", "x", " != '", "string", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3248 })(), ";", v164)), "})()");
3249 })(f102(v534, v532, v533));
3251 var l157 = f3("SLICE");
3252 v295 = ({car: f33(l157, (function (v536,v537,v538,v539,v540){
3253 if (arguments.length < 4) throw 'too few arguments';
3254 if (arguments.length > 5) throw 'too many arguments';
3255 switch(arguments.length){
3260 return f65("(function(){", v164, f68("var str = ", f102(v538, v536, v537), ";", v164, "var a = ", f102(v539, v536, v537), ";", v164, "var b;", v164, (v540 !== v2 ? f65("b = ", f102(v540, v536, v537), ";", v164) : ""), "return str.slice(a,b);", v164), "})()");
3262 var l158 = f3("CHAR");
3263 v295 = ({car: f33(l158, (function (v541,v542,v543,v544){
3264 if (arguments.length < 4) throw 'too few arguments';
3265 if (arguments.length > 4) throw 'too many arguments';
3266 return (function(v545,v546){
3267 return f65("(function(){", v164, f68(f65("var ", "string", " = ", v545, ";", v164), f65("var ", "index", " = ", v546, ";", v164), f65("if (typeof ", "string", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v164)), f65("if (typeof ", "index", " != '", "number", "')", v164, f68("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v164)), f65("return ", (function(){
3268 return "string.charCodeAt(index)";
3269 })(), ";", v164)), "})()");
3270 })(f102(v543, v541, v542),f102(v544, v541, v542));
3272 var l159 = f3("CONCAT-TWO");
3273 v295 = ({car: f33(l159, (function (v547,v548,v549,v550){
3274 if (arguments.length < 4) throw 'too few arguments';
3275 if (arguments.length > 4) throw 'too many arguments';
3276 return (function(v551,v552){
3277 return f65("(function(){", v164, f68(f65("var ", "string1", " = ", v551, ";", v164), f65("var ", "string2", " = ", v552, ";", v164), f65("if (typeof ", "string1", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v164)), f65("if (typeof ", "string2", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3278 return "string1.concat(string2)";
3279 })(), ";", v164)), "})()");
3280 })(f102(v549, v547, v548),f102(v550, v547, v548));
3282 var l160 = f3("FUNCALL");
3283 v295 = ({car: f33(l160, (function (v554,v555,v556){
3284 if (arguments.length < 3) throw 'too few arguments';
3286 for (var i = arguments.length-1; i>=3; i--)
3287 v553 = {car: arguments[i], cdr: v553};
3288 return f65("(", f102(v556, v554, v555), ")(", f66(f45((function (v557){
3289 if (arguments.length < 1) throw 'too few arguments';
3290 if (arguments.length > 1) throw 'too many arguments';
3291 return f102(v557, v554, v555);
3292 }), v553), ", "), ")");
3294 var l161 = f3("APPLY");
3295 v295 = ({car: f33(l161, (function (v559,v560,v561){
3296 if (arguments.length < 3) throw 'too few arguments';
3298 for (var i = arguments.length-1; i>=3; i--)
3299 v558 = {car: arguments[i], cdr: v558};
3300 return (f1(v558) !== v2 ? f65("(", f102(v561, v559, v560), ")()") : (function(v562,v563){
3301 return f65("(function(){", v164, f68("var f = ", f102(v561, v559, v560), ";", v164, "var args = [", f66(f45((function (v564){
3302 if (arguments.length < 1) throw 'too few arguments';
3303 if (arguments.length > 1) throw 'too many arguments';
3304 return f102(v564, v559, v560);
3305 }), v562), ", "), "];", v164, "var tail = (", f102(v563, v559, v560), ");", v164, f68("while (tail != ", f102(v2, v559, v560), "){", v164, " args.push(tail.car);", v164, " tail = tail.cdr;", v164, "}", v164, "return f.apply(this, args);", v164), "})()"));
3306 })(f54(v558),(function(){
3307 var tmp = f53(v558);
3308 return tmp === v2? v2: tmp.car;
3311 var l162 = f3("JS-EVAL");
3312 v295 = ({car: f33(l162, (function (v565,v566,v567){
3313 if (arguments.length < 3) throw 'too few arguments';
3314 if (arguments.length > 3) throw 'too many arguments';
3315 return (function(v568){
3316 return f65("(function(){", v164, f68(f65("var ", "string", " = ", v568, ";", v164), f65("if (typeof ", "string", " != '", "string", "')", v164, f68("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3317 return "eval.apply(window, [string])";
3318 })(), ";", v164)), "})()");
3319 })(f102(v567, v565, v566));
3321 var l163 = f3("ERROR");
3322 v295 = ({car: f33(l163, (function (v569,v570,v571){
3323 if (arguments.length < 3) throw 'too few arguments';
3324 if (arguments.length > 3) throw 'too many arguments';
3325 return (function(v572){
3326 return f65("(function (){ throw ", v572, "; })()");
3327 })(f102(v571, v569, v570));
3329 var l164 = f3("NEW");
3330 v295 = ({car: f33(l164, (function (v573,v574){
3331 if (arguments.length < 2) throw 'too few arguments';
3332 if (arguments.length > 2) throw 'too many arguments';
3337 var l165 = f3("GET");
3338 v295 = ({car: f33(l165, (function (v575,v576,v577,v578){
3339 if (arguments.length < 4) throw 'too few arguments';
3340 if (arguments.length > 4) throw 'too many arguments';
3341 return (function(v579,v580){
3342 return f65("(function(){", v164, f68("var tmp = ", "(", v579, ")[", v580, "];", v164, "return tmp == undefined? ", f102(v2, v2, v2), ": tmp ;", v164), "})()");
3343 })(f102(v577, v575, v576),f102(v578, v575, v576));
3345 var l166 = f3("SET");
3346 v295 = ({car: f33(l166, (function (v581,v582,v583,v584,v585){
3347 if (arguments.length < 5) throw 'too few arguments';
3348 if (arguments.length > 5) throw 'too many arguments';
3349 return (function(v586,v587,v588){
3350 return f65("((", v586, ")[", v587, "] = ", v588, ")");
3351 })(f102(v583, v581, v582),f102(v584, v581, v582),f102(v585, v581, v582));
3353 var l167 = f3("IN");
3354 v295 = ({car: f33(l167, (function (v589,v590,v591,v592){
3355 if (arguments.length < 4) throw 'too few arguments';
3356 if (arguments.length > 4) throw 'too many arguments';
3357 return (function(v593,v594){
3358 return f113(f65("((", v593, ") in (", v594, "))"));
3359 })(f102(v591, v589, v590),f102(v592, v589, v590));
3361 var l168 = f3("FUNCTIONP");
3362 v295 = ({car: f33(l168, (function (v595,v596,v597){
3363 if (arguments.length < 3) throw 'too few arguments';
3364 if (arguments.length > 3) throw 'too many arguments';
3365 return (function(v598){
3366 return f113(f65("(typeof ", v598, " == 'function')"));
3367 })(f102(v597, v595, v596));
3369 var l169 = f3("WRITE-STRING");
3370 v295 = ({car: f33(l169, (function (v599,v600,v601){
3371 if (arguments.length < 3) throw 'too few arguments';
3372 if (arguments.length > 3) throw 'too many arguments';
3373 return (function(v602){
3374 return f65("(function(){", v164, f68(f65("var ", "x", " = ", v602, ";", v164), f65("if (typeof ", "x", " != '", "string", "')", v164, f68("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v164)), f65("return ", (function(){
3375 return "lisp.write(x)";
3376 })(), ";", v164)), "})()");
3377 })(f102(v601, v599, v600));
3379 var l171 = f3("MACROP");
3380 var l170 = f3("MACRO");
3384 return f115 = (function(v603){
3385 ((v603)["fname"] = "MACROP");
3387 })((function (v604){
3388 if (arguments.length < 1) throw 'too few arguments';
3389 if (arguments.length > 1) throw 'too many arguments';
3390 return (((function(){
3392 return (typeof tmp == 'object' && 'name' in tmp);
3393 })()?v3: v2) !== v2 ? ((f88(f96(v604, v241)) === l170)?v3: v2) : v2);
3398 var l173 = f3("LS-MACROEXPAND-1");
3399 var l172 = f3("MACRO");
3403 return f116 = (function(v605){
3404 ((v605)["fname"] = "LS-MACROEXPAND-1");
3406 })((function (v606,v607,v608){
3407 if (arguments.length < 3) throw 'too few arguments';
3408 if (arguments.length > 3) throw 'too many arguments';
3409 return (f115((function(){
3411 return tmp === v2? v2: tmp.car;
3412 })()) !== v2 ? (function(v609){
3413 return (((f88(v609) === l172)?v3: v2) !== v2 ? (function(){
3414 var f = f110(f89(v609));
3416 var tail = ((function(){
3418 return tmp === v2? v2: tmp.cdr;
3421 args.push(tail.car);
3424 return f.apply(this, args);
3428 return tmp === v2? v2: tmp.car;
3429 })(), v240)) : v606);
3434 var l175 = f3("COMPILE-FUNCALL");
3435 var l174 = f3("LAMBDA");
3439 return f117 = (function(v610){
3440 ((v610)["fname"] = "COMPILE-FUNCALL");
3442 })((function (v611,v612,v613,v614){
3443 if (arguments.length < 4) throw 'too few arguments';
3444 if (arguments.length > 4) throw 'too many arguments';
3445 return (((function(){
3447 return (typeof tmp == 'object' && 'name' in tmp);
3448 })()?v3: v2) !== v2 ? (function(){
3449 return f65(f97(v611, v614), "(", f66(f45((function (v615){
3450 if (arguments.length < 1) throw 'too few arguments';
3451 if (arguments.length > 1) throw 'too many arguments';
3452 return f102(v615, v613, v614);
3453 }), v612), ", "), ")");
3454 })() : ((f36(v611) !== v2 ? (((function(){
3456 return tmp === v2? v2: tmp.car;
3457 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
3458 return f65("(", f102(v611, v613, v614), ")(", f66(f45((function (v616){
3459 if (arguments.length < 1) throw 'too few arguments';
3460 if (arguments.length > 1) throw 'too many arguments';
3461 return f102(v616, v613, v614);
3462 }), v612), ", "), ")");
3464 return (function (){ throw f65("Invalid function designator ", (v611).name); })();
3470 var l176 = f3("LS-COMPILE");
3474 return f102 = (function(v617){
3475 ((v617)["fname"] = "LS-COMPILE");
3477 })((function (v618,v619,v620){
3478 if (arguments.length < 3) throw 'too few arguments';
3479 if (arguments.length > 3) throw 'too many arguments';
3480 return (((function(){
3482 return (typeof tmp == 'object' && 'name' in tmp);
3483 })()?v3: v2) !== v2 ? (function(){
3484 return f94(v618, v619);
3485 })() : (f49(v618) !== v2 ? (function(){
3487 })() : (((typeof(v618) == "string")?v3: v2) !== v2 ? (function(){
3488 return f65("\"", f70(v618), "\"");
3489 })() : (f36(v618) !== v2 ? (function(){
3490 return (f63((function(){
3492 return tmp === v2? v2: tmp.car;
3493 })(), v295) !== v2 ? (function(v621){
3496 var args = [v619, v620];
3497 var tail = ((function(){
3499 return tmp === v2? v2: tmp.cdr;
3502 args.push(tail.car);
3505 return f.apply(this, args);
3507 })(f30(f63((function(){
3509 return tmp === v2? v2: tmp.car;
3510 })(), v295))) : (f115((function(){
3512 return tmp === v2? v2: tmp.car;
3513 })()) !== v2 ? f102(f116(v618, v619, v620), v619, v620) : f117((function(){
3515 return tmp === v2? v2: tmp.car;
3518 return tmp === v2? v2: tmp.cdr;
3519 })(), v619, v620)));
3525 var l177 = f3("LS-COMPILE-TOPLEVEL");
3529 return f118 = (function(v622){
3530 ((v622)["fname"] = "LS-COMPILE-TOPLEVEL");
3532 })((function (v623){
3533 if (arguments.length < 1) throw 'too few arguments';
3534 if (arguments.length > 1) throw 'too many arguments';
3536 return (function(v624){
3537 return (function(v625){
3540 })(f65(f66(f45((function (v626){
3541 if (arguments.length < 1) throw 'too few arguments';
3542 if (arguments.length > 1) throw 'too many arguments';
3543 return f65(v626, ";", v164);
3545 })(f102(v623, v2, v2));
3550 var l188 = f3("LS-COMPILE-TOPLEVEL");
3551 var l187 = f3("EVAL");
3552 var l186 = f3("PRINT-TO-STRING");
3553 var l185 = f3("LS-READ-FROM-STRING");
3558 var l180 = {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v354", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v308", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v295", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v285", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v274", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v257", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FENV*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v241", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENV*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v240", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v239", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v232", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v164", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}};
3559 var l179 = {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*ENV*"), cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: {car: f3("FUNCTION"), cdr: {car: f3("BINDING-DECLARED"), cdr: f3("NIL")}}, cdr: {car: f3("*ENV*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*FENV*"), cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: {car: f3("FUNCTION"), cdr: {car: f3("BINDING-DECLARED"), cdr: f3("NIL")}}, cdr: {car: f3("*FENV*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: {car: f3("FENV"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: {car: f3("FENV"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: f3("FENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
3560 var l178 = f3("EVAL");
3571 return f110 = (function(v627){
3572 ((v627)["fname"] = "EVAL");
3574 })((function (v628){
3575 if (arguments.length < 1) throw 'too few arguments';
3576 if (arguments.length > 1) throw 'too many arguments';
3577 return (function(v629){
3580 if (typeof string != 'string')
3581 throw 'The value ' + string + ' is not a type string.';
3582 return eval.apply(window, [string]);
3585 (function(v631,v632){
3590 return tmp === v2? v2: tmp.car;
3595 return tmp === v2? v2: tmp.cdr;
3602 v240 = f58(f90, v240);
3603 v241 = f58(f90, v241);
3611 var string = f65("var lisp = {};", "lisp.read = ", f97(l185, v2), ";", v164, "lisp.print = ", f97(l186, v2), ";", v164, "lisp.eval = ", f97(l187, v2), ";", v164, "lisp.compile = ", f97(l188, v2), ";", v164, "lisp.evalString = function(str){", v164, " return lisp.eval(lisp.read(str));", v164, "}", v164, "lisp.compileString = function(str){", v164, " return lisp.compile(lisp.read(str));", v164, "}", v164);
3612 if (typeof string != 'string')
3613 throw 'The value ' + string + ' is not a type string.';
3614 return eval.apply(window, [string]);