43 return v2 = (function(){
45 if (typeof name != 'string')
46 throw 'The value ' + name + ' is not a type string.';
47 return ({name: name});
52 return v3 = (function(){
54 if (typeof name != 'string')
55 throw 'The value ' + name + ' is not a type string.';
56 return ({name: name});
61 return f1 = (function(v4){
62 ((v4)["fname"] = "NULL");
65 if (arguments.length < 1) throw 'too few arguments';
66 if (arguments.length > 1) throw 'too many arguments';
70 return ((v5 === v2)?v3: v2);
74 if (cf.type == 'block' && cf.id == 1)
83 return f2 = (function(v6){
84 ((v6)["fname"] = "INTERNP");
87 if (arguments.length < 1) throw 'too few arguments';
88 if (arguments.length > 1) throw 'too many arguments';
92 return (((v7) in (v1))?v3: v2);
96 if (cf.type == 'block' && cf.id == 2)
105 return f3 = (function(v8){
106 ((v8)["fname"] = "INTERN");
109 if (arguments.length < 1) throw 'too few arguments';
110 if (arguments.length > 1) throw 'too many arguments';
114 return (f2(v9) !== v2 ? (function(){
116 return tmp == undefined? v2: tmp ;
117 })() : ((v1)[v9] = (function(){
119 if (typeof name != 'string')
120 throw 'The value ' + name + ' is not a type string.';
121 return ({name: name});
126 if (cf.type == 'block' && cf.id == 3)
135 return f4 = (function(v10){
136 ((v10)["fname"] = "FIND-SYMBOL");
139 if (arguments.length < 1) throw 'too few arguments';
140 if (arguments.length > 1) throw 'too many arguments';
146 return tmp == undefined? v2: tmp ;
151 if (cf.type == 'block' && cf.id == 4)
163 return f5 = (function(v13){
164 ((v13)["fname"] = "GENSYM");
167 if (arguments.length > 1) throw 'too many arguments';
168 switch(arguments.length){
179 if (typeof x != 'number')
180 throw 'The value ' + x + ' is not a type number.';
181 if (typeof y != 'number')
182 throw 'The value ' + y + ' is not a type number.';
186 var name = (function(){
188 var string2 = f6(v12);
189 if (typeof string1 != 'string')
190 throw 'The value ' + string1 + ' is not a type string.';
191 if (typeof string2 != 'string')
192 throw 'The value ' + string2 + ' is not a type string.';
193 return string1.concat(string2);
195 if (typeof name != 'string')
196 throw 'The value ' + name + ' is not a type string.';
197 return ({name: name});
202 if (cf.type == 'block' && cf.id == 5)
211 return f7 = (function(v15){
212 ((v15)["fname"] = "=");
214 })((function (v16,v17){
215 if (arguments.length < 2) throw 'too few arguments';
216 if (arguments.length > 2) throw 'too many arguments';
223 if (typeof x != 'number')
224 throw 'The value ' + x + ' is not a type number.';
225 if (typeof y != 'number')
226 throw 'The value ' + y + ' is not a type number.';
232 if (cf.type == 'block' && cf.id == 6)
241 return f8 = (function(v18){
242 ((v18)["fname"] = "+");
244 })((function (v19,v20){
245 if (arguments.length < 2) throw 'too few arguments';
246 if (arguments.length > 2) throw 'too many arguments';
253 if (typeof x != 'number')
254 throw 'The value ' + x + ' is not a type number.';
255 if (typeof y != 'number')
256 throw 'The value ' + y + ' is not a type number.';
262 if (cf.type == 'block' && cf.id == 7)
271 return f9 = (function(v21){
272 ((v21)["fname"] = "-");
274 })((function (v22,v23){
275 if (arguments.length < 2) throw 'too few arguments';
276 if (arguments.length > 2) throw 'too many arguments';
283 if (typeof x != 'number')
284 throw 'The value ' + x + ' is not a type number.';
285 if (typeof y != 'number')
286 throw 'The value ' + y + ' is not a type number.';
292 if (cf.type == 'block' && cf.id == 8)
301 return f10 = (function(v24){
302 ((v24)["fname"] = "*");
304 })((function (v25,v26){
305 if (arguments.length < 2) throw 'too few arguments';
306 if (arguments.length > 2) throw 'too many arguments';
313 if (typeof x != 'number')
314 throw 'The value ' + x + ' is not a type number.';
315 if (typeof y != 'number')
316 throw 'The value ' + y + ' is not a type number.';
322 if (cf.type == 'block' && cf.id == 9)
331 return f11 = (function(v27){
332 ((v27)["fname"] = "/");
334 })((function (v28,v29){
335 if (arguments.length < 2) throw 'too few arguments';
336 if (arguments.length > 2) throw 'too many arguments';
343 if (typeof x != 'number')
344 throw 'The value ' + x + ' is not a type number.';
345 if (typeof y != 'number')
346 throw 'The value ' + y + ' is not a type number.';
352 if (cf.type == 'block' && cf.id == 10)
361 return f12 = (function(v30){
362 ((v30)["fname"] = "1+");
365 if (arguments.length < 1) throw 'too few arguments';
366 if (arguments.length > 1) throw 'too many arguments';
373 if (typeof x != 'number')
374 throw 'The value ' + x + ' is not a type number.';
375 if (typeof y != 'number')
376 throw 'The value ' + y + ' is not a type number.';
382 if (cf.type == 'block' && cf.id == 11)
391 return f13 = (function(v32){
392 ((v32)["fname"] = "1-");
395 if (arguments.length < 1) throw 'too few arguments';
396 if (arguments.length > 1) throw 'too many arguments';
403 if (typeof x != 'number')
404 throw 'The value ' + x + ' is not a type number.';
405 if (typeof y != 'number')
406 throw 'The value ' + y + ' is not a type number.';
412 if (cf.type == 'block' && cf.id == 12)
421 return f14 = (function(v34){
422 ((v34)["fname"] = "ZEROP");
425 if (arguments.length < 1) throw 'too few arguments';
426 if (arguments.length > 1) throw 'too many arguments';
433 if (typeof x != 'number')
434 throw 'The value ' + x + ' is not a type number.';
435 if (typeof y != 'number')
436 throw 'The value ' + y + ' is not a type number.';
442 if (cf.type == 'block' && cf.id == 13)
451 return f15 = (function(v36){
452 ((v36)["fname"] = "TRUNCATE");
454 })((function (v37,v38){
455 if (arguments.length < 2) throw 'too few arguments';
456 if (arguments.length > 2) throw 'too many arguments';
464 if (typeof x != 'number')
465 throw 'The value ' + x + ' is not a type number.';
466 if (typeof y != 'number')
467 throw 'The value ' + y + ' is not a type number.';
470 if (typeof x != 'number')
471 throw 'The value ' + x + ' is not a type number.';
472 return Math.floor(x);
477 if (cf.type == 'block' && cf.id == 14)
486 return f16 = (function(v39){
487 ((v39)["fname"] = "EQL");
489 })((function (v40,v41){
490 if (arguments.length < 2) throw 'too few arguments';
491 if (arguments.length > 2) throw 'too many arguments';
495 return ((v40 === v41)?v3: v2);
499 if (cf.type == 'block' && cf.id == 15)
508 return f17 = (function(v42){
509 ((v42)["fname"] = "NOT");
512 if (arguments.length < 1) throw 'too few arguments';
513 if (arguments.length > 1) throw 'too many arguments';
517 return (v43 !== v2 ? v2 : v3);
521 if (cf.type == 'block' && cf.id == 16)
530 return f18 = (function(v44){
531 ((v44)["fname"] = "CONS");
533 })((function (v45,v46){
534 if (arguments.length < 2) throw 'too few arguments';
535 if (arguments.length > 2) throw 'too many arguments';
539 return ({car: v45, cdr: v46});
543 if (cf.type == 'block' && cf.id == 17)
552 return f19 = (function(v47){
553 ((v47)["fname"] = "CONSP");
556 if (arguments.length < 1) throw 'too few arguments';
557 if (arguments.length > 1) throw 'too many arguments';
563 return (typeof tmp == 'object' && 'car' in tmp);
568 if (cf.type == 'block' && cf.id == 18)
577 return f20 = (function(v49){
578 ((v49)["fname"] = "CAR");
581 if (arguments.length < 1) throw 'too few arguments';
582 if (arguments.length > 1) throw 'too many arguments';
588 return tmp === v2? v2: tmp.car;
593 if (cf.type == 'block' && cf.id == 19)
602 return f21 = (function(v51){
603 ((v51)["fname"] = "CDR");
606 if (arguments.length < 1) throw 'too few arguments';
607 if (arguments.length > 1) throw 'too many arguments';
613 return tmp === v2? v2: tmp.cdr;
618 if (cf.type == 'block' && cf.id == 20)
627 return f22 = (function(v53){
628 ((v53)["fname"] = "CAAR");
631 if (arguments.length < 1) throw 'too few arguments';
632 if (arguments.length > 1) throw 'too many arguments';
637 var tmp = (function(){
639 return tmp === v2? v2: tmp.car;
641 return tmp === v2? v2: tmp.car;
646 if (cf.type == 'block' && cf.id == 21)
655 return f23 = (function(v55){
656 ((v55)["fname"] = "CADR");
659 if (arguments.length < 1) throw 'too few arguments';
660 if (arguments.length > 1) throw 'too many arguments';
665 var tmp = (function(){
667 return tmp === v2? v2: tmp.cdr;
669 return tmp === v2? v2: tmp.car;
674 if (cf.type == 'block' && cf.id == 22)
683 return f24 = (function(v57){
684 ((v57)["fname"] = "CDAR");
687 if (arguments.length < 1) throw 'too few arguments';
688 if (arguments.length > 1) throw 'too many arguments';
693 var tmp = (function(){
695 return tmp === v2? v2: tmp.car;
697 return tmp === v2? v2: tmp.cdr;
702 if (cf.type == 'block' && cf.id == 23)
711 return f25 = (function(v59){
712 ((v59)["fname"] = "CDDR");
715 if (arguments.length < 1) throw 'too few arguments';
716 if (arguments.length > 1) throw 'too many arguments';
721 var tmp = (function(){
723 return tmp === v2? v2: tmp.cdr;
725 return tmp === v2? v2: tmp.cdr;
730 if (cf.type == 'block' && cf.id == 24)
739 return f26 = (function(v61){
740 ((v61)["fname"] = "CADDR");
743 if (arguments.length < 1) throw 'too few arguments';
744 if (arguments.length > 1) throw 'too many arguments';
749 var tmp = (function(){
750 var tmp = (function(){
752 return tmp === v2? v2: tmp.cdr;
754 return tmp === v2? v2: tmp.cdr;
756 return tmp === v2? v2: tmp.car;
761 if (cf.type == 'block' && cf.id == 25)
770 return f27 = (function(v63){
771 ((v63)["fname"] = "CDDDR");
774 if (arguments.length < 1) throw 'too few arguments';
775 if (arguments.length > 1) throw 'too many arguments';
780 var tmp = (function(){
781 var tmp = (function(){
783 return tmp === v2? v2: tmp.cdr;
785 return tmp === v2? v2: tmp.cdr;
787 return tmp === v2? v2: tmp.cdr;
792 if (cf.type == 'block' && cf.id == 26)
801 return f28 = (function(v65){
802 ((v65)["fname"] = "CADDDR");
805 if (arguments.length < 1) throw 'too few arguments';
806 if (arguments.length > 1) throw 'too many arguments';
811 var tmp = (function(){
812 var tmp = (function(){
813 var tmp = (function(){
815 return tmp === v2? v2: tmp.cdr;
817 return tmp === v2? v2: tmp.cdr;
819 return tmp === v2? v2: tmp.cdr;
821 return tmp === v2? v2: tmp.car;
826 if (cf.type == 'block' && cf.id == 27)
835 return f29 = (function(v67){
836 ((v67)["fname"] = "FIRST");
839 if (arguments.length < 1) throw 'too few arguments';
840 if (arguments.length > 1) throw 'too many arguments';
846 return tmp === v2? v2: tmp.car;
851 if (cf.type == 'block' && cf.id == 28)
860 return f30 = (function(v69){
861 ((v69)["fname"] = "SECOND");
864 if (arguments.length < 1) throw 'too few arguments';
865 if (arguments.length > 1) throw 'too many arguments';
873 if (cf.type == 'block' && cf.id == 29)
882 return f31 = (function(v71){
883 ((v71)["fname"] = "THIRD");
886 if (arguments.length < 1) throw 'too few arguments';
887 if (arguments.length > 1) throw 'too many arguments';
895 if (cf.type == 'block' && cf.id == 30)
904 return f32 = (function(v73){
905 ((v73)["fname"] = "FOURTH");
908 if (arguments.length < 1) throw 'too few arguments';
909 if (arguments.length > 1) throw 'too many arguments';
917 if (cf.type == 'block' && cf.id == 31)
926 return f33 = (function(v75){
927 ((v75)["fname"] = "LIST");
931 for (var i = arguments.length-1; i>=0; i--)
932 v76 = {car: arguments[i], cdr: v76};
940 if (cf.type == 'block' && cf.id == 32)
949 return f34 = (function(v77){
950 ((v77)["fname"] = "ATOM");
953 if (arguments.length < 1) throw 'too few arguments';
954 if (arguments.length > 1) throw 'too many arguments';
958 return f17(((function(){
960 return (typeof tmp == 'object' && 'car' in tmp);
965 if (cf.type == 'block' && cf.id == 33)
977 return f35 = (function(v79){
978 ((v79)["fname"] = "ENSURE-LIST");
981 if (arguments.length < 1) throw 'too few arguments';
982 if (arguments.length > 1) throw 'too many arguments';
986 return (f36(v80) !== v2 ? v80 : f33(v80));
990 if (cf.type == 'block' && cf.id == 34)
1000 return f37 = (function(v81){
1001 ((v81)["fname"] = "!REDUCE");
1003 })((function (v82,v83,v84){
1004 if (arguments.length < 3) throw 'too few arguments';
1005 if (arguments.length > 3) throw 'too many arguments';
1009 return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
1011 return tmp === v2? v2: tmp.cdr;
1012 })(), (v82)(v84, (function(){
1014 return tmp === v2? v2: tmp.car;
1019 if (cf.type == 'block' && cf.id == 35)
1027 var l34 = f3("STRING=");
1029 var l33 = f3("ASSOC");
1031 var l32 = f3("EVERY");
1033 var l31 = f3("SOME");
1035 var l30 = f3("PARSE-INTEGER");
1037 var l29 = f3("SUBSEQ");
1039 var l28 = f3("DIGIT-CHAR-P");
1041 var l27 = f3("REMOVE-IF-NOT");
1043 var l26 = f3("REMOVE-IF");
1045 var l25 = f3("REMOVE");
1047 var l24 = f3("MEMBER");
1049 var l23 = f3("BUTLAST");
1051 var l22 = f3("LAST");
1053 var l21 = f3("NTH");
1055 var l20 = f3("LISTP");
1057 var l19 = f3("MINUSP");
1059 var l18 = f3("PLUSP");
1061 var l17 = f3("INTEGERP");
1063 var l16 = f3("CHAR=");
1065 var l15 = f3("CHAR-CODE");
1067 var l14 = f3("CODE-CHAR");
1069 var l13 = f3("COPY-LIST");
1071 var l12 = f3("IDENTITY");
1073 var l11 = f3("MAPCAR");
1074 var l10 = f3("NIL");
1076 var l9 = f3("CONCAT-TWO");
1078 var l8 = f3("LENGTH");
1080 var l7 = f3("LIST-LENGTH");
1082 var l6 = f3("REVERSE");
1085 var l4 = f3("REVERSE-AUX");
1087 var l3 = f3("APPEND");
1090 var l1 = f3("APPEND-TWO");
1095 return f38 = (function(v85){
1096 ((v85)["fname"] = "APPEND-TWO");
1098 })((function (v86,v87){
1099 if (arguments.length < 2) throw 'too few arguments';
1100 if (arguments.length > 2) throw 'too many arguments';
1104 return (f1(v86) !== v2 ? v87 : ({car: (function(){
1106 return tmp === v2? v2: tmp.car;
1107 })(), cdr: f39((function(){
1109 return tmp === v2? v2: tmp.cdr;
1114 if (cf.type == 'block' && cf.id == 36)
1126 return f39 = (function(v88){
1127 ((v88)["fname"] = "APPEND");
1131 for (var i = arguments.length-1; i>=0; i--)
1132 v89 = {car: arguments[i], cdr: v89};
1136 return f37(f38, v89, l2);
1140 if (cf.type == 'block' && cf.id == 37)
1152 return f40 = (function(v90){
1153 ((v90)["fname"] = "REVERSE-AUX");
1155 })((function (v91,v92){
1156 if (arguments.length < 2) throw 'too few arguments';
1157 if (arguments.length > 2) throw 'too many arguments';
1161 return (f1(v91) !== v2 ? v92 : f40((function(){
1163 return tmp === v2? v2: tmp.cdr;
1164 })(), ({car: (function(){
1166 return tmp === v2? v2: tmp.car;
1171 if (cf.type == 'block' && cf.id == 38)
1183 return f41 = (function(v93){
1184 ((v93)["fname"] = "REVERSE");
1187 if (arguments.length < 1) throw 'too few arguments';
1188 if (arguments.length > 1) throw 'too many arguments';
1192 return f40(v94, l5);
1196 if (cf.type == 'block' && cf.id == 39)
1208 return f42 = (function(v95){
1209 ((v95)["fname"] = "LIST-LENGTH");
1212 if (arguments.length < 1) throw 'too few arguments';
1213 if (arguments.length > 1) throw 'too many arguments';
1217 return (function(v97){
1222 while(f17(f1(v96)) !== v2){
1226 if (typeof x != 'number')
1227 throw 'The value ' + x + ' is not a type number.';
1228 if (typeof y != 'number')
1229 throw 'The value ' + y + ' is not a type number.';
1234 return tmp === v2? v2: tmp.cdr;
1241 if (cf.type == 'block' && cf.id == 41)
1252 if (cf.type == 'block' && cf.id == 40)
1264 return f43 = (function(v98){
1265 ((v98)["fname"] = "LENGTH");
1268 if (arguments.length < 1) throw 'too few arguments';
1269 if (arguments.length > 1) throw 'too many arguments';
1273 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1275 if (typeof x != 'string')
1276 throw 'The value ' + x + ' is not a type string.';
1282 if (cf.type == 'block' && cf.id == 42)
1294 return f44 = (function(v100){
1295 ((v100)["fname"] = "CONCAT-TWO");
1297 })((function (v101,v102){
1298 if (arguments.length < 2) throw 'too few arguments';
1299 if (arguments.length > 2) throw 'too many arguments';
1306 if (typeof string1 != 'string')
1307 throw 'The value ' + string1 + ' is not a type string.';
1308 if (typeof string2 != 'string')
1309 throw 'The value ' + string2 + ' is not a type string.';
1310 return string1.concat(string2);
1315 if (cf.type == 'block' && cf.id == 43)
1327 return f45 = (function(v103){
1328 ((v103)["fname"] = "MAPCAR");
1330 })((function (v104,v105){
1331 if (arguments.length < 2) throw 'too few arguments';
1332 if (arguments.length > 2) throw 'too many arguments';
1336 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1338 return tmp === v2? v2: tmp.car;
1339 })()), cdr: f45(v104, (function(){
1341 return tmp === v2? v2: tmp.cdr;
1346 if (cf.type == 'block' && cf.id == 44)
1358 return f46 = (function(v106){
1359 ((v106)["fname"] = "IDENTITY");
1361 })((function (v107){
1362 if (arguments.length < 1) throw 'too few arguments';
1363 if (arguments.length > 1) throw 'too many arguments';
1371 if (cf.type == 'block' && cf.id == 45)
1383 return f47 = (function(v108){
1384 ((v108)["fname"] = "COPY-LIST");
1386 })((function (v109){
1387 if (arguments.length < 1) throw 'too few arguments';
1388 if (arguments.length > 1) throw 'too many arguments';
1392 return f45(f46, v109);
1396 if (cf.type == 'block' && cf.id == 46)
1408 return f48 = (function(v110){
1409 ((v110)["fname"] = "CODE-CHAR");
1411 })((function (v111){
1412 if (arguments.length < 1) throw 'too few arguments';
1413 if (arguments.length > 1) throw 'too many arguments';
1421 if (cf.type == 'block' && cf.id == 47)
1433 return f49 = (function(v112){
1434 ((v112)["fname"] = "CHAR-CODE");
1436 })((function (v113){
1437 if (arguments.length < 1) throw 'too few arguments';
1438 if (arguments.length > 1) throw 'too many arguments';
1446 if (cf.type == 'block' && cf.id == 48)
1458 return f50 = (function(v114){
1459 ((v114)["fname"] = "CHAR=");
1461 })((function (v115,v116){
1462 if (arguments.length < 2) throw 'too few arguments';
1463 if (arguments.length > 2) throw 'too many arguments';
1467 return ((function(){
1470 if (typeof x != 'number')
1471 throw 'The value ' + x + ' is not a type number.';
1472 if (typeof y != 'number')
1473 throw 'The value ' + y + ' is not a type number.';
1479 if (cf.type == 'block' && cf.id == 49)
1491 return f51 = (function(v117){
1492 ((v117)["fname"] = "INTEGERP");
1494 })((function (v118){
1495 if (arguments.length < 1) throw 'too few arguments';
1496 if (arguments.length > 1) throw 'too many arguments';
1500 return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1501 var x = (function(){
1503 if (typeof x != 'number')
1504 throw 'The value ' + x + ' is not a type number.';
1505 return Math.floor(x);
1508 if (typeof x != 'number')
1509 throw 'The value ' + x + ' is not a type number.';
1510 if (typeof y != 'number')
1511 throw 'The value ' + y + ' is not a type number.';
1517 if (cf.type == 'block' && cf.id == 50)
1529 return f52 = (function(v119){
1530 ((v119)["fname"] = "PLUSP");
1532 })((function (v120){
1533 if (arguments.length < 1) throw 'too few arguments';
1534 if (arguments.length > 1) throw 'too many arguments';
1538 return ((function(){
1541 if (typeof x != 'number')
1542 throw 'The value ' + x + ' is not a type number.';
1543 if (typeof y != 'number')
1544 throw 'The value ' + y + ' is not a type number.';
1550 if (cf.type == 'block' && cf.id == 51)
1562 return f53 = (function(v121){
1563 ((v121)["fname"] = "MINUSP");
1565 })((function (v122){
1566 if (arguments.length < 1) throw 'too few arguments';
1567 if (arguments.length > 1) throw 'too many arguments';
1571 return ((function(){
1574 if (typeof x != 'number')
1575 throw 'The value ' + x + ' is not a type number.';
1576 if (typeof y != 'number')
1577 throw 'The value ' + y + ' is not a type number.';
1583 if (cf.type == 'block' && cf.id == 52)
1595 return f36 = (function(v123){
1596 ((v123)["fname"] = "LISTP");
1598 })((function (v124){
1599 if (arguments.length < 1) throw 'too few arguments';
1600 if (arguments.length > 1) throw 'too many arguments';
1604 return (function(v125){
1605 return (v125 !== v2 ? v125 : f1(v124));
1608 return (typeof tmp == 'object' && 'car' in tmp);
1613 if (cf.type == 'block' && cf.id == 53)
1625 return f54 = (function(v126){
1626 ((v126)["fname"] = "NTH");
1628 })((function (v127,v128){
1629 if (arguments.length < 2) throw 'too few arguments';
1630 if (arguments.length > 2) throw 'too many arguments';
1634 return (f1(v128) !== v2 ? (function(){
1636 })() : (f14(v127) !== v2 ? (function(){
1639 return tmp === v2? v2: tmp.car;
1642 return f54(f13(v127), (function(){
1644 return tmp === v2? v2: tmp.cdr;
1650 if (cf.type == 'block' && cf.id == 54)
1662 return f55 = (function(v129){
1663 ((v129)["fname"] = "LAST");
1665 })((function (v130){
1666 if (arguments.length < 1) throw 'too few arguments';
1667 if (arguments.length > 1) throw 'too many arguments';
1671 return (((function(){
1672 var tmp = (function(){
1674 return tmp === v2? v2: tmp.cdr;
1676 return (typeof tmp == 'object' && 'car' in tmp);
1677 })()?v3: v2) !== v2 ? f55((function(){
1679 return tmp === v2? v2: tmp.cdr;
1684 if (cf.type == 'block' && cf.id == 55)
1696 return f56 = (function(v131){
1697 ((v131)["fname"] = "BUTLAST");
1699 })((function (v132){
1700 if (arguments.length < 1) throw 'too few arguments';
1701 if (arguments.length > 1) throw 'too many arguments';
1705 return (((function(){
1706 var tmp = (function(){
1708 return tmp === v2? v2: tmp.cdr;
1710 return (typeof tmp == 'object' && 'car' in tmp);
1711 })()?v3: v2) !== v2 ? ({car: (function(){
1713 return tmp === v2? v2: tmp.car;
1714 })(), cdr: f56((function(){
1716 return tmp === v2? v2: tmp.cdr;
1721 if (cf.type == 'block' && cf.id == 56)
1733 return f57 = (function(v133){
1734 ((v133)["fname"] = "MEMBER");
1736 })((function (v134,v135){
1737 if (arguments.length < 2) throw 'too few arguments';
1738 if (arguments.length > 2) throw 'too many arguments';
1742 return (f1(v135) !== v2 ? (function(){
1744 })() : (f16(v134, (function(){
1746 return tmp === v2? v2: tmp.car;
1747 })()) !== v2 ? (function(){
1750 return f57(v134, (function(){
1752 return tmp === v2? v2: tmp.cdr;
1758 if (cf.type == 'block' && cf.id == 57)
1770 return f58 = (function(v136){
1771 ((v136)["fname"] = "REMOVE");
1773 })((function (v137,v138){
1774 if (arguments.length < 2) throw 'too few arguments';
1775 if (arguments.length > 2) throw 'too many arguments';
1779 return (f1(v138) !== v2 ? (function(){
1781 })() : (f16(v137, (function(){
1783 return tmp === v2? v2: tmp.car;
1784 })()) !== v2 ? (function(){
1785 return f58(v137, (function(){
1787 return tmp === v2? v2: tmp.cdr;
1790 return ({car: (function(){
1792 return tmp === v2? v2: tmp.car;
1793 })(), cdr: f58(v137, (function(){
1795 return tmp === v2? v2: tmp.cdr;
1801 if (cf.type == 'block' && cf.id == 58)
1813 return f59 = (function(v139){
1814 ((v139)["fname"] = "REMOVE-IF");
1816 })((function (v140,v141){
1817 if (arguments.length < 2) throw 'too few arguments';
1818 if (arguments.length > 2) throw 'too many arguments';
1822 return (f1(v141) !== v2 ? (function(){
1824 })() : ((v140)((function(){
1826 return tmp === v2? v2: tmp.car;
1827 })()) !== v2 ? (function(){
1828 return f59(v140, (function(){
1830 return tmp === v2? v2: tmp.cdr;
1833 return ({car: (function(){
1835 return tmp === v2? v2: tmp.car;
1836 })(), cdr: f59(v140, (function(){
1838 return tmp === v2? v2: tmp.cdr;
1844 if (cf.type == 'block' && cf.id == 59)
1856 return f60 = (function(v142){
1857 ((v142)["fname"] = "REMOVE-IF-NOT");
1859 })((function (v143,v144){
1860 if (arguments.length < 2) throw 'too few arguments';
1861 if (arguments.length > 2) throw 'too many arguments';
1865 return (f1(v144) !== v2 ? (function(){
1867 })() : ((v143)((function(){
1869 return tmp === v2? v2: tmp.car;
1870 })()) !== v2 ? (function(){
1871 return ({car: (function(){
1873 return tmp === v2? v2: tmp.car;
1874 })(), cdr: f60(v143, (function(){
1876 return tmp === v2? v2: tmp.cdr;
1879 return f60(v143, (function(){
1881 return tmp === v2? v2: tmp.cdr;
1887 if (cf.type == 'block' && cf.id == 60)
1899 return f61 = (function(v145){
1900 ((v145)["fname"] = "DIGIT-CHAR-P");
1902 })((function (v146){
1903 if (arguments.length < 1) throw 'too few arguments';
1904 if (arguments.length > 1) throw 'too many arguments';
1908 return ((((function(){
1911 if (typeof x != 'number')
1912 throw 'The value ' + x + ' is not a type number.';
1913 if (typeof y != 'number')
1914 throw 'The value ' + y + ' is not a type number.';
1916 })()?v3: v2) !== v2 ? ((function(){
1919 if (typeof x != 'number')
1920 throw 'The value ' + x + ' is not a type number.';
1921 if (typeof y != 'number')
1922 throw 'The value ' + y + ' is not a type number.';
1924 })()?v3: v2) : v2) !== v2 ? (function(){
1927 if (typeof x != 'number')
1928 throw 'The value ' + x + ' is not a type number.';
1929 if (typeof y != 'number')
1930 throw 'The value ' + y + ' is not a type number.';
1936 if (cf.type == 'block' && cf.id == 61)
1948 return f62 = (function(v147){
1949 ((v147)["fname"] = "SUBSEQ");
1951 })((function (v148,v149,v150){
1952 if (arguments.length < 2) throw 'too few arguments';
1953 if (arguments.length > 3) throw 'too many arguments';
1954 switch(arguments.length){
1962 return (((typeof(v148) == "string")?v3: v2) !== v2 ? (function(){
1963 return (v150 !== v2 ? (function(){
1968 return str.slice(a,b);
1973 return str.slice(a,b);
1976 return (function (){ throw "Unsupported argument."; })();
1981 if (cf.type == 'block' && cf.id == 62)
1993 return f63 = (function(v151){
1994 ((v151)["fname"] = "PARSE-INTEGER");
1996 })((function (v152){
1997 if (arguments.length < 1) throw 'too few arguments';
1998 if (arguments.length > 1) throw 'too many arguments';
2002 return (function(v153,v154,v155){
2010 if (typeof x != 'number')
2011 throw 'The value ' + x + ' is not a type number.';
2012 if (typeof y != 'number')
2013 throw 'The value ' + y + ' is not a type number.';
2015 })()?v3: v2) !== v2){
2017 var x = (function(){
2020 if (typeof x != 'number')
2021 throw 'The value ' + x + ' is not a type number.';
2022 if (typeof y != 'number')
2023 throw 'The value ' + y + ' is not a type number.';
2026 var y = f61((function(){
2029 if (typeof string != 'string')
2030 throw 'The value ' + string + ' is not a type string.';
2031 if (typeof index != 'number')
2032 throw 'The value ' + index + ' is not a type number.';
2033 return string.charCodeAt(index);
2035 if (typeof x != 'number')
2036 throw 'The value ' + x + ' is not a type number.';
2037 if (typeof y != 'number')
2038 throw 'The value ' + y + ' is not a type number.';
2044 if (typeof x != 'number')
2045 throw 'The value ' + x + ' is not a type number.';
2046 if (typeof y != 'number')
2047 throw 'The value ' + y + ' is not a type number.';
2055 if (cf.type == 'block' && cf.id == 64)
2066 if (cf.type == 'block' && cf.id == 63)
2078 return f64 = (function(v156){
2079 ((v156)["fname"] = "SOME");
2081 })((function (v157,v158){
2082 if (arguments.length < 2) throw 'too few arguments';
2083 if (arguments.length > 2) throw 'too many arguments';
2087 return (((typeof(v158) == "string")?v3: v2) !== v2 ? (function(){
2088 return (function(v159,v160){
2096 if (typeof x != 'number')
2097 throw 'The value ' + x + ' is not a type number.';
2098 if (typeof y != 'number')
2099 throw 'The value ' + y + ' is not a type number.';
2101 })()?v3: v2) !== v2){
2102 ((v157)((function(){
2105 if (typeof string != 'string')
2106 throw 'The value ' + string + ' is not a type string.';
2107 if (typeof index != 'number')
2108 throw 'The value ' + index + ' is not a type number.';
2109 return string.charCodeAt(index);
2110 })()) !== v2 ? (function(){
2111 return (function(){ throw ({type: 'block', id: 65, value: v3, message: 'Return from unknown block SOME.'})})();
2116 if (typeof x != 'number')
2117 throw 'The value ' + x + ' is not a type number.';
2118 if (typeof y != 'number')
2119 throw 'The value ' + y + ' is not a type number.';
2127 if (cf.type == 'block' && cf.id == 66)
2135 })() : (f36(v158) !== v2 ? (function(){
2139 return (function(v161,v162){
2144 return tmp === v2? v2: tmp.car;
2146 ((v157)(v162) !== v2 ? (function(){
2147 return (function(){ throw ({type: 'block', id: 67, value: v3, message: 'Return from unknown block NIL.'})})();
2151 return tmp === v2? v2: tmp.cdr;
2160 if (cf.type == 'block' && cf.id == 67)
2167 return (function (){ throw "Unknown sequence."; })();
2172 if (cf.type == 'block' && cf.id == 65)
2184 return f65 = (function(v163){
2185 ((v163)["fname"] = "EVERY");
2187 })((function (v164,v165){
2188 if (arguments.length < 2) throw 'too few arguments';
2189 if (arguments.length > 2) throw 'too many arguments';
2193 return (((typeof(v165) == "string")?v3: v2) !== v2 ? (function(){
2194 return (function(v166,v167){
2202 if (typeof x != 'number')
2203 throw 'The value ' + x + ' is not a type number.';
2204 if (typeof y != 'number')
2205 throw 'The value ' + y + ' is not a type number.';
2207 })()?v3: v2) !== v2){
2208 ((v164)((function(){
2211 if (typeof string != 'string')
2212 throw 'The value ' + string + ' is not a type string.';
2213 if (typeof index != 'number')
2214 throw 'The value ' + index + ' is not a type number.';
2215 return string.charCodeAt(index);
2216 })()) !== v2 ? v2 : (function(){
2217 return (function(){ throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block EVERY.'})})();
2222 if (typeof x != 'number')
2223 throw 'The value ' + x + ' is not a type number.';
2224 if (typeof y != 'number')
2225 throw 'The value ' + y + ' is not a type number.';
2233 if (cf.type == 'block' && cf.id == 69)
2241 })() : (f36(v165) !== v2 ? (function(){
2245 return (function(v168,v169){
2250 return tmp === v2? v2: tmp.car;
2252 ((v164)(v169) !== v2 ? v2 : (function(){
2253 return (function(){ throw ({type: 'block', id: 70, value: v2, message: 'Return from unknown block NIL.'})})();
2257 return tmp === v2? v2: tmp.cdr;
2266 if (cf.type == 'block' && cf.id == 70)
2273 return (function (){ throw "Unknown sequence."; })();
2278 if (cf.type == 'block' && cf.id == 68)
2290 return f66 = (function(v170){
2291 ((v170)["fname"] = "ASSOC");
2293 })((function (v171,v172){
2294 if (arguments.length < 2) throw 'too few arguments';
2295 if (arguments.length > 2) throw 'too many arguments';
2304 (f16(v171, f22(v172)) !== v2 ? (function(){ throw ({type: 'block', id: 72, value: v2, message: 'Return from unknown block NIL.'})})() : v172 = (function(){
2306 return tmp === v2? v2: tmp.cdr;
2313 if (cf.type == 'block' && cf.id == 72)
2321 return tmp === v2? v2: tmp.car;
2326 if (cf.type == 'block' && cf.id == 71)
2338 return f67 = (function(v173){
2339 ((v173)["fname"] = "STRING=");
2341 })((function (v174,v175){
2342 if (arguments.length < 2) throw 'too few arguments';
2343 if (arguments.length > 2) throw 'too many arguments';
2347 return ((v174 == v175)?v3: v2);
2351 if (cf.type == 'block' && cf.id == 73)
2362 var l35 = f3("*NEWLINE*");
2366 return v176 = (function(){
2368 if (typeof x != 'number')
2369 throw 'The value ' + x + ' is not a type number.';
2370 return String.fromCharCode(x);
2375 var l36 = f3("CONCAT");
2379 return f68 = (function(v177){
2380 ((v177)["fname"] = "CONCAT");
2384 for (var i = arguments.length-1; i>=0; i--)
2385 v178 = {car: arguments[i], cdr: v178};
2389 return f37(f44, v178, "");
2393 if (cf.type == 'block' && cf.id == 74)
2403 var l37 = f3("JOIN");
2407 return f69 = (function(v179){
2408 ((v179)["fname"] = "JOIN");
2410 })((function (v180,v181){
2411 if (arguments.length < 1) throw 'too few arguments';
2412 if (arguments.length > 2) throw 'too many arguments';
2413 switch(arguments.length){
2421 return (f1(v180) !== v2 ? (function(){
2423 })() : (f1((function(){
2425 return tmp === v2? v2: tmp.cdr;
2426 })()) !== v2 ? (function(){
2429 return tmp === v2? v2: tmp.car;
2432 return f68((function(){
2434 return tmp === v2? v2: tmp.car;
2435 })(), v181, f69((function(){
2437 return tmp === v2? v2: tmp.cdr;
2443 if (cf.type == 'block' && cf.id == 75)
2453 var l38 = f3("JOIN-TRAILING");
2457 return f70 = (function(v182){
2458 ((v182)["fname"] = "JOIN-TRAILING");
2460 })((function (v183,v184){
2461 if (arguments.length < 1) throw 'too few arguments';
2462 if (arguments.length > 2) throw 'too many arguments';
2463 switch(arguments.length){
2471 return (f1(v183) !== v2 ? "" : f68((function(){
2473 return tmp === v2? v2: tmp.car;
2474 })(), v184, f70((function(){
2476 return tmp === v2? v2: tmp.cdr;
2481 if (cf.type == 'block' && cf.id == 76)
2491 var l39 = f3("INDENT");
2495 return f71 = (function(v185){
2496 ((v185)["fname"] = "INDENT");
2500 for (var i = arguments.length-1; i>=0; i--)
2501 v186 = {car: arguments[i], cdr: v186};
2505 return (function(v187){
2506 return (function(v188,v189,v190){
2507 (f52(v190) !== v2 ? (function(){
2517 if (typeof x != 'number')
2518 throw 'The value ' + x + ' is not a type number.';
2519 if (typeof y != 'number')
2520 throw 'The value ' + y + ' is not a type number.';
2522 })()?v3: v2) !== v2){
2523 v188 = f68(v188, ((f50((function(){
2526 if (typeof string != 'string')
2527 throw 'The value ' + string + ' is not a type string.';
2528 if (typeof index != 'number')
2529 throw 'The value ' + index + ' is not a type number.';
2530 return string.charCodeAt(index);
2531 })(), 10) !== v2 ? (((function(){
2534 if (typeof x != 'number')
2535 throw 'The value ' + x + ' is not a type number.';
2536 if (typeof y != 'number')
2537 throw 'The value ' + y + ' is not a type number.';
2539 })()?v3: v2) !== v2 ? f17(f50((function(){
2541 var index = f12(v189);
2542 if (typeof string != 'string')
2543 throw 'The value ' + string + ' is not a type string.';
2544 if (typeof index != 'number')
2545 throw 'The value ' + index + ' is not a type number.';
2546 return string.charCodeAt(index);
2547 })(), 10)) : v2) : v2) !== v2 ? f68((function(){
2549 if (typeof x != 'number')
2550 throw 'The value ' + x + ' is not a type number.';
2551 return String.fromCharCode(x);
2552 })(), " ") : f62(v187, v189, f12(v189))));
2556 if (typeof x != 'number')
2557 throw 'The value ' + x + ' is not a type number.';
2558 if (typeof y != 'number')
2559 throw 'The value ' + y + ' is not a type number.';
2567 if (cf.type == 'block' && cf.id == 78)
2579 if (cf.type == 'block' && cf.id == 77)
2589 var l40 = f3("INTEGER-TO-STRING");
2593 return f6 = (function(v191){
2594 ((v191)["fname"] = "INTEGER-TO-STRING");
2596 })((function (v192){
2597 if (arguments.length < 1) throw 'too few arguments';
2598 if (arguments.length > 1) throw 'too many arguments';
2602 return (f14(v192) !== v2 ? (function(){
2604 })() : (f53(v192) !== v2 ? (function(){
2605 return f68("-", f6((function(){
2608 if (typeof x != 'number')
2609 throw 'The value ' + x + ' is not a type number.';
2610 if (typeof y != 'number')
2611 throw 'The value ' + y + ' is not a type number.';
2615 return (function(v193){
2620 while(f17(f14(v192)) !== v2){
2621 v193 = ({car: (function(){
2624 if (typeof x != 'number')
2625 throw 'The value ' + x + ' is not a type number.';
2626 if (typeof y != 'number')
2627 throw 'The value ' + y + ' is not a type number.';
2630 v192 = f15(v192, 10);
2636 if (cf.type == 'block' && cf.id == 80)
2642 return f69(f45((function (v194){
2643 if (arguments.length < 1) throw 'too few arguments';
2644 if (arguments.length > 1) throw 'too many arguments';
2646 var x = (function(){
2647 var string = "0123456789";
2649 if (typeof string != 'string')
2650 throw 'The value ' + string + ' is not a type string.';
2651 if (typeof index != 'number')
2652 throw 'The value ' + index + ' is not a type number.';
2653 return string.charCodeAt(index);
2655 if (typeof x != 'number')
2656 throw 'The value ' + x + ' is not a type number.';
2657 return String.fromCharCode(x);
2665 if (cf.type == 'block' && cf.id == 79)
2675 var l41 = f3("JS!SELFCALL");
2679 return f72 = (function(v195){
2680 ((v195)["fname"] = "JS!SELFCALL");
2684 for (var i = arguments.length-1; i>=0; i--)
2685 v196 = {car: arguments[i], cdr: v196};
2689 return f68("(function(){", v176, (function(){
2694 args.push(tail.car);
2697 return f.apply(this, args);
2702 if (cf.type == 'block' && cf.id == 81)
2712 var l44 = f3("PRINT");
2714 var l43 = f3("WRITE-LINE");
2716 var l42 = f3("PRIN1-TO-STRING");
2721 return f73 = (function(v197){
2722 ((v197)["fname"] = "PRIN1-TO-STRING");
2724 })((function (v198){
2725 if (arguments.length < 1) throw 'too few arguments';
2726 if (arguments.length > 1) throw 'too many arguments';
2730 return (((function(){
2732 return (typeof tmp == 'object' && 'name' in tmp);
2733 })()?v3: v2) !== v2 ? (function(){
2735 })() : (f51(v198) !== v2 ? (function(){
2737 })() : (((typeof(v198) == "string")?v3: v2) !== v2 ? (function(){
2738 return f68("\"", f74(v198), "\"");
2739 })() : (((typeof v198 == 'function')?v3: v2) !== v2 ? (function(){
2740 return (function(v199){
2741 return (v199 !== v2 ? f68("#<FUNCTION ", v199, ">") : f68("#<FUNCTION>"));
2743 var tmp = (v198)["fname"];
2744 return tmp == undefined? v2: tmp ;
2746 })() : (f36(v198) !== v2 ? (function(){
2747 return f68("(", f70(f45(f73, f56(v198)), " "), (function(v200){
2748 return (f1((function(){
2750 return tmp === v2? v2: tmp.cdr;
2751 })()) !== v2 ? f73((function(){
2753 return tmp === v2? v2: tmp.car;
2754 })()) : f68(f73((function(){
2756 return tmp === v2? v2: tmp.car;
2757 })()), " . ", f73((function(){
2759 return tmp === v2? v2: tmp.cdr;
2761 })(f55(v198)), ")");
2766 if (cf.type == 'block' && cf.id == 82)
2778 return f75 = (function(v201){
2779 ((v201)["fname"] = "WRITE-LINE");
2781 })((function (v202){
2782 if (arguments.length < 1) throw 'too few arguments';
2783 if (arguments.length > 1) throw 'too many arguments';
2789 if (typeof x != 'string')
2790 throw 'The value ' + x + ' is not a type string.';
2791 return lisp.write(x);
2795 if (typeof x != 'string')
2796 throw 'The value ' + x + ' is not a type string.';
2797 return lisp.write(x);
2803 if (cf.type == 'block' && cf.id == 83)
2815 return f76 = (function(v203){
2816 ((v203)["fname"] = "PRINT");
2818 })((function (v204){
2819 if (arguments.length < 1) throw 'too few arguments';
2820 if (arguments.length > 1) throw 'too many arguments';
2829 if (cf.type == 'block' && cf.id == 84)
2840 var l45 = f3("MAKE-STRING-STREAM");
2844 return f77 = (function(v205){
2845 ((v205)["fname"] = "MAKE-STRING-STREAM");
2847 })((function (v206){
2848 if (arguments.length < 1) throw 'too few arguments';
2849 if (arguments.length > 1) throw 'too many arguments';
2853 return ({car: v206, cdr: 0});
2857 if (cf.type == 'block' && cf.id == 85)
2867 var l46 = f3("%PEEK-CHAR");
2871 return f78 = (function(v207){
2872 ((v207)["fname"] = "%PEEK-CHAR");
2874 })((function (v208){
2875 if (arguments.length < 1) throw 'too few arguments';
2876 if (arguments.length > 1) throw 'too many arguments';
2880 return (((function(){
2881 var x = (function(){
2883 return tmp === v2? v2: tmp.cdr;
2885 var y = f43((function(){
2887 return tmp === v2? v2: tmp.car;
2889 if (typeof x != 'number')
2890 throw 'The value ' + x + ' is not a type number.';
2891 if (typeof y != 'number')
2892 throw 'The value ' + y + ' is not a type number.';
2894 })()?v3: v2) !== v2 ? (function(){
2895 var string = (function(){
2897 return tmp === v2? v2: tmp.car;
2899 var index = (function(){
2901 return tmp === v2? v2: tmp.cdr;
2903 if (typeof string != 'string')
2904 throw 'The value ' + string + ' is not a type string.';
2905 if (typeof index != 'number')
2906 throw 'The value ' + index + ' is not a type number.';
2907 return string.charCodeAt(index);
2912 if (cf.type == 'block' && cf.id == 86)
2922 var l47 = f3("%READ-CHAR");
2926 return f79 = (function(v209){
2927 ((v209)["fname"] = "%READ-CHAR");
2929 })((function (v210){
2930 if (arguments.length < 1) throw 'too few arguments';
2931 if (arguments.length > 1) throw 'too many arguments';
2935 return (((function(){
2936 var x = (function(){
2938 return tmp === v2? v2: tmp.cdr;
2940 var y = f43((function(){
2942 return tmp === v2? v2: tmp.car;
2944 if (typeof x != 'number')
2945 throw 'The value ' + x + ' is not a type number.';
2946 if (typeof y != 'number')
2947 throw 'The value ' + y + ' is not a type number.';
2949 })()?v3: v2) !== v2 ? (function(v211){
2952 if (typeof x != 'object')
2953 throw 'The value ' + x + ' is not a type object.';
2954 return (x.cdr = f12((function(){
2956 return tmp === v2? v2: tmp.cdr;
2961 var string = (function(){
2963 return tmp === v2? v2: tmp.car;
2965 var index = (function(){
2967 return tmp === v2? v2: tmp.cdr;
2969 if (typeof string != 'string')
2970 throw 'The value ' + string + ' is not a type string.';
2971 if (typeof index != 'number')
2972 throw 'The value ' + index + ' is not a type number.';
2973 return string.charCodeAt(index);
2978 if (cf.type == 'block' && cf.id == 87)
2988 var l48 = f3("WHITESPACEP");
2992 return f80 = (function(v212){
2993 ((v212)["fname"] = "WHITESPACEP");
2995 })((function (v213){
2996 if (arguments.length < 1) throw 'too few arguments';
2997 if (arguments.length > 1) throw 'too many arguments';
3001 return (function(v214){
3002 return (v214 !== v2 ? v214 : (function(v215){
3003 return (v215 !== v2 ? v215 : f50(v213, 9));
3009 if (cf.type == 'block' && cf.id == 88)
3019 var l49 = f3("SKIP-WHITESPACES");
3023 return f81 = (function(v216){
3024 ((v216)["fname"] = "SKIP-WHITESPACES");
3026 })((function (v217){
3027 if (arguments.length < 1) throw 'too few arguments';
3028 if (arguments.length > 1) throw 'too many arguments';
3032 return (function(v218){
3038 while((v218 !== v2 ? f80(v218) : v2) !== v2){
3046 if (cf.type == 'block' && cf.id == 90)
3056 if (cf.type == 'block' && cf.id == 89)
3066 var l50 = f3("TERMINALP");
3070 return f82 = (function(v219){
3071 ((v219)["fname"] = "TERMINALP");
3073 })((function (v220){
3074 if (arguments.length < 1) throw 'too few arguments';
3075 if (arguments.length > 1) throw 'too many arguments';
3079 return (function(v221){
3080 return (v221 !== v2 ? v221 : (function(v222){
3081 return (v222 !== v2 ? v222 : (function(v223){
3082 return (v223 !== v2 ? v223 : f50(40, v220));
3089 if (cf.type == 'block' && cf.id == 91)
3099 var l51 = f3("READ-UNTIL");
3103 return f83 = (function(v224){
3104 ((v224)["fname"] = "READ-UNTIL");
3106 })((function (v225,v226){
3107 if (arguments.length < 2) throw 'too few arguments';
3108 if (arguments.length > 2) throw 'too many arguments';
3112 return (function(v227,v228){
3118 while((v228 !== v2 ? f17((v226)(v228)) : v2) !== v2){
3119 v227 = f68(v227, (function(){
3121 if (typeof x != 'number')
3122 throw 'The value ' + x + ' is not a type number.';
3123 return String.fromCharCode(x);
3132 if (cf.type == 'block' && cf.id == 93)
3143 if (cf.type == 'block' && cf.id == 92)
3153 var l52 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3157 return f84 = (function(v229){
3158 ((v229)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3160 })((function (v230){
3161 if (arguments.length < 1) throw 'too few arguments';
3162 if (arguments.length > 1) throw 'too many arguments';
3166 return (function(v231){
3173 while((v231 !== v2 ? f50(v231, 59) : v2) !== v2){
3174 f83(v230, (function (v232){
3175 if (arguments.length < 1) throw 'too few arguments';
3176 if (arguments.length > 1) throw 'too many arguments';
3177 return f50(v232, 10);
3186 if (cf.type == 'block' && cf.id == 95)
3196 if (cf.type == 'block' && cf.id == 94)
3206 var l53 = f3("%READ-LIST");
3210 return f85 = (function(v233){
3211 ((v233)["fname"] = "%READ-LIST");
3213 })((function (v234){
3214 if (arguments.length < 1) throw 'too few arguments';
3215 if (arguments.length > 1) throw 'too many arguments';
3220 return (function(v235){
3221 return (f1(v235) !== v2 ? (function(){
3222 return (function (){ throw "Unspected EOF"; })();
3223 })() : (f50(v235, 41) !== v2 ? (function(){
3226 })() : (f50(v235, 46) !== v2 ? (function(){
3228 return (function(v236){
3230 (f50(f79(v234), 41) !== v2 ? v2 : (function(){
3231 return (function (){ throw "')' was expected."; })();
3236 return ({car: f86(v234), cdr: f85(v234)});
3242 if (cf.type == 'block' && cf.id == 96)
3252 var l54 = f3("READ-STRING");
3256 return f87 = (function(v237){
3257 ((v237)["fname"] = "READ-STRING");
3259 })((function (v238){
3260 if (arguments.length < 1) throw 'too few arguments';
3261 if (arguments.length > 1) throw 'too many arguments';
3265 return (function(v239,v240){
3271 while(f17(f16(v240, 34)) !== v2){
3272 (f1(v240) !== v2 ? (function(){
3273 return (function (){ throw "Unexpected EOF"; })();
3275 (f16(v240, 92) !== v2 ? (function(){
3276 return v240 = f79(v238);
3278 v239 = f68(v239, (function(){
3280 if (typeof x != 'number')
3281 throw 'The value ' + x + ' is not a type number.';
3282 return String.fromCharCode(x);
3290 if (cf.type == 'block' && cf.id == 98)
3301 if (cf.type == 'block' && cf.id == 97)
3311 var l59 = f3("READ-SHARP");
3314 var l56 = f3("FUNCTION");
3319 return f88 = (function(v241){
3320 ((v241)["fname"] = "READ-SHARP");
3322 })((function (v242){
3323 if (arguments.length < 1) throw 'too few arguments';
3324 if (arguments.length > 1) throw 'too many arguments';
3329 return (function(v243){
3330 return (f16(v243, l55) !== v2 ? (function(){
3331 return f33(l56, f86(v242));
3332 })() : (f16(v243, l57) !== v2 ? (function(){
3333 return (function(v244){
3334 return (f67(v244, "space") !== v2 ? (function(){
3336 })() : (f67(v244, "tab") !== v2 ? (function(){
3338 })() : (f67(v244, "newline") !== v2 ? (function(){
3341 return f49((function(){
3344 if (typeof string != 'string')
3345 throw 'The value ' + string + ' is not a type string.';
3346 if (typeof index != 'number')
3347 throw 'The value ' + index + ' is not a type number.';
3348 return string.charCodeAt(index);
3353 if (typeof x != 'number')
3354 throw 'The value ' + x + ' is not a type number.';
3355 return String.fromCharCode(x);
3356 })(), f83(v242, f82)));
3357 })() : (f16(v243, l58) !== v2 ? (function(){
3358 return (function(v245){
3359 return (f67(v245, "common-lisp") !== v2 ? (function(){
3362 })() : (f67(v245, "ecmalisp") !== v2 ? (function(){
3365 return (function (){ throw "Unknown reader form."; })();
3369 return (function (){ throw "ECASE expression failed."; })();
3375 if (cf.type == 'block' && cf.id == 99)
3385 var l60 = f3("*EOF*");
3389 return v246 = (function(){
3391 if (typeof name != 'string')
3392 throw 'The value ' + name + ' is not a type string.';
3393 return ({name: name});
3398 var l65 = f3("LS-READ");
3399 var l64 = f3("UNQUOTE");
3400 var l63 = f3("UNQUOTE-SPLICING");
3401 var l62 = f3("BACKQUOTE");
3402 var l61 = f3("QUOTE");
3406 return f86 = (function(v247){
3407 ((v247)["fname"] = "LS-READ");
3409 })((function (v248){
3410 if (arguments.length < 1) throw 'too few arguments';
3411 if (arguments.length > 1) throw 'too many arguments';
3416 return (function(v249){
3417 return (f1(v249) !== v2 ? (function(){
3419 })() : (f50(v249, 40) !== v2 ? (function(){
3422 })() : (f50(v249, 39) !== v2 ? (function(){
3424 return f33(l61, f86(v248));
3425 })() : (f50(v249, 96) !== v2 ? (function(){
3427 return f33(l62, f86(v248));
3428 })() : (f50(v249, 34) !== v2 ? (function(){
3431 })() : (f50(v249, 44) !== v2 ? (function(){
3433 return (f16(f78(v248), 64) !== v2 ? (function(){
3435 return f33(l63, f86(v248));
3436 })() : f33(l64, f86(v248)));
3437 })() : (f50(v249, 35) !== v2 ? (function(){
3440 return (function(v250){
3441 return (f65(f61, v250) !== v2 ? f63(v250) : f3((function(){
3443 if (typeof x != 'string')
3444 throw 'The value ' + x + ' is not a type string.';
3445 return x.toUpperCase();
3453 if (cf.type == 'block' && cf.id == 100)
3463 var l66 = f3("LS-READ-FROM-STRING");
3467 return f89 = (function(v251){
3468 ((v251)["fname"] = "LS-READ-FROM-STRING");
3470 })((function (v252){
3471 if (arguments.length < 1) throw 'too few arguments';
3472 if (arguments.length > 1) throw 'too many arguments';
3476 return f86(f77(v252));
3480 if (cf.type == 'block' && cf.id == 101)
3490 var l68 = f3("*COMPILATION-UNIT-CHECKS*");
3491 var l67 = f3("NIL");
3499 var l69 = f3("MAKE-BINDING");
3503 return f90 = (function(v254){
3504 ((v254)["fname"] = "MAKE-BINDING");
3506 })((function (v255,v256,v257,v258){
3507 if (arguments.length < 4) throw 'too few arguments';
3508 if (arguments.length > 4) throw 'too many arguments';
3512 return f33(v255, v256, v257, v258);
3516 if (cf.type == 'block' && cf.id == 102)
3526 var l70 = f3("BINDING-NAME");
3530 return f91 = (function(v259){
3531 ((v259)["fname"] = "BINDING-NAME");
3533 })((function (v260){
3534 if (arguments.length < 1) throw 'too few arguments';
3535 if (arguments.length > 1) throw 'too many arguments';
3543 if (cf.type == 'block' && cf.id == 103)
3553 var l71 = f3("BINDING-TYPE");
3557 return f92 = (function(v261){
3558 ((v261)["fname"] = "BINDING-TYPE");
3560 })((function (v262){
3561 if (arguments.length < 1) throw 'too few arguments';
3562 if (arguments.length > 1) throw 'too many arguments';
3570 if (cf.type == 'block' && cf.id == 104)
3580 var l72 = f3("BINDING-TRANSLATION");
3584 return f93 = (function(v263){
3585 ((v263)["fname"] = "BINDING-TRANSLATION");
3587 })((function (v264){
3588 if (arguments.length < 1) throw 'too few arguments';
3589 if (arguments.length > 1) throw 'too many arguments';
3597 if (cf.type == 'block' && cf.id == 105)
3607 var l73 = f3("BINDING-DECLARED");
3611 return f94 = (function(v265){
3612 ((v265)["fname"] = "BINDING-DECLARED");
3614 })((function (v266){
3615 if (arguments.length < 1) throw 'too few arguments';
3616 if (arguments.length > 1) throw 'too many arguments';
3620 return (v266 !== v2 ? f32(v266) : v2);
3624 if (cf.type == 'block' && cf.id == 106)
3634 var l74 = f3("MARK-BINDING-AS-DECLARED");
3638 return f95 = (function(v267){
3639 ((v267)["fname"] = "MARK-BINDING-AS-DECLARED");
3641 })((function (v268){
3642 if (arguments.length < 1) throw 'too few arguments';
3643 if (arguments.length > 1) throw 'too many arguments';
3649 if (typeof x != 'object')
3650 throw 'The value ' + x + ' is not a type object.';
3651 return (x.car = v3);
3656 if (cf.type == 'block' && cf.id == 107)
3666 var l75 = f3("MAKE-LEXENV");
3670 return f96 = (function(v269){
3671 ((v269)["fname"] = "MAKE-LEXENV");
3674 if (arguments.length > 0) throw 'too many arguments';
3678 return f33(v2, v2, v2, v2);
3682 if (cf.type == 'block' && cf.id == 108)
3692 var l76 = f3("COPY-LEXENV");
3696 return f97 = (function(v270){
3697 ((v270)["fname"] = "COPY-LEXENV");
3699 })((function (v271){
3700 if (arguments.length < 1) throw 'too few arguments';
3701 if (arguments.length > 1) throw 'too many arguments';
3709 if (cf.type == 'block' && cf.id == 109)
3719 var l81 = f3("PUSH-TO-LEXENV");
3720 var l80 = f3("GOTAG");
3721 var l79 = f3("BLOCK");
3722 var l78 = f3("FUNCTION");
3723 var l77 = f3("VARIABLE");
3727 return f98 = (function(v272){
3728 ((v272)["fname"] = "PUSH-TO-LEXENV");
3730 })((function (v273,v274,v275){
3731 if (arguments.length < 3) throw 'too few arguments';
3732 if (arguments.length > 3) throw 'too many arguments';
3736 return (function(v276){
3737 return (f16(v276, l77) !== v2 ? (function(){
3740 if (typeof x != 'object')
3741 throw 'The value ' + x + ' is not a type object.';
3742 return (x.car = ({car: v273, cdr: (function(){
3744 return tmp === v2? v2: tmp.car;
3747 })() : (f16(v276, l78) !== v2 ? (function(){
3749 var x = (function(){
3751 return tmp === v2? v2: tmp.cdr;
3753 if (typeof x != 'object')
3754 throw 'The value ' + x + ' is not a type object.';
3755 return (x.car = ({car: v273, cdr: f23(v274)}));
3757 })() : (f16(v276, l79) !== v2 ? (function(){
3760 if (typeof x != 'object')
3761 throw 'The value ' + x + ' is not a type object.';
3762 return (x.car = ({car: v273, cdr: f26(v274)}));
3764 })() : (f16(v276, l80) !== v2 ? (function(){
3767 if (typeof x != 'object')
3768 throw 'The value ' + x + ' is not a type object.';
3769 return (x.car = ({car: v273, cdr: f28(v274)}));
3772 return (function (){ throw "ECASE expression failed."; })();
3778 if (cf.type == 'block' && cf.id == 110)
3788 var l82 = f3("EXTEND-LEXENV");
3792 return f99 = (function(v277){
3793 ((v277)["fname"] = "EXTEND-LEXENV");
3795 })((function (v278,v279,v280){
3796 if (arguments.length < 3) throw 'too few arguments';
3797 if (arguments.length > 3) throw 'too many arguments';
3801 return (function(v281){
3805 return (function(v282,v283){
3810 return tmp === v2? v2: tmp.car;
3812 f98(v283, v281, v280);
3815 return tmp === v2? v2: tmp.cdr;
3824 if (cf.type == 'block' && cf.id == 112)
3834 if (cf.type == 'block' && cf.id == 111)
3844 var l87 = f3("LOOKUP-IN-LEXENV");
3845 var l86 = f3("GOTAG");
3846 var l85 = f3("BLOCK");
3847 var l84 = f3("FUNCTION");
3848 var l83 = f3("VARIABLE");
3852 return f100 = (function(v284){
3853 ((v284)["fname"] = "LOOKUP-IN-LEXENV");
3855 })((function (v285,v286,v287){
3856 if (arguments.length < 3) throw 'too few arguments';
3857 if (arguments.length > 3) throw 'too many arguments';
3861 return f66(v285, (function(v288){
3862 return (f16(v288, l83) !== v2 ? (function(){
3864 })() : (f16(v288, l84) !== v2 ? (function(){
3866 })() : (f16(v288, l85) !== v2 ? (function(){
3868 })() : (f16(v288, l86) !== v2 ? (function(){
3871 return (function (){ throw "ECASE expression failed."; })();
3877 if (cf.type == 'block' && cf.id == 113)
3887 var l88 = f3("*ENVIRONMENT*");
3891 return v289 = f96();
3895 var l89 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3899 return f101 = (function(v290){
3900 ((v290)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3903 if (arguments.length > 0) throw 'too many arguments';
3907 return (function(v291,v292){
3908 return v289 = f33(v291, v292, f31(v289));
3909 })(f29(v289),f30(v289));
3913 if (cf.type == 'block' && cf.id == 114)
3923 var l90 = f3("*VARIABLE-COUNTER*");
3931 var l91 = f3("GVARNAME");
3935 return f102 = (function(v294){
3936 ((v294)["fname"] = "GVARNAME");
3938 })((function (v295){
3939 if (arguments.length < 1) throw 'too few arguments';
3940 if (arguments.length > 1) throw 'too many arguments';
3944 return f68("v", f6(v293 = (function(){
3947 if (typeof x != 'number')
3948 throw 'The value ' + x + ' is not a type number.';
3949 if (typeof y != 'number')
3950 throw 'The value ' + y + ' is not a type number.';
3956 if (cf.type == 'block' && cf.id == 115)
3966 var l97 = f3("LOOKUP-VARIABLE");
3967 var l96 = f3("VARIABLE");
3968 var l95 = f3("VARIABLE");
3969 var l94 = f3("VARIABLE");
3970 var l93 = f3("VARIABLE");
3971 var l92 = f3("VARIABLE");
3975 return f103 = (function(v296){
3976 ((v296)["fname"] = "LOOKUP-VARIABLE");
3978 })((function (v297,v298){
3979 if (arguments.length < 2) throw 'too few arguments';
3980 if (arguments.length > 2) throw 'too many arguments';
3984 return (function(v299){
3985 return (v299 !== v2 ? v299 : (function(v300){
3986 return (v300 !== v2 ? v300 : (function(v301,v302){
3987 f98(v302, v289, l92);
3988 v253 = ({car: (function (){
3989 if (arguments.length > 0) throw 'too many arguments';
3990 return (f100(v297, v289, l93) !== v2 ? v2 : (function(){
3991 return (function (){ throw f68("Undefined variable `", v301, "'"); })();
3995 })((v297).name,f90(v297, l94, f102(v297), v2)));
3996 })(f100(v297, v289, l95)));
3997 })(f100(v297, v298, l96));
4001 if (cf.type == 'block' && cf.id == 116)
4011 var l98 = f3("LOOKUP-VARIABLE-TRANSLATION");
4015 return f104 = (function(v303){
4016 ((v303)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4018 })((function (v304,v305){
4019 if (arguments.length < 2) throw 'too few arguments';
4020 if (arguments.length > 2) throw 'too many arguments';
4024 return f93(f103(v304, v305));
4028 if (cf.type == 'block' && cf.id == 117)
4038 var l101 = f3("EXTEND-LOCAL-ENV");
4039 var l100 = f3("VARIABLE");
4040 var l99 = f3("VARIABLE");
4044 return f105 = (function(v306){
4045 ((v306)["fname"] = "EXTEND-LOCAL-ENV");
4047 })((function (v307,v308){
4048 if (arguments.length < 2) throw 'too few arguments';
4049 if (arguments.length > 2) throw 'too many arguments';
4053 return (function(v309){
4057 return (function(v310,v311){
4062 return tmp === v2? v2: tmp.car;
4065 return f98(v312, v309, l99);
4066 })(f90(v311, l100, f102(v311), v3));
4069 return tmp === v2? v2: tmp.cdr;
4078 if (cf.type == 'block' && cf.id == 119)
4088 if (cf.type == 'block' && cf.id == 118)
4098 var l102 = f3("*FUNCTION-COUNTER*");
4106 var l108 = f3("LOOKUP-FUNCTION");
4107 var l107 = f3("FUNCTION");
4108 var l106 = f3("FUNCTION");
4109 var l105 = f3("FUNCTION");
4110 var l104 = f3("FUNCTION");
4111 var l103 = f3("FUNCTION");
4115 return f106 = (function(v314){
4116 ((v314)["fname"] = "LOOKUP-FUNCTION");
4118 })((function (v315,v316){
4119 if (arguments.length < 2) throw 'too few arguments';
4120 if (arguments.length > 2) throw 'too many arguments';
4124 return (function(v317){
4125 return (v317 !== v2 ? v317 : (function(v318){
4126 return (v318 !== v2 ? v318 : (function(v319,v320){
4127 f98(v320, v289, l103);
4128 v253 = ({car: (function (){
4129 if (arguments.length > 0) throw 'too many arguments';
4130 return (f94(f100(v315, v289, l104)) !== v2 ? v2 : (function(){
4131 return (function (){ throw f68("Undefined function `", v319, "'"); })();
4135 })((v315).name,f90(v315, l105, f68("f", f6(v313 = (function(){
4138 if (typeof x != 'number')
4139 throw 'The value ' + x + ' is not a type number.';
4140 if (typeof y != 'number')
4141 throw 'The value ' + y + ' is not a type number.';
4144 })(f100(v315, v289, l106)));
4145 })(f100(v315, v316, l107));
4149 if (cf.type == 'block' && cf.id == 120)
4159 var l109 = f3("LOOKUP-FUNCTION-TRANSLATION");
4163 return f107 = (function(v321){
4164 ((v321)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4166 })((function (v322,v323){
4167 if (arguments.length < 2) throw 'too few arguments';
4168 if (arguments.length > 2) throw 'too many arguments';
4172 return f93(f106(v322, v323));
4176 if (cf.type == 'block' && cf.id == 121)
4186 var l110 = f3("*TOPLEVEL-COMPILATIONS*");
4194 var l111 = f3("%COMPILE-DEFVAR");
4198 return f108 = (function(v325){
4199 ((v325)["fname"] = "%COMPILE-DEFVAR");
4201 })((function (v326){
4202 if (arguments.length < 1) throw 'too few arguments';
4203 if (arguments.length > 1) throw 'too many arguments';
4207 return (function(v327){
4209 return v324 = ({car: f68("var ", f93(v327)), cdr: v324});
4210 })(f103(v326, v289));
4214 if (cf.type == 'block' && cf.id == 122)
4224 var l112 = f3("%COMPILE-DEFUN");
4228 return f109 = (function(v328){
4229 ((v328)["fname"] = "%COMPILE-DEFUN");
4231 })((function (v329){
4232 if (arguments.length < 1) throw 'too few arguments';
4233 if (arguments.length > 1) throw 'too many arguments';
4237 return (function(v330){
4239 return v324 = ({car: f68("var ", f93(v330)), cdr: v324});
4240 })(f106(v329, v289));
4244 if (cf.type == 'block' && cf.id == 123)
4254 var l115 = f3("%COMPILE-DEFMACRO");
4255 var l114 = f3("FUNCTION");
4256 var l113 = f3("MACRO");
4260 return f110 = (function(v331){
4261 ((v331)["fname"] = "%COMPILE-DEFMACRO");
4263 })((function (v332,v333){
4264 if (arguments.length < 2) throw 'too few arguments';
4265 if (arguments.length > 2) throw 'too many arguments';
4269 return f98(f90(v332, l113, v333, v3), v289, l114);
4273 if (cf.type == 'block' && cf.id == 124)
4283 var l116 = f3("*COMPILATIONS*");
4291 var l117 = f3("LS-COMPILE-BLOCK");
4295 return f111 = (function(v335){
4296 ((v335)["fname"] = "LS-COMPILE-BLOCK");
4298 })((function (v336,v337){
4299 if (arguments.length < 2) throw 'too few arguments';
4300 if (arguments.length > 2) throw 'too many arguments';
4304 return f70(f59((function (v338){
4305 if (arguments.length < 1) throw 'too few arguments';
4306 if (arguments.length > 1) throw 'too many arguments';
4307 return (function(v339){
4308 return (v339 !== v2 ? v339 : (((typeof(v338) == "string")?v3: v2) !== v2 ? f14(f43(v338)) : v2));
4310 }), f45((function (v340){
4311 if (arguments.length < 1) throw 'too few arguments';
4312 if (arguments.length > 1) throw 'too many arguments';
4313 return f112(v340, v337);
4314 }), v336)), f68(";", v176));
4318 if (cf.type == 'block' && cf.id == 125)
4328 var l118 = f3("IF");
4329 v334 = ({car: f33(l118, (function (v341,v342,v343,v344){
4330 if (arguments.length < 4) throw 'too few arguments';
4331 if (arguments.length > 4) throw 'too many arguments';
4335 return f68("(", f112(v342, v341), " !== ", f112(v2), " ? ", f112(v343, v341), " : ", f112(v344, v341), ")");
4339 if (cf.type == 'block' && cf.id == 126)
4346 var l120 = f3("*LAMBDA-LIST-KEYWORDS*");
4347 var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4355 var l121 = f3("LIST-UNTIL-KEYWORD");
4359 return f113 = (function(v346){
4360 ((v346)["fname"] = "LIST-UNTIL-KEYWORD");
4362 })((function (v347){
4363 if (arguments.length < 1) throw 'too few arguments';
4364 if (arguments.length > 1) throw 'too many arguments';
4368 return ((function(v348){
4369 return (v348 !== v2 ? v348 : f57((function(){
4371 return tmp === v2? v2: tmp.car;
4373 })(f1(v347)) !== v2 ? v2 : ({car: (function(){
4375 return tmp === v2? v2: tmp.car;
4376 })(), cdr: f113((function(){
4378 return tmp === v2? v2: tmp.cdr;
4383 if (cf.type == 'block' && cf.id == 127)
4393 var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4397 return f114 = (function(v349){
4398 ((v349)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4400 })((function (v350){
4401 if (arguments.length < 1) throw 'too few arguments';
4402 if (arguments.length > 1) throw 'too many arguments';
4410 if (cf.type == 'block' && cf.id == 128)
4420 var l124 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4421 var l123 = f3("&OPTIONAL");
4425 return f115 = (function(v351){
4426 ((v351)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4428 })((function (v352){
4429 if (arguments.length < 1) throw 'too few arguments';
4430 if (arguments.length > 1) throw 'too many arguments';
4434 return f45(f35, f113((function(){
4435 var tmp = f57(l123, v352);
4436 return tmp === v2? v2: tmp.cdr;
4441 if (cf.type == 'block' && cf.id == 129)
4451 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4455 return f116 = (function(v353){
4456 ((v353)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4458 })((function (v354){
4459 if (arguments.length < 1) throw 'too few arguments';
4460 if (arguments.length > 1) throw 'too many arguments';
4464 return f45(f20, f115(v354));
4468 if (cf.type == 'block' && cf.id == 130)
4478 var l127 = f3("LAMBDA-LIST-REST-ARGUMENT");
4479 var l126 = f3("&REST");
4483 return f117 = (function(v355){
4484 ((v355)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4486 })((function (v356){
4487 if (arguments.length < 1) throw 'too few arguments';
4488 if (arguments.length > 1) throw 'too many arguments';
4492 return (function(v357){
4495 return tmp === v2? v2: tmp.cdr;
4496 })() !== v2 ? (function(){
4497 return (function (){ throw "Bad lambda-list"; })();
4501 return tmp === v2? v2: tmp.car;
4503 })(f113((function(){
4504 var tmp = f57(l126, v356);
4505 return tmp === v2? v2: tmp.cdr;
4510 if (cf.type == 'block' && cf.id == 131)
4520 var l128 = f3("LAMBDA");
4521 v334 = ({car: f33(l128, (function (v359,v360){
4522 if (arguments.length < 2) throw 'too few arguments';
4524 for (var i = arguments.length-1; i>=2; i--)
4525 v358 = {car: arguments[i], cdr: v358};
4529 return (function(v361,v362,v363){
4530 return (function(v364,v365,v366){
4531 return f68("(function (", f69(f45((function (v367){
4532 if (arguments.length < 1) throw 'too few arguments';
4533 if (arguments.length > 1) throw 'too many arguments';
4534 return f104(v367, v366);
4535 }), f39(v361, v362)), ","), "){", v176, f71((v361 !== v2 ? f68("if (arguments.length < ", f6(v364), ") throw 'too few arguments';", v176) : ""), (f17(v363) !== v2 ? f68("if (arguments.length > ", f6((function(){
4538 if (typeof x != 'number')
4539 throw 'The value ' + x + ' is not a type number.';
4540 if (typeof y != 'number')
4541 throw 'The value ' + y + ' is not a type number.';
4543 })()), ") throw 'too many arguments';", v176) : ""), (v362 !== v2 ? f68("switch(arguments.length){", v176, (function(v368,v369,v370){
4552 if (typeof x != 'number')
4553 throw 'The value ' + x + ' is not a type number.';
4554 if (typeof y != 'number')
4555 throw 'The value ' + y + ' is not a type number.';
4557 })()?v3: v2) !== v2){
4559 v369 = ({car: f68("case ", f6((function(){
4562 if (typeof x != 'number')
4563 throw 'The value ' + x + ' is not a type number.';
4564 if (typeof y != 'number')
4565 throw 'The value ' + y + ' is not a type number.';
4567 })()), ":", v176, f104((function(){
4569 return tmp === v2? v2: tmp.car;
4570 })(), v366), "=", f112(f23(v371), v366), ";", v176), cdr: v369});
4571 return v370 = (function(){
4574 if (typeof x != 'number')
4575 throw 'The value ' + x + ' is not a type number.';
4576 if (typeof y != 'number')
4577 throw 'The value ' + y + ' is not a type number.';
4580 })(f54(v370, v368));
4586 if (cf.type == 'block' && cf.id == 133)
4592 v369 = ({car: f68("default: break;", v176), cdr: v369});
4593 return f69(f41(v369));
4595 })(f115(v360),v2,0), "}", v176) : ""), (v363 !== v2 ? (function(v372){
4596 return f68("var ", v372, "= ", f112(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){
4599 if (typeof x != 'number')
4600 throw 'The value ' + x + ' is not a type number.';
4601 if (typeof y != 'number')
4602 throw 'The value ' + y + ' is not a type number.';
4604 })()), "; i--)", v176, f71(v372, " = ", "{car: arguments[i], cdr: "), v372, "};", v176);
4605 })(f104(v363, v366)) : ""), f68(f111(f56(v358), v366), "return ", f112((function(){
4606 var tmp = f55(v358);
4607 return tmp === v2? v2: tmp.car;
4608 })(), v366), ";")), v176, "})");
4609 })(f43(v361),f43(v362),f105(f39(f35(v363), v361, v362), v359));
4610 })(f114(v360),f116(v360),f117(v360));
4614 if (cf.type == 'block' && cf.id == 132)
4621 var l129 = f3("FSETQ");
4622 v334 = ({car: f33(l129, (function (v373,v374,v375){
4623 if (arguments.length < 3) throw 'too few arguments';
4624 if (arguments.length > 3) throw 'too many arguments';
4628 return f68(f107(v374, v373), " = ", f112(v375, v373));
4632 if (cf.type == 'block' && cf.id == 134)
4639 var l130 = f3("SETQ");
4640 v334 = ({car: f33(l130, (function (v376,v377,v378){
4641 if (arguments.length < 3) throw 'too few arguments';
4642 if (arguments.length > 3) throw 'too many arguments';
4646 return f68(f104(v377, v376), " = ", f112(v378, v376));
4650 if (cf.type == 'block' && cf.id == 135)
4657 var l131 = f3("ESCAPE-STRING");
4661 return f74 = (function(v379){
4662 ((v379)["fname"] = "ESCAPE-STRING");
4664 })((function (v380){
4665 if (arguments.length < 1) throw 'too few arguments';
4666 if (arguments.length > 1) throw 'too many arguments';
4670 return (function(v381,v382,v383){
4678 if (typeof x != 'number')
4679 throw 'The value ' + x + ' is not a type number.';
4680 if (typeof y != 'number')
4681 throw 'The value ' + y + ' is not a type number.';
4683 })()?v3: v2) !== v2){
4686 return (v385 !== v2 ? v385 : f50(v384, 92));
4687 })(f50(v384, 34)) !== v2 ? (function(){
4688 return v381 = f68(v381, "\\");
4690 (f50(v384, 10) !== v2 ? (function(){
4691 v381 = f68(v381, "\\");
4694 return v381 = f68(v381, (function(){
4696 if (typeof x != 'number')
4697 throw 'The value ' + x + ' is not a type number.';
4698 return String.fromCharCode(x);
4703 if (typeof string != 'string')
4704 throw 'The value ' + string + ' is not a type string.';
4705 if (typeof index != 'number')
4706 throw 'The value ' + index + ' is not a type number.';
4707 return string.charCodeAt(index);
4712 if (typeof x != 'number')
4713 throw 'The value ' + x + ' is not a type number.';
4714 if (typeof y != 'number')
4715 throw 'The value ' + y + ' is not a type number.';
4723 if (cf.type == 'block' && cf.id == 137)
4734 if (cf.type == 'block' && cf.id == 136)
4744 var l133 = f3("LITERAL->JS");
4745 var l132 = f3("INTERN");
4749 return f118 = (function(v386){
4750 ((v386)["fname"] = "LITERAL->JS");
4752 })((function (v387){
4753 if (arguments.length < 1) throw 'too few arguments';
4754 if (arguments.length > 1) throw 'too many arguments';
4758 return (f51(v387) !== v2 ? (function(){
4760 })() : (((typeof(v387) == "string")?v3: v2) !== v2 ? (function(){
4761 return f68("\"", f74(v387), "\"");
4762 })() : (((function(){
4764 return (typeof tmp == 'object' && 'name' in tmp);
4765 })()?v3: v2) !== v2 ? (function(){
4766 return f112(f39(f33(l132), f33(f74((v387).name))), v289);
4767 })() : (((function(){
4769 return (typeof tmp == 'object' && 'car' in tmp);
4770 })()?v3: v2) !== v2 ? (function(){
4771 return f68("{car: ", f118((function(){
4773 return tmp === v2? v2: tmp.car;
4774 })()), ", cdr: ", f118((function(){
4776 return tmp === v2? v2: tmp.cdr;
4782 if (cf.type == 'block' && cf.id == 138)
4792 var l134 = f3("*LITERAL-COUNTER*");
4800 var l135 = f3("LITERAL");
4804 return f119 = (function(v389){
4805 ((v389)["fname"] = "LITERAL");
4807 })((function (v390){
4808 if (arguments.length < 1) throw 'too few arguments';
4809 if (arguments.length > 1) throw 'too many arguments';
4813 return (function(v391){
4814 v324 = ({car: f68("var ", v391, " = ", f118(v390)), cdr: v324});
4816 })(f68("l", f6(v388 = (function(){
4819 if (typeof x != 'number')
4820 throw 'The value ' + x + ' is not a type number.';
4821 if (typeof y != 'number')
4822 throw 'The value ' + y + ' is not a type number.';
4828 if (cf.type == 'block' && cf.id == 139)
4838 var l136 = f3("QUOTE");
4839 v334 = ({car: f33(l136, (function (v392,v393){
4840 if (arguments.length < 2) throw 'too few arguments';
4841 if (arguments.length > 2) throw 'too many arguments';
4849 if (cf.type == 'block' && cf.id == 140)
4856 var l137 = f3("%WHILE");
4857 v334 = ({car: f33(l137, (function (v395,v396){
4858 if (arguments.length < 2) throw 'too few arguments';
4860 for (var i = arguments.length-1; i>=2; i--)
4861 v394 = {car: arguments[i], cdr: v394};
4865 return f68("(function(){", v176, f71("while(", f112(v396, v395), " !== ", f112(v2), "){", v176, f71(f111(v394, v395)), "}", "return ", f112(v2), ";", v176), "})()");
4869 if (cf.type == 'block' && cf.id == 141)
4876 var l139 = f3("LAMBDA");
4877 var l138 = f3("FUNCTION");
4878 v334 = ({car: f33(l138, (function (v397,v398){
4879 if (arguments.length < 2) throw 'too few arguments';
4880 if (arguments.length > 2) throw 'too many arguments';
4884 return ((f36(v398) !== v2 ? (((function(){
4886 return tmp === v2? v2: tmp.car;
4887 })() === l139)?v3: v2) : v2) !== v2 ? (function(){
4888 return f112(v398, v397);
4889 })() : (((function(){
4891 return (typeof tmp == 'object' && 'name' in tmp);
4892 })()?v3: v2) !== v2 ? (function(){
4893 return f107(v398, v397);
4898 if (cf.type == 'block' && cf.id == 142)
4905 var l141 = f3("PROGN");
4906 var l140 = f3("EVAL-WHEN-COMPILE");
4907 v334 = ({car: f33(l140, (function (v400){
4908 if (arguments.length < 1) throw 'too few arguments';
4910 for (var i = arguments.length-1; i>=1; i--)
4911 v399 = {car: arguments[i], cdr: v399};
4915 f120(({car: l141, cdr: v399}));
4920 if (cf.type == 'block' && cf.id == 143)
4927 var l142 = f3("PROGN");
4928 v334 = ({car: f33(l142, (function (v402){
4929 if (arguments.length < 1) throw 'too few arguments';
4931 for (var i = arguments.length-1; i>=1; i--)
4932 v401 = {car: arguments[i], cdr: v401};
4936 return f68("(function(){", v176, f71(f111(f56(v401), v402), "return ", f112((function(){
4937 var tmp = f55(v401);
4938 return tmp === v2? v2: tmp.car;
4939 })(), v402), ";", v176), "})()");
4943 if (cf.type == 'block' && cf.id == 144)
4950 var l143 = f3("LET");
4951 v334 = ({car: f33(l143, (function (v404,v405){
4952 if (arguments.length < 2) throw 'too few arguments';
4954 for (var i = arguments.length-1; i>=2; i--)
4955 v403 = {car: arguments[i], cdr: v403};
4959 return (function(v406){
4960 return (function(v407,v408){
4961 return (function(v409){
4962 return f68("(function(", f69(f45((function (v410){
4963 if (arguments.length < 1) throw 'too few arguments';
4964 if (arguments.length > 1) throw 'too many arguments';
4965 return f104(v410, v409);
4966 }), v407), ","), "){", v176, f71(f111(f56(v403), v409), "return ", f112((function(){
4967 var tmp = f55(v403);
4968 return tmp === v2? v2: tmp.car;
4969 })(), v409), ";", v176), "})(", f69(f45((function (v411){
4970 if (arguments.length < 1) throw 'too few arguments';
4971 if (arguments.length > 1) throw 'too many arguments';
4972 return f112(v411, v404);
4973 }), v408), ","), ")");
4974 })(f105(v407, v404));
4975 })(f45(f29, v406),f45(f30, v406));
4980 if (cf.type == 'block' && cf.id == 145)
4987 var l144 = f3("*BLOCK-COUNTER*");
4995 var l148 = f3("BLOCK");
4996 var l147 = f3("BLOCK");
4997 var l146 = f3("PROGN");
4998 var l145 = f3("BLOCK");
4999 v334 = ({car: f33(l145, (function (v414,v415){
5000 if (arguments.length < 2) throw 'too few arguments';
5002 for (var i = arguments.length-1; i>=2; i--)
5003 v413 = {car: arguments[i], cdr: v413};
5007 return (function(v416){
5008 return (function(v417){
5009 return f68("(function(){", v176, f71("try {", v176, f71("return ", f112(f39(f33(l146), v413), f99(f33(v417), v414, l147)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'block' && cf.id == ", v416, ")", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()");
5010 })(f90(v415, l148, v416, v3));
5011 })(f6(v412 = (function(){
5014 if (typeof x != 'number')
5015 throw 'The value ' + x + ' is not a type number.';
5016 if (typeof y != 'number')
5017 throw 'The value ' + y + ' is not a type number.';
5023 if (cf.type == 'block' && cf.id == 146)
5030 var l150 = f3("BLOCK");
5031 var l149 = f3("RETURN-FROM");
5032 v334 = ({car: f33(l149, (function (v418,v419,v420){
5033 if (arguments.length < 2) throw 'too few arguments';
5034 if (arguments.length > 3) throw 'too many arguments';
5035 switch(arguments.length){
5043 return (function(v421){
5044 return (v421 !== v2 ? f68("(function(){ throw ({", "type: 'block', ", "id: ", f93(v421), ", ", "value: ", f112(v420, v418), ", ", "message: 'Return from unknown block ", (v419).name, ".'", "})})()") : (function (){ throw f68("Unknown block `", (v419).name, "'."); })());
5045 })(f100(v419, v418, l150));
5049 if (cf.type == 'block' && cf.id == 147)
5056 var l152 = f3("PROGN");
5057 var l151 = f3("CATCH");
5058 v334 = ({car: f33(l151, (function (v423,v424){
5059 if (arguments.length < 2) throw 'too few arguments';
5061 for (var i = arguments.length-1; i>=2; i--)
5062 v422 = {car: arguments[i], cdr: v422};
5066 return f68("(function(){", v176, f71("var id = ", f112(v424, v423), ";", v176, "try {", v176, f71("return ", f112(f39(f33(l152), v422)), ";", v176), "}", v176, "catch (cf){", v176, " if (cf.type == 'catch' && cf.id == id)", v176, " return cf.value;", v176, " else", v176, " throw cf;", v176, "}", v176), "})()");
5070 if (cf.type == 'block' && cf.id == 148)
5077 var l153 = f3("THROW");
5078 v334 = ({car: f33(l153, (function (v425,v426,v427){
5079 if (arguments.length < 2) throw 'too few arguments';
5080 if (arguments.length > 3) throw 'too many arguments';
5081 switch(arguments.length){
5089 return f68("(function(){ throw ({", "type: 'catch', ", "id: ", f112(v426, v425), ", ", "value: ", f112(v427, v425), ", ", "message: 'Throw uncatched.'", "})})()");
5093 if (cf.type == 'block' && cf.id == 149)
5100 var l154 = f3("*TAGBODY-COUNTER*");
5108 var l155 = f3("*GO-TAG-COUNTER*");
5116 var l156 = f3("GO-TAG-P");
5120 return f121 = (function(v430){
5121 ((v430)["fname"] = "GO-TAG-P");
5123 })((function (v431){
5124 if (arguments.length < 1) throw 'too few arguments';
5125 if (arguments.length > 1) throw 'too many arguments';
5129 return (function(v432){
5130 return (v432 !== v2 ? v432 : ((function(){
5132 return (typeof tmp == 'object' && 'name' in tmp);
5138 if (cf.type == 'block' && cf.id == 150)
5148 var l159 = f3("DECLARE-TAGBODY-TAGS");
5149 var l158 = f3("GOTAG");
5150 var l157 = f3("GOTAG");
5154 return f122 = (function(v433){
5155 ((v433)["fname"] = "DECLARE-TAGBODY-TAGS");
5157 })((function (v434,v435,v436){
5158 if (arguments.length < 3) throw 'too few arguments';
5159 if (arguments.length > 3) throw 'too many arguments';
5163 return (function(v437){
5164 return f99(v437, v434, l157);
5165 })(f45((function (v438){
5166 if (arguments.length < 1) throw 'too few arguments';
5167 if (arguments.length > 1) throw 'too many arguments';
5168 return (function(v439){
5169 return f90(v438, l158, f33(v435, v439), v3);
5170 })(f6(v429 = (function(){
5173 if (typeof x != 'number')
5174 throw 'The value ' + x + ' is not a type number.';
5175 if (typeof y != 'number')
5176 throw 'The value ' + y + ' is not a type number.';
5179 }), f60(f121, v436)));
5183 if (cf.type == 'block' && cf.id == 151)
5193 var l164 = f3("GOTAG");
5194 var l163 = f3("GOTAG");
5195 var l162 = f3("NIL");
5196 var l161 = f3("PROGN");
5197 var l160 = f3("TAGBODY");
5198 v334 = ({car: f33(l160, (function (v441){
5199 if (arguments.length < 1) throw 'too few arguments';
5201 for (var i = arguments.length-1; i>=1; i--)
5202 v440 = {car: arguments[i], cdr: v440};
5206 (f64(f121, v440) !== v2 ? v2 : (function(){
5207 return (function(){ throw ({type: 'block', id: 152, value: f112(f39(f33(l161), v440, f33(l162)), v441), message: 'Return from unknown block TAGBODY.'})})();
5211 return tmp === v2? v2: tmp.car;
5212 })()) !== v2 ? v2 : (function(){
5213 return v440 = ({car: f5("START"), cdr: v440});
5215 return (function(v442){
5216 return (function(v443,v444){
5218 return v444 = f30(f93(v445));
5219 })(f100(f29(v440), v443, l163));
5220 return f72("var tagbody_", v442, " = ", v444, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v446){
5221 return f68("switch(tagbody_", v442, "){", v176, "case ", v444, ":", v176, (function(){
5224 return (function(v447,v448){
5229 return tmp === v2? v2: tmp.car;
5231 v446 = f68(v446, (function(){
5232 return (f17(f121(v448)) !== v2 ? f71(f112(v448, v443), ";", v176) : (function(v449){
5233 return f68("case ", f30(f93(v449)), ":", v176);
5234 })(f100(v448, v443, l164)));
5238 return tmp === v2? v2: tmp.cdr;
5245 return tmp === v2? v2: tmp.cdr;
5250 if (cf.type == 'block' && cf.id == 153)
5255 })(), "default:", v176, " break tbloop;", v176, "}", v176);
5256 })("")), "}", v176, "catch (jump) {", v176, " if (jump.type == 'tagbody' && jump.id == ", v442, ")", v176, " tagbody_", v442, " = jump.label;", v176, " else", v176, " throw(jump);", v176, "}", v176), "}", v176, "return ", f112(v2), ";", v176);
5257 })(f122(v441, v442, v440),v2);
5262 if (cf.type == 'block' && cf.id == 152)
5269 var l166 = f3("GOTAG");
5270 var l165 = f3("GO");
5271 v334 = ({car: f33(l165, (function (v450,v451){
5272 if (arguments.length < 2) throw 'too few arguments';
5273 if (arguments.length > 2) throw 'too many arguments';
5277 return (function(v452,v453){
5278 return (v452 !== v2 ? f72(f68("throw ({", "type: 'tagbody', ", "id: ", f29(f93(v452)), ", ", "label: ", f30(f93(v452)), ", ", "message: 'Attempt to GO to non-existing tag ", v453, "'", "})")) : (function (){ throw f68("Unknown tag `", v453, "'."); })());
5279 })(f100(v451, v450, l166),(((function(){
5281 return (typeof tmp == 'object' && 'name' in tmp);
5282 })()?v3: v2) !== v2 ? (function(){
5284 })() : (f51(v451) !== v2 ? (function(){
5290 if (cf.type == 'block' && cf.id == 154)
5297 var l167 = f3("UNWIND-PROTECT");
5298 v334 = ({car: f33(l167, (function (v455,v456){
5299 if (arguments.length < 2) throw 'too few arguments';
5301 for (var i = arguments.length-1; i>=2; i--)
5302 v454 = {car: arguments[i], cdr: v454};
5306 return f68("(function(){", v176, f71("var ret = ", f112(v2), ";", v176, "try {", v176, f71("ret = ", f112(v456, v455), ";", v176), "} finally {", v176, f71(f111(v454, v455)), "}", v176, "return ret;", v176), "})()");
5310 if (cf.type == 'block' && cf.id == 155)
5317 var l176 = f3("BACKQUOTE-EXPAND-1");
5318 var l175 = f3("LIST");
5319 var l174 = f3("UNQUOTE-SPLICING");
5320 var l173 = f3("LIST");
5321 var l172 = f3("UNQUOTE");
5322 var l171 = f3("APPEND");
5323 var l170 = f3("BACKQUOTE");
5324 var l169 = f3("UNQUOTE");
5325 var l168 = f3("QUOTE");
5329 return f123 = (function(v457){
5330 ((v457)["fname"] = "BACKQUOTE-EXPAND-1");
5332 })((function (v458){
5333 if (arguments.length < 1) throw 'too few arguments';
5334 if (arguments.length > 1) throw 'too many arguments';
5338 return (((function(){
5340 return (typeof tmp == 'object' && 'name' in tmp);
5341 })()?v3: v2) !== v2 ? (function(){
5342 return f33(l168, v458);
5343 })() : (f34(v458) !== v2 ? (function(){
5345 })() : ((((function(){
5347 return tmp === v2? v2: tmp.car;
5348 })() === l169)?v3: v2) !== v2 ? (function(){
5351 return tmp === v2? v2: tmp.car;
5353 })() : ((((function(){
5355 return tmp === v2? v2: tmp.car;
5356 })() === l170)?v3: v2) !== v2 ? (function(){
5357 return f123(f123(f23(v458)));
5359 return ({car: l171, cdr: f45((function (v459){
5360 if (arguments.length < 1) throw 'too few arguments';
5361 if (arguments.length > 1) throw 'too many arguments';
5362 return ((f36(v459) !== v2 ? (((function(){
5364 return tmp === v2? v2: tmp.car;
5365 })() === l172)?v3: v2) : v2) !== v2 ? (function(){
5366 return f33(l173, f23(v459));
5367 })() : ((f36(v459) !== v2 ? (((function(){
5369 return tmp === v2? v2: tmp.car;
5370 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
5373 return f33(l175, f123(v459));
5380 if (cf.type == 'block' && cf.id == 156)
5390 var l178 = f3("BACKQUOTE-EXPAND");
5391 var l177 = f3("BACKQUOTE");
5395 return f124 = (function(v460){
5396 ((v460)["fname"] = "BACKQUOTE-EXPAND");
5398 })((function (v461){
5399 if (arguments.length < 1) throw 'too few arguments';
5400 if (arguments.length > 1) throw 'too many arguments';
5404 return ((f36(v461) !== v2 ? (((function(){
5406 return tmp === v2? v2: tmp.car;
5407 })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v461)) : v461);
5411 if (cf.type == 'block' && cf.id == 157)
5421 var l179 = f3("BACKQUOTE");
5422 v334 = ({car: f33(l179, (function (v462,v463){
5423 if (arguments.length < 2) throw 'too few arguments';
5424 if (arguments.length > 2) throw 'too many arguments';
5428 return f112(f123(v463), v462);
5432 if (cf.type == 'block' && cf.id == 158)
5439 var l180 = f3("COMPILE-BOOL");
5443 return f125 = (function(v464){
5444 ((v464)["fname"] = "COMPILE-BOOL");
5446 })((function (v465){
5447 if (arguments.length < 1) throw 'too few arguments';
5448 if (arguments.length > 1) throw 'too many arguments';
5452 return f68("(", v465, "?", f112(v3), ": ", f112(v2), ")");
5456 if (cf.type == 'block' && cf.id == 159)
5466 var l181 = f3("NUM-OP-NUM");
5470 return f126 = (function(v466){
5471 ((v466)["fname"] = "NUM-OP-NUM");
5473 })((function (v467,v468,v469){
5474 if (arguments.length < 3) throw 'too few arguments';
5475 if (arguments.length > 3) throw 'too many arguments';
5479 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v467, ";", v176), f68("var ", "y", " = ", v469, ";", 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(){
5480 return f68("x", v468, "y");
5481 })(), ";", v176)), "})()");
5485 if (cf.type == 'block' && cf.id == 160)
5496 v334 = ({car: f33(l182, (function (v470,v471,v472){
5497 if (arguments.length < 3) throw 'too few arguments';
5498 if (arguments.length > 3) throw 'too many arguments';
5502 return (function(v473,v474){
5503 return f126(v473, "+", v474);
5504 })(f112(v471, v470),f112(v472, v470));
5508 if (cf.type == 'block' && cf.id == 161)
5516 v334 = ({car: f33(l183, (function (v475,v476,v477){
5517 if (arguments.length < 3) throw 'too few arguments';
5518 if (arguments.length > 3) throw 'too many arguments';
5522 return (function(v478,v479){
5523 return f126(v478, "-", v479);
5524 })(f112(v476, v475),f112(v477, v475));
5528 if (cf.type == 'block' && cf.id == 162)
5536 v334 = ({car: f33(l184, (function (v480,v481,v482){
5537 if (arguments.length < 3) throw 'too few arguments';
5538 if (arguments.length > 3) throw 'too many arguments';
5542 return (function(v483,v484){
5543 return f126(v483, "*", v484);
5544 })(f112(v481, v480),f112(v482, v480));
5548 if (cf.type == 'block' && cf.id == 163)
5556 v334 = ({car: f33(l185, (function (v485,v486,v487){
5557 if (arguments.length < 3) throw 'too few arguments';
5558 if (arguments.length > 3) throw 'too many arguments';
5562 return (function(v488,v489){
5563 return f126(v488, "/", v489);
5564 })(f112(v486, v485),f112(v487, v485));
5568 if (cf.type == 'block' && cf.id == 164)
5575 var l186 = f3("MOD");
5576 v334 = ({car: f33(l186, (function (v490,v491,v492){
5577 if (arguments.length < 3) throw 'too few arguments';
5578 if (arguments.length > 3) throw 'too many arguments';
5582 return (function(v493,v494){
5583 return f126(v493, "%", v494);
5584 })(f112(v491, v490),f112(v492, v490));
5588 if (cf.type == 'block' && cf.id == 165)
5596 v334 = ({car: f33(l187, (function (v495,v496,v497){
5597 if (arguments.length < 3) throw 'too few arguments';
5598 if (arguments.length > 3) throw 'too many arguments';
5602 return (function(v498,v499){
5603 return f125(f126(v498, "<", v499));
5604 })(f112(v496, v495),f112(v497, v495));
5608 if (cf.type == 'block' && cf.id == 166)
5616 v334 = ({car: f33(l188, (function (v500,v501,v502){
5617 if (arguments.length < 3) throw 'too few arguments';
5618 if (arguments.length > 3) throw 'too many arguments';
5622 return (function(v503,v504){
5623 return f125(f126(v503, ">", v504));
5624 })(f112(v501, v500),f112(v502, v500));
5628 if (cf.type == 'block' && cf.id == 167)
5636 v334 = ({car: f33(l189, (function (v505,v506,v507){
5637 if (arguments.length < 3) throw 'too few arguments';
5638 if (arguments.length > 3) throw 'too many arguments';
5642 return (function(v508,v509){
5643 return f125(f126(v508, "==", v509));
5644 })(f112(v506, v505),f112(v507, v505));
5648 if (cf.type == 'block' && cf.id == 168)
5655 var l190 = f3("<=");
5656 v334 = ({car: f33(l190, (function (v510,v511,v512){
5657 if (arguments.length < 3) throw 'too few arguments';
5658 if (arguments.length > 3) throw 'too many arguments';
5662 return (function(v513,v514){
5663 return f125(f126(v513, "<=", v514));
5664 })(f112(v511, v510),f112(v512, v510));
5668 if (cf.type == 'block' && cf.id == 169)
5675 var l191 = f3(">=");
5676 v334 = ({car: f33(l191, (function (v515,v516,v517){
5677 if (arguments.length < 3) throw 'too few arguments';
5678 if (arguments.length > 3) throw 'too many arguments';
5682 return (function(v518,v519){
5683 return f125(f126(v518, ">=", v519));
5684 })(f112(v516, v515),f112(v517, v515));
5688 if (cf.type == 'block' && cf.id == 170)
5695 var l192 = f3("NUMBERP");
5696 v334 = ({car: f33(l192, (function (v520,v521){
5697 if (arguments.length < 2) throw 'too few arguments';
5698 if (arguments.length > 2) throw 'too many arguments';
5702 return (function(v522){
5703 return f125(f68("(typeof (", v522, ") == \"number\")"));
5704 })(f112(v521, v520));
5708 if (cf.type == 'block' && cf.id == 171)
5715 var l193 = f3("FLOOR");
5716 v334 = ({car: f33(l193, (function (v523,v524){
5717 if (arguments.length < 2) throw 'too few arguments';
5718 if (arguments.length > 2) throw 'too many arguments';
5722 return (function(v525){
5723 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v525, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5724 return "Math.floor(x)";
5725 })(), ";", v176)), "})()");
5726 })(f112(v524, v523));
5730 if (cf.type == 'block' && cf.id == 172)
5737 var l194 = f3("CONS");
5738 v334 = ({car: f33(l194, (function (v526,v527,v528){
5739 if (arguments.length < 3) throw 'too few arguments';
5740 if (arguments.length > 3) throw 'too many arguments';
5744 return (function(v529,v530){
5745 return f68("({car: ", v529, ", cdr: ", v530, "})");
5746 })(f112(v527, v526),f112(v528, v526));
5750 if (cf.type == 'block' && cf.id == 173)
5757 var l195 = f3("CONSP");
5758 v334 = ({car: f33(l195, (function (v531,v532){
5759 if (arguments.length < 2) throw 'too few arguments';
5760 if (arguments.length > 2) throw 'too many arguments';
5764 return (function(v533){
5765 return f125(f68("(function(){", v176, f71("var tmp = ", v533, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()"));
5766 })(f112(v532, v531));
5770 if (cf.type == 'block' && cf.id == 174)
5777 var l196 = f3("CAR");
5778 v334 = ({car: f33(l196, (function (v534,v535){
5779 if (arguments.length < 2) throw 'too few arguments';
5780 if (arguments.length > 2) throw 'too many arguments';
5784 return (function(v536){
5785 return f68("(function(){", v176, f71("var tmp = ", v536, ";", v176, "return tmp === ", f112(v2), "? ", f112(v2), ": tmp.car;", v176), "})()");
5786 })(f112(v535, v534));
5790 if (cf.type == 'block' && cf.id == 175)
5797 var l197 = f3("CDR");
5798 v334 = ({car: f33(l197, (function (v537,v538){
5799 if (arguments.length < 2) throw 'too few arguments';
5800 if (arguments.length > 2) throw 'too many arguments';
5804 return (function(v539){
5805 return f68("(function(){", v176, f71("var tmp = ", v539, ";", v176, "return tmp === ", f112(v2), "? ", f112(v2), ": tmp.cdr;", v176), "})()");
5806 })(f112(v538, v537));
5810 if (cf.type == 'block' && cf.id == 176)
5817 var l198 = f3("SETCAR");
5818 v334 = ({car: f33(l198, (function (v540,v541,v542){
5819 if (arguments.length < 3) throw 'too few arguments';
5820 if (arguments.length > 3) throw 'too many arguments';
5824 return (function(v543,v544){
5825 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v543, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5826 return f68("(x.car = ", v544, ")");
5827 })(), ";", v176)), "})()");
5828 })(f112(v541, v540),f112(v542, v540));
5832 if (cf.type == 'block' && cf.id == 177)
5839 var l199 = f3("SETCDR");
5840 v334 = ({car: f33(l199, (function (v545,v546,v547){
5841 if (arguments.length < 3) throw 'too few arguments';
5842 if (arguments.length > 3) throw 'too many arguments';
5846 return (function(v548,v549){
5847 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v548, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5848 return f68("(x.cdr = ", v549, ")");
5849 })(), ";", v176)), "})()");
5850 })(f112(v546, v545),f112(v547, v545));
5854 if (cf.type == 'block' && cf.id == 178)
5861 var l200 = f3("SYMBOLP");
5862 v334 = ({car: f33(l200, (function (v550,v551){
5863 if (arguments.length < 2) throw 'too few arguments';
5864 if (arguments.length > 2) throw 'too many arguments';
5868 return (function(v552){
5869 return f125(f68("(function(){", v176, f71("var tmp = ", v552, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()"));
5870 })(f112(v551, v550));
5874 if (cf.type == 'block' && cf.id == 179)
5881 var l201 = f3("MAKE-SYMBOL");
5882 v334 = ({car: f33(l201, (function (v553,v554){
5883 if (arguments.length < 2) throw 'too few arguments';
5884 if (arguments.length > 2) throw 'too many arguments';
5888 return (function(v555){
5889 return f68("(function(){", v176, f71(f68("var ", "name", " = ", v555, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5890 return "({name: name})";
5891 })(), ";", v176)), "})()");
5892 })(f112(v554, v553));
5896 if (cf.type == 'block' && cf.id == 180)
5903 var l202 = f3("SYMBOL-NAME");
5904 v334 = ({car: f33(l202, (function (v556,v557){
5905 if (arguments.length < 2) throw 'too few arguments';
5906 if (arguments.length > 2) throw 'too many arguments';
5910 return (function(v558){
5911 return f68("(", v558, ").name");
5912 })(f112(v557, v556));
5916 if (cf.type == 'block' && cf.id == 181)
5923 var l203 = f3("EQ");
5924 v334 = ({car: f33(l203, (function (v559,v560,v561){
5925 if (arguments.length < 3) throw 'too few arguments';
5926 if (arguments.length > 3) throw 'too many arguments';
5930 return (function(v562,v563){
5931 return f125(f68("(", v562, " === ", v563, ")"));
5932 })(f112(v560, v559),f112(v561, v559));
5936 if (cf.type == 'block' && cf.id == 182)
5943 var l204 = f3("EQUAL");
5944 v334 = ({car: f33(l204, (function (v564,v565,v566){
5945 if (arguments.length < 3) throw 'too few arguments';
5946 if (arguments.length > 3) throw 'too many arguments';
5950 return (function(v567,v568){
5951 return f125(f68("(", v567, " == ", v568, ")"));
5952 })(f112(v565, v564),f112(v566, v564));
5956 if (cf.type == 'block' && cf.id == 183)
5963 var l205 = f3("STRING");
5964 v334 = ({car: f33(l205, (function (v569,v570){
5965 if (arguments.length < 2) throw 'too few arguments';
5966 if (arguments.length > 2) throw 'too many arguments';
5970 return (function(v571){
5971 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v571, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5972 return "String.fromCharCode(x)";
5973 })(), ";", v176)), "})()");
5974 })(f112(v570, v569));
5978 if (cf.type == 'block' && cf.id == 184)
5985 var l206 = f3("STRINGP");
5986 v334 = ({car: f33(l206, (function (v572,v573){
5987 if (arguments.length < 2) throw 'too few arguments';
5988 if (arguments.length > 2) throw 'too many arguments';
5992 return (function(v574){
5993 return f125(f68("(typeof(", v574, ") == \"string\")"));
5994 })(f112(v573, v572));
5998 if (cf.type == 'block' && cf.id == 185)
6005 var l207 = f3("STRING-UPCASE");
6006 v334 = ({car: f33(l207, (function (v575,v576){
6007 if (arguments.length < 2) throw 'too few arguments';
6008 if (arguments.length > 2) throw 'too many arguments';
6012 return (function(v577){
6013 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v577, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6014 return "x.toUpperCase()";
6015 })(), ";", v176)), "})()");
6016 })(f112(v576, v575));
6020 if (cf.type == 'block' && cf.id == 186)
6027 var l208 = f3("STRING-LENGTH");
6028 v334 = ({car: f33(l208, (function (v578,v579){
6029 if (arguments.length < 2) throw 'too few arguments';
6030 if (arguments.length > 2) throw 'too many arguments';
6034 return (function(v580){
6035 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v580, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6037 })(), ";", v176)), "})()");
6038 })(f112(v579, v578));
6042 if (cf.type == 'block' && cf.id == 187)
6049 var l209 = f3("SLICE");
6050 v334 = ({car: f33(l209, (function (v581,v582,v583,v584){
6051 if (arguments.length < 3) throw 'too few arguments';
6052 if (arguments.length > 4) throw 'too many arguments';
6053 switch(arguments.length){
6061 return f68("(function(){", v176, f71("var str = ", f112(v582, v581), ";", v176, "var a = ", f112(v583, v581), ";", v176, "var b;", v176, (v584 !== v2 ? f68("b = ", f112(v584, v581), ";", v176) : ""), "return str.slice(a,b);", v176), "})()");
6065 if (cf.type == 'block' && cf.id == 188)
6072 var l210 = f3("CHAR");
6073 v334 = ({car: f33(l210, (function (v585,v586,v587){
6074 if (arguments.length < 3) throw 'too few arguments';
6075 if (arguments.length > 3) throw 'too many arguments';
6079 return (function(v588,v589){
6080 return f68("(function(){", v176, f71(f68("var ", "string", " = ", v588, ";", v176), f68("var ", "index", " = ", v589, ";", 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(){
6081 return "string.charCodeAt(index)";
6082 })(), ";", v176)), "})()");
6083 })(f112(v586, v585),f112(v587, v585));
6087 if (cf.type == 'block' && cf.id == 189)
6094 var l211 = f3("CONCAT-TWO");
6095 v334 = ({car: f33(l211, (function (v590,v591,v592){
6096 if (arguments.length < 3) throw 'too few arguments';
6097 if (arguments.length > 3) throw 'too many arguments';
6101 return (function(v593,v594){
6102 return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v593, ";", v176), f68("var ", "string2", " = ", v594, ";", 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(){
6103 return "string1.concat(string2)";
6104 })(), ";", v176)), "})()");
6105 })(f112(v591, v590),f112(v592, v590));
6109 if (cf.type == 'block' && cf.id == 190)
6116 var l212 = f3("FUNCALL");
6117 v334 = ({car: f33(l212, (function (v596,v597){
6118 if (arguments.length < 2) throw 'too few arguments';
6120 for (var i = arguments.length-1; i>=2; i--)
6121 v595 = {car: arguments[i], cdr: v595};
6125 return f68("(", f112(v597, v596), ")(", f69(f45((function (v598){
6126 if (arguments.length < 1) throw 'too few arguments';
6127 if (arguments.length > 1) throw 'too many arguments';
6128 return f112(v598, v596);
6129 }), v595), ", "), ")");
6133 if (cf.type == 'block' && cf.id == 191)
6140 var l213 = f3("APPLY");
6141 v334 = ({car: f33(l213, (function (v600,v601){
6142 if (arguments.length < 2) throw 'too few arguments';
6144 for (var i = arguments.length-1; i>=2; i--)
6145 v599 = {car: arguments[i], cdr: v599};
6149 return (f1(v599) !== v2 ? f68("(", f112(v601, v600), ")()") : (function(v602,v603){
6150 return f68("(function(){", v176, f71("var f = ", f112(v601, v600), ";", v176, "var args = [", f69(f45((function (v604){
6151 if (arguments.length < 1) throw 'too few arguments';
6152 if (arguments.length > 1) throw 'too many arguments';
6153 return f112(v604, v600);
6154 }), v602), ", "), "];", v176, "var tail = (", f112(v603, v600), ");", v176, f71("while (tail != ", f112(v2), "){", v176, " args.push(tail.car);", v176, " tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()"));
6155 })(f56(v599),(function(){
6156 var tmp = f55(v599);
6157 return tmp === v2? v2: tmp.car;
6162 if (cf.type == 'block' && cf.id == 192)
6169 var l214 = f3("JS-EVAL");
6170 v334 = ({car: f33(l214, (function (v605,v606){
6171 if (arguments.length < 2) throw 'too few arguments';
6172 if (arguments.length > 2) throw 'too many arguments';
6176 return (function(v607){
6177 return f68("(function(){", v176, f71(f68("var ", "string", " = ", v607, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6178 return "eval.apply(window, [string])";
6179 })(), ";", v176)), "})()");
6180 })(f112(v606, v605));
6184 if (cf.type == 'block' && cf.id == 193)
6191 var l215 = f3("ERROR");
6192 v334 = ({car: f33(l215, (function (v608,v609){
6193 if (arguments.length < 2) throw 'too few arguments';
6194 if (arguments.length > 2) throw 'too many arguments';
6198 return (function(v610){
6199 return f68("(function (){ throw ", v610, "; })()");
6200 })(f112(v609, v608));
6204 if (cf.type == 'block' && cf.id == 194)
6211 var l216 = f3("NEW");
6212 v334 = ({car: f33(l216, (function (v611){
6213 if (arguments.length < 1) throw 'too few arguments';
6214 if (arguments.length > 1) throw 'too many arguments';
6224 if (cf.type == 'block' && cf.id == 195)
6231 var l217 = f3("GET");
6232 v334 = ({car: f33(l217, (function (v612,v613,v614){
6233 if (arguments.length < 3) throw 'too few arguments';
6234 if (arguments.length > 3) throw 'too many arguments';
6238 return (function(v615,v616){
6239 return f68("(function(){", v176, f71("var tmp = ", "(", v615, ")[", v616, "];", v176, "return tmp == undefined? ", f112(v2), ": tmp ;", v176), "})()");
6240 })(f112(v613, v612),f112(v614, v612));
6244 if (cf.type == 'block' && cf.id == 196)
6251 var l218 = f3("SET");
6252 v334 = ({car: f33(l218, (function (v617,v618,v619,v620){
6253 if (arguments.length < 4) throw 'too few arguments';
6254 if (arguments.length > 4) throw 'too many arguments';
6258 return (function(v621,v622,v623){
6259 return f68("((", v621, ")[", v622, "] = ", v623, ")");
6260 })(f112(v618, v617),f112(v619, v617),f112(v620, v617));
6264 if (cf.type == 'block' && cf.id == 197)
6271 var l219 = f3("IN");
6272 v334 = ({car: f33(l219, (function (v624,v625,v626){
6273 if (arguments.length < 3) throw 'too few arguments';
6274 if (arguments.length > 3) throw 'too many arguments';
6278 return (function(v627,v628){
6279 return f125(f68("((", v627, ") in (", v628, "))"));
6280 })(f112(v625, v624),f112(v626, v624));
6284 if (cf.type == 'block' && cf.id == 198)
6291 var l220 = f3("FUNCTIONP");
6292 v334 = ({car: f33(l220, (function (v629,v630){
6293 if (arguments.length < 2) throw 'too few arguments';
6294 if (arguments.length > 2) throw 'too many arguments';
6298 return (function(v631){
6299 return f125(f68("(typeof ", v631, " == 'function')"));
6300 })(f112(v630, v629));
6304 if (cf.type == 'block' && cf.id == 199)
6311 var l221 = f3("WRITE-STRING");
6312 v334 = ({car: f33(l221, (function (v632,v633){
6313 if (arguments.length < 2) throw 'too few arguments';
6314 if (arguments.length > 2) throw 'too many arguments';
6318 return (function(v634){
6319 return f68("(function(){", v176, f71(f68("var ", "x", " = ", v634, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6320 return "lisp.write(x)";
6321 })(), ";", v176)), "})()");
6322 })(f112(v633, v632));
6326 if (cf.type == 'block' && cf.id == 200)
6333 var l223 = f3("MACROP");
6334 var l222 = f3("MACRO");
6338 return f127 = (function(v635){
6339 ((v635)["fname"] = "MACROP");
6341 })((function (v636){
6342 if (arguments.length < 1) throw 'too few arguments';
6343 if (arguments.length > 1) throw 'too many arguments';
6347 return (((function(){
6349 return (typeof tmp == 'object' && 'name' in tmp);
6350 })()?v3: v2) !== v2 ? ((f92(f106(v636, v289)) === l222)?v3: v2) : v2);
6354 if (cf.type == 'block' && cf.id == 201)
6364 var l225 = f3("LS-MACROEXPAND-1");
6365 var l224 = f3("MACRO");
6369 return f128 = (function(v637){
6370 ((v637)["fname"] = "LS-MACROEXPAND-1");
6372 })((function (v638,v639){
6373 if (arguments.length < 2) throw 'too few arguments';
6374 if (arguments.length > 2) throw 'too many arguments';
6378 return (f127((function(){
6380 return tmp === v2? v2: tmp.car;
6381 })()) !== v2 ? (function(v640){
6382 return (((f92(v640) === l224)?v3: v2) !== v2 ? (function(){
6383 var f = f120(f93(v640));
6385 var tail = ((function(){
6387 return tmp === v2? v2: tmp.cdr;
6390 args.push(tail.car);
6393 return f.apply(this, args);
6395 })(f106((function(){
6397 return tmp === v2? v2: tmp.car;
6398 })(), v289)) : v638);
6402 if (cf.type == 'block' && cf.id == 202)
6412 var l227 = f3("COMPILE-FUNCALL");
6413 var l226 = f3("LAMBDA");
6417 return f129 = (function(v641){
6418 ((v641)["fname"] = "COMPILE-FUNCALL");
6420 })((function (v642,v643,v644){
6421 if (arguments.length < 3) throw 'too few arguments';
6422 if (arguments.length > 3) throw 'too many arguments';
6426 return (((function(){
6428 return (typeof tmp == 'object' && 'name' in tmp);
6429 })()?v3: v2) !== v2 ? (function(){
6430 return f68(f107(v642, v644), "(", f69(f45((function (v645){
6431 if (arguments.length < 1) throw 'too few arguments';
6432 if (arguments.length > 1) throw 'too many arguments';
6433 return f112(v645, v644);
6434 }), v643), ", "), ")");
6435 })() : ((f36(v642) !== v2 ? (((function(){
6437 return tmp === v2? v2: tmp.car;
6438 })() === l226)?v3: v2) : v2) !== v2 ? (function(){
6439 return f68("(", f112(v642, v644), ")(", f69(f45((function (v646){
6440 if (arguments.length < 1) throw 'too few arguments';
6441 if (arguments.length > 1) throw 'too many arguments';
6442 return f112(v646, v644);
6443 }), v643), ", "), ")");
6445 return (function (){ throw f68("Invalid function designator ", (v642).name); })();
6450 if (cf.type == 'block' && cf.id == 203)
6460 var l228 = f3("LS-COMPILE");
6464 return f112 = (function(v647){
6465 ((v647)["fname"] = "LS-COMPILE");
6467 })((function (v648,v649){
6468 if (arguments.length < 1) throw 'too few arguments';
6469 if (arguments.length > 2) throw 'too many arguments';
6470 switch(arguments.length){
6478 return (((function(){
6480 return (typeof tmp == 'object' && 'name' in tmp);
6481 })()?v3: v2) !== v2 ? (function(){
6482 return f104(v648, v649);
6483 })() : (f51(v648) !== v2 ? (function(){
6485 })() : (((typeof(v648) == "string")?v3: v2) !== v2 ? (function(){
6486 return f68("\"", f74(v648), "\"");
6487 })() : (f36(v648) !== v2 ? (function(){
6488 return (f66((function(){
6490 return tmp === v2? v2: tmp.car;
6491 })(), v334) !== v2 ? (function(v650){
6495 var tail = ((function(){
6497 return tmp === v2? v2: tmp.cdr;
6500 args.push(tail.car);
6503 return f.apply(this, args);
6505 })(f30(f66((function(){
6507 return tmp === v2? v2: tmp.car;
6508 })(), v334))) : (f127((function(){
6510 return tmp === v2? v2: tmp.car;
6511 })()) !== v2 ? f112(f128(v648, v649), v649) : f129((function(){
6513 return tmp === v2? v2: tmp.car;
6516 return tmp === v2? v2: tmp.cdr;
6522 if (cf.type == 'block' && cf.id == 204)
6532 var l229 = f3("LS-COMPILE-TOPLEVEL");
6536 return f130 = (function(v651){
6537 ((v651)["fname"] = "LS-COMPILE-TOPLEVEL");
6539 })((function (v652){
6540 if (arguments.length < 1) throw 'too few arguments';
6541 if (arguments.length > 1) throw 'too many arguments';
6546 return (function(v653){
6547 return (function(v654){
6550 })(f68(f69(f45((function (v655){
6551 if (arguments.length < 1) throw 'too few arguments';
6552 if (arguments.length > 1) throw 'too many arguments';
6553 return f68(v655, ";", v176);
6559 if (cf.type == 'block' && cf.id == 205)
6569 var l240 = f3("LS-COMPILE-TOPLEVEL");
6570 var l239 = f3("EVAL");
6571 var l238 = f3("PRIN1-TO-STRING");
6572 var l237 = f3("LS-READ-FROM-STRING");
6578 var l231 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v429", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v428", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v412", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v388", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v345", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v334", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v324", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v313", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v293", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v289", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v253", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v246", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v176", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f130", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", 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"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}};
6579 var l230 = f3("EVAL");
6592 return f120 = (function(v656){
6593 ((v656)["fname"] = "EVAL");
6595 })((function (v657){
6596 if (arguments.length < 1) throw 'too few arguments';
6597 if (arguments.length > 1) throw 'too many arguments';
6601 return (function(v658){
6604 if (typeof string != 'string')
6605 throw 'The value ' + string + ' is not a type string.';
6606 return eval.apply(window, [string]);
6612 return (function(v660,v661){
6617 return tmp === v2? v2: tmp.car;
6622 return tmp === v2? v2: tmp.cdr;
6631 if (cf.type == 'block' && cf.id == 207)
6646 if (cf.type == 'block' && cf.id == 206)
6657 var string = f68("var lisp = {};", "lisp.read = ", f107(l237, v2), ";", v176, "lisp.print = ", f107(l238, v2), ";", v176, "lisp.eval = ", f107(l239, v2), ";", v176, "lisp.compile = ", f107(l240, 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);
6658 if (typeof string != 'string')
6659 throw 'The value ' + string + ' is not a type string.';
6660 return eval.apply(window, [string]);