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 l33 = f3("STRING=");
1029 var l32 = f3("ASSOC");
1031 var l31 = f3("EVERY");
1033 var l30 = f3("PARSE-INTEGER");
1035 var l29 = f3("SUBSEQ");
1037 var l28 = f3("DIGIT-CHAR-P");
1039 var l27 = f3("REMOVE-IF-NOT");
1041 var l26 = f3("REMOVE-IF");
1043 var l25 = f3("REMOVE");
1045 var l24 = f3("MEMBER");
1047 var l23 = f3("BUTLAST");
1049 var l22 = f3("LAST");
1051 var l21 = f3("NTH");
1053 var l20 = f3("LISTP");
1055 var l19 = f3("MINUSP");
1057 var l18 = f3("PLUSP");
1059 var l17 = f3("INTEGERP");
1061 var l16 = f3("CHAR=");
1063 var l15 = f3("CHAR-CODE");
1065 var l14 = f3("CODE-CHAR");
1067 var l13 = f3("COPY-LIST");
1069 var l12 = f3("IDENTITY");
1071 var l11 = f3("MAPCAR");
1072 var l10 = f3("NIL");
1074 var l9 = f3("CONCAT-TWO");
1076 var l8 = f3("LENGTH");
1078 var l7 = f3("LIST-LENGTH");
1080 var l6 = f3("REVERSE");
1083 var l4 = f3("REVERSE-AUX");
1085 var l3 = f3("APPEND");
1088 var l1 = f3("APPEND-TWO");
1093 return f38 = (function(v85){
1094 ((v85)["fname"] = "APPEND-TWO");
1096 })((function (v86,v87){
1097 if (arguments.length < 2) throw 'too few arguments';
1098 if (arguments.length > 2) throw 'too many arguments';
1102 return (f1(v86) !== v2 ? v87 : ({car: (function(){
1104 return tmp === v2? v2: tmp.car;
1105 })(), cdr: f39((function(){
1107 return tmp === v2? v2: tmp.cdr;
1112 if (cf.type == 'block' && cf.id == 36)
1124 return f39 = (function(v88){
1125 ((v88)["fname"] = "APPEND");
1129 for (var i = arguments.length-1; i>=0; i--)
1130 v89 = {car: arguments[i], cdr: v89};
1134 return f37(f38, v89, l2);
1138 if (cf.type == 'block' && cf.id == 37)
1150 return f40 = (function(v90){
1151 ((v90)["fname"] = "REVERSE-AUX");
1153 })((function (v91,v92){
1154 if (arguments.length < 2) throw 'too few arguments';
1155 if (arguments.length > 2) throw 'too many arguments';
1159 return (f1(v91) !== v2 ? v92 : f40((function(){
1161 return tmp === v2? v2: tmp.cdr;
1162 })(), ({car: (function(){
1164 return tmp === v2? v2: tmp.car;
1169 if (cf.type == 'block' && cf.id == 38)
1181 return f41 = (function(v93){
1182 ((v93)["fname"] = "REVERSE");
1185 if (arguments.length < 1) throw 'too few arguments';
1186 if (arguments.length > 1) throw 'too many arguments';
1190 return f40(v94, l5);
1194 if (cf.type == 'block' && cf.id == 39)
1206 return f42 = (function(v95){
1207 ((v95)["fname"] = "LIST-LENGTH");
1210 if (arguments.length < 1) throw 'too few arguments';
1211 if (arguments.length > 1) throw 'too many arguments';
1215 return (function(v97){
1220 while(f17(f1(v96)) !== v2){
1224 if (typeof x != 'number')
1225 throw 'The value ' + x + ' is not a type number.';
1226 if (typeof y != 'number')
1227 throw 'The value ' + y + ' is not a type number.';
1232 return tmp === v2? v2: tmp.cdr;
1239 if (cf.type == 'block' && cf.id == 41)
1250 if (cf.type == 'block' && cf.id == 40)
1262 return f43 = (function(v98){
1263 ((v98)["fname"] = "LENGTH");
1266 if (arguments.length < 1) throw 'too few arguments';
1267 if (arguments.length > 1) throw 'too many arguments';
1271 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1273 if (typeof x != 'string')
1274 throw 'The value ' + x + ' is not a type string.';
1280 if (cf.type == 'block' && cf.id == 42)
1292 return f44 = (function(v100){
1293 ((v100)["fname"] = "CONCAT-TWO");
1295 })((function (v101,v102){
1296 if (arguments.length < 2) throw 'too few arguments';
1297 if (arguments.length > 2) throw 'too many arguments';
1304 if (typeof string1 != 'string')
1305 throw 'The value ' + string1 + ' is not a type string.';
1306 if (typeof string2 != 'string')
1307 throw 'The value ' + string2 + ' is not a type string.';
1308 return string1.concat(string2);
1313 if (cf.type == 'block' && cf.id == 43)
1325 return f45 = (function(v103){
1326 ((v103)["fname"] = "MAPCAR");
1328 })((function (v104,v105){
1329 if (arguments.length < 2) throw 'too few arguments';
1330 if (arguments.length > 2) throw 'too many arguments';
1334 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1336 return tmp === v2? v2: tmp.car;
1337 })()), cdr: f45(v104, (function(){
1339 return tmp === v2? v2: tmp.cdr;
1344 if (cf.type == 'block' && cf.id == 44)
1356 return f46 = (function(v106){
1357 ((v106)["fname"] = "IDENTITY");
1359 })((function (v107){
1360 if (arguments.length < 1) throw 'too few arguments';
1361 if (arguments.length > 1) throw 'too many arguments';
1369 if (cf.type == 'block' && cf.id == 45)
1381 return f47 = (function(v108){
1382 ((v108)["fname"] = "COPY-LIST");
1384 })((function (v109){
1385 if (arguments.length < 1) throw 'too few arguments';
1386 if (arguments.length > 1) throw 'too many arguments';
1390 return f45(f46, v109);
1394 if (cf.type == 'block' && cf.id == 46)
1406 return f48 = (function(v110){
1407 ((v110)["fname"] = "CODE-CHAR");
1409 })((function (v111){
1410 if (arguments.length < 1) throw 'too few arguments';
1411 if (arguments.length > 1) throw 'too many arguments';
1419 if (cf.type == 'block' && cf.id == 47)
1431 return f49 = (function(v112){
1432 ((v112)["fname"] = "CHAR-CODE");
1434 })((function (v113){
1435 if (arguments.length < 1) throw 'too few arguments';
1436 if (arguments.length > 1) throw 'too many arguments';
1444 if (cf.type == 'block' && cf.id == 48)
1456 return f50 = (function(v114){
1457 ((v114)["fname"] = "CHAR=");
1459 })((function (v115,v116){
1460 if (arguments.length < 2) throw 'too few arguments';
1461 if (arguments.length > 2) throw 'too many arguments';
1465 return ((function(){
1468 if (typeof x != 'number')
1469 throw 'The value ' + x + ' is not a type number.';
1470 if (typeof y != 'number')
1471 throw 'The value ' + y + ' is not a type number.';
1477 if (cf.type == 'block' && cf.id == 49)
1489 return f51 = (function(v117){
1490 ((v117)["fname"] = "INTEGERP");
1492 })((function (v118){
1493 if (arguments.length < 1) throw 'too few arguments';
1494 if (arguments.length > 1) throw 'too many arguments';
1498 return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1499 var x = (function(){
1501 if (typeof x != 'number')
1502 throw 'The value ' + x + ' is not a type number.';
1503 return Math.floor(x);
1506 if (typeof x != 'number')
1507 throw 'The value ' + x + ' is not a type number.';
1508 if (typeof y != 'number')
1509 throw 'The value ' + y + ' is not a type number.';
1515 if (cf.type == 'block' && cf.id == 50)
1527 return f52 = (function(v119){
1528 ((v119)["fname"] = "PLUSP");
1530 })((function (v120){
1531 if (arguments.length < 1) throw 'too few arguments';
1532 if (arguments.length > 1) throw 'too many arguments';
1536 return ((function(){
1539 if (typeof x != 'number')
1540 throw 'The value ' + x + ' is not a type number.';
1541 if (typeof y != 'number')
1542 throw 'The value ' + y + ' is not a type number.';
1548 if (cf.type == 'block' && cf.id == 51)
1560 return f53 = (function(v121){
1561 ((v121)["fname"] = "MINUSP");
1563 })((function (v122){
1564 if (arguments.length < 1) throw 'too few arguments';
1565 if (arguments.length > 1) throw 'too many arguments';
1569 return ((function(){
1572 if (typeof x != 'number')
1573 throw 'The value ' + x + ' is not a type number.';
1574 if (typeof y != 'number')
1575 throw 'The value ' + y + ' is not a type number.';
1581 if (cf.type == 'block' && cf.id == 52)
1593 return f36 = (function(v123){
1594 ((v123)["fname"] = "LISTP");
1596 })((function (v124){
1597 if (arguments.length < 1) throw 'too few arguments';
1598 if (arguments.length > 1) throw 'too many arguments';
1602 return (function(v125){
1603 return (v125 !== v2 ? v125 : f1(v124));
1606 return (typeof tmp == 'object' && 'car' in tmp);
1611 if (cf.type == 'block' && cf.id == 53)
1623 return f54 = (function(v126){
1624 ((v126)["fname"] = "NTH");
1626 })((function (v127,v128){
1627 if (arguments.length < 2) throw 'too few arguments';
1628 if (arguments.length > 2) throw 'too many arguments';
1632 return (f1(v128) !== v2 ? (function(){
1634 })() : (f14(v127) !== v2 ? (function(){
1637 return tmp === v2? v2: tmp.car;
1640 return f54(f13(v127), (function(){
1642 return tmp === v2? v2: tmp.cdr;
1648 if (cf.type == 'block' && cf.id == 54)
1660 return f55 = (function(v129){
1661 ((v129)["fname"] = "LAST");
1663 })((function (v130){
1664 if (arguments.length < 1) throw 'too few arguments';
1665 if (arguments.length > 1) throw 'too many arguments';
1669 return (((function(){
1670 var tmp = (function(){
1672 return tmp === v2? v2: tmp.cdr;
1674 return (typeof tmp == 'object' && 'car' in tmp);
1675 })()?v3: v2) !== v2 ? f55((function(){
1677 return tmp === v2? v2: tmp.cdr;
1682 if (cf.type == 'block' && cf.id == 55)
1694 return f56 = (function(v131){
1695 ((v131)["fname"] = "BUTLAST");
1697 })((function (v132){
1698 if (arguments.length < 1) throw 'too few arguments';
1699 if (arguments.length > 1) throw 'too many arguments';
1703 return (((function(){
1704 var tmp = (function(){
1706 return tmp === v2? v2: tmp.cdr;
1708 return (typeof tmp == 'object' && 'car' in tmp);
1709 })()?v3: v2) !== v2 ? ({car: (function(){
1711 return tmp === v2? v2: tmp.car;
1712 })(), cdr: f56((function(){
1714 return tmp === v2? v2: tmp.cdr;
1719 if (cf.type == 'block' && cf.id == 56)
1731 return f57 = (function(v133){
1732 ((v133)["fname"] = "MEMBER");
1734 })((function (v134,v135){
1735 if (arguments.length < 2) throw 'too few arguments';
1736 if (arguments.length > 2) throw 'too many arguments';
1740 return (f1(v135) !== v2 ? (function(){
1742 })() : (f16(v134, (function(){
1744 return tmp === v2? v2: tmp.car;
1745 })()) !== v2 ? (function(){
1748 return f57(v134, (function(){
1750 return tmp === v2? v2: tmp.cdr;
1756 if (cf.type == 'block' && cf.id == 57)
1768 return f58 = (function(v136){
1769 ((v136)["fname"] = "REMOVE");
1771 })((function (v137,v138){
1772 if (arguments.length < 2) throw 'too few arguments';
1773 if (arguments.length > 2) throw 'too many arguments';
1777 return (f1(v138) !== v2 ? (function(){
1779 })() : (f16(v137, (function(){
1781 return tmp === v2? v2: tmp.car;
1782 })()) !== v2 ? (function(){
1783 return f58(v137, (function(){
1785 return tmp === v2? v2: tmp.cdr;
1788 return ({car: (function(){
1790 return tmp === v2? v2: tmp.car;
1791 })(), cdr: f58(v137, (function(){
1793 return tmp === v2? v2: tmp.cdr;
1799 if (cf.type == 'block' && cf.id == 58)
1811 return f59 = (function(v139){
1812 ((v139)["fname"] = "REMOVE-IF");
1814 })((function (v140,v141){
1815 if (arguments.length < 2) throw 'too few arguments';
1816 if (arguments.length > 2) throw 'too many arguments';
1820 return (f1(v141) !== v2 ? (function(){
1822 })() : ((v140)((function(){
1824 return tmp === v2? v2: tmp.car;
1825 })()) !== v2 ? (function(){
1826 return f59(v140, (function(){
1828 return tmp === v2? v2: tmp.cdr;
1831 return ({car: (function(){
1833 return tmp === v2? v2: tmp.car;
1834 })(), cdr: f59(v140, (function(){
1836 return tmp === v2? v2: tmp.cdr;
1842 if (cf.type == 'block' && cf.id == 59)
1854 return f60 = (function(v142){
1855 ((v142)["fname"] = "REMOVE-IF-NOT");
1857 })((function (v143,v144){
1858 if (arguments.length < 2) throw 'too few arguments';
1859 if (arguments.length > 2) throw 'too many arguments';
1863 return (f1(v144) !== v2 ? (function(){
1865 })() : ((v143)((function(){
1867 return tmp === v2? v2: tmp.car;
1868 })()) !== v2 ? (function(){
1869 return ({car: (function(){
1871 return tmp === v2? v2: tmp.car;
1872 })(), cdr: f60(v143, (function(){
1874 return tmp === v2? v2: tmp.cdr;
1877 return f60(v143, (function(){
1879 return tmp === v2? v2: tmp.cdr;
1885 if (cf.type == 'block' && cf.id == 60)
1897 return f61 = (function(v145){
1898 ((v145)["fname"] = "DIGIT-CHAR-P");
1900 })((function (v146){
1901 if (arguments.length < 1) throw 'too few arguments';
1902 if (arguments.length > 1) throw 'too many arguments';
1906 return ((((function(){
1909 if (typeof x != 'number')
1910 throw 'The value ' + x + ' is not a type number.';
1911 if (typeof y != 'number')
1912 throw 'The value ' + y + ' is not a type number.';
1914 })()?v3: v2) !== v2 ? ((function(){
1917 if (typeof x != 'number')
1918 throw 'The value ' + x + ' is not a type number.';
1919 if (typeof y != 'number')
1920 throw 'The value ' + y + ' is not a type number.';
1922 })()?v3: v2) : v2) !== v2 ? (function(){
1925 if (typeof x != 'number')
1926 throw 'The value ' + x + ' is not a type number.';
1927 if (typeof y != 'number')
1928 throw 'The value ' + y + ' is not a type number.';
1934 if (cf.type == 'block' && cf.id == 61)
1946 return f62 = (function(v147){
1947 ((v147)["fname"] = "SUBSEQ");
1949 })((function (v148,v149,v150){
1950 if (arguments.length < 2) throw 'too few arguments';
1951 if (arguments.length > 3) throw 'too many arguments';
1952 switch(arguments.length){
1960 return (((typeof(v148) == "string")?v3: v2) !== v2 ? (function(){
1961 return (v150 !== v2 ? (function(){
1966 return str.slice(a,b);
1971 return str.slice(a,b);
1974 return (function (){ throw "Unsupported argument."; })();
1979 if (cf.type == 'block' && cf.id == 62)
1991 return f63 = (function(v151){
1992 ((v151)["fname"] = "PARSE-INTEGER");
1994 })((function (v152){
1995 if (arguments.length < 1) throw 'too few arguments';
1996 if (arguments.length > 1) throw 'too many arguments';
2000 return (function(v153,v154,v155){
2008 if (typeof x != 'number')
2009 throw 'The value ' + x + ' is not a type number.';
2010 if (typeof y != 'number')
2011 throw 'The value ' + y + ' is not a type number.';
2013 })()?v3: v2) !== v2){
2015 var x = (function(){
2018 if (typeof x != 'number')
2019 throw 'The value ' + x + ' is not a type number.';
2020 if (typeof y != 'number')
2021 throw 'The value ' + y + ' is not a type number.';
2024 var y = f61((function(){
2027 if (typeof string != 'string')
2028 throw 'The value ' + string + ' is not a type string.';
2029 if (typeof index != 'number')
2030 throw 'The value ' + index + ' is not a type number.';
2031 return string.charCodeAt(index);
2033 if (typeof x != 'number')
2034 throw 'The value ' + x + ' is not a type number.';
2035 if (typeof y != 'number')
2036 throw 'The value ' + y + ' is not a type number.';
2042 if (typeof x != 'number')
2043 throw 'The value ' + x + ' is not a type number.';
2044 if (typeof y != 'number')
2045 throw 'The value ' + y + ' is not a type number.';
2053 if (cf.type == 'block' && cf.id == 64)
2064 if (cf.type == 'block' && cf.id == 63)
2076 return f64 = (function(v156){
2077 ((v156)["fname"] = "EVERY");
2079 })((function (v157,v158){
2080 if (arguments.length < 2) throw 'too few arguments';
2081 if (arguments.length > 2) throw 'too many arguments';
2085 return (function(v159,v160){
2093 if (typeof x != 'number')
2094 throw 'The value ' + x + ' is not a type number.';
2095 if (typeof y != 'number')
2096 throw 'The value ' + y + ' is not a type number.';
2098 })()?v3: v2) !== v2){
2099 ((v157)((function(){
2102 if (typeof string != 'string')
2103 throw 'The value ' + string + ' is not a type string.';
2104 if (typeof index != 'number')
2105 throw 'The value ' + index + ' is not a type number.';
2106 return string.charCodeAt(index);
2107 })()) !== v2 ? v2 : (function(){
2108 return (function(){ throw ({type: 'block', id: 65, value: v2, message: 'Return from unknown block EVERY.'})})();
2113 if (typeof x != 'number')
2114 throw 'The value ' + x + ' is not a type number.';
2115 if (typeof y != 'number')
2116 throw 'The value ' + y + ' is not a type number.';
2124 if (cf.type == 'block' && cf.id == 66)
2135 if (cf.type == 'block' && cf.id == 65)
2147 return f65 = (function(v161){
2148 ((v161)["fname"] = "ASSOC");
2150 })((function (v162,v163){
2151 if (arguments.length < 2) throw 'too few arguments';
2152 if (arguments.length > 2) throw 'too many arguments';
2161 (f16(v162, f22(v163)) !== v2 ? (function(){ throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block NIL.'})})() : v163 = (function(){
2163 return tmp === v2? v2: tmp.cdr;
2170 if (cf.type == 'block' && cf.id == 68)
2178 return tmp === v2? v2: tmp.car;
2183 if (cf.type == 'block' && cf.id == 67)
2195 return f66 = (function(v164){
2196 ((v164)["fname"] = "STRING=");
2198 })((function (v165,v166){
2199 if (arguments.length < 2) throw 'too few arguments';
2200 if (arguments.length > 2) throw 'too many arguments';
2204 return ((v165 == v166)?v3: v2);
2208 if (cf.type == 'block' && cf.id == 69)
2219 var l34 = f3("*NEWLINE*");
2223 return v167 = (function(){
2225 if (typeof x != 'number')
2226 throw 'The value ' + x + ' is not a type number.';
2227 return String.fromCharCode(x);
2232 var l35 = f3("CONCAT");
2236 return f67 = (function(v168){
2237 ((v168)["fname"] = "CONCAT");
2241 for (var i = arguments.length-1; i>=0; i--)
2242 v169 = {car: arguments[i], cdr: v169};
2246 return f37(f44, v169, "");
2250 if (cf.type == 'block' && cf.id == 70)
2260 var l36 = f3("JOIN");
2264 return f68 = (function(v170){
2265 ((v170)["fname"] = "JOIN");
2267 })((function (v171,v172){
2268 if (arguments.length < 1) throw 'too few arguments';
2269 if (arguments.length > 2) throw 'too many arguments';
2270 switch(arguments.length){
2278 return (f1(v171) !== v2 ? (function(){
2280 })() : (f1((function(){
2282 return tmp === v2? v2: tmp.cdr;
2283 })()) !== v2 ? (function(){
2286 return tmp === v2? v2: tmp.car;
2289 return f67((function(){
2291 return tmp === v2? v2: tmp.car;
2292 })(), v172, f68((function(){
2294 return tmp === v2? v2: tmp.cdr;
2300 if (cf.type == 'block' && cf.id == 71)
2310 var l37 = f3("JOIN-TRAILING");
2314 return f69 = (function(v173){
2315 ((v173)["fname"] = "JOIN-TRAILING");
2317 })((function (v174,v175){
2318 if (arguments.length < 1) throw 'too few arguments';
2319 if (arguments.length > 2) throw 'too many arguments';
2320 switch(arguments.length){
2328 return (f1(v174) !== v2 ? "" : f67((function(){
2330 return tmp === v2? v2: tmp.car;
2331 })(), v175, f69((function(){
2333 return tmp === v2? v2: tmp.cdr;
2338 if (cf.type == 'block' && cf.id == 72)
2348 var l38 = f3("INDENT");
2352 return f70 = (function(v176){
2353 ((v176)["fname"] = "INDENT");
2357 for (var i = arguments.length-1; i>=0; i--)
2358 v177 = {car: arguments[i], cdr: v177};
2362 return (function(v178){
2363 return (function(v179,v180,v181){
2364 (f52(v181) !== v2 ? (function(){
2374 if (typeof x != 'number')
2375 throw 'The value ' + x + ' is not a type number.';
2376 if (typeof y != 'number')
2377 throw 'The value ' + y + ' is not a type number.';
2379 })()?v3: v2) !== v2){
2380 v179 = f67(v179, ((f50((function(){
2383 if (typeof string != 'string')
2384 throw 'The value ' + string + ' is not a type string.';
2385 if (typeof index != 'number')
2386 throw 'The value ' + index + ' is not a type number.';
2387 return string.charCodeAt(index);
2388 })(), 10) !== v2 ? (((function(){
2391 if (typeof x != 'number')
2392 throw 'The value ' + x + ' is not a type number.';
2393 if (typeof y != 'number')
2394 throw 'The value ' + y + ' is not a type number.';
2396 })()?v3: v2) !== v2 ? f17(f50((function(){
2398 var index = f12(v180);
2399 if (typeof string != 'string')
2400 throw 'The value ' + string + ' is not a type string.';
2401 if (typeof index != 'number')
2402 throw 'The value ' + index + ' is not a type number.';
2403 return string.charCodeAt(index);
2404 })(), 10)) : v2) : v2) !== v2 ? f67((function(){
2406 if (typeof x != 'number')
2407 throw 'The value ' + x + ' is not a type number.';
2408 return String.fromCharCode(x);
2409 })(), " ") : f62(v178, v180, f12(v180))));
2413 if (typeof x != 'number')
2414 throw 'The value ' + x + ' is not a type number.';
2415 if (typeof y != 'number')
2416 throw 'The value ' + y + ' is not a type number.';
2424 if (cf.type == 'block' && cf.id == 74)
2436 if (cf.type == 'block' && cf.id == 73)
2446 var l39 = f3("INTEGER-TO-STRING");
2450 return f6 = (function(v182){
2451 ((v182)["fname"] = "INTEGER-TO-STRING");
2453 })((function (v183){
2454 if (arguments.length < 1) throw 'too few arguments';
2455 if (arguments.length > 1) throw 'too many arguments';
2459 return (f14(v183) !== v2 ? (function(){
2461 })() : (f53(v183) !== v2 ? (function(){
2462 return f67("-", f6((function(){
2465 if (typeof x != 'number')
2466 throw 'The value ' + x + ' is not a type number.';
2467 if (typeof y != 'number')
2468 throw 'The value ' + y + ' is not a type number.';
2472 return (function(v184){
2477 while(f17(f14(v183)) !== v2){
2478 v184 = ({car: (function(){
2481 if (typeof x != 'number')
2482 throw 'The value ' + x + ' is not a type number.';
2483 if (typeof y != 'number')
2484 throw 'The value ' + y + ' is not a type number.';
2487 v183 = f15(v183, 10);
2493 if (cf.type == 'block' && cf.id == 76)
2499 return f68(f45((function (v185){
2500 if (arguments.length < 1) throw 'too few arguments';
2501 if (arguments.length > 1) throw 'too many arguments';
2503 var x = (function(){
2504 var string = "0123456789";
2506 if (typeof string != 'string')
2507 throw 'The value ' + string + ' is not a type string.';
2508 if (typeof index != 'number')
2509 throw 'The value ' + index + ' is not a type number.';
2510 return string.charCodeAt(index);
2512 if (typeof x != 'number')
2513 throw 'The value ' + x + ' is not a type number.';
2514 return String.fromCharCode(x);
2522 if (cf.type == 'block' && cf.id == 75)
2532 var l42 = f3("PRINT");
2534 var l41 = f3("WRITE-LINE");
2536 var l40 = f3("PRINT-TO-STRING");
2541 return f71 = (function(v186){
2542 ((v186)["fname"] = "PRINT-TO-STRING");
2544 })((function (v187){
2545 if (arguments.length < 1) throw 'too few arguments';
2546 if (arguments.length > 1) throw 'too many arguments';
2550 return (((function(){
2552 return (typeof tmp == 'object' && 'name' in tmp);
2553 })()?v3: v2) !== v2 ? (function(){
2555 })() : (f51(v187) !== v2 ? (function(){
2557 })() : (((typeof(v187) == "string")?v3: v2) !== v2 ? (function(){
2558 return f67("\"", f72(v187), "\"");
2559 })() : (((typeof v187 == 'function')?v3: v2) !== v2 ? (function(){
2560 return (function(v188){
2561 return (v188 !== v2 ? f67("#<FUNCTION ", v188, ">") : f67("#<FUNCTION>"));
2563 var tmp = (v187)["fname"];
2564 return tmp == undefined? v2: tmp ;
2566 })() : (f36(v187) !== v2 ? (function(){
2567 return f67("(", f69(f45(f71, f56(v187)), " "), (function(v189){
2568 return (f1((function(){
2570 return tmp === v2? v2: tmp.cdr;
2571 })()) !== v2 ? f71((function(){
2573 return tmp === v2? v2: tmp.car;
2574 })()) : f67(f71((function(){
2576 return tmp === v2? v2: tmp.car;
2577 })()), " . ", f71((function(){
2579 return tmp === v2? v2: tmp.cdr;
2581 })(f55(v187)), ")");
2586 if (cf.type == 'block' && cf.id == 77)
2598 return f73 = (function(v190){
2599 ((v190)["fname"] = "WRITE-LINE");
2601 })((function (v191){
2602 if (arguments.length < 1) throw 'too few arguments';
2603 if (arguments.length > 1) throw 'too many arguments';
2609 if (typeof x != 'string')
2610 throw 'The value ' + x + ' is not a type string.';
2611 return lisp.write(x);
2615 if (typeof x != 'string')
2616 throw 'The value ' + x + ' is not a type string.';
2617 return lisp.write(x);
2623 if (cf.type == 'block' && cf.id == 78)
2635 return f74 = (function(v192){
2636 ((v192)["fname"] = "PRINT");
2638 })((function (v193){
2639 if (arguments.length < 1) throw 'too few arguments';
2640 if (arguments.length > 1) throw 'too many arguments';
2649 if (cf.type == 'block' && cf.id == 79)
2660 var l43 = f3("MAKE-STRING-STREAM");
2664 return f75 = (function(v194){
2665 ((v194)["fname"] = "MAKE-STRING-STREAM");
2667 })((function (v195){
2668 if (arguments.length < 1) throw 'too few arguments';
2669 if (arguments.length > 1) throw 'too many arguments';
2673 return ({car: v195, cdr: 0});
2677 if (cf.type == 'block' && cf.id == 80)
2687 var l44 = f3("%PEEK-CHAR");
2691 return f76 = (function(v196){
2692 ((v196)["fname"] = "%PEEK-CHAR");
2694 })((function (v197){
2695 if (arguments.length < 1) throw 'too few arguments';
2696 if (arguments.length > 1) throw 'too many arguments';
2700 return (((function(){
2701 var x = (function(){
2703 return tmp === v2? v2: tmp.cdr;
2705 var y = f43((function(){
2707 return tmp === v2? v2: tmp.car;
2709 if (typeof x != 'number')
2710 throw 'The value ' + x + ' is not a type number.';
2711 if (typeof y != 'number')
2712 throw 'The value ' + y + ' is not a type number.';
2714 })()?v3: v2) !== v2 ? (function(){
2715 var string = (function(){
2717 return tmp === v2? v2: tmp.car;
2719 var index = (function(){
2721 return tmp === v2? v2: tmp.cdr;
2723 if (typeof string != 'string')
2724 throw 'The value ' + string + ' is not a type string.';
2725 if (typeof index != 'number')
2726 throw 'The value ' + index + ' is not a type number.';
2727 return string.charCodeAt(index);
2732 if (cf.type == 'block' && cf.id == 81)
2742 var l45 = f3("%READ-CHAR");
2746 return f77 = (function(v198){
2747 ((v198)["fname"] = "%READ-CHAR");
2749 })((function (v199){
2750 if (arguments.length < 1) throw 'too few arguments';
2751 if (arguments.length > 1) throw 'too many arguments';
2755 return (((function(){
2756 var x = (function(){
2758 return tmp === v2? v2: tmp.cdr;
2760 var y = f43((function(){
2762 return tmp === v2? v2: tmp.car;
2764 if (typeof x != 'number')
2765 throw 'The value ' + x + ' is not a type number.';
2766 if (typeof y != 'number')
2767 throw 'The value ' + y + ' is not a type number.';
2769 })()?v3: v2) !== v2 ? (function(v200){
2772 if (typeof x != 'object')
2773 throw 'The value ' + x + ' is not a type object.';
2774 return (x.cdr = f12((function(){
2776 return tmp === v2? v2: tmp.cdr;
2781 var string = (function(){
2783 return tmp === v2? v2: tmp.car;
2785 var index = (function(){
2787 return tmp === v2? v2: tmp.cdr;
2789 if (typeof string != 'string')
2790 throw 'The value ' + string + ' is not a type string.';
2791 if (typeof index != 'number')
2792 throw 'The value ' + index + ' is not a type number.';
2793 return string.charCodeAt(index);
2798 if (cf.type == 'block' && cf.id == 82)
2808 var l46 = f3("WHITESPACEP");
2812 return f78 = (function(v201){
2813 ((v201)["fname"] = "WHITESPACEP");
2815 })((function (v202){
2816 if (arguments.length < 1) throw 'too few arguments';
2817 if (arguments.length > 1) throw 'too many arguments';
2821 return (function(v203){
2822 return (v203 !== v2 ? v203 : (function(v204){
2823 return (v204 !== v2 ? v204 : f50(v202, 9));
2829 if (cf.type == 'block' && cf.id == 83)
2839 var l47 = f3("SKIP-WHITESPACES");
2843 return f79 = (function(v205){
2844 ((v205)["fname"] = "SKIP-WHITESPACES");
2846 })((function (v206){
2847 if (arguments.length < 1) throw 'too few arguments';
2848 if (arguments.length > 1) throw 'too many arguments';
2852 return (function(v207){
2858 while((v207 !== v2 ? f78(v207) : v2) !== v2){
2866 if (cf.type == 'block' && cf.id == 85)
2876 if (cf.type == 'block' && cf.id == 84)
2886 var l48 = f3("TERMINALP");
2890 return f80 = (function(v208){
2891 ((v208)["fname"] = "TERMINALP");
2893 })((function (v209){
2894 if (arguments.length < 1) throw 'too few arguments';
2895 if (arguments.length > 1) throw 'too many arguments';
2899 return (function(v210){
2900 return (v210 !== v2 ? v210 : (function(v211){
2901 return (v211 !== v2 ? v211 : (function(v212){
2902 return (v212 !== v2 ? v212 : f50(40, v209));
2909 if (cf.type == 'block' && cf.id == 86)
2919 var l49 = f3("READ-UNTIL");
2923 return f81 = (function(v213){
2924 ((v213)["fname"] = "READ-UNTIL");
2926 })((function (v214,v215){
2927 if (arguments.length < 2) throw 'too few arguments';
2928 if (arguments.length > 2) throw 'too many arguments';
2932 return (function(v216,v217){
2938 while((v217 !== v2 ? f17((v215)(v217)) : v2) !== v2){
2939 v216 = f67(v216, (function(){
2941 if (typeof x != 'number')
2942 throw 'The value ' + x + ' is not a type number.';
2943 return String.fromCharCode(x);
2952 if (cf.type == 'block' && cf.id == 88)
2963 if (cf.type == 'block' && cf.id == 87)
2973 var l50 = f3("SKIP-WHITESPACES-AND-COMMENTS");
2977 return f82 = (function(v218){
2978 ((v218)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2980 })((function (v219){
2981 if (arguments.length < 1) throw 'too few arguments';
2982 if (arguments.length > 1) throw 'too many arguments';
2986 return (function(v220){
2993 while((v220 !== v2 ? f50(v220, 59) : v2) !== v2){
2994 f81(v219, (function (v221){
2995 if (arguments.length < 1) throw 'too few arguments';
2996 if (arguments.length > 1) throw 'too many arguments';
2997 return f50(v221, 10);
3006 if (cf.type == 'block' && cf.id == 90)
3016 if (cf.type == 'block' && cf.id == 89)
3026 var l51 = f3("%READ-LIST");
3030 return f83 = (function(v222){
3031 ((v222)["fname"] = "%READ-LIST");
3033 })((function (v223){
3034 if (arguments.length < 1) throw 'too few arguments';
3035 if (arguments.length > 1) throw 'too many arguments';
3040 return (function(v224){
3041 return (f1(v224) !== v2 ? (function(){
3042 return (function (){ throw "Unspected EOF"; })();
3043 })() : (f50(v224, 41) !== v2 ? (function(){
3046 })() : (f50(v224, 46) !== v2 ? (function(){
3048 return (function(v225){
3050 (f50(f77(v223), 41) !== v2 ? v2 : (function(){
3051 return (function (){ throw "')' was expected."; })();
3056 return ({car: f84(v223), cdr: f83(v223)});
3062 if (cf.type == 'block' && cf.id == 91)
3072 var l52 = f3("READ-STRING");
3076 return f85 = (function(v226){
3077 ((v226)["fname"] = "READ-STRING");
3079 })((function (v227){
3080 if (arguments.length < 1) throw 'too few arguments';
3081 if (arguments.length > 1) throw 'too many arguments';
3085 return (function(v228,v229){
3091 while(f17(f16(v229, 34)) !== v2){
3092 (f1(v229) !== v2 ? (function(){
3093 return (function (){ throw "Unexpected EOF"; })();
3095 (f16(v229, 92) !== v2 ? (function(){
3096 return v229 = f77(v227);
3098 v228 = f67(v228, (function(){
3100 if (typeof x != 'number')
3101 throw 'The value ' + x + ' is not a type number.';
3102 return String.fromCharCode(x);
3110 if (cf.type == 'block' && cf.id == 93)
3121 if (cf.type == 'block' && cf.id == 92)
3131 var l57 = f3("READ-SHARP");
3134 var l54 = f3("FUNCTION");
3139 return f86 = (function(v230){
3140 ((v230)["fname"] = "READ-SHARP");
3142 })((function (v231){
3143 if (arguments.length < 1) throw 'too few arguments';
3144 if (arguments.length > 1) throw 'too many arguments';
3149 return (function(v232){
3150 return (f16(v232, l53) !== v2 ? (function(){
3151 return f33(l54, f84(v231));
3152 })() : (f16(v232, l55) !== v2 ? (function(){
3153 return (function(v233){
3154 return (f66(v233, "space") !== v2 ? (function(){
3156 })() : (f66(v233, "tab") !== v2 ? (function(){
3158 })() : (f66(v233, "newline") !== v2 ? (function(){
3161 return f49((function(){
3164 if (typeof string != 'string')
3165 throw 'The value ' + string + ' is not a type string.';
3166 if (typeof index != 'number')
3167 throw 'The value ' + index + ' is not a type number.';
3168 return string.charCodeAt(index);
3173 if (typeof x != 'number')
3174 throw 'The value ' + x + ' is not a type number.';
3175 return String.fromCharCode(x);
3176 })(), f81(v231, f80)));
3177 })() : (f16(v232, l56) !== v2 ? (function(){
3178 return (function(v234){
3179 return (f66(v234, "common-lisp") !== v2 ? (function(){
3182 })() : (f66(v234, "ecmalisp") !== v2 ? (function(){
3185 return (function (){ throw "Unknown reader form."; })();
3189 return (function (){ throw "ECASE expression failed."; })();
3195 if (cf.type == 'block' && cf.id == 94)
3205 var l58 = f3("*EOF*");
3209 return v235 = (function(){
3211 if (typeof name != 'string')
3212 throw 'The value ' + name + ' is not a type string.';
3213 return ({name: name});
3218 var l63 = f3("LS-READ");
3219 var l62 = f3("UNQUOTE");
3220 var l61 = f3("UNQUOTE-SPLICING");
3221 var l60 = f3("BACKQUOTE");
3222 var l59 = f3("QUOTE");
3226 return f84 = (function(v236){
3227 ((v236)["fname"] = "LS-READ");
3229 })((function (v237){
3230 if (arguments.length < 1) throw 'too few arguments';
3231 if (arguments.length > 1) throw 'too many arguments';
3236 return (function(v238){
3237 return (f1(v238) !== v2 ? (function(){
3239 })() : (f50(v238, 40) !== v2 ? (function(){
3242 })() : (f50(v238, 39) !== v2 ? (function(){
3244 return f33(l59, f84(v237));
3245 })() : (f50(v238, 96) !== v2 ? (function(){
3247 return f33(l60, f84(v237));
3248 })() : (f50(v238, 34) !== v2 ? (function(){
3251 })() : (f50(v238, 44) !== v2 ? (function(){
3253 return (f16(f76(v237), 64) !== v2 ? (function(){
3255 return f33(l61, f84(v237));
3256 })() : f33(l62, f84(v237)));
3257 })() : (f50(v238, 35) !== v2 ? (function(){
3260 return (function(v239){
3261 return (f64(f61, v239) !== v2 ? f63(v239) : f3((function(){
3263 if (typeof x != 'string')
3264 throw 'The value ' + x + ' is not a type string.';
3265 return x.toUpperCase();
3273 if (cf.type == 'block' && cf.id == 95)
3283 var l64 = f3("LS-READ-FROM-STRING");
3287 return f87 = (function(v240){
3288 ((v240)["fname"] = "LS-READ-FROM-STRING");
3290 })((function (v241){
3291 if (arguments.length < 1) throw 'too few arguments';
3292 if (arguments.length > 1) throw 'too many arguments';
3296 return f84(f75(v241));
3300 if (cf.type == 'block' && cf.id == 96)
3310 var l66 = f3("*COMPILATION-UNIT-CHECKS*");
3311 var l65 = f3("NIL");
3319 var l67 = f3("MAKE-BINDING");
3323 return f88 = (function(v243){
3324 ((v243)["fname"] = "MAKE-BINDING");
3326 })((function (v244,v245,v246,v247){
3327 if (arguments.length < 4) throw 'too few arguments';
3328 if (arguments.length > 4) throw 'too many arguments';
3332 return f33(v244, v245, v246, v247);
3336 if (cf.type == 'block' && cf.id == 97)
3346 var l68 = f3("BINDING-NAME");
3350 return f89 = (function(v248){
3351 ((v248)["fname"] = "BINDING-NAME");
3353 })((function (v249){
3354 if (arguments.length < 1) throw 'too few arguments';
3355 if (arguments.length > 1) throw 'too many arguments';
3363 if (cf.type == 'block' && cf.id == 98)
3373 var l69 = f3("BINDING-TYPE");
3377 return f90 = (function(v250){
3378 ((v250)["fname"] = "BINDING-TYPE");
3380 })((function (v251){
3381 if (arguments.length < 1) throw 'too few arguments';
3382 if (arguments.length > 1) throw 'too many arguments';
3390 if (cf.type == 'block' && cf.id == 99)
3400 var l70 = f3("BINDING-TRANSLATION");
3404 return f91 = (function(v252){
3405 ((v252)["fname"] = "BINDING-TRANSLATION");
3407 })((function (v253){
3408 if (arguments.length < 1) throw 'too few arguments';
3409 if (arguments.length > 1) throw 'too many arguments';
3417 if (cf.type == 'block' && cf.id == 100)
3427 var l71 = f3("BINDING-DECLARED");
3431 return f92 = (function(v254){
3432 ((v254)["fname"] = "BINDING-DECLARED");
3434 })((function (v255){
3435 if (arguments.length < 1) throw 'too few arguments';
3436 if (arguments.length > 1) throw 'too many arguments';
3440 return (v255 !== v2 ? f32(v255) : v2);
3444 if (cf.type == 'block' && cf.id == 101)
3454 var l72 = f3("MARK-BINDING-AS-DECLARED");
3458 return f93 = (function(v256){
3459 ((v256)["fname"] = "MARK-BINDING-AS-DECLARED");
3461 })((function (v257){
3462 if (arguments.length < 1) throw 'too few arguments';
3463 if (arguments.length > 1) throw 'too many arguments';
3469 if (typeof x != 'object')
3470 throw 'The value ' + x + ' is not a type object.';
3471 return (x.car = v3);
3476 if (cf.type == 'block' && cf.id == 102)
3486 var l73 = f3("MAKE-LEXENV");
3490 return f94 = (function(v258){
3491 ((v258)["fname"] = "MAKE-LEXENV");
3494 if (arguments.length > 0) throw 'too many arguments';
3498 return f33(v2, v2, v2);
3502 if (cf.type == 'block' && cf.id == 103)
3512 var l74 = f3("COPY-LEXENV");
3516 return f95 = (function(v259){
3517 ((v259)["fname"] = "COPY-LEXENV");
3519 })((function (v260){
3520 if (arguments.length < 1) throw 'too few arguments';
3521 if (arguments.length > 1) throw 'too many arguments';
3529 if (cf.type == 'block' && cf.id == 104)
3539 var l78 = f3("PUSH-TO-LEXENV");
3540 var l77 = f3("BLOCK");
3541 var l76 = f3("FUNCTION");
3542 var l75 = f3("VARIABLE");
3546 return f96 = (function(v261){
3547 ((v261)["fname"] = "PUSH-TO-LEXENV");
3549 })((function (v262,v263,v264){
3550 if (arguments.length < 3) throw 'too few arguments';
3551 if (arguments.length > 3) throw 'too many arguments';
3555 return (function(v265){
3556 return (f16(v265, l75) !== v2 ? (function(){
3559 if (typeof x != 'object')
3560 throw 'The value ' + x + ' is not a type object.';
3561 return (x.car = ({car: v262, cdr: (function(){
3563 return tmp === v2? v2: tmp.car;
3566 })() : (f16(v265, l76) !== v2 ? (function(){
3568 var x = (function(){
3570 return tmp === v2? v2: tmp.cdr;
3572 if (typeof x != 'object')
3573 throw 'The value ' + x + ' is not a type object.';
3574 return (x.car = ({car: v262, cdr: f23(v263)}));
3576 })() : (f16(v265, l77) !== v2 ? (function(){
3579 if (typeof x != 'object')
3580 throw 'The value ' + x + ' is not a type object.';
3581 return (x.car = ({car: v262, cdr: f26(v263)}));
3584 return (function (){ throw "ECASE expression failed."; })();
3590 if (cf.type == 'block' && cf.id == 105)
3600 var l79 = f3("EXTEND-LEXENV");
3604 return f97 = (function(v266){
3605 ((v266)["fname"] = "EXTEND-LEXENV");
3607 })((function (v267,v268,v269){
3608 if (arguments.length < 3) throw 'too few arguments';
3609 if (arguments.length > 3) throw 'too many arguments';
3613 return (function(v270){
3614 f96(v267, v270, v269);
3620 if (cf.type == 'block' && cf.id == 106)
3630 var l83 = f3("LOOKUP-IN-LEXENV");
3631 var l82 = f3("BLOCK");
3632 var l81 = f3("FUNCTION");
3633 var l80 = f3("VARIABLE");
3637 return f98 = (function(v271){
3638 ((v271)["fname"] = "LOOKUP-IN-LEXENV");
3640 })((function (v272,v273,v274){
3641 if (arguments.length < 3) throw 'too few arguments';
3642 if (arguments.length > 3) throw 'too many arguments';
3646 return f65(v272, (function(v275){
3647 return (f16(v275, l80) !== v2 ? (function(){
3649 })() : (f16(v275, l81) !== v2 ? (function(){
3651 })() : (f16(v275, l82) !== v2 ? (function(){
3654 return (function (){ throw "ECASE expression failed."; })();
3660 if (cf.type == 'block' && cf.id == 107)
3670 var l84 = f3("*ENVIRONMENT*");
3674 return v276 = f94();
3678 var l85 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3682 return f99 = (function(v277){
3683 ((v277)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3686 if (arguments.length > 0) throw 'too many arguments';
3690 return (function(v278,v279){
3691 return v276 = f33(v278, v279, f31(v276));
3692 })(f29(v276),f30(v276));
3696 if (cf.type == 'block' && cf.id == 108)
3706 var l86 = f3("*VARIABLE-COUNTER*");
3714 var l87 = f3("GVARNAME");
3718 return f100 = (function(v281){
3719 ((v281)["fname"] = "GVARNAME");
3721 })((function (v282){
3722 if (arguments.length < 1) throw 'too few arguments';
3723 if (arguments.length > 1) throw 'too many arguments';
3727 return f67("v", f6(v280 = (function(){
3730 if (typeof x != 'number')
3731 throw 'The value ' + x + ' is not a type number.';
3732 if (typeof y != 'number')
3733 throw 'The value ' + y + ' is not a type number.';
3739 if (cf.type == 'block' && cf.id == 109)
3749 var l93 = f3("LOOKUP-VARIABLE");
3750 var l92 = f3("VARIABLE");
3751 var l91 = f3("VARIABLE");
3752 var l90 = f3("VARIABLE");
3753 var l89 = f3("VARIABLE");
3754 var l88 = f3("VARIABLE");
3758 return f101 = (function(v283){
3759 ((v283)["fname"] = "LOOKUP-VARIABLE");
3761 })((function (v284,v285){
3762 if (arguments.length < 2) throw 'too few arguments';
3763 if (arguments.length > 2) throw 'too many arguments';
3767 return (function(v286){
3768 return (v286 !== v2 ? v286 : (function(v287){
3769 return (v287 !== v2 ? v287 : (function(v288,v289){
3770 f96(v289, v276, l88);
3771 v242 = ({car: (function (){
3772 if (arguments.length > 0) throw 'too many arguments';
3773 return (f98(v284, v276, l89) !== v2 ? v2 : (function(){
3774 return (function (){ throw f67("Undefined variable `", v288, "'"); })();
3778 })((v284).name,f88(v284, l90, f100(v284), v2)));
3779 })(f98(v284, v276, l91)));
3780 })(f98(v284, v285, l92));
3784 if (cf.type == 'block' && cf.id == 110)
3794 var l94 = f3("LOOKUP-VARIABLE-TRANSLATION");
3798 return f102 = (function(v290){
3799 ((v290)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
3801 })((function (v291,v292){
3802 if (arguments.length < 2) throw 'too few arguments';
3803 if (arguments.length > 2) throw 'too many arguments';
3807 return f91(f101(v291, v292));
3811 if (cf.type == 'block' && cf.id == 111)
3821 var l97 = f3("EXTEND-LOCAL-ENV");
3822 var l96 = f3("VARIABLE");
3823 var l95 = f3("VARIABLE");
3827 return f103 = (function(v293){
3828 ((v293)["fname"] = "EXTEND-LOCAL-ENV");
3830 })((function (v294,v295){
3831 if (arguments.length < 2) throw 'too few arguments';
3832 if (arguments.length > 2) throw 'too many arguments';
3836 return (function(v296){
3840 return (function(v297,v298){
3845 return tmp === v2? v2: tmp.car;
3848 return f96(v299, v296, l95);
3849 })(f88(v298, l96, f100(v298), v3));
3852 return tmp === v2? v2: tmp.cdr;
3861 if (cf.type == 'block' && cf.id == 113)
3871 if (cf.type == 'block' && cf.id == 112)
3881 var l98 = f3("*FUNCTION-COUNTER*");
3889 var l104 = f3("LOOKUP-FUNCTION");
3890 var l103 = f3("FUNCTION");
3891 var l102 = f3("FUNCTION");
3892 var l101 = f3("FUNCTION");
3893 var l100 = f3("FUNCTION");
3894 var l99 = f3("FUNCTION");
3898 return f104 = (function(v301){
3899 ((v301)["fname"] = "LOOKUP-FUNCTION");
3901 })((function (v302,v303){
3902 if (arguments.length < 2) throw 'too few arguments';
3903 if (arguments.length > 2) throw 'too many arguments';
3907 return (function(v304){
3908 return (v304 !== v2 ? v304 : (function(v305){
3909 return (v305 !== v2 ? v305 : (function(v306,v307){
3910 f96(v307, v276, l99);
3911 v242 = ({car: (function (){
3912 if (arguments.length > 0) throw 'too many arguments';
3913 return (f92(f98(v302, v276, l100)) !== v2 ? v2 : (function(){
3914 return (function (){ throw f67("Undefined function `", v306, "'"); })();
3918 })((v302).name,f88(v302, l101, f67("f", f6(v300 = (function(){
3921 if (typeof x != 'number')
3922 throw 'The value ' + x + ' is not a type number.';
3923 if (typeof y != 'number')
3924 throw 'The value ' + y + ' is not a type number.';
3927 })(f98(v302, v276, l102)));
3928 })(f98(v302, v303, l103));
3932 if (cf.type == 'block' && cf.id == 114)
3942 var l105 = f3("LOOKUP-FUNCTION-TRANSLATION");
3946 return f105 = (function(v308){
3947 ((v308)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
3949 })((function (v309,v310){
3950 if (arguments.length < 2) throw 'too few arguments';
3951 if (arguments.length > 2) throw 'too many arguments';
3955 return f91(f104(v309, v310));
3959 if (cf.type == 'block' && cf.id == 115)
3969 var l106 = f3("*TOPLEVEL-COMPILATIONS*");
3977 var l107 = f3("%COMPILE-DEFVAR");
3981 return f106 = (function(v312){
3982 ((v312)["fname"] = "%COMPILE-DEFVAR");
3984 })((function (v313){
3985 if (arguments.length < 1) throw 'too few arguments';
3986 if (arguments.length > 1) throw 'too many arguments';
3990 return (function(v314){
3992 return v311 = ({car: f67("var ", f91(v314)), cdr: v311});
3993 })(f101(v313, v276));
3997 if (cf.type == 'block' && cf.id == 116)
4007 var l108 = f3("%COMPILE-DEFUN");
4011 return f107 = (function(v315){
4012 ((v315)["fname"] = "%COMPILE-DEFUN");
4014 })((function (v316){
4015 if (arguments.length < 1) throw 'too few arguments';
4016 if (arguments.length > 1) throw 'too many arguments';
4020 return (function(v317){
4022 return v311 = ({car: f67("var ", f91(v317)), cdr: v311});
4023 })(f104(v316, v276));
4027 if (cf.type == 'block' && cf.id == 117)
4037 var l111 = f3("%COMPILE-DEFMACRO");
4038 var l110 = f3("FUNCTION");
4039 var l109 = f3("MACRO");
4043 return f108 = (function(v318){
4044 ((v318)["fname"] = "%COMPILE-DEFMACRO");
4046 })((function (v319,v320){
4047 if (arguments.length < 2) throw 'too few arguments';
4048 if (arguments.length > 2) throw 'too many arguments';
4052 return f96(f88(v319, l109, v320, v3), v276, l110);
4056 if (cf.type == 'block' && cf.id == 118)
4066 var l112 = f3("*COMPILATIONS*");
4074 var l113 = f3("LS-COMPILE-BLOCK");
4078 return f109 = (function(v322){
4079 ((v322)["fname"] = "LS-COMPILE-BLOCK");
4081 })((function (v323,v324){
4082 if (arguments.length < 2) throw 'too few arguments';
4083 if (arguments.length > 2) throw 'too many arguments';
4087 return f69(f59((function (v325){
4088 if (arguments.length < 1) throw 'too few arguments';
4089 if (arguments.length > 1) throw 'too many arguments';
4090 return (function(v326){
4091 return (v326 !== v2 ? v326 : (((typeof(v325) == "string")?v3: v2) !== v2 ? f14(f43(v325)) : v2));
4093 }), f45((function (v327){
4094 if (arguments.length < 1) throw 'too few arguments';
4095 if (arguments.length > 1) throw 'too many arguments';
4096 return f110(v327, v324);
4097 }), v323)), f67(";", v167));
4101 if (cf.type == 'block' && cf.id == 119)
4111 var l114 = f3("IF");
4112 v321 = ({car: f33(l114, (function (v328,v329,v330,v331){
4113 if (arguments.length < 4) throw 'too few arguments';
4114 if (arguments.length > 4) throw 'too many arguments';
4115 return f67("(", f110(v329, v328), " !== ", f110(v2), " ? ", f110(v330, v328), " : ", f110(v331, v328), ")");
4117 var l116 = f3("*LAMBDA-LIST-KEYWORDS*");
4118 var l115 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4126 var l117 = f3("LIST-UNTIL-KEYWORD");
4130 return f111 = (function(v333){
4131 ((v333)["fname"] = "LIST-UNTIL-KEYWORD");
4133 })((function (v334){
4134 if (arguments.length < 1) throw 'too few arguments';
4135 if (arguments.length > 1) throw 'too many arguments';
4139 return ((function(v335){
4140 return (v335 !== v2 ? v335 : f57((function(){
4142 return tmp === v2? v2: tmp.car;
4144 })(f1(v334)) !== v2 ? v2 : ({car: (function(){
4146 return tmp === v2? v2: tmp.car;
4147 })(), cdr: f111((function(){
4149 return tmp === v2? v2: tmp.cdr;
4154 if (cf.type == 'block' && cf.id == 120)
4164 var l118 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4168 return f112 = (function(v336){
4169 ((v336)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4171 })((function (v337){
4172 if (arguments.length < 1) throw 'too few arguments';
4173 if (arguments.length > 1) throw 'too many arguments';
4181 if (cf.type == 'block' && cf.id == 121)
4191 var l120 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4192 var l119 = f3("&OPTIONAL");
4196 return f113 = (function(v338){
4197 ((v338)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4199 })((function (v339){
4200 if (arguments.length < 1) throw 'too few arguments';
4201 if (arguments.length > 1) throw 'too many arguments';
4205 return f45(f35, f111((function(){
4206 var tmp = f57(l119, v339);
4207 return tmp === v2? v2: tmp.cdr;
4212 if (cf.type == 'block' && cf.id == 122)
4222 var l121 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4226 return f114 = (function(v340){
4227 ((v340)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4229 })((function (v341){
4230 if (arguments.length < 1) throw 'too few arguments';
4231 if (arguments.length > 1) throw 'too many arguments';
4235 return f45(f20, f113(v341));
4239 if (cf.type == 'block' && cf.id == 123)
4249 var l123 = f3("LAMBDA-LIST-REST-ARGUMENT");
4250 var l122 = f3("&REST");
4254 return f115 = (function(v342){
4255 ((v342)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4257 })((function (v343){
4258 if (arguments.length < 1) throw 'too few arguments';
4259 if (arguments.length > 1) throw 'too many arguments';
4263 return (function(v344){
4266 return tmp === v2? v2: tmp.cdr;
4267 })() !== v2 ? (function(){
4268 return (function (){ throw "Bad lambda-list"; })();
4272 return tmp === v2? v2: tmp.car;
4274 })(f111((function(){
4275 var tmp = f57(l122, v343);
4276 return tmp === v2? v2: tmp.cdr;
4281 if (cf.type == 'block' && cf.id == 124)
4291 var l124 = f3("LAMBDA");
4292 v321 = ({car: f33(l124, (function (v346,v347){
4293 if (arguments.length < 2) throw 'too few arguments';
4295 for (var i = arguments.length-1; i>=2; i--)
4296 v345 = {car: arguments[i], cdr: v345};
4297 return (function(v348,v349,v350){
4298 return (function(v351,v352,v353){
4299 return f67("(function (", f68(f45((function (v354){
4300 if (arguments.length < 1) throw 'too few arguments';
4301 if (arguments.length > 1) throw 'too many arguments';
4302 return f102(v354, v353);
4303 }), f39(v348, v349)), ","), "){", v167, f70((v348 !== v2 ? f67("if (arguments.length < ", f6(v351), ") throw 'too few arguments';", v167) : ""), (f17(v350) !== v2 ? f67("if (arguments.length > ", f6((function(){
4306 if (typeof x != 'number')
4307 throw 'The value ' + x + ' is not a type number.';
4308 if (typeof y != 'number')
4309 throw 'The value ' + y + ' is not a type number.';
4311 })()), ") throw 'too many arguments';", v167) : ""), (v349 !== v2 ? f67("switch(arguments.length){", v167, (function(v355,v356,v357){
4320 if (typeof x != 'number')
4321 throw 'The value ' + x + ' is not a type number.';
4322 if (typeof y != 'number')
4323 throw 'The value ' + y + ' is not a type number.';
4325 })()?v3: v2) !== v2){
4327 v356 = ({car: f67("case ", f6((function(){
4330 if (typeof x != 'number')
4331 throw 'The value ' + x + ' is not a type number.';
4332 if (typeof y != 'number')
4333 throw 'The value ' + y + ' is not a type number.';
4335 })()), ":", v167, f102((function(){
4337 return tmp === v2? v2: tmp.car;
4338 })(), v353), "=", f110(f23(v358), v353), ";", v167), cdr: v356});
4339 return v357 = (function(){
4342 if (typeof x != 'number')
4343 throw 'The value ' + x + ' is not a type number.';
4344 if (typeof y != 'number')
4345 throw 'The value ' + y + ' is not a type number.';
4348 })(f54(v357, v355));
4354 if (cf.type == 'block' && cf.id == 125)
4360 v356 = ({car: f67("default: break;", v167), cdr: v356});
4361 return f68(f41(v356));
4363 })(f113(v347),v2,0), "}", v167) : ""), (v350 !== v2 ? (function(v359){
4364 return f67("var ", v359, "= ", f110(v2), ";", v167, "for (var i = arguments.length-1; i>=", f6((function(){
4367 if (typeof x != 'number')
4368 throw 'The value ' + x + ' is not a type number.';
4369 if (typeof y != 'number')
4370 throw 'The value ' + y + ' is not a type number.';
4372 })()), "; i--)", v167, f70(v359, " = ", "{car: arguments[i], cdr: "), v359, "};", v167);
4373 })(f102(v350, v353)) : ""), f67(f109(f56(v345), v353), "return ", f110((function(){
4374 var tmp = f55(v345);
4375 return tmp === v2? v2: tmp.car;
4376 })(), v353), ";")), v167, "})");
4377 })(f43(v348),f43(v349),f103(f39(f35(v350), v348, v349), v346));
4378 })(f112(v347),f114(v347),f115(v347));
4380 var l125 = f3("FSETQ");
4381 v321 = ({car: f33(l125, (function (v360,v361,v362){
4382 if (arguments.length < 3) throw 'too few arguments';
4383 if (arguments.length > 3) throw 'too many arguments';
4384 return f67(f105(v361, v360), " = ", f110(v362, v360));
4386 var l126 = f3("SETQ");
4387 v321 = ({car: f33(l126, (function (v363,v364,v365){
4388 if (arguments.length < 3) throw 'too few arguments';
4389 if (arguments.length > 3) throw 'too many arguments';
4390 return f67(f102(v364, v363), " = ", f110(v365, v363));
4392 var l127 = f3("ESCAPE-STRING");
4396 return f72 = (function(v366){
4397 ((v366)["fname"] = "ESCAPE-STRING");
4399 })((function (v367){
4400 if (arguments.length < 1) throw 'too few arguments';
4401 if (arguments.length > 1) throw 'too many arguments';
4405 return (function(v368,v369,v370){
4413 if (typeof x != 'number')
4414 throw 'The value ' + x + ' is not a type number.';
4415 if (typeof y != 'number')
4416 throw 'The value ' + y + ' is not a type number.';
4418 })()?v3: v2) !== v2){
4421 return (v372 !== v2 ? v372 : f50(v371, 92));
4422 })(f50(v371, 34)) !== v2 ? (function(){
4423 return v368 = f67(v368, "\\");
4425 (f50(v371, 10) !== v2 ? (function(){
4426 v368 = f67(v368, "\\");
4429 return v368 = f67(v368, (function(){
4431 if (typeof x != 'number')
4432 throw 'The value ' + x + ' is not a type number.';
4433 return String.fromCharCode(x);
4438 if (typeof string != 'string')
4439 throw 'The value ' + string + ' is not a type string.';
4440 if (typeof index != 'number')
4441 throw 'The value ' + index + ' is not a type number.';
4442 return string.charCodeAt(index);
4447 if (typeof x != 'number')
4448 throw 'The value ' + x + ' is not a type number.';
4449 if (typeof y != 'number')
4450 throw 'The value ' + y + ' is not a type number.';
4458 if (cf.type == 'block' && cf.id == 127)
4469 if (cf.type == 'block' && cf.id == 126)
4479 var l129 = f3("LITERAL->JS");
4480 var l128 = f3("INTERN");
4484 return f116 = (function(v373){
4485 ((v373)["fname"] = "LITERAL->JS");
4487 })((function (v374){
4488 if (arguments.length < 1) throw 'too few arguments';
4489 if (arguments.length > 1) throw 'too many arguments';
4493 return (f51(v374) !== v2 ? (function(){
4495 })() : (((typeof(v374) == "string")?v3: v2) !== v2 ? (function(){
4496 return f67("\"", f72(v374), "\"");
4497 })() : (((function(){
4499 return (typeof tmp == 'object' && 'name' in tmp);
4500 })()?v3: v2) !== v2 ? (function(){
4501 return f110(f39(f33(l128), f33(f72((v374).name))), v276);
4502 })() : (((function(){
4504 return (typeof tmp == 'object' && 'car' in tmp);
4505 })()?v3: v2) !== v2 ? (function(){
4506 return f67("{car: ", f116((function(){
4508 return tmp === v2? v2: tmp.car;
4509 })()), ", cdr: ", f116((function(){
4511 return tmp === v2? v2: tmp.cdr;
4517 if (cf.type == 'block' && cf.id == 128)
4527 var l130 = f3("*LITERAL-COUNTER*");
4535 var l131 = f3("LITERAL");
4539 return f117 = (function(v376){
4540 ((v376)["fname"] = "LITERAL");
4542 })((function (v377){
4543 if (arguments.length < 1) throw 'too few arguments';
4544 if (arguments.length > 1) throw 'too many arguments';
4548 return (function(v378){
4549 v311 = ({car: f67("var ", v378, " = ", f116(v377)), cdr: v311});
4551 })(f67("l", f6(v375 = (function(){
4554 if (typeof x != 'number')
4555 throw 'The value ' + x + ' is not a type number.';
4556 if (typeof y != 'number')
4557 throw 'The value ' + y + ' is not a type number.';
4563 if (cf.type == 'block' && cf.id == 129)
4573 var l132 = f3("QUOTE");
4574 v321 = ({car: f33(l132, (function (v379,v380){
4575 if (arguments.length < 2) throw 'too few arguments';
4576 if (arguments.length > 2) throw 'too many arguments';
4579 var l133 = f3("%WHILE");
4580 v321 = ({car: f33(l133, (function (v382,v383){
4581 if (arguments.length < 2) throw 'too few arguments';
4583 for (var i = arguments.length-1; i>=2; i--)
4584 v381 = {car: arguments[i], cdr: v381};
4585 return f67("(function(){", v167, f70("while(", f110(v383, v382), " !== ", f110(v2), "){", v167, f70(f109(v381, v382)), "}", "return ", f110(v2), ";", v167), "})()");
4587 var l135 = f3("LAMBDA");
4588 var l134 = f3("FUNCTION");
4589 v321 = ({car: f33(l134, (function (v384,v385){
4590 if (arguments.length < 2) throw 'too few arguments';
4591 if (arguments.length > 2) throw 'too many arguments';
4592 return ((f36(v385) !== v2 ? (((function(){
4594 return tmp === v2? v2: tmp.car;
4595 })() === l135)?v3: v2) : v2) !== v2 ? (function(){
4596 return f110(v385, v384);
4597 })() : (((function(){
4599 return (typeof tmp == 'object' && 'name' in tmp);
4600 })()?v3: v2) !== v2 ? (function(){
4601 return f105(v385, v384);
4604 var l137 = f3("PROGN");
4605 var l136 = f3("EVAL-WHEN-COMPILE");
4606 v321 = ({car: f33(l136, (function (v387){
4607 if (arguments.length < 1) throw 'too few arguments';
4609 for (var i = arguments.length-1; i>=1; i--)
4610 v386 = {car: arguments[i], cdr: v386};
4611 f118(({car: l137, cdr: v386}));
4614 var l138 = f3("PROGN");
4615 v321 = ({car: f33(l138, (function (v389){
4616 if (arguments.length < 1) throw 'too few arguments';
4618 for (var i = arguments.length-1; i>=1; i--)
4619 v388 = {car: arguments[i], cdr: v388};
4620 return f67("(function(){", v167, f70(f109(f56(v388), v389), "return ", f110((function(){
4621 var tmp = f55(v388);
4622 return tmp === v2? v2: tmp.car;
4623 })(), v389), ";", v167), "})()");
4625 var l139 = f3("LET");
4626 v321 = ({car: f33(l139, (function (v391,v392){
4627 if (arguments.length < 2) throw 'too few arguments';
4629 for (var i = arguments.length-1; i>=2; i--)
4630 v390 = {car: arguments[i], cdr: v390};
4631 return (function(v393){
4632 return (function(v394,v395){
4633 return (function(v396){
4634 return f67("(function(", f68(f45((function (v397){
4635 if (arguments.length < 1) throw 'too few arguments';
4636 if (arguments.length > 1) throw 'too many arguments';
4637 return f102(v397, v396);
4638 }), v394), ","), "){", v167, f70(f109(f56(v390), v396), "return ", f110((function(){
4639 var tmp = f55(v390);
4640 return tmp === v2? v2: tmp.car;
4641 })(), v396), ";", v167), "})(", f68(f45((function (v398){
4642 if (arguments.length < 1) throw 'too few arguments';
4643 if (arguments.length > 1) throw 'too many arguments';
4644 return f110(v398, v391);
4645 }), v395), ","), ")");
4646 })(f103(v394, v391));
4647 })(f45(f29, v393),f45(f30, v393));
4650 var l140 = f3("*BLOCK-COUNTER*");
4658 var l144 = f3("BLOCK");
4659 var l143 = f3("BLOCK");
4660 var l142 = f3("PROGN");
4661 var l141 = f3("BLOCK");
4662 v321 = ({car: f33(l141, (function (v401,v402){
4663 if (arguments.length < 2) throw 'too few arguments';
4665 for (var i = arguments.length-1; i>=2; i--)
4666 v400 = {car: arguments[i], cdr: v400};
4667 return (function(v403){
4668 return (function(v404){
4669 return f67("(function(){", v167, f70("try {", v167, f70("return ", f110(f39(f33(l142), v400), f97(v404, v401, l143)), ";", v167), "}", v167, "catch (cf){", v167, " if (cf.type == 'block' && cf.id == ", v403, ")", v167, " return cf.value;", v167, " else", v167, " throw cf;", v167, "}", v167), "})()");
4670 })(f88(v402, l144, v403, v3));
4671 })(f6(v399 = (function(){
4674 if (typeof x != 'number')
4675 throw 'The value ' + x + ' is not a type number.';
4676 if (typeof y != 'number')
4677 throw 'The value ' + y + ' is not a type number.';
4681 var l146 = f3("BLOCK");
4682 var l145 = f3("RETURN-FROM");
4683 v321 = ({car: f33(l145, (function (v405,v406,v407){
4684 if (arguments.length < 2) throw 'too few arguments';
4685 if (arguments.length > 3) throw 'too many arguments';
4686 switch(arguments.length){
4691 return (function(v408){
4692 return (v408 !== v2 ? f67("(function(){ throw ({", "type: 'block', ", "id: ", f91(v408), ", ", "value: ", f110(v407, v405), ", ", "message: 'Return from unknown block ", (v406).name, ".'", "})})()") : (function (){ throw f67("Unknown block `", (v406).name, "'."); })());
4693 })(f98(v406, v405, l146));
4695 var l148 = f3("PROGN");
4696 var l147 = f3("CATCH");
4697 v321 = ({car: f33(l147, (function (v410,v411){
4698 if (arguments.length < 2) throw 'too few arguments';
4700 for (var i = arguments.length-1; i>=2; i--)
4701 v409 = {car: arguments[i], cdr: v409};
4702 return f67("(function(){", v167, f70("var id = ", f110(v411, v410), ";", v167, "try {", v167, f70("return ", f110(f39(f33(l148), v409)), ";", v167), "}", v167, "catch (cf){", v167, " if (cf.type == 'catch' && cf.id == id)", v167, " return cf.value;", v167, " else", v167, " throw cf;", v167, "}", v167), "})()");
4704 var l149 = f3("THROW");
4705 v321 = ({car: f33(l149, (function (v412,v413,v414){
4706 if (arguments.length < 2) throw 'too few arguments';
4707 if (arguments.length > 3) throw 'too many arguments';
4708 switch(arguments.length){
4713 return f67("(function(){ throw ({", "type: 'catch', ", "id: ", f110(v413, v412), ", ", "value: ", f110(v414, v412), ", ", "message: 'Throw uncatched.'", "})})()");
4715 var l150 = f3("UNWIND-PROTECT");
4716 v321 = ({car: f33(l150, (function (v416,v417){
4717 if (arguments.length < 2) throw 'too few arguments';
4719 for (var i = arguments.length-1; i>=2; i--)
4720 v415 = {car: arguments[i], cdr: v415};
4721 return f67("(function(){", v167, f70("var ret = ", f110(v2), ";", v167, "try {", v167, f70("ret = ", f110(v417, v416), ";", v167), "} finally {", v167, f70(f109(v415, v416)), "}", v167, "return ret;", v167), "})()");
4723 var l159 = f3("BACKQUOTE-EXPAND-1");
4724 var l158 = f3("LIST");
4725 var l157 = f3("UNQUOTE-SPLICING");
4726 var l156 = f3("LIST");
4727 var l155 = f3("UNQUOTE");
4728 var l154 = f3("APPEND");
4729 var l153 = f3("BACKQUOTE");
4730 var l152 = f3("UNQUOTE");
4731 var l151 = f3("QUOTE");
4735 return f119 = (function(v418){
4736 ((v418)["fname"] = "BACKQUOTE-EXPAND-1");
4738 })((function (v419){
4739 if (arguments.length < 1) throw 'too few arguments';
4740 if (arguments.length > 1) throw 'too many arguments';
4744 return (((function(){
4746 return (typeof tmp == 'object' && 'name' in tmp);
4747 })()?v3: v2) !== v2 ? (function(){
4748 return f33(l151, v419);
4749 })() : (f34(v419) !== v2 ? (function(){
4751 })() : ((((function(){
4753 return tmp === v2? v2: tmp.car;
4754 })() === l152)?v3: v2) !== v2 ? (function(){
4757 return tmp === v2? v2: tmp.car;
4759 })() : ((((function(){
4761 return tmp === v2? v2: tmp.car;
4762 })() === l153)?v3: v2) !== v2 ? (function(){
4763 return f119(f119(f23(v419)));
4765 return ({car: l154, cdr: f45((function (v420){
4766 if (arguments.length < 1) throw 'too few arguments';
4767 if (arguments.length > 1) throw 'too many arguments';
4768 return ((f36(v420) !== v2 ? (((function(){
4770 return tmp === v2? v2: tmp.car;
4771 })() === l155)?v3: v2) : v2) !== v2 ? (function(){
4772 return f33(l156, f23(v420));
4773 })() : ((f36(v420) !== v2 ? (((function(){
4775 return tmp === v2? v2: tmp.car;
4776 })() === l157)?v3: v2) : v2) !== v2 ? (function(){
4779 return f33(l158, f119(v420));
4786 if (cf.type == 'block' && cf.id == 130)
4796 var l161 = f3("BACKQUOTE-EXPAND");
4797 var l160 = f3("BACKQUOTE");
4801 return f120 = (function(v421){
4802 ((v421)["fname"] = "BACKQUOTE-EXPAND");
4804 })((function (v422){
4805 if (arguments.length < 1) throw 'too few arguments';
4806 if (arguments.length > 1) throw 'too many arguments';
4810 return ((f36(v422) !== v2 ? (((function(){
4812 return tmp === v2? v2: tmp.car;
4813 })() === l160)?v3: v2) : v2) !== v2 ? f119(f23(v422)) : v422);
4817 if (cf.type == 'block' && cf.id == 131)
4827 var l162 = f3("BACKQUOTE");
4828 v321 = ({car: f33(l162, (function (v423,v424){
4829 if (arguments.length < 2) throw 'too few arguments';
4830 if (arguments.length > 2) throw 'too many arguments';
4831 return f110(f119(v424), v423);
4833 var l163 = f3("COMPILE-BOOL");
4837 return f121 = (function(v425){
4838 ((v425)["fname"] = "COMPILE-BOOL");
4840 })((function (v426){
4841 if (arguments.length < 1) throw 'too few arguments';
4842 if (arguments.length > 1) throw 'too many arguments';
4846 return f67("(", v426, "?", f110(v3), ": ", f110(v2), ")");
4850 if (cf.type == 'block' && cf.id == 132)
4860 var l164 = f3("NUM-OP-NUM");
4864 return f122 = (function(v427){
4865 ((v427)["fname"] = "NUM-OP-NUM");
4867 })((function (v428,v429,v430){
4868 if (arguments.length < 3) throw 'too few arguments';
4869 if (arguments.length > 3) throw 'too many arguments';
4873 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v428, ";", v167), f67("var ", "y", " = ", v430, ";", v167), f67("if (typeof ", "x", " != '", "number", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v167)), f67("if (typeof ", "y", " != '", "number", "')", v167, f70("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
4874 return f67("x", v429, "y");
4875 })(), ";", v167)), "})()");
4879 if (cf.type == 'block' && cf.id == 133)
4890 v321 = ({car: f33(l165, (function (v431,v432,v433){
4891 if (arguments.length < 3) throw 'too few arguments';
4892 if (arguments.length > 3) throw 'too many arguments';
4893 return (function(v434,v435){
4894 return f122(v434, "+", v435);
4895 })(f110(v432, v431),f110(v433, v431));
4898 v321 = ({car: f33(l166, (function (v436,v437,v438){
4899 if (arguments.length < 3) throw 'too few arguments';
4900 if (arguments.length > 3) throw 'too many arguments';
4901 return (function(v439,v440){
4902 return f122(v439, "-", v440);
4903 })(f110(v437, v436),f110(v438, v436));
4906 v321 = ({car: f33(l167, (function (v441,v442,v443){
4907 if (arguments.length < 3) throw 'too few arguments';
4908 if (arguments.length > 3) throw 'too many arguments';
4909 return (function(v444,v445){
4910 return f122(v444, "*", v445);
4911 })(f110(v442, v441),f110(v443, v441));
4914 v321 = ({car: f33(l168, (function (v446,v447,v448){
4915 if (arguments.length < 3) throw 'too few arguments';
4916 if (arguments.length > 3) throw 'too many arguments';
4917 return (function(v449,v450){
4918 return f122(v449, "/", v450);
4919 })(f110(v447, v446),f110(v448, v446));
4921 var l169 = f3("MOD");
4922 v321 = ({car: f33(l169, (function (v451,v452,v453){
4923 if (arguments.length < 3) throw 'too few arguments';
4924 if (arguments.length > 3) throw 'too many arguments';
4925 return (function(v454,v455){
4926 return f122(v454, "%", v455);
4927 })(f110(v452, v451),f110(v453, v451));
4930 v321 = ({car: f33(l170, (function (v456,v457,v458){
4931 if (arguments.length < 3) throw 'too few arguments';
4932 if (arguments.length > 3) throw 'too many arguments';
4933 return (function(v459,v460){
4934 return f121(f122(v459, "<", v460));
4935 })(f110(v457, v456),f110(v458, v456));
4938 v321 = ({car: f33(l171, (function (v461,v462,v463){
4939 if (arguments.length < 3) throw 'too few arguments';
4940 if (arguments.length > 3) throw 'too many arguments';
4941 return (function(v464,v465){
4942 return f121(f122(v464, ">", v465));
4943 })(f110(v462, v461),f110(v463, v461));
4946 v321 = ({car: f33(l172, (function (v466,v467,v468){
4947 if (arguments.length < 3) throw 'too few arguments';
4948 if (arguments.length > 3) throw 'too many arguments';
4949 return (function(v469,v470){
4950 return f121(f122(v469, "==", v470));
4951 })(f110(v467, v466),f110(v468, v466));
4953 var l173 = f3("<=");
4954 v321 = ({car: f33(l173, (function (v471,v472,v473){
4955 if (arguments.length < 3) throw 'too few arguments';
4956 if (arguments.length > 3) throw 'too many arguments';
4957 return (function(v474,v475){
4958 return f121(f122(v474, "<=", v475));
4959 })(f110(v472, v471),f110(v473, v471));
4961 var l174 = f3(">=");
4962 v321 = ({car: f33(l174, (function (v476,v477,v478){
4963 if (arguments.length < 3) throw 'too few arguments';
4964 if (arguments.length > 3) throw 'too many arguments';
4965 return (function(v479,v480){
4966 return f121(f122(v479, ">=", v480));
4967 })(f110(v477, v476),f110(v478, v476));
4969 var l175 = f3("NUMBERP");
4970 v321 = ({car: f33(l175, (function (v481,v482){
4971 if (arguments.length < 2) throw 'too few arguments';
4972 if (arguments.length > 2) throw 'too many arguments';
4973 return (function(v483){
4974 return f121(f67("(typeof (", v483, ") == \"number\")"));
4975 })(f110(v482, v481));
4977 var l176 = f3("FLOOR");
4978 v321 = ({car: f33(l176, (function (v484,v485){
4979 if (arguments.length < 2) throw 'too few arguments';
4980 if (arguments.length > 2) throw 'too many arguments';
4981 return (function(v486){
4982 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v486, ";", v167), f67("if (typeof ", "x", " != '", "number", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
4983 return "Math.floor(x)";
4984 })(), ";", v167)), "})()");
4985 })(f110(v485, v484));
4987 var l177 = f3("CONS");
4988 v321 = ({car: f33(l177, (function (v487,v488,v489){
4989 if (arguments.length < 3) throw 'too few arguments';
4990 if (arguments.length > 3) throw 'too many arguments';
4991 return (function(v490,v491){
4992 return f67("({car: ", v490, ", cdr: ", v491, "})");
4993 })(f110(v488, v487),f110(v489, v487));
4995 var l178 = f3("CONSP");
4996 v321 = ({car: f33(l178, (function (v492,v493){
4997 if (arguments.length < 2) throw 'too few arguments';
4998 if (arguments.length > 2) throw 'too many arguments';
4999 return (function(v494){
5000 return f121(f67("(function(){", v167, f70("var tmp = ", v494, ";", v167, "return (typeof tmp == 'object' && 'car' in tmp);", v167), "})()"));
5001 })(f110(v493, v492));
5003 var l179 = f3("CAR");
5004 v321 = ({car: f33(l179, (function (v495,v496){
5005 if (arguments.length < 2) throw 'too few arguments';
5006 if (arguments.length > 2) throw 'too many arguments';
5007 return (function(v497){
5008 return f67("(function(){", v167, f70("var tmp = ", v497, ";", v167, "return tmp === ", f110(v2), "? ", f110(v2), ": tmp.car;", v167), "})()");
5009 })(f110(v496, v495));
5011 var l180 = f3("CDR");
5012 v321 = ({car: f33(l180, (function (v498,v499){
5013 if (arguments.length < 2) throw 'too few arguments';
5014 if (arguments.length > 2) throw 'too many arguments';
5015 return (function(v500){
5016 return f67("(function(){", v167, f70("var tmp = ", v500, ";", v167, "return tmp === ", f110(v2), "? ", f110(v2), ": tmp.cdr;", v167), "})()");
5017 })(f110(v499, v498));
5019 var l181 = f3("SETCAR");
5020 v321 = ({car: f33(l181, (function (v501,v502,v503){
5021 if (arguments.length < 3) throw 'too few arguments';
5022 if (arguments.length > 3) throw 'too many arguments';
5023 return (function(v504,v505){
5024 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v504, ";", v167), f67("if (typeof ", "x", " != '", "object", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v167)), f67("return ", (function(){
5025 return f67("(x.car = ", v505, ")");
5026 })(), ";", v167)), "})()");
5027 })(f110(v502, v501),f110(v503, v501));
5029 var l182 = f3("SETCDR");
5030 v321 = ({car: f33(l182, (function (v506,v507,v508){
5031 if (arguments.length < 3) throw 'too few arguments';
5032 if (arguments.length > 3) throw 'too many arguments';
5033 return (function(v509,v510){
5034 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v509, ";", v167), f67("if (typeof ", "x", " != '", "object", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v167)), f67("return ", (function(){
5035 return f67("(x.cdr = ", v510, ")");
5036 })(), ";", v167)), "})()");
5037 })(f110(v507, v506),f110(v508, v506));
5039 var l183 = f3("SYMBOLP");
5040 v321 = ({car: f33(l183, (function (v511,v512){
5041 if (arguments.length < 2) throw 'too few arguments';
5042 if (arguments.length > 2) throw 'too many arguments';
5043 return (function(v513){
5044 return f121(f67("(function(){", v167, f70("var tmp = ", v513, ";", v167, "return (typeof tmp == 'object' && 'name' in tmp);", v167), "})()"));
5045 })(f110(v512, v511));
5047 var l184 = f3("MAKE-SYMBOL");
5048 v321 = ({car: f33(l184, (function (v514,v515){
5049 if (arguments.length < 2) throw 'too few arguments';
5050 if (arguments.length > 2) throw 'too many arguments';
5051 return (function(v516){
5052 return f67("(function(){", v167, f70(f67("var ", "name", " = ", v516, ";", v167), f67("if (typeof ", "name", " != '", "string", "')", v167, f70("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5053 return "({name: name})";
5054 })(), ";", v167)), "})()");
5055 })(f110(v515, v514));
5057 var l185 = f3("SYMBOL-NAME");
5058 v321 = ({car: f33(l185, (function (v517,v518){
5059 if (arguments.length < 2) throw 'too few arguments';
5060 if (arguments.length > 2) throw 'too many arguments';
5061 return (function(v519){
5062 return f67("(", v519, ").name");
5063 })(f110(v518, v517));
5065 var l186 = f3("EQ");
5066 v321 = ({car: f33(l186, (function (v520,v521,v522){
5067 if (arguments.length < 3) throw 'too few arguments';
5068 if (arguments.length > 3) throw 'too many arguments';
5069 return (function(v523,v524){
5070 return f121(f67("(", v523, " === ", v524, ")"));
5071 })(f110(v521, v520),f110(v522, v520));
5073 var l187 = f3("EQUAL");
5074 v321 = ({car: f33(l187, (function (v525,v526,v527){
5075 if (arguments.length < 3) throw 'too few arguments';
5076 if (arguments.length > 3) throw 'too many arguments';
5077 return (function(v528,v529){
5078 return f121(f67("(", v528, " == ", v529, ")"));
5079 })(f110(v526, v525),f110(v527, v525));
5081 var l188 = f3("STRING");
5082 v321 = ({car: f33(l188, (function (v530,v531){
5083 if (arguments.length < 2) throw 'too few arguments';
5084 if (arguments.length > 2) throw 'too many arguments';
5085 return (function(v532){
5086 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v532, ";", v167), f67("if (typeof ", "x", " != '", "number", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
5087 return "String.fromCharCode(x)";
5088 })(), ";", v167)), "})()");
5089 })(f110(v531, v530));
5091 var l189 = f3("STRINGP");
5092 v321 = ({car: f33(l189, (function (v533,v534){
5093 if (arguments.length < 2) throw 'too few arguments';
5094 if (arguments.length > 2) throw 'too many arguments';
5095 return (function(v535){
5096 return f121(f67("(typeof(", v535, ") == \"string\")"));
5097 })(f110(v534, v533));
5099 var l190 = f3("STRING-UPCASE");
5100 v321 = ({car: f33(l190, (function (v536,v537){
5101 if (arguments.length < 2) throw 'too few arguments';
5102 if (arguments.length > 2) throw 'too many arguments';
5103 return (function(v538){
5104 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v538, ";", v167), f67("if (typeof ", "x", " != '", "string", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5105 return "x.toUpperCase()";
5106 })(), ";", v167)), "})()");
5107 })(f110(v537, v536));
5109 var l191 = f3("STRING-LENGTH");
5110 v321 = ({car: f33(l191, (function (v539,v540){
5111 if (arguments.length < 2) throw 'too few arguments';
5112 if (arguments.length > 2) throw 'too many arguments';
5113 return (function(v541){
5114 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v541, ";", v167), f67("if (typeof ", "x", " != '", "string", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5116 })(), ";", v167)), "})()");
5117 })(f110(v540, v539));
5119 var l192 = f3("SLICE");
5120 v321 = ({car: f33(l192, (function (v542,v543,v544,v545){
5121 if (arguments.length < 3) throw 'too few arguments';
5122 if (arguments.length > 4) throw 'too many arguments';
5123 switch(arguments.length){
5128 return f67("(function(){", v167, f70("var str = ", f110(v543, v542), ";", v167, "var a = ", f110(v544, v542), ";", v167, "var b;", v167, (v545 !== v2 ? f67("b = ", f110(v545, v542), ";", v167) : ""), "return str.slice(a,b);", v167), "})()");
5130 var l193 = f3("CHAR");
5131 v321 = ({car: f33(l193, (function (v546,v547,v548){
5132 if (arguments.length < 3) throw 'too few arguments';
5133 if (arguments.length > 3) throw 'too many arguments';
5134 return (function(v549,v550){
5135 return f67("(function(){", v167, f70(f67("var ", "string", " = ", v549, ";", v167), f67("var ", "index", " = ", v550, ";", v167), f67("if (typeof ", "string", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v167)), f67("if (typeof ", "index", " != '", "number", "')", v167, f70("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
5136 return "string.charCodeAt(index)";
5137 })(), ";", v167)), "})()");
5138 })(f110(v547, v546),f110(v548, v546));
5140 var l194 = f3("CONCAT-TWO");
5141 v321 = ({car: f33(l194, (function (v551,v552,v553){
5142 if (arguments.length < 3) throw 'too few arguments';
5143 if (arguments.length > 3) throw 'too many arguments';
5144 return (function(v554,v555){
5145 return f67("(function(){", v167, f70(f67("var ", "string1", " = ", v554, ";", v167), f67("var ", "string2", " = ", v555, ";", v167), f67("if (typeof ", "string1", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v167)), f67("if (typeof ", "string2", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5146 return "string1.concat(string2)";
5147 })(), ";", v167)), "})()");
5148 })(f110(v552, v551),f110(v553, v551));
5150 var l195 = f3("FUNCALL");
5151 v321 = ({car: f33(l195, (function (v557,v558){
5152 if (arguments.length < 2) throw 'too few arguments';
5154 for (var i = arguments.length-1; i>=2; i--)
5155 v556 = {car: arguments[i], cdr: v556};
5156 return f67("(", f110(v558, v557), ")(", f68(f45((function (v559){
5157 if (arguments.length < 1) throw 'too few arguments';
5158 if (arguments.length > 1) throw 'too many arguments';
5159 return f110(v559, v557);
5160 }), v556), ", "), ")");
5162 var l196 = f3("APPLY");
5163 v321 = ({car: f33(l196, (function (v561,v562){
5164 if (arguments.length < 2) throw 'too few arguments';
5166 for (var i = arguments.length-1; i>=2; i--)
5167 v560 = {car: arguments[i], cdr: v560};
5168 return (f1(v560) !== v2 ? f67("(", f110(v562, v561), ")()") : (function(v563,v564){
5169 return f67("(function(){", v167, f70("var f = ", f110(v562, v561), ";", v167, "var args = [", f68(f45((function (v565){
5170 if (arguments.length < 1) throw 'too few arguments';
5171 if (arguments.length > 1) throw 'too many arguments';
5172 return f110(v565, v561);
5173 }), v563), ", "), "];", v167, "var tail = (", f110(v564, v561), ");", v167, f70("while (tail != ", f110(v2), "){", v167, " args.push(tail.car);", v167, " tail = tail.cdr;", v167, "}", v167, "return f.apply(this, args);", v167), "})()"));
5174 })(f56(v560),(function(){
5175 var tmp = f55(v560);
5176 return tmp === v2? v2: tmp.car;
5179 var l197 = f3("JS-EVAL");
5180 v321 = ({car: f33(l197, (function (v566,v567){
5181 if (arguments.length < 2) throw 'too few arguments';
5182 if (arguments.length > 2) throw 'too many arguments';
5183 return (function(v568){
5184 return f67("(function(){", v167, f70(f67("var ", "string", " = ", v568, ";", v167), f67("if (typeof ", "string", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5185 return "eval.apply(window, [string])";
5186 })(), ";", v167)), "})()");
5187 })(f110(v567, v566));
5189 var l198 = f3("ERROR");
5190 v321 = ({car: f33(l198, (function (v569,v570){
5191 if (arguments.length < 2) throw 'too few arguments';
5192 if (arguments.length > 2) throw 'too many arguments';
5193 return (function(v571){
5194 return f67("(function (){ throw ", v571, "; })()");
5195 })(f110(v570, v569));
5197 var l199 = f3("NEW");
5198 v321 = ({car: f33(l199, (function (v572){
5199 if (arguments.length < 1) throw 'too few arguments';
5200 if (arguments.length > 1) throw 'too many arguments';
5205 var l200 = f3("GET");
5206 v321 = ({car: f33(l200, (function (v573,v574,v575){
5207 if (arguments.length < 3) throw 'too few arguments';
5208 if (arguments.length > 3) throw 'too many arguments';
5209 return (function(v576,v577){
5210 return f67("(function(){", v167, f70("var tmp = ", "(", v576, ")[", v577, "];", v167, "return tmp == undefined? ", f110(v2), ": tmp ;", v167), "})()");
5211 })(f110(v574, v573),f110(v575, v573));
5213 var l201 = f3("SET");
5214 v321 = ({car: f33(l201, (function (v578,v579,v580,v581){
5215 if (arguments.length < 4) throw 'too few arguments';
5216 if (arguments.length > 4) throw 'too many arguments';
5217 return (function(v582,v583,v584){
5218 return f67("((", v582, ")[", v583, "] = ", v584, ")");
5219 })(f110(v579, v578),f110(v580, v578),f110(v581, v578));
5221 var l202 = f3("IN");
5222 v321 = ({car: f33(l202, (function (v585,v586,v587){
5223 if (arguments.length < 3) throw 'too few arguments';
5224 if (arguments.length > 3) throw 'too many arguments';
5225 return (function(v588,v589){
5226 return f121(f67("((", v588, ") in (", v589, "))"));
5227 })(f110(v586, v585),f110(v587, v585));
5229 var l203 = f3("FUNCTIONP");
5230 v321 = ({car: f33(l203, (function (v590,v591){
5231 if (arguments.length < 2) throw 'too few arguments';
5232 if (arguments.length > 2) throw 'too many arguments';
5233 return (function(v592){
5234 return f121(f67("(typeof ", v592, " == 'function')"));
5235 })(f110(v591, v590));
5237 var l204 = f3("WRITE-STRING");
5238 v321 = ({car: f33(l204, (function (v593,v594){
5239 if (arguments.length < 2) throw 'too few arguments';
5240 if (arguments.length > 2) throw 'too many arguments';
5241 return (function(v595){
5242 return f67("(function(){", v167, f70(f67("var ", "x", " = ", v595, ";", v167), f67("if (typeof ", "x", " != '", "string", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5243 return "lisp.write(x)";
5244 })(), ";", v167)), "})()");
5245 })(f110(v594, v593));
5247 var l206 = f3("MACROP");
5248 var l205 = f3("MACRO");
5252 return f123 = (function(v596){
5253 ((v596)["fname"] = "MACROP");
5255 })((function (v597){
5256 if (arguments.length < 1) throw 'too few arguments';
5257 if (arguments.length > 1) throw 'too many arguments';
5261 return (((function(){
5263 return (typeof tmp == 'object' && 'name' in tmp);
5264 })()?v3: v2) !== v2 ? ((f90(f104(v597, v276)) === l205)?v3: v2) : v2);
5268 if (cf.type == 'block' && cf.id == 134)
5278 var l208 = f3("LS-MACROEXPAND-1");
5279 var l207 = f3("MACRO");
5283 return f124 = (function(v598){
5284 ((v598)["fname"] = "LS-MACROEXPAND-1");
5286 })((function (v599,v600){
5287 if (arguments.length < 2) throw 'too few arguments';
5288 if (arguments.length > 2) throw 'too many arguments';
5292 return (f123((function(){
5294 return tmp === v2? v2: tmp.car;
5295 })()) !== v2 ? (function(v601){
5296 return (((f90(v601) === l207)?v3: v2) !== v2 ? (function(){
5297 var f = f118(f91(v601));
5299 var tail = ((function(){
5301 return tmp === v2? v2: tmp.cdr;
5304 args.push(tail.car);
5307 return f.apply(this, args);
5309 })(f104((function(){
5311 return tmp === v2? v2: tmp.car;
5312 })(), v276)) : v599);
5316 if (cf.type == 'block' && cf.id == 135)
5326 var l210 = f3("COMPILE-FUNCALL");
5327 var l209 = f3("LAMBDA");
5331 return f125 = (function(v602){
5332 ((v602)["fname"] = "COMPILE-FUNCALL");
5334 })((function (v603,v604,v605){
5335 if (arguments.length < 3) throw 'too few arguments';
5336 if (arguments.length > 3) throw 'too many arguments';
5340 return (((function(){
5342 return (typeof tmp == 'object' && 'name' in tmp);
5343 })()?v3: v2) !== v2 ? (function(){
5344 return f67(f105(v603, v605), "(", f68(f45((function (v606){
5345 if (arguments.length < 1) throw 'too few arguments';
5346 if (arguments.length > 1) throw 'too many arguments';
5347 return f110(v606, v605);
5348 }), v604), ", "), ")");
5349 })() : ((f36(v603) !== v2 ? (((function(){
5351 return tmp === v2? v2: tmp.car;
5352 })() === l209)?v3: v2) : v2) !== v2 ? (function(){
5353 return f67("(", f110(v603, v605), ")(", f68(f45((function (v607){
5354 if (arguments.length < 1) throw 'too few arguments';
5355 if (arguments.length > 1) throw 'too many arguments';
5356 return f110(v607, v605);
5357 }), v604), ", "), ")");
5359 return (function (){ throw f67("Invalid function designator ", (v603).name); })();
5364 if (cf.type == 'block' && cf.id == 136)
5374 var l211 = f3("LS-COMPILE");
5378 return f110 = (function(v608){
5379 ((v608)["fname"] = "LS-COMPILE");
5381 })((function (v609,v610){
5382 if (arguments.length < 1) throw 'too few arguments';
5383 if (arguments.length > 2) throw 'too many arguments';
5384 switch(arguments.length){
5392 return (((function(){
5394 return (typeof tmp == 'object' && 'name' in tmp);
5395 })()?v3: v2) !== v2 ? (function(){
5396 return f102(v609, v610);
5397 })() : (f51(v609) !== v2 ? (function(){
5399 })() : (((typeof(v609) == "string")?v3: v2) !== v2 ? (function(){
5400 return f67("\"", f72(v609), "\"");
5401 })() : (f36(v609) !== v2 ? (function(){
5402 return (f65((function(){
5404 return tmp === v2? v2: tmp.car;
5405 })(), v321) !== v2 ? (function(v611){
5409 var tail = ((function(){
5411 return tmp === v2? v2: tmp.cdr;
5414 args.push(tail.car);
5417 return f.apply(this, args);
5419 })(f30(f65((function(){
5421 return tmp === v2? v2: tmp.car;
5422 })(), v321))) : (f123((function(){
5424 return tmp === v2? v2: tmp.car;
5425 })()) !== v2 ? f110(f124(v609, v610), v610) : f125((function(){
5427 return tmp === v2? v2: tmp.car;
5430 return tmp === v2? v2: tmp.cdr;
5436 if (cf.type == 'block' && cf.id == 137)
5446 var l212 = f3("LS-COMPILE-TOPLEVEL");
5450 return f126 = (function(v612){
5451 ((v612)["fname"] = "LS-COMPILE-TOPLEVEL");
5453 })((function (v613){
5454 if (arguments.length < 1) throw 'too few arguments';
5455 if (arguments.length > 1) throw 'too many arguments';
5460 return (function(v614){
5461 return (function(v615){
5464 })(f67(f68(f45((function (v616){
5465 if (arguments.length < 1) throw 'too few arguments';
5466 if (arguments.length > 1) throw 'too many arguments';
5467 return f67(v616, ";", v167);
5473 if (cf.type == 'block' && cf.id == 138)
5483 var l223 = f3("LS-COMPILE-TOPLEVEL");
5484 var l222 = f3("EVAL");
5485 var l221 = f3("PRINT-TO-STRING");
5486 var l220 = f3("LS-READ-FROM-STRING");
5492 var l214 = {car: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v399", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v375", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v332", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v321", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v311", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v300", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v280", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v276", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v242", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v235", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v167", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("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: f3("NIL")}}};
5493 var l213 = f3("EVAL");
5506 return f118 = (function(v617){
5507 ((v617)["fname"] = "EVAL");
5509 })((function (v618){
5510 if (arguments.length < 1) throw 'too few arguments';
5511 if (arguments.length > 1) throw 'too many arguments';
5515 return (function(v619){
5518 if (typeof string != 'string')
5519 throw 'The value ' + string + ' is not a type string.';
5520 return eval.apply(window, [string]);
5526 return (function(v621,v622){
5531 return tmp === v2? v2: tmp.car;
5536 return tmp === v2? v2: tmp.cdr;
5545 if (cf.type == 'block' && cf.id == 140)
5560 if (cf.type == 'block' && cf.id == 139)
5571 var string = f67("var lisp = {};", "lisp.read = ", f105(l220, v2), ";", v167, "lisp.print = ", f105(l221, v2), ";", v167, "lisp.eval = ", f105(l222, v2), ";", v167, "lisp.compile = ", f105(l223, v2), ";", v167, "lisp.evalString = function(str){", v167, " return lisp.eval(lisp.read(str));", v167, "}", v167, "lisp.compileString = function(str){", v167, " return lisp.compile(lisp.read(str));", v167, "}", v167);
5572 if (typeof string != 'string')
5573 throw 'The value ' + string + ' is not a type string.';
5574 return eval.apply(window, [string]);