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);
1977 throw "Unsupported argument.";
1983 if (cf.type == 'block' && cf.id == 62)
1995 return f63 = (function(v151){
1996 ((v151)["fname"] = "PARSE-INTEGER");
1998 })((function (v152){
1999 if (arguments.length < 1) throw 'too few arguments';
2000 if (arguments.length > 1) throw 'too many arguments';
2004 return (function(v153,v154,v155){
2012 if (typeof x != 'number')
2013 throw 'The value ' + x + ' is not a type number.';
2014 if (typeof y != 'number')
2015 throw 'The value ' + y + ' is not a type number.';
2017 })()?v3: v2) !== v2){
2019 var x = (function(){
2022 if (typeof x != 'number')
2023 throw 'The value ' + x + ' is not a type number.';
2024 if (typeof y != 'number')
2025 throw 'The value ' + y + ' is not a type number.';
2028 var y = f61((function(){
2031 if (typeof string != 'string')
2032 throw 'The value ' + string + ' is not a type string.';
2033 if (typeof index != 'number')
2034 throw 'The value ' + index + ' is not a type number.';
2035 return string.charCodeAt(index);
2037 if (typeof x != 'number')
2038 throw 'The value ' + x + ' is not a type number.';
2039 if (typeof y != 'number')
2040 throw 'The value ' + y + ' is not a type number.';
2046 if (typeof x != 'number')
2047 throw 'The value ' + x + ' is not a type number.';
2048 if (typeof y != 'number')
2049 throw 'The value ' + y + ' is not a type number.';
2057 if (cf.type == 'block' && cf.id == 64)
2068 if (cf.type == 'block' && cf.id == 63)
2080 return f64 = (function(v156){
2081 ((v156)["fname"] = "SOME");
2083 })((function (v157,v158){
2084 if (arguments.length < 2) throw 'too few arguments';
2085 if (arguments.length > 2) throw 'too many arguments';
2089 return (((typeof(v158) == "string")?v3: v2) !== v2 ? (function(){
2090 return (function(v159,v160){
2098 if (typeof x != 'number')
2099 throw 'The value ' + x + ' is not a type number.';
2100 if (typeof y != 'number')
2101 throw 'The value ' + y + ' is not a type number.';
2103 })()?v3: v2) !== v2){
2104 ((v157)((function(){
2107 if (typeof string != 'string')
2108 throw 'The value ' + string + ' is not a type string.';
2109 if (typeof index != 'number')
2110 throw 'The value ' + index + ' is not a type number.';
2111 return string.charCodeAt(index);
2112 })()) !== v2 ? (function(){
2114 throw ({type: 'block', id: 65, value: v3, message: 'Return from unknown block SOME.'})})();
2119 if (typeof x != 'number')
2120 throw 'The value ' + x + ' is not a type number.';
2121 if (typeof y != 'number')
2122 throw 'The value ' + y + ' is not a type number.';
2130 if (cf.type == 'block' && cf.id == 66)
2138 })() : (f36(v158) !== v2 ? (function(){
2142 return (function(v161,v162){
2147 return tmp === v2? v2: tmp.car;
2150 ((v157)(v162) !== v2 ? (function(){
2152 throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})();
2158 return tmp === v2? v2: tmp.cdr;
2167 if (cf.type == 'block' && cf.id == 67)
2175 throw "Unknown sequence.";
2181 if (cf.type == 'block' && cf.id == 65)
2193 return f65 = (function(v163){
2194 ((v163)["fname"] = "EVERY");
2196 })((function (v164,v165){
2197 if (arguments.length < 2) throw 'too few arguments';
2198 if (arguments.length > 2) throw 'too many arguments';
2202 return (((typeof(v165) == "string")?v3: v2) !== v2 ? (function(){
2203 return (function(v166,v167){
2211 if (typeof x != 'number')
2212 throw 'The value ' + x + ' is not a type number.';
2213 if (typeof y != 'number')
2214 throw 'The value ' + y + ' is not a type number.';
2216 })()?v3: v2) !== v2){
2217 ((v164)((function(){
2220 if (typeof string != 'string')
2221 throw 'The value ' + string + ' is not a type string.';
2222 if (typeof index != 'number')
2223 throw 'The value ' + index + ' is not a type number.';
2224 return string.charCodeAt(index);
2225 })()) !== v2 ? v2 : (function(){
2227 throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})();
2232 if (typeof x != 'number')
2233 throw 'The value ' + x + ' is not a type number.';
2234 if (typeof y != 'number')
2235 throw 'The value ' + y + ' is not a type number.';
2243 if (cf.type == 'block' && cf.id == 69)
2251 })() : (f36(v165) !== v2 ? (function(){
2255 return (function(v168,v169){
2260 return tmp === v2? v2: tmp.car;
2263 ((v164)(v169) !== v2 ? v2 : (function(){
2265 throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})();
2271 return tmp === v2? v2: tmp.cdr;
2280 if (cf.type == 'block' && cf.id == 70)
2288 throw "Unknown sequence.";
2294 if (cf.type == 'block' && cf.id == 68)
2306 return f66 = (function(v170){
2307 ((v170)["fname"] = "ASSOC");
2309 })((function (v171,v172){
2310 if (arguments.length < 2) throw 'too few arguments';
2311 if (arguments.length > 2) throw 'too many arguments';
2320 (f16(v171, f22(v172)) !== v2 ? (function(){
2321 throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){
2323 return tmp === v2? v2: tmp.cdr;
2330 if (cf.type == 'block' && cf.id == 72)
2338 return tmp === v2? v2: tmp.car;
2343 if (cf.type == 'block' && cf.id == 71)
2355 return f67 = (function(v173){
2356 ((v173)["fname"] = "STRING=");
2358 })((function (v174,v175){
2359 if (arguments.length < 2) throw 'too few arguments';
2360 if (arguments.length > 2) throw 'too many arguments';
2364 return ((v174 == v175)?v3: v2);
2368 if (cf.type == 'block' && cf.id == 73)
2379 var l35 = f3("*NEWLINE*");
2383 return v176 = (function(){
2385 if (typeof x != 'number')
2386 throw 'The value ' + x + ' is not a type number.';
2387 return String.fromCharCode(x);
2392 var l36 = f3("CONCAT");
2396 return f68 = (function(v177){
2397 ((v177)["fname"] = "CONCAT");
2401 for (var i = arguments.length-1; i>=0; i--)
2402 v178 = {car: arguments[i], cdr: v178};
2406 return f37(f44, v178, "");
2410 if (cf.type == 'block' && cf.id == 74)
2420 var l37 = f3("JOIN");
2424 return f69 = (function(v179){
2425 ((v179)["fname"] = "JOIN");
2427 })((function (v180,v181){
2428 if (arguments.length < 1) throw 'too few arguments';
2429 if (arguments.length > 2) throw 'too many arguments';
2430 switch(arguments.length){
2438 return (f1(v180) !== v2 ? (function(){
2440 })() : (f1((function(){
2442 return tmp === v2? v2: tmp.cdr;
2443 })()) !== v2 ? (function(){
2446 return tmp === v2? v2: tmp.car;
2449 return f68((function(){
2451 return tmp === v2? v2: tmp.car;
2452 })(), v181, f69((function(){
2454 return tmp === v2? v2: tmp.cdr;
2460 if (cf.type == 'block' && cf.id == 75)
2470 var l38 = f3("JOIN-TRAILING");
2474 return f70 = (function(v182){
2475 ((v182)["fname"] = "JOIN-TRAILING");
2477 })((function (v183,v184){
2478 if (arguments.length < 1) throw 'too few arguments';
2479 if (arguments.length > 2) throw 'too many arguments';
2480 switch(arguments.length){
2488 return (f1(v183) !== v2 ? "" : f68((function(){
2490 return tmp === v2? v2: tmp.car;
2491 })(), v184, f70((function(){
2493 return tmp === v2? v2: tmp.cdr;
2498 if (cf.type == 'block' && cf.id == 76)
2508 var l39 = f3("INDENT");
2512 return f71 = (function(v185){
2513 ((v185)["fname"] = "INDENT");
2517 for (var i = arguments.length-1; i>=0; i--)
2518 v186 = {car: arguments[i], cdr: v186};
2522 return (function(v187){
2523 return (function(v188,v189,v190){
2524 (f52(v190) !== v2 ? (function(){
2534 if (typeof x != 'number')
2535 throw 'The value ' + x + ' is not a type number.';
2536 if (typeof y != 'number')
2537 throw 'The value ' + y + ' is not a type number.';
2539 })()?v3: v2) !== v2){
2540 v188 = f68(v188, ((f50((function(){
2543 if (typeof string != 'string')
2544 throw 'The value ' + string + ' is not a type string.';
2545 if (typeof index != 'number')
2546 throw 'The value ' + index + ' is not a type number.';
2547 return string.charCodeAt(index);
2548 })(), 10) !== v2 ? (((function(){
2551 if (typeof x != 'number')
2552 throw 'The value ' + x + ' is not a type number.';
2553 if (typeof y != 'number')
2554 throw 'The value ' + y + ' is not a type number.';
2556 })()?v3: v2) !== v2 ? f17(f50((function(){
2558 var index = f12(v189);
2559 if (typeof string != 'string')
2560 throw 'The value ' + string + ' is not a type string.';
2561 if (typeof index != 'number')
2562 throw 'The value ' + index + ' is not a type number.';
2563 return string.charCodeAt(index);
2564 })(), 10)) : v2) : v2) !== v2 ? f68((function(){
2566 if (typeof x != 'number')
2567 throw 'The value ' + x + ' is not a type number.';
2568 return String.fromCharCode(x);
2569 })(), " ") : f62(v187, v189, f12(v189))));
2573 if (typeof x != 'number')
2574 throw 'The value ' + x + ' is not a type number.';
2575 if (typeof y != 'number')
2576 throw 'The value ' + y + ' is not a type number.';
2584 if (cf.type == 'block' && cf.id == 78)
2596 if (cf.type == 'block' && cf.id == 77)
2606 var l40 = f3("INTEGER-TO-STRING");
2610 return f6 = (function(v191){
2611 ((v191)["fname"] = "INTEGER-TO-STRING");
2613 })((function (v192){
2614 if (arguments.length < 1) throw 'too few arguments';
2615 if (arguments.length > 1) throw 'too many arguments';
2619 return (f14(v192) !== v2 ? (function(){
2621 })() : (f53(v192) !== v2 ? (function(){
2622 return f68("-", f6((function(){
2625 if (typeof x != 'number')
2626 throw 'The value ' + x + ' is not a type number.';
2627 if (typeof y != 'number')
2628 throw 'The value ' + y + ' is not a type number.';
2632 return (function(v193){
2637 while(f17(f14(v192)) !== v2){
2638 v193 = ({car: (function(){
2641 if (typeof x != 'number')
2642 throw 'The value ' + x + ' is not a type number.';
2643 if (typeof y != 'number')
2644 throw 'The value ' + y + ' is not a type number.';
2647 v192 = f15(v192, 10);
2653 if (cf.type == 'block' && cf.id == 80)
2659 return f69(f45((function (v194){
2660 if (arguments.length < 1) throw 'too few arguments';
2661 if (arguments.length > 1) throw 'too many arguments';
2663 var x = (function(){
2664 var string = "0123456789";
2666 if (typeof string != 'string')
2667 throw 'The value ' + string + ' is not a type string.';
2668 if (typeof index != 'number')
2669 throw 'The value ' + index + ' is not a type number.';
2670 return string.charCodeAt(index);
2672 if (typeof x != 'number')
2673 throw 'The value ' + x + ' is not a type number.';
2674 return String.fromCharCode(x);
2682 if (cf.type == 'block' && cf.id == 79)
2692 var l41 = f3("JS!BOOL");
2696 return f72 = (function(v195){
2697 ((v195)["fname"] = "JS!BOOL");
2699 })((function (v196){
2700 if (arguments.length < 1) throw 'too few arguments';
2701 if (arguments.length > 1) throw 'too many arguments';
2705 return f68("(", v196, "?", f73(v3), ": ", f73(v2), ")");
2709 if (cf.type == 'block' && cf.id == 81)
2719 var l44 = f3("PRINT");
2721 var l43 = f3("WRITE-LINE");
2723 var l42 = f3("PRIN1-TO-STRING");
2728 return f74 = (function(v197){
2729 ((v197)["fname"] = "PRIN1-TO-STRING");
2731 })((function (v198){
2732 if (arguments.length < 1) throw 'too few arguments';
2733 if (arguments.length > 1) throw 'too many arguments';
2737 return (((function(){
2739 return (typeof tmp == 'object' && 'name' in tmp);
2740 })()?v3: v2) !== v2 ? (function(){
2742 })() : (f51(v198) !== v2 ? (function(){
2744 })() : (((typeof(v198) == "string")?v3: v2) !== v2 ? (function(){
2745 return f68("\"", f75(v198), "\"");
2746 })() : (((typeof v198 == 'function')?v3: v2) !== v2 ? (function(){
2747 return (function(v199){
2748 return (v199 !== v2 ? f68("#<FUNCTION ", v199, ">") : f68("#<FUNCTION>"));
2750 var tmp = (v198)["fname"];
2751 return tmp == undefined? v2: tmp ;
2753 })() : (f36(v198) !== v2 ? (function(){
2754 return f68("(", f70(f45(f74, f56(v198)), " "), (function(v200){
2755 return (f1((function(){
2757 return tmp === v2? v2: tmp.cdr;
2758 })()) !== v2 ? f74((function(){
2760 return tmp === v2? v2: tmp.car;
2761 })()) : f68(f74((function(){
2763 return tmp === v2? v2: tmp.car;
2764 })()), " . ", f74((function(){
2766 return tmp === v2? v2: tmp.cdr;
2768 })(f55(v198)), ")");
2773 if (cf.type == 'block' && cf.id == 82)
2785 return f76 = (function(v201){
2786 ((v201)["fname"] = "WRITE-LINE");
2788 })((function (v202){
2789 if (arguments.length < 1) throw 'too few arguments';
2790 if (arguments.length > 1) throw 'too many arguments';
2796 if (typeof x != 'string')
2797 throw 'The value ' + x + ' is not a type string.';
2798 return lisp.write(x);
2802 if (typeof x != 'string')
2803 throw 'The value ' + x + ' is not a type string.';
2804 return lisp.write(x);
2810 if (cf.type == 'block' && cf.id == 83)
2822 return f77 = (function(v203){
2823 ((v203)["fname"] = "PRINT");
2825 })((function (v204){
2826 if (arguments.length < 1) throw 'too few arguments';
2827 if (arguments.length > 1) throw 'too many arguments';
2836 if (cf.type == 'block' && cf.id == 84)
2847 var l45 = f3("MAKE-STRING-STREAM");
2851 return f78 = (function(v205){
2852 ((v205)["fname"] = "MAKE-STRING-STREAM");
2854 })((function (v206){
2855 if (arguments.length < 1) throw 'too few arguments';
2856 if (arguments.length > 1) throw 'too many arguments';
2860 return ({car: v206, cdr: 0});
2864 if (cf.type == 'block' && cf.id == 85)
2874 var l46 = f3("%PEEK-CHAR");
2878 return f79 = (function(v207){
2879 ((v207)["fname"] = "%PEEK-CHAR");
2881 })((function (v208){
2882 if (arguments.length < 1) throw 'too few arguments';
2883 if (arguments.length > 1) throw 'too many arguments';
2887 return (((function(){
2888 var x = (function(){
2890 return tmp === v2? v2: tmp.cdr;
2892 var y = f43((function(){
2894 return tmp === v2? v2: tmp.car;
2896 if (typeof x != 'number')
2897 throw 'The value ' + x + ' is not a type number.';
2898 if (typeof y != 'number')
2899 throw 'The value ' + y + ' is not a type number.';
2901 })()?v3: v2) !== v2 ? (function(){
2902 var string = (function(){
2904 return tmp === v2? v2: tmp.car;
2906 var index = (function(){
2908 return tmp === v2? v2: tmp.cdr;
2910 if (typeof string != 'string')
2911 throw 'The value ' + string + ' is not a type string.';
2912 if (typeof index != 'number')
2913 throw 'The value ' + index + ' is not a type number.';
2914 return string.charCodeAt(index);
2919 if (cf.type == 'block' && cf.id == 86)
2929 var l47 = f3("%READ-CHAR");
2933 return f80 = (function(v209){
2934 ((v209)["fname"] = "%READ-CHAR");
2936 })((function (v210){
2937 if (arguments.length < 1) throw 'too few arguments';
2938 if (arguments.length > 1) throw 'too many arguments';
2942 return (((function(){
2943 var x = (function(){
2945 return tmp === v2? v2: tmp.cdr;
2947 var y = f43((function(){
2949 return tmp === v2? v2: tmp.car;
2951 if (typeof x != 'number')
2952 throw 'The value ' + x + ' is not a type number.';
2953 if (typeof y != 'number')
2954 throw 'The value ' + y + ' is not a type number.';
2956 })()?v3: v2) !== v2 ? (function(v211){
2959 if (typeof x != 'object')
2960 throw 'The value ' + x + ' is not a type object.';
2961 return (x.cdr = f12((function(){
2963 return tmp === v2? v2: tmp.cdr;
2968 var string = (function(){
2970 return tmp === v2? v2: tmp.car;
2972 var index = (function(){
2974 return tmp === v2? v2: tmp.cdr;
2976 if (typeof string != 'string')
2977 throw 'The value ' + string + ' is not a type string.';
2978 if (typeof index != 'number')
2979 throw 'The value ' + index + ' is not a type number.';
2980 return string.charCodeAt(index);
2985 if (cf.type == 'block' && cf.id == 87)
2995 var l48 = f3("WHITESPACEP");
2999 return f81 = (function(v212){
3000 ((v212)["fname"] = "WHITESPACEP");
3002 })((function (v213){
3003 if (arguments.length < 1) throw 'too few arguments';
3004 if (arguments.length > 1) throw 'too many arguments';
3008 return (function(v214){
3009 return (v214 !== v2 ? v214 : (function(v215){
3010 return (v215 !== v2 ? v215 : f50(v213, 9));
3016 if (cf.type == 'block' && cf.id == 88)
3026 var l49 = f3("SKIP-WHITESPACES");
3030 return f82 = (function(v216){
3031 ((v216)["fname"] = "SKIP-WHITESPACES");
3033 })((function (v217){
3034 if (arguments.length < 1) throw 'too few arguments';
3035 if (arguments.length > 1) throw 'too many arguments';
3039 return (function(v218){
3045 while((v218 !== v2 ? f81(v218) : v2) !== v2){
3053 if (cf.type == 'block' && cf.id == 90)
3063 if (cf.type == 'block' && cf.id == 89)
3073 var l50 = f3("TERMINALP");
3077 return f83 = (function(v219){
3078 ((v219)["fname"] = "TERMINALP");
3080 })((function (v220){
3081 if (arguments.length < 1) throw 'too few arguments';
3082 if (arguments.length > 1) throw 'too many arguments';
3086 return (function(v221){
3087 return (v221 !== v2 ? v221 : (function(v222){
3088 return (v222 !== v2 ? v222 : (function(v223){
3089 return (v223 !== v2 ? v223 : f50(40, v220));
3096 if (cf.type == 'block' && cf.id == 91)
3106 var l51 = f3("READ-UNTIL");
3110 return f84 = (function(v224){
3111 ((v224)["fname"] = "READ-UNTIL");
3113 })((function (v225,v226){
3114 if (arguments.length < 2) throw 'too few arguments';
3115 if (arguments.length > 2) throw 'too many arguments';
3119 return (function(v227,v228){
3125 while((v228 !== v2 ? f17((v226)(v228)) : v2) !== v2){
3126 v227 = f68(v227, (function(){
3128 if (typeof x != 'number')
3129 throw 'The value ' + x + ' is not a type number.';
3130 return String.fromCharCode(x);
3139 if (cf.type == 'block' && cf.id == 93)
3150 if (cf.type == 'block' && cf.id == 92)
3160 var l52 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3164 return f85 = (function(v229){
3165 ((v229)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3167 })((function (v230){
3168 if (arguments.length < 1) throw 'too few arguments';
3169 if (arguments.length > 1) throw 'too many arguments';
3173 return (function(v231){
3180 while((v231 !== v2 ? f50(v231, 59) : v2) !== v2){
3181 f84(v230, (function (v232){
3182 if (arguments.length < 1) throw 'too few arguments';
3183 if (arguments.length > 1) throw 'too many arguments';
3184 return f50(v232, 10);
3193 if (cf.type == 'block' && cf.id == 95)
3203 if (cf.type == 'block' && cf.id == 94)
3213 var l53 = f3("%READ-LIST");
3217 return f86 = (function(v233){
3218 ((v233)["fname"] = "%READ-LIST");
3220 })((function (v234){
3221 if (arguments.length < 1) throw 'too few arguments';
3222 if (arguments.length > 1) throw 'too many arguments';
3227 return (function(v235){
3228 return (f1(v235) !== v2 ? (function(){
3230 throw "Unspected EOF";
3232 })() : (f50(v235, 41) !== v2 ? (function(){
3235 })() : (f50(v235, 46) !== v2 ? (function(){
3237 return (function(v236){
3239 (f50(f80(v234), 41) !== v2 ? v2 : (function(){
3241 throw "')' was expected.";
3247 return ({car: f87(v234), cdr: f86(v234)});
3253 if (cf.type == 'block' && cf.id == 96)
3263 var l54 = f3("READ-STRING");
3267 return f88 = (function(v237){
3268 ((v237)["fname"] = "READ-STRING");
3270 })((function (v238){
3271 if (arguments.length < 1) throw 'too few arguments';
3272 if (arguments.length > 1) throw 'too many arguments';
3276 return (function(v239,v240){
3282 while(f17(f16(v240, 34)) !== v2){
3283 (f1(v240) !== v2 ? (function(){
3285 throw "Unexpected EOF";
3288 (f16(v240, 92) !== v2 ? (function(){
3289 return v240 = f80(v238);
3291 v239 = f68(v239, (function(){
3293 if (typeof x != 'number')
3294 throw 'The value ' + x + ' is not a type number.';
3295 return String.fromCharCode(x);
3303 if (cf.type == 'block' && cf.id == 98)
3314 if (cf.type == 'block' && cf.id == 97)
3324 var l59 = f3("READ-SHARP");
3327 var l56 = f3("FUNCTION");
3332 return f89 = (function(v241){
3333 ((v241)["fname"] = "READ-SHARP");
3335 })((function (v242){
3336 if (arguments.length < 1) throw 'too few arguments';
3337 if (arguments.length > 1) throw 'too many arguments';
3342 return (function(v243){
3343 return (f16(v243, l55) !== v2 ? (function(){
3344 return f33(l56, f87(v242));
3345 })() : (f16(v243, l57) !== v2 ? (function(){
3346 return (function(v244){
3347 return (f67(v244, "space") !== v2 ? (function(){
3349 })() : (f67(v244, "tab") !== v2 ? (function(){
3351 })() : (f67(v244, "newline") !== v2 ? (function(){
3354 return f49((function(){
3357 if (typeof string != 'string')
3358 throw 'The value ' + string + ' is not a type string.';
3359 if (typeof index != 'number')
3360 throw 'The value ' + index + ' is not a type number.';
3361 return string.charCodeAt(index);
3366 if (typeof x != 'number')
3367 throw 'The value ' + x + ' is not a type number.';
3368 return String.fromCharCode(x);
3369 })(), f84(v242, f83)));
3370 })() : (f16(v243, l58) !== v2 ? (function(){
3371 return (function(v245){
3372 return (f67(v245, "common-lisp") !== v2 ? (function(){
3375 })() : (f67(v245, "ecmalisp") !== v2 ? (function(){
3379 throw "Unknown reader form.";
3385 throw "ECASE expression failed.";
3392 if (cf.type == 'block' && cf.id == 99)
3402 var l60 = f3("*EOF*");
3406 return v246 = (function(){
3408 if (typeof name != 'string')
3409 throw 'The value ' + name + ' is not a type string.';
3410 return ({name: name});
3415 var l65 = f3("LS-READ");
3416 var l64 = f3("UNQUOTE");
3417 var l63 = f3("UNQUOTE-SPLICING");
3418 var l62 = f3("BACKQUOTE");
3419 var l61 = f3("QUOTE");
3423 return f87 = (function(v247){
3424 ((v247)["fname"] = "LS-READ");
3426 })((function (v248){
3427 if (arguments.length < 1) throw 'too few arguments';
3428 if (arguments.length > 1) throw 'too many arguments';
3433 return (function(v249){
3434 return (f1(v249) !== v2 ? (function(){
3436 })() : (f50(v249, 40) !== v2 ? (function(){
3439 })() : (f50(v249, 39) !== v2 ? (function(){
3441 return f33(l61, f87(v248));
3442 })() : (f50(v249, 96) !== v2 ? (function(){
3444 return f33(l62, f87(v248));
3445 })() : (f50(v249, 34) !== v2 ? (function(){
3448 })() : (f50(v249, 44) !== v2 ? (function(){
3450 return (f16(f79(v248), 64) !== v2 ? (function(){
3452 return f33(l63, f87(v248));
3453 })() : f33(l64, f87(v248)));
3454 })() : (f50(v249, 35) !== v2 ? (function(){
3457 return (function(v250){
3458 return (f65(f61, v250) !== v2 ? f63(v250) : f3((function(){
3460 if (typeof x != 'string')
3461 throw 'The value ' + x + ' is not a type string.';
3462 return x.toUpperCase();
3470 if (cf.type == 'block' && cf.id == 100)
3480 var l66 = f3("LS-READ-FROM-STRING");
3484 return f90 = (function(v251){
3485 ((v251)["fname"] = "LS-READ-FROM-STRING");
3487 })((function (v252){
3488 if (arguments.length < 1) throw 'too few arguments';
3489 if (arguments.length > 1) throw 'too many arguments';
3493 return f87(f78(v252));
3497 if (cf.type == 'block' && cf.id == 101)
3507 var l68 = f3("*COMPILATION-UNIT-CHECKS*");
3508 var l67 = f3("NIL");
3516 var l69 = f3("MAKE-BINDING");
3520 return f91 = (function(v254){
3521 ((v254)["fname"] = "MAKE-BINDING");
3523 })((function (v255,v256,v257,v258){
3524 if (arguments.length < 4) throw 'too few arguments';
3525 if (arguments.length > 4) throw 'too many arguments';
3529 return f33(v255, v256, v257, v258);
3533 if (cf.type == 'block' && cf.id == 102)
3543 var l70 = f3("BINDING-NAME");
3547 return f92 = (function(v259){
3548 ((v259)["fname"] = "BINDING-NAME");
3550 })((function (v260){
3551 if (arguments.length < 1) throw 'too few arguments';
3552 if (arguments.length > 1) throw 'too many arguments';
3560 if (cf.type == 'block' && cf.id == 103)
3570 var l71 = f3("BINDING-TYPE");
3574 return f93 = (function(v261){
3575 ((v261)["fname"] = "BINDING-TYPE");
3577 })((function (v262){
3578 if (arguments.length < 1) throw 'too few arguments';
3579 if (arguments.length > 1) throw 'too many arguments';
3587 if (cf.type == 'block' && cf.id == 104)
3597 var l72 = f3("BINDING-TRANSLATION");
3601 return f94 = (function(v263){
3602 ((v263)["fname"] = "BINDING-TRANSLATION");
3604 })((function (v264){
3605 if (arguments.length < 1) throw 'too few arguments';
3606 if (arguments.length > 1) throw 'too many arguments';
3614 if (cf.type == 'block' && cf.id == 105)
3624 var l73 = f3("BINDING-DECLARED");
3628 return f95 = (function(v265){
3629 ((v265)["fname"] = "BINDING-DECLARED");
3631 })((function (v266){
3632 if (arguments.length < 1) throw 'too few arguments';
3633 if (arguments.length > 1) throw 'too many arguments';
3637 return (v266 !== v2 ? f32(v266) : v2);
3641 if (cf.type == 'block' && cf.id == 106)
3651 var l74 = f3("MARK-BINDING-AS-DECLARED");
3655 return f96 = (function(v267){
3656 ((v267)["fname"] = "MARK-BINDING-AS-DECLARED");
3658 })((function (v268){
3659 if (arguments.length < 1) throw 'too few arguments';
3660 if (arguments.length > 1) throw 'too many arguments';
3666 if (typeof x != 'object')
3667 throw 'The value ' + x + ' is not a type object.';
3668 return (x.car = v3);
3673 if (cf.type == 'block' && cf.id == 107)
3683 var l75 = f3("MAKE-LEXENV");
3687 return f97 = (function(v269){
3688 ((v269)["fname"] = "MAKE-LEXENV");
3691 if (arguments.length > 0) throw 'too many arguments';
3695 return f33(v2, v2, v2, v2);
3699 if (cf.type == 'block' && cf.id == 108)
3709 var l76 = f3("COPY-LEXENV");
3713 return f98 = (function(v270){
3714 ((v270)["fname"] = "COPY-LEXENV");
3716 })((function (v271){
3717 if (arguments.length < 1) throw 'too few arguments';
3718 if (arguments.length > 1) throw 'too many arguments';
3726 if (cf.type == 'block' && cf.id == 109)
3736 var l81 = f3("PUSH-TO-LEXENV");
3737 var l80 = f3("GOTAG");
3738 var l79 = f3("BLOCK");
3739 var l78 = f3("FUNCTION");
3740 var l77 = f3("VARIABLE");
3744 return f99 = (function(v272){
3745 ((v272)["fname"] = "PUSH-TO-LEXENV");
3747 })((function (v273,v274,v275){
3748 if (arguments.length < 3) throw 'too few arguments';
3749 if (arguments.length > 3) throw 'too many arguments';
3753 return (function(v276){
3754 return (f16(v276, l77) !== v2 ? (function(){
3757 if (typeof x != 'object')
3758 throw 'The value ' + x + ' is not a type object.';
3759 return (x.car = ({car: v273, cdr: (function(){
3761 return tmp === v2? v2: tmp.car;
3764 })() : (f16(v276, l78) !== v2 ? (function(){
3766 var x = (function(){
3768 return tmp === v2? v2: tmp.cdr;
3770 if (typeof x != 'object')
3771 throw 'The value ' + x + ' is not a type object.';
3772 return (x.car = ({car: v273, cdr: f23(v274)}));
3774 })() : (f16(v276, l79) !== v2 ? (function(){
3777 if (typeof x != 'object')
3778 throw 'The value ' + x + ' is not a type object.';
3779 return (x.car = ({car: v273, cdr: f26(v274)}));
3781 })() : (f16(v276, l80) !== v2 ? (function(){
3784 if (typeof x != 'object')
3785 throw 'The value ' + x + ' is not a type object.';
3786 return (x.car = ({car: v273, cdr: f28(v274)}));
3790 throw "ECASE expression failed.";
3797 if (cf.type == 'block' && cf.id == 110)
3807 var l82 = f3("EXTEND-LEXENV");
3811 return f100 = (function(v277){
3812 ((v277)["fname"] = "EXTEND-LEXENV");
3814 })((function (v278,v279,v280){
3815 if (arguments.length < 3) throw 'too few arguments';
3816 if (arguments.length > 3) throw 'too many arguments';
3820 return (function(v281){
3824 return (function(v282,v283){
3829 return tmp === v2? v2: tmp.car;
3832 f99(v283, v281, v280);
3837 return tmp === v2? v2: tmp.cdr;
3846 if (cf.type == 'block' && cf.id == 112)
3856 if (cf.type == 'block' && cf.id == 111)
3866 var l87 = f3("LOOKUP-IN-LEXENV");
3867 var l86 = f3("GOTAG");
3868 var l85 = f3("BLOCK");
3869 var l84 = f3("FUNCTION");
3870 var l83 = f3("VARIABLE");
3874 return f101 = (function(v284){
3875 ((v284)["fname"] = "LOOKUP-IN-LEXENV");
3877 })((function (v285,v286,v287){
3878 if (arguments.length < 3) throw 'too few arguments';
3879 if (arguments.length > 3) throw 'too many arguments';
3883 return f66(v285, (function(v288){
3884 return (f16(v288, l83) !== v2 ? (function(){
3886 })() : (f16(v288, l84) !== v2 ? (function(){
3888 })() : (f16(v288, l85) !== v2 ? (function(){
3890 })() : (f16(v288, l86) !== v2 ? (function(){
3894 throw "ECASE expression failed.";
3901 if (cf.type == 'block' && cf.id == 113)
3911 var l88 = f3("*ENVIRONMENT*");
3915 return v289 = f97();
3919 var l89 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3923 return f102 = (function(v290){
3924 ((v290)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3927 if (arguments.length > 0) throw 'too many arguments';
3931 return v289 = f45((function (v291){
3932 if (arguments.length < 1) throw 'too few arguments';
3933 if (arguments.length > 1) throw 'too many arguments';
3934 return f60(f95, v291);
3939 if (cf.type == 'block' && cf.id == 114)
3949 var l90 = f3("*VARIABLE-COUNTER*");
3957 var l91 = f3("GVARNAME");
3961 return f103 = (function(v293){
3962 ((v293)["fname"] = "GVARNAME");
3964 })((function (v294){
3965 if (arguments.length < 1) throw 'too few arguments';
3966 if (arguments.length > 1) throw 'too many arguments';
3970 return f68("v", f6(v292 = (function(){
3973 if (typeof x != 'number')
3974 throw 'The value ' + x + ' is not a type number.';
3975 if (typeof y != 'number')
3976 throw 'The value ' + y + ' is not a type number.';
3982 if (cf.type == 'block' && cf.id == 115)
3992 var l97 = f3("LOOKUP-VARIABLE");
3993 var l96 = f3("VARIABLE");
3994 var l95 = f3("VARIABLE");
3995 var l94 = f3("VARIABLE");
3996 var l93 = f3("VARIABLE");
3997 var l92 = f3("VARIABLE");
4001 return f104 = (function(v295){
4002 ((v295)["fname"] = "LOOKUP-VARIABLE");
4004 })((function (v296,v297){
4005 if (arguments.length < 2) throw 'too few arguments';
4006 if (arguments.length > 2) throw 'too many arguments';
4010 return (function(v298){
4011 return (v298 !== v2 ? v298 : (function(v299){
4012 return (v299 !== v2 ? v299 : (function(v300,v301){
4013 f99(v301, v289, l92);
4014 v253 = ({car: (function (){
4015 if (arguments.length > 0) throw 'too many arguments';
4016 return (function(v302){
4017 return (f95(v302) !== v2 ? v2 : (function(){
4019 throw f68("Undefined variable `", v300, "'");
4022 })(f101(v296, v289, l93));
4025 })((v296).name,f91(v296, l94, f103(v296), v2)));
4026 })(f101(v296, v289, l95)));
4027 })(f101(v296, v297, l96));
4031 if (cf.type == 'block' && cf.id == 116)
4041 var l98 = f3("LOOKUP-VARIABLE-TRANSLATION");
4045 return f105 = (function(v303){
4046 ((v303)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4048 })((function (v304,v305){
4049 if (arguments.length < 2) throw 'too few arguments';
4050 if (arguments.length > 2) throw 'too many arguments';
4054 return f94(f104(v304, v305));
4058 if (cf.type == 'block' && cf.id == 117)
4068 var l101 = f3("EXTEND-LOCAL-ENV");
4069 var l100 = f3("VARIABLE");
4070 var l99 = f3("VARIABLE");
4074 return f106 = (function(v306){
4075 ((v306)["fname"] = "EXTEND-LOCAL-ENV");
4077 })((function (v307,v308){
4078 if (arguments.length < 2) throw 'too few arguments';
4079 if (arguments.length > 2) throw 'too many arguments';
4083 return (function(v309){
4087 return (function(v310,v311){
4092 return tmp === v2? v2: tmp.car;
4096 return f99(v312, v309, l99);
4097 })(f91(v311, l100, f103(v311), v3));
4102 return tmp === v2? v2: tmp.cdr;
4111 if (cf.type == 'block' && cf.id == 119)
4121 if (cf.type == 'block' && cf.id == 118)
4131 var l102 = f3("*FUNCTION-COUNTER*");
4139 var l108 = f3("LOOKUP-FUNCTION");
4140 var l107 = f3("FUNCTION");
4141 var l106 = f3("FUNCTION");
4142 var l105 = f3("FUNCTION");
4143 var l104 = f3("FUNCTION");
4144 var l103 = f3("FUNCTION");
4148 return f107 = (function(v314){
4149 ((v314)["fname"] = "LOOKUP-FUNCTION");
4151 })((function (v315,v316){
4152 if (arguments.length < 2) throw 'too few arguments';
4153 if (arguments.length > 2) throw 'too many arguments';
4157 return (function(v317){
4158 return (v317 !== v2 ? v317 : (function(v318){
4159 return (v318 !== v2 ? v318 : (function(v319,v320){
4160 f99(v320, v289, l103);
4161 v253 = ({car: (function (){
4162 if (arguments.length > 0) throw 'too many arguments';
4163 return (function(v321){
4164 return (f95(v321) !== v2 ? v2 : (function(){
4166 throw f68("Undefined function `", v319, "'");
4169 })(f101(v315, v289, l104));
4172 })((v315).name,f91(v315, l105, f68("f", f6(v313 = (function(){
4175 if (typeof x != 'number')
4176 throw 'The value ' + x + ' is not a type number.';
4177 if (typeof y != 'number')
4178 throw 'The value ' + y + ' is not a type number.';
4181 })(f101(v315, v289, l106)));
4182 })(f101(v315, v316, l107));
4186 if (cf.type == 'block' && cf.id == 120)
4196 var l109 = f3("LOOKUP-FUNCTION-TRANSLATION");
4200 return f108 = (function(v322){
4201 ((v322)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4203 })((function (v323,v324){
4204 if (arguments.length < 2) throw 'too few arguments';
4205 if (arguments.length > 2) throw 'too many arguments';
4209 return f94(f107(v323, v324));
4213 if (cf.type == 'block' && cf.id == 121)
4223 var l110 = f3("*TOPLEVEL-COMPILATIONS*");
4231 var l111 = f3("%COMPILE-DEFVAR");
4235 return f109 = (function(v326){
4236 ((v326)["fname"] = "%COMPILE-DEFVAR");
4238 })((function (v327){
4239 if (arguments.length < 1) throw 'too few arguments';
4240 if (arguments.length > 1) throw 'too many arguments';
4244 return (function(v328){
4246 return v325 = ({car: f68("var ", f94(v328)), cdr: v325});
4247 })(f104(v327, v289));
4251 if (cf.type == 'block' && cf.id == 122)
4261 var l112 = f3("%COMPILE-DEFUN");
4265 return f110 = (function(v329){
4266 ((v329)["fname"] = "%COMPILE-DEFUN");
4268 })((function (v330){
4269 if (arguments.length < 1) throw 'too few arguments';
4270 if (arguments.length > 1) throw 'too many arguments';
4274 return (function(v331){
4276 return v325 = ({car: f68("var ", f94(v331)), cdr: v325});
4277 })(f107(v330, v289));
4281 if (cf.type == 'block' && cf.id == 123)
4291 var l115 = f3("%COMPILE-DEFMACRO");
4292 var l114 = f3("FUNCTION");
4293 var l113 = f3("MACRO");
4297 return f111 = (function(v332){
4298 ((v332)["fname"] = "%COMPILE-DEFMACRO");
4300 })((function (v333,v334){
4301 if (arguments.length < 2) throw 'too few arguments';
4302 if (arguments.length > 2) throw 'too many arguments';
4306 return f99(f91(v333, l113, v334, v3), v289, l114);
4310 if (cf.type == 'block' && cf.id == 124)
4320 var l116 = f3("*COMPILATIONS*");
4328 var l117 = f3("LS-COMPILE-BLOCK");
4332 return f112 = (function(v336){
4333 ((v336)["fname"] = "LS-COMPILE-BLOCK");
4335 })((function (v337,v338){
4336 if (arguments.length < 2) throw 'too few arguments';
4337 if (arguments.length > 2) throw 'too many arguments';
4341 return f70(f59((function (v339){
4342 if (arguments.length < 1) throw 'too few arguments';
4343 if (arguments.length > 1) throw 'too many arguments';
4344 return (function(v340){
4345 return (v340 !== v2 ? v340 : (((typeof(v339) == "string")?v3: v2) !== v2 ? f14(f43(v339)) : v2));
4347 }), f45((function (v341){
4348 if (arguments.length < 1) throw 'too few arguments';
4349 if (arguments.length > 1) throw 'too many arguments';
4350 return f73(v341, v338);
4351 }), v337)), f68(";", v176));
4355 if (cf.type == 'block' && cf.id == 125)
4365 var l118 = f3("IF");
4366 v335 = ({car: f33(l118, (function (v342,v343,v344,v345){
4367 if (arguments.length < 4) throw 'too few arguments';
4368 if (arguments.length > 4) throw 'too many arguments';
4372 return f68("(", f73(v343, v342), " !== ", f73(v2), " ? ", f73(v344, v342), " : ", f73(v345, v342), ")");
4376 if (cf.type == 'block' && cf.id == 126)
4383 var l120 = f3("*LAMBDA-LIST-KEYWORDS*");
4384 var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4392 var l121 = f3("LIST-UNTIL-KEYWORD");
4396 return f113 = (function(v347){
4397 ((v347)["fname"] = "LIST-UNTIL-KEYWORD");
4399 })((function (v348){
4400 if (arguments.length < 1) throw 'too few arguments';
4401 if (arguments.length > 1) throw 'too many arguments';
4405 return ((function(v349){
4406 return (v349 !== v2 ? v349 : f57((function(){
4408 return tmp === v2? v2: tmp.car;
4410 })(f1(v348)) !== v2 ? v2 : ({car: (function(){
4412 return tmp === v2? v2: tmp.car;
4413 })(), cdr: f113((function(){
4415 return tmp === v2? v2: tmp.cdr;
4420 if (cf.type == 'block' && cf.id == 127)
4430 var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4434 return f114 = (function(v350){
4435 ((v350)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4437 })((function (v351){
4438 if (arguments.length < 1) throw 'too few arguments';
4439 if (arguments.length > 1) throw 'too many arguments';
4447 if (cf.type == 'block' && cf.id == 128)
4457 var l124 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4458 var l123 = f3("&OPTIONAL");
4462 return f115 = (function(v352){
4463 ((v352)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4465 })((function (v353){
4466 if (arguments.length < 1) throw 'too few arguments';
4467 if (arguments.length > 1) throw 'too many arguments';
4471 return f45(f35, f113((function(){
4472 var tmp = f57(l123, v353);
4473 return tmp === v2? v2: tmp.cdr;
4478 if (cf.type == 'block' && cf.id == 129)
4488 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4492 return f116 = (function(v354){
4493 ((v354)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4495 })((function (v355){
4496 if (arguments.length < 1) throw 'too few arguments';
4497 if (arguments.length > 1) throw 'too many arguments';
4501 return f45(f20, f115(v355));
4505 if (cf.type == 'block' && cf.id == 130)
4515 var l127 = f3("LAMBDA-LIST-REST-ARGUMENT");
4516 var l126 = f3("&REST");
4520 return f117 = (function(v356){
4521 ((v356)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4523 })((function (v357){
4524 if (arguments.length < 1) throw 'too few arguments';
4525 if (arguments.length > 1) throw 'too many arguments';
4529 return (function(v358){
4532 return tmp === v2? v2: tmp.cdr;
4533 })() !== v2 ? (function(){
4535 throw "Bad lambda-list";
4540 return tmp === v2? v2: tmp.car;
4542 })(f113((function(){
4543 var tmp = f57(l126, v357);
4544 return tmp === v2? v2: tmp.cdr;
4549 if (cf.type == 'block' && cf.id == 131)
4559 var l128 = f3("LAMBDA");
4560 v335 = ({car: f33(l128, (function (v360,v361){
4561 if (arguments.length < 2) throw 'too few arguments';
4563 for (var i = arguments.length-1; i>=2; i--)
4564 v359 = {car: arguments[i], cdr: v359};
4568 return (function(v362,v363,v364){
4569 return (function(v365,v366,v367){
4570 return f68("(function (", f69(f45((function (v368){
4571 if (arguments.length < 1) throw 'too few arguments';
4572 if (arguments.length > 1) throw 'too many arguments';
4573 return f105(v368, v367);
4574 }), f39(v362, v363)), ","), "){", v176, f71((v362 !== v2 ? f68("if (arguments.length < ", f6(v365), ") throw 'too few arguments';", v176) : ""), (f17(v364) !== v2 ? f68("if (arguments.length > ", f6((function(){
4577 if (typeof x != 'number')
4578 throw 'The value ' + x + ' is not a type number.';
4579 if (typeof y != 'number')
4580 throw 'The value ' + y + ' is not a type number.';
4582 })()), ") throw 'too many arguments';", v176) : ""), (v363 !== v2 ? f68("switch(arguments.length){", v176, (function(v369,v370,v371){
4591 if (typeof x != 'number')
4592 throw 'The value ' + x + ' is not a type number.';
4593 if (typeof y != 'number')
4594 throw 'The value ' + y + ' is not a type number.';
4596 })()?v3: v2) !== v2){
4598 v370 = ({car: f68("case ", 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 })()), ":", v176, f105((function(){
4608 return tmp === v2? v2: tmp.car;
4609 })(), v367), "=", f73(f23(v372), v367), ";", v176), cdr: v370});
4610 return v371 = (function(){
4613 if (typeof x != 'number')
4614 throw 'The value ' + x + ' is not a type number.';
4615 if (typeof y != 'number')
4616 throw 'The value ' + y + ' is not a type number.';
4619 })(f54(v371, v369));
4625 if (cf.type == 'block' && cf.id == 133)
4631 v370 = ({car: f68("default: break;", v176), cdr: v370});
4632 return f69(f41(v370));
4634 })(f115(v361),v2,0), "}", v176) : ""), (v364 !== v2 ? (function(v373){
4635 return f68("var ", v373, "= ", f73(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){
4638 if (typeof x != 'number')
4639 throw 'The value ' + x + ' is not a type number.';
4640 if (typeof y != 'number')
4641 throw 'The value ' + y + ' is not a type number.';
4643 })()), "; i--)", v176, f71(v373, " = ", "{car: arguments[i], cdr: "), v373, "};", v176);
4644 })(f105(v364, v367)) : ""), f68(f112(f56(v359), v367), "return ", f73((function(){
4645 var tmp = f55(v359);
4646 return tmp === v2? v2: tmp.car;
4647 })(), v367), ";")), v176, "})");
4648 })(f43(v362),f43(v363),f106(f39(f35(v364), v362, v363), v360));
4649 })(f114(v361),f116(v361),f117(v361));
4653 if (cf.type == 'block' && cf.id == 132)
4660 var l129 = f3("FSETQ");
4661 v335 = ({car: f33(l129, (function (v374,v375,v376){
4662 if (arguments.length < 3) throw 'too few arguments';
4663 if (arguments.length > 3) throw 'too many arguments';
4667 return f68(f108(v375, v374), " = ", f73(v376, v374));
4671 if (cf.type == 'block' && cf.id == 134)
4678 var l130 = f3("SETQ");
4679 v335 = ({car: f33(l130, (function (v377,v378,v379){
4680 if (arguments.length < 3) throw 'too few arguments';
4681 if (arguments.length > 3) throw 'too many arguments';
4685 return f68(f105(v378, v377), " = ", f73(v379, v377));
4689 if (cf.type == 'block' && cf.id == 135)
4696 var l131 = f3("ESCAPE-STRING");
4700 return f75 = (function(v380){
4701 ((v380)["fname"] = "ESCAPE-STRING");
4703 })((function (v381){
4704 if (arguments.length < 1) throw 'too few arguments';
4705 if (arguments.length > 1) throw 'too many arguments';
4709 return (function(v382,v383,v384){
4717 if (typeof x != 'number')
4718 throw 'The value ' + x + ' is not a type number.';
4719 if (typeof y != 'number')
4720 throw 'The value ' + y + ' is not a type number.';
4722 })()?v3: v2) !== v2){
4725 return (v386 !== v2 ? v386 : f50(v385, 92));
4726 })(f50(v385, 34)) !== v2 ? (function(){
4727 return v382 = f68(v382, "\\");
4729 (f50(v385, 10) !== v2 ? (function(){
4730 v382 = f68(v382, "\\");
4733 return v382 = f68(v382, (function(){
4735 if (typeof x != 'number')
4736 throw 'The value ' + x + ' is not a type number.';
4737 return String.fromCharCode(x);
4742 if (typeof string != 'string')
4743 throw 'The value ' + string + ' is not a type string.';
4744 if (typeof index != 'number')
4745 throw 'The value ' + index + ' is not a type number.';
4746 return string.charCodeAt(index);
4751 if (typeof x != 'number')
4752 throw 'The value ' + x + ' is not a type number.';
4753 if (typeof y != 'number')
4754 throw 'The value ' + y + ' is not a type number.';
4762 if (cf.type == 'block' && cf.id == 137)
4773 if (cf.type == 'block' && cf.id == 136)
4783 var l133 = f3("LITERAL->JS");
4784 var l132 = f3("INTERN");
4788 return f118 = (function(v387){
4789 ((v387)["fname"] = "LITERAL->JS");
4791 })((function (v388){
4792 if (arguments.length < 1) throw 'too few arguments';
4793 if (arguments.length > 1) throw 'too many arguments';
4797 return (f51(v388) !== v2 ? (function(){
4799 })() : (((typeof(v388) == "string")?v3: v2) !== v2 ? (function(){
4800 return f68("\"", f75(v388), "\"");
4801 })() : (((function(){
4803 return (typeof tmp == 'object' && 'name' in tmp);
4804 })()?v3: v2) !== v2 ? (function(){
4805 return f73(f39(f33(l132), f33(f75((v388).name))), v289);
4806 })() : (((function(){
4808 return (typeof tmp == 'object' && 'car' in tmp);
4809 })()?v3: v2) !== v2 ? (function(){
4810 return f68("{car: ", f118((function(){
4812 return tmp === v2? v2: tmp.car;
4813 })()), ", cdr: ", f118((function(){
4815 return tmp === v2? v2: tmp.cdr;
4821 if (cf.type == 'block' && cf.id == 138)
4831 var l134 = f3("*LITERAL-COUNTER*");
4839 var l135 = f3("LITERAL");
4843 return f119 = (function(v390){
4844 ((v390)["fname"] = "LITERAL");
4846 })((function (v391){
4847 if (arguments.length < 1) throw 'too few arguments';
4848 if (arguments.length > 1) throw 'too many arguments';
4852 return (function(v392){
4853 v325 = ({car: f68("var ", v392, " = ", f118(v391)), cdr: v325});
4855 })(f68("l", f6(v389 = (function(){
4858 if (typeof x != 'number')
4859 throw 'The value ' + x + ' is not a type number.';
4860 if (typeof y != 'number')
4861 throw 'The value ' + y + ' is not a type number.';
4867 if (cf.type == 'block' && cf.id == 139)
4877 var l136 = f3("QUOTE");
4878 v335 = ({car: f33(l136, (function (v393,v394){
4879 if (arguments.length < 2) throw 'too few arguments';
4880 if (arguments.length > 2) throw 'too many arguments';
4888 if (cf.type == 'block' && cf.id == 140)
4895 var l137 = f3("%WHILE");
4896 v335 = ({car: f33(l137, (function (v396,v397){
4897 if (arguments.length < 2) throw 'too few arguments';
4899 for (var i = arguments.length-1; i>=2; i--)
4900 v395 = {car: arguments[i], cdr: v395};
4904 return f68("(function(){", v176, f71("while(", f73(v397, v396), " !== ", f73(v2), "){", v176, f71(f112(v395, v396)), "}", "return ", f73(v2), ";", v176), "})()");
4908 if (cf.type == 'block' && cf.id == 141)
4915 var l139 = f3("LAMBDA");
4916 var l138 = f3("FUNCTION");
4917 v335 = ({car: f33(l138, (function (v398,v399){
4918 if (arguments.length < 2) throw 'too few arguments';
4919 if (arguments.length > 2) throw 'too many arguments';
4923 return ((f36(v399) !== v2 ? (((function(){
4925 return tmp === v2? v2: tmp.car;
4926 })() === l139)?v3: v2) : v2) !== v2 ? (function(){
4927 return f73(v399, v398);
4928 })() : (((function(){
4930 return (typeof tmp == 'object' && 'name' in tmp);
4931 })()?v3: v2) !== v2 ? (function(){
4932 return f108(v399, v398);
4937 if (cf.type == 'block' && cf.id == 142)
4944 var l141 = f3("PROGN");
4945 var l140 = f3("EVAL-WHEN-COMPILE");
4946 v335 = ({car: f33(l140, (function (v401){
4947 if (arguments.length < 1) throw 'too few arguments';
4949 for (var i = arguments.length-1; i>=1; i--)
4950 v400 = {car: arguments[i], cdr: v400};
4954 f120(({car: l141, cdr: v400}));
4959 if (cf.type == 'block' && cf.id == 143)
4966 var l142 = f3("PROGN");
4967 v335 = ({car: f33(l142, (function (v403){
4968 if (arguments.length < 1) throw 'too few arguments';
4970 for (var i = arguments.length-1; i>=1; i--)
4971 v402 = {car: arguments[i], cdr: v402};
4975 return f68("(function(){", v176, f71(f112(f56(v402), v403), "return ", f73((function(){
4976 var tmp = f55(v402);
4977 return tmp === v2? v2: tmp.car;
4978 })(), v403), ";", v176), "})()");
4982 if (cf.type == 'block' && cf.id == 144)
4989 var l143 = f3("LET");
4990 v335 = ({car: f33(l143, (function (v405,v406){
4991 if (arguments.length < 2) throw 'too few arguments';
4993 for (var i = arguments.length-1; i>=2; i--)
4994 v404 = {car: arguments[i], cdr: v404};
4998 return (function(v407){
4999 return (function(v408,v409){
5000 return (function(v410){
5001 return f68("(function(", f69(f45((function (v411){
5002 if (arguments.length < 1) throw 'too few arguments';
5003 if (arguments.length > 1) throw 'too many arguments';
5004 return f105(v411, v410);
5005 }), v408), ","), "){", v176, f71(f112(f56(v404), v410), "return ", f73((function(){
5006 var tmp = f55(v404);
5007 return tmp === v2? v2: tmp.car;
5008 })(), v410), ";", v176), "})(", f69(f45((function (v412){
5009 if (arguments.length < 1) throw 'too few arguments';
5010 if (arguments.length > 1) throw 'too many arguments';
5011 return f73(v412, v405);
5012 }), v409), ","), ")");
5013 })(f106(v408, v405));
5014 })(f45(f29, v407),f45(f30, v407));
5019 if (cf.type == 'block' && cf.id == 145)
5026 var l144 = f3("*BLOCK-COUNTER*");
5034 var l148 = f3("BLOCK");
5035 var l147 = f3("BLOCK");
5036 var l146 = f3("PROGN");
5037 var l145 = f3("BLOCK");
5038 v335 = ({car: f33(l145, (function (v415,v416){
5039 if (arguments.length < 2) throw 'too few arguments';
5041 for (var i = arguments.length-1; i>=2; i--)
5042 v414 = {car: arguments[i], cdr: v414};
5046 return (function(v417){
5047 return (function(v418){
5048 return f68("(function(){", v176, f71("try {", v176, f71("return ", f73(f39(f33(l146), v414), f100(f33(v418), v415, l147)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'block' && cf.id == ", v417, ")", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()");
5049 })(f91(v416, l148, v417, v3));
5050 })(f6(v413 = (function(){
5053 if (typeof x != 'number')
5054 throw 'The value ' + x + ' is not a type number.';
5055 if (typeof y != 'number')
5056 throw 'The value ' + y + ' is not a type number.';
5062 if (cf.type == 'block' && cf.id == 146)
5069 var l150 = f3("BLOCK");
5070 var l149 = f3("RETURN-FROM");
5071 v335 = ({car: f33(l149, (function (v419,v420,v421){
5072 if (arguments.length < 2) throw 'too few arguments';
5073 if (arguments.length > 3) throw 'too many arguments';
5074 switch(arguments.length){
5082 return (function(v422){
5083 return (v422 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'block', ", "id: ", f94(v422), ", ", "value: ", f73(v421, v419), ", ", "message: 'Return from unknown block ", (v420).name, ".'", "})"), "})()") : (function(){
5084 throw f68("Unknown block `", (v420).name, "'.");
5086 })(f101(v420, v419, l150));
5090 if (cf.type == 'block' && cf.id == 147)
5097 var l152 = f3("PROGN");
5098 var l151 = f3("CATCH");
5099 v335 = ({car: f33(l151, (function (v424,v425){
5100 if (arguments.length < 2) throw 'too few arguments';
5102 for (var i = arguments.length-1; i>=2; i--)
5103 v423 = {car: arguments[i], cdr: v423};
5107 return f68("(function(){", v176, f71("var id = ", f73(v425, v424), ";", v176, "try {", v176, f71("return ", f73(f39(f33(l152), v423)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'catch' && cf.id == id)", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()");
5111 if (cf.type == 'block' && cf.id == 148)
5118 var l153 = f3("THROW");
5119 v335 = ({car: f33(l153, (function (v426,v427,v428){
5120 if (arguments.length < 2) throw 'too few arguments';
5121 if (arguments.length > 3) throw 'too many arguments';
5122 switch(arguments.length){
5130 return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v427, v426), ", ", "value: ", f73(v428, v426), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5134 if (cf.type == 'block' && cf.id == 149)
5141 var l154 = f3("*TAGBODY-COUNTER*");
5149 var l155 = f3("*GO-TAG-COUNTER*");
5157 var l156 = f3("GO-TAG-P");
5161 return f121 = (function(v431){
5162 ((v431)["fname"] = "GO-TAG-P");
5164 })((function (v432){
5165 if (arguments.length < 1) throw 'too few arguments';
5166 if (arguments.length > 1) throw 'too many arguments';
5170 return (function(v433){
5171 return (v433 !== v2 ? v433 : ((function(){
5173 return (typeof tmp == 'object' && 'name' in tmp);
5179 if (cf.type == 'block' && cf.id == 150)
5189 var l159 = f3("DECLARE-TAGBODY-TAGS");
5190 var l158 = f3("GOTAG");
5191 var l157 = f3("GOTAG");
5195 return f122 = (function(v434){
5196 ((v434)["fname"] = "DECLARE-TAGBODY-TAGS");
5198 })((function (v435,v436,v437){
5199 if (arguments.length < 3) throw 'too few arguments';
5200 if (arguments.length > 3) throw 'too many arguments';
5204 return (function(v438){
5205 return f100(v438, v435, l157);
5206 })(f45((function (v439){
5207 if (arguments.length < 1) throw 'too few arguments';
5208 if (arguments.length > 1) throw 'too many arguments';
5209 return (function(v440){
5210 return f91(v439, l158, f33(v436, v440), v3);
5211 })(f6(v430 = (function(){
5214 if (typeof x != 'number')
5215 throw 'The value ' + x + ' is not a type number.';
5216 if (typeof y != 'number')
5217 throw 'The value ' + y + ' is not a type number.';
5220 }), f60(f121, v437)));
5224 if (cf.type == 'block' && cf.id == 151)
5234 var l164 = f3("GOTAG");
5235 var l163 = f3("GOTAG");
5236 var l162 = f3("NIL");
5237 var l161 = f3("PROGN");
5238 var l160 = f3("TAGBODY");
5239 v335 = ({car: f33(l160, (function (v442){
5240 if (arguments.length < 1) throw 'too few arguments';
5242 for (var i = arguments.length-1; i>=1; i--)
5243 v441 = {car: arguments[i], cdr: v441};
5247 (f64(f121, v441) !== v2 ? v2 : (function(){
5249 throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v441, f33(l162)), v442), message: 'Return from unknown block TAGBODY.'})})();
5253 return tmp === v2? v2: tmp.car;
5254 })()) !== v2 ? v2 : (function(){
5255 return v441 = ({car: f5("START"), cdr: v441});
5257 return (function(v443){
5258 return (function(v444,v445){
5260 return v445 = f30(f94(v446));
5261 })(f101(f29(v441), v444, l163));
5262 return f68("(function(){", v176, f71("var tagbody_", v443, " = ", v445, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v447){
5263 return f68("switch(tagbody_", v443, "){", v176, "case ", v445, ":", v176, (function(){
5266 return (function(v448,v449){
5271 return tmp === v2? v2: tmp.car;
5274 v447 = f68(v447, (function(){
5275 return (f17(f121(v449)) !== v2 ? f71(f73(v449, v444), ";", v176) : (function(v450){
5276 return f68("case ", f30(f94(v450)), ":", v176);
5277 })(f101(v449, v444, l164)));
5283 return tmp === v2? v2: tmp.cdr;
5290 return tmp === v2? v2: tmp.cdr;
5295 if (cf.type == 'block' && cf.id == 153)
5300 })(), "default:", v176, " break tbloop;", v176, "}", v176);
5301 })("")), "}", v176, "catch (jump) {", v176, " if (jump.type == 'tagbody' && jump.id == ", v443, ")", v176, " tagbody_", v443, " = jump.label;", v176, " else", v176, " throw(jump);", v176, "}", v176), "}", v176, "return ", f73(v2), ";", v176), "})()");
5302 })(f122(v442, v443, v441),v2);
5307 if (cf.type == 'block' && cf.id == 152)
5314 var l166 = f3("GOTAG");
5315 var l165 = f3("GO");
5316 v335 = ({car: f33(l165, (function (v451,v452){
5317 if (arguments.length < 2) throw 'too few arguments';
5318 if (arguments.length > 2) throw 'too many arguments';
5322 return (function(v453,v454){
5323 return (v453 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'tagbody', ", "id: ", f29(f94(v453)), ", ", "label: ", f30(f94(v453)), ", ", "message: 'Attempt to GO to non-existing tag ", v454, "'", "})", v176), "})()") : (function(){
5324 throw f68("Unknown tag `", v454, "'.");
5326 })(f101(v452, v451, l166),(((function(){
5328 return (typeof tmp == 'object' && 'name' in tmp);
5329 })()?v3: v2) !== v2 ? (function(){
5331 })() : (f51(v452) !== v2 ? (function(){
5337 if (cf.type == 'block' && cf.id == 154)
5344 var l167 = f3("UNWIND-PROTECT");
5345 v335 = ({car: f33(l167, (function (v456,v457){
5346 if (arguments.length < 2) throw 'too few arguments';
5348 for (var i = arguments.length-1; i>=2; i--)
5349 v455 = {car: arguments[i], cdr: v455};
5353 return f68("(function(){", v176, f71("var ret = ", f73(v2), ";", v176, "try {", v176, f71("ret = ", f73(v457, v456), ";", v176), "} finally {", v176, f71(f112(v455, v456)), "}", v176, "return ret;", v176), "})()");
5357 if (cf.type == 'block' && cf.id == 155)
5364 var l176 = f3("BACKQUOTE-EXPAND-1");
5365 var l175 = f3("LIST");
5366 var l174 = f3("UNQUOTE-SPLICING");
5367 var l173 = f3("LIST");
5368 var l172 = f3("UNQUOTE");
5369 var l171 = f3("APPEND");
5370 var l170 = f3("BACKQUOTE");
5371 var l169 = f3("UNQUOTE");
5372 var l168 = f3("QUOTE");
5376 return f123 = (function(v458){
5377 ((v458)["fname"] = "BACKQUOTE-EXPAND-1");
5379 })((function (v459){
5380 if (arguments.length < 1) throw 'too few arguments';
5381 if (arguments.length > 1) throw 'too many arguments';
5385 return (((function(){
5387 return (typeof tmp == 'object' && 'name' in tmp);
5388 })()?v3: v2) !== v2 ? (function(){
5389 return f33(l168, v459);
5390 })() : (f34(v459) !== v2 ? (function(){
5392 })() : ((((function(){
5394 return tmp === v2? v2: tmp.car;
5395 })() === l169)?v3: v2) !== v2 ? (function(){
5398 return tmp === v2? v2: tmp.car;
5400 })() : ((((function(){
5402 return tmp === v2? v2: tmp.car;
5403 })() === l170)?v3: v2) !== v2 ? (function(){
5404 return f123(f123(f23(v459)));
5406 return ({car: l171, cdr: f45((function (v460){
5407 if (arguments.length < 1) throw 'too few arguments';
5408 if (arguments.length > 1) throw 'too many arguments';
5409 return ((f36(v460) !== v2 ? (((function(){
5411 return tmp === v2? v2: tmp.car;
5412 })() === l172)?v3: v2) : v2) !== v2 ? (function(){
5413 return f33(l173, f23(v460));
5414 })() : ((f36(v460) !== v2 ? (((function(){
5416 return tmp === v2? v2: tmp.car;
5417 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
5420 return f33(l175, f123(v460));
5427 if (cf.type == 'block' && cf.id == 156)
5437 var l178 = f3("BACKQUOTE-EXPAND");
5438 var l177 = f3("BACKQUOTE");
5442 return f124 = (function(v461){
5443 ((v461)["fname"] = "BACKQUOTE-EXPAND");
5445 })((function (v462){
5446 if (arguments.length < 1) throw 'too few arguments';
5447 if (arguments.length > 1) throw 'too many arguments';
5451 return ((f36(v462) !== v2 ? (((function(){
5453 return tmp === v2? v2: tmp.car;
5454 })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v462)) : v462);
5458 if (cf.type == 'block' && cf.id == 157)
5468 var l179 = f3("BACKQUOTE");
5469 v335 = ({car: f33(l179, (function (v463,v464){
5470 if (arguments.length < 2) throw 'too few arguments';
5471 if (arguments.length > 2) throw 'too many arguments';
5475 return f73(f123(v464), v463);
5479 if (cf.type == 'block' && cf.id == 158)
5486 var l180 = f3("NUM-OP-NUM");
5490 return f125 = (function(v465){
5491 ((v465)["fname"] = "NUM-OP-NUM");
5493 })((function (v466,v467,v468){
5494 if (arguments.length < 3) throw 'too few arguments';
5495 if (arguments.length > 3) throw 'too many arguments';
5499 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v466, ";", v176), f68("var ", "y", " = ", v468, ";", 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(){
5500 return f68("x", v467, "y");
5501 })(), ";", v176)), "})()");
5505 if (cf.type == 'block' && cf.id == 159)
5516 v335 = ({car: f33(l181, (function (v469,v470,v471){
5517 if (arguments.length < 3) throw 'too few arguments';
5518 if (arguments.length > 3) throw 'too many arguments';
5522 return (function(v472,v473){
5523 return f125(v472, "+", v473);
5524 })(f73(v470, v469),f73(v471, v469));
5528 if (cf.type == 'block' && cf.id == 160)
5536 v335 = ({car: f33(l182, (function (v474,v475,v476){
5537 if (arguments.length < 3) throw 'too few arguments';
5538 if (arguments.length > 3) throw 'too many arguments';
5542 return (function(v477,v478){
5543 return f125(v477, "-", v478);
5544 })(f73(v475, v474),f73(v476, v474));
5548 if (cf.type == 'block' && cf.id == 161)
5556 v335 = ({car: f33(l183, (function (v479,v480,v481){
5557 if (arguments.length < 3) throw 'too few arguments';
5558 if (arguments.length > 3) throw 'too many arguments';
5562 return (function(v482,v483){
5563 return f125(v482, "*", v483);
5564 })(f73(v480, v479),f73(v481, v479));
5568 if (cf.type == 'block' && cf.id == 162)
5576 v335 = ({car: f33(l184, (function (v484,v485,v486){
5577 if (arguments.length < 3) throw 'too few arguments';
5578 if (arguments.length > 3) throw 'too many arguments';
5582 return (function(v487,v488){
5583 return f125(v487, "/", v488);
5584 })(f73(v485, v484),f73(v486, v484));
5588 if (cf.type == 'block' && cf.id == 163)
5595 var l185 = f3("MOD");
5596 v335 = ({car: f33(l185, (function (v489,v490,v491){
5597 if (arguments.length < 3) throw 'too few arguments';
5598 if (arguments.length > 3) throw 'too many arguments';
5602 return (function(v492,v493){
5603 return f125(v492, "%", v493);
5604 })(f73(v490, v489),f73(v491, v489));
5608 if (cf.type == 'block' && cf.id == 164)
5616 v335 = ({car: f33(l186, (function (v494,v495,v496){
5617 if (arguments.length < 3) throw 'too few arguments';
5618 if (arguments.length > 3) throw 'too many arguments';
5622 return (function(v497,v498){
5623 return f72(f125(v497, "<", v498));
5624 })(f73(v495, v494),f73(v496, v494));
5628 if (cf.type == 'block' && cf.id == 165)
5636 v335 = ({car: f33(l187, (function (v499,v500,v501){
5637 if (arguments.length < 3) throw 'too few arguments';
5638 if (arguments.length > 3) throw 'too many arguments';
5642 return (function(v502,v503){
5643 return f72(f125(v502, ">", v503));
5644 })(f73(v500, v499),f73(v501, v499));
5648 if (cf.type == 'block' && cf.id == 166)
5656 v335 = ({car: f33(l188, (function (v504,v505,v506){
5657 if (arguments.length < 3) throw 'too few arguments';
5658 if (arguments.length > 3) throw 'too many arguments';
5662 return (function(v507,v508){
5663 return f72(f125(v507, "==", v508));
5664 })(f73(v505, v504),f73(v506, v504));
5668 if (cf.type == 'block' && cf.id == 167)
5675 var l189 = f3("<=");
5676 v335 = ({car: f33(l189, (function (v509,v510,v511){
5677 if (arguments.length < 3) throw 'too few arguments';
5678 if (arguments.length > 3) throw 'too many arguments';
5682 return (function(v512,v513){
5683 return f72(f125(v512, "<=", v513));
5684 })(f73(v510, v509),f73(v511, v509));
5688 if (cf.type == 'block' && cf.id == 168)
5695 var l190 = f3(">=");
5696 v335 = ({car: f33(l190, (function (v514,v515,v516){
5697 if (arguments.length < 3) throw 'too few arguments';
5698 if (arguments.length > 3) throw 'too many arguments';
5702 return (function(v517,v518){
5703 return f72(f125(v517, ">=", v518));
5704 })(f73(v515, v514),f73(v516, v514));
5708 if (cf.type == 'block' && cf.id == 169)
5715 var l191 = f3("NUMBERP");
5716 v335 = ({car: f33(l191, (function (v519,v520){
5717 if (arguments.length < 2) throw 'too few arguments';
5718 if (arguments.length > 2) throw 'too many arguments';
5722 return (function(v521){
5723 return f72(f68("(typeof (", v521, ") == \"number\")"));
5724 })(f73(v520, v519));
5728 if (cf.type == 'block' && cf.id == 170)
5735 var l192 = f3("FLOOR");
5736 v335 = ({car: f33(l192, (function (v522,v523){
5737 if (arguments.length < 2) throw 'too few arguments';
5738 if (arguments.length > 2) throw 'too many arguments';
5742 return (function(v524){
5743 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v524, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5744 return "Math.floor(x)";
5745 })(), ";", v176)), "})()");
5746 })(f73(v523, v522));
5750 if (cf.type == 'block' && cf.id == 171)
5757 var l193 = f3("CONS");
5758 v335 = ({car: f33(l193, (function (v525,v526,v527){
5759 if (arguments.length < 3) throw 'too few arguments';
5760 if (arguments.length > 3) throw 'too many arguments';
5764 return (function(v528,v529){
5765 return f68("({car: ", v528, ", cdr: ", v529, "})");
5766 })(f73(v526, v525),f73(v527, v525));
5770 if (cf.type == 'block' && cf.id == 172)
5777 var l194 = f3("CONSP");
5778 v335 = ({car: f33(l194, (function (v530,v531){
5779 if (arguments.length < 2) throw 'too few arguments';
5780 if (arguments.length > 2) throw 'too many arguments';
5784 return (function(v532){
5785 return f72(f68("(function(){", v176, f71("var tmp = ", v532, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()"));
5786 })(f73(v531, v530));
5790 if (cf.type == 'block' && cf.id == 173)
5797 var l195 = f3("CAR");
5798 v335 = ({car: f33(l195, (function (v533,v534){
5799 if (arguments.length < 2) throw 'too few arguments';
5800 if (arguments.length > 2) throw 'too many arguments';
5804 return (function(v535){
5805 return f68("(function(){", v176, f71("var tmp = ", v535, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()");
5806 })(f73(v534, v533));
5810 if (cf.type == 'block' && cf.id == 174)
5817 var l196 = f3("CDR");
5818 v335 = ({car: f33(l196, (function (v536,v537){
5819 if (arguments.length < 2) throw 'too few arguments';
5820 if (arguments.length > 2) throw 'too many arguments';
5824 return (function(v538){
5825 return f68("(function(){", v176, f71("var tmp = ", v538, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()");
5826 })(f73(v537, v536));
5830 if (cf.type == 'block' && cf.id == 175)
5837 var l197 = f3("SETCAR");
5838 v335 = ({car: f33(l197, (function (v539,v540,v541){
5839 if (arguments.length < 3) throw 'too few arguments';
5840 if (arguments.length > 3) throw 'too many arguments';
5844 return (function(v542,v543){
5845 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v542, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5846 return f68("(x.car = ", v543, ")");
5847 })(), ";", v176)), "})()");
5848 })(f73(v540, v539),f73(v541, v539));
5852 if (cf.type == 'block' && cf.id == 176)
5859 var l198 = f3("SETCDR");
5860 v335 = ({car: f33(l198, (function (v544,v545,v546){
5861 if (arguments.length < 3) throw 'too few arguments';
5862 if (arguments.length > 3) throw 'too many arguments';
5866 return (function(v547,v548){
5867 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v547, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5868 return f68("(x.cdr = ", v548, ")");
5869 })(), ";", v176)), "})()");
5870 })(f73(v545, v544),f73(v546, v544));
5874 if (cf.type == 'block' && cf.id == 177)
5881 var l199 = f3("SYMBOLP");
5882 v335 = ({car: f33(l199, (function (v549,v550){
5883 if (arguments.length < 2) throw 'too few arguments';
5884 if (arguments.length > 2) throw 'too many arguments';
5888 return (function(v551){
5889 return f72(f68("(function(){", v176, f71("var tmp = ", v551, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()"));
5890 })(f73(v550, v549));
5894 if (cf.type == 'block' && cf.id == 178)
5901 var l200 = f3("MAKE-SYMBOL");
5902 v335 = ({car: f33(l200, (function (v552,v553){
5903 if (arguments.length < 2) throw 'too few arguments';
5904 if (arguments.length > 2) throw 'too many arguments';
5908 return (function(v554){
5909 return f68("(function(){", v176, f71(f68("var ", "name", " = ", v554, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5910 return "({name: name})";
5911 })(), ";", v176)), "})()");
5912 })(f73(v553, v552));
5916 if (cf.type == 'block' && cf.id == 179)
5923 var l201 = f3("SYMBOL-NAME");
5924 v335 = ({car: f33(l201, (function (v555,v556){
5925 if (arguments.length < 2) throw 'too few arguments';
5926 if (arguments.length > 2) throw 'too many arguments';
5930 return (function(v557){
5931 return f68("(", v557, ").name");
5932 })(f73(v556, v555));
5936 if (cf.type == 'block' && cf.id == 180)
5943 var l202 = f3("EQ");
5944 v335 = ({car: f33(l202, (function (v558,v559,v560){
5945 if (arguments.length < 3) throw 'too few arguments';
5946 if (arguments.length > 3) throw 'too many arguments';
5950 return (function(v561,v562){
5951 return f72(f68("(", v561, " === ", v562, ")"));
5952 })(f73(v559, v558),f73(v560, v558));
5956 if (cf.type == 'block' && cf.id == 181)
5963 var l203 = f3("EQUAL");
5964 v335 = ({car: f33(l203, (function (v563,v564,v565){
5965 if (arguments.length < 3) throw 'too few arguments';
5966 if (arguments.length > 3) throw 'too many arguments';
5970 return (function(v566,v567){
5971 return f72(f68("(", v566, " == ", v567, ")"));
5972 })(f73(v564, v563),f73(v565, v563));
5976 if (cf.type == 'block' && cf.id == 182)
5983 var l204 = f3("STRING");
5984 v335 = ({car: f33(l204, (function (v568,v569){
5985 if (arguments.length < 2) throw 'too few arguments';
5986 if (arguments.length > 2) throw 'too many arguments';
5990 return (function(v570){
5991 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v570, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5992 return "String.fromCharCode(x)";
5993 })(), ";", v176)), "})()");
5994 })(f73(v569, v568));
5998 if (cf.type == 'block' && cf.id == 183)
6005 var l205 = f3("STRINGP");
6006 v335 = ({car: f33(l205, (function (v571,v572){
6007 if (arguments.length < 2) throw 'too few arguments';
6008 if (arguments.length > 2) throw 'too many arguments';
6012 return (function(v573){
6013 return f72(f68("(typeof(", v573, ") == \"string\")"));
6014 })(f73(v572, v571));
6018 if (cf.type == 'block' && cf.id == 184)
6025 var l206 = f3("STRING-UPCASE");
6026 v335 = ({car: f33(l206, (function (v574,v575){
6027 if (arguments.length < 2) throw 'too few arguments';
6028 if (arguments.length > 2) throw 'too many arguments';
6032 return (function(v576){
6033 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v576, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6034 return "x.toUpperCase()";
6035 })(), ";", v176)), "})()");
6036 })(f73(v575, v574));
6040 if (cf.type == 'block' && cf.id == 185)
6047 var l207 = f3("STRING-LENGTH");
6048 v335 = ({car: f33(l207, (function (v577,v578){
6049 if (arguments.length < 2) throw 'too few arguments';
6050 if (arguments.length > 2) throw 'too many arguments';
6054 return (function(v579){
6055 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v579, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6057 })(), ";", v176)), "})()");
6058 })(f73(v578, v577));
6062 if (cf.type == 'block' && cf.id == 186)
6069 var l208 = f3("SLICE");
6070 v335 = ({car: f33(l208, (function (v580,v581,v582,v583){
6071 if (arguments.length < 3) throw 'too few arguments';
6072 if (arguments.length > 4) throw 'too many arguments';
6073 switch(arguments.length){
6081 return f68("(function(){", v176, f71("var str = ", f73(v581, v580), ";", v176, "var a = ", f73(v582, v580), ";", v176, "var b;", v176, (v583 !== v2 ? f68("b = ", f73(v583, v580), ";", v176) : ""), "return str.slice(a,b);", v176), "})()");
6085 if (cf.type == 'block' && cf.id == 187)
6092 var l209 = f3("CHAR");
6093 v335 = ({car: f33(l209, (function (v584,v585,v586){
6094 if (arguments.length < 3) throw 'too few arguments';
6095 if (arguments.length > 3) throw 'too many arguments';
6099 return (function(v587,v588){
6100 return f68("(function(){", v176, f71(f68("var ", "string", " = ", v587, ";", v176), f68("var ", "index", " = ", v588, ";", 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(){
6101 return "string.charCodeAt(index)";
6102 })(), ";", v176)), "})()");
6103 })(f73(v585, v584),f73(v586, v584));
6107 if (cf.type == 'block' && cf.id == 188)
6114 var l210 = f3("CONCAT-TWO");
6115 v335 = ({car: f33(l210, (function (v589,v590,v591){
6116 if (arguments.length < 3) throw 'too few arguments';
6117 if (arguments.length > 3) throw 'too many arguments';
6121 return (function(v592,v593){
6122 return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v592, ";", v176), f68("var ", "string2", " = ", v593, ";", 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(){
6123 return "string1.concat(string2)";
6124 })(), ";", v176)), "})()");
6125 })(f73(v590, v589),f73(v591, v589));
6129 if (cf.type == 'block' && cf.id == 189)
6136 var l211 = f3("FUNCALL");
6137 v335 = ({car: f33(l211, (function (v595,v596){
6138 if (arguments.length < 2) throw 'too few arguments';
6140 for (var i = arguments.length-1; i>=2; i--)
6141 v594 = {car: arguments[i], cdr: v594};
6145 return f68("(", f73(v596, v595), ")(", f69(f45((function (v597){
6146 if (arguments.length < 1) throw 'too few arguments';
6147 if (arguments.length > 1) throw 'too many arguments';
6148 return f73(v597, v595);
6149 }), v594), ", "), ")");
6153 if (cf.type == 'block' && cf.id == 190)
6160 var l212 = f3("APPLY");
6161 v335 = ({car: f33(l212, (function (v599,v600){
6162 if (arguments.length < 2) throw 'too few arguments';
6164 for (var i = arguments.length-1; i>=2; i--)
6165 v598 = {car: arguments[i], cdr: v598};
6169 return (f1(v598) !== v2 ? f68("(", f73(v600, v599), ")()") : (function(v601,v602){
6170 return f68("(function(){", v176, f71("var f = ", f73(v600, v599), ";", v176, "var args = [", f69(f45((function (v603){
6171 if (arguments.length < 1) throw 'too few arguments';
6172 if (arguments.length > 1) throw 'too many arguments';
6173 return f73(v603, v599);
6174 }), v601), ", "), "];", v176, "var tail = (", f73(v602, v599), ");", v176, "while (tail != ", f73(v2), "){", v176, " args.push(tail.car);", v176, " tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()");
6175 })(f56(v598),(function(){
6176 var tmp = f55(v598);
6177 return tmp === v2? v2: tmp.car;
6182 if (cf.type == 'block' && cf.id == 191)
6189 var l213 = f3("JS-EVAL");
6190 v335 = ({car: f33(l213, (function (v604,v605){
6191 if (arguments.length < 2) throw 'too few arguments';
6192 if (arguments.length > 2) throw 'too many arguments';
6196 return (function(v606){
6197 return f68("(function(){", v176, f71(f68("var ", "string", " = ", v606, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6198 return "eval.apply(window, [string])";
6199 })(), ";", v176)), "})()");
6200 })(f73(v605, v604));
6204 if (cf.type == 'block' && cf.id == 192)
6211 var l214 = f3("ERROR");
6212 v335 = ({car: f33(l214, (function (v607,v608){
6213 if (arguments.length < 2) throw 'too few arguments';
6214 if (arguments.length > 2) throw 'too many arguments';
6218 return (function(v609){
6219 return f68("(function(){", v176, f71("throw ", v609, ";", v176), "})()");
6220 })(f73(v608, v607));
6224 if (cf.type == 'block' && cf.id == 193)
6231 var l215 = f3("NEW");
6232 v335 = ({car: f33(l215, (function (v610){
6233 if (arguments.length < 1) throw 'too few arguments';
6234 if (arguments.length > 1) throw 'too many arguments';
6244 if (cf.type == 'block' && cf.id == 194)
6251 var l216 = f3("GET");
6252 v335 = ({car: f33(l216, (function (v611,v612,v613){
6253 if (arguments.length < 3) throw 'too few arguments';
6254 if (arguments.length > 3) throw 'too many arguments';
6258 return (function(v614,v615){
6259 return f68("(function(){", v176, f71("var tmp = ", "(", v614, ")[", v615, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()");
6260 })(f73(v612, v611),f73(v613, v611));
6264 if (cf.type == 'block' && cf.id == 195)
6271 var l217 = f3("SET");
6272 v335 = ({car: f33(l217, (function (v616,v617,v618,v619){
6273 if (arguments.length < 4) throw 'too few arguments';
6274 if (arguments.length > 4) throw 'too many arguments';
6278 return (function(v620,v621,v622){
6279 return f68("((", v620, ")[", v621, "] = ", v622, ")");
6280 })(f73(v617, v616),f73(v618, v616),f73(v619, v616));
6284 if (cf.type == 'block' && cf.id == 196)
6291 var l218 = f3("IN");
6292 v335 = ({car: f33(l218, (function (v623,v624,v625){
6293 if (arguments.length < 3) throw 'too few arguments';
6294 if (arguments.length > 3) throw 'too many arguments';
6298 return (function(v626,v627){
6299 return f72(f68("((", v626, ") in (", v627, "))"));
6300 })(f73(v624, v623),f73(v625, v623));
6304 if (cf.type == 'block' && cf.id == 197)
6311 var l219 = f3("FUNCTIONP");
6312 v335 = ({car: f33(l219, (function (v628,v629){
6313 if (arguments.length < 2) throw 'too few arguments';
6314 if (arguments.length > 2) throw 'too many arguments';
6318 return (function(v630){
6319 return f72(f68("(typeof ", v630, " == 'function')"));
6320 })(f73(v629, v628));
6324 if (cf.type == 'block' && cf.id == 198)
6331 var l220 = f3("WRITE-STRING");
6332 v335 = ({car: f33(l220, (function (v631,v632){
6333 if (arguments.length < 2) throw 'too few arguments';
6334 if (arguments.length > 2) throw 'too many arguments';
6338 return (function(v633){
6339 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v633, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6340 return "lisp.write(x)";
6341 })(), ";", v176)), "})()");
6342 })(f73(v632, v631));
6346 if (cf.type == 'block' && cf.id == 199)
6353 var l222 = f3("MACROP");
6354 var l221 = f3("MACRO");
6358 return f126 = (function(v634){
6359 ((v634)["fname"] = "MACROP");
6361 })((function (v635){
6362 if (arguments.length < 1) throw 'too few arguments';
6363 if (arguments.length > 1) throw 'too many arguments';
6367 return (((function(){
6369 return (typeof tmp == 'object' && 'name' in tmp);
6370 })()?v3: v2) !== v2 ? ((f93(f107(v635, v289)) === l221)?v3: v2) : v2);
6374 if (cf.type == 'block' && cf.id == 200)
6384 var l224 = f3("LS-MACROEXPAND-1");
6385 var l223 = f3("MACRO");
6389 return f127 = (function(v636){
6390 ((v636)["fname"] = "LS-MACROEXPAND-1");
6392 })((function (v637,v638){
6393 if (arguments.length < 2) throw 'too few arguments';
6394 if (arguments.length > 2) throw 'too many arguments';
6398 return (f126((function(){
6400 return tmp === v2? v2: tmp.car;
6401 })()) !== v2 ? (function(v639){
6402 return (((f93(v639) === l223)?v3: v2) !== v2 ? (function(){
6403 var f = f120(f94(v639));
6405 var tail = ((function(){
6407 return tmp === v2? v2: tmp.cdr;
6410 args.push(tail.car);
6413 return f.apply(this, args);
6415 })(f107((function(){
6417 return tmp === v2? v2: tmp.car;
6418 })(), v289)) : v637);
6422 if (cf.type == 'block' && cf.id == 201)
6432 var l226 = f3("COMPILE-FUNCALL");
6433 var l225 = f3("LAMBDA");
6437 return f128 = (function(v640){
6438 ((v640)["fname"] = "COMPILE-FUNCALL");
6440 })((function (v641,v642,v643){
6441 if (arguments.length < 3) throw 'too few arguments';
6442 if (arguments.length > 3) throw 'too many arguments';
6446 return (((function(){
6448 return (typeof tmp == 'object' && 'name' in tmp);
6449 })()?v3: v2) !== v2 ? (function(){
6450 return f68(f108(v641, v643), "(", f69(f45((function (v644){
6451 if (arguments.length < 1) throw 'too few arguments';
6452 if (arguments.length > 1) throw 'too many arguments';
6453 return f73(v644, v643);
6454 }), v642), ", "), ")");
6455 })() : ((f36(v641) !== v2 ? (((function(){
6457 return tmp === v2? v2: tmp.car;
6458 })() === l225)?v3: v2) : v2) !== v2 ? (function(){
6459 return f68("(", f73(v641, v643), ")(", f69(f45((function (v645){
6460 if (arguments.length < 1) throw 'too few arguments';
6461 if (arguments.length > 1) throw 'too many arguments';
6462 return f73(v645, v643);
6463 }), v642), ", "), ")");
6466 throw f68("Invalid function designator ", (v641).name);
6472 if (cf.type == 'block' && cf.id == 202)
6482 var l227 = f3("LS-COMPILE");
6486 return f73 = (function(v646){
6487 ((v646)["fname"] = "LS-COMPILE");
6489 })((function (v647,v648){
6490 if (arguments.length < 1) throw 'too few arguments';
6491 if (arguments.length > 2) throw 'too many arguments';
6492 switch(arguments.length){
6500 return (((function(){
6502 return (typeof tmp == 'object' && 'name' in tmp);
6503 })()?v3: v2) !== v2 ? (function(){
6504 return f105(v647, v648);
6505 })() : (f51(v647) !== v2 ? (function(){
6507 })() : (((typeof(v647) == "string")?v3: v2) !== v2 ? (function(){
6508 return f68("\"", f75(v647), "\"");
6509 })() : (f36(v647) !== v2 ? (function(){
6510 return (f66((function(){
6512 return tmp === v2? v2: tmp.car;
6513 })(), v335) !== v2 ? (function(v649){
6517 var tail = ((function(){
6519 return tmp === v2? v2: tmp.cdr;
6522 args.push(tail.car);
6525 return f.apply(this, args);
6527 })(f30(f66((function(){
6529 return tmp === v2? v2: tmp.car;
6530 })(), v335))) : (f126((function(){
6532 return tmp === v2? v2: tmp.car;
6533 })()) !== v2 ? f73(f127(v647, v648), v648) : f128((function(){
6535 return tmp === v2? v2: tmp.car;
6538 return tmp === v2? v2: tmp.cdr;
6544 if (cf.type == 'block' && cf.id == 203)
6554 var l228 = f3("LS-COMPILE-TOPLEVEL");
6558 return f129 = (function(v650){
6559 ((v650)["fname"] = "LS-COMPILE-TOPLEVEL");
6561 })((function (v651){
6562 if (arguments.length < 1) throw 'too few arguments';
6563 if (arguments.length > 1) throw 'too many arguments';
6568 return (function(v652){
6569 return (function(v653){
6572 })(f68(f69(f45((function (v654){
6573 if (arguments.length < 1) throw 'too few arguments';
6574 if (arguments.length > 1) throw 'too many arguments';
6575 return f68(v654, ";", v176);
6581 if (cf.type == 'block' && cf.id == 204)
6591 var l239 = f3("LS-COMPILE-TOPLEVEL");
6592 var l238 = f3("EVAL");
6593 var l237 = f3("PRIN1-TO-STRING");
6594 var l236 = f3("LS-READ-FROM-STRING");
6600 var l230 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v430", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v429", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v413", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v389", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v346", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v335", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v325", 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: "v292", 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")}}}};
6601 var l229 = f3("EVAL");
6614 return f120 = (function(v655){
6615 ((v655)["fname"] = "EVAL");
6617 })((function (v656){
6618 if (arguments.length < 1) throw 'too few arguments';
6619 if (arguments.length > 1) throw 'too many arguments';
6623 return (function(v657){
6626 if (typeof string != 'string')
6627 throw 'The value ' + string + ' is not a type string.';
6628 return eval.apply(window, [string]);
6634 return (function(v659,v660){
6639 return tmp === v2? v2: tmp.car;
6647 return tmp === v2? v2: tmp.cdr;
6656 if (cf.type == 'block' && cf.id == 206)
6671 if (cf.type == 'block' && cf.id == 205)
6682 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);
6683 if (typeof string != 'string')
6684 throw 'The value ' + string + ' is not a type string.';
6685 return eval.apply(window, [string]);