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 l33 = f3("STRING=");
609 var l32 = f3("ASSOC");
611 var l31 = f3("EVERY");
613 var l30 = f3("PARSE-INTEGER");
615 var l29 = f3("SUBSEQ");
617 var l28 = f3("DIGIT-CHAR-P");
619 var l27 = f3("REMOVE-IF-NOT");
621 var l26 = f3("REMOVE-IF");
623 var l25 = f3("REMOVE");
625 var l24 = f3("MEMBER");
627 var l23 = f3("BUTLAST");
629 var l22 = f3("LAST");
633 var l20 = f3("LISTP");
635 var l19 = f3("MINUSP");
637 var l18 = f3("PLUSP");
639 var l17 = f3("INTEGERP");
641 var l16 = f3("CHAR=");
643 var l15 = f3("CHAR-CODE");
645 var l14 = f3("CODE-CHAR");
647 var l13 = f3("COPY-LIST");
649 var l12 = f3("IDENTITY");
651 var l11 = f3("MAPCAR");
654 var l9 = f3("CONCAT-TWO");
656 var l8 = f3("LENGTH");
658 var l7 = f3("LIST-LENGTH");
660 var l6 = f3("REVERSE");
663 var l4 = f3("REVERSE-AUX");
665 var l3 = f3("APPEND");
668 var l1 = f3("APPEND-TWO");
673 return f38 = (function(v85){
674 ((v85)["fname"] = "APPEND-TWO");
676 })((function (v86,v87){
677 if (arguments.length < 2) throw 'too few arguments';
678 if (arguments.length > 2) throw 'too many arguments';
679 return (f1(v86) !== v2 ? v87 : ({car: (function(){
681 return tmp === v2? v2: tmp.car;
682 })(), cdr: f39((function(){
684 return tmp === v2? v2: tmp.cdr;
692 return f39 = (function(v88){
693 ((v88)["fname"] = "APPEND");
697 for (var i = arguments.length-1; i>=0; i--)
698 v89 = {car: arguments[i], cdr: v89};
699 return f37(f38, v89, l2);
706 return f40 = (function(v90){
707 ((v90)["fname"] = "REVERSE-AUX");
709 })((function (v91,v92){
710 if (arguments.length < 2) throw 'too few arguments';
711 if (arguments.length > 2) throw 'too many arguments';
712 return (f1(v91) !== v2 ? v92 : f40((function(){
714 return tmp === v2? v2: tmp.cdr;
715 })(), ({car: (function(){
717 return tmp === v2? v2: tmp.car;
725 return f41 = (function(v93){
726 ((v93)["fname"] = "REVERSE");
729 if (arguments.length < 1) throw 'too few arguments';
730 if (arguments.length > 1) throw 'too many arguments';
738 return f42 = (function(v95){
739 ((v95)["fname"] = "LIST-LENGTH");
742 if (arguments.length < 1) throw 'too few arguments';
743 if (arguments.length > 1) throw 'too many arguments';
744 return (function(v97){
746 while(f17(f1(v96)) !== v2){
750 if (typeof x != 'number')
751 throw 'The value ' + x + ' is not a type number.';
752 if (typeof y != 'number')
753 throw 'The value ' + y + ' is not a type number.';
758 return tmp === v2? v2: tmp.cdr;
769 return f43 = (function(v98){
770 ((v98)["fname"] = "LENGTH");
773 if (arguments.length < 1) throw 'too few arguments';
774 if (arguments.length > 1) throw 'too many arguments';
775 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
777 if (typeof x != 'string')
778 throw 'The value ' + x + ' is not a type string.';
787 return f44 = (function(v100){
788 ((v100)["fname"] = "CONCAT-TWO");
790 })((function (v101,v102){
791 if (arguments.length < 2) throw 'too few arguments';
792 if (arguments.length > 2) throw 'too many arguments';
796 if (typeof string1 != 'string')
797 throw 'The value ' + string1 + ' is not a type string.';
798 if (typeof string2 != 'string')
799 throw 'The value ' + string2 + ' is not a type string.';
800 return string1.concat(string2);
808 return f45 = (function(v103){
809 ((v103)["fname"] = "MAPCAR");
811 })((function (v104,v105){
812 if (arguments.length < 2) throw 'too few arguments';
813 if (arguments.length > 2) throw 'too many arguments';
814 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
816 return tmp === v2? v2: tmp.car;
817 })()), cdr: f45(v104, (function(){
819 return tmp === v2? v2: tmp.cdr;
827 return f46 = (function(v106){
828 ((v106)["fname"] = "IDENTITY");
831 if (arguments.length < 1) throw 'too few arguments';
832 if (arguments.length > 1) throw 'too many arguments';
840 return f47 = (function(v108){
841 ((v108)["fname"] = "COPY-LIST");
844 if (arguments.length < 1) throw 'too few arguments';
845 if (arguments.length > 1) throw 'too many arguments';
846 return f45(f46, v109);
853 return f48 = (function(v110){
854 ((v110)["fname"] = "CODE-CHAR");
857 if (arguments.length < 1) throw 'too few arguments';
858 if (arguments.length > 1) throw 'too many arguments';
866 return f49 = (function(v112){
867 ((v112)["fname"] = "CHAR-CODE");
870 if (arguments.length < 1) throw 'too few arguments';
871 if (arguments.length > 1) throw 'too many arguments';
879 return f50 = (function(v114){
880 ((v114)["fname"] = "CHAR=");
882 })((function (v115,v116){
883 if (arguments.length < 2) throw 'too few arguments';
884 if (arguments.length > 2) throw 'too many arguments';
888 if (typeof x != 'number')
889 throw 'The value ' + x + ' is not a type number.';
890 if (typeof y != 'number')
891 throw 'The value ' + y + ' is not a type number.';
900 return f51 = (function(v117){
901 ((v117)["fname"] = "INTEGERP");
904 if (arguments.length < 1) throw 'too few arguments';
905 if (arguments.length > 1) throw 'too many arguments';
906 return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
909 if (typeof x != 'number')
910 throw 'The value ' + x + ' is not a type number.';
911 return Math.floor(x);
914 if (typeof x != 'number')
915 throw 'The value ' + x + ' is not a type number.';
916 if (typeof y != 'number')
917 throw 'The value ' + y + ' is not a type number.';
926 return f52 = (function(v119){
927 ((v119)["fname"] = "PLUSP");
930 if (arguments.length < 1) throw 'too few arguments';
931 if (arguments.length > 1) throw 'too many arguments';
935 if (typeof x != 'number')
936 throw 'The value ' + x + ' is not a type number.';
937 if (typeof y != 'number')
938 throw 'The value ' + y + ' is not a type number.';
947 return f53 = (function(v121){
948 ((v121)["fname"] = "MINUSP");
951 if (arguments.length < 1) throw 'too few arguments';
952 if (arguments.length > 1) throw 'too many arguments';
956 if (typeof x != 'number')
957 throw 'The value ' + x + ' is not a type number.';
958 if (typeof y != 'number')
959 throw 'The value ' + y + ' is not a type number.';
968 return f36 = (function(v123){
969 ((v123)["fname"] = "LISTP");
972 if (arguments.length < 1) throw 'too few arguments';
973 if (arguments.length > 1) throw 'too many arguments';
974 return (function(v125){
975 return (v125 !== v2 ? v125 : f1(v124));
978 return (typeof tmp == 'object' && 'car' in tmp);
986 return f54 = (function(v126){
987 ((v126)["fname"] = "NTH");
989 })((function (v127,v128){
990 if (arguments.length < 2) throw 'too few arguments';
991 if (arguments.length > 2) throw 'too many arguments';
992 return (f1(v128) !== v2 ? (function(){
994 })() : (f14(v127) !== v2 ? (function(){
997 return tmp === v2? v2: tmp.car;
1000 return f54(f13(v127), (function(){
1002 return tmp === v2? v2: tmp.cdr;
1011 return f55 = (function(v129){
1012 ((v129)["fname"] = "LAST");
1014 })((function (v130){
1015 if (arguments.length < 1) throw 'too few arguments';
1016 if (arguments.length > 1) throw 'too many arguments';
1017 return (((function(){
1018 var tmp = (function(){
1020 return tmp === v2? v2: tmp.cdr;
1022 return (typeof tmp == 'object' && 'car' in tmp);
1023 })()?v3: v2) !== v2 ? f55((function(){
1025 return tmp === v2? v2: tmp.cdr;
1033 return f56 = (function(v131){
1034 ((v131)["fname"] = "BUTLAST");
1036 })((function (v132){
1037 if (arguments.length < 1) throw 'too few arguments';
1038 if (arguments.length > 1) throw 'too many arguments';
1039 return (((function(){
1040 var tmp = (function(){
1042 return tmp === v2? v2: tmp.cdr;
1044 return (typeof tmp == 'object' && 'car' in tmp);
1045 })()?v3: v2) !== v2 ? ({car: (function(){
1047 return tmp === v2? v2: tmp.car;
1048 })(), cdr: f56((function(){
1050 return tmp === v2? v2: tmp.cdr;
1058 return f57 = (function(v133){
1059 ((v133)["fname"] = "MEMBER");
1061 })((function (v134,v135){
1062 if (arguments.length < 2) throw 'too few arguments';
1063 if (arguments.length > 2) throw 'too many arguments';
1064 return (f1(v135) !== v2 ? (function(){
1066 })() : (f16(v134, (function(){
1068 return tmp === v2? v2: tmp.car;
1069 })()) !== v2 ? (function(){
1072 return f57(v134, (function(){
1074 return tmp === v2? v2: tmp.cdr;
1083 return f58 = (function(v136){
1084 ((v136)["fname"] = "REMOVE");
1086 })((function (v137,v138){
1087 if (arguments.length < 2) throw 'too few arguments';
1088 if (arguments.length > 2) throw 'too many arguments';
1089 return (f1(v138) !== v2 ? (function(){
1091 })() : (f16(v137, (function(){
1093 return tmp === v2? v2: tmp.car;
1094 })()) !== v2 ? (function(){
1095 return f58(v137, (function(){
1097 return tmp === v2? v2: tmp.cdr;
1100 return ({car: (function(){
1102 return tmp === v2? v2: tmp.car;
1103 })(), cdr: f58(v137, (function(){
1105 return tmp === v2? v2: tmp.cdr;
1114 return f59 = (function(v139){
1115 ((v139)["fname"] = "REMOVE-IF");
1117 })((function (v140,v141){
1118 if (arguments.length < 2) throw 'too few arguments';
1119 if (arguments.length > 2) throw 'too many arguments';
1120 return (f1(v141) !== v2 ? (function(){
1122 })() : ((v140)((function(){
1124 return tmp === v2? v2: tmp.car;
1125 })()) !== v2 ? (function(){
1126 return f59(v140, (function(){
1128 return tmp === v2? v2: tmp.cdr;
1131 return ({car: (function(){
1133 return tmp === v2? v2: tmp.car;
1134 })(), cdr: f59(v140, (function(){
1136 return tmp === v2? v2: tmp.cdr;
1145 return f60 = (function(v142){
1146 ((v142)["fname"] = "REMOVE-IF-NOT");
1148 })((function (v143,v144){
1149 if (arguments.length < 2) throw 'too few arguments';
1150 if (arguments.length > 2) throw 'too many arguments';
1151 return (f1(v144) !== v2 ? (function(){
1153 })() : ((v143)((function(){
1155 return tmp === v2? v2: tmp.car;
1156 })()) !== v2 ? (function(){
1157 return ({car: (function(){
1159 return tmp === v2? v2: tmp.car;
1160 })(), cdr: f60(v143, (function(){
1162 return tmp === v2? v2: tmp.cdr;
1165 return f60(v143, (function(){
1167 return tmp === v2? v2: tmp.cdr;
1176 return f61 = (function(v145){
1177 ((v145)["fname"] = "DIGIT-CHAR-P");
1179 })((function (v146){
1180 if (arguments.length < 1) throw 'too few arguments';
1181 if (arguments.length > 1) throw 'too many arguments';
1182 return ((((function(){
1185 if (typeof x != 'number')
1186 throw 'The value ' + x + ' is not a type number.';
1187 if (typeof y != 'number')
1188 throw 'The value ' + y + ' is not a type number.';
1190 })()?v3: v2) !== v2 ? ((function(){
1193 if (typeof x != 'number')
1194 throw 'The value ' + x + ' is not a type number.';
1195 if (typeof y != 'number')
1196 throw 'The value ' + y + ' is not a type number.';
1198 })()?v3: v2) : v2) !== v2 ? (function(){
1201 if (typeof x != 'number')
1202 throw 'The value ' + x + ' is not a type number.';
1203 if (typeof y != 'number')
1204 throw 'The value ' + y + ' is not a type number.';
1213 return f62 = (function(v147){
1214 ((v147)["fname"] = "SUBSEQ");
1216 })((function (v148,v149,v150){
1217 if (arguments.length < 2) throw 'too few arguments';
1218 if (arguments.length > 3) throw 'too many arguments';
1219 switch(arguments.length){
1224 return (((typeof(v148) == "string")?v3: v2) !== v2 ? (function(){
1225 return (v150 !== v2 ? (function(){
1230 return str.slice(a,b);
1235 return str.slice(a,b);
1238 return (function (){ throw "Unsupported argument."; })();
1246 return f63 = (function(v151){
1247 ((v151)["fname"] = "PARSE-INTEGER");
1249 })((function (v152){
1250 if (arguments.length < 1) throw 'too few arguments';
1251 if (arguments.length > 1) throw 'too many arguments';
1252 return (function(v153,v154,v155){
1257 if (typeof x != 'number')
1258 throw 'The value ' + x + ' is not a type number.';
1259 if (typeof y != 'number')
1260 throw 'The value ' + y + ' is not a type number.';
1262 })()?v3: v2) !== v2){
1264 var x = (function(){
1267 if (typeof x != 'number')
1268 throw 'The value ' + x + ' is not a type number.';
1269 if (typeof y != 'number')
1270 throw 'The value ' + y + ' is not a type number.';
1273 var y = f61((function(){
1276 if (typeof string != 'string')
1277 throw 'The value ' + string + ' is not a type string.';
1278 if (typeof index != 'number')
1279 throw 'The value ' + index + ' is not a type number.';
1280 return string.charCodeAt(index);
1282 if (typeof x != 'number')
1283 throw 'The value ' + x + ' is not a type number.';
1284 if (typeof y != 'number')
1285 throw 'The value ' + y + ' is not a type number.';
1291 if (typeof x != 'number')
1292 throw 'The value ' + x + ' is not a type number.';
1293 if (typeof y != 'number')
1294 throw 'The value ' + y + ' is not a type number.';
1306 return f64 = (function(v156){
1307 ((v156)["fname"] = "EVERY");
1309 })((function (v157,v158){
1310 if (arguments.length < 2) throw 'too few arguments';
1311 if (arguments.length > 2) throw 'too many arguments';
1312 return (function(v159,v160,v161){
1314 while((v159 !== v2 ? ((function(){
1317 if (typeof x != 'number')
1318 throw 'The value ' + x + ' is not a type number.';
1319 if (typeof y != 'number')
1320 throw 'The value ' + y + ' is not a type number.';
1322 })()?v3: v2) : v2) !== v2){
1323 ((v157)((function(){
1326 if (typeof string != 'string')
1327 throw 'The value ' + string + ' is not a type string.';
1328 if (typeof index != 'number')
1329 throw 'The value ' + index + ' is not a type number.';
1330 return string.charCodeAt(index);
1331 })()) !== v2 ? v2 : (function(){
1337 if (typeof x != 'number')
1338 throw 'The value ' + x + ' is not a type number.';
1339 if (typeof y != 'number')
1340 throw 'The value ' + y + ' is not a type number.';
1352 return f65 = (function(v162){
1353 ((v162)["fname"] = "ASSOC");
1355 })((function (v163,v164){
1356 if (arguments.length < 2) throw 'too few arguments';
1357 if (arguments.length > 2) throw 'too many arguments';
1358 return (function(v165){
1360 while((v164 !== v2 ? f17(v165) : v2) !== v2){
1361 (f16(v163, f22(v164)) !== v2 ? v165 = v3 : v164 = (function(){
1363 return tmp === v2? v2: tmp.cdr;
1368 return tmp === v2? v2: tmp.car;
1377 return f66 = (function(v166){
1378 ((v166)["fname"] = "STRING=");
1380 })((function (v167,v168){
1381 if (arguments.length < 2) throw 'too few arguments';
1382 if (arguments.length > 2) throw 'too many arguments';
1383 return ((v167 == v168)?v3: v2);
1389 var l34 = f3("*NEWLINE*");
1393 return v169 = (function(){
1395 if (typeof x != 'number')
1396 throw 'The value ' + x + ' is not a type number.';
1397 return String.fromCharCode(x);
1402 var l35 = f3("CONCAT");
1406 return f67 = (function(v170){
1407 ((v170)["fname"] = "CONCAT");
1411 for (var i = arguments.length-1; i>=0; i--)
1412 v171 = {car: arguments[i], cdr: v171};
1413 return f37(f44, v171, "");
1418 var l36 = f3("JOIN");
1422 return f68 = (function(v172){
1423 ((v172)["fname"] = "JOIN");
1425 })((function (v173,v174){
1426 if (arguments.length < 1) throw 'too few arguments';
1427 if (arguments.length > 2) throw 'too many arguments';
1428 switch(arguments.length){
1433 return (f1(v173) !== v2 ? (function(){
1435 })() : (f1((function(){
1437 return tmp === v2? v2: tmp.cdr;
1438 })()) !== v2 ? (function(){
1441 return tmp === v2? v2: tmp.car;
1444 return f67((function(){
1446 return tmp === v2? v2: tmp.car;
1447 })(), v174, f68((function(){
1449 return tmp === v2? v2: tmp.cdr;
1456 var l37 = f3("JOIN-TRAILING");
1460 return f69 = (function(v175){
1461 ((v175)["fname"] = "JOIN-TRAILING");
1463 })((function (v176,v177){
1464 if (arguments.length < 1) throw 'too few arguments';
1465 if (arguments.length > 2) throw 'too many arguments';
1466 switch(arguments.length){
1471 return (f1(v176) !== v2 ? "" : f67((function(){
1473 return tmp === v2? v2: tmp.car;
1474 })(), v177, f69((function(){
1476 return tmp === v2? v2: tmp.cdr;
1482 var l38 = f3("INDENT");
1486 return f70 = (function(v178){
1487 ((v178)["fname"] = "INDENT");
1491 for (var i = arguments.length-1; i>=0; i--)
1492 v179 = {car: arguments[i], cdr: v179};
1493 return (function(v180){
1494 return (function(v181,v182,v183){
1495 (f52(v183) !== v2 ? (function(){
1502 if (typeof x != 'number')
1503 throw 'The value ' + x + ' is not a type number.';
1504 if (typeof y != 'number')
1505 throw 'The value ' + y + ' is not a type number.';
1507 })()?v3: v2) !== v2){
1508 v181 = f67(v181, ((f50((function(){
1511 if (typeof string != 'string')
1512 throw 'The value ' + string + ' is not a type string.';
1513 if (typeof index != 'number')
1514 throw 'The value ' + index + ' is not a type number.';
1515 return string.charCodeAt(index);
1516 })(), 10) !== v2 ? (((function(){
1519 if (typeof x != 'number')
1520 throw 'The value ' + x + ' is not a type number.';
1521 if (typeof y != 'number')
1522 throw 'The value ' + y + ' is not a type number.';
1524 })()?v3: v2) !== v2 ? f17(f50((function(){
1526 var index = f12(v182);
1527 if (typeof string != 'string')
1528 throw 'The value ' + string + ' is not a type string.';
1529 if (typeof index != 'number')
1530 throw 'The value ' + index + ' is not a type number.';
1531 return string.charCodeAt(index);
1532 })(), 10)) : v2) : v2) !== v2 ? f67((function(){
1534 if (typeof x != 'number')
1535 throw 'The value ' + x + ' is not a type number.';
1536 return String.fromCharCode(x);
1537 })(), " ") : f62(v180, v182, f12(v182))));
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.';
1555 var l39 = f3("INTEGER-TO-STRING");
1559 return f6 = (function(v184){
1560 ((v184)["fname"] = "INTEGER-TO-STRING");
1562 })((function (v185){
1563 if (arguments.length < 1) throw 'too few arguments';
1564 if (arguments.length > 1) throw 'too many arguments';
1565 return (f14(v185) !== v2 ? (function(){
1567 })() : (f53(v185) !== v2 ? (function(){
1568 return f67("-", f6((function(){
1571 if (typeof x != 'number')
1572 throw 'The value ' + x + ' is not a type number.';
1573 if (typeof y != 'number')
1574 throw 'The value ' + y + ' is not a type number.';
1578 return (function(v186){
1580 while(f17(f14(v185)) !== v2){
1581 v186 = ({car: (function(){
1584 if (typeof x != 'number')
1585 throw 'The value ' + x + ' is not a type number.';
1586 if (typeof y != 'number')
1587 throw 'The value ' + y + ' is not a type number.';
1590 v185 = f15(v185, 10);
1592 return f68(f45((function (v187){
1593 if (arguments.length < 1) throw 'too few arguments';
1594 if (arguments.length > 1) throw 'too many arguments';
1596 var x = (function(){
1597 var string = "0123456789";
1599 if (typeof string != 'string')
1600 throw 'The value ' + string + ' is not a type string.';
1601 if (typeof index != 'number')
1602 throw 'The value ' + index + ' is not a type number.';
1603 return string.charCodeAt(index);
1605 if (typeof x != 'number')
1606 throw 'The value ' + x + ' is not a type number.';
1607 return String.fromCharCode(x);
1616 var l42 = f3("PRINT");
1618 var l41 = f3("WRITE-LINE");
1620 var l40 = f3("PRINT-TO-STRING");
1625 return f71 = (function(v188){
1626 ((v188)["fname"] = "PRINT-TO-STRING");
1628 })((function (v189){
1629 if (arguments.length < 1) throw 'too few arguments';
1630 if (arguments.length > 1) throw 'too many arguments';
1631 return (((function(){
1633 return (typeof tmp == 'object' && 'name' in tmp);
1634 })()?v3: v2) !== v2 ? (function(){
1636 })() : (f51(v189) !== v2 ? (function(){
1638 })() : (((typeof(v189) == "string")?v3: v2) !== v2 ? (function(){
1639 return f67("\"", f72(v189), "\"");
1640 })() : (((typeof v189 == 'function')?v3: v2) !== v2 ? (function(){
1641 return (function(v190){
1642 return (v190 !== v2 ? f67("#<FUNCTION ", v190, ">") : f67("#<FUNCTION>"));
1644 var tmp = (v189)["fname"];
1645 return tmp == undefined? v2: tmp ;
1647 })() : (f36(v189) !== v2 ? (function(){
1648 return f67("(", f69(f45(f71, f56(v189)), " "), (function(v191){
1649 return (f1((function(){
1651 return tmp === v2? v2: tmp.cdr;
1652 })()) !== v2 ? f71((function(){
1654 return tmp === v2? v2: tmp.car;
1655 })()) : f67(f71((function(){
1657 return tmp === v2? v2: tmp.car;
1658 })()), " . ", f71((function(){
1660 return tmp === v2? v2: tmp.cdr;
1662 })(f55(v189)), ")");
1670 return f73 = (function(v192){
1671 ((v192)["fname"] = "WRITE-LINE");
1673 })((function (v193){
1674 if (arguments.length < 1) throw 'too few arguments';
1675 if (arguments.length > 1) throw 'too many arguments';
1678 if (typeof x != 'string')
1679 throw 'The value ' + x + ' is not a type string.';
1680 return lisp.write(x);
1684 if (typeof x != 'string')
1685 throw 'The value ' + x + ' is not a type string.';
1686 return lisp.write(x);
1695 return f74 = (function(v194){
1696 ((v194)["fname"] = "PRINT");
1698 })((function (v195){
1699 if (arguments.length < 1) throw 'too few arguments';
1700 if (arguments.length > 1) throw 'too many arguments';
1708 var l43 = f3("MAKE-STRING-STREAM");
1712 return f75 = (function(v196){
1713 ((v196)["fname"] = "MAKE-STRING-STREAM");
1715 })((function (v197){
1716 if (arguments.length < 1) throw 'too few arguments';
1717 if (arguments.length > 1) throw 'too many arguments';
1718 return ({car: v197, cdr: 0});
1723 var l44 = f3("%PEEK-CHAR");
1727 return f76 = (function(v198){
1728 ((v198)["fname"] = "%PEEK-CHAR");
1730 })((function (v199){
1731 if (arguments.length < 1) throw 'too few arguments';
1732 if (arguments.length > 1) throw 'too many arguments';
1733 return (((function(){
1734 var x = (function(){
1736 return tmp === v2? v2: tmp.cdr;
1738 var y = f43((function(){
1740 return tmp === v2? v2: tmp.car;
1742 if (typeof x != 'number')
1743 throw 'The value ' + x + ' is not a type number.';
1744 if (typeof y != 'number')
1745 throw 'The value ' + y + ' is not a type number.';
1747 })()?v3: v2) !== v2 ? (function(){
1748 var string = (function(){
1750 return tmp === v2? v2: tmp.car;
1752 var index = (function(){
1754 return tmp === v2? v2: tmp.cdr;
1756 if (typeof string != 'string')
1757 throw 'The value ' + string + ' is not a type string.';
1758 if (typeof index != 'number')
1759 throw 'The value ' + index + ' is not a type number.';
1760 return string.charCodeAt(index);
1766 var l45 = f3("%READ-CHAR");
1770 return f77 = (function(v200){
1771 ((v200)["fname"] = "%READ-CHAR");
1773 })((function (v201){
1774 if (arguments.length < 1) throw 'too few arguments';
1775 if (arguments.length > 1) throw 'too many arguments';
1776 return (((function(){
1777 var x = (function(){
1779 return tmp === v2? v2: tmp.cdr;
1781 var y = f43((function(){
1783 return tmp === v2? v2: tmp.car;
1785 if (typeof x != 'number')
1786 throw 'The value ' + x + ' is not a type number.';
1787 if (typeof y != 'number')
1788 throw 'The value ' + y + ' is not a type number.';
1790 })()?v3: v2) !== v2 ? (function(v202){
1793 if (typeof x != 'object')
1794 throw 'The value ' + x + ' is not a type object.';
1795 return (x.cdr = f12((function(){
1797 return tmp === v2? v2: tmp.cdr;
1802 var string = (function(){
1804 return tmp === v2? v2: tmp.car;
1806 var index = (function(){
1808 return tmp === v2? v2: tmp.cdr;
1810 if (typeof string != 'string')
1811 throw 'The value ' + string + ' is not a type string.';
1812 if (typeof index != 'number')
1813 throw 'The value ' + index + ' is not a type number.';
1814 return string.charCodeAt(index);
1820 var l46 = f3("WHITESPACEP");
1824 return f78 = (function(v203){
1825 ((v203)["fname"] = "WHITESPACEP");
1827 })((function (v204){
1828 if (arguments.length < 1) throw 'too few arguments';
1829 if (arguments.length > 1) throw 'too many arguments';
1830 return (function(v205){
1831 return (v205 !== v2 ? v205 : (function(v206){
1832 return (v206 !== v2 ? v206 : f50(v204, 9));
1839 var l47 = f3("SKIP-WHITESPACES");
1843 return f79 = (function(v207){
1844 ((v207)["fname"] = "SKIP-WHITESPACES");
1846 })((function (v208){
1847 if (arguments.length < 1) throw 'too few arguments';
1848 if (arguments.length > 1) throw 'too many arguments';
1849 return (function(v209){
1852 while((v209 !== v2 ? f78(v209) : v2) !== v2){
1861 var l48 = f3("TERMINALP");
1865 return f80 = (function(v210){
1866 ((v210)["fname"] = "TERMINALP");
1868 })((function (v211){
1869 if (arguments.length < 1) throw 'too few arguments';
1870 if (arguments.length > 1) throw 'too many arguments';
1871 return (function(v212){
1872 return (v212 !== v2 ? v212 : (function(v213){
1873 return (v213 !== v2 ? v213 : (function(v214){
1874 return (v214 !== v2 ? v214 : f50(40, v211));
1882 var l49 = f3("READ-UNTIL");
1886 return f81 = (function(v215){
1887 ((v215)["fname"] = "READ-UNTIL");
1889 })((function (v216,v217){
1890 if (arguments.length < 2) throw 'too few arguments';
1891 if (arguments.length > 2) throw 'too many arguments';
1892 return (function(v218,v219){
1895 while((v219 !== v2 ? f17((v217)(v219)) : v2) !== v2){
1896 v218 = f67(v218, (function(){
1898 if (typeof x != 'number')
1899 throw 'The value ' + x + ' is not a type number.';
1900 return String.fromCharCode(x);
1911 var l50 = f3("SKIP-WHITESPACES-AND-COMMENTS");
1915 return f82 = (function(v220){
1916 ((v220)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
1918 })((function (v221){
1919 if (arguments.length < 1) throw 'too few arguments';
1920 if (arguments.length > 1) throw 'too many arguments';
1921 return (function(v222){
1925 while((v222 !== v2 ? f50(v222, 59) : v2) !== v2){
1926 f81(v221, (function (v223){
1927 if (arguments.length < 1) throw 'too few arguments';
1928 if (arguments.length > 1) throw 'too many arguments';
1929 return f50(v223, 10);
1939 var l51 = f3("%READ-LIST");
1943 return f83 = (function(v224){
1944 ((v224)["fname"] = "%READ-LIST");
1946 })((function (v225){
1947 if (arguments.length < 1) throw 'too few arguments';
1948 if (arguments.length > 1) throw 'too many arguments';
1950 return (function(v226){
1951 return (f1(v226) !== v2 ? (function(){
1952 return (function (){ throw "Unspected EOF"; })();
1953 })() : (f50(v226, 41) !== v2 ? (function(){
1956 })() : (f50(v226, 46) !== v2 ? (function(){
1958 return (function(v227){
1960 (f50(f77(v225), 41) !== v2 ? v2 : (function(){
1961 return (function (){ throw "')' was expected."; })();
1966 return ({car: f84(v225), cdr: f83(v225)});
1973 var l52 = f3("READ-STRING");
1977 return f85 = (function(v228){
1978 ((v228)["fname"] = "READ-STRING");
1980 })((function (v229){
1981 if (arguments.length < 1) throw 'too few arguments';
1982 if (arguments.length > 1) throw 'too many arguments';
1983 return (function(v230,v231){
1986 while(f17(f16(v231, 34)) !== v2){
1987 (f1(v231) !== v2 ? (function(){
1988 return (function (){ throw "Unexpected EOF"; })();
1990 (f16(v231, 92) !== v2 ? (function(){
1991 return v231 = f77(v229);
1993 v230 = f67(v230, (function(){
1995 if (typeof x != 'number')
1996 throw 'The value ' + x + ' is not a type number.';
1997 return String.fromCharCode(x);
2007 var l57 = f3("READ-SHARP");
2010 var l54 = f3("FUNCTION");
2015 return f86 = (function(v232){
2016 ((v232)["fname"] = "READ-SHARP");
2018 })((function (v233){
2019 if (arguments.length < 1) throw 'too few arguments';
2020 if (arguments.length > 1) throw 'too many arguments';
2022 return (function(v234){
2023 return (f16(v234, l53) !== v2 ? (function(){
2024 return f33(l54, f84(v233));
2025 })() : (f16(v234, l55) !== v2 ? (function(){
2026 return (function(v235){
2027 return (f66(v235, "space") !== v2 ? (function(){
2029 })() : (f66(v235, "tab") !== v2 ? (function(){
2031 })() : (f66(v235, "newline") !== v2 ? (function(){
2034 return f49((function(){
2037 if (typeof string != 'string')
2038 throw 'The value ' + string + ' is not a type string.';
2039 if (typeof index != 'number')
2040 throw 'The value ' + index + ' is not a type number.';
2041 return string.charCodeAt(index);
2046 if (typeof x != 'number')
2047 throw 'The value ' + x + ' is not a type number.';
2048 return String.fromCharCode(x);
2049 })(), f81(v233, f80)));
2050 })() : (f16(v234, l56) !== v2 ? (function(){
2051 return (function(v236){
2052 return (f66(v236, "common-lisp") !== v2 ? (function(){
2055 })() : (f66(v236, "ecmalisp") !== v2 ? (function(){
2058 return (function (){ throw "Unknown reader form."; })();
2062 return (function (){ throw "ECASE expression failed."; })();
2069 var l58 = f3("*EOF*");
2073 return v237 = (function(){
2075 if (typeof name != 'string')
2076 throw 'The value ' + name + ' is not a type string.';
2077 return ({name: name});
2082 var l63 = f3("LS-READ");
2083 var l62 = f3("UNQUOTE");
2084 var l61 = f3("UNQUOTE-SPLICING");
2085 var l60 = f3("BACKQUOTE");
2086 var l59 = f3("QUOTE");
2090 return f84 = (function(v238){
2091 ((v238)["fname"] = "LS-READ");
2093 })((function (v239){
2094 if (arguments.length < 1) throw 'too few arguments';
2095 if (arguments.length > 1) throw 'too many arguments';
2097 return (function(v240){
2098 return (f1(v240) !== v2 ? (function(){
2100 })() : (f50(v240, 40) !== v2 ? (function(){
2103 })() : (f50(v240, 39) !== v2 ? (function(){
2105 return f33(l59, f84(v239));
2106 })() : (f50(v240, 96) !== v2 ? (function(){
2108 return f33(l60, f84(v239));
2109 })() : (f50(v240, 34) !== v2 ? (function(){
2112 })() : (f50(v240, 44) !== v2 ? (function(){
2114 return (f16(f76(v239), 64) !== v2 ? (function(){
2116 return f33(l61, f84(v239));
2117 })() : f33(l62, f84(v239)));
2118 })() : (f50(v240, 35) !== v2 ? (function(){
2121 return (function(v241){
2122 return (f64(f61, v241) !== v2 ? f63(v241) : f3((function(){
2124 if (typeof x != 'string')
2125 throw 'The value ' + x + ' is not a type string.';
2126 return x.toUpperCase();
2135 var l64 = f3("LS-READ-FROM-STRING");
2139 return f87 = (function(v242){
2140 ((v242)["fname"] = "LS-READ-FROM-STRING");
2142 })((function (v243){
2143 if (arguments.length < 1) throw 'too few arguments';
2144 if (arguments.length > 1) throw 'too many arguments';
2145 return f84(f75(v243));
2150 var l66 = f3("*COMPILATION-UNIT-CHECKS*");
2151 var l65 = f3("NIL");
2159 var l67 = f3("MAKE-BINDING");
2163 return f88 = (function(v245){
2164 ((v245)["fname"] = "MAKE-BINDING");
2166 })((function (v246,v247,v248,v249){
2167 if (arguments.length < 4) throw 'too few arguments';
2168 if (arguments.length > 4) throw 'too many arguments';
2169 return f33(v246, v247, v248, v249);
2174 var l68 = f3("BINDING-NAME");
2178 return f89 = (function(v250){
2179 ((v250)["fname"] = "BINDING-NAME");
2181 })((function (v251){
2182 if (arguments.length < 1) throw 'too few arguments';
2183 if (arguments.length > 1) throw 'too many arguments';
2189 var l69 = f3("BINDING-TYPE");
2193 return f90 = (function(v252){
2194 ((v252)["fname"] = "BINDING-TYPE");
2196 })((function (v253){
2197 if (arguments.length < 1) throw 'too few arguments';
2198 if (arguments.length > 1) throw 'too many arguments';
2204 var l70 = f3("BINDING-TRANSLATION");
2208 return f91 = (function(v254){
2209 ((v254)["fname"] = "BINDING-TRANSLATION");
2211 })((function (v255){
2212 if (arguments.length < 1) throw 'too few arguments';
2213 if (arguments.length > 1) throw 'too many arguments';
2219 var l71 = f3("BINDING-DECLARED");
2223 return f92 = (function(v256){
2224 ((v256)["fname"] = "BINDING-DECLARED");
2226 })((function (v257){
2227 if (arguments.length < 1) throw 'too few arguments';
2228 if (arguments.length > 1) throw 'too many arguments';
2229 return (v257 !== v2 ? f32(v257) : v2);
2234 var l72 = f3("MARK-BINDING-AS-DECLARED");
2238 return f93 = (function(v258){
2239 ((v258)["fname"] = "MARK-BINDING-AS-DECLARED");
2241 })((function (v259){
2242 if (arguments.length < 1) throw 'too few arguments';
2243 if (arguments.length > 1) throw 'too many arguments';
2246 if (typeof x != 'object')
2247 throw 'The value ' + x + ' is not a type object.';
2248 return (x.car = v3);
2254 var l73 = f3("MAKE-LEXENV");
2258 return f94 = (function(v260){
2259 ((v260)["fname"] = "MAKE-LEXENV");
2262 if (arguments.length > 0) throw 'too many arguments';
2263 return f33(v2, v2, v2);
2268 var l74 = f3("COPY-LEXENV");
2272 return f95 = (function(v261){
2273 ((v261)["fname"] = "COPY-LEXENV");
2275 })((function (v262){
2276 if (arguments.length < 1) throw 'too few arguments';
2277 if (arguments.length > 1) throw 'too many arguments';
2283 var l78 = f3("PUSH-TO-LEXENV");
2284 var l77 = f3("BLOCK");
2285 var l76 = f3("FUNCTION");
2286 var l75 = f3("VARIABLE");
2290 return f96 = (function(v263){
2291 ((v263)["fname"] = "PUSH-TO-LEXENV");
2293 })((function (v264,v265,v266){
2294 if (arguments.length < 3) throw 'too few arguments';
2295 if (arguments.length > 3) throw 'too many arguments';
2296 return (function(v267){
2297 return (f16(v267, l75) !== v2 ? (function(){
2300 if (typeof x != 'object')
2301 throw 'The value ' + x + ' is not a type object.';
2302 return (x.car = ({car: v264, cdr: (function(){
2304 return tmp === v2? v2: tmp.car;
2307 })() : (f16(v267, l76) !== v2 ? (function(){
2309 var x = (function(){
2311 return tmp === v2? v2: tmp.cdr;
2313 if (typeof x != 'object')
2314 throw 'The value ' + x + ' is not a type object.';
2315 return (x.car = ({car: v264, cdr: f23(v265)}));
2317 })() : (f16(v267, l77) !== v2 ? (function(){
2320 if (typeof x != 'object')
2321 throw 'The value ' + x + ' is not a type object.';
2322 return (x.car = ({car: v264, cdr: f26(v265)}));
2325 return (function (){ throw "ECASE expression failed."; })();
2332 var l79 = f3("EXTEND-LEXENV");
2336 return f97 = (function(v268){
2337 ((v268)["fname"] = "EXTEND-LEXENV");
2339 })((function (v269,v270,v271){
2340 if (arguments.length < 3) throw 'too few arguments';
2341 if (arguments.length > 3) throw 'too many arguments';
2342 return (function(v272){
2343 f96(v269, v272, v271);
2350 var l83 = f3("LOOKUP-IN-LEXENV");
2351 var l82 = f3("BLOCK");
2352 var l81 = f3("FUNCTION");
2353 var l80 = f3("VARIABLE");
2357 return f98 = (function(v273){
2358 ((v273)["fname"] = "LOOKUP-IN-LEXENV");
2360 })((function (v274,v275,v276){
2361 if (arguments.length < 3) throw 'too few arguments';
2362 if (arguments.length > 3) throw 'too many arguments';
2363 return f65(v274, (function(v277){
2364 return (f16(v277, l80) !== v2 ? (function(){
2366 })() : (f16(v277, l81) !== v2 ? (function(){
2368 })() : (f16(v277, l82) !== v2 ? (function(){
2371 return (function (){ throw "ECASE expression failed."; })();
2378 var l84 = f3("*ENVIRONMENT*");
2382 return v278 = f94();
2386 var l85 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
2390 return f99 = (function(v279){
2391 ((v279)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
2394 if (arguments.length > 0) throw 'too many arguments';
2395 return (function(v280,v281){
2396 return v278 = f33(v280, v281, f31(v278));
2397 })(f29(v278),f30(v278));
2402 var l86 = f3("*VARIABLE-COUNTER*");
2410 var l87 = f3("GVARNAME");
2414 return f100 = (function(v283){
2415 ((v283)["fname"] = "GVARNAME");
2417 })((function (v284){
2418 if (arguments.length < 1) throw 'too few arguments';
2419 if (arguments.length > 1) throw 'too many arguments';
2420 return f67("v", f6(v282 = (function(){
2423 if (typeof x != 'number')
2424 throw 'The value ' + x + ' is not a type number.';
2425 if (typeof y != 'number')
2426 throw 'The value ' + y + ' is not a type number.';
2433 var l93 = f3("LOOKUP-VARIABLE");
2434 var l92 = f3("VARIABLE");
2435 var l91 = f3("VARIABLE");
2436 var l90 = f3("VARIABLE");
2437 var l89 = f3("VARIABLE");
2438 var l88 = f3("VARIABLE");
2442 return f101 = (function(v285){
2443 ((v285)["fname"] = "LOOKUP-VARIABLE");
2445 })((function (v286,v287){
2446 if (arguments.length < 2) throw 'too few arguments';
2447 if (arguments.length > 2) throw 'too many arguments';
2448 return (function(v288){
2449 return (v288 !== v2 ? v288 : (function(v289){
2450 return (v289 !== v2 ? v289 : (function(v290,v291){
2451 f96(v291, v278, l88);
2452 v244 = ({car: (function (){
2453 if (arguments.length > 0) throw 'too many arguments';
2454 return (f98(v286, v278, l89) !== v2 ? v2 : (function(){
2455 return (function (){ throw f67("Undefined variable `", v290, "'"); })();
2459 })((v286).name,f88(v286, l90, f100(v286), v2)));
2460 })(f98(v286, v278, l91)));
2461 })(f98(v286, v287, l92));
2466 var l94 = f3("LOOKUP-VARIABLE-TRANSLATION");
2470 return f102 = (function(v292){
2471 ((v292)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
2473 })((function (v293,v294){
2474 if (arguments.length < 2) throw 'too few arguments';
2475 if (arguments.length > 2) throw 'too many arguments';
2476 return f91(f101(v293, v294));
2481 var l97 = f3("EXTEND-LOCAL-ENV");
2482 var l96 = f3("VARIABLE");
2483 var l95 = f3("VARIABLE");
2487 return f103 = (function(v295){
2488 ((v295)["fname"] = "EXTEND-LOCAL-ENV");
2490 })((function (v296,v297){
2491 if (arguments.length < 2) throw 'too few arguments';
2492 if (arguments.length > 2) throw 'too many arguments';
2493 return (function(v298){
2494 return (function(v299,v300){
2499 return tmp === v2? v2: tmp.car;
2502 return f96(v301, v298, l95);
2503 })(f88(v300, l96, f100(v300), v3));
2506 return tmp === v2? v2: tmp.cdr;
2516 var l98 = f3("*FUNCTION-COUNTER*");
2524 var l104 = f3("LOOKUP-FUNCTION");
2525 var l103 = f3("FUNCTION");
2526 var l102 = f3("FUNCTION");
2527 var l101 = f3("FUNCTION");
2528 var l100 = f3("FUNCTION");
2529 var l99 = f3("FUNCTION");
2533 return f104 = (function(v303){
2534 ((v303)["fname"] = "LOOKUP-FUNCTION");
2536 })((function (v304,v305){
2537 if (arguments.length < 2) throw 'too few arguments';
2538 if (arguments.length > 2) throw 'too many arguments';
2539 return (function(v306){
2540 return (v306 !== v2 ? v306 : (function(v307){
2541 return (v307 !== v2 ? v307 : (function(v308,v309){
2542 f96(v309, v278, l99);
2543 v244 = ({car: (function (){
2544 if (arguments.length > 0) throw 'too many arguments';
2545 return (f92(f98(v304, v278, l100)) !== v2 ? v2 : (function(){
2546 return (function (){ throw f67("Undefined function `", v308, "'"); })();
2550 })((v304).name,f88(v304, l101, f67("f", f6(v302 = (function(){
2553 if (typeof x != 'number')
2554 throw 'The value ' + x + ' is not a type number.';
2555 if (typeof y != 'number')
2556 throw 'The value ' + y + ' is not a type number.';
2559 })(f98(v304, v278, l102)));
2560 })(f98(v304, v305, l103));
2565 var l105 = f3("LOOKUP-FUNCTION-TRANSLATION");
2569 return f105 = (function(v310){
2570 ((v310)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
2572 })((function (v311,v312){
2573 if (arguments.length < 2) throw 'too few arguments';
2574 if (arguments.length > 2) throw 'too many arguments';
2575 return f91(f104(v311, v312));
2580 var l106 = f3("*TOPLEVEL-COMPILATIONS*");
2588 var l107 = f3("%COMPILE-DEFVAR");
2592 return f106 = (function(v314){
2593 ((v314)["fname"] = "%COMPILE-DEFVAR");
2595 })((function (v315){
2596 if (arguments.length < 1) throw 'too few arguments';
2597 if (arguments.length > 1) throw 'too many arguments';
2598 return (function(v316){
2600 return v313 = ({car: f67("var ", f91(v316)), cdr: v313});
2601 })(f101(v315, v278));
2606 var l108 = f3("%COMPILE-DEFUN");
2610 return f107 = (function(v317){
2611 ((v317)["fname"] = "%COMPILE-DEFUN");
2613 })((function (v318){
2614 if (arguments.length < 1) throw 'too few arguments';
2615 if (arguments.length > 1) throw 'too many arguments';
2616 return (function(v319){
2618 return v313 = ({car: f67("var ", f91(v319)), cdr: v313});
2619 })(f104(v318, v278));
2624 var l111 = f3("%COMPILE-DEFMACRO");
2625 var l110 = f3("FUNCTION");
2626 var l109 = f3("MACRO");
2630 return f108 = (function(v320){
2631 ((v320)["fname"] = "%COMPILE-DEFMACRO");
2633 })((function (v321,v322){
2634 if (arguments.length < 2) throw 'too few arguments';
2635 if (arguments.length > 2) throw 'too many arguments';
2636 return f96(f88(v321, l109, v322, v3), v278, l110);
2641 var l112 = f3("*COMPILATIONS*");
2649 var l113 = f3("LS-COMPILE-BLOCK");
2653 return f109 = (function(v324){
2654 ((v324)["fname"] = "LS-COMPILE-BLOCK");
2656 })((function (v325,v326){
2657 if (arguments.length < 2) throw 'too few arguments';
2658 if (arguments.length > 2) throw 'too many arguments';
2659 return f69(f59((function (v327){
2660 if (arguments.length < 1) throw 'too few arguments';
2661 if (arguments.length > 1) throw 'too many arguments';
2662 return (function(v328){
2663 return (v328 !== v2 ? v328 : (((typeof(v327) == "string")?v3: v2) !== v2 ? f14(f43(v327)) : v2));
2665 }), f45((function (v329){
2666 if (arguments.length < 1) throw 'too few arguments';
2667 if (arguments.length > 1) throw 'too many arguments';
2668 return f110(v329, v326);
2669 }), v325)), f67(";", v169));
2674 var l114 = f3("IF");
2675 v323 = ({car: f33(l114, (function (v330,v331,v332,v333){
2676 if (arguments.length < 4) throw 'too few arguments';
2677 if (arguments.length > 4) throw 'too many arguments';
2678 return f67("(", f110(v331, v330), " !== ", f110(v2), " ? ", f110(v332, v330), " : ", f110(v333, v330), ")");
2680 var l116 = f3("*LAMBDA-LIST-KEYWORDS*");
2681 var l115 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
2689 var l117 = f3("LIST-UNTIL-KEYWORD");
2693 return f111 = (function(v335){
2694 ((v335)["fname"] = "LIST-UNTIL-KEYWORD");
2696 })((function (v336){
2697 if (arguments.length < 1) throw 'too few arguments';
2698 if (arguments.length > 1) throw 'too many arguments';
2699 return ((function(v337){
2700 return (v337 !== v2 ? v337 : f57((function(){
2702 return tmp === v2? v2: tmp.car;
2704 })(f1(v336)) !== v2 ? v2 : ({car: (function(){
2706 return tmp === v2? v2: tmp.car;
2707 })(), cdr: f111((function(){
2709 return tmp === v2? v2: tmp.cdr;
2715 var l118 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
2719 return f112 = (function(v338){
2720 ((v338)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
2722 })((function (v339){
2723 if (arguments.length < 1) throw 'too few arguments';
2724 if (arguments.length > 1) throw 'too many arguments';
2730 var l120 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
2731 var l119 = f3("&OPTIONAL");
2735 return f113 = (function(v340){
2736 ((v340)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
2738 })((function (v341){
2739 if (arguments.length < 1) throw 'too few arguments';
2740 if (arguments.length > 1) throw 'too many arguments';
2741 return f45(f35, f111((function(){
2742 var tmp = f57(l119, v341);
2743 return tmp === v2? v2: tmp.cdr;
2749 var l121 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
2753 return f114 = (function(v342){
2754 ((v342)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
2756 })((function (v343){
2757 if (arguments.length < 1) throw 'too few arguments';
2758 if (arguments.length > 1) throw 'too many arguments';
2759 return f45(f20, f113(v343));
2764 var l123 = f3("LAMBDA-LIST-REST-ARGUMENT");
2765 var l122 = f3("&REST");
2769 return f115 = (function(v344){
2770 ((v344)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
2772 })((function (v345){
2773 if (arguments.length < 1) throw 'too few arguments';
2774 if (arguments.length > 1) throw 'too many arguments';
2775 return (function(v346){
2778 return tmp === v2? v2: tmp.cdr;
2779 })() !== v2 ? (function(){
2780 return (function (){ throw "Bad lambda-list"; })();
2784 return tmp === v2? v2: tmp.car;
2786 })(f111((function(){
2787 var tmp = f57(l122, v345);
2788 return tmp === v2? v2: tmp.cdr;
2794 var l124 = f3("LAMBDA");
2795 v323 = ({car: f33(l124, (function (v348,v349){
2796 if (arguments.length < 2) throw 'too few arguments';
2798 for (var i = arguments.length-1; i>=2; i--)
2799 v347 = {car: arguments[i], cdr: v347};
2800 return (function(v350,v351,v352){
2801 return (function(v353,v354,v355){
2802 return f67("(function (", f68(f45((function (v356){
2803 if (arguments.length < 1) throw 'too few arguments';
2804 if (arguments.length > 1) throw 'too many arguments';
2805 return f102(v356, v355);
2806 }), f39(v350, v351)), ","), "){", v169, f70((v350 !== v2 ? f67("if (arguments.length < ", f6(v353), ") throw 'too few arguments';", v169) : ""), (f17(v352) !== v2 ? f67("if (arguments.length > ", f6((function(){
2809 if (typeof x != 'number')
2810 throw 'The value ' + x + ' is not a type number.';
2811 if (typeof y != 'number')
2812 throw 'The value ' + y + ' is not a type number.';
2814 })()), ") throw 'too many arguments';", v169) : ""), (v351 !== v2 ? f67("switch(arguments.length){", v169, (function(v357,v358,v359){
2820 if (typeof x != 'number')
2821 throw 'The value ' + x + ' is not a type number.';
2822 if (typeof y != 'number')
2823 throw 'The value ' + y + ' is not a type number.';
2825 })()?v3: v2) !== v2){
2827 v358 = ({car: f67("case ", f6((function(){
2830 if (typeof x != 'number')
2831 throw 'The value ' + x + ' is not a type number.';
2832 if (typeof y != 'number')
2833 throw 'The value ' + y + ' is not a type number.';
2835 })()), ":", v169, f102((function(){
2837 return tmp === v2? v2: tmp.car;
2838 })(), v355), "=", f110(f23(v360), v355), ";", v169), cdr: v358});
2839 return v359 = (function(){
2842 if (typeof x != 'number')
2843 throw 'The value ' + x + ' is not a type number.';
2844 if (typeof y != 'number')
2845 throw 'The value ' + y + ' is not a type number.';
2848 })(f54(v359, v357));
2850 v358 = ({car: f67("default: break;", v169), cdr: v358});
2851 return f68(f41(v358));
2853 })(f113(v349),v2,0), "}", v169) : ""), (v352 !== v2 ? (function(v361){
2854 return f67("var ", v361, "= ", f110(v2), ";", v169, "for (var i = arguments.length-1; i>=", f6((function(){
2857 if (typeof x != 'number')
2858 throw 'The value ' + x + ' is not a type number.';
2859 if (typeof y != 'number')
2860 throw 'The value ' + y + ' is not a type number.';
2862 })()), "; i--)", v169, f70(v361, " = ", "{car: arguments[i], cdr: "), v361, "};", v169);
2863 })(f102(v352, v355)) : ""), f67(f109(f56(v347), v355), "return ", f110((function(){
2864 var tmp = f55(v347);
2865 return tmp === v2? v2: tmp.car;
2866 })(), v355), ";")), v169, "})");
2867 })(f43(v350),f43(v351),f103(f39(f35(v352), v350, v351), v348));
2868 })(f112(v349),f114(v349),f115(v349));
2870 var l125 = f3("FSETQ");
2871 v323 = ({car: f33(l125, (function (v362,v363,v364){
2872 if (arguments.length < 3) throw 'too few arguments';
2873 if (arguments.length > 3) throw 'too many arguments';
2874 return f67(f105(v363, v362), " = ", f110(v364, v362));
2876 var l126 = f3("SETQ");
2877 v323 = ({car: f33(l126, (function (v365,v366,v367){
2878 if (arguments.length < 3) throw 'too few arguments';
2879 if (arguments.length > 3) throw 'too many arguments';
2880 return f67(f102(v366, v365), " = ", f110(v367, v365));
2882 var l127 = f3("ESCAPE-STRING");
2886 return f72 = (function(v368){
2887 ((v368)["fname"] = "ESCAPE-STRING");
2889 })((function (v369){
2890 if (arguments.length < 1) throw 'too few arguments';
2891 if (arguments.length > 1) throw 'too many arguments';
2892 return (function(v370,v371,v372){
2897 if (typeof x != 'number')
2898 throw 'The value ' + x + ' is not a type number.';
2899 if (typeof y != 'number')
2900 throw 'The value ' + y + ' is not a type number.';
2902 })()?v3: v2) !== v2){
2905 return (v374 !== v2 ? v374 : f50(v373, 92));
2906 })(f50(v373, 34)) !== v2 ? (function(){
2907 return v370 = f67(v370, "\\");
2909 (f50(v373, 10) !== v2 ? (function(){
2910 v370 = f67(v370, "\\");
2913 return v370 = f67(v370, (function(){
2915 if (typeof x != 'number')
2916 throw 'The value ' + x + ' is not a type number.';
2917 return String.fromCharCode(x);
2922 if (typeof string != 'string')
2923 throw 'The value ' + string + ' is not a type string.';
2924 if (typeof index != 'number')
2925 throw 'The value ' + index + ' is not a type number.';
2926 return string.charCodeAt(index);
2931 if (typeof x != 'number')
2932 throw 'The value ' + x + ' is not a type number.';
2933 if (typeof y != 'number')
2934 throw 'The value ' + y + ' is not a type number.';
2944 var l129 = f3("LITERAL->JS");
2945 var l128 = f3("INTERN");
2949 return f116 = (function(v375){
2950 ((v375)["fname"] = "LITERAL->JS");
2952 })((function (v376){
2953 if (arguments.length < 1) throw 'too few arguments';
2954 if (arguments.length > 1) throw 'too many arguments';
2955 return (f51(v376) !== v2 ? (function(){
2957 })() : (((typeof(v376) == "string")?v3: v2) !== v2 ? (function(){
2958 return f67("\"", f72(v376), "\"");
2959 })() : (((function(){
2961 return (typeof tmp == 'object' && 'name' in tmp);
2962 })()?v3: v2) !== v2 ? (function(){
2963 return f110(f39(f33(l128), f33(f72((v376).name))), v278);
2964 })() : (((function(){
2966 return (typeof tmp == 'object' && 'car' in tmp);
2967 })()?v3: v2) !== v2 ? (function(){
2968 return f67("{car: ", f116((function(){
2970 return tmp === v2? v2: tmp.car;
2971 })()), ", cdr: ", f116((function(){
2973 return tmp === v2? v2: tmp.cdr;
2980 var l130 = f3("*LITERAL-COUNTER*");
2988 var l131 = f3("LITERAL");
2992 return f117 = (function(v378){
2993 ((v378)["fname"] = "LITERAL");
2995 })((function (v379){
2996 if (arguments.length < 1) throw 'too few arguments';
2997 if (arguments.length > 1) throw 'too many arguments';
2998 return (function(v380){
2999 v313 = ({car: f67("var ", v380, " = ", f116(v379)), cdr: v313});
3001 })(f67("l", f6(v377 = (function(){
3004 if (typeof x != 'number')
3005 throw 'The value ' + x + ' is not a type number.';
3006 if (typeof y != 'number')
3007 throw 'The value ' + y + ' is not a type number.';
3014 var l132 = f3("QUOTE");
3015 v323 = ({car: f33(l132, (function (v381,v382){
3016 if (arguments.length < 2) throw 'too few arguments';
3017 if (arguments.length > 2) throw 'too many arguments';
3020 var l133 = f3("WHILE");
3021 v323 = ({car: f33(l133, (function (v384,v385){
3022 if (arguments.length < 2) throw 'too few arguments';
3024 for (var i = arguments.length-1; i>=2; i--)
3025 v383 = {car: arguments[i], cdr: v383};
3026 return f67("(function(){", v169, f70("while(", f110(v385, v384), " !== ", f110(v2), "){", v169, f70(f109(v383, v384))), "}})()");
3028 var l135 = f3("LAMBDA");
3029 var l134 = f3("FUNCTION");
3030 v323 = ({car: f33(l134, (function (v386,v387){
3031 if (arguments.length < 2) throw 'too few arguments';
3032 if (arguments.length > 2) throw 'too many arguments';
3033 return ((f36(v387) !== v2 ? (((function(){
3035 return tmp === v2? v2: tmp.car;
3036 })() === l135)?v3: v2) : v2) !== v2 ? (function(){
3037 return f110(v387, v386);
3038 })() : (((function(){
3040 return (typeof tmp == 'object' && 'name' in tmp);
3041 })()?v3: v2) !== v2 ? (function(){
3042 return f105(v387, v386);
3045 var l137 = f3("PROGN");
3046 var l136 = f3("EVAL-WHEN-COMPILE");
3047 v323 = ({car: f33(l136, (function (v389){
3048 if (arguments.length < 1) throw 'too few arguments';
3050 for (var i = arguments.length-1; i>=1; i--)
3051 v388 = {car: arguments[i], cdr: v388};
3052 f118(({car: l137, cdr: v388}));
3055 var l138 = f3("PROGN");
3056 v323 = ({car: f33(l138, (function (v391){
3057 if (arguments.length < 1) throw 'too few arguments';
3059 for (var i = arguments.length-1; i>=1; i--)
3060 v390 = {car: arguments[i], cdr: v390};
3061 return f67("(function(){", v169, f70(f109(f56(v390), v391), "return ", f110((function(){
3062 var tmp = f55(v390);
3063 return tmp === v2? v2: tmp.car;
3064 })(), v391), ";", v169), "})()");
3066 var l139 = f3("LET");
3067 v323 = ({car: f33(l139, (function (v393,v394){
3068 if (arguments.length < 2) throw 'too few arguments';
3070 for (var i = arguments.length-1; i>=2; i--)
3071 v392 = {car: arguments[i], cdr: v392};
3072 return (function(v395){
3073 return (function(v396,v397){
3074 return (function(v398){
3075 return f67("(function(", f68(f45((function (v399){
3076 if (arguments.length < 1) throw 'too few arguments';
3077 if (arguments.length > 1) throw 'too many arguments';
3078 return f102(v399, v398);
3079 }), v396), ","), "){", v169, f70(f109(f56(v392), v398), "return ", f110((function(){
3080 var tmp = f55(v392);
3081 return tmp === v2? v2: tmp.car;
3082 })(), v398), ";", v169), "})(", f68(f45((function (v400){
3083 if (arguments.length < 1) throw 'too few arguments';
3084 if (arguments.length > 1) throw 'too many arguments';
3085 return f110(v400, v393);
3086 }), v397), ","), ")");
3087 })(f103(v396, v393));
3088 })(f45(f29, v395),f45(f30, v395));
3091 var l140 = f3("*BLOCK-COUNTER*");
3099 var l144 = f3("BLOCK");
3100 var l143 = f3("BLOCK");
3101 var l142 = f3("PROGN");
3102 var l141 = f3("BLOCK");
3103 v323 = ({car: f33(l141, (function (v403,v404){
3104 if (arguments.length < 2) throw 'too few arguments';
3106 for (var i = arguments.length-1; i>=2; i--)
3107 v402 = {car: arguments[i], cdr: v402};
3108 return (function(v405){
3109 return (function(v406){
3110 return f67("(function(){", v169, f70("try {", v169, f70("return ", f110(f39(f33(l142), v402), f97(v406, v403, l143))), ";", v169, "}", v169, "catch (cf){", v169, " if (cf.type == 'block' && cf.id == ", v405, ")", v169, " return cf.value;", v169, " else", v169, " throw cf;", v169, "}", v169), "})()", v169);
3111 })(f88(v404, l144, v405, v3));
3112 })(f6(v401 = (function(){
3115 if (typeof x != 'number')
3116 throw 'The value ' + x + ' is not a type number.';
3117 if (typeof y != 'number')
3118 throw 'The value ' + y + ' is not a type number.';
3122 var l146 = f3("BLOCK");
3123 var l145 = f3("RETURN-FROM");
3124 v323 = ({car: f33(l145, (function (v407,v408,v409){
3125 if (arguments.length < 2) throw 'too few arguments';
3126 if (arguments.length > 3) throw 'too many arguments';
3127 switch(arguments.length){
3132 return (function(v410){
3133 return (v410 !== v2 ? f67("(function(){ throw ({", "type: 'block', ", "id: ", f91(v410), ", ", "value: ", f110(v409, v407), ", ", "message: 'Return from unknown block ", (v408).name, ".'", "})})()") : (function (){ throw f67("Unknown block `", (v408).name, "'."); })());
3134 })(f98(v408, v407, l146));
3136 var l155 = f3("BACKQUOTE-EXPAND-1");
3137 var l154 = f3("LIST");
3138 var l153 = f3("UNQUOTE-SPLICING");
3139 var l152 = f3("LIST");
3140 var l151 = f3("UNQUOTE");
3141 var l150 = f3("APPEND");
3142 var l149 = f3("BACKQUOTE");
3143 var l148 = f3("UNQUOTE");
3144 var l147 = f3("QUOTE");
3148 return f119 = (function(v411){
3149 ((v411)["fname"] = "BACKQUOTE-EXPAND-1");
3151 })((function (v412){
3152 if (arguments.length < 1) throw 'too few arguments';
3153 if (arguments.length > 1) throw 'too many arguments';
3154 return (((function(){
3156 return (typeof tmp == 'object' && 'name' in tmp);
3157 })()?v3: v2) !== v2 ? (function(){
3158 return f33(l147, v412);
3159 })() : (f34(v412) !== v2 ? (function(){
3161 })() : ((((function(){
3163 return tmp === v2? v2: tmp.car;
3164 })() === l148)?v3: v2) !== v2 ? (function(){
3167 return tmp === v2? v2: tmp.car;
3169 })() : ((((function(){
3171 return tmp === v2? v2: tmp.car;
3172 })() === l149)?v3: v2) !== v2 ? (function(){
3173 return f119(f119(f23(v412)));
3175 return ({car: l150, cdr: f45((function (v413){
3176 if (arguments.length < 1) throw 'too few arguments';
3177 if (arguments.length > 1) throw 'too many arguments';
3178 return ((f36(v413) !== v2 ? (((function(){
3180 return tmp === v2? v2: tmp.car;
3181 })() === l151)?v3: v2) : v2) !== v2 ? (function(){
3182 return f33(l152, f23(v413));
3183 })() : ((f36(v413) !== v2 ? (((function(){
3185 return tmp === v2? v2: tmp.car;
3186 })() === l153)?v3: v2) : v2) !== v2 ? (function(){
3189 return f33(l154, f119(v413));
3197 var l157 = f3("BACKQUOTE-EXPAND");
3198 var l156 = f3("BACKQUOTE");
3202 return f120 = (function(v414){
3203 ((v414)["fname"] = "BACKQUOTE-EXPAND");
3205 })((function (v415){
3206 if (arguments.length < 1) throw 'too few arguments';
3207 if (arguments.length > 1) throw 'too many arguments';
3208 return ((f36(v415) !== v2 ? (((function(){
3210 return tmp === v2? v2: tmp.car;
3211 })() === l156)?v3: v2) : v2) !== v2 ? f119(f23(v415)) : v415);
3216 var l158 = f3("BACKQUOTE");
3217 v323 = ({car: f33(l158, (function (v416,v417){
3218 if (arguments.length < 2) throw 'too few arguments';
3219 if (arguments.length > 2) throw 'too many arguments';
3220 return f110(f119(v417), v416);
3222 var l159 = f3("COMPILE-BOOL");
3226 return f121 = (function(v418){
3227 ((v418)["fname"] = "COMPILE-BOOL");
3229 })((function (v419){
3230 if (arguments.length < 1) throw 'too few arguments';
3231 if (arguments.length > 1) throw 'too many arguments';
3232 return f67("(", v419, "?", f110(v3), ": ", f110(v2), ")");
3237 var l160 = f3("NUM-OP-NUM");
3241 return f122 = (function(v420){
3242 ((v420)["fname"] = "NUM-OP-NUM");
3244 })((function (v421,v422,v423){
3245 if (arguments.length < 3) throw 'too few arguments';
3246 if (arguments.length > 3) throw 'too many arguments';
3247 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v421, ";", v169), f67("var ", "y", " = ", v423, ";", v169), f67("if (typeof ", "x", " != '", "number", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v169)), f67("if (typeof ", "y", " != '", "number", "')", v169, f70("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v169)), f67("return ", (function(){
3248 return f67("x", v422, "y");
3249 })(), ";", v169)), "})()");
3255 v323 = ({car: f33(l161, (function (v424,v425,v426){
3256 if (arguments.length < 3) throw 'too few arguments';
3257 if (arguments.length > 3) throw 'too many arguments';
3258 return (function(v427,v428){
3259 return f122(v427, "+", v428);
3260 })(f110(v425, v424),f110(v426, v424));
3263 v323 = ({car: f33(l162, (function (v429,v430,v431){
3264 if (arguments.length < 3) throw 'too few arguments';
3265 if (arguments.length > 3) throw 'too many arguments';
3266 return (function(v432,v433){
3267 return f122(v432, "-", v433);
3268 })(f110(v430, v429),f110(v431, v429));
3271 v323 = ({car: f33(l163, (function (v434,v435,v436){
3272 if (arguments.length < 3) throw 'too few arguments';
3273 if (arguments.length > 3) throw 'too many arguments';
3274 return (function(v437,v438){
3275 return f122(v437, "*", v438);
3276 })(f110(v435, v434),f110(v436, v434));
3279 v323 = ({car: f33(l164, (function (v439,v440,v441){
3280 if (arguments.length < 3) throw 'too few arguments';
3281 if (arguments.length > 3) throw 'too many arguments';
3282 return (function(v442,v443){
3283 return f122(v442, "/", v443);
3284 })(f110(v440, v439),f110(v441, v439));
3286 var l165 = f3("MOD");
3287 v323 = ({car: f33(l165, (function (v444,v445,v446){
3288 if (arguments.length < 3) throw 'too few arguments';
3289 if (arguments.length > 3) throw 'too many arguments';
3290 return (function(v447,v448){
3291 return f122(v447, "%", v448);
3292 })(f110(v445, v444),f110(v446, v444));
3295 v323 = ({car: f33(l166, (function (v449,v450,v451){
3296 if (arguments.length < 3) throw 'too few arguments';
3297 if (arguments.length > 3) throw 'too many arguments';
3298 return (function(v452,v453){
3299 return f121(f122(v452, "<", v453));
3300 })(f110(v450, v449),f110(v451, v449));
3303 v323 = ({car: f33(l167, (function (v454,v455,v456){
3304 if (arguments.length < 3) throw 'too few arguments';
3305 if (arguments.length > 3) throw 'too many arguments';
3306 return (function(v457,v458){
3307 return f121(f122(v457, ">", v458));
3308 })(f110(v455, v454),f110(v456, v454));
3311 v323 = ({car: f33(l168, (function (v459,v460,v461){
3312 if (arguments.length < 3) throw 'too few arguments';
3313 if (arguments.length > 3) throw 'too many arguments';
3314 return (function(v462,v463){
3315 return f121(f122(v462, "==", v463));
3316 })(f110(v460, v459),f110(v461, v459));
3318 var l169 = f3("<=");
3319 v323 = ({car: f33(l169, (function (v464,v465,v466){
3320 if (arguments.length < 3) throw 'too few arguments';
3321 if (arguments.length > 3) throw 'too many arguments';
3322 return (function(v467,v468){
3323 return f121(f122(v467, "<=", v468));
3324 })(f110(v465, v464),f110(v466, v464));
3326 var l170 = f3(">=");
3327 v323 = ({car: f33(l170, (function (v469,v470,v471){
3328 if (arguments.length < 3) throw 'too few arguments';
3329 if (arguments.length > 3) throw 'too many arguments';
3330 return (function(v472,v473){
3331 return f121(f122(v472, ">=", v473));
3332 })(f110(v470, v469),f110(v471, v469));
3334 var l171 = f3("NUMBERP");
3335 v323 = ({car: f33(l171, (function (v474,v475){
3336 if (arguments.length < 2) throw 'too few arguments';
3337 if (arguments.length > 2) throw 'too many arguments';
3338 return (function(v476){
3339 return f121(f67("(typeof (", v476, ") == \"number\")"));
3340 })(f110(v475, v474));
3342 var l172 = f3("FLOOR");
3343 v323 = ({car: f33(l172, (function (v477,v478){
3344 if (arguments.length < 2) throw 'too few arguments';
3345 if (arguments.length > 2) throw 'too many arguments';
3346 return (function(v479){
3347 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v479, ";", v169), f67("if (typeof ", "x", " != '", "number", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v169)), f67("return ", (function(){
3348 return "Math.floor(x)";
3349 })(), ";", v169)), "})()");
3350 })(f110(v478, v477));
3352 var l173 = f3("CONS");
3353 v323 = ({car: f33(l173, (function (v480,v481,v482){
3354 if (arguments.length < 3) throw 'too few arguments';
3355 if (arguments.length > 3) throw 'too many arguments';
3356 return (function(v483,v484){
3357 return f67("({car: ", v483, ", cdr: ", v484, "})");
3358 })(f110(v481, v480),f110(v482, v480));
3360 var l174 = f3("CONSP");
3361 v323 = ({car: f33(l174, (function (v485,v486){
3362 if (arguments.length < 2) throw 'too few arguments';
3363 if (arguments.length > 2) throw 'too many arguments';
3364 return (function(v487){
3365 return f121(f67("(function(){", v169, f70("var tmp = ", v487, ";", v169, "return (typeof tmp == 'object' && 'car' in tmp);", v169), "})()"));
3366 })(f110(v486, v485));
3368 var l175 = f3("CAR");
3369 v323 = ({car: f33(l175, (function (v488,v489){
3370 if (arguments.length < 2) throw 'too few arguments';
3371 if (arguments.length > 2) throw 'too many arguments';
3372 return (function(v490){
3373 return f67("(function(){", v169, f70("var tmp = ", v490, ";", v169, "return tmp === ", f110(v2), "? ", f110(v2), ": tmp.car;", v169), "})()");
3374 })(f110(v489, v488));
3376 var l176 = f3("CDR");
3377 v323 = ({car: f33(l176, (function (v491,v492){
3378 if (arguments.length < 2) throw 'too few arguments';
3379 if (arguments.length > 2) throw 'too many arguments';
3380 return (function(v493){
3381 return f67("(function(){", v169, f70("var tmp = ", v493, ";", v169, "return tmp === ", f110(v2), "? ", f110(v2), ": tmp.cdr;", v169), "})()");
3382 })(f110(v492, v491));
3384 var l177 = f3("SETCAR");
3385 v323 = ({car: f33(l177, (function (v494,v495,v496){
3386 if (arguments.length < 3) throw 'too few arguments';
3387 if (arguments.length > 3) throw 'too many arguments';
3388 return (function(v497,v498){
3389 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v497, ";", v169), f67("if (typeof ", "x", " != '", "object", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v169)), f67("return ", (function(){
3390 return f67("(x.car = ", v498, ")");
3391 })(), ";", v169)), "})()");
3392 })(f110(v495, v494),f110(v496, v494));
3394 var l178 = f3("SETCDR");
3395 v323 = ({car: f33(l178, (function (v499,v500,v501){
3396 if (arguments.length < 3) throw 'too few arguments';
3397 if (arguments.length > 3) throw 'too many arguments';
3398 return (function(v502,v503){
3399 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v502, ";", v169), f67("if (typeof ", "x", " != '", "object", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v169)), f67("return ", (function(){
3400 return f67("(x.cdr = ", v503, ")");
3401 })(), ";", v169)), "})()");
3402 })(f110(v500, v499),f110(v501, v499));
3404 var l179 = f3("SYMBOLP");
3405 v323 = ({car: f33(l179, (function (v504,v505){
3406 if (arguments.length < 2) throw 'too few arguments';
3407 if (arguments.length > 2) throw 'too many arguments';
3408 return (function(v506){
3409 return f121(f67("(function(){", v169, f70("var tmp = ", v506, ";", v169, "return (typeof tmp == 'object' && 'name' in tmp);", v169), "})()"));
3410 })(f110(v505, v504));
3412 var l180 = f3("MAKE-SYMBOL");
3413 v323 = ({car: f33(l180, (function (v507,v508){
3414 if (arguments.length < 2) throw 'too few arguments';
3415 if (arguments.length > 2) throw 'too many arguments';
3416 return (function(v509){
3417 return f67("(function(){", v169, f70(f67("var ", "name", " = ", v509, ";", v169), f67("if (typeof ", "name", " != '", "string", "')", v169, f70("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v169)), f67("return ", (function(){
3418 return "({name: name})";
3419 })(), ";", v169)), "})()");
3420 })(f110(v508, v507));
3422 var l181 = f3("SYMBOL-NAME");
3423 v323 = ({car: f33(l181, (function (v510,v511){
3424 if (arguments.length < 2) throw 'too few arguments';
3425 if (arguments.length > 2) throw 'too many arguments';
3426 return (function(v512){
3427 return f67("(", v512, ").name");
3428 })(f110(v511, v510));
3430 var l182 = f3("EQ");
3431 v323 = ({car: f33(l182, (function (v513,v514,v515){
3432 if (arguments.length < 3) throw 'too few arguments';
3433 if (arguments.length > 3) throw 'too many arguments';
3434 return (function(v516,v517){
3435 return f121(f67("(", v516, " === ", v517, ")"));
3436 })(f110(v514, v513),f110(v515, v513));
3438 var l183 = f3("EQUAL");
3439 v323 = ({car: f33(l183, (function (v518,v519,v520){
3440 if (arguments.length < 3) throw 'too few arguments';
3441 if (arguments.length > 3) throw 'too many arguments';
3442 return (function(v521,v522){
3443 return f121(f67("(", v521, " == ", v522, ")"));
3444 })(f110(v519, v518),f110(v520, v518));
3446 var l184 = f3("STRING");
3447 v323 = ({car: f33(l184, (function (v523,v524){
3448 if (arguments.length < 2) throw 'too few arguments';
3449 if (arguments.length > 2) throw 'too many arguments';
3450 return (function(v525){
3451 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v525, ";", v169), f67("if (typeof ", "x", " != '", "number", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v169)), f67("return ", (function(){
3452 return "String.fromCharCode(x)";
3453 })(), ";", v169)), "})()");
3454 })(f110(v524, v523));
3456 var l185 = f3("STRINGP");
3457 v323 = ({car: f33(l185, (function (v526,v527){
3458 if (arguments.length < 2) throw 'too few arguments';
3459 if (arguments.length > 2) throw 'too many arguments';
3460 return (function(v528){
3461 return f121(f67("(typeof(", v528, ") == \"string\")"));
3462 })(f110(v527, v526));
3464 var l186 = f3("STRING-UPCASE");
3465 v323 = ({car: f33(l186, (function (v529,v530){
3466 if (arguments.length < 2) throw 'too few arguments';
3467 if (arguments.length > 2) throw 'too many arguments';
3468 return (function(v531){
3469 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v531, ";", v169), f67("if (typeof ", "x", " != '", "string", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v169)), f67("return ", (function(){
3470 return "x.toUpperCase()";
3471 })(), ";", v169)), "})()");
3472 })(f110(v530, v529));
3474 var l187 = f3("STRING-LENGTH");
3475 v323 = ({car: f33(l187, (function (v532,v533){
3476 if (arguments.length < 2) throw 'too few arguments';
3477 if (arguments.length > 2) throw 'too many arguments';
3478 return (function(v534){
3479 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v534, ";", v169), f67("if (typeof ", "x", " != '", "string", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v169)), f67("return ", (function(){
3481 })(), ";", v169)), "})()");
3482 })(f110(v533, v532));
3484 var l188 = f3("SLICE");
3485 v323 = ({car: f33(l188, (function (v535,v536,v537,v538){
3486 if (arguments.length < 3) throw 'too few arguments';
3487 if (arguments.length > 4) throw 'too many arguments';
3488 switch(arguments.length){
3493 return f67("(function(){", v169, f70("var str = ", f110(v536, v535), ";", v169, "var a = ", f110(v537, v535), ";", v169, "var b;", v169, (v538 !== v2 ? f67("b = ", f110(v538, v535), ";", v169) : ""), "return str.slice(a,b);", v169), "})()");
3495 var l189 = f3("CHAR");
3496 v323 = ({car: f33(l189, (function (v539,v540,v541){
3497 if (arguments.length < 3) throw 'too few arguments';
3498 if (arguments.length > 3) throw 'too many arguments';
3499 return (function(v542,v543){
3500 return f67("(function(){", v169, f70(f67("var ", "string", " = ", v542, ";", v169), f67("var ", "index", " = ", v543, ";", v169), f67("if (typeof ", "string", " != '", "string", "')", v169, f70("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v169)), f67("if (typeof ", "index", " != '", "number", "')", v169, f70("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v169)), f67("return ", (function(){
3501 return "string.charCodeAt(index)";
3502 })(), ";", v169)), "})()");
3503 })(f110(v540, v539),f110(v541, v539));
3505 var l190 = f3("CONCAT-TWO");
3506 v323 = ({car: f33(l190, (function (v544,v545,v546){
3507 if (arguments.length < 3) throw 'too few arguments';
3508 if (arguments.length > 3) throw 'too many arguments';
3509 return (function(v547,v548){
3510 return f67("(function(){", v169, f70(f67("var ", "string1", " = ", v547, ";", v169), f67("var ", "string2", " = ", v548, ";", v169), f67("if (typeof ", "string1", " != '", "string", "')", v169, f70("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v169)), f67("if (typeof ", "string2", " != '", "string", "')", v169, f70("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v169)), f67("return ", (function(){
3511 return "string1.concat(string2)";
3512 })(), ";", v169)), "})()");
3513 })(f110(v545, v544),f110(v546, v544));
3515 var l191 = f3("FUNCALL");
3516 v323 = ({car: f33(l191, (function (v550,v551){
3517 if (arguments.length < 2) throw 'too few arguments';
3519 for (var i = arguments.length-1; i>=2; i--)
3520 v549 = {car: arguments[i], cdr: v549};
3521 return f67("(", f110(v551, v550), ")(", f68(f45((function (v552){
3522 if (arguments.length < 1) throw 'too few arguments';
3523 if (arguments.length > 1) throw 'too many arguments';
3524 return f110(v552, v550);
3525 }), v549), ", "), ")");
3527 var l192 = f3("APPLY");
3528 v323 = ({car: f33(l192, (function (v554,v555){
3529 if (arguments.length < 2) throw 'too few arguments';
3531 for (var i = arguments.length-1; i>=2; i--)
3532 v553 = {car: arguments[i], cdr: v553};
3533 return (f1(v553) !== v2 ? f67("(", f110(v555, v554), ")()") : (function(v556,v557){
3534 return f67("(function(){", v169, f70("var f = ", f110(v555, v554), ";", v169, "var args = [", f68(f45((function (v558){
3535 if (arguments.length < 1) throw 'too few arguments';
3536 if (arguments.length > 1) throw 'too many arguments';
3537 return f110(v558, v554);
3538 }), v556), ", "), "];", v169, "var tail = (", f110(v557, v554), ");", v169, f70("while (tail != ", f110(v2), "){", v169, " args.push(tail.car);", v169, " tail = tail.cdr;", v169, "}", v169, "return f.apply(this, args);", v169), "})()"));
3539 })(f56(v553),(function(){
3540 var tmp = f55(v553);
3541 return tmp === v2? v2: tmp.car;
3544 var l193 = f3("JS-EVAL");
3545 v323 = ({car: f33(l193, (function (v559,v560){
3546 if (arguments.length < 2) throw 'too few arguments';
3547 if (arguments.length > 2) throw 'too many arguments';
3548 return (function(v561){
3549 return f67("(function(){", v169, f70(f67("var ", "string", " = ", v561, ";", v169), f67("if (typeof ", "string", " != '", "string", "')", v169, f70("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v169)), f67("return ", (function(){
3550 return "eval.apply(window, [string])";
3551 })(), ";", v169)), "})()");
3552 })(f110(v560, v559));
3554 var l194 = f3("ERROR");
3555 v323 = ({car: f33(l194, (function (v562,v563){
3556 if (arguments.length < 2) throw 'too few arguments';
3557 if (arguments.length > 2) throw 'too many arguments';
3558 return (function(v564){
3559 return f67("(function (){ throw ", v564, "; })()");
3560 })(f110(v563, v562));
3562 var l195 = f3("NEW");
3563 v323 = ({car: f33(l195, (function (v565){
3564 if (arguments.length < 1) throw 'too few arguments';
3565 if (arguments.length > 1) throw 'too many arguments';
3570 var l196 = f3("GET");
3571 v323 = ({car: f33(l196, (function (v566,v567,v568){
3572 if (arguments.length < 3) throw 'too few arguments';
3573 if (arguments.length > 3) throw 'too many arguments';
3574 return (function(v569,v570){
3575 return f67("(function(){", v169, f70("var tmp = ", "(", v569, ")[", v570, "];", v169, "return tmp == undefined? ", f110(v2), ": tmp ;", v169), "})()");
3576 })(f110(v567, v566),f110(v568, v566));
3578 var l197 = f3("SET");
3579 v323 = ({car: f33(l197, (function (v571,v572,v573,v574){
3580 if (arguments.length < 4) throw 'too few arguments';
3581 if (arguments.length > 4) throw 'too many arguments';
3582 return (function(v575,v576,v577){
3583 return f67("((", v575, ")[", v576, "] = ", v577, ")");
3584 })(f110(v572, v571),f110(v573, v571),f110(v574, v571));
3586 var l198 = f3("IN");
3587 v323 = ({car: f33(l198, (function (v578,v579,v580){
3588 if (arguments.length < 3) throw 'too few arguments';
3589 if (arguments.length > 3) throw 'too many arguments';
3590 return (function(v581,v582){
3591 return f121(f67("((", v581, ") in (", v582, "))"));
3592 })(f110(v579, v578),f110(v580, v578));
3594 var l199 = f3("FUNCTIONP");
3595 v323 = ({car: f33(l199, (function (v583,v584){
3596 if (arguments.length < 2) throw 'too few arguments';
3597 if (arguments.length > 2) throw 'too many arguments';
3598 return (function(v585){
3599 return f121(f67("(typeof ", v585, " == 'function')"));
3600 })(f110(v584, v583));
3602 var l200 = f3("WRITE-STRING");
3603 v323 = ({car: f33(l200, (function (v586,v587){
3604 if (arguments.length < 2) throw 'too few arguments';
3605 if (arguments.length > 2) throw 'too many arguments';
3606 return (function(v588){
3607 return f67("(function(){", v169, f70(f67("var ", "x", " = ", v588, ";", v169), f67("if (typeof ", "x", " != '", "string", "')", v169, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v169)), f67("return ", (function(){
3608 return "lisp.write(x)";
3609 })(), ";", v169)), "})()");
3610 })(f110(v587, v586));
3612 var l202 = f3("MACROP");
3613 var l201 = f3("MACRO");
3617 return f123 = (function(v589){
3618 ((v589)["fname"] = "MACROP");
3620 })((function (v590){
3621 if (arguments.length < 1) throw 'too few arguments';
3622 if (arguments.length > 1) throw 'too many arguments';
3623 return (((function(){
3625 return (typeof tmp == 'object' && 'name' in tmp);
3626 })()?v3: v2) !== v2 ? ((f90(f104(v590, v278)) === l201)?v3: v2) : v2);
3631 var l204 = f3("LS-MACROEXPAND-1");
3632 var l203 = f3("MACRO");
3636 return f124 = (function(v591){
3637 ((v591)["fname"] = "LS-MACROEXPAND-1");
3639 })((function (v592,v593){
3640 if (arguments.length < 2) throw 'too few arguments';
3641 if (arguments.length > 2) throw 'too many arguments';
3642 return (f123((function(){
3644 return tmp === v2? v2: tmp.car;
3645 })()) !== v2 ? (function(v594){
3646 return (((f90(v594) === l203)?v3: v2) !== v2 ? (function(){
3647 var f = f118(f91(v594));
3649 var tail = ((function(){
3651 return tmp === v2? v2: tmp.cdr;
3654 args.push(tail.car);
3657 return f.apply(this, args);
3659 })(f104((function(){
3661 return tmp === v2? v2: tmp.car;
3662 })(), v278)) : v592);
3667 var l206 = f3("COMPILE-FUNCALL");
3668 var l205 = f3("LAMBDA");
3672 return f125 = (function(v595){
3673 ((v595)["fname"] = "COMPILE-FUNCALL");
3675 })((function (v596,v597,v598){
3676 if (arguments.length < 3) throw 'too few arguments';
3677 if (arguments.length > 3) throw 'too many arguments';
3678 return (((function(){
3680 return (typeof tmp == 'object' && 'name' in tmp);
3681 })()?v3: v2) !== v2 ? (function(){
3682 return f67(f105(v596, v598), "(", f68(f45((function (v599){
3683 if (arguments.length < 1) throw 'too few arguments';
3684 if (arguments.length > 1) throw 'too many arguments';
3685 return f110(v599, v598);
3686 }), v597), ", "), ")");
3687 })() : ((f36(v596) !== v2 ? (((function(){
3689 return tmp === v2? v2: tmp.car;
3690 })() === l205)?v3: v2) : v2) !== v2 ? (function(){
3691 return f67("(", f110(v596, v598), ")(", f68(f45((function (v600){
3692 if (arguments.length < 1) throw 'too few arguments';
3693 if (arguments.length > 1) throw 'too many arguments';
3694 return f110(v600, v598);
3695 }), v597), ", "), ")");
3697 return (function (){ throw f67("Invalid function designator ", (v596).name); })();
3703 var l207 = f3("LS-COMPILE");
3707 return f110 = (function(v601){
3708 ((v601)["fname"] = "LS-COMPILE");
3710 })((function (v602,v603){
3711 if (arguments.length < 1) throw 'too few arguments';
3712 if (arguments.length > 2) throw 'too many arguments';
3713 switch(arguments.length){
3718 return (((function(){
3720 return (typeof tmp == 'object' && 'name' in tmp);
3721 })()?v3: v2) !== v2 ? (function(){
3722 return f102(v602, v603);
3723 })() : (f51(v602) !== v2 ? (function(){
3725 })() : (((typeof(v602) == "string")?v3: v2) !== v2 ? (function(){
3726 return f67("\"", f72(v602), "\"");
3727 })() : (f36(v602) !== v2 ? (function(){
3728 return (f65((function(){
3730 return tmp === v2? v2: tmp.car;
3731 })(), v323) !== v2 ? (function(v604){
3735 var tail = ((function(){
3737 return tmp === v2? v2: tmp.cdr;
3740 args.push(tail.car);
3743 return f.apply(this, args);
3745 })(f30(f65((function(){
3747 return tmp === v2? v2: tmp.car;
3748 })(), v323))) : (f123((function(){
3750 return tmp === v2? v2: tmp.car;
3751 })()) !== v2 ? f110(f124(v602, v603), v603) : f125((function(){
3753 return tmp === v2? v2: tmp.car;
3756 return tmp === v2? v2: tmp.cdr;
3763 var l208 = f3("LS-COMPILE-TOPLEVEL");
3767 return f126 = (function(v605){
3768 ((v605)["fname"] = "LS-COMPILE-TOPLEVEL");
3770 })((function (v606){
3771 if (arguments.length < 1) throw 'too few arguments';
3772 if (arguments.length > 1) throw 'too many arguments';
3774 return (function(v607){
3775 return (function(v608){
3778 })(f67(f68(f45((function (v609){
3779 if (arguments.length < 1) throw 'too few arguments';
3780 if (arguments.length > 1) throw 'too many arguments';
3781 return f67(v609, ";", v169);
3788 var l219 = f3("LS-COMPILE-TOPLEVEL");
3789 var l218 = f3("EVAL");
3790 var l217 = f3("PRINT-TO-STRING");
3791 var l216 = f3("LS-READ-FROM-STRING");
3797 var l210 = {car: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v401", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v377", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v334", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v323", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v313", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v302", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v282", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v278", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v244", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v237", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v169", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", 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: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("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: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("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: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {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("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VALUE"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("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")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}};
3798 var l209 = f3("EVAL");
3811 return f118 = (function(v610){
3812 ((v610)["fname"] = "EVAL");
3814 })((function (v611){
3815 if (arguments.length < 1) throw 'too few arguments';
3816 if (arguments.length > 1) throw 'too many arguments';
3817 return (function(v612){
3820 if (typeof string != 'string')
3821 throw 'The value ' + string + ' is not a type string.';
3822 return eval.apply(window, [string]);
3825 (function(v614,v615){
3830 return tmp === v2? v2: tmp.car;
3835 return tmp === v2? v2: tmp.cdr;
3851 var string = f67("var lisp = {};", "lisp.read = ", f105(l216, v2), ";", v169, "lisp.print = ", f105(l217, v2), ";", v169, "lisp.eval = ", f105(l218, v2), ";", v169, "lisp.compile = ", f105(l219, v2), ";", v169, "lisp.evalString = function(str){", v169, " return lisp.eval(lisp.read(str));", v169, "}", v169, "lisp.compileString = function(str){", v169, " return lisp.compile(lisp.read(str));", v169, "}", v169);
3852 if (typeof string != 'string')
3853 throw 'The value ' + string + ' is not a type string.';
3854 return eval.apply(window, [string]);