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;
2147 ((v157)(v162) !== v2 ? (function(){
2148 return (function(){ throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})();
2154 return tmp === v2? v2: tmp.cdr;
2163 if (cf.type == 'block' && cf.id == 67)
2170 return (function (){ throw "Unknown sequence."; })();
2175 if (cf.type == 'block' && cf.id == 65)
2187 return f65 = (function(v163){
2188 ((v163)["fname"] = "EVERY");
2190 })((function (v164,v165){
2191 if (arguments.length < 2) throw 'too few arguments';
2192 if (arguments.length > 2) throw 'too many arguments';
2196 return (((typeof(v165) == "string")?v3: v2) !== v2 ? (function(){
2197 return (function(v166,v167){
2205 if (typeof x != 'number')
2206 throw 'The value ' + x + ' is not a type number.';
2207 if (typeof y != 'number')
2208 throw 'The value ' + y + ' is not a type number.';
2210 })()?v3: v2) !== v2){
2211 ((v164)((function(){
2214 if (typeof string != 'string')
2215 throw 'The value ' + string + ' is not a type string.';
2216 if (typeof index != 'number')
2217 throw 'The value ' + index + ' is not a type number.';
2218 return string.charCodeAt(index);
2219 })()) !== v2 ? v2 : (function(){
2220 return (function(){ throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})();
2225 if (typeof x != 'number')
2226 throw 'The value ' + x + ' is not a type number.';
2227 if (typeof y != 'number')
2228 throw 'The value ' + y + ' is not a type number.';
2236 if (cf.type == 'block' && cf.id == 69)
2244 })() : (f36(v165) !== v2 ? (function(){
2248 return (function(v168,v169){
2253 return tmp === v2? v2: tmp.car;
2256 ((v164)(v169) !== v2 ? v2 : (function(){
2257 return (function(){ throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})();
2263 return tmp === v2? v2: tmp.cdr;
2272 if (cf.type == 'block' && cf.id == 70)
2279 return (function (){ throw "Unknown sequence."; })();
2284 if (cf.type == 'block' && cf.id == 68)
2296 return f66 = (function(v170){
2297 ((v170)["fname"] = "ASSOC");
2299 })((function (v171,v172){
2300 if (arguments.length < 2) throw 'too few arguments';
2301 if (arguments.length > 2) throw 'too many arguments';
2310 (f16(v171, f22(v172)) !== v2 ? (function(){ throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){
2312 return tmp === v2? v2: tmp.cdr;
2319 if (cf.type == 'block' && cf.id == 72)
2327 return tmp === v2? v2: tmp.car;
2332 if (cf.type == 'block' && cf.id == 71)
2344 return f67 = (function(v173){
2345 ((v173)["fname"] = "STRING=");
2347 })((function (v174,v175){
2348 if (arguments.length < 2) throw 'too few arguments';
2349 if (arguments.length > 2) throw 'too many arguments';
2353 return ((v174 == v175)?v3: v2);
2357 if (cf.type == 'block' && cf.id == 73)
2368 var l35 = f3("*NEWLINE*");
2372 return v176 = (function(){
2374 if (typeof x != 'number')
2375 throw 'The value ' + x + ' is not a type number.';
2376 return String.fromCharCode(x);
2381 var l36 = f3("CONCAT");
2385 return f68 = (function(v177){
2386 ((v177)["fname"] = "CONCAT");
2390 for (var i = arguments.length-1; i>=0; i--)
2391 v178 = {car: arguments[i], cdr: v178};
2395 return f37(f44, v178, "");
2399 if (cf.type == 'block' && cf.id == 74)
2409 var l37 = f3("JOIN");
2413 return f69 = (function(v179){
2414 ((v179)["fname"] = "JOIN");
2416 })((function (v180,v181){
2417 if (arguments.length < 1) throw 'too few arguments';
2418 if (arguments.length > 2) throw 'too many arguments';
2419 switch(arguments.length){
2427 return (f1(v180) !== v2 ? (function(){
2429 })() : (f1((function(){
2431 return tmp === v2? v2: tmp.cdr;
2432 })()) !== v2 ? (function(){
2435 return tmp === v2? v2: tmp.car;
2438 return f68((function(){
2440 return tmp === v2? v2: tmp.car;
2441 })(), v181, f69((function(){
2443 return tmp === v2? v2: tmp.cdr;
2449 if (cf.type == 'block' && cf.id == 75)
2459 var l38 = f3("JOIN-TRAILING");
2463 return f70 = (function(v182){
2464 ((v182)["fname"] = "JOIN-TRAILING");
2466 })((function (v183,v184){
2467 if (arguments.length < 1) throw 'too few arguments';
2468 if (arguments.length > 2) throw 'too many arguments';
2469 switch(arguments.length){
2477 return (f1(v183) !== v2 ? "" : f68((function(){
2479 return tmp === v2? v2: tmp.car;
2480 })(), v184, f70((function(){
2482 return tmp === v2? v2: tmp.cdr;
2487 if (cf.type == 'block' && cf.id == 76)
2497 var l39 = f3("INDENT");
2501 return f71 = (function(v185){
2502 ((v185)["fname"] = "INDENT");
2506 for (var i = arguments.length-1; i>=0; i--)
2507 v186 = {car: arguments[i], cdr: v186};
2511 return (function(v187){
2512 return (function(v188,v189,v190){
2513 (f52(v190) !== v2 ? (function(){
2523 if (typeof x != 'number')
2524 throw 'The value ' + x + ' is not a type number.';
2525 if (typeof y != 'number')
2526 throw 'The value ' + y + ' is not a type number.';
2528 })()?v3: v2) !== v2){
2529 v188 = f68(v188, ((f50((function(){
2532 if (typeof string != 'string')
2533 throw 'The value ' + string + ' is not a type string.';
2534 if (typeof index != 'number')
2535 throw 'The value ' + index + ' is not a type number.';
2536 return string.charCodeAt(index);
2537 })(), 10) !== v2 ? (((function(){
2540 if (typeof x != 'number')
2541 throw 'The value ' + x + ' is not a type number.';
2542 if (typeof y != 'number')
2543 throw 'The value ' + y + ' is not a type number.';
2545 })()?v3: v2) !== v2 ? f17(f50((function(){
2547 var index = f12(v189);
2548 if (typeof string != 'string')
2549 throw 'The value ' + string + ' is not a type string.';
2550 if (typeof index != 'number')
2551 throw 'The value ' + index + ' is not a type number.';
2552 return string.charCodeAt(index);
2553 })(), 10)) : v2) : v2) !== v2 ? f68((function(){
2555 if (typeof x != 'number')
2556 throw 'The value ' + x + ' is not a type number.';
2557 return String.fromCharCode(x);
2558 })(), " ") : f62(v187, v189, f12(v189))));
2562 if (typeof x != 'number')
2563 throw 'The value ' + x + ' is not a type number.';
2564 if (typeof y != 'number')
2565 throw 'The value ' + y + ' is not a type number.';
2573 if (cf.type == 'block' && cf.id == 78)
2585 if (cf.type == 'block' && cf.id == 77)
2595 var l40 = f3("INTEGER-TO-STRING");
2599 return f6 = (function(v191){
2600 ((v191)["fname"] = "INTEGER-TO-STRING");
2602 })((function (v192){
2603 if (arguments.length < 1) throw 'too few arguments';
2604 if (arguments.length > 1) throw 'too many arguments';
2608 return (f14(v192) !== v2 ? (function(){
2610 })() : (f53(v192) !== v2 ? (function(){
2611 return f68("-", f6((function(){
2614 if (typeof x != 'number')
2615 throw 'The value ' + x + ' is not a type number.';
2616 if (typeof y != 'number')
2617 throw 'The value ' + y + ' is not a type number.';
2621 return (function(v193){
2626 while(f17(f14(v192)) !== v2){
2627 v193 = ({car: (function(){
2630 if (typeof x != 'number')
2631 throw 'The value ' + x + ' is not a type number.';
2632 if (typeof y != 'number')
2633 throw 'The value ' + y + ' is not a type number.';
2636 v192 = f15(v192, 10);
2642 if (cf.type == 'block' && cf.id == 80)
2648 return f69(f45((function (v194){
2649 if (arguments.length < 1) throw 'too few arguments';
2650 if (arguments.length > 1) throw 'too many arguments';
2652 var x = (function(){
2653 var string = "0123456789";
2655 if (typeof string != 'string')
2656 throw 'The value ' + string + ' is not a type string.';
2657 if (typeof index != 'number')
2658 throw 'The value ' + index + ' is not a type number.';
2659 return string.charCodeAt(index);
2661 if (typeof x != 'number')
2662 throw 'The value ' + x + ' is not a type number.';
2663 return String.fromCharCode(x);
2671 if (cf.type == 'block' && cf.id == 79)
2681 var l41 = f3("JS!BOOL");
2685 return f72 = (function(v195){
2686 ((v195)["fname"] = "JS!BOOL");
2688 })((function (v196){
2689 if (arguments.length < 1) throw 'too few arguments';
2690 if (arguments.length > 1) throw 'too many arguments';
2694 return f68("(", v196, "?", f73(v3), ": ", f73(v2), ")");
2698 if (cf.type == 'block' && cf.id == 81)
2708 var l44 = f3("PRINT");
2710 var l43 = f3("WRITE-LINE");
2712 var l42 = f3("PRIN1-TO-STRING");
2717 return f74 = (function(v197){
2718 ((v197)["fname"] = "PRIN1-TO-STRING");
2720 })((function (v198){
2721 if (arguments.length < 1) throw 'too few arguments';
2722 if (arguments.length > 1) throw 'too many arguments';
2726 return (((function(){
2728 return (typeof tmp == 'object' && 'name' in tmp);
2729 })()?v3: v2) !== v2 ? (function(){
2731 })() : (f51(v198) !== v2 ? (function(){
2733 })() : (((typeof(v198) == "string")?v3: v2) !== v2 ? (function(){
2734 return f68("\"", f75(v198), "\"");
2735 })() : (((typeof v198 == 'function')?v3: v2) !== v2 ? (function(){
2736 return (function(v199){
2737 return (v199 !== v2 ? f68("#<FUNCTION ", v199, ">") : f68("#<FUNCTION>"));
2739 var tmp = (v198)["fname"];
2740 return tmp == undefined? v2: tmp ;
2742 })() : (f36(v198) !== v2 ? (function(){
2743 return f68("(", f70(f45(f74, f56(v198)), " "), (function(v200){
2744 return (f1((function(){
2746 return tmp === v2? v2: tmp.cdr;
2747 })()) !== v2 ? f74((function(){
2749 return tmp === v2? v2: tmp.car;
2750 })()) : f68(f74((function(){
2752 return tmp === v2? v2: tmp.car;
2753 })()), " . ", f74((function(){
2755 return tmp === v2? v2: tmp.cdr;
2757 })(f55(v198)), ")");
2762 if (cf.type == 'block' && cf.id == 82)
2774 return f76 = (function(v201){
2775 ((v201)["fname"] = "WRITE-LINE");
2777 })((function (v202){
2778 if (arguments.length < 1) throw 'too few arguments';
2779 if (arguments.length > 1) throw 'too many arguments';
2785 if (typeof x != 'string')
2786 throw 'The value ' + x + ' is not a type string.';
2787 return lisp.write(x);
2791 if (typeof x != 'string')
2792 throw 'The value ' + x + ' is not a type string.';
2793 return lisp.write(x);
2799 if (cf.type == 'block' && cf.id == 83)
2811 return f77 = (function(v203){
2812 ((v203)["fname"] = "PRINT");
2814 })((function (v204){
2815 if (arguments.length < 1) throw 'too few arguments';
2816 if (arguments.length > 1) throw 'too many arguments';
2825 if (cf.type == 'block' && cf.id == 84)
2836 var l45 = f3("MAKE-STRING-STREAM");
2840 return f78 = (function(v205){
2841 ((v205)["fname"] = "MAKE-STRING-STREAM");
2843 })((function (v206){
2844 if (arguments.length < 1) throw 'too few arguments';
2845 if (arguments.length > 1) throw 'too many arguments';
2849 return ({car: v206, cdr: 0});
2853 if (cf.type == 'block' && cf.id == 85)
2863 var l46 = f3("%PEEK-CHAR");
2867 return f79 = (function(v207){
2868 ((v207)["fname"] = "%PEEK-CHAR");
2870 })((function (v208){
2871 if (arguments.length < 1) throw 'too few arguments';
2872 if (arguments.length > 1) throw 'too many arguments';
2876 return (((function(){
2877 var x = (function(){
2879 return tmp === v2? v2: tmp.cdr;
2881 var y = f43((function(){
2883 return tmp === v2? v2: tmp.car;
2885 if (typeof x != 'number')
2886 throw 'The value ' + x + ' is not a type number.';
2887 if (typeof y != 'number')
2888 throw 'The value ' + y + ' is not a type number.';
2890 })()?v3: v2) !== v2 ? (function(){
2891 var string = (function(){
2893 return tmp === v2? v2: tmp.car;
2895 var index = (function(){
2897 return tmp === v2? v2: tmp.cdr;
2899 if (typeof string != 'string')
2900 throw 'The value ' + string + ' is not a type string.';
2901 if (typeof index != 'number')
2902 throw 'The value ' + index + ' is not a type number.';
2903 return string.charCodeAt(index);
2908 if (cf.type == 'block' && cf.id == 86)
2918 var l47 = f3("%READ-CHAR");
2922 return f80 = (function(v209){
2923 ((v209)["fname"] = "%READ-CHAR");
2925 })((function (v210){
2926 if (arguments.length < 1) throw 'too few arguments';
2927 if (arguments.length > 1) throw 'too many arguments';
2931 return (((function(){
2932 var x = (function(){
2934 return tmp === v2? v2: tmp.cdr;
2936 var y = f43((function(){
2938 return tmp === v2? v2: tmp.car;
2940 if (typeof x != 'number')
2941 throw 'The value ' + x + ' is not a type number.';
2942 if (typeof y != 'number')
2943 throw 'The value ' + y + ' is not a type number.';
2945 })()?v3: v2) !== v2 ? (function(v211){
2948 if (typeof x != 'object')
2949 throw 'The value ' + x + ' is not a type object.';
2950 return (x.cdr = f12((function(){
2952 return tmp === v2? v2: tmp.cdr;
2957 var string = (function(){
2959 return tmp === v2? v2: tmp.car;
2961 var index = (function(){
2963 return tmp === v2? v2: tmp.cdr;
2965 if (typeof string != 'string')
2966 throw 'The value ' + string + ' is not a type string.';
2967 if (typeof index != 'number')
2968 throw 'The value ' + index + ' is not a type number.';
2969 return string.charCodeAt(index);
2974 if (cf.type == 'block' && cf.id == 87)
2984 var l48 = f3("WHITESPACEP");
2988 return f81 = (function(v212){
2989 ((v212)["fname"] = "WHITESPACEP");
2991 })((function (v213){
2992 if (arguments.length < 1) throw 'too few arguments';
2993 if (arguments.length > 1) throw 'too many arguments';
2997 return (function(v214){
2998 return (v214 !== v2 ? v214 : (function(v215){
2999 return (v215 !== v2 ? v215 : f50(v213, 9));
3005 if (cf.type == 'block' && cf.id == 88)
3015 var l49 = f3("SKIP-WHITESPACES");
3019 return f82 = (function(v216){
3020 ((v216)["fname"] = "SKIP-WHITESPACES");
3022 })((function (v217){
3023 if (arguments.length < 1) throw 'too few arguments';
3024 if (arguments.length > 1) throw 'too many arguments';
3028 return (function(v218){
3034 while((v218 !== v2 ? f81(v218) : v2) !== v2){
3042 if (cf.type == 'block' && cf.id == 90)
3052 if (cf.type == 'block' && cf.id == 89)
3062 var l50 = f3("TERMINALP");
3066 return f83 = (function(v219){
3067 ((v219)["fname"] = "TERMINALP");
3069 })((function (v220){
3070 if (arguments.length < 1) throw 'too few arguments';
3071 if (arguments.length > 1) throw 'too many arguments';
3075 return (function(v221){
3076 return (v221 !== v2 ? v221 : (function(v222){
3077 return (v222 !== v2 ? v222 : (function(v223){
3078 return (v223 !== v2 ? v223 : f50(40, v220));
3085 if (cf.type == 'block' && cf.id == 91)
3095 var l51 = f3("READ-UNTIL");
3099 return f84 = (function(v224){
3100 ((v224)["fname"] = "READ-UNTIL");
3102 })((function (v225,v226){
3103 if (arguments.length < 2) throw 'too few arguments';
3104 if (arguments.length > 2) throw 'too many arguments';
3108 return (function(v227,v228){
3114 while((v228 !== v2 ? f17((v226)(v228)) : v2) !== v2){
3115 v227 = f68(v227, (function(){
3117 if (typeof x != 'number')
3118 throw 'The value ' + x + ' is not a type number.';
3119 return String.fromCharCode(x);
3128 if (cf.type == 'block' && cf.id == 93)
3139 if (cf.type == 'block' && cf.id == 92)
3149 var l52 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3153 return f85 = (function(v229){
3154 ((v229)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3156 })((function (v230){
3157 if (arguments.length < 1) throw 'too few arguments';
3158 if (arguments.length > 1) throw 'too many arguments';
3162 return (function(v231){
3169 while((v231 !== v2 ? f50(v231, 59) : v2) !== v2){
3170 f84(v230, (function (v232){
3171 if (arguments.length < 1) throw 'too few arguments';
3172 if (arguments.length > 1) throw 'too many arguments';
3173 return f50(v232, 10);
3182 if (cf.type == 'block' && cf.id == 95)
3192 if (cf.type == 'block' && cf.id == 94)
3202 var l53 = f3("%READ-LIST");
3206 return f86 = (function(v233){
3207 ((v233)["fname"] = "%READ-LIST");
3209 })((function (v234){
3210 if (arguments.length < 1) throw 'too few arguments';
3211 if (arguments.length > 1) throw 'too many arguments';
3216 return (function(v235){
3217 return (f1(v235) !== v2 ? (function(){
3218 return (function (){ throw "Unspected EOF"; })();
3219 })() : (f50(v235, 41) !== v2 ? (function(){
3222 })() : (f50(v235, 46) !== v2 ? (function(){
3224 return (function(v236){
3226 (f50(f80(v234), 41) !== v2 ? v2 : (function(){
3227 return (function (){ throw "')' was expected."; })();
3232 return ({car: f87(v234), cdr: f86(v234)});
3238 if (cf.type == 'block' && cf.id == 96)
3248 var l54 = f3("READ-STRING");
3252 return f88 = (function(v237){
3253 ((v237)["fname"] = "READ-STRING");
3255 })((function (v238){
3256 if (arguments.length < 1) throw 'too few arguments';
3257 if (arguments.length > 1) throw 'too many arguments';
3261 return (function(v239,v240){
3267 while(f17(f16(v240, 34)) !== v2){
3268 (f1(v240) !== v2 ? (function(){
3269 return (function (){ throw "Unexpected EOF"; })();
3271 (f16(v240, 92) !== v2 ? (function(){
3272 return v240 = f80(v238);
3274 v239 = f68(v239, (function(){
3276 if (typeof x != 'number')
3277 throw 'The value ' + x + ' is not a type number.';
3278 return String.fromCharCode(x);
3286 if (cf.type == 'block' && cf.id == 98)
3297 if (cf.type == 'block' && cf.id == 97)
3307 var l59 = f3("READ-SHARP");
3310 var l56 = f3("FUNCTION");
3315 return f89 = (function(v241){
3316 ((v241)["fname"] = "READ-SHARP");
3318 })((function (v242){
3319 if (arguments.length < 1) throw 'too few arguments';
3320 if (arguments.length > 1) throw 'too many arguments';
3325 return (function(v243){
3326 return (f16(v243, l55) !== v2 ? (function(){
3327 return f33(l56, f87(v242));
3328 })() : (f16(v243, l57) !== v2 ? (function(){
3329 return (function(v244){
3330 return (f67(v244, "space") !== v2 ? (function(){
3332 })() : (f67(v244, "tab") !== v2 ? (function(){
3334 })() : (f67(v244, "newline") !== v2 ? (function(){
3337 return f49((function(){
3340 if (typeof string != 'string')
3341 throw 'The value ' + string + ' is not a type string.';
3342 if (typeof index != 'number')
3343 throw 'The value ' + index + ' is not a type number.';
3344 return string.charCodeAt(index);
3349 if (typeof x != 'number')
3350 throw 'The value ' + x + ' is not a type number.';
3351 return String.fromCharCode(x);
3352 })(), f84(v242, f83)));
3353 })() : (f16(v243, l58) !== v2 ? (function(){
3354 return (function(v245){
3355 return (f67(v245, "common-lisp") !== v2 ? (function(){
3358 })() : (f67(v245, "ecmalisp") !== v2 ? (function(){
3361 return (function (){ throw "Unknown reader form."; })();
3365 return (function (){ throw "ECASE expression failed."; })();
3371 if (cf.type == 'block' && cf.id == 99)
3381 var l60 = f3("*EOF*");
3385 return v246 = (function(){
3387 if (typeof name != 'string')
3388 throw 'The value ' + name + ' is not a type string.';
3389 return ({name: name});
3394 var l65 = f3("LS-READ");
3395 var l64 = f3("UNQUOTE");
3396 var l63 = f3("UNQUOTE-SPLICING");
3397 var l62 = f3("BACKQUOTE");
3398 var l61 = f3("QUOTE");
3402 return f87 = (function(v247){
3403 ((v247)["fname"] = "LS-READ");
3405 })((function (v248){
3406 if (arguments.length < 1) throw 'too few arguments';
3407 if (arguments.length > 1) throw 'too many arguments';
3412 return (function(v249){
3413 return (f1(v249) !== v2 ? (function(){
3415 })() : (f50(v249, 40) !== v2 ? (function(){
3418 })() : (f50(v249, 39) !== v2 ? (function(){
3420 return f33(l61, f87(v248));
3421 })() : (f50(v249, 96) !== v2 ? (function(){
3423 return f33(l62, f87(v248));
3424 })() : (f50(v249, 34) !== v2 ? (function(){
3427 })() : (f50(v249, 44) !== v2 ? (function(){
3429 return (f16(f79(v248), 64) !== v2 ? (function(){
3431 return f33(l63, f87(v248));
3432 })() : f33(l64, f87(v248)));
3433 })() : (f50(v249, 35) !== v2 ? (function(){
3436 return (function(v250){
3437 return (f65(f61, v250) !== v2 ? f63(v250) : f3((function(){
3439 if (typeof x != 'string')
3440 throw 'The value ' + x + ' is not a type string.';
3441 return x.toUpperCase();
3449 if (cf.type == 'block' && cf.id == 100)
3459 var l66 = f3("LS-READ-FROM-STRING");
3463 return f90 = (function(v251){
3464 ((v251)["fname"] = "LS-READ-FROM-STRING");
3466 })((function (v252){
3467 if (arguments.length < 1) throw 'too few arguments';
3468 if (arguments.length > 1) throw 'too many arguments';
3472 return f87(f78(v252));
3476 if (cf.type == 'block' && cf.id == 101)
3486 var l68 = f3("*COMPILATION-UNIT-CHECKS*");
3487 var l67 = f3("NIL");
3495 var l69 = f3("MAKE-BINDING");
3499 return f91 = (function(v254){
3500 ((v254)["fname"] = "MAKE-BINDING");
3502 })((function (v255,v256,v257,v258){
3503 if (arguments.length < 4) throw 'too few arguments';
3504 if (arguments.length > 4) throw 'too many arguments';
3508 return f33(v255, v256, v257, v258);
3512 if (cf.type == 'block' && cf.id == 102)
3522 var l70 = f3("BINDING-NAME");
3526 return f92 = (function(v259){
3527 ((v259)["fname"] = "BINDING-NAME");
3529 })((function (v260){
3530 if (arguments.length < 1) throw 'too few arguments';
3531 if (arguments.length > 1) throw 'too many arguments';
3539 if (cf.type == 'block' && cf.id == 103)
3549 var l71 = f3("BINDING-TYPE");
3553 return f93 = (function(v261){
3554 ((v261)["fname"] = "BINDING-TYPE");
3556 })((function (v262){
3557 if (arguments.length < 1) throw 'too few arguments';
3558 if (arguments.length > 1) throw 'too many arguments';
3566 if (cf.type == 'block' && cf.id == 104)
3576 var l72 = f3("BINDING-TRANSLATION");
3580 return f94 = (function(v263){
3581 ((v263)["fname"] = "BINDING-TRANSLATION");
3583 })((function (v264){
3584 if (arguments.length < 1) throw 'too few arguments';
3585 if (arguments.length > 1) throw 'too many arguments';
3593 if (cf.type == 'block' && cf.id == 105)
3603 var l73 = f3("BINDING-DECLARED");
3607 return f95 = (function(v265){
3608 ((v265)["fname"] = "BINDING-DECLARED");
3610 })((function (v266){
3611 if (arguments.length < 1) throw 'too few arguments';
3612 if (arguments.length > 1) throw 'too many arguments';
3616 return (v266 !== v2 ? f32(v266) : v2);
3620 if (cf.type == 'block' && cf.id == 106)
3630 var l74 = f3("MARK-BINDING-AS-DECLARED");
3634 return f96 = (function(v267){
3635 ((v267)["fname"] = "MARK-BINDING-AS-DECLARED");
3637 })((function (v268){
3638 if (arguments.length < 1) throw 'too few arguments';
3639 if (arguments.length > 1) throw 'too many arguments';
3645 if (typeof x != 'object')
3646 throw 'The value ' + x + ' is not a type object.';
3647 return (x.car = v3);
3652 if (cf.type == 'block' && cf.id == 107)
3662 var l75 = f3("MAKE-LEXENV");
3666 return f97 = (function(v269){
3667 ((v269)["fname"] = "MAKE-LEXENV");
3670 if (arguments.length > 0) throw 'too many arguments';
3674 return f33(v2, v2, v2, v2);
3678 if (cf.type == 'block' && cf.id == 108)
3688 var l76 = f3("COPY-LEXENV");
3692 return f98 = (function(v270){
3693 ((v270)["fname"] = "COPY-LEXENV");
3695 })((function (v271){
3696 if (arguments.length < 1) throw 'too few arguments';
3697 if (arguments.length > 1) throw 'too many arguments';
3705 if (cf.type == 'block' && cf.id == 109)
3715 var l81 = f3("PUSH-TO-LEXENV");
3716 var l80 = f3("GOTAG");
3717 var l79 = f3("BLOCK");
3718 var l78 = f3("FUNCTION");
3719 var l77 = f3("VARIABLE");
3723 return f99 = (function(v272){
3724 ((v272)["fname"] = "PUSH-TO-LEXENV");
3726 })((function (v273,v274,v275){
3727 if (arguments.length < 3) throw 'too few arguments';
3728 if (arguments.length > 3) throw 'too many arguments';
3732 return (function(v276){
3733 return (f16(v276, l77) !== v2 ? (function(){
3736 if (typeof x != 'object')
3737 throw 'The value ' + x + ' is not a type object.';
3738 return (x.car = ({car: v273, cdr: (function(){
3740 return tmp === v2? v2: tmp.car;
3743 })() : (f16(v276, l78) !== v2 ? (function(){
3745 var x = (function(){
3747 return tmp === v2? v2: tmp.cdr;
3749 if (typeof x != 'object')
3750 throw 'The value ' + x + ' is not a type object.';
3751 return (x.car = ({car: v273, cdr: f23(v274)}));
3753 })() : (f16(v276, l79) !== v2 ? (function(){
3756 if (typeof x != 'object')
3757 throw 'The value ' + x + ' is not a type object.';
3758 return (x.car = ({car: v273, cdr: f26(v274)}));
3760 })() : (f16(v276, l80) !== v2 ? (function(){
3763 if (typeof x != 'object')
3764 throw 'The value ' + x + ' is not a type object.';
3765 return (x.car = ({car: v273, cdr: f28(v274)}));
3768 return (function (){ throw "ECASE expression failed."; })();
3774 if (cf.type == 'block' && cf.id == 110)
3784 var l82 = f3("EXTEND-LEXENV");
3788 return f100 = (function(v277){
3789 ((v277)["fname"] = "EXTEND-LEXENV");
3791 })((function (v278,v279,v280){
3792 if (arguments.length < 3) throw 'too few arguments';
3793 if (arguments.length > 3) throw 'too many arguments';
3797 return (function(v281){
3801 return (function(v282,v283){
3806 return tmp === v2? v2: tmp.car;
3809 f99(v283, v281, v280);
3814 return tmp === v2? v2: tmp.cdr;
3823 if (cf.type == 'block' && cf.id == 112)
3833 if (cf.type == 'block' && cf.id == 111)
3843 var l87 = f3("LOOKUP-IN-LEXENV");
3844 var l86 = f3("GOTAG");
3845 var l85 = f3("BLOCK");
3846 var l84 = f3("FUNCTION");
3847 var l83 = f3("VARIABLE");
3851 return f101 = (function(v284){
3852 ((v284)["fname"] = "LOOKUP-IN-LEXENV");
3854 })((function (v285,v286,v287){
3855 if (arguments.length < 3) throw 'too few arguments';
3856 if (arguments.length > 3) throw 'too many arguments';
3860 return f66(v285, (function(v288){
3861 return (f16(v288, l83) !== v2 ? (function(){
3863 })() : (f16(v288, l84) !== v2 ? (function(){
3865 })() : (f16(v288, l85) !== v2 ? (function(){
3867 })() : (f16(v288, l86) !== v2 ? (function(){
3870 return (function (){ throw "ECASE expression failed."; })();
3876 if (cf.type == 'block' && cf.id == 113)
3886 var l88 = f3("*ENVIRONMENT*");
3890 return v289 = f97();
3894 var l89 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3898 return f102 = (function(v290){
3899 ((v290)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3902 if (arguments.length > 0) throw 'too many arguments';
3906 return (function(v291,v292){
3907 return v289 = f33(v291, v292, f31(v289));
3908 })(f29(v289),f30(v289));
3912 if (cf.type == 'block' && cf.id == 114)
3922 var l90 = f3("*VARIABLE-COUNTER*");
3930 var l91 = f3("GVARNAME");
3934 return f103 = (function(v294){
3935 ((v294)["fname"] = "GVARNAME");
3937 })((function (v295){
3938 if (arguments.length < 1) throw 'too few arguments';
3939 if (arguments.length > 1) throw 'too many arguments';
3943 return f68("v", f6(v293 = (function(){
3946 if (typeof x != 'number')
3947 throw 'The value ' + x + ' is not a type number.';
3948 if (typeof y != 'number')
3949 throw 'The value ' + y + ' is not a type number.';
3955 if (cf.type == 'block' && cf.id == 115)
3965 var l97 = f3("LOOKUP-VARIABLE");
3966 var l96 = f3("VARIABLE");
3967 var l95 = f3("VARIABLE");
3968 var l94 = f3("VARIABLE");
3969 var l93 = f3("VARIABLE");
3970 var l92 = f3("VARIABLE");
3974 return f104 = (function(v296){
3975 ((v296)["fname"] = "LOOKUP-VARIABLE");
3977 })((function (v297,v298){
3978 if (arguments.length < 2) throw 'too few arguments';
3979 if (arguments.length > 2) throw 'too many arguments';
3983 return (function(v299){
3984 return (v299 !== v2 ? v299 : (function(v300){
3985 return (v300 !== v2 ? v300 : (function(v301,v302){
3986 f99(v302, v289, l92);
3987 v253 = ({car: (function (){
3988 if (arguments.length > 0) throw 'too many arguments';
3989 return (f101(v297, v289, l93) !== v2 ? v2 : (function(){
3990 return (function (){ throw f68("Undefined variable `", v301, "'"); })();
3994 })((v297).name,f91(v297, l94, f103(v297), v2)));
3995 })(f101(v297, v289, l95)));
3996 })(f101(v297, v298, l96));
4000 if (cf.type == 'block' && cf.id == 116)
4010 var l98 = f3("LOOKUP-VARIABLE-TRANSLATION");
4014 return f105 = (function(v303){
4015 ((v303)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4017 })((function (v304,v305){
4018 if (arguments.length < 2) throw 'too few arguments';
4019 if (arguments.length > 2) throw 'too many arguments';
4023 return f94(f104(v304, v305));
4027 if (cf.type == 'block' && cf.id == 117)
4037 var l101 = f3("EXTEND-LOCAL-ENV");
4038 var l100 = f3("VARIABLE");
4039 var l99 = f3("VARIABLE");
4043 return f106 = (function(v306){
4044 ((v306)["fname"] = "EXTEND-LOCAL-ENV");
4046 })((function (v307,v308){
4047 if (arguments.length < 2) throw 'too few arguments';
4048 if (arguments.length > 2) throw 'too many arguments';
4052 return (function(v309){
4056 return (function(v310,v311){
4061 return tmp === v2? v2: tmp.car;
4065 return f99(v312, v309, l99);
4066 })(f91(v311, l100, f103(v311), v3));
4071 return tmp === v2? v2: tmp.cdr;
4080 if (cf.type == 'block' && cf.id == 119)
4090 if (cf.type == 'block' && cf.id == 118)
4100 var l102 = f3("*FUNCTION-COUNTER*");
4108 var l108 = f3("LOOKUP-FUNCTION");
4109 var l107 = f3("FUNCTION");
4110 var l106 = f3("FUNCTION");
4111 var l105 = f3("FUNCTION");
4112 var l104 = f3("FUNCTION");
4113 var l103 = f3("FUNCTION");
4117 return f107 = (function(v314){
4118 ((v314)["fname"] = "LOOKUP-FUNCTION");
4120 })((function (v315,v316){
4121 if (arguments.length < 2) throw 'too few arguments';
4122 if (arguments.length > 2) throw 'too many arguments';
4126 return (function(v317){
4127 return (v317 !== v2 ? v317 : (function(v318){
4128 return (v318 !== v2 ? v318 : (function(v319,v320){
4129 f99(v320, v289, l103);
4130 v253 = ({car: (function (){
4131 if (arguments.length > 0) throw 'too many arguments';
4132 return (f95(f101(v315, v289, l104)) !== v2 ? v2 : (function(){
4133 return (function (){ throw f68("Undefined function `", v319, "'"); })();
4137 })((v315).name,f91(v315, l105, f68("f", f6(v313 = (function(){
4140 if (typeof x != 'number')
4141 throw 'The value ' + x + ' is not a type number.';
4142 if (typeof y != 'number')
4143 throw 'The value ' + y + ' is not a type number.';
4146 })(f101(v315, v289, l106)));
4147 })(f101(v315, v316, l107));
4151 if (cf.type == 'block' && cf.id == 120)
4161 var l109 = f3("LOOKUP-FUNCTION-TRANSLATION");
4165 return f108 = (function(v321){
4166 ((v321)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4168 })((function (v322,v323){
4169 if (arguments.length < 2) throw 'too few arguments';
4170 if (arguments.length > 2) throw 'too many arguments';
4174 return f94(f107(v322, v323));
4178 if (cf.type == 'block' && cf.id == 121)
4188 var l110 = f3("*TOPLEVEL-COMPILATIONS*");
4196 var l111 = f3("%COMPILE-DEFVAR");
4200 return f109 = (function(v325){
4201 ((v325)["fname"] = "%COMPILE-DEFVAR");
4203 })((function (v326){
4204 if (arguments.length < 1) throw 'too few arguments';
4205 if (arguments.length > 1) throw 'too many arguments';
4209 return (function(v327){
4211 return v324 = ({car: f68("var ", f94(v327)), cdr: v324});
4212 })(f104(v326, v289));
4216 if (cf.type == 'block' && cf.id == 122)
4226 var l112 = f3("%COMPILE-DEFUN");
4230 return f110 = (function(v328){
4231 ((v328)["fname"] = "%COMPILE-DEFUN");
4233 })((function (v329){
4234 if (arguments.length < 1) throw 'too few arguments';
4235 if (arguments.length > 1) throw 'too many arguments';
4239 return (function(v330){
4241 return v324 = ({car: f68("var ", f94(v330)), cdr: v324});
4242 })(f107(v329, v289));
4246 if (cf.type == 'block' && cf.id == 123)
4256 var l115 = f3("%COMPILE-DEFMACRO");
4257 var l114 = f3("FUNCTION");
4258 var l113 = f3("MACRO");
4262 return f111 = (function(v331){
4263 ((v331)["fname"] = "%COMPILE-DEFMACRO");
4265 })((function (v332,v333){
4266 if (arguments.length < 2) throw 'too few arguments';
4267 if (arguments.length > 2) throw 'too many arguments';
4271 return f99(f91(v332, l113, v333, v3), v289, l114);
4275 if (cf.type == 'block' && cf.id == 124)
4285 var l116 = f3("*COMPILATIONS*");
4293 var l117 = f3("LS-COMPILE-BLOCK");
4297 return f112 = (function(v335){
4298 ((v335)["fname"] = "LS-COMPILE-BLOCK");
4300 })((function (v336,v337){
4301 if (arguments.length < 2) throw 'too few arguments';
4302 if (arguments.length > 2) throw 'too many arguments';
4306 return f70(f59((function (v338){
4307 if (arguments.length < 1) throw 'too few arguments';
4308 if (arguments.length > 1) throw 'too many arguments';
4309 return (function(v339){
4310 return (v339 !== v2 ? v339 : (((typeof(v338) == "string")?v3: v2) !== v2 ? f14(f43(v338)) : v2));
4312 }), f45((function (v340){
4313 if (arguments.length < 1) throw 'too few arguments';
4314 if (arguments.length > 1) throw 'too many arguments';
4315 return f73(v340, v337);
4316 }), v336)), f68(";", v176));
4320 if (cf.type == 'block' && cf.id == 125)
4330 var l118 = f3("IF");
4331 v334 = ({car: f33(l118, (function (v341,v342,v343,v344){
4332 if (arguments.length < 4) throw 'too few arguments';
4333 if (arguments.length > 4) throw 'too many arguments';
4337 return f68("(", f73(v342, v341), " !== ", f73(v2), " ? ", f73(v343, v341), " : ", f73(v344, v341), ")");
4341 if (cf.type == 'block' && cf.id == 126)
4348 var l120 = f3("*LAMBDA-LIST-KEYWORDS*");
4349 var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4357 var l121 = f3("LIST-UNTIL-KEYWORD");
4361 return f113 = (function(v346){
4362 ((v346)["fname"] = "LIST-UNTIL-KEYWORD");
4364 })((function (v347){
4365 if (arguments.length < 1) throw 'too few arguments';
4366 if (arguments.length > 1) throw 'too many arguments';
4370 return ((function(v348){
4371 return (v348 !== v2 ? v348 : f57((function(){
4373 return tmp === v2? v2: tmp.car;
4375 })(f1(v347)) !== v2 ? v2 : ({car: (function(){
4377 return tmp === v2? v2: tmp.car;
4378 })(), cdr: f113((function(){
4380 return tmp === v2? v2: tmp.cdr;
4385 if (cf.type == 'block' && cf.id == 127)
4395 var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4399 return f114 = (function(v349){
4400 ((v349)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4402 })((function (v350){
4403 if (arguments.length < 1) throw 'too few arguments';
4404 if (arguments.length > 1) throw 'too many arguments';
4412 if (cf.type == 'block' && cf.id == 128)
4422 var l124 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4423 var l123 = f3("&OPTIONAL");
4427 return f115 = (function(v351){
4428 ((v351)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4430 })((function (v352){
4431 if (arguments.length < 1) throw 'too few arguments';
4432 if (arguments.length > 1) throw 'too many arguments';
4436 return f45(f35, f113((function(){
4437 var tmp = f57(l123, v352);
4438 return tmp === v2? v2: tmp.cdr;
4443 if (cf.type == 'block' && cf.id == 129)
4453 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4457 return f116 = (function(v353){
4458 ((v353)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4460 })((function (v354){
4461 if (arguments.length < 1) throw 'too few arguments';
4462 if (arguments.length > 1) throw 'too many arguments';
4466 return f45(f20, f115(v354));
4470 if (cf.type == 'block' && cf.id == 130)
4480 var l127 = f3("LAMBDA-LIST-REST-ARGUMENT");
4481 var l126 = f3("&REST");
4485 return f117 = (function(v355){
4486 ((v355)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4488 })((function (v356){
4489 if (arguments.length < 1) throw 'too few arguments';
4490 if (arguments.length > 1) throw 'too many arguments';
4494 return (function(v357){
4497 return tmp === v2? v2: tmp.cdr;
4498 })() !== v2 ? (function(){
4499 return (function (){ throw "Bad lambda-list"; })();
4503 return tmp === v2? v2: tmp.car;
4505 })(f113((function(){
4506 var tmp = f57(l126, v356);
4507 return tmp === v2? v2: tmp.cdr;
4512 if (cf.type == 'block' && cf.id == 131)
4522 var l128 = f3("LAMBDA");
4523 v334 = ({car: f33(l128, (function (v359,v360){
4524 if (arguments.length < 2) throw 'too few arguments';
4526 for (var i = arguments.length-1; i>=2; i--)
4527 v358 = {car: arguments[i], cdr: v358};
4531 return (function(v361,v362,v363){
4532 return (function(v364,v365,v366){
4533 return f68("(function (", f69(f45((function (v367){
4534 if (arguments.length < 1) throw 'too few arguments';
4535 if (arguments.length > 1) throw 'too many arguments';
4536 return f105(v367, v366);
4537 }), 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(){
4540 if (typeof x != 'number')
4541 throw 'The value ' + x + ' is not a type number.';
4542 if (typeof y != 'number')
4543 throw 'The value ' + y + ' is not a type number.';
4545 })()), ") throw 'too many arguments';", v176) : ""), (v362 !== v2 ? f68("switch(arguments.length){", v176, (function(v368,v369,v370){
4554 if (typeof x != 'number')
4555 throw 'The value ' + x + ' is not a type number.';
4556 if (typeof y != 'number')
4557 throw 'The value ' + y + ' is not a type number.';
4559 })()?v3: v2) !== v2){
4561 v369 = ({car: f68("case ", f6((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.';
4569 })()), ":", v176, f105((function(){
4571 return tmp === v2? v2: tmp.car;
4572 })(), v366), "=", f73(f23(v371), v366), ";", v176), cdr: v369});
4573 return v370 = (function(){
4576 if (typeof x != 'number')
4577 throw 'The value ' + x + ' is not a type number.';
4578 if (typeof y != 'number')
4579 throw 'The value ' + y + ' is not a type number.';
4582 })(f54(v370, v368));
4588 if (cf.type == 'block' && cf.id == 133)
4594 v369 = ({car: f68("default: break;", v176), cdr: v369});
4595 return f69(f41(v369));
4597 })(f115(v360),v2,0), "}", v176) : ""), (v363 !== v2 ? (function(v372){
4598 return f68("var ", v372, "= ", f73(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){
4601 if (typeof x != 'number')
4602 throw 'The value ' + x + ' is not a type number.';
4603 if (typeof y != 'number')
4604 throw 'The value ' + y + ' is not a type number.';
4606 })()), "; i--)", v176, f71(v372, " = ", "{car: arguments[i], cdr: "), v372, "};", v176);
4607 })(f105(v363, v366)) : ""), f68(f112(f56(v358), v366), "return ", f73((function(){
4608 var tmp = f55(v358);
4609 return tmp === v2? v2: tmp.car;
4610 })(), v366), ";")), v176, "})");
4611 })(f43(v361),f43(v362),f106(f39(f35(v363), v361, v362), v359));
4612 })(f114(v360),f116(v360),f117(v360));
4616 if (cf.type == 'block' && cf.id == 132)
4623 var l129 = f3("FSETQ");
4624 v334 = ({car: f33(l129, (function (v373,v374,v375){
4625 if (arguments.length < 3) throw 'too few arguments';
4626 if (arguments.length > 3) throw 'too many arguments';
4630 return f68(f108(v374, v373), " = ", f73(v375, v373));
4634 if (cf.type == 'block' && cf.id == 134)
4641 var l130 = f3("SETQ");
4642 v334 = ({car: f33(l130, (function (v376,v377,v378){
4643 if (arguments.length < 3) throw 'too few arguments';
4644 if (arguments.length > 3) throw 'too many arguments';
4648 return f68(f105(v377, v376), " = ", f73(v378, v376));
4652 if (cf.type == 'block' && cf.id == 135)
4659 var l131 = f3("ESCAPE-STRING");
4663 return f75 = (function(v379){
4664 ((v379)["fname"] = "ESCAPE-STRING");
4666 })((function (v380){
4667 if (arguments.length < 1) throw 'too few arguments';
4668 if (arguments.length > 1) throw 'too many arguments';
4672 return (function(v381,v382,v383){
4680 if (typeof x != 'number')
4681 throw 'The value ' + x + ' is not a type number.';
4682 if (typeof y != 'number')
4683 throw 'The value ' + y + ' is not a type number.';
4685 })()?v3: v2) !== v2){
4688 return (v385 !== v2 ? v385 : f50(v384, 92));
4689 })(f50(v384, 34)) !== v2 ? (function(){
4690 return v381 = f68(v381, "\\");
4692 (f50(v384, 10) !== v2 ? (function(){
4693 v381 = f68(v381, "\\");
4696 return v381 = f68(v381, (function(){
4698 if (typeof x != 'number')
4699 throw 'The value ' + x + ' is not a type number.';
4700 return String.fromCharCode(x);
4705 if (typeof string != 'string')
4706 throw 'The value ' + string + ' is not a type string.';
4707 if (typeof index != 'number')
4708 throw 'The value ' + index + ' is not a type number.';
4709 return string.charCodeAt(index);
4714 if (typeof x != 'number')
4715 throw 'The value ' + x + ' is not a type number.';
4716 if (typeof y != 'number')
4717 throw 'The value ' + y + ' is not a type number.';
4725 if (cf.type == 'block' && cf.id == 137)
4736 if (cf.type == 'block' && cf.id == 136)
4746 var l133 = f3("LITERAL->JS");
4747 var l132 = f3("INTERN");
4751 return f118 = (function(v386){
4752 ((v386)["fname"] = "LITERAL->JS");
4754 })((function (v387){
4755 if (arguments.length < 1) throw 'too few arguments';
4756 if (arguments.length > 1) throw 'too many arguments';
4760 return (f51(v387) !== v2 ? (function(){
4762 })() : (((typeof(v387) == "string")?v3: v2) !== v2 ? (function(){
4763 return f68("\"", f75(v387), "\"");
4764 })() : (((function(){
4766 return (typeof tmp == 'object' && 'name' in tmp);
4767 })()?v3: v2) !== v2 ? (function(){
4768 return f73(f39(f33(l132), f33(f75((v387).name))), v289);
4769 })() : (((function(){
4771 return (typeof tmp == 'object' && 'car' in tmp);
4772 })()?v3: v2) !== v2 ? (function(){
4773 return f68("{car: ", f118((function(){
4775 return tmp === v2? v2: tmp.car;
4776 })()), ", cdr: ", f118((function(){
4778 return tmp === v2? v2: tmp.cdr;
4784 if (cf.type == 'block' && cf.id == 138)
4794 var l134 = f3("*LITERAL-COUNTER*");
4802 var l135 = f3("LITERAL");
4806 return f119 = (function(v389){
4807 ((v389)["fname"] = "LITERAL");
4809 })((function (v390){
4810 if (arguments.length < 1) throw 'too few arguments';
4811 if (arguments.length > 1) throw 'too many arguments';
4815 return (function(v391){
4816 v324 = ({car: f68("var ", v391, " = ", f118(v390)), cdr: v324});
4818 })(f68("l", f6(v388 = (function(){
4821 if (typeof x != 'number')
4822 throw 'The value ' + x + ' is not a type number.';
4823 if (typeof y != 'number')
4824 throw 'The value ' + y + ' is not a type number.';
4830 if (cf.type == 'block' && cf.id == 139)
4840 var l136 = f3("QUOTE");
4841 v334 = ({car: f33(l136, (function (v392,v393){
4842 if (arguments.length < 2) throw 'too few arguments';
4843 if (arguments.length > 2) throw 'too many arguments';
4851 if (cf.type == 'block' && cf.id == 140)
4858 var l137 = f3("%WHILE");
4859 v334 = ({car: f33(l137, (function (v395,v396){
4860 if (arguments.length < 2) throw 'too few arguments';
4862 for (var i = arguments.length-1; i>=2; i--)
4863 v394 = {car: arguments[i], cdr: v394};
4867 return f68("(function(){", v176, f71("while(", f73(v396, v395), " !== ", f73(v2), "){", v176, f71(f112(v394, v395)), "}", "return ", f73(v2), ";", v176), "})()");
4871 if (cf.type == 'block' && cf.id == 141)
4878 var l139 = f3("LAMBDA");
4879 var l138 = f3("FUNCTION");
4880 v334 = ({car: f33(l138, (function (v397,v398){
4881 if (arguments.length < 2) throw 'too few arguments';
4882 if (arguments.length > 2) throw 'too many arguments';
4886 return ((f36(v398) !== v2 ? (((function(){
4888 return tmp === v2? v2: tmp.car;
4889 })() === l139)?v3: v2) : v2) !== v2 ? (function(){
4890 return f73(v398, v397);
4891 })() : (((function(){
4893 return (typeof tmp == 'object' && 'name' in tmp);
4894 })()?v3: v2) !== v2 ? (function(){
4895 return f108(v398, v397);
4900 if (cf.type == 'block' && cf.id == 142)
4907 var l141 = f3("PROGN");
4908 var l140 = f3("EVAL-WHEN-COMPILE");
4909 v334 = ({car: f33(l140, (function (v400){
4910 if (arguments.length < 1) throw 'too few arguments';
4912 for (var i = arguments.length-1; i>=1; i--)
4913 v399 = {car: arguments[i], cdr: v399};
4917 f120(({car: l141, cdr: v399}));
4922 if (cf.type == 'block' && cf.id == 143)
4929 var l142 = f3("PROGN");
4930 v334 = ({car: f33(l142, (function (v402){
4931 if (arguments.length < 1) throw 'too few arguments';
4933 for (var i = arguments.length-1; i>=1; i--)
4934 v401 = {car: arguments[i], cdr: v401};
4938 return f68("(function(){", v176, f71(f112(f56(v401), v402), "return ", f73((function(){
4939 var tmp = f55(v401);
4940 return tmp === v2? v2: tmp.car;
4941 })(), v402), ";", v176), "})()");
4945 if (cf.type == 'block' && cf.id == 144)
4952 var l143 = f3("LET");
4953 v334 = ({car: f33(l143, (function (v404,v405){
4954 if (arguments.length < 2) throw 'too few arguments';
4956 for (var i = arguments.length-1; i>=2; i--)
4957 v403 = {car: arguments[i], cdr: v403};
4961 return (function(v406){
4962 return (function(v407,v408){
4963 return (function(v409){
4964 return f68("(function(", f69(f45((function (v410){
4965 if (arguments.length < 1) throw 'too few arguments';
4966 if (arguments.length > 1) throw 'too many arguments';
4967 return f105(v410, v409);
4968 }), v407), ","), "){", v176, f71(f112(f56(v403), v409), "return ", f73((function(){
4969 var tmp = f55(v403);
4970 return tmp === v2? v2: tmp.car;
4971 })(), v409), ";", v176), "})(", f69(f45((function (v411){
4972 if (arguments.length < 1) throw 'too few arguments';
4973 if (arguments.length > 1) throw 'too many arguments';
4974 return f73(v411, v404);
4975 }), v408), ","), ")");
4976 })(f106(v407, v404));
4977 })(f45(f29, v406),f45(f30, v406));
4982 if (cf.type == 'block' && cf.id == 145)
4989 var l144 = f3("*BLOCK-COUNTER*");
4997 var l148 = f3("BLOCK");
4998 var l147 = f3("BLOCK");
4999 var l146 = f3("PROGN");
5000 var l145 = f3("BLOCK");
5001 v334 = ({car: f33(l145, (function (v414,v415){
5002 if (arguments.length < 2) throw 'too few arguments';
5004 for (var i = arguments.length-1; i>=2; i--)
5005 v413 = {car: arguments[i], cdr: v413};
5009 return (function(v416){
5010 return (function(v417){
5011 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), "})()");
5012 })(f91(v415, l148, v416, v3));
5013 })(f6(v412 = (function(){
5016 if (typeof x != 'number')
5017 throw 'The value ' + x + ' is not a type number.';
5018 if (typeof y != 'number')
5019 throw 'The value ' + y + ' is not a type number.';
5025 if (cf.type == 'block' && cf.id == 146)
5032 var l150 = f3("BLOCK");
5033 var l149 = f3("RETURN-FROM");
5034 v334 = ({car: f33(l149, (function (v418,v419,v420){
5035 if (arguments.length < 2) throw 'too few arguments';
5036 if (arguments.length > 3) throw 'too many arguments';
5037 switch(arguments.length){
5045 return (function(v421){
5046 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, "'."); })());
5047 })(f101(v419, v418, l150));
5051 if (cf.type == 'block' && cf.id == 147)
5058 var l152 = f3("PROGN");
5059 var l151 = f3("CATCH");
5060 v334 = ({car: f33(l151, (function (v423,v424){
5061 if (arguments.length < 2) throw 'too few arguments';
5063 for (var i = arguments.length-1; i>=2; i--)
5064 v422 = {car: arguments[i], cdr: v422};
5068 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), "})()");
5072 if (cf.type == 'block' && cf.id == 148)
5079 var l153 = f3("THROW");
5080 v334 = ({car: f33(l153, (function (v425,v426,v427){
5081 if (arguments.length < 2) throw 'too few arguments';
5082 if (arguments.length > 3) throw 'too many arguments';
5083 switch(arguments.length){
5091 return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v426, v425), ", ", "value: ", f73(v427, v425), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5095 if (cf.type == 'block' && cf.id == 149)
5102 var l154 = f3("*TAGBODY-COUNTER*");
5110 var l155 = f3("*GO-TAG-COUNTER*");
5118 var l156 = f3("GO-TAG-P");
5122 return f121 = (function(v430){
5123 ((v430)["fname"] = "GO-TAG-P");
5125 })((function (v431){
5126 if (arguments.length < 1) throw 'too few arguments';
5127 if (arguments.length > 1) throw 'too many arguments';
5131 return (function(v432){
5132 return (v432 !== v2 ? v432 : ((function(){
5134 return (typeof tmp == 'object' && 'name' in tmp);
5140 if (cf.type == 'block' && cf.id == 150)
5150 var l159 = f3("DECLARE-TAGBODY-TAGS");
5151 var l158 = f3("GOTAG");
5152 var l157 = f3("GOTAG");
5156 return f122 = (function(v433){
5157 ((v433)["fname"] = "DECLARE-TAGBODY-TAGS");
5159 })((function (v434,v435,v436){
5160 if (arguments.length < 3) throw 'too few arguments';
5161 if (arguments.length > 3) throw 'too many arguments';
5165 return (function(v437){
5166 return f100(v437, v434, l157);
5167 })(f45((function (v438){
5168 if (arguments.length < 1) throw 'too few arguments';
5169 if (arguments.length > 1) throw 'too many arguments';
5170 return (function(v439){
5171 return f91(v438, l158, f33(v435, v439), v3);
5172 })(f6(v429 = (function(){
5175 if (typeof x != 'number')
5176 throw 'The value ' + x + ' is not a type number.';
5177 if (typeof y != 'number')
5178 throw 'The value ' + y + ' is not a type number.';
5181 }), f60(f121, v436)));
5185 if (cf.type == 'block' && cf.id == 151)
5195 var l164 = f3("GOTAG");
5196 var l163 = f3("GOTAG");
5197 var l162 = f3("NIL");
5198 var l161 = f3("PROGN");
5199 var l160 = f3("TAGBODY");
5200 v334 = ({car: f33(l160, (function (v441){
5201 if (arguments.length < 1) throw 'too few arguments';
5203 for (var i = arguments.length-1; i>=1; i--)
5204 v440 = {car: arguments[i], cdr: v440};
5208 (f64(f121, v440) !== v2 ? v2 : (function(){
5209 return (function(){ throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v440, f33(l162)), v441), message: 'Return from unknown block TAGBODY.'})})();
5213 return tmp === v2? v2: tmp.car;
5214 })()) !== v2 ? v2 : (function(){
5215 return v440 = ({car: f5("START"), cdr: v440});
5217 return (function(v442){
5218 return (function(v443,v444){
5220 return v444 = f30(f94(v445));
5221 })(f101(f29(v440), v443, l163));
5222 return f68("(function(){", v176, f71("var tagbody_", v442, " = ", v444, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v446){
5223 return f68("switch(tagbody_", v442, "){", v176, "case ", v444, ":", v176, (function(){
5226 return (function(v447,v448){
5231 return tmp === v2? v2: tmp.car;
5234 v446 = f68(v446, (function(){
5235 return (f17(f121(v448)) !== v2 ? f71(f73(v448, v443), ";", v176) : (function(v449){
5236 return f68("case ", f30(f94(v449)), ":", v176);
5237 })(f101(v448, v443, l164)));
5243 return tmp === v2? v2: tmp.cdr;
5250 return tmp === v2? v2: tmp.cdr;
5255 if (cf.type == 'block' && cf.id == 153)
5260 })(), "default:", v176, " break tbloop;", v176, "}", v176);
5261 })("")), "}", 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), "})()");
5262 })(f122(v441, v442, v440),v2);
5267 if (cf.type == 'block' && cf.id == 152)
5274 var l166 = f3("GOTAG");
5275 var l165 = f3("GO");
5276 v334 = ({car: f33(l165, (function (v450,v451){
5277 if (arguments.length < 2) throw 'too few arguments';
5278 if (arguments.length > 2) throw 'too many arguments';
5282 return (function(v452,v453){
5283 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, "'."); })());
5284 })(f101(v451, v450, l166),(((function(){
5286 return (typeof tmp == 'object' && 'name' in tmp);
5287 })()?v3: v2) !== v2 ? (function(){
5289 })() : (f51(v451) !== v2 ? (function(){
5295 if (cf.type == 'block' && cf.id == 154)
5302 var l167 = f3("UNWIND-PROTECT");
5303 v334 = ({car: f33(l167, (function (v455,v456){
5304 if (arguments.length < 2) throw 'too few arguments';
5306 for (var i = arguments.length-1; i>=2; i--)
5307 v454 = {car: arguments[i], cdr: v454};
5311 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), "})()");
5315 if (cf.type == 'block' && cf.id == 155)
5322 var l176 = f3("BACKQUOTE-EXPAND-1");
5323 var l175 = f3("LIST");
5324 var l174 = f3("UNQUOTE-SPLICING");
5325 var l173 = f3("LIST");
5326 var l172 = f3("UNQUOTE");
5327 var l171 = f3("APPEND");
5328 var l170 = f3("BACKQUOTE");
5329 var l169 = f3("UNQUOTE");
5330 var l168 = f3("QUOTE");
5334 return f123 = (function(v457){
5335 ((v457)["fname"] = "BACKQUOTE-EXPAND-1");
5337 })((function (v458){
5338 if (arguments.length < 1) throw 'too few arguments';
5339 if (arguments.length > 1) throw 'too many arguments';
5343 return (((function(){
5345 return (typeof tmp == 'object' && 'name' in tmp);
5346 })()?v3: v2) !== v2 ? (function(){
5347 return f33(l168, v458);
5348 })() : (f34(v458) !== v2 ? (function(){
5350 })() : ((((function(){
5352 return tmp === v2? v2: tmp.car;
5353 })() === l169)?v3: v2) !== v2 ? (function(){
5356 return tmp === v2? v2: tmp.car;
5358 })() : ((((function(){
5360 return tmp === v2? v2: tmp.car;
5361 })() === l170)?v3: v2) !== v2 ? (function(){
5362 return f123(f123(f23(v458)));
5364 return ({car: l171, cdr: f45((function (v459){
5365 if (arguments.length < 1) throw 'too few arguments';
5366 if (arguments.length > 1) throw 'too many arguments';
5367 return ((f36(v459) !== v2 ? (((function(){
5369 return tmp === v2? v2: tmp.car;
5370 })() === l172)?v3: v2) : v2) !== v2 ? (function(){
5371 return f33(l173, f23(v459));
5372 })() : ((f36(v459) !== v2 ? (((function(){
5374 return tmp === v2? v2: tmp.car;
5375 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
5378 return f33(l175, f123(v459));
5385 if (cf.type == 'block' && cf.id == 156)
5395 var l178 = f3("BACKQUOTE-EXPAND");
5396 var l177 = f3("BACKQUOTE");
5400 return f124 = (function(v460){
5401 ((v460)["fname"] = "BACKQUOTE-EXPAND");
5403 })((function (v461){
5404 if (arguments.length < 1) throw 'too few arguments';
5405 if (arguments.length > 1) throw 'too many arguments';
5409 return ((f36(v461) !== v2 ? (((function(){
5411 return tmp === v2? v2: tmp.car;
5412 })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v461)) : v461);
5416 if (cf.type == 'block' && cf.id == 157)
5426 var l179 = f3("BACKQUOTE");
5427 v334 = ({car: f33(l179, (function (v462,v463){
5428 if (arguments.length < 2) throw 'too few arguments';
5429 if (arguments.length > 2) throw 'too many arguments';
5433 return f73(f123(v463), v462);
5437 if (cf.type == 'block' && cf.id == 158)
5444 var l180 = f3("NUM-OP-NUM");
5448 return f125 = (function(v464){
5449 ((v464)["fname"] = "NUM-OP-NUM");
5451 })((function (v465,v466,v467){
5452 if (arguments.length < 3) throw 'too few arguments';
5453 if (arguments.length > 3) throw 'too many arguments';
5457 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(){
5458 return f68("x", v466, "y");
5459 })(), ";", v176)), "})()");
5463 if (cf.type == 'block' && cf.id == 159)
5474 v334 = ({car: f33(l181, (function (v468,v469,v470){
5475 if (arguments.length < 3) throw 'too few arguments';
5476 if (arguments.length > 3) throw 'too many arguments';
5480 return (function(v471,v472){
5481 return f125(v471, "+", v472);
5482 })(f73(v469, v468),f73(v470, v468));
5486 if (cf.type == 'block' && cf.id == 160)
5494 v334 = ({car: f33(l182, (function (v473,v474,v475){
5495 if (arguments.length < 3) throw 'too few arguments';
5496 if (arguments.length > 3) throw 'too many arguments';
5500 return (function(v476,v477){
5501 return f125(v476, "-", v477);
5502 })(f73(v474, v473),f73(v475, v473));
5506 if (cf.type == 'block' && cf.id == 161)
5514 v334 = ({car: f33(l183, (function (v478,v479,v480){
5515 if (arguments.length < 3) throw 'too few arguments';
5516 if (arguments.length > 3) throw 'too many arguments';
5520 return (function(v481,v482){
5521 return f125(v481, "*", v482);
5522 })(f73(v479, v478),f73(v480, v478));
5526 if (cf.type == 'block' && cf.id == 162)
5534 v334 = ({car: f33(l184, (function (v483,v484,v485){
5535 if (arguments.length < 3) throw 'too few arguments';
5536 if (arguments.length > 3) throw 'too many arguments';
5540 return (function(v486,v487){
5541 return f125(v486, "/", v487);
5542 })(f73(v484, v483),f73(v485, v483));
5546 if (cf.type == 'block' && cf.id == 163)
5553 var l185 = f3("MOD");
5554 v334 = ({car: f33(l185, (function (v488,v489,v490){
5555 if (arguments.length < 3) throw 'too few arguments';
5556 if (arguments.length > 3) throw 'too many arguments';
5560 return (function(v491,v492){
5561 return f125(v491, "%", v492);
5562 })(f73(v489, v488),f73(v490, v488));
5566 if (cf.type == 'block' && cf.id == 164)
5574 v334 = ({car: f33(l186, (function (v493,v494,v495){
5575 if (arguments.length < 3) throw 'too few arguments';
5576 if (arguments.length > 3) throw 'too many arguments';
5580 return (function(v496,v497){
5581 return f72(f125(v496, "<", v497));
5582 })(f73(v494, v493),f73(v495, v493));
5586 if (cf.type == 'block' && cf.id == 165)
5594 v334 = ({car: f33(l187, (function (v498,v499,v500){
5595 if (arguments.length < 3) throw 'too few arguments';
5596 if (arguments.length > 3) throw 'too many arguments';
5600 return (function(v501,v502){
5601 return f72(f125(v501, ">", v502));
5602 })(f73(v499, v498),f73(v500, v498));
5606 if (cf.type == 'block' && cf.id == 166)
5614 v334 = ({car: f33(l188, (function (v503,v504,v505){
5615 if (arguments.length < 3) throw 'too few arguments';
5616 if (arguments.length > 3) throw 'too many arguments';
5620 return (function(v506,v507){
5621 return f72(f125(v506, "==", v507));
5622 })(f73(v504, v503),f73(v505, v503));
5626 if (cf.type == 'block' && cf.id == 167)
5633 var l189 = f3("<=");
5634 v334 = ({car: f33(l189, (function (v508,v509,v510){
5635 if (arguments.length < 3) throw 'too few arguments';
5636 if (arguments.length > 3) throw 'too many arguments';
5640 return (function(v511,v512){
5641 return f72(f125(v511, "<=", v512));
5642 })(f73(v509, v508),f73(v510, v508));
5646 if (cf.type == 'block' && cf.id == 168)
5653 var l190 = f3(">=");
5654 v334 = ({car: f33(l190, (function (v513,v514,v515){
5655 if (arguments.length < 3) throw 'too few arguments';
5656 if (arguments.length > 3) throw 'too many arguments';
5660 return (function(v516,v517){
5661 return f72(f125(v516, ">=", v517));
5662 })(f73(v514, v513),f73(v515, v513));
5666 if (cf.type == 'block' && cf.id == 169)
5673 var l191 = f3("NUMBERP");
5674 v334 = ({car: f33(l191, (function (v518,v519){
5675 if (arguments.length < 2) throw 'too few arguments';
5676 if (arguments.length > 2) throw 'too many arguments';
5680 return (function(v520){
5681 return f72(f68("(typeof (", v520, ") == \"number\")"));
5682 })(f73(v519, v518));
5686 if (cf.type == 'block' && cf.id == 170)
5693 var l192 = f3("FLOOR");
5694 v334 = ({car: f33(l192, (function (v521,v522){
5695 if (arguments.length < 2) throw 'too few arguments';
5696 if (arguments.length > 2) throw 'too many arguments';
5700 return (function(v523){
5701 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(){
5702 return "Math.floor(x)";
5703 })(), ";", v176)), "})()");
5704 })(f73(v522, v521));
5708 if (cf.type == 'block' && cf.id == 171)
5715 var l193 = f3("CONS");
5716 v334 = ({car: f33(l193, (function (v524,v525,v526){
5717 if (arguments.length < 3) throw 'too few arguments';
5718 if (arguments.length > 3) throw 'too many arguments';
5722 return (function(v527,v528){
5723 return f68("({car: ", v527, ", cdr: ", v528, "})");
5724 })(f73(v525, v524),f73(v526, v524));
5728 if (cf.type == 'block' && cf.id == 172)
5735 var l194 = f3("CONSP");
5736 v334 = ({car: f33(l194, (function (v529,v530){
5737 if (arguments.length < 2) throw 'too few arguments';
5738 if (arguments.length > 2) throw 'too many arguments';
5742 return (function(v531){
5743 return f72(f68("(function(){", v176, f71("var tmp = ", v531, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()"));
5744 })(f73(v530, v529));
5748 if (cf.type == 'block' && cf.id == 173)
5755 var l195 = f3("CAR");
5756 v334 = ({car: f33(l195, (function (v532,v533){
5757 if (arguments.length < 2) throw 'too few arguments';
5758 if (arguments.length > 2) throw 'too many arguments';
5762 return (function(v534){
5763 return f68("(function(){", v176, f71("var tmp = ", v534, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()");
5764 })(f73(v533, v532));
5768 if (cf.type == 'block' && cf.id == 174)
5775 var l196 = f3("CDR");
5776 v334 = ({car: f33(l196, (function (v535,v536){
5777 if (arguments.length < 2) throw 'too few arguments';
5778 if (arguments.length > 2) throw 'too many arguments';
5782 return (function(v537){
5783 return f68("(function(){", v176, f71("var tmp = ", v537, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()");
5784 })(f73(v536, v535));
5788 if (cf.type == 'block' && cf.id == 175)
5795 var l197 = f3("SETCAR");
5796 v334 = ({car: f33(l197, (function (v538,v539,v540){
5797 if (arguments.length < 3) throw 'too few arguments';
5798 if (arguments.length > 3) throw 'too many arguments';
5802 return (function(v541,v542){
5803 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(){
5804 return f68("(x.car = ", v542, ")");
5805 })(), ";", v176)), "})()");
5806 })(f73(v539, v538),f73(v540, v538));
5810 if (cf.type == 'block' && cf.id == 176)
5817 var l198 = f3("SETCDR");
5818 v334 = ({car: f33(l198, (function (v543,v544,v545){
5819 if (arguments.length < 3) throw 'too few arguments';
5820 if (arguments.length > 3) throw 'too many arguments';
5824 return (function(v546,v547){
5825 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(){
5826 return f68("(x.cdr = ", v547, ")");
5827 })(), ";", v176)), "})()");
5828 })(f73(v544, v543),f73(v545, v543));
5832 if (cf.type == 'block' && cf.id == 177)
5839 var l199 = f3("SYMBOLP");
5840 v334 = ({car: f33(l199, (function (v548,v549){
5841 if (arguments.length < 2) throw 'too few arguments';
5842 if (arguments.length > 2) throw 'too many arguments';
5846 return (function(v550){
5847 return f72(f68("(function(){", v176, f71("var tmp = ", v550, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()"));
5848 })(f73(v549, v548));
5852 if (cf.type == 'block' && cf.id == 178)
5859 var l200 = f3("MAKE-SYMBOL");
5860 v334 = ({car: f33(l200, (function (v551,v552){
5861 if (arguments.length < 2) throw 'too few arguments';
5862 if (arguments.length > 2) throw 'too many arguments';
5866 return (function(v553){
5867 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(){
5868 return "({name: name})";
5869 })(), ";", v176)), "})()");
5870 })(f73(v552, v551));
5874 if (cf.type == 'block' && cf.id == 179)
5881 var l201 = f3("SYMBOL-NAME");
5882 v334 = ({car: f33(l201, (function (v554,v555){
5883 if (arguments.length < 2) throw 'too few arguments';
5884 if (arguments.length > 2) throw 'too many arguments';
5888 return (function(v556){
5889 return f68("(", v556, ").name");
5890 })(f73(v555, v554));
5894 if (cf.type == 'block' && cf.id == 180)
5901 var l202 = f3("EQ");
5902 v334 = ({car: f33(l202, (function (v557,v558,v559){
5903 if (arguments.length < 3) throw 'too few arguments';
5904 if (arguments.length > 3) throw 'too many arguments';
5908 return (function(v560,v561){
5909 return f72(f68("(", v560, " === ", v561, ")"));
5910 })(f73(v558, v557),f73(v559, v557));
5914 if (cf.type == 'block' && cf.id == 181)
5921 var l203 = f3("EQUAL");
5922 v334 = ({car: f33(l203, (function (v562,v563,v564){
5923 if (arguments.length < 3) throw 'too few arguments';
5924 if (arguments.length > 3) throw 'too many arguments';
5928 return (function(v565,v566){
5929 return f72(f68("(", v565, " == ", v566, ")"));
5930 })(f73(v563, v562),f73(v564, v562));
5934 if (cf.type == 'block' && cf.id == 182)
5941 var l204 = f3("STRING");
5942 v334 = ({car: f33(l204, (function (v567,v568){
5943 if (arguments.length < 2) throw 'too few arguments';
5944 if (arguments.length > 2) throw 'too many arguments';
5948 return (function(v569){
5949 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(){
5950 return "String.fromCharCode(x)";
5951 })(), ";", v176)), "})()");
5952 })(f73(v568, v567));
5956 if (cf.type == 'block' && cf.id == 183)
5963 var l205 = f3("STRINGP");
5964 v334 = ({car: f33(l205, (function (v570,v571){
5965 if (arguments.length < 2) throw 'too few arguments';
5966 if (arguments.length > 2) throw 'too many arguments';
5970 return (function(v572){
5971 return f72(f68("(typeof(", v572, ") == \"string\")"));
5972 })(f73(v571, v570));
5976 if (cf.type == 'block' && cf.id == 184)
5983 var l206 = f3("STRING-UPCASE");
5984 v334 = ({car: f33(l206, (function (v573,v574){
5985 if (arguments.length < 2) throw 'too few arguments';
5986 if (arguments.length > 2) throw 'too many arguments';
5990 return (function(v575){
5991 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(){
5992 return "x.toUpperCase()";
5993 })(), ";", v176)), "})()");
5994 })(f73(v574, v573));
5998 if (cf.type == 'block' && cf.id == 185)
6005 var l207 = f3("STRING-LENGTH");
6006 v334 = ({car: f33(l207, (function (v576,v577){
6007 if (arguments.length < 2) throw 'too few arguments';
6008 if (arguments.length > 2) throw 'too many arguments';
6012 return (function(v578){
6013 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(){
6015 })(), ";", v176)), "})()");
6016 })(f73(v577, v576));
6020 if (cf.type == 'block' && cf.id == 186)
6027 var l208 = f3("SLICE");
6028 v334 = ({car: f33(l208, (function (v579,v580,v581,v582){
6029 if (arguments.length < 3) throw 'too few arguments';
6030 if (arguments.length > 4) throw 'too many arguments';
6031 switch(arguments.length){
6039 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), "})()");
6043 if (cf.type == 'block' && cf.id == 187)
6050 var l209 = f3("CHAR");
6051 v334 = ({car: f33(l209, (function (v583,v584,v585){
6052 if (arguments.length < 3) throw 'too few arguments';
6053 if (arguments.length > 3) throw 'too many arguments';
6057 return (function(v586,v587){
6058 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(){
6059 return "string.charCodeAt(index)";
6060 })(), ";", v176)), "})()");
6061 })(f73(v584, v583),f73(v585, v583));
6065 if (cf.type == 'block' && cf.id == 188)
6072 var l210 = f3("CONCAT-TWO");
6073 v334 = ({car: f33(l210, (function (v588,v589,v590){
6074 if (arguments.length < 3) throw 'too few arguments';
6075 if (arguments.length > 3) throw 'too many arguments';
6079 return (function(v591,v592){
6080 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(){
6081 return "string1.concat(string2)";
6082 })(), ";", v176)), "})()");
6083 })(f73(v589, v588),f73(v590, v588));
6087 if (cf.type == 'block' && cf.id == 189)
6094 var l211 = f3("FUNCALL");
6095 v334 = ({car: f33(l211, (function (v594,v595){
6096 if (arguments.length < 2) throw 'too few arguments';
6098 for (var i = arguments.length-1; i>=2; i--)
6099 v593 = {car: arguments[i], cdr: v593};
6103 return f68("(", f73(v595, v594), ")(", f69(f45((function (v596){
6104 if (arguments.length < 1) throw 'too few arguments';
6105 if (arguments.length > 1) throw 'too many arguments';
6106 return f73(v596, v594);
6107 }), v593), ", "), ")");
6111 if (cf.type == 'block' && cf.id == 190)
6118 var l212 = f3("APPLY");
6119 v334 = ({car: f33(l212, (function (v598,v599){
6120 if (arguments.length < 2) throw 'too few arguments';
6122 for (var i = arguments.length-1; i>=2; i--)
6123 v597 = {car: arguments[i], cdr: v597};
6127 return (f1(v597) !== v2 ? f68("(", f73(v599, v598), ")()") : (function(v600,v601){
6128 return f68("(function(){", v176, f71("var f = ", f73(v599, v598), ";", v176, "var args = [", f69(f45((function (v602){
6129 if (arguments.length < 1) throw 'too few arguments';
6130 if (arguments.length > 1) throw 'too many arguments';
6131 return f73(v602, v598);
6132 }), 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), "})()");
6133 })(f56(v597),(function(){
6134 var tmp = f55(v597);
6135 return tmp === v2? v2: tmp.car;
6140 if (cf.type == 'block' && cf.id == 191)
6147 var l213 = f3("JS-EVAL");
6148 v334 = ({car: f33(l213, (function (v603,v604){
6149 if (arguments.length < 2) throw 'too few arguments';
6150 if (arguments.length > 2) throw 'too many arguments';
6154 return (function(v605){
6155 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(){
6156 return "eval.apply(window, [string])";
6157 })(), ";", v176)), "})()");
6158 })(f73(v604, v603));
6162 if (cf.type == 'block' && cf.id == 192)
6169 var l214 = f3("ERROR");
6170 v334 = ({car: f33(l214, (function (v606,v607){
6171 if (arguments.length < 2) throw 'too few arguments';
6172 if (arguments.length > 2) throw 'too many arguments';
6176 return (function(v608){
6177 return f68("(function(){", v176, f71("throw ", v608, ";", v176), "})()");
6178 })(f73(v607, v606));
6182 if (cf.type == 'block' && cf.id == 193)
6189 var l215 = f3("NEW");
6190 v334 = ({car: f33(l215, (function (v609){
6191 if (arguments.length < 1) throw 'too few arguments';
6192 if (arguments.length > 1) throw 'too many arguments';
6202 if (cf.type == 'block' && cf.id == 194)
6209 var l216 = f3("GET");
6210 v334 = ({car: f33(l216, (function (v610,v611,v612){
6211 if (arguments.length < 3) throw 'too few arguments';
6212 if (arguments.length > 3) throw 'too many arguments';
6216 return (function(v613,v614){
6217 return f68("(function(){", v176, f71("var tmp = ", "(", v613, ")[", v614, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()");
6218 })(f73(v611, v610),f73(v612, v610));
6222 if (cf.type == 'block' && cf.id == 195)
6229 var l217 = f3("SET");
6230 v334 = ({car: f33(l217, (function (v615,v616,v617,v618){
6231 if (arguments.length < 4) throw 'too few arguments';
6232 if (arguments.length > 4) throw 'too many arguments';
6236 return (function(v619,v620,v621){
6237 return f68("((", v619, ")[", v620, "] = ", v621, ")");
6238 })(f73(v616, v615),f73(v617, v615),f73(v618, v615));
6242 if (cf.type == 'block' && cf.id == 196)
6249 var l218 = f3("IN");
6250 v334 = ({car: f33(l218, (function (v622,v623,v624){
6251 if (arguments.length < 3) throw 'too few arguments';
6252 if (arguments.length > 3) throw 'too many arguments';
6256 return (function(v625,v626){
6257 return f72(f68("((", v625, ") in (", v626, "))"));
6258 })(f73(v623, v622),f73(v624, v622));
6262 if (cf.type == 'block' && cf.id == 197)
6269 var l219 = f3("FUNCTIONP");
6270 v334 = ({car: f33(l219, (function (v627,v628){
6271 if (arguments.length < 2) throw 'too few arguments';
6272 if (arguments.length > 2) throw 'too many arguments';
6276 return (function(v629){
6277 return f72(f68("(typeof ", v629, " == 'function')"));
6278 })(f73(v628, v627));
6282 if (cf.type == 'block' && cf.id == 198)
6289 var l220 = f3("WRITE-STRING");
6290 v334 = ({car: f33(l220, (function (v630,v631){
6291 if (arguments.length < 2) throw 'too few arguments';
6292 if (arguments.length > 2) throw 'too many arguments';
6296 return (function(v632){
6297 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(){
6298 return "lisp.write(x)";
6299 })(), ";", v176)), "})()");
6300 })(f73(v631, v630));
6304 if (cf.type == 'block' && cf.id == 199)
6311 var l222 = f3("MACROP");
6312 var l221 = f3("MACRO");
6316 return f126 = (function(v633){
6317 ((v633)["fname"] = "MACROP");
6319 })((function (v634){
6320 if (arguments.length < 1) throw 'too few arguments';
6321 if (arguments.length > 1) throw 'too many arguments';
6325 return (((function(){
6327 return (typeof tmp == 'object' && 'name' in tmp);
6328 })()?v3: v2) !== v2 ? ((f93(f107(v634, v289)) === l221)?v3: v2) : v2);
6332 if (cf.type == 'block' && cf.id == 200)
6342 var l224 = f3("LS-MACROEXPAND-1");
6343 var l223 = f3("MACRO");
6347 return f127 = (function(v635){
6348 ((v635)["fname"] = "LS-MACROEXPAND-1");
6350 })((function (v636,v637){
6351 if (arguments.length < 2) throw 'too few arguments';
6352 if (arguments.length > 2) throw 'too many arguments';
6356 return (f126((function(){
6358 return tmp === v2? v2: tmp.car;
6359 })()) !== v2 ? (function(v638){
6360 return (((f93(v638) === l223)?v3: v2) !== v2 ? (function(){
6361 var f = f120(f94(v638));
6363 var tail = ((function(){
6365 return tmp === v2? v2: tmp.cdr;
6368 args.push(tail.car);
6371 return f.apply(this, args);
6373 })(f107((function(){
6375 return tmp === v2? v2: tmp.car;
6376 })(), v289)) : v636);
6380 if (cf.type == 'block' && cf.id == 201)
6390 var l226 = f3("COMPILE-FUNCALL");
6391 var l225 = f3("LAMBDA");
6395 return f128 = (function(v639){
6396 ((v639)["fname"] = "COMPILE-FUNCALL");
6398 })((function (v640,v641,v642){
6399 if (arguments.length < 3) throw 'too few arguments';
6400 if (arguments.length > 3) throw 'too many arguments';
6404 return (((function(){
6406 return (typeof tmp == 'object' && 'name' in tmp);
6407 })()?v3: v2) !== v2 ? (function(){
6408 return f68(f108(v640, v642), "(", f69(f45((function (v643){
6409 if (arguments.length < 1) throw 'too few arguments';
6410 if (arguments.length > 1) throw 'too many arguments';
6411 return f73(v643, v642);
6412 }), v641), ", "), ")");
6413 })() : ((f36(v640) !== v2 ? (((function(){
6415 return tmp === v2? v2: tmp.car;
6416 })() === l225)?v3: v2) : v2) !== v2 ? (function(){
6417 return f68("(", f73(v640, v642), ")(", f69(f45((function (v644){
6418 if (arguments.length < 1) throw 'too few arguments';
6419 if (arguments.length > 1) throw 'too many arguments';
6420 return f73(v644, v642);
6421 }), v641), ", "), ")");
6423 return (function (){ throw f68("Invalid function designator ", (v640).name); })();
6428 if (cf.type == 'block' && cf.id == 202)
6438 var l227 = f3("LS-COMPILE");
6442 return f73 = (function(v645){
6443 ((v645)["fname"] = "LS-COMPILE");
6445 })((function (v646,v647){
6446 if (arguments.length < 1) throw 'too few arguments';
6447 if (arguments.length > 2) throw 'too many arguments';
6448 switch(arguments.length){
6456 return (((function(){
6458 return (typeof tmp == 'object' && 'name' in tmp);
6459 })()?v3: v2) !== v2 ? (function(){
6460 return f105(v646, v647);
6461 })() : (f51(v646) !== v2 ? (function(){
6463 })() : (((typeof(v646) == "string")?v3: v2) !== v2 ? (function(){
6464 return f68("\"", f75(v646), "\"");
6465 })() : (f36(v646) !== v2 ? (function(){
6466 return (f66((function(){
6468 return tmp === v2? v2: tmp.car;
6469 })(), v334) !== v2 ? (function(v648){
6473 var tail = ((function(){
6475 return tmp === v2? v2: tmp.cdr;
6478 args.push(tail.car);
6481 return f.apply(this, args);
6483 })(f30(f66((function(){
6485 return tmp === v2? v2: tmp.car;
6486 })(), v334))) : (f126((function(){
6488 return tmp === v2? v2: tmp.car;
6489 })()) !== v2 ? f73(f127(v646, v647), v647) : f128((function(){
6491 return tmp === v2? v2: tmp.car;
6494 return tmp === v2? v2: tmp.cdr;
6500 if (cf.type == 'block' && cf.id == 203)
6510 var l228 = f3("LS-COMPILE-TOPLEVEL");
6514 return f129 = (function(v649){
6515 ((v649)["fname"] = "LS-COMPILE-TOPLEVEL");
6517 })((function (v650){
6518 if (arguments.length < 1) throw 'too few arguments';
6519 if (arguments.length > 1) throw 'too many arguments';
6524 return (function(v651){
6525 return (function(v652){
6528 })(f68(f69(f45((function (v653){
6529 if (arguments.length < 1) throw 'too few arguments';
6530 if (arguments.length > 1) throw 'too many arguments';
6531 return f68(v653, ";", v176);
6537 if (cf.type == 'block' && cf.id == 204)
6547 var l239 = f3("LS-COMPILE-TOPLEVEL");
6548 var l238 = f3("EVAL");
6549 var l237 = f3("PRIN1-TO-STRING");
6550 var l236 = f3("LS-READ-FROM-STRING");
6556 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("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, 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("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, 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")}}}};
6557 var l229 = f3("EVAL");
6570 return f120 = (function(v654){
6571 ((v654)["fname"] = "EVAL");
6573 })((function (v655){
6574 if (arguments.length < 1) throw 'too few arguments';
6575 if (arguments.length > 1) throw 'too many arguments';
6579 return (function(v656){
6582 if (typeof string != 'string')
6583 throw 'The value ' + string + ' is not a type string.';
6584 return eval.apply(window, [string]);
6590 return (function(v658,v659){
6595 return tmp === v2? v2: tmp.car;
6603 return tmp === v2? v2: tmp.cdr;
6612 if (cf.type == 'block' && cf.id == 206)
6627 if (cf.type == 'block' && cf.id == 205)
6638 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);
6639 if (typeof string != 'string')
6640 throw 'The value ' + string + ' is not a type string.';
6641 return eval.apply(window, [string]);