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';
70 return ((v5 === v2)?v3: v2);
74 if (cf.type == 'block' && cf.id == 1)
83 return f2 = (function(v6){
84 ((v6)["fname"] = "INTERNP");
87 if (arguments.length < 1) throw 'too few arguments';
88 if (arguments.length > 1) throw 'too many arguments';
92 return (((v7) in (v1))?v3: v2);
96 if (cf.type == 'block' && cf.id == 2)
105 return f3 = (function(v8){
106 ((v8)["fname"] = "INTERN");
109 if (arguments.length < 1) throw 'too few arguments';
110 if (arguments.length > 1) throw 'too many arguments';
114 return (f2(v9) !== v2 ? (function(){
116 return tmp == undefined? v2: tmp ;
117 })() : ((v1)[v9] = (function(){
119 if (typeof name != 'string')
120 throw 'The value ' + name + ' is not a type string.';
121 return ({name: name});
126 if (cf.type == 'block' && cf.id == 3)
135 return f4 = (function(v10){
136 ((v10)["fname"] = "FIND-SYMBOL");
139 if (arguments.length < 1) throw 'too few arguments';
140 if (arguments.length > 1) throw 'too many arguments';
146 return tmp == undefined? v2: tmp ;
151 if (cf.type == 'block' && cf.id == 4)
163 return f5 = (function(v13){
164 ((v13)["fname"] = "GENSYM");
167 if (arguments.length > 1) throw 'too many arguments';
168 switch(arguments.length){
179 if (typeof x != 'number')
180 throw 'The value ' + x + ' is not a type number.';
181 if (typeof y != 'number')
182 throw 'The value ' + y + ' is not a type number.';
186 var name = (function(){
188 var string2 = f6(v12);
189 if (typeof string1 != 'string')
190 throw 'The value ' + string1 + ' is not a type string.';
191 if (typeof string2 != 'string')
192 throw 'The value ' + string2 + ' is not a type string.';
193 return string1.concat(string2);
195 if (typeof name != 'string')
196 throw 'The value ' + name + ' is not a type string.';
197 return ({name: name});
202 if (cf.type == 'block' && cf.id == 5)
211 return f7 = (function(v15){
212 ((v15)["fname"] = "=");
214 })((function (v16,v17){
215 if (arguments.length < 2) throw 'too few arguments';
216 if (arguments.length > 2) throw 'too many arguments';
223 if (typeof x != 'number')
224 throw 'The value ' + x + ' is not a type number.';
225 if (typeof y != 'number')
226 throw 'The value ' + y + ' is not a type number.';
232 if (cf.type == 'block' && cf.id == 6)
241 return f8 = (function(v18){
242 ((v18)["fname"] = "+");
244 })((function (v19,v20){
245 if (arguments.length < 2) throw 'too few arguments';
246 if (arguments.length > 2) throw 'too many arguments';
253 if (typeof x != 'number')
254 throw 'The value ' + x + ' is not a type number.';
255 if (typeof y != 'number')
256 throw 'The value ' + y + ' is not a type number.';
262 if (cf.type == 'block' && cf.id == 7)
271 return f9 = (function(v21){
272 ((v21)["fname"] = "-");
274 })((function (v22,v23){
275 if (arguments.length < 2) throw 'too few arguments';
276 if (arguments.length > 2) throw 'too many arguments';
283 if (typeof x != 'number')
284 throw 'The value ' + x + ' is not a type number.';
285 if (typeof y != 'number')
286 throw 'The value ' + y + ' is not a type number.';
292 if (cf.type == 'block' && cf.id == 8)
301 return f10 = (function(v24){
302 ((v24)["fname"] = "*");
304 })((function (v25,v26){
305 if (arguments.length < 2) throw 'too few arguments';
306 if (arguments.length > 2) throw 'too many arguments';
313 if (typeof x != 'number')
314 throw 'The value ' + x + ' is not a type number.';
315 if (typeof y != 'number')
316 throw 'The value ' + y + ' is not a type number.';
322 if (cf.type == 'block' && cf.id == 9)
331 return f11 = (function(v27){
332 ((v27)["fname"] = "/");
334 })((function (v28,v29){
335 if (arguments.length < 2) throw 'too few arguments';
336 if (arguments.length > 2) throw 'too many arguments';
343 if (typeof x != 'number')
344 throw 'The value ' + x + ' is not a type number.';
345 if (typeof y != 'number')
346 throw 'The value ' + y + ' is not a type number.';
352 if (cf.type == 'block' && cf.id == 10)
361 return f12 = (function(v30){
362 ((v30)["fname"] = "1+");
365 if (arguments.length < 1) throw 'too few arguments';
366 if (arguments.length > 1) throw 'too many arguments';
373 if (typeof x != 'number')
374 throw 'The value ' + x + ' is not a type number.';
375 if (typeof y != 'number')
376 throw 'The value ' + y + ' is not a type number.';
382 if (cf.type == 'block' && cf.id == 11)
391 return f13 = (function(v32){
392 ((v32)["fname"] = "1-");
395 if (arguments.length < 1) throw 'too few arguments';
396 if (arguments.length > 1) throw 'too many arguments';
403 if (typeof x != 'number')
404 throw 'The value ' + x + ' is not a type number.';
405 if (typeof y != 'number')
406 throw 'The value ' + y + ' is not a type number.';
412 if (cf.type == 'block' && cf.id == 12)
421 return f14 = (function(v34){
422 ((v34)["fname"] = "ZEROP");
425 if (arguments.length < 1) throw 'too few arguments';
426 if (arguments.length > 1) throw 'too many arguments';
433 if (typeof x != 'number')
434 throw 'The value ' + x + ' is not a type number.';
435 if (typeof y != 'number')
436 throw 'The value ' + y + ' is not a type number.';
442 if (cf.type == 'block' && cf.id == 13)
451 return f15 = (function(v36){
452 ((v36)["fname"] = "TRUNCATE");
454 })((function (v37,v38){
455 if (arguments.length < 2) throw 'too few arguments';
456 if (arguments.length > 2) throw 'too many arguments';
464 if (typeof x != 'number')
465 throw 'The value ' + x + ' is not a type number.';
466 if (typeof y != 'number')
467 throw 'The value ' + y + ' is not a type number.';
470 if (typeof x != 'number')
471 throw 'The value ' + x + ' is not a type number.';
472 return Math.floor(x);
477 if (cf.type == 'block' && cf.id == 14)
486 return f16 = (function(v39){
487 ((v39)["fname"] = "EQL");
489 })((function (v40,v41){
490 if (arguments.length < 2) throw 'too few arguments';
491 if (arguments.length > 2) throw 'too many arguments';
495 return ((v40 === v41)?v3: v2);
499 if (cf.type == 'block' && cf.id == 15)
508 return f17 = (function(v42){
509 ((v42)["fname"] = "NOT");
512 if (arguments.length < 1) throw 'too few arguments';
513 if (arguments.length > 1) throw 'too many arguments';
517 return (v43 !== v2 ? v2 : v3);
521 if (cf.type == 'block' && cf.id == 16)
530 return f18 = (function(v44){
531 ((v44)["fname"] = "CONS");
533 })((function (v45,v46){
534 if (arguments.length < 2) throw 'too few arguments';
535 if (arguments.length > 2) throw 'too many arguments';
539 return ({car: v45, cdr: v46});
543 if (cf.type == 'block' && cf.id == 17)
552 return f19 = (function(v47){
553 ((v47)["fname"] = "CONSP");
556 if (arguments.length < 1) throw 'too few arguments';
557 if (arguments.length > 1) throw 'too many arguments';
563 return (typeof tmp == 'object' && 'car' in tmp);
568 if (cf.type == 'block' && cf.id == 18)
577 return f20 = (function(v49){
578 ((v49)["fname"] = "CAR");
581 if (arguments.length < 1) throw 'too few arguments';
582 if (arguments.length > 1) throw 'too many arguments';
588 return tmp === v2? v2: tmp.car;
593 if (cf.type == 'block' && cf.id == 19)
602 return f21 = (function(v51){
603 ((v51)["fname"] = "CDR");
606 if (arguments.length < 1) throw 'too few arguments';
607 if (arguments.length > 1) throw 'too many arguments';
613 return tmp === v2? v2: tmp.cdr;
618 if (cf.type == 'block' && cf.id == 20)
627 return f22 = (function(v53){
628 ((v53)["fname"] = "CAAR");
631 if (arguments.length < 1) throw 'too few arguments';
632 if (arguments.length > 1) throw 'too many arguments';
637 var tmp = (function(){
639 return tmp === v2? v2: tmp.car;
641 return tmp === v2? v2: tmp.car;
646 if (cf.type == 'block' && cf.id == 21)
655 return f23 = (function(v55){
656 ((v55)["fname"] = "CADR");
659 if (arguments.length < 1) throw 'too few arguments';
660 if (arguments.length > 1) throw 'too many arguments';
665 var tmp = (function(){
667 return tmp === v2? v2: tmp.cdr;
669 return tmp === v2? v2: tmp.car;
674 if (cf.type == 'block' && cf.id == 22)
683 return f24 = (function(v57){
684 ((v57)["fname"] = "CDAR");
687 if (arguments.length < 1) throw 'too few arguments';
688 if (arguments.length > 1) throw 'too many arguments';
693 var tmp = (function(){
695 return tmp === v2? v2: tmp.car;
697 return tmp === v2? v2: tmp.cdr;
702 if (cf.type == 'block' && cf.id == 23)
711 return f25 = (function(v59){
712 ((v59)["fname"] = "CDDR");
715 if (arguments.length < 1) throw 'too few arguments';
716 if (arguments.length > 1) throw 'too many arguments';
721 var tmp = (function(){
723 return tmp === v2? v2: tmp.cdr;
725 return tmp === v2? v2: tmp.cdr;
730 if (cf.type == 'block' && cf.id == 24)
739 return f26 = (function(v61){
740 ((v61)["fname"] = "CADDR");
743 if (arguments.length < 1) throw 'too few arguments';
744 if (arguments.length > 1) throw 'too many arguments';
749 var tmp = (function(){
750 var tmp = (function(){
752 return tmp === v2? v2: tmp.cdr;
754 return tmp === v2? v2: tmp.cdr;
756 return tmp === v2? v2: tmp.car;
761 if (cf.type == 'block' && cf.id == 25)
770 return f27 = (function(v63){
771 ((v63)["fname"] = "CDDDR");
774 if (arguments.length < 1) throw 'too few arguments';
775 if (arguments.length > 1) throw 'too many arguments';
780 var tmp = (function(){
781 var tmp = (function(){
783 return tmp === v2? v2: tmp.cdr;
785 return tmp === v2? v2: tmp.cdr;
787 return tmp === v2? v2: tmp.cdr;
792 if (cf.type == 'block' && cf.id == 26)
801 return f28 = (function(v65){
802 ((v65)["fname"] = "CADDDR");
805 if (arguments.length < 1) throw 'too few arguments';
806 if (arguments.length > 1) throw 'too many arguments';
811 var tmp = (function(){
812 var tmp = (function(){
813 var tmp = (function(){
815 return tmp === v2? v2: tmp.cdr;
817 return tmp === v2? v2: tmp.cdr;
819 return tmp === v2? v2: tmp.cdr;
821 return tmp === v2? v2: tmp.car;
826 if (cf.type == 'block' && cf.id == 27)
835 return f29 = (function(v67){
836 ((v67)["fname"] = "FIRST");
839 if (arguments.length < 1) throw 'too few arguments';
840 if (arguments.length > 1) throw 'too many arguments';
846 return tmp === v2? v2: tmp.car;
851 if (cf.type == 'block' && cf.id == 28)
860 return f30 = (function(v69){
861 ((v69)["fname"] = "SECOND");
864 if (arguments.length < 1) throw 'too few arguments';
865 if (arguments.length > 1) throw 'too many arguments';
873 if (cf.type == 'block' && cf.id == 29)
882 return f31 = (function(v71){
883 ((v71)["fname"] = "THIRD");
886 if (arguments.length < 1) throw 'too few arguments';
887 if (arguments.length > 1) throw 'too many arguments';
895 if (cf.type == 'block' && cf.id == 30)
904 return f32 = (function(v73){
905 ((v73)["fname"] = "FOURTH");
908 if (arguments.length < 1) throw 'too few arguments';
909 if (arguments.length > 1) throw 'too many arguments';
917 if (cf.type == 'block' && cf.id == 31)
926 return f33 = (function(v75){
927 ((v75)["fname"] = "LIST");
931 for (var i = arguments.length-1; i>=0; i--)
932 v76 = {car: arguments[i], cdr: v76};
940 if (cf.type == 'block' && cf.id == 32)
949 return f34 = (function(v77){
950 ((v77)["fname"] = "ATOM");
953 if (arguments.length < 1) throw 'too few arguments';
954 if (arguments.length > 1) throw 'too many arguments';
958 return f17(((function(){
960 return (typeof tmp == 'object' && 'car' in tmp);
965 if (cf.type == 'block' && cf.id == 33)
977 return f35 = (function(v79){
978 ((v79)["fname"] = "ENSURE-LIST");
981 if (arguments.length < 1) throw 'too few arguments';
982 if (arguments.length > 1) throw 'too many arguments';
986 return (f36(v80) !== v2 ? v80 : f33(v80));
990 if (cf.type == 'block' && cf.id == 34)
1000 return f37 = (function(v81){
1001 ((v81)["fname"] = "!REDUCE");
1003 })((function (v82,v83,v84){
1004 if (arguments.length < 3) throw 'too few arguments';
1005 if (arguments.length > 3) throw 'too many arguments';
1009 return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
1011 return tmp === v2? v2: tmp.cdr;
1012 })(), (v82)(v84, (function(){
1014 return tmp === v2? v2: tmp.car;
1019 if (cf.type == 'block' && cf.id == 35)
1027 var l34 = f3("STRING=");
1029 var l33 = f3("ASSOC");
1031 var l32 = f3("EVERY");
1033 var l31 = f3("SOME");
1035 var l30 = f3("PARSE-INTEGER");
1037 var l29 = f3("SUBSEQ");
1039 var l28 = f3("DIGIT-CHAR-P");
1041 var l27 = f3("REMOVE-IF-NOT");
1043 var l26 = f3("REMOVE-IF");
1045 var l25 = f3("REMOVE");
1047 var l24 = f3("MEMBER");
1049 var l23 = f3("BUTLAST");
1051 var l22 = f3("LAST");
1053 var l21 = f3("NTH");
1055 var l20 = f3("LISTP");
1057 var l19 = f3("MINUSP");
1059 var l18 = f3("PLUSP");
1061 var l17 = f3("INTEGERP");
1063 var l16 = f3("CHAR=");
1065 var l15 = f3("CHAR-CODE");
1067 var l14 = f3("CODE-CHAR");
1069 var l13 = f3("COPY-LIST");
1071 var l12 = f3("IDENTITY");
1073 var l11 = f3("MAPCAR");
1074 var l10 = f3("NIL");
1076 var l9 = f3("CONCAT-TWO");
1078 var l8 = f3("LENGTH");
1080 var l7 = f3("LIST-LENGTH");
1082 var l6 = f3("REVERSE");
1085 var l4 = f3("REVERSE-AUX");
1087 var l3 = f3("APPEND");
1090 var l1 = f3("APPEND-TWO");
1095 return f38 = (function(v85){
1096 ((v85)["fname"] = "APPEND-TWO");
1098 })((function (v86,v87){
1099 if (arguments.length < 2) throw 'too few arguments';
1100 if (arguments.length > 2) throw 'too many arguments';
1104 return (f1(v86) !== v2 ? v87 : ({car: (function(){
1106 return tmp === v2? v2: tmp.car;
1107 })(), cdr: f39((function(){
1109 return tmp === v2? v2: tmp.cdr;
1114 if (cf.type == 'block' && cf.id == 36)
1126 return f39 = (function(v88){
1127 ((v88)["fname"] = "APPEND");
1131 for (var i = arguments.length-1; i>=0; i--)
1132 v89 = {car: arguments[i], cdr: v89};
1136 return f37(f38, v89, l2);
1140 if (cf.type == 'block' && cf.id == 37)
1152 return f40 = (function(v90){
1153 ((v90)["fname"] = "REVERSE-AUX");
1155 })((function (v91,v92){
1156 if (arguments.length < 2) throw 'too few arguments';
1157 if (arguments.length > 2) throw 'too many arguments';
1161 return (f1(v91) !== v2 ? v92 : f40((function(){
1163 return tmp === v2? v2: tmp.cdr;
1164 })(), ({car: (function(){
1166 return tmp === v2? v2: tmp.car;
1171 if (cf.type == 'block' && cf.id == 38)
1183 return f41 = (function(v93){
1184 ((v93)["fname"] = "REVERSE");
1187 if (arguments.length < 1) throw 'too few arguments';
1188 if (arguments.length > 1) throw 'too many arguments';
1192 return f40(v94, l5);
1196 if (cf.type == 'block' && cf.id == 39)
1208 return f42 = (function(v95){
1209 ((v95)["fname"] = "LIST-LENGTH");
1212 if (arguments.length < 1) throw 'too few arguments';
1213 if (arguments.length > 1) throw 'too many arguments';
1217 return (function(v97){
1222 while(f17(f1(v96)) !== v2){
1226 if (typeof x != 'number')
1227 throw 'The value ' + x + ' is not a type number.';
1228 if (typeof y != 'number')
1229 throw 'The value ' + y + ' is not a type number.';
1234 return tmp === v2? v2: tmp.cdr;
1241 if (cf.type == 'block' && cf.id == 41)
1252 if (cf.type == 'block' && cf.id == 40)
1264 return f43 = (function(v98){
1265 ((v98)["fname"] = "LENGTH");
1268 if (arguments.length < 1) throw 'too few arguments';
1269 if (arguments.length > 1) throw 'too many arguments';
1273 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1275 if (typeof x != 'string')
1276 throw 'The value ' + x + ' is not a type string.';
1282 if (cf.type == 'block' && cf.id == 42)
1294 return f44 = (function(v100){
1295 ((v100)["fname"] = "CONCAT-TWO");
1297 })((function (v101,v102){
1298 if (arguments.length < 2) throw 'too few arguments';
1299 if (arguments.length > 2) throw 'too many arguments';
1306 if (typeof string1 != 'string')
1307 throw 'The value ' + string1 + ' is not a type string.';
1308 if (typeof string2 != 'string')
1309 throw 'The value ' + string2 + ' is not a type string.';
1310 return string1.concat(string2);
1315 if (cf.type == 'block' && cf.id == 43)
1327 return f45 = (function(v103){
1328 ((v103)["fname"] = "MAPCAR");
1330 })((function (v104,v105){
1331 if (arguments.length < 2) throw 'too few arguments';
1332 if (arguments.length > 2) throw 'too many arguments';
1336 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1338 return tmp === v2? v2: tmp.car;
1339 })()), cdr: f45(v104, (function(){
1341 return tmp === v2? v2: tmp.cdr;
1346 if (cf.type == 'block' && cf.id == 44)
1358 return f46 = (function(v106){
1359 ((v106)["fname"] = "IDENTITY");
1361 })((function (v107){
1362 if (arguments.length < 1) throw 'too few arguments';
1363 if (arguments.length > 1) throw 'too many arguments';
1371 if (cf.type == 'block' && cf.id == 45)
1383 return f47 = (function(v108){
1384 ((v108)["fname"] = "COPY-LIST");
1386 })((function (v109){
1387 if (arguments.length < 1) throw 'too few arguments';
1388 if (arguments.length > 1) throw 'too many arguments';
1392 return f45(f46, v109);
1396 if (cf.type == 'block' && cf.id == 46)
1408 return f48 = (function(v110){
1409 ((v110)["fname"] = "CODE-CHAR");
1411 })((function (v111){
1412 if (arguments.length < 1) throw 'too few arguments';
1413 if (arguments.length > 1) throw 'too many arguments';
1421 if (cf.type == 'block' && cf.id == 47)
1433 return f49 = (function(v112){
1434 ((v112)["fname"] = "CHAR-CODE");
1436 })((function (v113){
1437 if (arguments.length < 1) throw 'too few arguments';
1438 if (arguments.length > 1) throw 'too many arguments';
1446 if (cf.type == 'block' && cf.id == 48)
1458 return f50 = (function(v114){
1459 ((v114)["fname"] = "CHAR=");
1461 })((function (v115,v116){
1462 if (arguments.length < 2) throw 'too few arguments';
1463 if (arguments.length > 2) throw 'too many arguments';
1467 return ((function(){
1470 if (typeof x != 'number')
1471 throw 'The value ' + x + ' is not a type number.';
1472 if (typeof y != 'number')
1473 throw 'The value ' + y + ' is not a type number.';
1479 if (cf.type == 'block' && cf.id == 49)
1491 return f51 = (function(v117){
1492 ((v117)["fname"] = "INTEGERP");
1494 })((function (v118){
1495 if (arguments.length < 1) throw 'too few arguments';
1496 if (arguments.length > 1) throw 'too many arguments';
1500 return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1501 var x = (function(){
1503 if (typeof x != 'number')
1504 throw 'The value ' + x + ' is not a type number.';
1505 return Math.floor(x);
1508 if (typeof x != 'number')
1509 throw 'The value ' + x + ' is not a type number.';
1510 if (typeof y != 'number')
1511 throw 'The value ' + y + ' is not a type number.';
1517 if (cf.type == 'block' && cf.id == 50)
1529 return f52 = (function(v119){
1530 ((v119)["fname"] = "PLUSP");
1532 })((function (v120){
1533 if (arguments.length < 1) throw 'too few arguments';
1534 if (arguments.length > 1) throw 'too many arguments';
1538 return ((function(){
1541 if (typeof x != 'number')
1542 throw 'The value ' + x + ' is not a type number.';
1543 if (typeof y != 'number')
1544 throw 'The value ' + y + ' is not a type number.';
1550 if (cf.type == 'block' && cf.id == 51)
1562 return f53 = (function(v121){
1563 ((v121)["fname"] = "MINUSP");
1565 })((function (v122){
1566 if (arguments.length < 1) throw 'too few arguments';
1567 if (arguments.length > 1) throw 'too many arguments';
1571 return ((function(){
1574 if (typeof x != 'number')
1575 throw 'The value ' + x + ' is not a type number.';
1576 if (typeof y != 'number')
1577 throw 'The value ' + y + ' is not a type number.';
1583 if (cf.type == 'block' && cf.id == 52)
1595 return f36 = (function(v123){
1596 ((v123)["fname"] = "LISTP");
1598 })((function (v124){
1599 if (arguments.length < 1) throw 'too few arguments';
1600 if (arguments.length > 1) throw 'too many arguments';
1604 return (function(v125){
1605 return (v125 !== v2 ? v125 : f1(v124));
1608 return (typeof tmp == 'object' && 'car' in tmp);
1613 if (cf.type == 'block' && cf.id == 53)
1625 return f54 = (function(v126){
1626 ((v126)["fname"] = "NTH");
1628 })((function (v127,v128){
1629 if (arguments.length < 2) throw 'too few arguments';
1630 if (arguments.length > 2) throw 'too many arguments';
1634 return (f1(v128) !== v2 ? (function(){
1636 })() : (f14(v127) !== v2 ? (function(){
1639 return tmp === v2? v2: tmp.car;
1642 return f54(f13(v127), (function(){
1644 return tmp === v2? v2: tmp.cdr;
1650 if (cf.type == 'block' && cf.id == 54)
1662 return f55 = (function(v129){
1663 ((v129)["fname"] = "LAST");
1665 })((function (v130){
1666 if (arguments.length < 1) throw 'too few arguments';
1667 if (arguments.length > 1) throw 'too many arguments';
1671 return (((function(){
1672 var tmp = (function(){
1674 return tmp === v2? v2: tmp.cdr;
1676 return (typeof tmp == 'object' && 'car' in tmp);
1677 })()?v3: v2) !== v2 ? f55((function(){
1679 return tmp === v2? v2: tmp.cdr;
1684 if (cf.type == 'block' && cf.id == 55)
1696 return f56 = (function(v131){
1697 ((v131)["fname"] = "BUTLAST");
1699 })((function (v132){
1700 if (arguments.length < 1) throw 'too few arguments';
1701 if (arguments.length > 1) throw 'too many arguments';
1705 return (((function(){
1706 var tmp = (function(){
1708 return tmp === v2? v2: tmp.cdr;
1710 return (typeof tmp == 'object' && 'car' in tmp);
1711 })()?v3: v2) !== v2 ? ({car: (function(){
1713 return tmp === v2? v2: tmp.car;
1714 })(), cdr: f56((function(){
1716 return tmp === v2? v2: tmp.cdr;
1721 if (cf.type == 'block' && cf.id == 56)
1733 return f57 = (function(v133){
1734 ((v133)["fname"] = "MEMBER");
1736 })((function (v134,v135){
1737 if (arguments.length < 2) throw 'too few arguments';
1738 if (arguments.length > 2) throw 'too many arguments';
1742 return (f1(v135) !== v2 ? (function(){
1744 })() : (f16(v134, (function(){
1746 return tmp === v2? v2: tmp.car;
1747 })()) !== v2 ? (function(){
1750 return f57(v134, (function(){
1752 return tmp === v2? v2: tmp.cdr;
1758 if (cf.type == 'block' && cf.id == 57)
1770 return f58 = (function(v136){
1771 ((v136)["fname"] = "REMOVE");
1773 })((function (v137,v138){
1774 if (arguments.length < 2) throw 'too few arguments';
1775 if (arguments.length > 2) throw 'too many arguments';
1779 return (f1(v138) !== v2 ? (function(){
1781 })() : (f16(v137, (function(){
1783 return tmp === v2? v2: tmp.car;
1784 })()) !== v2 ? (function(){
1785 return f58(v137, (function(){
1787 return tmp === v2? v2: tmp.cdr;
1790 return ({car: (function(){
1792 return tmp === v2? v2: tmp.car;
1793 })(), cdr: f58(v137, (function(){
1795 return tmp === v2? v2: tmp.cdr;
1801 if (cf.type == 'block' && cf.id == 58)
1813 return f59 = (function(v139){
1814 ((v139)["fname"] = "REMOVE-IF");
1816 })((function (v140,v141){
1817 if (arguments.length < 2) throw 'too few arguments';
1818 if (arguments.length > 2) throw 'too many arguments';
1822 return (f1(v141) !== v2 ? (function(){
1824 })() : ((v140)((function(){
1826 return tmp === v2? v2: tmp.car;
1827 })()) !== v2 ? (function(){
1828 return f59(v140, (function(){
1830 return tmp === v2? v2: tmp.cdr;
1833 return ({car: (function(){
1835 return tmp === v2? v2: tmp.car;
1836 })(), cdr: f59(v140, (function(){
1838 return tmp === v2? v2: tmp.cdr;
1844 if (cf.type == 'block' && cf.id == 59)
1856 return f60 = (function(v142){
1857 ((v142)["fname"] = "REMOVE-IF-NOT");
1859 })((function (v143,v144){
1860 if (arguments.length < 2) throw 'too few arguments';
1861 if (arguments.length > 2) throw 'too many arguments';
1865 return (f1(v144) !== v2 ? (function(){
1867 })() : ((v143)((function(){
1869 return tmp === v2? v2: tmp.car;
1870 })()) !== v2 ? (function(){
1871 return ({car: (function(){
1873 return tmp === v2? v2: tmp.car;
1874 })(), cdr: f60(v143, (function(){
1876 return tmp === v2? v2: tmp.cdr;
1879 return f60(v143, (function(){
1881 return tmp === v2? v2: tmp.cdr;
1887 if (cf.type == 'block' && cf.id == 60)
1899 return f61 = (function(v145){
1900 ((v145)["fname"] = "DIGIT-CHAR-P");
1902 })((function (v146){
1903 if (arguments.length < 1) throw 'too few arguments';
1904 if (arguments.length > 1) throw 'too many arguments';
1908 return ((((function(){
1911 if (typeof x != 'number')
1912 throw 'The value ' + x + ' is not a type number.';
1913 if (typeof y != 'number')
1914 throw 'The value ' + y + ' is not a type number.';
1916 })()?v3: v2) !== v2 ? ((function(){
1919 if (typeof x != 'number')
1920 throw 'The value ' + x + ' is not a type number.';
1921 if (typeof y != 'number')
1922 throw 'The value ' + y + ' is not a type number.';
1924 })()?v3: v2) : v2) !== v2 ? (function(){
1927 if (typeof x != 'number')
1928 throw 'The value ' + x + ' is not a type number.';
1929 if (typeof y != 'number')
1930 throw 'The value ' + y + ' is not a type number.';
1936 if (cf.type == 'block' && cf.id == 61)
1948 return f62 = (function(v147){
1949 ((v147)["fname"] = "SUBSEQ");
1951 })((function (v148,v149,v150){
1952 if (arguments.length < 2) throw 'too few arguments';
1953 if (arguments.length > 3) throw 'too many arguments';
1954 switch(arguments.length){
1962 return (((typeof(v148) == "string")?v3: v2) !== v2 ? (function(){
1963 return (v150 !== v2 ? (function(){
1968 return str.slice(a,b);
1973 return str.slice(a,b);
1976 return (function (){ throw "Unsupported argument."; })();
1981 if (cf.type == 'block' && cf.id == 62)
1993 return f63 = (function(v151){
1994 ((v151)["fname"] = "PARSE-INTEGER");
1996 })((function (v152){
1997 if (arguments.length < 1) throw 'too few arguments';
1998 if (arguments.length > 1) throw 'too many arguments';
2002 return (function(v153,v154,v155){
2010 if (typeof x != 'number')
2011 throw 'The value ' + x + ' is not a type number.';
2012 if (typeof y != 'number')
2013 throw 'The value ' + y + ' is not a type number.';
2015 })()?v3: v2) !== v2){
2017 var x = (function(){
2020 if (typeof x != 'number')
2021 throw 'The value ' + x + ' is not a type number.';
2022 if (typeof y != 'number')
2023 throw 'The value ' + y + ' is not a type number.';
2026 var y = f61((function(){
2029 if (typeof string != 'string')
2030 throw 'The value ' + string + ' is not a type string.';
2031 if (typeof index != 'number')
2032 throw 'The value ' + index + ' is not a type number.';
2033 return string.charCodeAt(index);
2035 if (typeof x != 'number')
2036 throw 'The value ' + x + ' is not a type number.';
2037 if (typeof y != 'number')
2038 throw 'The value ' + y + ' is not a type number.';
2044 if (typeof x != 'number')
2045 throw 'The value ' + x + ' is not a type number.';
2046 if (typeof y != 'number')
2047 throw 'The value ' + y + ' is not a type number.';
2055 if (cf.type == 'block' && cf.id == 64)
2066 if (cf.type == 'block' && cf.id == 63)
2078 return f64 = (function(v156){
2079 ((v156)["fname"] = "SOME");
2081 })((function (v157,v158){
2082 if (arguments.length < 2) throw 'too few arguments';
2083 if (arguments.length > 2) throw 'too many arguments';
2087 return (((typeof(v158) == "string")?v3: v2) !== v2 ? (function(){
2088 return (function(v159,v160){
2096 if (typeof x != 'number')
2097 throw 'The value ' + x + ' is not a type number.';
2098 if (typeof y != 'number')
2099 throw 'The value ' + y + ' is not a type number.';
2101 })()?v3: v2) !== v2){
2102 ((v157)((function(){
2105 if (typeof string != 'string')
2106 throw 'The value ' + string + ' is not a type string.';
2107 if (typeof index != 'number')
2108 throw 'The value ' + index + ' is not a type number.';
2109 return string.charCodeAt(index);
2110 })()) !== v2 ? (function(){
2111 return (function(){ throw ({type: 'block', id: 65, value: v3, message: 'Return from unknown block SOME.'})})();
2116 if (typeof x != 'number')
2117 throw 'The value ' + x + ' is not a type number.';
2118 if (typeof y != 'number')
2119 throw 'The value ' + y + ' is not a type number.';
2127 if (cf.type == 'block' && cf.id == 66)
2135 })() : (f36(v158) !== v2 ? (function(){
2139 return (function(v161,v162){
2144 return tmp === v2? v2: tmp.car;
2146 ((v157)(v162) !== v2 ? (function(){
2147 return (function(){ throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})();
2151 return tmp === v2? v2: tmp.cdr;
2160 if (cf.type == 'block' && cf.id == 67)
2167 return (function (){ throw "Unknown sequence."; })();
2172 if (cf.type == 'block' && cf.id == 65)
2184 return f65 = (function(v163){
2185 ((v163)["fname"] = "EVERY");
2187 })((function (v164,v165){
2188 if (arguments.length < 2) throw 'too few arguments';
2189 if (arguments.length > 2) throw 'too many arguments';
2193 return (((typeof(v165) == "string")?v3: v2) !== v2 ? (function(){
2194 return (function(v166,v167){
2202 if (typeof x != 'number')
2203 throw 'The value ' + x + ' is not a type number.';
2204 if (typeof y != 'number')
2205 throw 'The value ' + y + ' is not a type number.';
2207 })()?v3: v2) !== v2){
2208 ((v164)((function(){
2211 if (typeof string != 'string')
2212 throw 'The value ' + string + ' is not a type string.';
2213 if (typeof index != 'number')
2214 throw 'The value ' + index + ' is not a type number.';
2215 return string.charCodeAt(index);
2216 })()) !== v2 ? v2 : (function(){
2217 return (function(){ throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})();
2222 if (typeof x != 'number')
2223 throw 'The value ' + x + ' is not a type number.';
2224 if (typeof y != 'number')
2225 throw 'The value ' + y + ' is not a type number.';
2233 if (cf.type == 'block' && cf.id == 69)
2241 })() : (f36(v165) !== v2 ? (function(){
2245 return (function(v168,v169){
2250 return tmp === v2? v2: tmp.car;
2252 ((v164)(v169) !== v2 ? v2 : (function(){
2253 return (function(){ throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})();
2257 return tmp === v2? v2: tmp.cdr;
2266 if (cf.type == 'block' && cf.id == 70)
2273 return (function (){ throw "Unknown sequence."; })();
2278 if (cf.type == 'block' && cf.id == 68)
2290 return f66 = (function(v170){
2291 ((v170)["fname"] = "ASSOC");
2293 })((function (v171,v172){
2294 if (arguments.length < 2) throw 'too few arguments';
2295 if (arguments.length > 2) throw 'too many arguments';
2304 (f16(v171, f22(v172)) !== v2 ? (function(){ throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){
2306 return tmp === v2? v2: tmp.cdr;
2313 if (cf.type == 'block' && cf.id == 72)
2321 return tmp === v2? v2: tmp.car;
2326 if (cf.type == 'block' && cf.id == 71)
2338 return f67 = (function(v173){
2339 ((v173)["fname"] = "STRING=");
2341 })((function (v174,v175){
2342 if (arguments.length < 2) throw 'too few arguments';
2343 if (arguments.length > 2) throw 'too many arguments';
2347 return ((v174 == v175)?v3: v2);
2351 if (cf.type == 'block' && cf.id == 73)
2362 var l35 = f3("*NEWLINE*");
2366 return v176 = (function(){
2368 if (typeof x != 'number')
2369 throw 'The value ' + x + ' is not a type number.';
2370 return String.fromCharCode(x);
2375 var l36 = f3("CONCAT");
2379 return f68 = (function(v177){
2380 ((v177)["fname"] = "CONCAT");
2384 for (var i = arguments.length-1; i>=0; i--)
2385 v178 = {car: arguments[i], cdr: v178};
2389 return f37(f44, v178, "");
2393 if (cf.type == 'block' && cf.id == 74)
2403 var l37 = f3("JOIN");
2407 return f69 = (function(v179){
2408 ((v179)["fname"] = "JOIN");
2410 })((function (v180,v181){
2411 if (arguments.length < 1) throw 'too few arguments';
2412 if (arguments.length > 2) throw 'too many arguments';
2413 switch(arguments.length){
2421 return (f1(v180) !== v2 ? (function(){
2423 })() : (f1((function(){
2425 return tmp === v2? v2: tmp.cdr;
2426 })()) !== v2 ? (function(){
2429 return tmp === v2? v2: tmp.car;
2432 return f68((function(){
2434 return tmp === v2? v2: tmp.car;
2435 })(), v181, f69((function(){
2437 return tmp === v2? v2: tmp.cdr;
2443 if (cf.type == 'block' && cf.id == 75)
2453 var l38 = f3("JOIN-TRAILING");
2457 return f70 = (function(v182){
2458 ((v182)["fname"] = "JOIN-TRAILING");
2460 })((function (v183,v184){
2461 if (arguments.length < 1) throw 'too few arguments';
2462 if (arguments.length > 2) throw 'too many arguments';
2463 switch(arguments.length){
2471 return (f1(v183) !== v2 ? "" : f68((function(){
2473 return tmp === v2? v2: tmp.car;
2474 })(), v184, f70((function(){
2476 return tmp === v2? v2: tmp.cdr;
2481 if (cf.type == 'block' && cf.id == 76)
2491 var l39 = f3("INDENT");
2495 return f71 = (function(v185){
2496 ((v185)["fname"] = "INDENT");
2500 for (var i = arguments.length-1; i>=0; i--)
2501 v186 = {car: arguments[i], cdr: v186};
2505 return (function(v187){
2506 return (function(v188,v189,v190){
2507 (f52(v190) !== v2 ? (function(){
2517 if (typeof x != 'number')
2518 throw 'The value ' + x + ' is not a type number.';
2519 if (typeof y != 'number')
2520 throw 'The value ' + y + ' is not a type number.';
2522 })()?v3: v2) !== v2){
2523 v188 = f68(v188, ((f50((function(){
2526 if (typeof string != 'string')
2527 throw 'The value ' + string + ' is not a type string.';
2528 if (typeof index != 'number')
2529 throw 'The value ' + index + ' is not a type number.';
2530 return string.charCodeAt(index);
2531 })(), 10) !== v2 ? (((function(){
2534 if (typeof x != 'number')
2535 throw 'The value ' + x + ' is not a type number.';
2536 if (typeof y != 'number')
2537 throw 'The value ' + y + ' is not a type number.';
2539 })()?v3: v2) !== v2 ? f17(f50((function(){
2541 var index = f12(v189);
2542 if (typeof string != 'string')
2543 throw 'The value ' + string + ' is not a type string.';
2544 if (typeof index != 'number')
2545 throw 'The value ' + index + ' is not a type number.';
2546 return string.charCodeAt(index);
2547 })(), 10)) : v2) : v2) !== v2 ? f68((function(){
2549 if (typeof x != 'number')
2550 throw 'The value ' + x + ' is not a type number.';
2551 return String.fromCharCode(x);
2552 })(), " ") : f62(v187, v189, f12(v189))));
2556 if (typeof x != 'number')
2557 throw 'The value ' + x + ' is not a type number.';
2558 if (typeof y != 'number')
2559 throw 'The value ' + y + ' is not a type number.';
2567 if (cf.type == 'block' && cf.id == 78)
2579 if (cf.type == 'block' && cf.id == 77)
2589 var l40 = f3("INTEGER-TO-STRING");
2593 return f6 = (function(v191){
2594 ((v191)["fname"] = "INTEGER-TO-STRING");
2596 })((function (v192){
2597 if (arguments.length < 1) throw 'too few arguments';
2598 if (arguments.length > 1) throw 'too many arguments';
2602 return (f14(v192) !== v2 ? (function(){
2604 })() : (f53(v192) !== v2 ? (function(){
2605 return f68("-", f6((function(){
2608 if (typeof x != 'number')
2609 throw 'The value ' + x + ' is not a type number.';
2610 if (typeof y != 'number')
2611 throw 'The value ' + y + ' is not a type number.';
2615 return (function(v193){
2620 while(f17(f14(v192)) !== v2){
2621 v193 = ({car: (function(){
2624 if (typeof x != 'number')
2625 throw 'The value ' + x + ' is not a type number.';
2626 if (typeof y != 'number')
2627 throw 'The value ' + y + ' is not a type number.';
2630 v192 = f15(v192, 10);
2636 if (cf.type == 'block' && cf.id == 80)
2642 return f69(f45((function (v194){
2643 if (arguments.length < 1) throw 'too few arguments';
2644 if (arguments.length > 1) throw 'too many arguments';
2646 var x = (function(){
2647 var string = "0123456789";
2649 if (typeof string != 'string')
2650 throw 'The value ' + string + ' is not a type string.';
2651 if (typeof index != 'number')
2652 throw 'The value ' + index + ' is not a type number.';
2653 return string.charCodeAt(index);
2655 if (typeof x != 'number')
2656 throw 'The value ' + x + ' is not a type number.';
2657 return String.fromCharCode(x);
2665 if (cf.type == 'block' && cf.id == 79)
2675 var l41 = f3("JS!BOOL");
2679 return f72 = (function(v195){
2680 ((v195)["fname"] = "JS!BOOL");
2682 })((function (v196){
2683 if (arguments.length < 1) throw 'too few arguments';
2684 if (arguments.length > 1) throw 'too many arguments';
2688 return f68("(", v196, "?", f73(v3), ": ", f73(v2), ")");
2692 if (cf.type == 'block' && cf.id == 81)
2702 var l44 = f3("PRINT");
2704 var l43 = f3("WRITE-LINE");
2706 var l42 = f3("PRIN1-TO-STRING");
2711 return f74 = (function(v197){
2712 ((v197)["fname"] = "PRIN1-TO-STRING");
2714 })((function (v198){
2715 if (arguments.length < 1) throw 'too few arguments';
2716 if (arguments.length > 1) throw 'too many arguments';
2720 return (((function(){
2722 return (typeof tmp == 'object' && 'name' in tmp);
2723 })()?v3: v2) !== v2 ? (function(){
2725 })() : (f51(v198) !== v2 ? (function(){
2727 })() : (((typeof(v198) == "string")?v3: v2) !== v2 ? (function(){
2728 return f68("\"", f75(v198), "\"");
2729 })() : (((typeof v198 == 'function')?v3: v2) !== v2 ? (function(){
2730 return (function(v199){
2731 return (v199 !== v2 ? f68("#<FUNCTION ", v199, ">") : f68("#<FUNCTION>"));
2733 var tmp = (v198)["fname"];
2734 return tmp == undefined? v2: tmp ;
2736 })() : (f36(v198) !== v2 ? (function(){
2737 return f68("(", f70(f45(f74, f56(v198)), " "), (function(v200){
2738 return (f1((function(){
2740 return tmp === v2? v2: tmp.cdr;
2741 })()) !== v2 ? f74((function(){
2743 return tmp === v2? v2: tmp.car;
2744 })()) : f68(f74((function(){
2746 return tmp === v2? v2: tmp.car;
2747 })()), " . ", f74((function(){
2749 return tmp === v2? v2: tmp.cdr;
2751 })(f55(v198)), ")");
2756 if (cf.type == 'block' && cf.id == 82)
2768 return f76 = (function(v201){
2769 ((v201)["fname"] = "WRITE-LINE");
2771 })((function (v202){
2772 if (arguments.length < 1) throw 'too few arguments';
2773 if (arguments.length > 1) throw 'too many arguments';
2779 if (typeof x != 'string')
2780 throw 'The value ' + x + ' is not a type string.';
2781 return lisp.write(x);
2785 if (typeof x != 'string')
2786 throw 'The value ' + x + ' is not a type string.';
2787 return lisp.write(x);
2793 if (cf.type == 'block' && cf.id == 83)
2805 return f77 = (function(v203){
2806 ((v203)["fname"] = "PRINT");
2808 })((function (v204){
2809 if (arguments.length < 1) throw 'too few arguments';
2810 if (arguments.length > 1) throw 'too many arguments';
2819 if (cf.type == 'block' && cf.id == 84)
2830 var l45 = f3("MAKE-STRING-STREAM");
2834 return f78 = (function(v205){
2835 ((v205)["fname"] = "MAKE-STRING-STREAM");
2837 })((function (v206){
2838 if (arguments.length < 1) throw 'too few arguments';
2839 if (arguments.length > 1) throw 'too many arguments';
2843 return ({car: v206, cdr: 0});
2847 if (cf.type == 'block' && cf.id == 85)
2857 var l46 = f3("%PEEK-CHAR");
2861 return f79 = (function(v207){
2862 ((v207)["fname"] = "%PEEK-CHAR");
2864 })((function (v208){
2865 if (arguments.length < 1) throw 'too few arguments';
2866 if (arguments.length > 1) throw 'too many arguments';
2870 return (((function(){
2871 var x = (function(){
2873 return tmp === v2? v2: tmp.cdr;
2875 var y = f43((function(){
2877 return tmp === v2? v2: tmp.car;
2879 if (typeof x != 'number')
2880 throw 'The value ' + x + ' is not a type number.';
2881 if (typeof y != 'number')
2882 throw 'The value ' + y + ' is not a type number.';
2884 })()?v3: v2) !== v2 ? (function(){
2885 var string = (function(){
2887 return tmp === v2? v2: tmp.car;
2889 var index = (function(){
2891 return tmp === v2? v2: tmp.cdr;
2893 if (typeof string != 'string')
2894 throw 'The value ' + string + ' is not a type string.';
2895 if (typeof index != 'number')
2896 throw 'The value ' + index + ' is not a type number.';
2897 return string.charCodeAt(index);
2902 if (cf.type == 'block' && cf.id == 86)
2912 var l47 = f3("%READ-CHAR");
2916 return f80 = (function(v209){
2917 ((v209)["fname"] = "%READ-CHAR");
2919 })((function (v210){
2920 if (arguments.length < 1) throw 'too few arguments';
2921 if (arguments.length > 1) throw 'too many arguments';
2925 return (((function(){
2926 var x = (function(){
2928 return tmp === v2? v2: tmp.cdr;
2930 var y = f43((function(){
2932 return tmp === v2? v2: tmp.car;
2934 if (typeof x != 'number')
2935 throw 'The value ' + x + ' is not a type number.';
2936 if (typeof y != 'number')
2937 throw 'The value ' + y + ' is not a type number.';
2939 })()?v3: v2) !== v2 ? (function(v211){
2942 if (typeof x != 'object')
2943 throw 'The value ' + x + ' is not a type object.';
2944 return (x.cdr = f12((function(){
2946 return tmp === v2? v2: tmp.cdr;
2951 var string = (function(){
2953 return tmp === v2? v2: tmp.car;
2955 var index = (function(){
2957 return tmp === v2? v2: tmp.cdr;
2959 if (typeof string != 'string')
2960 throw 'The value ' + string + ' is not a type string.';
2961 if (typeof index != 'number')
2962 throw 'The value ' + index + ' is not a type number.';
2963 return string.charCodeAt(index);
2968 if (cf.type == 'block' && cf.id == 87)
2978 var l48 = f3("WHITESPACEP");
2982 return f81 = (function(v212){
2983 ((v212)["fname"] = "WHITESPACEP");
2985 })((function (v213){
2986 if (arguments.length < 1) throw 'too few arguments';
2987 if (arguments.length > 1) throw 'too many arguments';
2991 return (function(v214){
2992 return (v214 !== v2 ? v214 : (function(v215){
2993 return (v215 !== v2 ? v215 : f50(v213, 9));
2999 if (cf.type == 'block' && cf.id == 88)
3009 var l49 = f3("SKIP-WHITESPACES");
3013 return f82 = (function(v216){
3014 ((v216)["fname"] = "SKIP-WHITESPACES");
3016 })((function (v217){
3017 if (arguments.length < 1) throw 'too few arguments';
3018 if (arguments.length > 1) throw 'too many arguments';
3022 return (function(v218){
3028 while((v218 !== v2 ? f81(v218) : v2) !== v2){
3036 if (cf.type == 'block' && cf.id == 90)
3046 if (cf.type == 'block' && cf.id == 89)
3056 var l50 = f3("TERMINALP");
3060 return f83 = (function(v219){
3061 ((v219)["fname"] = "TERMINALP");
3063 })((function (v220){
3064 if (arguments.length < 1) throw 'too few arguments';
3065 if (arguments.length > 1) throw 'too many arguments';
3069 return (function(v221){
3070 return (v221 !== v2 ? v221 : (function(v222){
3071 return (v222 !== v2 ? v222 : (function(v223){
3072 return (v223 !== v2 ? v223 : f50(40, v220));
3079 if (cf.type == 'block' && cf.id == 91)
3089 var l51 = f3("READ-UNTIL");
3093 return f84 = (function(v224){
3094 ((v224)["fname"] = "READ-UNTIL");
3096 })((function (v225,v226){
3097 if (arguments.length < 2) throw 'too few arguments';
3098 if (arguments.length > 2) throw 'too many arguments';
3102 return (function(v227,v228){
3108 while((v228 !== v2 ? f17((v226)(v228)) : v2) !== v2){
3109 v227 = f68(v227, (function(){
3111 if (typeof x != 'number')
3112 throw 'The value ' + x + ' is not a type number.';
3113 return String.fromCharCode(x);
3122 if (cf.type == 'block' && cf.id == 93)
3133 if (cf.type == 'block' && cf.id == 92)
3143 var l52 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3147 return f85 = (function(v229){
3148 ((v229)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3150 })((function (v230){
3151 if (arguments.length < 1) throw 'too few arguments';
3152 if (arguments.length > 1) throw 'too many arguments';
3156 return (function(v231){
3163 while((v231 !== v2 ? f50(v231, 59) : v2) !== v2){
3164 f84(v230, (function (v232){
3165 if (arguments.length < 1) throw 'too few arguments';
3166 if (arguments.length > 1) throw 'too many arguments';
3167 return f50(v232, 10);
3176 if (cf.type == 'block' && cf.id == 95)
3186 if (cf.type == 'block' && cf.id == 94)
3196 var l53 = f3("%READ-LIST");
3200 return f86 = (function(v233){
3201 ((v233)["fname"] = "%READ-LIST");
3203 })((function (v234){
3204 if (arguments.length < 1) throw 'too few arguments';
3205 if (arguments.length > 1) throw 'too many arguments';
3210 return (function(v235){
3211 return (f1(v235) !== v2 ? (function(){
3212 return (function (){ throw "Unspected EOF"; })();
3213 })() : (f50(v235, 41) !== v2 ? (function(){
3216 })() : (f50(v235, 46) !== v2 ? (function(){
3218 return (function(v236){
3220 (f50(f80(v234), 41) !== v2 ? v2 : (function(){
3221 return (function (){ throw "')' was expected."; })();
3226 return ({car: f87(v234), cdr: f86(v234)});
3232 if (cf.type == 'block' && cf.id == 96)
3242 var l54 = f3("READ-STRING");
3246 return f88 = (function(v237){
3247 ((v237)["fname"] = "READ-STRING");
3249 })((function (v238){
3250 if (arguments.length < 1) throw 'too few arguments';
3251 if (arguments.length > 1) throw 'too many arguments';
3255 return (function(v239,v240){
3261 while(f17(f16(v240, 34)) !== v2){
3262 (f1(v240) !== v2 ? (function(){
3263 return (function (){ throw "Unexpected EOF"; })();
3265 (f16(v240, 92) !== v2 ? (function(){
3266 return v240 = f80(v238);
3268 v239 = f68(v239, (function(){
3270 if (typeof x != 'number')
3271 throw 'The value ' + x + ' is not a type number.';
3272 return String.fromCharCode(x);
3280 if (cf.type == 'block' && cf.id == 98)
3291 if (cf.type == 'block' && cf.id == 97)
3301 var l59 = f3("READ-SHARP");
3304 var l56 = f3("FUNCTION");
3309 return f89 = (function(v241){
3310 ((v241)["fname"] = "READ-SHARP");
3312 })((function (v242){
3313 if (arguments.length < 1) throw 'too few arguments';
3314 if (arguments.length > 1) throw 'too many arguments';
3319 return (function(v243){
3320 return (f16(v243, l55) !== v2 ? (function(){
3321 return f33(l56, f87(v242));
3322 })() : (f16(v243, l57) !== v2 ? (function(){
3323 return (function(v244){
3324 return (f67(v244, "space") !== v2 ? (function(){
3326 })() : (f67(v244, "tab") !== v2 ? (function(){
3328 })() : (f67(v244, "newline") !== v2 ? (function(){
3331 return f49((function(){
3334 if (typeof string != 'string')
3335 throw 'The value ' + string + ' is not a type string.';
3336 if (typeof index != 'number')
3337 throw 'The value ' + index + ' is not a type number.';
3338 return string.charCodeAt(index);
3343 if (typeof x != 'number')
3344 throw 'The value ' + x + ' is not a type number.';
3345 return String.fromCharCode(x);
3346 })(), f84(v242, f83)));
3347 })() : (f16(v243, l58) !== v2 ? (function(){
3348 return (function(v245){
3349 return (f67(v245, "common-lisp") !== v2 ? (function(){
3352 })() : (f67(v245, "ecmalisp") !== v2 ? (function(){
3355 return (function (){ throw "Unknown reader form."; })();
3359 return (function (){ throw "ECASE expression failed."; })();
3365 if (cf.type == 'block' && cf.id == 99)
3375 var l60 = f3("*EOF*");
3379 return v246 = (function(){
3381 if (typeof name != 'string')
3382 throw 'The value ' + name + ' is not a type string.';
3383 return ({name: name});
3388 var l65 = f3("LS-READ");
3389 var l64 = f3("UNQUOTE");
3390 var l63 = f3("UNQUOTE-SPLICING");
3391 var l62 = f3("BACKQUOTE");
3392 var l61 = f3("QUOTE");
3396 return f87 = (function(v247){
3397 ((v247)["fname"] = "LS-READ");
3399 })((function (v248){
3400 if (arguments.length < 1) throw 'too few arguments';
3401 if (arguments.length > 1) throw 'too many arguments';
3406 return (function(v249){
3407 return (f1(v249) !== v2 ? (function(){
3409 })() : (f50(v249, 40) !== v2 ? (function(){
3412 })() : (f50(v249, 39) !== v2 ? (function(){
3414 return f33(l61, f87(v248));
3415 })() : (f50(v249, 96) !== v2 ? (function(){
3417 return f33(l62, f87(v248));
3418 })() : (f50(v249, 34) !== v2 ? (function(){
3421 })() : (f50(v249, 44) !== v2 ? (function(){
3423 return (f16(f79(v248), 64) !== v2 ? (function(){
3425 return f33(l63, f87(v248));
3426 })() : f33(l64, f87(v248)));
3427 })() : (f50(v249, 35) !== v2 ? (function(){
3430 return (function(v250){
3431 return (f65(f61, v250) !== v2 ? f63(v250) : f3((function(){
3433 if (typeof x != 'string')
3434 throw 'The value ' + x + ' is not a type string.';
3435 return x.toUpperCase();
3443 if (cf.type == 'block' && cf.id == 100)
3453 var l66 = f3("LS-READ-FROM-STRING");
3457 return f90 = (function(v251){
3458 ((v251)["fname"] = "LS-READ-FROM-STRING");
3460 })((function (v252){
3461 if (arguments.length < 1) throw 'too few arguments';
3462 if (arguments.length > 1) throw 'too many arguments';
3466 return f87(f78(v252));
3470 if (cf.type == 'block' && cf.id == 101)
3480 var l68 = f3("*COMPILATION-UNIT-CHECKS*");
3481 var l67 = f3("NIL");
3489 var l69 = f3("MAKE-BINDING");
3493 return f91 = (function(v254){
3494 ((v254)["fname"] = "MAKE-BINDING");
3496 })((function (v255,v256,v257,v258){
3497 if (arguments.length < 4) throw 'too few arguments';
3498 if (arguments.length > 4) throw 'too many arguments';
3502 return f33(v255, v256, v257, v258);
3506 if (cf.type == 'block' && cf.id == 102)
3516 var l70 = f3("BINDING-NAME");
3520 return f92 = (function(v259){
3521 ((v259)["fname"] = "BINDING-NAME");
3523 })((function (v260){
3524 if (arguments.length < 1) throw 'too few arguments';
3525 if (arguments.length > 1) throw 'too many arguments';
3533 if (cf.type == 'block' && cf.id == 103)
3543 var l71 = f3("BINDING-TYPE");
3547 return f93 = (function(v261){
3548 ((v261)["fname"] = "BINDING-TYPE");
3550 })((function (v262){
3551 if (arguments.length < 1) throw 'too few arguments';
3552 if (arguments.length > 1) throw 'too many arguments';
3560 if (cf.type == 'block' && cf.id == 104)
3570 var l72 = f3("BINDING-TRANSLATION");
3574 return f94 = (function(v263){
3575 ((v263)["fname"] = "BINDING-TRANSLATION");
3577 })((function (v264){
3578 if (arguments.length < 1) throw 'too few arguments';
3579 if (arguments.length > 1) throw 'too many arguments';
3587 if (cf.type == 'block' && cf.id == 105)
3597 var l73 = f3("BINDING-DECLARED");
3601 return f95 = (function(v265){
3602 ((v265)["fname"] = "BINDING-DECLARED");
3604 })((function (v266){
3605 if (arguments.length < 1) throw 'too few arguments';
3606 if (arguments.length > 1) throw 'too many arguments';
3610 return (v266 !== v2 ? f32(v266) : v2);
3614 if (cf.type == 'block' && cf.id == 106)
3624 var l74 = f3("MARK-BINDING-AS-DECLARED");
3628 return f96 = (function(v267){
3629 ((v267)["fname"] = "MARK-BINDING-AS-DECLARED");
3631 })((function (v268){
3632 if (arguments.length < 1) throw 'too few arguments';
3633 if (arguments.length > 1) throw 'too many arguments';
3639 if (typeof x != 'object')
3640 throw 'The value ' + x + ' is not a type object.';
3641 return (x.car = v3);
3646 if (cf.type == 'block' && cf.id == 107)
3656 var l75 = f3("MAKE-LEXENV");
3660 return f97 = (function(v269){
3661 ((v269)["fname"] = "MAKE-LEXENV");
3664 if (arguments.length > 0) throw 'too many arguments';
3668 return f33(v2, v2, v2, v2);
3672 if (cf.type == 'block' && cf.id == 108)
3682 var l76 = f3("COPY-LEXENV");
3686 return f98 = (function(v270){
3687 ((v270)["fname"] = "COPY-LEXENV");
3689 })((function (v271){
3690 if (arguments.length < 1) throw 'too few arguments';
3691 if (arguments.length > 1) throw 'too many arguments';
3699 if (cf.type == 'block' && cf.id == 109)
3709 var l81 = f3("PUSH-TO-LEXENV");
3710 var l80 = f3("GOTAG");
3711 var l79 = f3("BLOCK");
3712 var l78 = f3("FUNCTION");
3713 var l77 = f3("VARIABLE");
3717 return f99 = (function(v272){
3718 ((v272)["fname"] = "PUSH-TO-LEXENV");
3720 })((function (v273,v274,v275){
3721 if (arguments.length < 3) throw 'too few arguments';
3722 if (arguments.length > 3) throw 'too many arguments';
3726 return (function(v276){
3727 return (f16(v276, l77) !== v2 ? (function(){
3730 if (typeof x != 'object')
3731 throw 'The value ' + x + ' is not a type object.';
3732 return (x.car = ({car: v273, cdr: (function(){
3734 return tmp === v2? v2: tmp.car;
3737 })() : (f16(v276, l78) !== v2 ? (function(){
3739 var x = (function(){
3741 return tmp === v2? v2: tmp.cdr;
3743 if (typeof x != 'object')
3744 throw 'The value ' + x + ' is not a type object.';
3745 return (x.car = ({car: v273, cdr: f23(v274)}));
3747 })() : (f16(v276, l79) !== v2 ? (function(){
3750 if (typeof x != 'object')
3751 throw 'The value ' + x + ' is not a type object.';
3752 return (x.car = ({car: v273, cdr: f26(v274)}));
3754 })() : (f16(v276, l80) !== v2 ? (function(){
3757 if (typeof x != 'object')
3758 throw 'The value ' + x + ' is not a type object.';
3759 return (x.car = ({car: v273, cdr: f28(v274)}));
3762 return (function (){ throw "ECASE expression failed."; })();
3768 if (cf.type == 'block' && cf.id == 110)
3778 var l82 = f3("EXTEND-LEXENV");
3782 return f100 = (function(v277){
3783 ((v277)["fname"] = "EXTEND-LEXENV");
3785 })((function (v278,v279,v280){
3786 if (arguments.length < 3) throw 'too few arguments';
3787 if (arguments.length > 3) throw 'too many arguments';
3791 return (function(v281){
3795 return (function(v282,v283){
3800 return tmp === v2? v2: tmp.car;
3802 f99(v283, v281, v280);
3805 return tmp === v2? v2: tmp.cdr;
3814 if (cf.type == 'block' && cf.id == 112)
3824 if (cf.type == 'block' && cf.id == 111)
3834 var l87 = f3("LOOKUP-IN-LEXENV");
3835 var l86 = f3("GOTAG");
3836 var l85 = f3("BLOCK");
3837 var l84 = f3("FUNCTION");
3838 var l83 = f3("VARIABLE");
3842 return f101 = (function(v284){
3843 ((v284)["fname"] = "LOOKUP-IN-LEXENV");
3845 })((function (v285,v286,v287){
3846 if (arguments.length < 3) throw 'too few arguments';
3847 if (arguments.length > 3) throw 'too many arguments';
3851 return f66(v285, (function(v288){
3852 return (f16(v288, l83) !== v2 ? (function(){
3854 })() : (f16(v288, l84) !== v2 ? (function(){
3856 })() : (f16(v288, l85) !== v2 ? (function(){
3858 })() : (f16(v288, l86) !== v2 ? (function(){
3861 return (function (){ throw "ECASE expression failed."; })();
3867 if (cf.type == 'block' && cf.id == 113)
3877 var l88 = f3("*ENVIRONMENT*");
3881 return v289 = f97();
3885 var l89 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3889 return f102 = (function(v290){
3890 ((v290)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3893 if (arguments.length > 0) throw 'too many arguments';
3897 return (function(v291,v292){
3898 return v289 = f33(v291, v292, f31(v289));
3899 })(f29(v289),f30(v289));
3903 if (cf.type == 'block' && cf.id == 114)
3913 var l90 = f3("*VARIABLE-COUNTER*");
3921 var l91 = f3("GVARNAME");
3925 return f103 = (function(v294){
3926 ((v294)["fname"] = "GVARNAME");
3928 })((function (v295){
3929 if (arguments.length < 1) throw 'too few arguments';
3930 if (arguments.length > 1) throw 'too many arguments';
3934 return f68("v", f6(v293 = (function(){
3937 if (typeof x != 'number')
3938 throw 'The value ' + x + ' is not a type number.';
3939 if (typeof y != 'number')
3940 throw 'The value ' + y + ' is not a type number.';
3946 if (cf.type == 'block' && cf.id == 115)
3956 var l97 = f3("LOOKUP-VARIABLE");
3957 var l96 = f3("VARIABLE");
3958 var l95 = f3("VARIABLE");
3959 var l94 = f3("VARIABLE");
3960 var l93 = f3("VARIABLE");
3961 var l92 = f3("VARIABLE");
3965 return f104 = (function(v296){
3966 ((v296)["fname"] = "LOOKUP-VARIABLE");
3968 })((function (v297,v298){
3969 if (arguments.length < 2) throw 'too few arguments';
3970 if (arguments.length > 2) throw 'too many arguments';
3974 return (function(v299){
3975 return (v299 !== v2 ? v299 : (function(v300){
3976 return (v300 !== v2 ? v300 : (function(v301,v302){
3977 f99(v302, v289, l92);
3978 v253 = ({car: (function (){
3979 if (arguments.length > 0) throw 'too many arguments';
3980 return (f101(v297, v289, l93) !== v2 ? v2 : (function(){
3981 return (function (){ throw f68("Undefined variable `", v301, "'"); })();
3985 })((v297).name,f91(v297, l94, f103(v297), v2)));
3986 })(f101(v297, v289, l95)));
3987 })(f101(v297, v298, l96));
3991 if (cf.type == 'block' && cf.id == 116)
4001 var l98 = f3("LOOKUP-VARIABLE-TRANSLATION");
4005 return f105 = (function(v303){
4006 ((v303)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4008 })((function (v304,v305){
4009 if (arguments.length < 2) throw 'too few arguments';
4010 if (arguments.length > 2) throw 'too many arguments';
4014 return f94(f104(v304, v305));
4018 if (cf.type == 'block' && cf.id == 117)
4028 var l101 = f3("EXTEND-LOCAL-ENV");
4029 var l100 = f3("VARIABLE");
4030 var l99 = f3("VARIABLE");
4034 return f106 = (function(v306){
4035 ((v306)["fname"] = "EXTEND-LOCAL-ENV");
4037 })((function (v307,v308){
4038 if (arguments.length < 2) throw 'too few arguments';
4039 if (arguments.length > 2) throw 'too many arguments';
4043 return (function(v309){
4047 return (function(v310,v311){
4052 return tmp === v2? v2: tmp.car;
4055 return f99(v312, v309, l99);
4056 })(f91(v311, l100, f103(v311), v3));
4059 return tmp === v2? v2: tmp.cdr;
4068 if (cf.type == 'block' && cf.id == 119)
4078 if (cf.type == 'block' && cf.id == 118)
4088 var l102 = f3("*FUNCTION-COUNTER*");
4096 var l108 = f3("LOOKUP-FUNCTION");
4097 var l107 = f3("FUNCTION");
4098 var l106 = f3("FUNCTION");
4099 var l105 = f3("FUNCTION");
4100 var l104 = f3("FUNCTION");
4101 var l103 = f3("FUNCTION");
4105 return f107 = (function(v314){
4106 ((v314)["fname"] = "LOOKUP-FUNCTION");
4108 })((function (v315,v316){
4109 if (arguments.length < 2) throw 'too few arguments';
4110 if (arguments.length > 2) throw 'too many arguments';
4114 return (function(v317){
4115 return (v317 !== v2 ? v317 : (function(v318){
4116 return (v318 !== v2 ? v318 : (function(v319,v320){
4117 f99(v320, v289, l103);
4118 v253 = ({car: (function (){
4119 if (arguments.length > 0) throw 'too many arguments';
4120 return (f95(f101(v315, v289, l104)) !== v2 ? v2 : (function(){
4121 return (function (){ throw f68("Undefined function `", v319, "'"); })();
4125 })((v315).name,f91(v315, l105, f68("f", f6(v313 = (function(){
4128 if (typeof x != 'number')
4129 throw 'The value ' + x + ' is not a type number.';
4130 if (typeof y != 'number')
4131 throw 'The value ' + y + ' is not a type number.';
4134 })(f101(v315, v289, l106)));
4135 })(f101(v315, v316, l107));
4139 if (cf.type == 'block' && cf.id == 120)
4149 var l109 = f3("LOOKUP-FUNCTION-TRANSLATION");
4153 return f108 = (function(v321){
4154 ((v321)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4156 })((function (v322,v323){
4157 if (arguments.length < 2) throw 'too few arguments';
4158 if (arguments.length > 2) throw 'too many arguments';
4162 return f94(f107(v322, v323));
4166 if (cf.type == 'block' && cf.id == 121)
4176 var l110 = f3("*TOPLEVEL-COMPILATIONS*");
4184 var l111 = f3("%COMPILE-DEFVAR");
4188 return f109 = (function(v325){
4189 ((v325)["fname"] = "%COMPILE-DEFVAR");
4191 })((function (v326){
4192 if (arguments.length < 1) throw 'too few arguments';
4193 if (arguments.length > 1) throw 'too many arguments';
4197 return (function(v327){
4199 return v324 = ({car: f68("var ", f94(v327)), cdr: v324});
4200 })(f104(v326, v289));
4204 if (cf.type == 'block' && cf.id == 122)
4214 var l112 = f3("%COMPILE-DEFUN");
4218 return f110 = (function(v328){
4219 ((v328)["fname"] = "%COMPILE-DEFUN");
4221 })((function (v329){
4222 if (arguments.length < 1) throw 'too few arguments';
4223 if (arguments.length > 1) throw 'too many arguments';
4227 return (function(v330){
4229 return v324 = ({car: f68("var ", f94(v330)), cdr: v324});
4230 })(f107(v329, v289));
4234 if (cf.type == 'block' && cf.id == 123)
4244 var l115 = f3("%COMPILE-DEFMACRO");
4245 var l114 = f3("FUNCTION");
4246 var l113 = f3("MACRO");
4250 return f111 = (function(v331){
4251 ((v331)["fname"] = "%COMPILE-DEFMACRO");
4253 })((function (v332,v333){
4254 if (arguments.length < 2) throw 'too few arguments';
4255 if (arguments.length > 2) throw 'too many arguments';
4259 return f99(f91(v332, l113, v333, v3), v289, l114);
4263 if (cf.type == 'block' && cf.id == 124)
4273 var l116 = f3("*COMPILATIONS*");
4281 var l117 = f3("LS-COMPILE-BLOCK");
4285 return f112 = (function(v335){
4286 ((v335)["fname"] = "LS-COMPILE-BLOCK");
4288 })((function (v336,v337){
4289 if (arguments.length < 2) throw 'too few arguments';
4290 if (arguments.length > 2) throw 'too many arguments';
4294 return f70(f59((function (v338){
4295 if (arguments.length < 1) throw 'too few arguments';
4296 if (arguments.length > 1) throw 'too many arguments';
4297 return (function(v339){
4298 return (v339 !== v2 ? v339 : (((typeof(v338) == "string")?v3: v2) !== v2 ? f14(f43(v338)) : v2));
4300 }), f45((function (v340){
4301 if (arguments.length < 1) throw 'too few arguments';
4302 if (arguments.length > 1) throw 'too many arguments';
4303 return f73(v340, v337);
4304 }), v336)), f68(";", v176));
4308 if (cf.type == 'block' && cf.id == 125)
4318 var l118 = f3("IF");
4319 v334 = ({car: f33(l118, (function (v341,v342,v343,v344){
4320 if (arguments.length < 4) throw 'too few arguments';
4321 if (arguments.length > 4) throw 'too many arguments';
4325 return f68("(", f73(v342, v341), " !== ", f73(v2), " ? ", f73(v343, v341), " : ", f73(v344, v341), ")");
4329 if (cf.type == 'block' && cf.id == 126)
4336 var l120 = f3("*LAMBDA-LIST-KEYWORDS*");
4337 var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4345 var l121 = f3("LIST-UNTIL-KEYWORD");
4349 return f113 = (function(v346){
4350 ((v346)["fname"] = "LIST-UNTIL-KEYWORD");
4352 })((function (v347){
4353 if (arguments.length < 1) throw 'too few arguments';
4354 if (arguments.length > 1) throw 'too many arguments';
4358 return ((function(v348){
4359 return (v348 !== v2 ? v348 : f57((function(){
4361 return tmp === v2? v2: tmp.car;
4363 })(f1(v347)) !== v2 ? v2 : ({car: (function(){
4365 return tmp === v2? v2: tmp.car;
4366 })(), cdr: f113((function(){
4368 return tmp === v2? v2: tmp.cdr;
4373 if (cf.type == 'block' && cf.id == 127)
4383 var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4387 return f114 = (function(v349){
4388 ((v349)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4390 })((function (v350){
4391 if (arguments.length < 1) throw 'too few arguments';
4392 if (arguments.length > 1) throw 'too many arguments';
4400 if (cf.type == 'block' && cf.id == 128)
4410 var l124 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4411 var l123 = f3("&OPTIONAL");
4415 return f115 = (function(v351){
4416 ((v351)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4418 })((function (v352){
4419 if (arguments.length < 1) throw 'too few arguments';
4420 if (arguments.length > 1) throw 'too many arguments';
4424 return f45(f35, f113((function(){
4425 var tmp = f57(l123, v352);
4426 return tmp === v2? v2: tmp.cdr;
4431 if (cf.type == 'block' && cf.id == 129)
4441 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4445 return f116 = (function(v353){
4446 ((v353)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4448 })((function (v354){
4449 if (arguments.length < 1) throw 'too few arguments';
4450 if (arguments.length > 1) throw 'too many arguments';
4454 return f45(f20, f115(v354));
4458 if (cf.type == 'block' && cf.id == 130)
4468 var l127 = f3("LAMBDA-LIST-REST-ARGUMENT");
4469 var l126 = f3("&REST");
4473 return f117 = (function(v355){
4474 ((v355)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4476 })((function (v356){
4477 if (arguments.length < 1) throw 'too few arguments';
4478 if (arguments.length > 1) throw 'too many arguments';
4482 return (function(v357){
4485 return tmp === v2? v2: tmp.cdr;
4486 })() !== v2 ? (function(){
4487 return (function (){ throw "Bad lambda-list"; })();
4491 return tmp === v2? v2: tmp.car;
4493 })(f113((function(){
4494 var tmp = f57(l126, v356);
4495 return tmp === v2? v2: tmp.cdr;
4500 if (cf.type == 'block' && cf.id == 131)
4510 var l128 = f3("LAMBDA");
4511 v334 = ({car: f33(l128, (function (v359,v360){
4512 if (arguments.length < 2) throw 'too few arguments';
4514 for (var i = arguments.length-1; i>=2; i--)
4515 v358 = {car: arguments[i], cdr: v358};
4519 return (function(v361,v362,v363){
4520 return (function(v364,v365,v366){
4521 return f68("(function (", f69(f45((function (v367){
4522 if (arguments.length < 1) throw 'too few arguments';
4523 if (arguments.length > 1) throw 'too many arguments';
4524 return f105(v367, v366);
4525 }), f39(v361, v362)), ","), "){", v176, f71((v361 !== v2 ? f68("if (arguments.length < ", f6(v364), ") throw 'too few arguments';", v176) : ""), (f17(v363) !== v2 ? f68("if (arguments.length > ", f6((function(){
4528 if (typeof x != 'number')
4529 throw 'The value ' + x + ' is not a type number.';
4530 if (typeof y != 'number')
4531 throw 'The value ' + y + ' is not a type number.';
4533 })()), ") throw 'too many arguments';", v176) : ""), (v362 !== v2 ? f68("switch(arguments.length){", v176, (function(v368,v369,v370){
4542 if (typeof x != 'number')
4543 throw 'The value ' + x + ' is not a type number.';
4544 if (typeof y != 'number')
4545 throw 'The value ' + y + ' is not a type number.';
4547 })()?v3: v2) !== v2){
4549 v369 = ({car: f68("case ", f6((function(){
4552 if (typeof x != 'number')
4553 throw 'The value ' + x + ' is not a type number.';
4554 if (typeof y != 'number')
4555 throw 'The value ' + y + ' is not a type number.';
4557 })()), ":", v176, f105((function(){
4559 return tmp === v2? v2: tmp.car;
4560 })(), v366), "=", f73(f23(v371), v366), ";", v176), cdr: v369});
4561 return v370 = (function(){
4564 if (typeof x != 'number')
4565 throw 'The value ' + x + ' is not a type number.';
4566 if (typeof y != 'number')
4567 throw 'The value ' + y + ' is not a type number.';
4570 })(f54(v370, v368));
4576 if (cf.type == 'block' && cf.id == 133)
4582 v369 = ({car: f68("default: break;", v176), cdr: v369});
4583 return f69(f41(v369));
4585 })(f115(v360),v2,0), "}", v176) : ""), (v363 !== v2 ? (function(v372){
4586 return f68("var ", v372, "= ", f73(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){
4589 if (typeof x != 'number')
4590 throw 'The value ' + x + ' is not a type number.';
4591 if (typeof y != 'number')
4592 throw 'The value ' + y + ' is not a type number.';
4594 })()), "; i--)", v176, f71(v372, " = ", "{car: arguments[i], cdr: "), v372, "};", v176);
4595 })(f105(v363, v366)) : ""), f68(f112(f56(v358), v366), "return ", f73((function(){
4596 var tmp = f55(v358);
4597 return tmp === v2? v2: tmp.car;
4598 })(), v366), ";")), v176, "})");
4599 })(f43(v361),f43(v362),f106(f39(f35(v363), v361, v362), v359));
4600 })(f114(v360),f116(v360),f117(v360));
4604 if (cf.type == 'block' && cf.id == 132)
4611 var l129 = f3("FSETQ");
4612 v334 = ({car: f33(l129, (function (v373,v374,v375){
4613 if (arguments.length < 3) throw 'too few arguments';
4614 if (arguments.length > 3) throw 'too many arguments';
4618 return f68(f108(v374, v373), " = ", f73(v375, v373));
4622 if (cf.type == 'block' && cf.id == 134)
4629 var l130 = f3("SETQ");
4630 v334 = ({car: f33(l130, (function (v376,v377,v378){
4631 if (arguments.length < 3) throw 'too few arguments';
4632 if (arguments.length > 3) throw 'too many arguments';
4636 return f68(f105(v377, v376), " = ", f73(v378, v376));
4640 if (cf.type == 'block' && cf.id == 135)
4647 var l131 = f3("ESCAPE-STRING");
4651 return f75 = (function(v379){
4652 ((v379)["fname"] = "ESCAPE-STRING");
4654 })((function (v380){
4655 if (arguments.length < 1) throw 'too few arguments';
4656 if (arguments.length > 1) throw 'too many arguments';
4660 return (function(v381,v382,v383){
4668 if (typeof x != 'number')
4669 throw 'The value ' + x + ' is not a type number.';
4670 if (typeof y != 'number')
4671 throw 'The value ' + y + ' is not a type number.';
4673 })()?v3: v2) !== v2){
4676 return (v385 !== v2 ? v385 : f50(v384, 92));
4677 })(f50(v384, 34)) !== v2 ? (function(){
4678 return v381 = f68(v381, "\\");
4680 (f50(v384, 10) !== v2 ? (function(){
4681 v381 = f68(v381, "\\");
4684 return v381 = f68(v381, (function(){
4686 if (typeof x != 'number')
4687 throw 'The value ' + x + ' is not a type number.';
4688 return String.fromCharCode(x);
4693 if (typeof string != 'string')
4694 throw 'The value ' + string + ' is not a type string.';
4695 if (typeof index != 'number')
4696 throw 'The value ' + index + ' is not a type number.';
4697 return string.charCodeAt(index);
4702 if (typeof x != 'number')
4703 throw 'The value ' + x + ' is not a type number.';
4704 if (typeof y != 'number')
4705 throw 'The value ' + y + ' is not a type number.';
4713 if (cf.type == 'block' && cf.id == 137)
4724 if (cf.type == 'block' && cf.id == 136)
4734 var l133 = f3("LITERAL->JS");
4735 var l132 = f3("INTERN");
4739 return f118 = (function(v386){
4740 ((v386)["fname"] = "LITERAL->JS");
4742 })((function (v387){
4743 if (arguments.length < 1) throw 'too few arguments';
4744 if (arguments.length > 1) throw 'too many arguments';
4748 return (f51(v387) !== v2 ? (function(){
4750 })() : (((typeof(v387) == "string")?v3: v2) !== v2 ? (function(){
4751 return f68("\"", f75(v387), "\"");
4752 })() : (((function(){
4754 return (typeof tmp == 'object' && 'name' in tmp);
4755 })()?v3: v2) !== v2 ? (function(){
4756 return f73(f39(f33(l132), f33(f75((v387).name))), v289);
4757 })() : (((function(){
4759 return (typeof tmp == 'object' && 'car' in tmp);
4760 })()?v3: v2) !== v2 ? (function(){
4761 return f68("{car: ", f118((function(){
4763 return tmp === v2? v2: tmp.car;
4764 })()), ", cdr: ", f118((function(){
4766 return tmp === v2? v2: tmp.cdr;
4772 if (cf.type == 'block' && cf.id == 138)
4782 var l134 = f3("*LITERAL-COUNTER*");
4790 var l135 = f3("LITERAL");
4794 return f119 = (function(v389){
4795 ((v389)["fname"] = "LITERAL");
4797 })((function (v390){
4798 if (arguments.length < 1) throw 'too few arguments';
4799 if (arguments.length > 1) throw 'too many arguments';
4803 return (function(v391){
4804 v324 = ({car: f68("var ", v391, " = ", f118(v390)), cdr: v324});
4806 })(f68("l", f6(v388 = (function(){
4809 if (typeof x != 'number')
4810 throw 'The value ' + x + ' is not a type number.';
4811 if (typeof y != 'number')
4812 throw 'The value ' + y + ' is not a type number.';
4818 if (cf.type == 'block' && cf.id == 139)
4828 var l136 = f3("QUOTE");
4829 v334 = ({car: f33(l136, (function (v392,v393){
4830 if (arguments.length < 2) throw 'too few arguments';
4831 if (arguments.length > 2) throw 'too many arguments';
4839 if (cf.type == 'block' && cf.id == 140)
4846 var l137 = f3("%WHILE");
4847 v334 = ({car: f33(l137, (function (v395,v396){
4848 if (arguments.length < 2) throw 'too few arguments';
4850 for (var i = arguments.length-1; i>=2; i--)
4851 v394 = {car: arguments[i], cdr: v394};
4855 return f68("(function(){", v176, f71("while(", f73(v396, v395), " !== ", f73(v2), "){", v176, f71(f112(v394, v395)), "}", "return ", f73(v2), ";", v176), "})()");
4859 if (cf.type == 'block' && cf.id == 141)
4866 var l139 = f3("LAMBDA");
4867 var l138 = f3("FUNCTION");
4868 v334 = ({car: f33(l138, (function (v397,v398){
4869 if (arguments.length < 2) throw 'too few arguments';
4870 if (arguments.length > 2) throw 'too many arguments';
4874 return ((f36(v398) !== v2 ? (((function(){
4876 return tmp === v2? v2: tmp.car;
4877 })() === l139)?v3: v2) : v2) !== v2 ? (function(){
4878 return f73(v398, v397);
4879 })() : (((function(){
4881 return (typeof tmp == 'object' && 'name' in tmp);
4882 })()?v3: v2) !== v2 ? (function(){
4883 return f108(v398, v397);
4888 if (cf.type == 'block' && cf.id == 142)
4895 var l141 = f3("PROGN");
4896 var l140 = f3("EVAL-WHEN-COMPILE");
4897 v334 = ({car: f33(l140, (function (v400){
4898 if (arguments.length < 1) throw 'too few arguments';
4900 for (var i = arguments.length-1; i>=1; i--)
4901 v399 = {car: arguments[i], cdr: v399};
4905 f120(({car: l141, cdr: v399}));
4910 if (cf.type == 'block' && cf.id == 143)
4917 var l142 = f3("PROGN");
4918 v334 = ({car: f33(l142, (function (v402){
4919 if (arguments.length < 1) throw 'too few arguments';
4921 for (var i = arguments.length-1; i>=1; i--)
4922 v401 = {car: arguments[i], cdr: v401};
4926 return f68("(function(){", v176, f71(f112(f56(v401), v402), "return ", f73((function(){
4927 var tmp = f55(v401);
4928 return tmp === v2? v2: tmp.car;
4929 })(), v402), ";", v176), "})()");
4933 if (cf.type == 'block' && cf.id == 144)
4940 var l143 = f3("LET");
4941 v334 = ({car: f33(l143, (function (v404,v405){
4942 if (arguments.length < 2) throw 'too few arguments';
4944 for (var i = arguments.length-1; i>=2; i--)
4945 v403 = {car: arguments[i], cdr: v403};
4949 return (function(v406){
4950 return (function(v407,v408){
4951 return (function(v409){
4952 return f68("(function(", f69(f45((function (v410){
4953 if (arguments.length < 1) throw 'too few arguments';
4954 if (arguments.length > 1) throw 'too many arguments';
4955 return f105(v410, v409);
4956 }), v407), ","), "){", v176, f71(f112(f56(v403), v409), "return ", f73((function(){
4957 var tmp = f55(v403);
4958 return tmp === v2? v2: tmp.car;
4959 })(), v409), ";", v176), "})(", f69(f45((function (v411){
4960 if (arguments.length < 1) throw 'too few arguments';
4961 if (arguments.length > 1) throw 'too many arguments';
4962 return f73(v411, v404);
4963 }), v408), ","), ")");
4964 })(f106(v407, v404));
4965 })(f45(f29, v406),f45(f30, v406));
4970 if (cf.type == 'block' && cf.id == 145)
4977 var l144 = f3("*BLOCK-COUNTER*");
4985 var l148 = f3("BLOCK");
4986 var l147 = f3("BLOCK");
4987 var l146 = f3("PROGN");
4988 var l145 = f3("BLOCK");
4989 v334 = ({car: f33(l145, (function (v414,v415){
4990 if (arguments.length < 2) throw 'too few arguments';
4992 for (var i = arguments.length-1; i>=2; i--)
4993 v413 = {car: arguments[i], cdr: v413};
4997 return (function(v416){
4998 return (function(v417){
4999 return f68("(function(){", v176, f71("try {", v176, f71("return ", f73(f39(f33(l146), v413), f100(f33(v417), v414, l147)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'block' && cf.id == ", v416, ")", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()");
5000 })(f91(v415, l148, v416, v3));
5001 })(f6(v412 = (function(){
5004 if (typeof x != 'number')
5005 throw 'The value ' + x + ' is not a type number.';
5006 if (typeof y != 'number')
5007 throw 'The value ' + y + ' is not a type number.';
5013 if (cf.type == 'block' && cf.id == 146)
5020 var l150 = f3("BLOCK");
5021 var l149 = f3("RETURN-FROM");
5022 v334 = ({car: f33(l149, (function (v418,v419,v420){
5023 if (arguments.length < 2) throw 'too few arguments';
5024 if (arguments.length > 3) throw 'too many arguments';
5025 switch(arguments.length){
5033 return (function(v421){
5034 return (v421 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'block', ", "id: ", f94(v421), ", ", "value: ", f73(v420, v418), ", ", "message: 'Return from unknown block ", (v419).name, ".'", "})"), "})()") : (function (){ throw f68("Unknown block `", (v419).name, "'."); })());
5035 })(f101(v419, v418, l150));
5039 if (cf.type == 'block' && cf.id == 147)
5046 var l152 = f3("PROGN");
5047 var l151 = f3("CATCH");
5048 v334 = ({car: f33(l151, (function (v423,v424){
5049 if (arguments.length < 2) throw 'too few arguments';
5051 for (var i = arguments.length-1; i>=2; i--)
5052 v422 = {car: arguments[i], cdr: v422};
5056 return f68("(function(){", v176, f71("var id = ", f73(v424, v423), ";", v176, "try {", v176, f71("return ", f73(f39(f33(l152), v422)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'catch' && cf.id == id)", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()");
5060 if (cf.type == 'block' && cf.id == 148)
5067 var l153 = f3("THROW");
5068 v334 = ({car: f33(l153, (function (v425,v426,v427){
5069 if (arguments.length < 2) throw 'too few arguments';
5070 if (arguments.length > 3) throw 'too many arguments';
5071 switch(arguments.length){
5079 return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v426, v425), ", ", "value: ", f73(v427, v425), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5083 if (cf.type == 'block' && cf.id == 149)
5090 var l154 = f3("*TAGBODY-COUNTER*");
5098 var l155 = f3("*GO-TAG-COUNTER*");
5106 var l156 = f3("GO-TAG-P");
5110 return f121 = (function(v430){
5111 ((v430)["fname"] = "GO-TAG-P");
5113 })((function (v431){
5114 if (arguments.length < 1) throw 'too few arguments';
5115 if (arguments.length > 1) throw 'too many arguments';
5119 return (function(v432){
5120 return (v432 !== v2 ? v432 : ((function(){
5122 return (typeof tmp == 'object' && 'name' in tmp);
5128 if (cf.type == 'block' && cf.id == 150)
5138 var l159 = f3("DECLARE-TAGBODY-TAGS");
5139 var l158 = f3("GOTAG");
5140 var l157 = f3("GOTAG");
5144 return f122 = (function(v433){
5145 ((v433)["fname"] = "DECLARE-TAGBODY-TAGS");
5147 })((function (v434,v435,v436){
5148 if (arguments.length < 3) throw 'too few arguments';
5149 if (arguments.length > 3) throw 'too many arguments';
5153 return (function(v437){
5154 return f100(v437, v434, l157);
5155 })(f45((function (v438){
5156 if (arguments.length < 1) throw 'too few arguments';
5157 if (arguments.length > 1) throw 'too many arguments';
5158 return (function(v439){
5159 return f91(v438, l158, f33(v435, v439), v3);
5160 })(f6(v429 = (function(){
5163 if (typeof x != 'number')
5164 throw 'The value ' + x + ' is not a type number.';
5165 if (typeof y != 'number')
5166 throw 'The value ' + y + ' is not a type number.';
5169 }), f60(f121, v436)));
5173 if (cf.type == 'block' && cf.id == 151)
5183 var l164 = f3("GOTAG");
5184 var l163 = f3("GOTAG");
5185 var l162 = f3("NIL");
5186 var l161 = f3("PROGN");
5187 var l160 = f3("TAGBODY");
5188 v334 = ({car: f33(l160, (function (v441){
5189 if (arguments.length < 1) throw 'too few arguments';
5191 for (var i = arguments.length-1; i>=1; i--)
5192 v440 = {car: arguments[i], cdr: v440};
5196 (f64(f121, v440) !== v2 ? v2 : (function(){
5197 return (function(){ throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v440, f33(l162)), v441), message: 'Return from unknown block TAGBODY.'})})();
5201 return tmp === v2? v2: tmp.car;
5202 })()) !== v2 ? v2 : (function(){
5203 return v440 = ({car: f5("START"), cdr: v440});
5205 return (function(v442){
5206 return (function(v443,v444){
5208 return v444 = f30(f94(v445));
5209 })(f101(f29(v440), v443, l163));
5210 return f68("(function(){", v176, f71("var tagbody_", v442, " = ", v444, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v446){
5211 return f68("switch(tagbody_", v442, "){", v176, "case ", v444, ":", v176, (function(){
5214 return (function(v447,v448){
5219 return tmp === v2? v2: tmp.car;
5221 v446 = f68(v446, (function(){
5222 return (f17(f121(v448)) !== v2 ? f71(f73(v448, v443), ";", v176) : (function(v449){
5223 return f68("case ", f30(f94(v449)), ":", v176);
5224 })(f101(v448, v443, l164)));
5228 return tmp === v2? v2: tmp.cdr;
5235 return tmp === v2? v2: tmp.cdr;
5240 if (cf.type == 'block' && cf.id == 153)
5245 })(), "default:", v176, " break tbloop;", v176, "}", v176);
5246 })("")), "}", v176, "catch (jump) {", v176, " if (jump.type == 'tagbody' && jump.id == ", v442, ")", v176, " tagbody_", v442, " = jump.label;", v176, " else", v176, " throw(jump);", v176, "}", v176), "}", v176, "return ", f73(v2), ";", v176), "})()");
5247 })(f122(v441, v442, v440),v2);
5252 if (cf.type == 'block' && cf.id == 152)
5259 var l166 = f3("GOTAG");
5260 var l165 = f3("GO");
5261 v334 = ({car: f33(l165, (function (v450,v451){
5262 if (arguments.length < 2) throw 'too few arguments';
5263 if (arguments.length > 2) throw 'too many arguments';
5267 return (function(v452,v453){
5268 return (v452 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'tagbody', ", "id: ", f29(f94(v452)), ", ", "label: ", f30(f94(v452)), ", ", "message: 'Attempt to GO to non-existing tag ", v453, "'", "})", v176), "})()") : (function (){ throw f68("Unknown tag `", v453, "'."); })());
5269 })(f101(v451, v450, l166),(((function(){
5271 return (typeof tmp == 'object' && 'name' in tmp);
5272 })()?v3: v2) !== v2 ? (function(){
5274 })() : (f51(v451) !== v2 ? (function(){
5280 if (cf.type == 'block' && cf.id == 154)
5287 var l167 = f3("UNWIND-PROTECT");
5288 v334 = ({car: f33(l167, (function (v455,v456){
5289 if (arguments.length < 2) throw 'too few arguments';
5291 for (var i = arguments.length-1; i>=2; i--)
5292 v454 = {car: arguments[i], cdr: v454};
5296 return f68("(function(){", v176, f71("var ret = ", f73(v2), ";", v176, "try {", v176, f71("ret = ", f73(v456, v455), ";", v176), "} finally {", v176, f71(f112(v454, v455)), "}", v176, "return ret;", v176), "})()");
5300 if (cf.type == 'block' && cf.id == 155)
5307 var l176 = f3("BACKQUOTE-EXPAND-1");
5308 var l175 = f3("LIST");
5309 var l174 = f3("UNQUOTE-SPLICING");
5310 var l173 = f3("LIST");
5311 var l172 = f3("UNQUOTE");
5312 var l171 = f3("APPEND");
5313 var l170 = f3("BACKQUOTE");
5314 var l169 = f3("UNQUOTE");
5315 var l168 = f3("QUOTE");
5319 return f123 = (function(v457){
5320 ((v457)["fname"] = "BACKQUOTE-EXPAND-1");
5322 })((function (v458){
5323 if (arguments.length < 1) throw 'too few arguments';
5324 if (arguments.length > 1) throw 'too many arguments';
5328 return (((function(){
5330 return (typeof tmp == 'object' && 'name' in tmp);
5331 })()?v3: v2) !== v2 ? (function(){
5332 return f33(l168, v458);
5333 })() : (f34(v458) !== v2 ? (function(){
5335 })() : ((((function(){
5337 return tmp === v2? v2: tmp.car;
5338 })() === l169)?v3: v2) !== v2 ? (function(){
5341 return tmp === v2? v2: tmp.car;
5343 })() : ((((function(){
5345 return tmp === v2? v2: tmp.car;
5346 })() === l170)?v3: v2) !== v2 ? (function(){
5347 return f123(f123(f23(v458)));
5349 return ({car: l171, cdr: f45((function (v459){
5350 if (arguments.length < 1) throw 'too few arguments';
5351 if (arguments.length > 1) throw 'too many arguments';
5352 return ((f36(v459) !== v2 ? (((function(){
5354 return tmp === v2? v2: tmp.car;
5355 })() === l172)?v3: v2) : v2) !== v2 ? (function(){
5356 return f33(l173, f23(v459));
5357 })() : ((f36(v459) !== v2 ? (((function(){
5359 return tmp === v2? v2: tmp.car;
5360 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
5363 return f33(l175, f123(v459));
5370 if (cf.type == 'block' && cf.id == 156)
5380 var l178 = f3("BACKQUOTE-EXPAND");
5381 var l177 = f3("BACKQUOTE");
5385 return f124 = (function(v460){
5386 ((v460)["fname"] = "BACKQUOTE-EXPAND");
5388 })((function (v461){
5389 if (arguments.length < 1) throw 'too few arguments';
5390 if (arguments.length > 1) throw 'too many arguments';
5394 return ((f36(v461) !== v2 ? (((function(){
5396 return tmp === v2? v2: tmp.car;
5397 })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v461)) : v461);
5401 if (cf.type == 'block' && cf.id == 157)
5411 var l179 = f3("BACKQUOTE");
5412 v334 = ({car: f33(l179, (function (v462,v463){
5413 if (arguments.length < 2) throw 'too few arguments';
5414 if (arguments.length > 2) throw 'too many arguments';
5418 return f73(f123(v463), v462);
5422 if (cf.type == 'block' && cf.id == 158)
5429 var l180 = f3("NUM-OP-NUM");
5433 return f125 = (function(v464){
5434 ((v464)["fname"] = "NUM-OP-NUM");
5436 })((function (v465,v466,v467){
5437 if (arguments.length < 3) throw 'too few arguments';
5438 if (arguments.length > 3) throw 'too many arguments';
5442 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v465, ";", v176), f68("var ", "y", " = ", v467, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("if (typeof ", "y", " != '", "number", "')", v176, f71("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5443 return f68("x", v466, "y");
5444 })(), ";", v176)), "})()");
5448 if (cf.type == 'block' && cf.id == 159)
5459 v334 = ({car: f33(l181, (function (v468,v469,v470){
5460 if (arguments.length < 3) throw 'too few arguments';
5461 if (arguments.length > 3) throw 'too many arguments';
5465 return (function(v471,v472){
5466 return f125(v471, "+", v472);
5467 })(f73(v469, v468),f73(v470, v468));
5471 if (cf.type == 'block' && cf.id == 160)
5479 v334 = ({car: f33(l182, (function (v473,v474,v475){
5480 if (arguments.length < 3) throw 'too few arguments';
5481 if (arguments.length > 3) throw 'too many arguments';
5485 return (function(v476,v477){
5486 return f125(v476, "-", v477);
5487 })(f73(v474, v473),f73(v475, v473));
5491 if (cf.type == 'block' && cf.id == 161)
5499 v334 = ({car: f33(l183, (function (v478,v479,v480){
5500 if (arguments.length < 3) throw 'too few arguments';
5501 if (arguments.length > 3) throw 'too many arguments';
5505 return (function(v481,v482){
5506 return f125(v481, "*", v482);
5507 })(f73(v479, v478),f73(v480, v478));
5511 if (cf.type == 'block' && cf.id == 162)
5519 v334 = ({car: f33(l184, (function (v483,v484,v485){
5520 if (arguments.length < 3) throw 'too few arguments';
5521 if (arguments.length > 3) throw 'too many arguments';
5525 return (function(v486,v487){
5526 return f125(v486, "/", v487);
5527 })(f73(v484, v483),f73(v485, v483));
5531 if (cf.type == 'block' && cf.id == 163)
5538 var l185 = f3("MOD");
5539 v334 = ({car: f33(l185, (function (v488,v489,v490){
5540 if (arguments.length < 3) throw 'too few arguments';
5541 if (arguments.length > 3) throw 'too many arguments';
5545 return (function(v491,v492){
5546 return f125(v491, "%", v492);
5547 })(f73(v489, v488),f73(v490, v488));
5551 if (cf.type == 'block' && cf.id == 164)
5559 v334 = ({car: f33(l186, (function (v493,v494,v495){
5560 if (arguments.length < 3) throw 'too few arguments';
5561 if (arguments.length > 3) throw 'too many arguments';
5565 return (function(v496,v497){
5566 return f72(f125(v496, "<", v497));
5567 })(f73(v494, v493),f73(v495, v493));
5571 if (cf.type == 'block' && cf.id == 165)
5579 v334 = ({car: f33(l187, (function (v498,v499,v500){
5580 if (arguments.length < 3) throw 'too few arguments';
5581 if (arguments.length > 3) throw 'too many arguments';
5585 return (function(v501,v502){
5586 return f72(f125(v501, ">", v502));
5587 })(f73(v499, v498),f73(v500, v498));
5591 if (cf.type == 'block' && cf.id == 166)
5599 v334 = ({car: f33(l188, (function (v503,v504,v505){
5600 if (arguments.length < 3) throw 'too few arguments';
5601 if (arguments.length > 3) throw 'too many arguments';
5605 return (function(v506,v507){
5606 return f72(f125(v506, "==", v507));
5607 })(f73(v504, v503),f73(v505, v503));
5611 if (cf.type == 'block' && cf.id == 167)
5618 var l189 = f3("<=");
5619 v334 = ({car: f33(l189, (function (v508,v509,v510){
5620 if (arguments.length < 3) throw 'too few arguments';
5621 if (arguments.length > 3) throw 'too many arguments';
5625 return (function(v511,v512){
5626 return f72(f125(v511, "<=", v512));
5627 })(f73(v509, v508),f73(v510, v508));
5631 if (cf.type == 'block' && cf.id == 168)
5638 var l190 = f3(">=");
5639 v334 = ({car: f33(l190, (function (v513,v514,v515){
5640 if (arguments.length < 3) throw 'too few arguments';
5641 if (arguments.length > 3) throw 'too many arguments';
5645 return (function(v516,v517){
5646 return f72(f125(v516, ">=", v517));
5647 })(f73(v514, v513),f73(v515, v513));
5651 if (cf.type == 'block' && cf.id == 169)
5658 var l191 = f3("NUMBERP");
5659 v334 = ({car: f33(l191, (function (v518,v519){
5660 if (arguments.length < 2) throw 'too few arguments';
5661 if (arguments.length > 2) throw 'too many arguments';
5665 return (function(v520){
5666 return f72(f68("(typeof (", v520, ") == \"number\")"));
5667 })(f73(v519, v518));
5671 if (cf.type == 'block' && cf.id == 170)
5678 var l192 = f3("FLOOR");
5679 v334 = ({car: f33(l192, (function (v521,v522){
5680 if (arguments.length < 2) throw 'too few arguments';
5681 if (arguments.length > 2) throw 'too many arguments';
5685 return (function(v523){
5686 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v523, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5687 return "Math.floor(x)";
5688 })(), ";", v176)), "})()");
5689 })(f73(v522, v521));
5693 if (cf.type == 'block' && cf.id == 171)
5700 var l193 = f3("CONS");
5701 v334 = ({car: f33(l193, (function (v524,v525,v526){
5702 if (arguments.length < 3) throw 'too few arguments';
5703 if (arguments.length > 3) throw 'too many arguments';
5707 return (function(v527,v528){
5708 return f68("({car: ", v527, ", cdr: ", v528, "})");
5709 })(f73(v525, v524),f73(v526, v524));
5713 if (cf.type == 'block' && cf.id == 172)
5720 var l194 = f3("CONSP");
5721 v334 = ({car: f33(l194, (function (v529,v530){
5722 if (arguments.length < 2) throw 'too few arguments';
5723 if (arguments.length > 2) throw 'too many arguments';
5727 return (function(v531){
5728 return f72(f68("(function(){", v176, f71("var tmp = ", v531, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()"));
5729 })(f73(v530, v529));
5733 if (cf.type == 'block' && cf.id == 173)
5740 var l195 = f3("CAR");
5741 v334 = ({car: f33(l195, (function (v532,v533){
5742 if (arguments.length < 2) throw 'too few arguments';
5743 if (arguments.length > 2) throw 'too many arguments';
5747 return (function(v534){
5748 return f68("(function(){", v176, f71("var tmp = ", v534, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()");
5749 })(f73(v533, v532));
5753 if (cf.type == 'block' && cf.id == 174)
5760 var l196 = f3("CDR");
5761 v334 = ({car: f33(l196, (function (v535,v536){
5762 if (arguments.length < 2) throw 'too few arguments';
5763 if (arguments.length > 2) throw 'too many arguments';
5767 return (function(v537){
5768 return f68("(function(){", v176, f71("var tmp = ", v537, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()");
5769 })(f73(v536, v535));
5773 if (cf.type == 'block' && cf.id == 175)
5780 var l197 = f3("SETCAR");
5781 v334 = ({car: f33(l197, (function (v538,v539,v540){
5782 if (arguments.length < 3) throw 'too few arguments';
5783 if (arguments.length > 3) throw 'too many arguments';
5787 return (function(v541,v542){
5788 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v541, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5789 return f68("(x.car = ", v542, ")");
5790 })(), ";", v176)), "})()");
5791 })(f73(v539, v538),f73(v540, v538));
5795 if (cf.type == 'block' && cf.id == 176)
5802 var l198 = f3("SETCDR");
5803 v334 = ({car: f33(l198, (function (v543,v544,v545){
5804 if (arguments.length < 3) throw 'too few arguments';
5805 if (arguments.length > 3) throw 'too many arguments';
5809 return (function(v546,v547){
5810 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v546, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5811 return f68("(x.cdr = ", v547, ")");
5812 })(), ";", v176)), "})()");
5813 })(f73(v544, v543),f73(v545, v543));
5817 if (cf.type == 'block' && cf.id == 177)
5824 var l199 = f3("SYMBOLP");
5825 v334 = ({car: f33(l199, (function (v548,v549){
5826 if (arguments.length < 2) throw 'too few arguments';
5827 if (arguments.length > 2) throw 'too many arguments';
5831 return (function(v550){
5832 return f72(f68("(function(){", v176, f71("var tmp = ", v550, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()"));
5833 })(f73(v549, v548));
5837 if (cf.type == 'block' && cf.id == 178)
5844 var l200 = f3("MAKE-SYMBOL");
5845 v334 = ({car: f33(l200, (function (v551,v552){
5846 if (arguments.length < 2) throw 'too few arguments';
5847 if (arguments.length > 2) throw 'too many arguments';
5851 return (function(v553){
5852 return f68("(function(){", v176, f71(f68("var ", "name", " = ", v553, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5853 return "({name: name})";
5854 })(), ";", v176)), "})()");
5855 })(f73(v552, v551));
5859 if (cf.type == 'block' && cf.id == 179)
5866 var l201 = f3("SYMBOL-NAME");
5867 v334 = ({car: f33(l201, (function (v554,v555){
5868 if (arguments.length < 2) throw 'too few arguments';
5869 if (arguments.length > 2) throw 'too many arguments';
5873 return (function(v556){
5874 return f68("(", v556, ").name");
5875 })(f73(v555, v554));
5879 if (cf.type == 'block' && cf.id == 180)
5886 var l202 = f3("EQ");
5887 v334 = ({car: f33(l202, (function (v557,v558,v559){
5888 if (arguments.length < 3) throw 'too few arguments';
5889 if (arguments.length > 3) throw 'too many arguments';
5893 return (function(v560,v561){
5894 return f72(f68("(", v560, " === ", v561, ")"));
5895 })(f73(v558, v557),f73(v559, v557));
5899 if (cf.type == 'block' && cf.id == 181)
5906 var l203 = f3("EQUAL");
5907 v334 = ({car: f33(l203, (function (v562,v563,v564){
5908 if (arguments.length < 3) throw 'too few arguments';
5909 if (arguments.length > 3) throw 'too many arguments';
5913 return (function(v565,v566){
5914 return f72(f68("(", v565, " == ", v566, ")"));
5915 })(f73(v563, v562),f73(v564, v562));
5919 if (cf.type == 'block' && cf.id == 182)
5926 var l204 = f3("STRING");
5927 v334 = ({car: f33(l204, (function (v567,v568){
5928 if (arguments.length < 2) throw 'too few arguments';
5929 if (arguments.length > 2) throw 'too many arguments';
5933 return (function(v569){
5934 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v569, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5935 return "String.fromCharCode(x)";
5936 })(), ";", v176)), "})()");
5937 })(f73(v568, v567));
5941 if (cf.type == 'block' && cf.id == 183)
5948 var l205 = f3("STRINGP");
5949 v334 = ({car: f33(l205, (function (v570,v571){
5950 if (arguments.length < 2) throw 'too few arguments';
5951 if (arguments.length > 2) throw 'too many arguments';
5955 return (function(v572){
5956 return f72(f68("(typeof(", v572, ") == \"string\")"));
5957 })(f73(v571, v570));
5961 if (cf.type == 'block' && cf.id == 184)
5968 var l206 = f3("STRING-UPCASE");
5969 v334 = ({car: f33(l206, (function (v573,v574){
5970 if (arguments.length < 2) throw 'too few arguments';
5971 if (arguments.length > 2) throw 'too many arguments';
5975 return (function(v575){
5976 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v575, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5977 return "x.toUpperCase()";
5978 })(), ";", v176)), "})()");
5979 })(f73(v574, v573));
5983 if (cf.type == 'block' && cf.id == 185)
5990 var l207 = f3("STRING-LENGTH");
5991 v334 = ({car: f33(l207, (function (v576,v577){
5992 if (arguments.length < 2) throw 'too few arguments';
5993 if (arguments.length > 2) throw 'too many arguments';
5997 return (function(v578){
5998 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v578, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6000 })(), ";", v176)), "})()");
6001 })(f73(v577, v576));
6005 if (cf.type == 'block' && cf.id == 186)
6012 var l208 = f3("SLICE");
6013 v334 = ({car: f33(l208, (function (v579,v580,v581,v582){
6014 if (arguments.length < 3) throw 'too few arguments';
6015 if (arguments.length > 4) throw 'too many arguments';
6016 switch(arguments.length){
6024 return f68("(function(){", v176, f71("var str = ", f73(v580, v579), ";", v176, "var a = ", f73(v581, v579), ";", v176, "var b;", v176, (v582 !== v2 ? f68("b = ", f73(v582, v579), ";", v176) : ""), "return str.slice(a,b);", v176), "})()");
6028 if (cf.type == 'block' && cf.id == 187)
6035 var l209 = f3("CHAR");
6036 v334 = ({car: f33(l209, (function (v583,v584,v585){
6037 if (arguments.length < 3) throw 'too few arguments';
6038 if (arguments.length > 3) throw 'too many arguments';
6042 return (function(v586,v587){
6043 return f68("(function(){", v176, f71(f68("var ", "string", " = ", v586, ";", v176), f68("var ", "index", " = ", v587, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "index", " != '", "number", "')", v176, f71("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
6044 return "string.charCodeAt(index)";
6045 })(), ";", v176)), "})()");
6046 })(f73(v584, v583),f73(v585, v583));
6050 if (cf.type == 'block' && cf.id == 188)
6057 var l210 = f3("CONCAT-TWO");
6058 v334 = ({car: f33(l210, (function (v588,v589,v590){
6059 if (arguments.length < 3) throw 'too few arguments';
6060 if (arguments.length > 3) throw 'too many arguments';
6064 return (function(v591,v592){
6065 return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v591, ";", v176), f68("var ", "string2", " = ", v592, ";", v176), f68("if (typeof ", "string1", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v176)), f68("if (typeof ", "string2", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6066 return "string1.concat(string2)";
6067 })(), ";", v176)), "})()");
6068 })(f73(v589, v588),f73(v590, v588));
6072 if (cf.type == 'block' && cf.id == 189)
6079 var l211 = f3("FUNCALL");
6080 v334 = ({car: f33(l211, (function (v594,v595){
6081 if (arguments.length < 2) throw 'too few arguments';
6083 for (var i = arguments.length-1; i>=2; i--)
6084 v593 = {car: arguments[i], cdr: v593};
6088 return f68("(", f73(v595, v594), ")(", f69(f45((function (v596){
6089 if (arguments.length < 1) throw 'too few arguments';
6090 if (arguments.length > 1) throw 'too many arguments';
6091 return f73(v596, v594);
6092 }), v593), ", "), ")");
6096 if (cf.type == 'block' && cf.id == 190)
6103 var l212 = f3("APPLY");
6104 v334 = ({car: f33(l212, (function (v598,v599){
6105 if (arguments.length < 2) throw 'too few arguments';
6107 for (var i = arguments.length-1; i>=2; i--)
6108 v597 = {car: arguments[i], cdr: v597};
6112 return (f1(v597) !== v2 ? f68("(", f73(v599, v598), ")()") : (function(v600,v601){
6113 return f68("(function(){", v176, f71("var f = ", f73(v599, v598), ";", v176, "var args = [", f69(f45((function (v602){
6114 if (arguments.length < 1) throw 'too few arguments';
6115 if (arguments.length > 1) throw 'too many arguments';
6116 return f73(v602, v598);
6117 }), v600), ", "), "];", v176, "var tail = (", f73(v601, v598), ");", v176, "while (tail != ", f73(v2), "){", v176, " args.push(tail.car);", v176, " tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()");
6118 })(f56(v597),(function(){
6119 var tmp = f55(v597);
6120 return tmp === v2? v2: tmp.car;
6125 if (cf.type == 'block' && cf.id == 191)
6132 var l213 = f3("JS-EVAL");
6133 v334 = ({car: f33(l213, (function (v603,v604){
6134 if (arguments.length < 2) throw 'too few arguments';
6135 if (arguments.length > 2) throw 'too many arguments';
6139 return (function(v605){
6140 return f68("(function(){", v176, f71(f68("var ", "string", " = ", v605, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6141 return "eval.apply(window, [string])";
6142 })(), ";", v176)), "})()");
6143 })(f73(v604, v603));
6147 if (cf.type == 'block' && cf.id == 192)
6154 var l214 = f3("ERROR");
6155 v334 = ({car: f33(l214, (function (v606,v607){
6156 if (arguments.length < 2) throw 'too few arguments';
6157 if (arguments.length > 2) throw 'too many arguments';
6161 return (function(v608){
6162 return f68("(function(){", v176, f71("throw ", v608, ";", v176), "})()");
6163 })(f73(v607, v606));
6167 if (cf.type == 'block' && cf.id == 193)
6174 var l215 = f3("NEW");
6175 v334 = ({car: f33(l215, (function (v609){
6176 if (arguments.length < 1) throw 'too few arguments';
6177 if (arguments.length > 1) throw 'too many arguments';
6187 if (cf.type == 'block' && cf.id == 194)
6194 var l216 = f3("GET");
6195 v334 = ({car: f33(l216, (function (v610,v611,v612){
6196 if (arguments.length < 3) throw 'too few arguments';
6197 if (arguments.length > 3) throw 'too many arguments';
6201 return (function(v613,v614){
6202 return f68("(function(){", v176, f71("var tmp = ", "(", v613, ")[", v614, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()");
6203 })(f73(v611, v610),f73(v612, v610));
6207 if (cf.type == 'block' && cf.id == 195)
6214 var l217 = f3("SET");
6215 v334 = ({car: f33(l217, (function (v615,v616,v617,v618){
6216 if (arguments.length < 4) throw 'too few arguments';
6217 if (arguments.length > 4) throw 'too many arguments';
6221 return (function(v619,v620,v621){
6222 return f68("((", v619, ")[", v620, "] = ", v621, ")");
6223 })(f73(v616, v615),f73(v617, v615),f73(v618, v615));
6227 if (cf.type == 'block' && cf.id == 196)
6234 var l218 = f3("IN");
6235 v334 = ({car: f33(l218, (function (v622,v623,v624){
6236 if (arguments.length < 3) throw 'too few arguments';
6237 if (arguments.length > 3) throw 'too many arguments';
6241 return (function(v625,v626){
6242 return f72(f68("((", v625, ") in (", v626, "))"));
6243 })(f73(v623, v622),f73(v624, v622));
6247 if (cf.type == 'block' && cf.id == 197)
6254 var l219 = f3("FUNCTIONP");
6255 v334 = ({car: f33(l219, (function (v627,v628){
6256 if (arguments.length < 2) throw 'too few arguments';
6257 if (arguments.length > 2) throw 'too many arguments';
6261 return (function(v629){
6262 return f72(f68("(typeof ", v629, " == 'function')"));
6263 })(f73(v628, v627));
6267 if (cf.type == 'block' && cf.id == 198)
6274 var l220 = f3("WRITE-STRING");
6275 v334 = ({car: f33(l220, (function (v630,v631){
6276 if (arguments.length < 2) throw 'too few arguments';
6277 if (arguments.length > 2) throw 'too many arguments';
6281 return (function(v632){
6282 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v632, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6283 return "lisp.write(x)";
6284 })(), ";", v176)), "})()");
6285 })(f73(v631, v630));
6289 if (cf.type == 'block' && cf.id == 199)
6296 var l222 = f3("MACROP");
6297 var l221 = f3("MACRO");
6301 return f126 = (function(v633){
6302 ((v633)["fname"] = "MACROP");
6304 })((function (v634){
6305 if (arguments.length < 1) throw 'too few arguments';
6306 if (arguments.length > 1) throw 'too many arguments';
6310 return (((function(){
6312 return (typeof tmp == 'object' && 'name' in tmp);
6313 })()?v3: v2) !== v2 ? ((f93(f107(v634, v289)) === l221)?v3: v2) : v2);
6317 if (cf.type == 'block' && cf.id == 200)
6327 var l224 = f3("LS-MACROEXPAND-1");
6328 var l223 = f3("MACRO");
6332 return f127 = (function(v635){
6333 ((v635)["fname"] = "LS-MACROEXPAND-1");
6335 })((function (v636,v637){
6336 if (arguments.length < 2) throw 'too few arguments';
6337 if (arguments.length > 2) throw 'too many arguments';
6341 return (f126((function(){
6343 return tmp === v2? v2: tmp.car;
6344 })()) !== v2 ? (function(v638){
6345 return (((f93(v638) === l223)?v3: v2) !== v2 ? (function(){
6346 var f = f120(f94(v638));
6348 var tail = ((function(){
6350 return tmp === v2? v2: tmp.cdr;
6353 args.push(tail.car);
6356 return f.apply(this, args);
6358 })(f107((function(){
6360 return tmp === v2? v2: tmp.car;
6361 })(), v289)) : v636);
6365 if (cf.type == 'block' && cf.id == 201)
6375 var l226 = f3("COMPILE-FUNCALL");
6376 var l225 = f3("LAMBDA");
6380 return f128 = (function(v639){
6381 ((v639)["fname"] = "COMPILE-FUNCALL");
6383 })((function (v640,v641,v642){
6384 if (arguments.length < 3) throw 'too few arguments';
6385 if (arguments.length > 3) throw 'too many arguments';
6389 return (((function(){
6391 return (typeof tmp == 'object' && 'name' in tmp);
6392 })()?v3: v2) !== v2 ? (function(){
6393 return f68(f108(v640, v642), "(", f69(f45((function (v643){
6394 if (arguments.length < 1) throw 'too few arguments';
6395 if (arguments.length > 1) throw 'too many arguments';
6396 return f73(v643, v642);
6397 }), v641), ", "), ")");
6398 })() : ((f36(v640) !== v2 ? (((function(){
6400 return tmp === v2? v2: tmp.car;
6401 })() === l225)?v3: v2) : v2) !== v2 ? (function(){
6402 return f68("(", f73(v640, v642), ")(", f69(f45((function (v644){
6403 if (arguments.length < 1) throw 'too few arguments';
6404 if (arguments.length > 1) throw 'too many arguments';
6405 return f73(v644, v642);
6406 }), v641), ", "), ")");
6408 return (function (){ throw f68("Invalid function designator ", (v640).name); })();
6413 if (cf.type == 'block' && cf.id == 202)
6423 var l227 = f3("LS-COMPILE");
6427 return f73 = (function(v645){
6428 ((v645)["fname"] = "LS-COMPILE");
6430 })((function (v646,v647){
6431 if (arguments.length < 1) throw 'too few arguments';
6432 if (arguments.length > 2) throw 'too many arguments';
6433 switch(arguments.length){
6441 return (((function(){
6443 return (typeof tmp == 'object' && 'name' in tmp);
6444 })()?v3: v2) !== v2 ? (function(){
6445 return f105(v646, v647);
6446 })() : (f51(v646) !== v2 ? (function(){
6448 })() : (((typeof(v646) == "string")?v3: v2) !== v2 ? (function(){
6449 return f68("\"", f75(v646), "\"");
6450 })() : (f36(v646) !== v2 ? (function(){
6451 return (f66((function(){
6453 return tmp === v2? v2: tmp.car;
6454 })(), v334) !== v2 ? (function(v648){
6458 var tail = ((function(){
6460 return tmp === v2? v2: tmp.cdr;
6463 args.push(tail.car);
6466 return f.apply(this, args);
6468 })(f30(f66((function(){
6470 return tmp === v2? v2: tmp.car;
6471 })(), v334))) : (f126((function(){
6473 return tmp === v2? v2: tmp.car;
6474 })()) !== v2 ? f73(f127(v646, v647), v647) : f128((function(){
6476 return tmp === v2? v2: tmp.car;
6479 return tmp === v2? v2: tmp.cdr;
6485 if (cf.type == 'block' && cf.id == 203)
6495 var l228 = f3("LS-COMPILE-TOPLEVEL");
6499 return f129 = (function(v649){
6500 ((v649)["fname"] = "LS-COMPILE-TOPLEVEL");
6502 })((function (v650){
6503 if (arguments.length < 1) throw 'too few arguments';
6504 if (arguments.length > 1) throw 'too many arguments';
6509 return (function(v651){
6510 return (function(v652){
6513 })(f68(f69(f45((function (v653){
6514 if (arguments.length < 1) throw 'too few arguments';
6515 if (arguments.length > 1) throw 'too many arguments';
6516 return f68(v653, ";", v176);
6522 if (cf.type == 'block' && cf.id == 204)
6532 var l239 = f3("LS-COMPILE-TOPLEVEL");
6533 var l238 = f3("EVAL");
6534 var l237 = f3("PRIN1-TO-STRING");
6535 var l236 = f3("LS-READ-FROM-STRING");
6541 var l230 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v429", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v428", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v412", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v388", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v345", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v334", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v324", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v313", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v293", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v289", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v253", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v246", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v176", 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: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", 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("JS!SELFCALL"), 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: f3("NIL")}}, cdr: f3("NIL")}}}, 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: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECLARE-TAGBODY-TAGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GO-TAG-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", 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: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", 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("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), 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("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), 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("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), 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("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), 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("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), 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("BLOCK"), cdr: {car: f3("NIL"), 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: 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("BLOCK"), cdr: {car: f3("NIL"), 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: 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("WHILE"), 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("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), 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("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {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("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), 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: {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: {car: f3("NIL"), cdr: f3("NIL")}}}};
6542 var l229 = f3("EVAL");
6555 return f120 = (function(v654){
6556 ((v654)["fname"] = "EVAL");
6558 })((function (v655){
6559 if (arguments.length < 1) throw 'too few arguments';
6560 if (arguments.length > 1) throw 'too many arguments';
6564 return (function(v656){
6567 if (typeof string != 'string')
6568 throw 'The value ' + string + ' is not a type string.';
6569 return eval.apply(window, [string]);
6575 return (function(v658,v659){
6580 return tmp === v2? v2: tmp.car;
6585 return tmp === v2? v2: tmp.cdr;
6594 if (cf.type == 'block' && cf.id == 206)
6609 if (cf.type == 'block' && cf.id == 205)
6620 var string = f68("var lisp = {};", "lisp.read = ", f108(l236, v2), ";", v176, "lisp.print = ", f108(l237, v2), ";", v176, "lisp.eval = ", f108(l238, v2), ";", v176, "lisp.compile = ", f108(l239, v2), ";", v176, "lisp.evalString = function(str){", v176, " return lisp.eval(lisp.read(str));", v176, "}", v176, "lisp.compileString = function(str){", v176, " return lisp.compile(lisp.read(str));", v176, "}", v176);
6621 if (typeof string != 'string')
6622 throw 'The value ' + string + ' is not a type string.';
6623 return eval.apply(window, [string]);