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)
84 return f2 = (function(v6){
85 ((v6)["fname"] = "INTERNP");
88 if (arguments.length < 1) throw 'too few arguments';
89 if (arguments.length > 1) throw 'too many arguments';
93 return (((v7) in (v1))?v3: v2);
97 if (cf.type == 'block' && cf.id == 2)
107 return f3 = (function(v8){
108 ((v8)["fname"] = "INTERN");
111 if (arguments.length < 1) throw 'too few arguments';
112 if (arguments.length > 1) throw 'too many arguments';
116 return (f2(v9) !== v2 ? (function(){
118 return tmp == undefined? v2: tmp ;
119 })() : ((v1)[v9] = (function(){
121 if (typeof name != 'string')
122 throw 'The value ' + name + ' is not a type string.';
123 return ({name: name});
128 if (cf.type == 'block' && cf.id == 3)
138 return f4 = (function(v10){
139 ((v10)["fname"] = "FIND-SYMBOL");
142 if (arguments.length < 1) throw 'too few arguments';
143 if (arguments.length > 1) throw 'too many arguments';
149 return tmp == undefined? v2: tmp ;
154 if (cf.type == 'block' && cf.id == 4)
167 return f5 = (function(v13){
168 ((v13)["fname"] = "GENSYM");
171 if (arguments.length > 1) throw 'too many arguments';
172 switch(arguments.length){
183 if (typeof x != 'number')
184 throw 'The value ' + x + ' is not a type number.';
185 if (typeof y != 'number')
186 throw 'The value ' + y + ' is not a type number.';
190 var name = (function(){
192 var string2 = f6(v12);
193 if (typeof string1 != 'string')
194 throw 'The value ' + string1 + ' is not a type string.';
195 if (typeof string2 != 'string')
196 throw 'The value ' + string2 + ' is not a type string.';
197 return string1.concat(string2);
199 if (typeof name != 'string')
200 throw 'The value ' + name + ' is not a type string.';
201 return ({name: name});
206 if (cf.type == 'block' && cf.id == 5)
216 return f7 = (function(v15){
217 ((v15)["fname"] = "=");
219 })((function (v16,v17){
220 if (arguments.length < 2) throw 'too few arguments';
221 if (arguments.length > 2) throw 'too many arguments';
228 if (typeof x != 'number')
229 throw 'The value ' + x + ' is not a type number.';
230 if (typeof y != 'number')
231 throw 'The value ' + y + ' is not a type number.';
237 if (cf.type == 'block' && cf.id == 6)
247 return f8 = (function(v18){
248 ((v18)["fname"] = "+");
250 })((function (v19,v20){
251 if (arguments.length < 2) throw 'too few arguments';
252 if (arguments.length > 2) throw 'too many arguments';
259 if (typeof x != 'number')
260 throw 'The value ' + x + ' is not a type number.';
261 if (typeof y != 'number')
262 throw 'The value ' + y + ' is not a type number.';
268 if (cf.type == 'block' && cf.id == 7)
278 return f9 = (function(v21){
279 ((v21)["fname"] = "-");
281 })((function (v22,v23){
282 if (arguments.length < 2) throw 'too few arguments';
283 if (arguments.length > 2) throw 'too many arguments';
290 if (typeof x != 'number')
291 throw 'The value ' + x + ' is not a type number.';
292 if (typeof y != 'number')
293 throw 'The value ' + y + ' is not a type number.';
299 if (cf.type == 'block' && cf.id == 8)
309 return f10 = (function(v24){
310 ((v24)["fname"] = "*");
312 })((function (v25,v26){
313 if (arguments.length < 2) throw 'too few arguments';
314 if (arguments.length > 2) throw 'too many arguments';
321 if (typeof x != 'number')
322 throw 'The value ' + x + ' is not a type number.';
323 if (typeof y != 'number')
324 throw 'The value ' + y + ' is not a type number.';
330 if (cf.type == 'block' && cf.id == 9)
340 return f11 = (function(v27){
341 ((v27)["fname"] = "/");
343 })((function (v28,v29){
344 if (arguments.length < 2) throw 'too few arguments';
345 if (arguments.length > 2) throw 'too many arguments';
352 if (typeof x != 'number')
353 throw 'The value ' + x + ' is not a type number.';
354 if (typeof y != 'number')
355 throw 'The value ' + y + ' is not a type number.';
361 if (cf.type == 'block' && cf.id == 10)
371 return f12 = (function(v30){
372 ((v30)["fname"] = "1+");
375 if (arguments.length < 1) throw 'too few arguments';
376 if (arguments.length > 1) throw 'too many arguments';
383 if (typeof x != 'number')
384 throw 'The value ' + x + ' is not a type number.';
385 if (typeof y != 'number')
386 throw 'The value ' + y + ' is not a type number.';
392 if (cf.type == 'block' && cf.id == 11)
402 return f13 = (function(v32){
403 ((v32)["fname"] = "1-");
406 if (arguments.length < 1) throw 'too few arguments';
407 if (arguments.length > 1) throw 'too many arguments';
414 if (typeof x != 'number')
415 throw 'The value ' + x + ' is not a type number.';
416 if (typeof y != 'number')
417 throw 'The value ' + y + ' is not a type number.';
423 if (cf.type == 'block' && cf.id == 12)
433 return f14 = (function(v34){
434 ((v34)["fname"] = "ZEROP");
437 if (arguments.length < 1) throw 'too few arguments';
438 if (arguments.length > 1) throw 'too many arguments';
445 if (typeof x != 'number')
446 throw 'The value ' + x + ' is not a type number.';
447 if (typeof y != 'number')
448 throw 'The value ' + y + ' is not a type number.';
454 if (cf.type == 'block' && cf.id == 13)
464 return f15 = (function(v36){
465 ((v36)["fname"] = "TRUNCATE");
467 })((function (v37,v38){
468 if (arguments.length < 2) throw 'too few arguments';
469 if (arguments.length > 2) throw 'too many arguments';
477 if (typeof x != 'number')
478 throw 'The value ' + x + ' is not a type number.';
479 if (typeof y != 'number')
480 throw 'The value ' + y + ' is not a type number.';
483 if (typeof x != 'number')
484 throw 'The value ' + x + ' is not a type number.';
485 return Math.floor(x);
490 if (cf.type == 'block' && cf.id == 14)
500 return f16 = (function(v39){
501 ((v39)["fname"] = "EQL");
503 })((function (v40,v41){
504 if (arguments.length < 2) throw 'too few arguments';
505 if (arguments.length > 2) throw 'too many arguments';
509 return ((v40 === v41)?v3: v2);
513 if (cf.type == 'block' && cf.id == 15)
523 return f17 = (function(v42){
524 ((v42)["fname"] = "NOT");
527 if (arguments.length < 1) throw 'too few arguments';
528 if (arguments.length > 1) throw 'too many arguments';
532 return (v43 !== v2 ? v2 : v3);
536 if (cf.type == 'block' && cf.id == 16)
546 return f18 = (function(v44){
547 ((v44)["fname"] = "CONS");
549 })((function (v45,v46){
550 if (arguments.length < 2) throw 'too few arguments';
551 if (arguments.length > 2) throw 'too many arguments';
555 return ({car: v45, cdr: v46});
559 if (cf.type == 'block' && cf.id == 17)
569 return f19 = (function(v47){
570 ((v47)["fname"] = "CONSP");
573 if (arguments.length < 1) throw 'too few arguments';
574 if (arguments.length > 1) throw 'too many arguments';
580 return (typeof tmp == 'object' && 'car' in tmp);
585 if (cf.type == 'block' && cf.id == 18)
595 return f20 = (function(v49){
596 ((v49)["fname"] = "CAR");
599 if (arguments.length < 1) throw 'too few arguments';
600 if (arguments.length > 1) throw 'too many arguments';
606 return tmp === v2? v2: tmp.car;
611 if (cf.type == 'block' && cf.id == 19)
621 return f21 = (function(v51){
622 ((v51)["fname"] = "CDR");
625 if (arguments.length < 1) throw 'too few arguments';
626 if (arguments.length > 1) throw 'too many arguments';
632 return tmp === v2? v2: tmp.cdr;
637 if (cf.type == 'block' && cf.id == 20)
647 return f22 = (function(v53){
648 ((v53)["fname"] = "CAAR");
651 if (arguments.length < 1) throw 'too few arguments';
652 if (arguments.length > 1) throw 'too many arguments';
657 var tmp = (function(){
659 return tmp === v2? v2: tmp.car;
661 return tmp === v2? v2: tmp.car;
666 if (cf.type == 'block' && cf.id == 21)
676 return f23 = (function(v55){
677 ((v55)["fname"] = "CADR");
680 if (arguments.length < 1) throw 'too few arguments';
681 if (arguments.length > 1) throw 'too many arguments';
686 var tmp = (function(){
688 return tmp === v2? v2: tmp.cdr;
690 return tmp === v2? v2: tmp.car;
695 if (cf.type == 'block' && cf.id == 22)
705 return f24 = (function(v57){
706 ((v57)["fname"] = "CDAR");
709 if (arguments.length < 1) throw 'too few arguments';
710 if (arguments.length > 1) throw 'too many arguments';
715 var tmp = (function(){
717 return tmp === v2? v2: tmp.car;
719 return tmp === v2? v2: tmp.cdr;
724 if (cf.type == 'block' && cf.id == 23)
734 return f25 = (function(v59){
735 ((v59)["fname"] = "CDDR");
738 if (arguments.length < 1) throw 'too few arguments';
739 if (arguments.length > 1) throw 'too many arguments';
744 var tmp = (function(){
746 return tmp === v2? v2: tmp.cdr;
748 return tmp === v2? v2: tmp.cdr;
753 if (cf.type == 'block' && cf.id == 24)
763 return f26 = (function(v61){
764 ((v61)["fname"] = "CADDR");
767 if (arguments.length < 1) throw 'too few arguments';
768 if (arguments.length > 1) throw 'too many arguments';
773 var tmp = (function(){
774 var tmp = (function(){
776 return tmp === v2? v2: tmp.cdr;
778 return tmp === v2? v2: tmp.cdr;
780 return tmp === v2? v2: tmp.car;
785 if (cf.type == 'block' && cf.id == 25)
795 return f27 = (function(v63){
796 ((v63)["fname"] = "CDDDR");
799 if (arguments.length < 1) throw 'too few arguments';
800 if (arguments.length > 1) throw 'too many arguments';
805 var tmp = (function(){
806 var tmp = (function(){
808 return tmp === v2? v2: tmp.cdr;
810 return tmp === v2? v2: tmp.cdr;
812 return tmp === v2? v2: tmp.cdr;
817 if (cf.type == 'block' && cf.id == 26)
827 return f28 = (function(v65){
828 ((v65)["fname"] = "CADDDR");
831 if (arguments.length < 1) throw 'too few arguments';
832 if (arguments.length > 1) throw 'too many arguments';
837 var tmp = (function(){
838 var tmp = (function(){
839 var tmp = (function(){
841 return tmp === v2? v2: tmp.cdr;
843 return tmp === v2? v2: tmp.cdr;
845 return tmp === v2? v2: tmp.cdr;
847 return tmp === v2? v2: tmp.car;
852 if (cf.type == 'block' && cf.id == 27)
862 return f29 = (function(v67){
863 ((v67)["fname"] = "FIRST");
866 if (arguments.length < 1) throw 'too few arguments';
867 if (arguments.length > 1) throw 'too many arguments';
873 return tmp === v2? v2: tmp.car;
878 if (cf.type == 'block' && cf.id == 28)
888 return f30 = (function(v69){
889 ((v69)["fname"] = "SECOND");
892 if (arguments.length < 1) throw 'too few arguments';
893 if (arguments.length > 1) throw 'too many arguments';
901 if (cf.type == 'block' && cf.id == 29)
911 return f31 = (function(v71){
912 ((v71)["fname"] = "THIRD");
915 if (arguments.length < 1) throw 'too few arguments';
916 if (arguments.length > 1) throw 'too many arguments';
924 if (cf.type == 'block' && cf.id == 30)
934 return f32 = (function(v73){
935 ((v73)["fname"] = "FOURTH");
938 if (arguments.length < 1) throw 'too few arguments';
939 if (arguments.length > 1) throw 'too many arguments';
947 if (cf.type == 'block' && cf.id == 31)
957 return f33 = (function(v75){
958 ((v75)["fname"] = "LIST");
962 for (var i = arguments.length-1; i>=0; i--)
963 v76 = {car: arguments[i], cdr:
972 if (cf.type == 'block' && cf.id == 32)
982 return f34 = (function(v77){
983 ((v77)["fname"] = "ATOM");
986 if (arguments.length < 1) throw 'too few arguments';
987 if (arguments.length > 1) throw 'too many arguments';
991 return f17(((function(){
993 return (typeof tmp == 'object' && 'car' in tmp);
998 if (cf.type == 'block' && cf.id == 33)
1011 return f35 = (function(v79){
1012 ((v79)["fname"] = "ENSURE-LIST");
1015 if (arguments.length < 1) throw 'too few arguments';
1016 if (arguments.length > 1) throw 'too many arguments';
1020 return (f36(v80) !== v2 ? v80 : f33(v80));
1024 if (cf.type == 'block' && cf.id == 34)
1035 return f37 = (function(v81){
1036 ((v81)["fname"] = "!REDUCE");
1038 })((function (v82,v83,v84){
1039 if (arguments.length < 3) throw 'too few arguments';
1040 if (arguments.length > 3) throw 'too many arguments';
1044 return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
1046 return tmp === v2? v2: tmp.cdr;
1047 })(), (v82)(v84, (function(){
1049 return tmp === v2? v2: tmp.car;
1054 if (cf.type == 'block' && cf.id == 35)
1063 var l35 = f3("STRING=");
1065 var l34 = f3("ASSOC");
1067 var l33 = f3("EVERY");
1069 var l32 = f3("SOME");
1071 var l31 = f3("PARSE-INTEGER");
1073 var l30 = f3("SUBSEQ");
1075 var l29 = f3("DIGIT-CHAR-P");
1077 var l28 = f3("REMOVE-IF-NOT");
1079 var l27 = f3("REMOVE-IF");
1081 var l26 = f3("REMOVE");
1083 var l25 = f3("MEMBER");
1085 var l24 = f3("BUTLAST");
1087 var l23 = f3("LAST");
1089 var l22 = f3("NTH");
1091 var l21 = f3("NTHCDR");
1093 var l20 = f3("LISTP");
1095 var l19 = f3("MINUSP");
1097 var l18 = f3("PLUSP");
1099 var l17 = f3("INTEGERP");
1101 var l16 = f3("CHAR=");
1103 var l15 = f3("CHAR-CODE");
1105 var l14 = f3("CODE-CHAR");
1107 var l13 = f3("COPY-LIST");
1109 var l12 = f3("IDENTITY");
1111 var l11 = f3("MAPCAR");
1112 var l10 = f3("NIL");
1114 var l9 = f3("CONCAT-TWO");
1116 var l8 = f3("LENGTH");
1118 var l7 = f3("LIST-LENGTH");
1120 var l6 = f3("REVERSE");
1123 var l4 = f3("REVAPPEND");
1125 var l3 = f3("APPEND");
1128 var l1 = f3("APPEND-TWO");
1133 return f38 = (function(v85){
1134 ((v85)["fname"] = "APPEND-TWO");
1136 })((function (v86,v87){
1137 if (arguments.length < 2) throw 'too few arguments';
1138 if (arguments.length > 2) throw 'too many arguments';
1142 return (f1(v86) !== v2 ? v87 : ({car: (function(){
1144 return tmp === v2? v2: tmp.car;
1145 })(), cdr: f39((function(){
1147 return tmp === v2? v2: tmp.cdr;
1152 if (cf.type == 'block' && cf.id == 36)
1165 return f39 = (function(v88){
1166 ((v88)["fname"] = "APPEND");
1170 for (var i = arguments.length-1; i>=0; i--)
1171 v89 = {car: arguments[i], cdr:
1176 return f37(f38, v89, l2);
1180 if (cf.type == 'block' && cf.id == 37)
1193 return f40 = (function(v90){
1194 ((v90)["fname"] = "REVAPPEND");
1196 })((function (v91,v92){
1197 if (arguments.length < 2) throw 'too few arguments';
1198 if (arguments.length > 2) throw 'too many arguments';
1207 v92 = ({car: (function(){
1209 return tmp === v2? v2: tmp.car;
1213 return tmp === v2? v2: tmp.cdr;
1220 if (cf.type == 'block' && cf.id == 39)
1230 if (cf.type == 'block' && cf.id == 38)
1243 return f41 = (function(v93){
1244 ((v93)["fname"] = "REVERSE");
1247 if (arguments.length < 1) throw 'too few arguments';
1248 if (arguments.length > 1) throw 'too many arguments';
1252 return f40(v94, l5);
1256 if (cf.type == 'block' && cf.id == 40)
1269 return f42 = (function(v95){
1270 ((v95)["fname"] = "LIST-LENGTH");
1273 if (arguments.length < 1) throw 'too few arguments';
1274 if (arguments.length > 1) throw 'too many arguments';
1278 return (function(v97){
1283 while(f17(f1(v96)) !== v2){
1287 if (typeof x != 'number')
1288 throw 'The value ' + x + ' is not a type number.';
1289 if (typeof y != 'number')
1290 throw 'The value ' + y + ' is not a type number.';
1295 return tmp === v2? v2: tmp.cdr;
1302 if (cf.type == 'block' && cf.id == 42)
1313 if (cf.type == 'block' && cf.id == 41)
1326 return f43 = (function(v98){
1327 ((v98)["fname"] = "LENGTH");
1330 if (arguments.length < 1) throw 'too few arguments';
1331 if (arguments.length > 1) throw 'too many arguments';
1335 return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1337 if (typeof x != 'string')
1338 throw 'The value ' + x + ' is not a type string.';
1344 if (cf.type == 'block' && cf.id == 43)
1357 return f44 = (function(v100){
1358 ((v100)["fname"] = "CONCAT-TWO");
1360 })((function (v101,v102){
1361 if (arguments.length < 2) throw 'too few arguments';
1362 if (arguments.length > 2) throw 'too many arguments';
1369 if (typeof string1 != 'string')
1370 throw 'The value ' + string1 + ' is not a type string.';
1371 if (typeof string2 != 'string')
1372 throw 'The value ' + string2 + ' is not a type string.';
1373 return string1.concat(string2);
1378 if (cf.type == 'block' && cf.id == 44)
1391 return f45 = (function(v103){
1392 ((v103)["fname"] = "MAPCAR");
1394 })((function (v104,v105){
1395 if (arguments.length < 2) throw 'too few arguments';
1396 if (arguments.length > 2) throw 'too many arguments';
1400 return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1402 return tmp === v2? v2: tmp.car;
1403 })()), cdr: f45(v104, (function(){
1405 return tmp === v2? v2: tmp.cdr;
1410 if (cf.type == 'block' && cf.id == 45)
1423 return f46 = (function(v106){
1424 ((v106)["fname"] = "IDENTITY");
1426 })((function (v107){
1427 if (arguments.length < 1) throw 'too few arguments';
1428 if (arguments.length > 1) throw 'too many arguments';
1436 if (cf.type == 'block' && cf.id == 46)
1449 return f47 = (function(v108){
1450 ((v108)["fname"] = "COPY-LIST");
1452 })((function (v109){
1453 if (arguments.length < 1) throw 'too few arguments';
1454 if (arguments.length > 1) throw 'too many arguments';
1458 return f45(f46, v109);
1462 if (cf.type == 'block' && cf.id == 47)
1475 return f48 = (function(v110){
1476 ((v110)["fname"] = "CODE-CHAR");
1478 })((function (v111){
1479 if (arguments.length < 1) throw 'too few arguments';
1480 if (arguments.length > 1) throw 'too many arguments';
1488 if (cf.type == 'block' && cf.id == 48)
1501 return f49 = (function(v112){
1502 ((v112)["fname"] = "CHAR-CODE");
1504 })((function (v113){
1505 if (arguments.length < 1) throw 'too few arguments';
1506 if (arguments.length > 1) throw 'too many arguments';
1514 if (cf.type == 'block' && cf.id == 49)
1527 return f50 = (function(v114){
1528 ((v114)["fname"] = "CHAR=");
1530 })((function (v115,v116){
1531 if (arguments.length < 2) throw 'too few arguments';
1532 if (arguments.length > 2) 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 == 50)
1561 return f51 = (function(v117){
1562 ((v117)["fname"] = "INTEGERP");
1564 })((function (v118){
1565 if (arguments.length < 1) throw 'too few arguments';
1566 if (arguments.length > 1) throw 'too many arguments';
1570 return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1571 var x = (function(){
1573 if (typeof x != 'number')
1574 throw 'The value ' + x + ' is not a type number.';
1575 return Math.floor(x);
1578 if (typeof x != 'number')
1579 throw 'The value ' + x + ' is not a type number.';
1580 if (typeof y != 'number')
1581 throw 'The value ' + y + ' is not a type number.';
1587 if (cf.type == 'block' && cf.id == 51)
1600 return f52 = (function(v119){
1601 ((v119)["fname"] = "PLUSP");
1603 })((function (v120){
1604 if (arguments.length < 1) throw 'too few arguments';
1605 if (arguments.length > 1) throw 'too many arguments';
1609 return ((function(){
1612 if (typeof x != 'number')
1613 throw 'The value ' + x + ' is not a type number.';
1614 if (typeof y != 'number')
1615 throw 'The value ' + y + ' is not a type number.';
1621 if (cf.type == 'block' && cf.id == 52)
1634 return f53 = (function(v121){
1635 ((v121)["fname"] = "MINUSP");
1637 })((function (v122){
1638 if (arguments.length < 1) throw 'too few arguments';
1639 if (arguments.length > 1) throw 'too many arguments';
1643 return ((function(){
1646 if (typeof x != 'number')
1647 throw 'The value ' + x + ' is not a type number.';
1648 if (typeof y != 'number')
1649 throw 'The value ' + y + ' is not a type number.';
1655 if (cf.type == 'block' && cf.id == 53)
1668 return f36 = (function(v123){
1669 ((v123)["fname"] = "LISTP");
1671 })((function (v124){
1672 if (arguments.length < 1) throw 'too few arguments';
1673 if (arguments.length > 1) throw 'too many arguments';
1677 return (function(v125){
1678 return (v125 !== v2 ? v125 : f1(v124));
1681 return (typeof tmp == 'object' && 'car' in tmp);
1686 if (cf.type == 'block' && cf.id == 54)
1699 return f54 = (function(v126){
1700 ((v126)["fname"] = "NTHCDR");
1702 })((function (v127,v128){
1703 if (arguments.length < 2) throw 'too few arguments';
1704 if (arguments.length > 2) throw 'too many arguments';
1712 while((f52(v127) !== v2 ? v128 : v2) !== v2){
1716 return tmp === v2? v2: tmp.cdr;
1723 if (cf.type == 'block' && cf.id == 56)
1733 if (cf.type == 'block' && cf.id == 55)
1746 return f55 = (function(v129){
1747 ((v129)["fname"] = "NTH");
1749 })((function (v130,v131){
1750 if (arguments.length < 2) throw 'too few arguments';
1751 if (arguments.length > 2) throw 'too many arguments';
1756 var tmp = f54(v130, v131);
1757 return tmp === v2? v2: tmp.car;
1762 if (cf.type == 'block' && cf.id == 57)
1775 return f56 = (function(v132){
1776 ((v132)["fname"] = "LAST");
1778 })((function (v133){
1779 if (arguments.length < 1) throw 'too few arguments';
1780 if (arguments.length > 1) throw 'too many arguments';
1789 var tmp = (function(){
1791 return tmp === v2? v2: tmp.cdr;
1793 return (typeof tmp == 'object' && 'car' in tmp);
1794 })()?v3: v2) !== v2){
1797 return tmp === v2? v2: tmp.cdr;
1804 if (cf.type == 'block' && cf.id == 59)
1814 if (cf.type == 'block' && cf.id == 58)
1827 return f57 = (function(v134){
1828 ((v134)["fname"] = "BUTLAST");
1830 })((function (v135){
1831 if (arguments.length < 1) throw 'too few arguments';
1832 if (arguments.length > 1) throw 'too many arguments';
1836 return (((function(){
1837 var tmp = (function(){
1839 return tmp === v2? v2: tmp.cdr;
1841 return (typeof tmp == 'object' && 'car' in tmp);
1842 })()?v3: v2) !== v2 ? ({car: (function(){
1844 return tmp === v2? v2: tmp.car;
1845 })(), cdr: f57((function(){
1847 return tmp === v2? v2: tmp.cdr;
1852 if (cf.type == 'block' && cf.id == 60)
1865 return f58 = (function(v136){
1866 ((v136)["fname"] = "MEMBER");
1868 })((function (v137,v138){
1869 if (arguments.length < 2) throw 'too few arguments';
1870 if (arguments.length > 2) throw 'too many arguments';
1879 (f16(v137, (function(){
1881 return tmp === v2? v2: tmp.car;
1882 })()) !== v2 ? (function(){
1884 throw ({type: 'block', id: 62, value: v138, message: 'Return from unknown block NIL.'})
1889 return tmp === v2? v2: tmp.cdr;
1896 if (cf.type == 'block' && cf.id == 62)
1905 if (cf.type == 'block' && cf.id == 61)
1918 return f59 = (function(v139){
1919 ((v139)["fname"] = "REMOVE");
1921 })((function (v140,v141){
1922 if (arguments.length < 2) throw 'too few arguments';
1923 if (arguments.length > 2) throw 'too many arguments';
1927 return (f1(v141) !== v2 ? (function(){
1929 })() : (f16(v140, (function(){
1931 return tmp === v2? v2: tmp.car;
1932 })()) !== v2 ? (function(){
1933 return f59(v140, (function(){
1935 return tmp === v2? v2: tmp.cdr;
1938 return ({car: (function(){
1940 return tmp === v2? v2: tmp.car;
1941 })(), cdr: f59(v140, (function(){
1943 return tmp === v2? v2: tmp.cdr;
1949 if (cf.type == 'block' && cf.id == 63)
1962 return f60 = (function(v142){
1963 ((v142)["fname"] = "REMOVE-IF");
1965 })((function (v143,v144){
1966 if (arguments.length < 2) throw 'too few arguments';
1967 if (arguments.length > 2) throw 'too many arguments';
1971 return (f1(v144) !== v2 ? (function(){
1973 })() : ((v143)((function(){
1975 return tmp === v2? v2: tmp.car;
1976 })()) !== v2 ? (function(){
1977 return f60(v143, (function(){
1979 return tmp === v2? v2: tmp.cdr;
1982 return ({car: (function(){
1984 return tmp === v2? v2: tmp.car;
1985 })(), cdr: f60(v143, (function(){
1987 return tmp === v2? v2: tmp.cdr;
1993 if (cf.type == 'block' && cf.id == 64)
2006 return f61 = (function(v145){
2007 ((v145)["fname"] = "REMOVE-IF-NOT");
2009 })((function (v146,v147){
2010 if (arguments.length < 2) throw 'too few arguments';
2011 if (arguments.length > 2) throw 'too many arguments';
2015 return (f1(v147) !== v2 ? (function(){
2017 })() : ((v146)((function(){
2019 return tmp === v2? v2: tmp.car;
2020 })()) !== v2 ? (function(){
2021 return ({car: (function(){
2023 return tmp === v2? v2: tmp.car;
2024 })(), cdr: f61(v146, (function(){
2026 return tmp === v2? v2: tmp.cdr;
2029 return f61(v146, (function(){
2031 return tmp === v2? v2: tmp.cdr;
2037 if (cf.type == 'block' && cf.id == 65)
2050 return f62 = (function(v148){
2051 ((v148)["fname"] = "DIGIT-CHAR-P");
2053 })((function (v149){
2054 if (arguments.length < 1) throw 'too few arguments';
2055 if (arguments.length > 1) throw 'too many arguments';
2059 return ((((function(){
2062 if (typeof x != 'number')
2063 throw 'The value ' + x + ' is not a type number.';
2064 if (typeof y != 'number')
2065 throw 'The value ' + y + ' is not a type number.';
2067 })()?v3: v2) !== v2 ? ((function(){
2070 if (typeof x != 'number')
2071 throw 'The value ' + x + ' is not a type number.';
2072 if (typeof y != 'number')
2073 throw 'The value ' + y + ' is not a type number.';
2075 })()?v3: v2) : v2) !== v2 ? (function(){
2078 if (typeof x != 'number')
2079 throw 'The value ' + x + ' is not a type number.';
2080 if (typeof y != 'number')
2081 throw 'The value ' + y + ' is not a type number.';
2087 if (cf.type == 'block' && cf.id == 66)
2100 return f63 = (function(v150){
2101 ((v150)["fname"] = "SUBSEQ");
2103 })((function (v151,v152,v153){
2104 if (arguments.length < 2) throw 'too few arguments';
2105 if (arguments.length > 3) throw 'too many arguments';
2106 switch(arguments.length){
2114 return (((typeof(v151) == "string")?v3: v2) !== v2 ? (function(){
2115 return (v153 !== v2 ? (function(){
2120 return str.slice(a,b);
2125 return str.slice(a,b);
2129 throw "Unsupported argument.";
2135 if (cf.type == 'block' && cf.id == 67)
2148 return f64 = (function(v154){
2149 ((v154)["fname"] = "PARSE-INTEGER");
2151 })((function (v155){
2152 if (arguments.length < 1) throw 'too few arguments';
2153 if (arguments.length > 1) throw 'too many arguments';
2157 return (function(v156,v157,v158){
2165 if (typeof x != 'number')
2166 throw 'The value ' + x + ' is not a type number.';
2167 if (typeof y != 'number')
2168 throw 'The value ' + y + ' is not a type number.';
2170 })()?v3: v2) !== v2){
2172 var x = (function(){
2175 if (typeof x != 'number')
2176 throw 'The value ' + x + ' is not a type number.';
2177 if (typeof y != 'number')
2178 throw 'The value ' + y + ' is not a type number.';
2181 var y = f62((function(){
2184 if (typeof string != 'string')
2185 throw 'The value ' + string + ' is not a type string.';
2186 if (typeof index != 'number')
2187 throw 'The value ' + index + ' is not a type number.';
2188 return string.charCodeAt(index);
2190 if (typeof x != 'number')
2191 throw 'The value ' + x + ' is not a type number.';
2192 if (typeof y != 'number')
2193 throw 'The value ' + y + ' is not a type number.';
2199 if (typeof x != 'number')
2200 throw 'The value ' + x + ' is not a type number.';
2201 if (typeof y != 'number')
2202 throw 'The value ' + y + ' is not a type number.';
2210 if (cf.type == 'block' && cf.id == 69)
2221 if (cf.type == 'block' && cf.id == 68)
2234 return f65 = (function(v159){
2235 ((v159)["fname"] = "SOME");
2237 })((function (v160,v161){
2238 if (arguments.length < 2) throw 'too few arguments';
2239 if (arguments.length > 2) throw 'too many arguments';
2243 return (((typeof(v161) == "string")?v3: v2) !== v2 ? (function(){
2244 return (function(v162,v163){
2252 if (typeof x != 'number')
2253 throw 'The value ' + x + ' is not a type number.';
2254 if (typeof y != 'number')
2255 throw 'The value ' + y + ' is not a type number.';
2257 })()?v3: v2) !== v2){
2258 ((v160)((function(){
2261 if (typeof string != 'string')
2262 throw 'The value ' + string + ' is not a type string.';
2263 if (typeof index != 'number')
2264 throw 'The value ' + index + ' is not a type number.';
2265 return string.charCodeAt(index);
2266 })()) !== v2 ? (function(){
2268 throw ({type: 'block', id: 70, value: v3, message: 'Return from unknown block SOME.'})
2274 if (typeof x != 'number')
2275 throw 'The value ' + x + ' is not a type number.';
2276 if (typeof y != 'number')
2277 throw 'The value ' + y + ' is not a type number.';
2285 if (cf.type == 'block' && cf.id == 71)
2293 })() : (f36(v161) !== v2 ? (function(){
2297 return (function(v164,v165){
2302 return tmp === v2? v2: tmp.car;
2305 ((v160)(v165) !== v2 ? (function(){
2307 throw ({type: 'block', id: 72, value: v3, message: 'Return from unknown block NIL.'})
2314 return tmp === v2? v2: tmp.cdr;
2323 if (cf.type == 'block' && cf.id == 72)
2331 throw "Unknown sequence.";
2337 if (cf.type == 'block' && cf.id == 70)
2350 return f66 = (function(v166){
2351 ((v166)["fname"] = "EVERY");
2353 })((function (v167,v168){
2354 if (arguments.length < 2) throw 'too few arguments';
2355 if (arguments.length > 2) throw 'too many arguments';
2359 return (((typeof(v168) == "string")?v3: v2) !== v2 ? (function(){
2360 return (function(v169,v170){
2368 if (typeof x != 'number')
2369 throw 'The value ' + x + ' is not a type number.';
2370 if (typeof y != 'number')
2371 throw 'The value ' + y + ' is not a type number.';
2373 })()?v3: v2) !== v2){
2374 ((v167)((function(){
2377 if (typeof string != 'string')
2378 throw 'The value ' + string + ' is not a type string.';
2379 if (typeof index != 'number')
2380 throw 'The value ' + index + ' is not a type number.';
2381 return string.charCodeAt(index);
2382 })()) !== v2 ? v2 : (function(){
2384 throw ({type: 'block', id: 73, value: v2, message: 'Return from unknown block EVERY.'})
2390 if (typeof x != 'number')
2391 throw 'The value ' + x + ' is not a type number.';
2392 if (typeof y != 'number')
2393 throw 'The value ' + y + ' is not a type number.';
2401 if (cf.type == 'block' && cf.id == 74)
2409 })() : (f36(v168) !== v2 ? (function(){
2413 return (function(v171,v172){
2418 return tmp === v2? v2: tmp.car;
2421 ((v167)(v172) !== v2 ? v2 : (function(){
2423 throw ({type: 'block', id: 75, value: v2, message: 'Return from unknown block NIL.'})
2430 return tmp === v2? v2: tmp.cdr;
2439 if (cf.type == 'block' && cf.id == 75)
2447 throw "Unknown sequence.";
2453 if (cf.type == 'block' && cf.id == 73)
2466 return f67 = (function(v173){
2467 ((v173)["fname"] = "ASSOC");
2469 })((function (v174,v175){
2470 if (arguments.length < 2) throw 'too few arguments';
2471 if (arguments.length > 2) throw 'too many arguments';
2480 (f16(v174, f22(v175)) !== v2 ? (function(){
2481 throw ({type: 'block', id: 77, value: v2, message: 'Return from unknown block NIL.'})
2482 })() : v175 = (function(){
2484 return tmp === v2? v2: tmp.cdr;
2491 if (cf.type == 'block' && cf.id == 77)
2499 return tmp === v2? v2: tmp.car;
2504 if (cf.type == 'block' && cf.id == 76)
2517 return f68 = (function(v176){
2518 ((v176)["fname"] = "STRING=");
2520 })((function (v177,v178){
2521 if (arguments.length < 2) throw 'too few arguments';
2522 if (arguments.length > 2) throw 'too many arguments';
2526 return ((v177 == v178)?v3: v2);
2530 if (cf.type == 'block' && cf.id == 78)
2542 var l36 = f3("*NEWLINE*");
2546 return v179 = (function(){
2548 if (typeof x != 'number')
2549 throw 'The value ' + x + ' is not a type number.';
2550 return String.fromCharCode(x);
2555 var l37 = f3("CONCAT");
2559 return f69 = (function(v180){
2560 ((v180)["fname"] = "CONCAT");
2564 for (var i = arguments.length-1; i>=0; i--)
2565 v181 = {car: arguments[i], cdr:
2570 return f37(f44, v181, "");
2574 if (cf.type == 'block' && cf.id == 79)
2585 var l38 = f3("JOIN");
2589 return f70 = (function(v182){
2590 ((v182)["fname"] = "JOIN");
2592 })((function (v183,v184){
2593 if (arguments.length < 1) throw 'too few arguments';
2594 if (arguments.length > 2) throw 'too many arguments';
2595 switch(arguments.length){
2603 return (f1(v183) !== v2 ? (function(){
2605 })() : (f1((function(){
2607 return tmp === v2? v2: tmp.cdr;
2608 })()) !== v2 ? (function(){
2611 return tmp === v2? v2: tmp.car;
2614 return f69((function(){
2616 return tmp === v2? v2: tmp.car;
2617 })(), v184, f70((function(){
2619 return tmp === v2? v2: tmp.cdr;
2625 if (cf.type == 'block' && cf.id == 80)
2636 var l39 = f3("JOIN-TRAILING");
2640 return f71 = (function(v185){
2641 ((v185)["fname"] = "JOIN-TRAILING");
2643 })((function (v186,v187){
2644 if (arguments.length < 1) throw 'too few arguments';
2645 if (arguments.length > 2) throw 'too many arguments';
2646 switch(arguments.length){
2654 return (f1(v186) !== v2 ? "" : f69((function(){
2656 return tmp === v2? v2: tmp.car;
2657 })(), v187, f71((function(){
2659 return tmp === v2? v2: tmp.cdr;
2664 if (cf.type == 'block' && cf.id == 81)
2675 var l40 = f3("INDENT");
2679 return f72 = (function(v188){
2680 ((v188)["fname"] = "INDENT");
2684 for (var i = arguments.length-1; i>=0; i--)
2685 v189 = {car: arguments[i], cdr:
2690 return (function(v190){
2691 return (function(v191,v192,v193){
2692 (f52(f43(v190)) !== v2 ? (function(){
2693 return v191 = f69(v191, (function(){
2704 if (typeof x != 'number')
2705 throw 'The value ' + x + ' is not a type number.';
2706 if (typeof y != 'number')
2707 throw 'The value ' + y + ' is not a type number.';
2709 })()?v3: v2) !== v2){
2711 return v191 = f69(v191, (function(){
2714 })(((f50((function(){
2717 if (typeof string != 'string')
2718 throw 'The value ' + string + ' is not a type string.';
2719 if (typeof index != 'number')
2720 throw 'The value ' + index + ' is not a type number.';
2721 return string.charCodeAt(index);
2722 })(), 10) !== v2 ? (((function(){
2725 if (typeof x != 'number')
2726 throw 'The value ' + x + ' is not a type number.';
2727 if (typeof y != 'number')
2728 throw 'The value ' + y + ' is not a type number.';
2730 })()?v3: v2) !== v2 ? f17(f50((function(){
2732 var index = f12(v192);
2733 if (typeof string != 'string')
2734 throw 'The value ' + string + ' is not a type string.';
2735 if (typeof index != 'number')
2736 throw 'The value ' + index + ' is not a type number.';
2737 return string.charCodeAt(index);
2738 })(), 10)) : v2) : v2) !== v2 ? f69((function(){
2740 if (typeof x != 'number')
2741 throw 'The value ' + x + ' is not a type number.';
2742 return String.fromCharCode(x);
2743 })(), " ") : (function(){
2744 var x = (function(){
2747 if (typeof string != 'string')
2748 throw 'The value ' + string + ' is not a type string.';
2749 if (typeof index != 'number')
2750 throw 'The value ' + index + ' is not a type number.';
2751 return string.charCodeAt(index);
2753 if (typeof x != 'number')
2754 throw 'The value ' + x + ' is not a type number.';
2755 return String.fromCharCode(x);
2760 if (typeof x != 'number')
2761 throw 'The value ' + x + ' is not a type number.';
2762 if (typeof y != 'number')
2763 throw 'The value ' + y + ' is not a type number.';
2771 if (cf.type == 'block' && cf.id == 83)
2783 if (cf.type == 'block' && cf.id == 82)
2794 var l41 = f3("INTEGER-TO-STRING");
2798 return f6 = (function(v195){
2799 ((v195)["fname"] = "INTEGER-TO-STRING");
2801 })((function (v196){
2802 if (arguments.length < 1) throw 'too few arguments';
2803 if (arguments.length > 1) throw 'too many arguments';
2807 return (f14(v196) !== v2 ? (function(){
2809 })() : (f53(v196) !== v2 ? (function(){
2810 return f69("-", f6((function(){
2813 if (typeof x != 'number')
2814 throw 'The value ' + x + ' is not a type number.';
2815 if (typeof y != 'number')
2816 throw 'The value ' + y + ' is not a type number.';
2820 return (function(v197){
2825 while(f17(f14(v196)) !== v2){
2826 v197 = ({car: (function(){
2829 if (typeof x != 'number')
2830 throw 'The value ' + x + ' is not a type number.';
2831 if (typeof y != 'number')
2832 throw 'The value ' + y + ' is not a type number.';
2835 v196 = f15(v196, 10);
2841 if (cf.type == 'block' && cf.id == 85)
2847 return f70(f45((function (v198){
2848 if (arguments.length < 1) throw 'too few arguments';
2849 if (arguments.length > 1) throw 'too many arguments';
2851 var x = (function(){
2852 var string = "0123456789";
2854 if (typeof string != 'string')
2855 throw 'The value ' + string + ' is not a type string.';
2856 if (typeof index != 'number')
2857 throw 'The value ' + index + ' is not a type number.';
2858 return string.charCodeAt(index);
2860 if (typeof x != 'number')
2861 throw 'The value ' + x + ' is not a type number.';
2862 return String.fromCharCode(x);
2871 if (cf.type == 'block' && cf.id == 84)
2882 var l42 = f3("JS!BOOL");
2886 return f73 = (function(v199){
2887 ((v199)["fname"] = "JS!BOOL");
2889 })((function (v200){
2890 if (arguments.length < 1) throw 'too few arguments';
2891 if (arguments.length > 1) throw 'too many arguments';
2895 return f69("(", v200, "?", f74(v3), ": ", f74(v2), ")");
2899 if (cf.type == 'block' && cf.id == 86)
2910 var l45 = f3("PRINT");
2912 var l44 = f3("WRITE-LINE");
2914 var l43 = f3("PRIN1-TO-STRING");
2919 return f75 = (function(v201){
2920 ((v201)["fname"] = "PRIN1-TO-STRING");
2922 })((function (v202){
2923 if (arguments.length < 1) throw 'too few arguments';
2924 if (arguments.length > 1) throw 'too many arguments';
2928 return (((function(){
2930 return (typeof tmp == 'object' && 'name' in tmp);
2931 })()?v3: v2) !== v2 ? (function(){
2933 })() : (f51(v202) !== v2 ? (function(){
2935 })() : (((typeof(v202) == "string")?v3: v2) !== v2 ? (function(){
2936 return f69("\"", f76(v202), "\"");
2937 })() : (((typeof v202 == 'function')?v3: v2) !== v2 ? (function(){
2938 return (function(v203){
2939 return (v203 !== v2 ? f69("#<FUNCTION ", v203, ">") : f69("#<FUNCTION>"));
2941 var tmp = (v202)["fname"];
2942 return tmp == undefined? v2: tmp ;
2944 })() : (f36(v202) !== v2 ? (function(){
2945 return f69("(", f71(f45(f75, f57(v202)), " "), (function(v204){
2946 return (f1((function(){
2948 return tmp === v2? v2: tmp.cdr;
2949 })()) !== v2 ? f75((function(){
2951 return tmp === v2? v2: tmp.car;
2952 })()) : f69(f75((function(){
2954 return tmp === v2? v2: tmp.car;
2955 })()), " . ", f75((function(){
2957 return tmp === v2? v2: tmp.cdr;
2959 })(f56(v202)), ")");
2964 if (cf.type == 'block' && cf.id == 87)
2977 return f77 = (function(v205){
2978 ((v205)["fname"] = "WRITE-LINE");
2980 })((function (v206){
2981 if (arguments.length < 1) throw 'too few arguments';
2982 if (arguments.length > 1) throw 'too many arguments';
2988 if (typeof x != 'string')
2989 throw 'The value ' + x + ' is not a type string.';
2990 return lisp.write(x);
2994 if (typeof x != 'string')
2995 throw 'The value ' + x + ' is not a type string.';
2996 return lisp.write(x);
3002 if (cf.type == 'block' && cf.id == 88)
3015 return f78 = (function(v207){
3016 ((v207)["fname"] = "PRINT");
3018 })((function (v208){
3019 if (arguments.length < 1) throw 'too few arguments';
3020 if (arguments.length > 1) throw 'too many arguments';
3029 if (cf.type == 'block' && cf.id == 89)
3041 var l46 = f3("MAKE-STRING-STREAM");
3045 return f79 = (function(v209){
3046 ((v209)["fname"] = "MAKE-STRING-STREAM");
3048 })((function (v210){
3049 if (arguments.length < 1) throw 'too few arguments';
3050 if (arguments.length > 1) throw 'too many arguments';
3054 return ({car: v210, cdr: 0});
3058 if (cf.type == 'block' && cf.id == 90)
3069 var l47 = f3("%PEEK-CHAR");
3073 return f80 = (function(v211){
3074 ((v211)["fname"] = "%PEEK-CHAR");
3076 })((function (v212){
3077 if (arguments.length < 1) throw 'too few arguments';
3078 if (arguments.length > 1) throw 'too many arguments';
3082 return (((function(){
3083 var x = (function(){
3085 return tmp === v2? v2: tmp.cdr;
3087 var y = f43((function(){
3089 return tmp === v2? v2: tmp.car;
3091 if (typeof x != 'number')
3092 throw 'The value ' + x + ' is not a type number.';
3093 if (typeof y != 'number')
3094 throw 'The value ' + y + ' is not a type number.';
3096 })()?v3: v2) !== v2 ? (function(){
3097 var string = (function(){
3099 return tmp === v2? v2: tmp.car;
3101 var index = (function(){
3103 return tmp === v2? v2: tmp.cdr;
3105 if (typeof string != 'string')
3106 throw 'The value ' + string + ' is not a type string.';
3107 if (typeof index != 'number')
3108 throw 'The value ' + index + ' is not a type number.';
3109 return string.charCodeAt(index);
3114 if (cf.type == 'block' && cf.id == 91)
3125 var l48 = f3("%READ-CHAR");
3129 return f81 = (function(v213){
3130 ((v213)["fname"] = "%READ-CHAR");
3132 })((function (v214){
3133 if (arguments.length < 1) throw 'too few arguments';
3134 if (arguments.length > 1) throw 'too many arguments';
3138 return (((function(){
3139 var x = (function(){
3141 return tmp === v2? v2: tmp.cdr;
3143 var y = f43((function(){
3145 return tmp === v2? v2: tmp.car;
3147 if (typeof x != 'number')
3148 throw 'The value ' + x + ' is not a type number.';
3149 if (typeof y != 'number')
3150 throw 'The value ' + y + ' is not a type number.';
3152 })()?v3: v2) !== v2 ? (function(v215){
3155 if (typeof x != 'object')
3156 throw 'The value ' + x + ' is not a type object.';
3157 return (x.cdr = f12((function(){
3159 return tmp === v2? v2: tmp.cdr;
3164 var string = (function(){
3166 return tmp === v2? v2: tmp.car;
3168 var index = (function(){
3170 return tmp === v2? v2: tmp.cdr;
3172 if (typeof string != 'string')
3173 throw 'The value ' + string + ' is not a type string.';
3174 if (typeof index != 'number')
3175 throw 'The value ' + index + ' is not a type number.';
3176 return string.charCodeAt(index);
3181 if (cf.type == 'block' && cf.id == 92)
3192 var l49 = f3("WHITESPACEP");
3196 return f82 = (function(v216){
3197 ((v216)["fname"] = "WHITESPACEP");
3199 })((function (v217){
3200 if (arguments.length < 1) throw 'too few arguments';
3201 if (arguments.length > 1) throw 'too many arguments';
3205 return (function(v218){
3206 return (v218 !== v2 ? v218 : (function(v219){
3207 return (v219 !== v2 ? v219 : f50(v217, 9));
3213 if (cf.type == 'block' && cf.id == 93)
3224 var l50 = f3("SKIP-WHITESPACES");
3228 return f83 = (function(v220){
3229 ((v220)["fname"] = "SKIP-WHITESPACES");
3231 })((function (v221){
3232 if (arguments.length < 1) throw 'too few arguments';
3233 if (arguments.length > 1) throw 'too many arguments';
3237 return (function(v222){
3243 while((v222 !== v2 ? f82(v222) : v2) !== v2){
3251 if (cf.type == 'block' && cf.id == 95)
3261 if (cf.type == 'block' && cf.id == 94)
3272 var l51 = f3("TERMINALP");
3276 return f84 = (function(v223){
3277 ((v223)["fname"] = "TERMINALP");
3279 })((function (v224){
3280 if (arguments.length < 1) throw 'too few arguments';
3281 if (arguments.length > 1) throw 'too many arguments';
3285 return (function(v225){
3286 return (v225 !== v2 ? v225 : (function(v226){
3287 return (v226 !== v2 ? v226 : (function(v227){
3288 return (v227 !== v2 ? v227 : f50(40, v224));
3295 if (cf.type == 'block' && cf.id == 96)
3306 var l52 = f3("READ-UNTIL");
3310 return f85 = (function(v228){
3311 ((v228)["fname"] = "READ-UNTIL");
3313 })((function (v229,v230){
3314 if (arguments.length < 2) throw 'too few arguments';
3315 if (arguments.length > 2) throw 'too many arguments';
3319 return (function(v231,v232){
3325 while((v232 !== v2 ? f17((v230)(v232)) : v2) !== v2){
3326 v231 = f69(v231, (function(){
3328 if (typeof x != 'number')
3329 throw 'The value ' + x + ' is not a type number.';
3330 return String.fromCharCode(x);
3339 if (cf.type == 'block' && cf.id == 98)
3350 if (cf.type == 'block' && cf.id == 97)
3361 var l53 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3365 return f86 = (function(v233){
3366 ((v233)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3368 })((function (v234){
3369 if (arguments.length < 1) throw 'too few arguments';
3370 if (arguments.length > 1) throw 'too many arguments';
3374 return (function(v235){
3381 while((v235 !== v2 ? f50(v235, 59) : v2) !== v2){
3382 f85(v234, (function (v236){
3383 if (arguments.length < 1) throw 'too few arguments';
3384 if (arguments.length > 1) throw 'too many arguments';
3385 return f50(v236, 10);
3395 if (cf.type == 'block' && cf.id == 100)
3405 if (cf.type == 'block' && cf.id == 99)
3416 var l54 = f3("%READ-LIST");
3420 return f87 = (function(v237){
3421 ((v237)["fname"] = "%READ-LIST");
3423 })((function (v238){
3424 if (arguments.length < 1) throw 'too few arguments';
3425 if (arguments.length > 1) throw 'too many arguments';
3430 return (function(v239){
3431 return (f1(v239) !== v2 ? (function(){
3433 throw "Unspected EOF";
3435 })() : (f50(v239, 41) !== v2 ? (function(){
3438 })() : (f50(v239, 46) !== v2 ? (function(){
3440 return (function(v240){
3442 (f50(f81(v238), 41) !== v2 ? v2 : (function(){
3444 throw "')' was expected.";
3450 return ({car: f88(v238), cdr: f87(v238)});
3456 if (cf.type == 'block' && cf.id == 101)
3467 var l55 = f3("READ-STRING");
3471 return f89 = (function(v241){
3472 ((v241)["fname"] = "READ-STRING");
3474 })((function (v242){
3475 if (arguments.length < 1) throw 'too few arguments';
3476 if (arguments.length > 1) throw 'too many arguments';
3480 return (function(v243,v244){
3486 while(f17(f16(v244, 34)) !== v2){
3487 (f1(v244) !== v2 ? (function(){
3489 throw "Unexpected EOF";
3492 (f16(v244, 92) !== v2 ? (function(){
3493 return v244 = f81(v242);
3495 v243 = f69(v243, (function(){
3497 if (typeof x != 'number')
3498 throw 'The value ' + x + ' is not a type number.';
3499 return String.fromCharCode(x);
3507 if (cf.type == 'block' && cf.id == 103)
3518 if (cf.type == 'block' && cf.id == 102)
3529 var l60 = f3("READ-SHARP");
3532 var l57 = f3("FUNCTION");
3537 return f90 = (function(v245){
3538 ((v245)["fname"] = "READ-SHARP");
3540 })((function (v246){
3541 if (arguments.length < 1) throw 'too few arguments';
3542 if (arguments.length > 1) throw 'too many arguments';
3547 return (function(v247){
3548 return (f16(v247, l56) !== v2 ? (function(){
3549 return f33(l57, f88(v246));
3550 })() : (f16(v247, l58) !== v2 ? (function(){
3551 return (function(v248){
3552 return (f68(v248, "space") !== v2 ? (function(){
3554 })() : (f68(v248, "tab") !== v2 ? (function(){
3556 })() : (f68(v248, "newline") !== v2 ? (function(){
3559 return f49((function(){
3562 if (typeof string != 'string')
3563 throw 'The value ' + string + ' is not a type string.';
3564 if (typeof index != 'number')
3565 throw 'The value ' + index + ' is not a type number.';
3566 return string.charCodeAt(index);
3571 if (typeof x != 'number')
3572 throw 'The value ' + x + ' is not a type number.';
3573 return String.fromCharCode(x);
3574 })(), f85(v246, f84)));
3575 })() : (f16(v247, l59) !== v2 ? (function(){
3576 return (function(v249){
3577 return (f68(v249, "common-lisp") !== v2 ? (function(){
3580 })() : (f68(v249, "ecmalisp") !== v2 ? (function(){
3584 throw "Unknown reader form.";
3590 throw "ECASE expression failed.";
3597 if (cf.type == 'block' && cf.id == 104)
3608 var l61 = f3("*EOF*");
3612 return v250 = (function(){
3614 if (typeof name != 'string')
3615 throw 'The value ' + name + ' is not a type string.';
3616 return ({name: name});
3621 var l66 = f3("LS-READ");
3622 var l65 = f3("UNQUOTE");
3623 var l64 = f3("UNQUOTE-SPLICING");
3624 var l63 = f3("BACKQUOTE");
3625 var l62 = f3("QUOTE");
3629 return f88 = (function(v251){
3630 ((v251)["fname"] = "LS-READ");
3632 })((function (v252){
3633 if (arguments.length < 1) throw 'too few arguments';
3634 if (arguments.length > 1) throw 'too many arguments';
3639 return (function(v253){
3640 return (f1(v253) !== v2 ? (function(){
3642 })() : (f50(v253, 40) !== v2 ? (function(){
3645 })() : (f50(v253, 39) !== v2 ? (function(){
3647 return f33(l62, f88(v252));
3648 })() : (f50(v253, 96) !== v2 ? (function(){
3650 return f33(l63, f88(v252));
3651 })() : (f50(v253, 34) !== v2 ? (function(){
3654 })() : (f50(v253, 44) !== v2 ? (function(){
3656 return (f16(f80(v252), 64) !== v2 ? (function(){
3658 return f33(l64, f88(v252));
3659 })() : f33(l65, f88(v252)));
3660 })() : (f50(v253, 35) !== v2 ? (function(){
3663 return (function(v254){
3664 return (f66(f62, v254) !== v2 ? f64(v254) : f3((function(){
3666 if (typeof x != 'string')
3667 throw 'The value ' + x + ' is not a type string.';
3668 return x.toUpperCase();
3676 if (cf.type == 'block' && cf.id == 105)
3687 var l67 = f3("LS-READ-FROM-STRING");
3691 return f91 = (function(v255){
3692 ((v255)["fname"] = "LS-READ-FROM-STRING");
3694 })((function (v256){
3695 if (arguments.length < 1) throw 'too few arguments';
3696 if (arguments.length > 1) throw 'too many arguments';
3700 return f88(f79(v256));
3704 if (cf.type == 'block' && cf.id == 106)
3715 var l69 = f3("*COMPILATION-UNIT-CHECKS*");
3716 var l68 = f3("NIL");
3724 var l70 = f3("MAKE-BINDING");
3728 return f92 = (function(v258){
3729 ((v258)["fname"] = "MAKE-BINDING");
3731 })((function (v259,v260,v261,v262){
3732 if (arguments.length < 4) throw 'too few arguments';
3733 if (arguments.length > 4) throw 'too many arguments';
3737 return f33(v259, v260, v261, v262);
3741 if (cf.type == 'block' && cf.id == 107)
3752 var l71 = f3("BINDING-NAME");
3756 return f93 = (function(v263){
3757 ((v263)["fname"] = "BINDING-NAME");
3759 })((function (v264){
3760 if (arguments.length < 1) throw 'too few arguments';
3761 if (arguments.length > 1) throw 'too many arguments';
3769 if (cf.type == 'block' && cf.id == 108)
3780 var l72 = f3("BINDING-TYPE");
3784 return f94 = (function(v265){
3785 ((v265)["fname"] = "BINDING-TYPE");
3787 })((function (v266){
3788 if (arguments.length < 1) throw 'too few arguments';
3789 if (arguments.length > 1) throw 'too many arguments';
3797 if (cf.type == 'block' && cf.id == 109)
3808 var l73 = f3("BINDING-TRANSLATION");
3812 return f95 = (function(v267){
3813 ((v267)["fname"] = "BINDING-TRANSLATION");
3815 })((function (v268){
3816 if (arguments.length < 1) throw 'too few arguments';
3817 if (arguments.length > 1) throw 'too many arguments';
3825 if (cf.type == 'block' && cf.id == 110)
3836 var l74 = f3("BINDING-DECLARED");
3840 return f96 = (function(v269){
3841 ((v269)["fname"] = "BINDING-DECLARED");
3843 })((function (v270){
3844 if (arguments.length < 1) throw 'too few arguments';
3845 if (arguments.length > 1) throw 'too many arguments';
3849 return (v270 !== v2 ? f32(v270) : v2);
3853 if (cf.type == 'block' && cf.id == 111)
3864 var l75 = f3("MARK-BINDING-AS-DECLARED");
3868 return f97 = (function(v271){
3869 ((v271)["fname"] = "MARK-BINDING-AS-DECLARED");
3871 })((function (v272){
3872 if (arguments.length < 1) throw 'too few arguments';
3873 if (arguments.length > 1) throw 'too many arguments';
3879 if (typeof x != 'object')
3880 throw 'The value ' + x + ' is not a type object.';
3881 return (x.car = v3);
3886 if (cf.type == 'block' && cf.id == 112)
3897 var l76 = f3("MAKE-LEXENV");
3901 return f98 = (function(v273){
3902 ((v273)["fname"] = "MAKE-LEXENV");
3905 if (arguments.length > 0) throw 'too many arguments';
3909 return f33(v2, v2, v2, v2);
3913 if (cf.type == 'block' && cf.id == 113)
3924 var l77 = f3("COPY-LEXENV");
3928 return f99 = (function(v274){
3929 ((v274)["fname"] = "COPY-LEXENV");
3931 })((function (v275){
3932 if (arguments.length < 1) throw 'too few arguments';
3933 if (arguments.length > 1) throw 'too many arguments';
3941 if (cf.type == 'block' && cf.id == 114)
3952 var l82 = f3("PUSH-TO-LEXENV");
3953 var l81 = f3("GOTAG");
3954 var l80 = f3("BLOCK");
3955 var l79 = f3("FUNCTION");
3956 var l78 = f3("VARIABLE");
3960 return f100 = (function(v276){
3961 ((v276)["fname"] = "PUSH-TO-LEXENV");
3963 })((function (v277,v278,v279){
3964 if (arguments.length < 3) throw 'too few arguments';
3965 if (arguments.length > 3) throw 'too many arguments';
3969 return (function(v280){
3970 return (f16(v280, l78) !== v2 ? (function(){
3973 if (typeof x != 'object')
3974 throw 'The value ' + x + ' is not a type object.';
3975 return (x.car = ({car: v277, cdr: (function(){
3977 return tmp === v2? v2: tmp.car;
3980 })() : (f16(v280, l79) !== v2 ? (function(){
3982 var x = (function(){
3984 return tmp === v2? v2: tmp.cdr;
3986 if (typeof x != 'object')
3987 throw 'The value ' + x + ' is not a type object.';
3988 return (x.car = ({car: v277, cdr: f23(v278)}));
3990 })() : (f16(v280, l80) !== v2 ? (function(){
3993 if (typeof x != 'object')
3994 throw 'The value ' + x + ' is not a type object.';
3995 return (x.car = ({car: v277, cdr: f26(v278)}));
3997 })() : (f16(v280, l81) !== v2 ? (function(){
4000 if (typeof x != 'object')
4001 throw 'The value ' + x + ' is not a type object.';
4002 return (x.car = ({car: v277, cdr: f28(v278)}));
4006 throw "ECASE expression failed.";
4013 if (cf.type == 'block' && cf.id == 115)
4024 var l83 = f3("EXTEND-LEXENV");
4028 return f101 = (function(v281){
4029 ((v281)["fname"] = "EXTEND-LEXENV");
4031 })((function (v282,v283,v284){
4032 if (arguments.length < 3) throw 'too few arguments';
4033 if (arguments.length > 3) throw 'too many arguments';
4037 return (function(v285){
4041 return (function(v286,v287){
4046 return tmp === v2? v2: tmp.car;
4049 f100(v287, v285, v284);
4054 return tmp === v2? v2: tmp.cdr;
4063 if (cf.type == 'block' && cf.id == 117)
4073 if (cf.type == 'block' && cf.id == 116)
4084 var l88 = f3("LOOKUP-IN-LEXENV");
4085 var l87 = f3("GOTAG");
4086 var l86 = f3("BLOCK");
4087 var l85 = f3("FUNCTION");
4088 var l84 = f3("VARIABLE");
4092 return f102 = (function(v288){
4093 ((v288)["fname"] = "LOOKUP-IN-LEXENV");
4095 })((function (v289,v290,v291){
4096 if (arguments.length < 3) throw 'too few arguments';
4097 if (arguments.length > 3) throw 'too many arguments';
4101 return f67(v289, (function(v292){
4102 return (f16(v292, l84) !== v2 ? (function(){
4104 })() : (f16(v292, l85) !== v2 ? (function(){
4106 })() : (f16(v292, l86) !== v2 ? (function(){
4108 })() : (f16(v292, l87) !== v2 ? (function(){
4112 throw "ECASE expression failed.";
4119 if (cf.type == 'block' && cf.id == 118)
4130 var l89 = f3("*ENVIRONMENT*");
4134 return v293 = f98();
4138 var l90 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
4142 return f103 = (function(v294){
4143 ((v294)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
4146 if (arguments.length > 0) throw 'too many arguments';
4150 return v293 = f45((function (v295){
4151 if (arguments.length < 1) throw 'too few arguments';
4152 if (arguments.length > 1) throw 'too many arguments';
4153 return f61(f96, v295);
4159 if (cf.type == 'block' && cf.id == 119)
4170 var l91 = f3("*VARIABLE-COUNTER*");
4178 var l92 = f3("GVARNAME");
4182 return f104 = (function(v297){
4183 ((v297)["fname"] = "GVARNAME");
4185 })((function (v298){
4186 if (arguments.length < 1) throw 'too few arguments';
4187 if (arguments.length > 1) throw 'too many arguments';
4191 return f69("v", f6(v296 = (function(){
4194 if (typeof x != 'number')
4195 throw 'The value ' + x + ' is not a type number.';
4196 if (typeof y != 'number')
4197 throw 'The value ' + y + ' is not a type number.';
4203 if (cf.type == 'block' && cf.id == 120)
4214 var l98 = f3("LOOKUP-VARIABLE");
4215 var l97 = f3("VARIABLE");
4216 var l96 = f3("VARIABLE");
4217 var l95 = f3("VARIABLE");
4218 var l94 = f3("VARIABLE");
4219 var l93 = f3("VARIABLE");
4223 return f105 = (function(v299){
4224 ((v299)["fname"] = "LOOKUP-VARIABLE");
4226 })((function (v300,v301){
4227 if (arguments.length < 2) throw 'too few arguments';
4228 if (arguments.length > 2) throw 'too many arguments';
4232 return (function(v302){
4233 return (v302 !== v2 ? v302 : (function(v303){
4234 return (v303 !== v2 ? v303 : (function(v304,v305){
4235 f100(v305, v293, l93);
4236 v257 = ({car: (function (){
4237 if (arguments.length > 0) throw 'too many arguments';
4238 return (function(v306){
4239 return (f96(v306) !== v2 ? v2 : (function(){
4241 throw f69("Undefined variable `", v304, "'");
4244 })(f102(v300, v293, l94));
4248 })((v300).name,f92(v300, l95, f104(v300), v2)));
4249 })(f102(v300, v293, l96)));
4250 })(f102(v300, v301, l97));
4254 if (cf.type == 'block' && cf.id == 121)
4265 var l99 = f3("LOOKUP-VARIABLE-TRANSLATION");
4269 return f106 = (function(v307){
4270 ((v307)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4272 })((function (v308,v309){
4273 if (arguments.length < 2) throw 'too few arguments';
4274 if (arguments.length > 2) throw 'too many arguments';
4278 return f95(f105(v308, v309));
4282 if (cf.type == 'block' && cf.id == 122)
4293 var l102 = f3("EXTEND-LOCAL-ENV");
4294 var l101 = f3("VARIABLE");
4295 var l100 = f3("VARIABLE");
4299 return f107 = (function(v310){
4300 ((v310)["fname"] = "EXTEND-LOCAL-ENV");
4302 })((function (v311,v312){
4303 if (arguments.length < 2) throw 'too few arguments';
4304 if (arguments.length > 2) throw 'too many arguments';
4308 return (function(v313){
4312 return (function(v314,v315){
4317 return tmp === v2? v2: tmp.car;
4321 return f100(v316, v313, l100);
4322 })(f92(v315, l101, f104(v315), v3));
4327 return tmp === v2? v2: tmp.cdr;
4336 if (cf.type == 'block' && cf.id == 124)
4346 if (cf.type == 'block' && cf.id == 123)
4357 var l103 = f3("*FUNCTION-COUNTER*");
4365 var l109 = f3("LOOKUP-FUNCTION");
4366 var l108 = f3("FUNCTION");
4367 var l107 = f3("FUNCTION");
4368 var l106 = f3("FUNCTION");
4369 var l105 = f3("FUNCTION");
4370 var l104 = f3("FUNCTION");
4374 return f108 = (function(v318){
4375 ((v318)["fname"] = "LOOKUP-FUNCTION");
4377 })((function (v319,v320){
4378 if (arguments.length < 2) throw 'too few arguments';
4379 if (arguments.length > 2) throw 'too many arguments';
4383 return (function(v321){
4384 return (v321 !== v2 ? v321 : (function(v322){
4385 return (v322 !== v2 ? v322 : (function(v323,v324){
4386 f100(v324, v293, l104);
4387 v257 = ({car: (function (){
4388 if (arguments.length > 0) throw 'too many arguments';
4389 return (function(v325){
4390 return (f96(v325) !== v2 ? v2 : (function(){
4392 throw f69("Undefined function `", v323, "'");
4395 })(f102(v319, v293, l105));
4399 })((v319).name,f92(v319, l106, f69("f", f6(v317 = (function(){
4402 if (typeof x != 'number')
4403 throw 'The value ' + x + ' is not a type number.';
4404 if (typeof y != 'number')
4405 throw 'The value ' + y + ' is not a type number.';
4408 })(f102(v319, v293, l107)));
4409 })(f102(v319, v320, l108));
4413 if (cf.type == 'block' && cf.id == 125)
4424 var l110 = f3("LOOKUP-FUNCTION-TRANSLATION");
4428 return f109 = (function(v326){
4429 ((v326)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4431 })((function (v327,v328){
4432 if (arguments.length < 2) throw 'too few arguments';
4433 if (arguments.length > 2) throw 'too many arguments';
4437 return f95(f108(v327, v328));
4441 if (cf.type == 'block' && cf.id == 126)
4452 var l111 = f3("*TOPLEVEL-COMPILATIONS*");
4460 var l112 = f3("%COMPILE-DEFVAR");
4464 return f110 = (function(v330){
4465 ((v330)["fname"] = "%COMPILE-DEFVAR");
4467 })((function (v331){
4468 if (arguments.length < 1) throw 'too few arguments';
4469 if (arguments.length > 1) throw 'too many arguments';
4473 return (function(v332){
4475 return v329 = ({car: f69("var ", f95(v332)), cdr: v329});
4476 })(f105(v331, v293));
4480 if (cf.type == 'block' && cf.id == 127)
4491 var l113 = f3("%COMPILE-DEFUN");
4495 return f111 = (function(v333){
4496 ((v333)["fname"] = "%COMPILE-DEFUN");
4498 })((function (v334){
4499 if (arguments.length < 1) throw 'too few arguments';
4500 if (arguments.length > 1) throw 'too many arguments';
4504 return (function(v335){
4506 return v329 = ({car: f69("var ", f95(v335)), cdr: v329});
4507 })(f108(v334, v293));
4511 if (cf.type == 'block' && cf.id == 128)
4522 var l116 = f3("%COMPILE-DEFMACRO");
4523 var l115 = f3("FUNCTION");
4524 var l114 = f3("MACRO");
4528 return f112 = (function(v336){
4529 ((v336)["fname"] = "%COMPILE-DEFMACRO");
4531 })((function (v337,v338){
4532 if (arguments.length < 2) throw 'too few arguments';
4533 if (arguments.length > 2) throw 'too many arguments';
4537 return f100(f92(v337, l114, v338, v3), v293, l115);
4541 if (cf.type == 'block' && cf.id == 129)
4552 var l117 = f3("*COMPILATIONS*");
4560 var l118 = f3("LS-COMPILE-BLOCK");
4564 return f113 = (function(v340){
4565 ((v340)["fname"] = "LS-COMPILE-BLOCK");
4567 })((function (v341,v342){
4568 if (arguments.length < 2) throw 'too few arguments';
4569 if (arguments.length > 2) throw 'too many arguments';
4573 return f71(f60((function (v343){
4574 if (arguments.length < 1) throw 'too few arguments';
4575 if (arguments.length > 1) throw 'too many arguments';
4576 return (function(v344){
4577 return (v344 !== v2 ? v344 : (((typeof(v343) == "string")?v3: v2) !== v2 ? f14(f43(v343)) : v2));
4580 }), f45((function (v345){
4581 if (arguments.length < 1) throw 'too few arguments';
4582 if (arguments.length > 1) throw 'too many arguments';
4583 return f74(v345, v342);
4585 }), v341)), f69(";", v179));
4589 if (cf.type == 'block' && cf.id == 130)
4600 var l119 = f3("IF");
4601 v339 = ({car: f33(l119, (function (v346,v347,v348,v349){
4602 if (arguments.length < 4) throw 'too few arguments';
4603 if (arguments.length > 4) throw 'too many arguments';
4607 return f69("(", f74(v347, v346), " !== ", f74(v2), " ? ", f74(v348, v346), " : ", f74(v349, v346), ")");
4611 if (cf.type == 'block' && cf.id == 131)
4619 var l121 = f3("*LAMBDA-LIST-KEYWORDS*");
4620 var l120 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4628 var l122 = f3("LIST-UNTIL-KEYWORD");
4632 return f114 = (function(v351){
4633 ((v351)["fname"] = "LIST-UNTIL-KEYWORD");
4635 })((function (v352){
4636 if (arguments.length < 1) throw 'too few arguments';
4637 if (arguments.length > 1) throw 'too many arguments';
4641 return ((function(v353){
4642 return (v353 !== v2 ? v353 : f58((function(){
4644 return tmp === v2? v2: tmp.car;
4646 })(f1(v352)) !== v2 ? v2 : ({car: (function(){
4648 return tmp === v2? v2: tmp.car;
4649 })(), cdr: f114((function(){
4651 return tmp === v2? v2: tmp.cdr;
4656 if (cf.type == 'block' && cf.id == 132)
4667 var l123 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4671 return f115 = (function(v354){
4672 ((v354)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4674 })((function (v355){
4675 if (arguments.length < 1) throw 'too few arguments';
4676 if (arguments.length > 1) throw 'too many arguments';
4684 if (cf.type == 'block' && cf.id == 133)
4695 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4696 var l124 = f3("&OPTIONAL");
4700 return f116 = (function(v356){
4701 ((v356)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4703 })((function (v357){
4704 if (arguments.length < 1) throw 'too few arguments';
4705 if (arguments.length > 1) throw 'too many arguments';
4709 return f45(f35, f114((function(){
4710 var tmp = f58(l124, v357);
4711 return tmp === v2? v2: tmp.cdr;
4716 if (cf.type == 'block' && cf.id == 134)
4727 var l126 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4731 return f117 = (function(v358){
4732 ((v358)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4734 })((function (v359){
4735 if (arguments.length < 1) throw 'too few arguments';
4736 if (arguments.length > 1) throw 'too many arguments';
4740 return f45(f20, f116(v359));
4744 if (cf.type == 'block' && cf.id == 135)
4755 var l128 = f3("LAMBDA-LIST-REST-ARGUMENT");
4756 var l127 = f3("&REST");
4760 return f118 = (function(v360){
4761 ((v360)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4763 })((function (v361){
4764 if (arguments.length < 1) throw 'too few arguments';
4765 if (arguments.length > 1) throw 'too many arguments';
4769 return (function(v362){
4772 return tmp === v2? v2: tmp.cdr;
4773 })() !== v2 ? (function(){
4775 throw "Bad lambda-list";
4780 return tmp === v2? v2: tmp.car;
4782 })(f114((function(){
4783 var tmp = f58(l127, v361);
4784 return tmp === v2? v2: tmp.cdr;
4789 if (cf.type == 'block' && cf.id == 136)
4800 var l129 = f3("LAMBDA");
4801 v339 = ({car: f33(l129, (function (v364,v365){
4802 if (arguments.length < 2) throw 'too few arguments';
4804 for (var i = arguments.length-1; i>=2; i--)
4805 v363 = {car: arguments[i], cdr:
4810 return (function(v366,v367,v368){
4811 return (function(v369,v370,v371){
4812 return f69("(function (", f70(f45((function (v372){
4813 if (arguments.length < 1) throw 'too few arguments';
4814 if (arguments.length > 1) throw 'too many arguments';
4815 return f106(v372, v371);
4817 }), f39(v366, v367)), ","), "){", v179, f72((v366 !== v2 ? f69("if (arguments.length < ", f6(v369), ") throw 'too few arguments';", v179) : ""), (f17(v368) !== v2 ? f69("if (arguments.length > ", f6((function(){
4820 if (typeof x != 'number')
4821 throw 'The value ' + x + ' is not a type number.';
4822 if (typeof y != 'number')
4823 throw 'The value ' + y + ' is not a type number.';
4825 })()), ") throw 'too many arguments';", v179) : ""), (v367 !== v2 ? f69("switch(arguments.length){", v179, (function(v373,v374,v375){
4834 if (typeof x != 'number')
4835 throw 'The value ' + x + ' is not a type number.';
4836 if (typeof y != 'number')
4837 throw 'The value ' + y + ' is not a type number.';
4839 })()?v3: v2) !== v2){
4841 v374 = ({car: f69("case ", f6((function(){
4844 if (typeof x != 'number')
4845 throw 'The value ' + x + ' is not a type number.';
4846 if (typeof y != 'number')
4847 throw 'The value ' + y + ' is not a type number.';
4849 })()), ":", v179, f106((function(){
4851 return tmp === v2? v2: tmp.car;
4852 })(), v371), "=", f74(f23(v376), v371), ";", v179), cdr: v374});
4853 return v375 = (function(){
4856 if (typeof x != 'number')
4857 throw 'The value ' + x + ' is not a type number.';
4858 if (typeof y != 'number')
4859 throw 'The value ' + y + ' is not a type number.';
4862 })(f55(v375, v373));
4868 if (cf.type == 'block' && cf.id == 138)
4874 v374 = ({car: f69("default: break;", v179), cdr: v374});
4875 return f70(f41(v374));
4877 })(f116(v365),v2,0), "}", v179) : ""), (v368 !== v2 ? (function(v377){
4878 return f69("var ", v377, "= ", f74(v2), ";", v179, "for (var i = arguments.length-1; i>=", f6((function(){
4881 if (typeof x != 'number')
4882 throw 'The value ' + x + ' is not a type number.';
4883 if (typeof y != 'number')
4884 throw 'The value ' + y + ' is not a type number.';
4886 })()), "; i--)", v179, f72(v377, " = ", "{car: arguments[i], cdr: "), v377, "};", v179);
4887 })(f106(v368, v371)) : ""), f69(f113(f57(v363), v371), "return ", f74((function(){
4888 var tmp = f56(v363);
4889 return tmp === v2? v2: tmp.car;
4890 })(), v371), ";")), v179, "})");
4891 })(f43(v366),f43(v367),f107(f39(f35(v368), v366, v367), v364));
4892 })(f115(v365),f117(v365),f118(v365));
4896 if (cf.type == 'block' && cf.id == 137)
4904 var l130 = f3("FSETQ");
4905 v339 = ({car: f33(l130, (function (v378,v379,v380){
4906 if (arguments.length < 3) throw 'too few arguments';
4907 if (arguments.length > 3) throw 'too many arguments';
4911 return f69(f109(v379, v378), " = ", f74(v380, v378));
4915 if (cf.type == 'block' && cf.id == 139)
4923 var l131 = f3("SETQ");
4924 v339 = ({car: f33(l131, (function (v381,v382,v383){
4925 if (arguments.length < 3) throw 'too few arguments';
4926 if (arguments.length > 3) throw 'too many arguments';
4930 return f69(f106(v382, v381), " = ", f74(v383, v381));
4934 if (cf.type == 'block' && cf.id == 140)
4942 var l132 = f3("ESCAPE-STRING");
4946 return f76 = (function(v384){
4947 ((v384)["fname"] = "ESCAPE-STRING");
4949 })((function (v385){
4950 if (arguments.length < 1) throw 'too few arguments';
4951 if (arguments.length > 1) throw 'too many arguments';
4955 return (function(v386,v387,v388){
4963 if (typeof x != 'number')
4964 throw 'The value ' + x + ' is not a type number.';
4965 if (typeof y != 'number')
4966 throw 'The value ' + y + ' is not a type number.';
4968 })()?v3: v2) !== v2){
4971 return (v390 !== v2 ? v390 : f50(v389, 92));
4972 })(f50(v389, 34)) !== v2 ? (function(){
4973 return v386 = f69(v386, "\\");
4975 (f50(v389, 10) !== v2 ? (function(){
4976 v386 = f69(v386, "\\");
4979 return v386 = f69(v386, (function(){
4981 if (typeof x != 'number')
4982 throw 'The value ' + x + ' is not a type number.';
4983 return String.fromCharCode(x);
4988 if (typeof string != 'string')
4989 throw 'The value ' + string + ' is not a type string.';
4990 if (typeof index != 'number')
4991 throw 'The value ' + index + ' is not a type number.';
4992 return string.charCodeAt(index);
4997 if (typeof x != 'number')
4998 throw 'The value ' + x + ' is not a type number.';
4999 if (typeof y != 'number')
5000 throw 'The value ' + y + ' is not a type number.';
5008 if (cf.type == 'block' && cf.id == 142)
5019 if (cf.type == 'block' && cf.id == 141)
5030 var l134 = f3("LITERAL->JS");
5031 var l133 = f3("INTERN");
5035 return f119 = (function(v391){
5036 ((v391)["fname"] = "LITERAL->JS");
5038 })((function (v392){
5039 if (arguments.length < 1) throw 'too few arguments';
5040 if (arguments.length > 1) throw 'too many arguments';
5044 return (f51(v392) !== v2 ? (function(){
5046 })() : (((typeof(v392) == "string")?v3: v2) !== v2 ? (function(){
5047 return f69("\"", f76(v392), "\"");
5048 })() : (((function(){
5050 return (typeof tmp == 'object' && 'name' in tmp);
5051 })()?v3: v2) !== v2 ? (function(){
5052 return f74(f39(f33(l133), f33(f76((v392).name))), v293);
5053 })() : (((function(){
5055 return (typeof tmp == 'object' && 'car' in tmp);
5056 })()?v3: v2) !== v2 ? (function(){
5057 return f69("{car: ", f119((function(){
5059 return tmp === v2? v2: tmp.car;
5060 })()), ", cdr: ", f119((function(){
5062 return tmp === v2? v2: tmp.cdr;
5068 if (cf.type == 'block' && cf.id == 143)
5079 var l135 = f3("*LITERAL-COUNTER*");
5087 var l136 = f3("LITERAL");
5091 return f120 = (function(v394){
5092 ((v394)["fname"] = "LITERAL");
5094 })((function (v395){
5095 if (arguments.length < 1) throw 'too few arguments';
5096 if (arguments.length > 1) throw 'too many arguments';
5100 return (function(v396){
5101 v329 = ({car: f69("var ", v396, " = ", f119(v395)), cdr: v329});
5103 })(f69("l", f6(v393 = (function(){
5106 if (typeof x != 'number')
5107 throw 'The value ' + x + ' is not a type number.';
5108 if (typeof y != 'number')
5109 throw 'The value ' + y + ' is not a type number.';
5115 if (cf.type == 'block' && cf.id == 144)
5126 var l137 = f3("QUOTE");
5127 v339 = ({car: f33(l137, (function (v397,v398){
5128 if (arguments.length < 2) throw 'too few arguments';
5129 if (arguments.length > 2) throw 'too many arguments';
5137 if (cf.type == 'block' && cf.id == 145)
5145 var l138 = f3("%WHILE");
5146 v339 = ({car: f33(l138, (function (v400,v401){
5147 if (arguments.length < 2) throw 'too few arguments';
5149 for (var i = arguments.length-1; i>=2; i--)
5150 v399 = {car: arguments[i], cdr:
5155 return f69("(function(){", v179, f72("while(", f74(v401, v400), " !== ", f74(v2), "){", v179, f72(f113(v399, v400)), "}", "return ", f74(v2), ";", v179), "})()");
5159 if (cf.type == 'block' && cf.id == 146)
5167 var l140 = f3("LAMBDA");
5168 var l139 = f3("FUNCTION");
5169 v339 = ({car: f33(l139, (function (v402,v403){
5170 if (arguments.length < 2) throw 'too few arguments';
5171 if (arguments.length > 2) throw 'too many arguments';
5175 return ((f36(v403) !== v2 ? (((function(){
5177 return tmp === v2? v2: tmp.car;
5178 })() === l140)?v3: v2) : v2) !== v2 ? (function(){
5179 return f74(v403, v402);
5180 })() : (((function(){
5182 return (typeof tmp == 'object' && 'name' in tmp);
5183 })()?v3: v2) !== v2 ? (function(){
5184 return f109(v403, v402);
5189 if (cf.type == 'block' && cf.id == 147)
5197 var l142 = f3("PROGN");
5198 var l141 = f3("EVAL-WHEN-COMPILE");
5199 v339 = ({car: f33(l141, (function (v405){
5200 if (arguments.length < 1) throw 'too few arguments';
5202 for (var i = arguments.length-1; i>=1; i--)
5203 v404 = {car: arguments[i], cdr:
5208 f121(({car: l142, cdr: v404}));
5213 if (cf.type == 'block' && cf.id == 148)
5221 var l143 = f3("PROGN");
5222 v339 = ({car: f33(l143, (function (v407){
5223 if (arguments.length < 1) throw 'too few arguments';
5225 for (var i = arguments.length-1; i>=1; i--)
5226 v406 = {car: arguments[i], cdr:
5231 return f69("(function(){", v179, f72(f113(f57(v406), v407), "return ", f74((function(){
5232 var tmp = f56(v406);
5233 return tmp === v2? v2: tmp.car;
5234 })(), v407), ";", v179), "})()");
5238 if (cf.type == 'block' && cf.id == 149)
5246 var l144 = f3("LET");
5247 v339 = ({car: f33(l144, (function (v409,v410){
5248 if (arguments.length < 2) throw 'too few arguments';
5250 for (var i = arguments.length-1; i>=2; i--)
5251 v408 = {car: arguments[i], cdr:
5256 return (function(v411){
5257 return (function(v412,v413){
5258 return (function(v414){
5259 return f69("(function(", f70(f45((function (v415){
5260 if (arguments.length < 1) throw 'too few arguments';
5261 if (arguments.length > 1) throw 'too many arguments';
5262 return f106(v415, v414);
5264 }), v412), ","), "){", v179, f72(f113(f57(v408), v414), "return ", f74((function(){
5265 var tmp = f56(v408);
5266 return tmp === v2? v2: tmp.car;
5267 })(), v414), ";", v179), "})(", f70(f45((function (v416){
5268 if (arguments.length < 1) throw 'too few arguments';
5269 if (arguments.length > 1) throw 'too many arguments';
5270 return f74(v416, v409);
5272 }), v413), ","), ")");
5273 })(f107(v412, v409));
5274 })(f45(f29, v411),f45(f30, v411));
5279 if (cf.type == 'block' && cf.id == 150)
5287 var l145 = f3("*BLOCK-COUNTER*");
5295 var l149 = f3("BLOCK");
5296 var l148 = f3("BLOCK");
5297 var l147 = f3("PROGN");
5298 var l146 = f3("BLOCK");
5299 v339 = ({car: f33(l146, (function (v419,v420){
5300 if (arguments.length < 2) throw 'too few arguments';
5302 for (var i = arguments.length-1; i>=2; i--)
5303 v418 = {car: arguments[i], cdr:
5308 return (function(v421){
5309 return (function(v422){
5310 return f69("(function(){", v179, f72("try {", v179, f72("return ", f74(f39(f33(l147), v418), f101(f33(v422), v419, l148)), ";", v179), "}", v179, "catch (cf){", v179, " if (cf.type == 'block' && cf.id == ", v421, ")", v179, " return cf.value;", v179, " else", v179, " throw cf;", v179, "}", v179), "})()");
5311 })(f92(v420, l149, v421, v3));
5312 })(f6(v417 = (function(){
5315 if (typeof x != 'number')
5316 throw 'The value ' + x + ' is not a type number.';
5317 if (typeof y != 'number')
5318 throw 'The value ' + y + ' is not a type number.';
5324 if (cf.type == 'block' && cf.id == 151)
5332 var l151 = f3("BLOCK");
5333 var l150 = f3("RETURN-FROM");
5334 v339 = ({car: f33(l150, (function (v423,v424,v425){
5335 if (arguments.length < 2) throw 'too few arguments';
5336 if (arguments.length > 3) throw 'too many arguments';
5337 switch(arguments.length){
5345 return (function(v426){
5346 return (v426 !== v2 ? f69("(function(){", v179, f72("throw ({", "type: 'block', ", "id: ", f95(v426), ", ", "value: ", f74(v425, v423), ", ", "message: 'Return from unknown block ", (v424).name, ".'", "})"), "})()") : (function(){
5347 throw f69("Unknown block `", (v424).name, "'.");
5349 })(f102(v424, v423, l151));
5353 if (cf.type == 'block' && cf.id == 152)
5361 var l153 = f3("PROGN");
5362 var l152 = f3("CATCH");
5363 v339 = ({car: f33(l152, (function (v428,v429){
5364 if (arguments.length < 2) throw 'too few arguments';
5366 for (var i = arguments.length-1; i>=2; i--)
5367 v427 = {car: arguments[i], cdr:
5372 return f69("(function(){", v179, f72("var id = ", f74(v429, v428), ";", v179, "try {", v179, f72("return ", f74(f39(f33(l153), v427)), ";", v179), "}", v179, "catch (cf){", v179, " if (cf.type == 'catch' && cf.id == id)", v179, " return cf.value;", v179, " else", v179, " throw cf;", v179, "}", v179), "})()");
5376 if (cf.type == 'block' && cf.id == 153)
5384 var l154 = f3("THROW");
5385 v339 = ({car: f33(l154, (function (v430,v431,v432){
5386 if (arguments.length < 2) throw 'too few arguments';
5387 if (arguments.length > 3) throw 'too many arguments';
5388 switch(arguments.length){
5396 return f69("(function(){", v179, f72("throw ({", "type: 'catch', ", "id: ", f74(v431, v430), ", ", "value: ", f74(v432, v430), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5400 if (cf.type == 'block' && cf.id == 154)
5408 var l155 = f3("*TAGBODY-COUNTER*");
5416 var l156 = f3("*GO-TAG-COUNTER*");
5424 var l157 = f3("GO-TAG-P");
5428 return f122 = (function(v435){
5429 ((v435)["fname"] = "GO-TAG-P");
5431 })((function (v436){
5432 if (arguments.length < 1) throw 'too few arguments';
5433 if (arguments.length > 1) throw 'too many arguments';
5437 return (function(v437){
5438 return (v437 !== v2 ? v437 : ((function(){
5440 return (typeof tmp == 'object' && 'name' in tmp);
5446 if (cf.type == 'block' && cf.id == 155)
5457 var l160 = f3("DECLARE-TAGBODY-TAGS");
5458 var l159 = f3("GOTAG");
5459 var l158 = f3("GOTAG");
5463 return f123 = (function(v438){
5464 ((v438)["fname"] = "DECLARE-TAGBODY-TAGS");
5466 })((function (v439,v440,v441){
5467 if (arguments.length < 3) throw 'too few arguments';
5468 if (arguments.length > 3) throw 'too many arguments';
5472 return (function(v442){
5473 return f101(v442, v439, l158);
5474 })(f45((function (v443){
5475 if (arguments.length < 1) throw 'too few arguments';
5476 if (arguments.length > 1) throw 'too many arguments';
5477 return (function(v444){
5478 return f92(v443, l159, f33(v440, v444), v3);
5479 })(f6(v434 = (function(){
5482 if (typeof x != 'number')
5483 throw 'The value ' + x + ' is not a type number.';
5484 if (typeof y != 'number')
5485 throw 'The value ' + y + ' is not a type number.';
5489 }), f61(f122, v441)));
5493 if (cf.type == 'block' && cf.id == 156)
5504 var l165 = f3("GOTAG");
5505 var l164 = f3("GOTAG");
5506 var l163 = f3("NIL");
5507 var l162 = f3("PROGN");
5508 var l161 = f3("TAGBODY");
5509 v339 = ({car: f33(l161, (function (v446){
5510 if (arguments.length < 1) throw 'too few arguments';
5512 for (var i = arguments.length-1; i>=1; i--)
5513 v445 = {car: arguments[i], cdr:
5518 (f65(f122, v445) !== v2 ? v2 : (function(){
5520 throw ({type: 'block', id: 157, value: f74(f39(f33(l162), v445, f33(l163)), v446), message: 'Return from unknown block TAGBODY.'})
5525 return tmp === v2? v2: tmp.car;
5526 })()) !== v2 ? v2 : (function(){
5527 return v445 = ({car: f5("START"), cdr: v445});
5529 return (function(v447){
5530 return (function(v448,v449){
5532 return v449 = f30(f95(v450));
5533 })(f102(f29(v445), v448, l164));
5534 return f69("(function(){", v179, f72("var tagbody_", v447, " = ", v449, ";", v179, "tbloop:", v179, "while (true) {", v179, f72("try {", v179, f72((function(v451){
5535 return f69("switch(tagbody_", v447, "){", v179, "case ", v449, ":", v179, (function(){
5538 return (function(v452,v453){
5543 return tmp === v2? v2: tmp.car;
5546 v451 = f69(v451, (function(){
5547 return (f17(f122(v453)) !== v2 ? f72(f74(v453, v448), ";", v179) : (function(v454){
5548 return f69("case ", f30(f95(v454)), ":", v179);
5549 })(f102(v453, v448, l165)));
5555 return tmp === v2? v2: tmp.cdr;
5562 return tmp === v2? v2: tmp.cdr;
5567 if (cf.type == 'block' && cf.id == 158)
5572 })(), "default:", v179, " break tbloop;", v179, "}", v179);
5573 })("")), "}", v179, "catch (jump) {", v179, " if (jump.type == 'tagbody' && jump.id == ", v447, ")", v179, " tagbody_", v447, " = jump.label;", v179, " else", v179, " throw(jump);", v179, "}", v179), "}", v179, "return ", f74(v2), ";", v179), "})()");
5574 })(f123(v446, v447, v445),v2);
5579 if (cf.type == 'block' && cf.id == 157)
5587 var l167 = f3("GOTAG");
5588 var l166 = f3("GO");
5589 v339 = ({car: f33(l166, (function (v455,v456){
5590 if (arguments.length < 2) throw 'too few arguments';
5591 if (arguments.length > 2) throw 'too many arguments';
5595 return (function(v457,v458){
5596 return (v457 !== v2 ? f69("(function(){", v179, f72("throw ({", "type: 'tagbody', ", "id: ", f29(f95(v457)), ", ", "label: ", f30(f95(v457)), ", ", "message: 'Attempt to GO to non-existing tag ", v458, "'", "})", v179), "})()") : (function(){
5597 throw f69("Unknown tag `", v458, "'.");
5599 })(f102(v456, v455, l167),(((function(){
5601 return (typeof tmp == 'object' && 'name' in tmp);
5602 })()?v3: v2) !== v2 ? (function(){
5604 })() : (f51(v456) !== v2 ? (function(){
5610 if (cf.type == 'block' && cf.id == 159)
5618 var l168 = f3("UNWIND-PROTECT");
5619 v339 = ({car: f33(l168, (function (v460,v461){
5620 if (arguments.length < 2) throw 'too few arguments';
5622 for (var i = arguments.length-1; i>=2; i--)
5623 v459 = {car: arguments[i], cdr:
5628 return f69("(function(){", v179, f72("var ret = ", f74(v2), ";", v179, "try {", v179, f72("ret = ", f74(v461, v460), ";", v179), "} finally {", v179, f72(f113(v459, v460)), "}", v179, "return ret;", v179), "})()");
5632 if (cf.type == 'block' && cf.id == 160)
5640 var l177 = f3("BACKQUOTE-EXPAND-1");
5641 var l176 = f3("LIST");
5642 var l175 = f3("UNQUOTE-SPLICING");
5643 var l174 = f3("LIST");
5644 var l173 = f3("UNQUOTE");
5645 var l172 = f3("APPEND");
5646 var l171 = f3("BACKQUOTE");
5647 var l170 = f3("UNQUOTE");
5648 var l169 = f3("QUOTE");
5652 return f124 = (function(v462){
5653 ((v462)["fname"] = "BACKQUOTE-EXPAND-1");
5655 })((function (v463){
5656 if (arguments.length < 1) throw 'too few arguments';
5657 if (arguments.length > 1) throw 'too many arguments';
5661 return (((function(){
5663 return (typeof tmp == 'object' && 'name' in tmp);
5664 })()?v3: v2) !== v2 ? (function(){
5665 return f33(l169, v463);
5666 })() : (f34(v463) !== v2 ? (function(){
5668 })() : ((((function(){
5670 return tmp === v2? v2: tmp.car;
5671 })() === l170)?v3: v2) !== v2 ? (function(){
5674 return tmp === v2? v2: tmp.car;
5676 })() : ((((function(){
5678 return tmp === v2? v2: tmp.car;
5679 })() === l171)?v3: v2) !== v2 ? (function(){
5680 return f124(f124(f23(v463)));
5682 return ({car: l172, cdr: f45((function (v464){
5683 if (arguments.length < 1) throw 'too few arguments';
5684 if (arguments.length > 1) throw 'too many arguments';
5685 return ((f36(v464) !== v2 ? (((function(){
5687 return tmp === v2? v2: tmp.car;
5688 })() === l173)?v3: v2) : v2) !== v2 ? (function(){
5689 return f33(l174, f23(v464));
5690 })() : ((f36(v464) !== v2 ? (((function(){
5692 return tmp === v2? v2: tmp.car;
5693 })() === l175)?v3: v2) : v2) !== v2 ? (function(){
5696 return f33(l176, f124(v464));
5704 if (cf.type == 'block' && cf.id == 161)
5715 var l179 = f3("BACKQUOTE-EXPAND");
5716 var l178 = f3("BACKQUOTE");
5720 return f125 = (function(v465){
5721 ((v465)["fname"] = "BACKQUOTE-EXPAND");
5723 })((function (v466){
5724 if (arguments.length < 1) throw 'too few arguments';
5725 if (arguments.length > 1) throw 'too many arguments';
5729 return ((f36(v466) !== v2 ? (((function(){
5731 return tmp === v2? v2: tmp.car;
5732 })() === l178)?v3: v2) : v2) !== v2 ? f124(f23(v466)) : v466);
5736 if (cf.type == 'block' && cf.id == 162)
5747 var l180 = f3("BACKQUOTE");
5748 v339 = ({car: f33(l180, (function (v467,v468){
5749 if (arguments.length < 2) throw 'too few arguments';
5750 if (arguments.length > 2) throw 'too many arguments';
5754 return f74(f124(v468), v467);
5758 if (cf.type == 'block' && cf.id == 163)
5766 var l181 = f3("NUM-OP-NUM");
5770 return f126 = (function(v469){
5771 ((v469)["fname"] = "NUM-OP-NUM");
5773 })((function (v470,v471,v472){
5774 if (arguments.length < 3) throw 'too few arguments';
5775 if (arguments.length > 3) throw 'too many arguments';
5779 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v470, ";", v179), f69("var ", "y", " = ", v472, ";", v179), f69("if (typeof ", "x", " != '", "number", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v179)), f69("if (typeof ", "y", " != '", "number", "')", v179, f72("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
5780 return f69("x", v471, "y");
5781 })(), ";", v179)), "})()");
5785 if (cf.type == 'block' && cf.id == 164)
5797 v339 = ({car: f33(l182, (function (v473,v474,v475){
5798 if (arguments.length < 3) throw 'too few arguments';
5799 if (arguments.length > 3) throw 'too many arguments';
5803 return (function(v476,v477){
5804 return f126(v476, "+", v477);
5805 })(f74(v474, v473),f74(v475, v473));
5809 if (cf.type == 'block' && cf.id == 165)
5818 v339 = ({car: f33(l183, (function (v478,v479,v480){
5819 if (arguments.length < 3) throw 'too few arguments';
5820 if (arguments.length > 3) throw 'too many arguments';
5824 return (function(v481,v482){
5825 return f126(v481, "-", v482);
5826 })(f74(v479, v478),f74(v480, v478));
5830 if (cf.type == 'block' && cf.id == 166)
5839 v339 = ({car: f33(l184, (function (v483,v484,v485){
5840 if (arguments.length < 3) throw 'too few arguments';
5841 if (arguments.length > 3) throw 'too many arguments';
5845 return (function(v486,v487){
5846 return f126(v486, "*", v487);
5847 })(f74(v484, v483),f74(v485, v483));
5851 if (cf.type == 'block' && cf.id == 167)
5860 v339 = ({car: f33(l185, (function (v488,v489,v490){
5861 if (arguments.length < 3) throw 'too few arguments';
5862 if (arguments.length > 3) throw 'too many arguments';
5866 return (function(v491,v492){
5867 return f126(v491, "/", v492);
5868 })(f74(v489, v488),f74(v490, v488));
5872 if (cf.type == 'block' && cf.id == 168)
5880 var l186 = f3("MOD");
5881 v339 = ({car: f33(l186, (function (v493,v494,v495){
5882 if (arguments.length < 3) throw 'too few arguments';
5883 if (arguments.length > 3) throw 'too many arguments';
5887 return (function(v496,v497){
5888 return f126(v496, "%", v497);
5889 })(f74(v494, v493),f74(v495, v493));
5893 if (cf.type == 'block' && cf.id == 169)
5902 v339 = ({car: f33(l187, (function (v498,v499,v500){
5903 if (arguments.length < 3) throw 'too few arguments';
5904 if (arguments.length > 3) throw 'too many arguments';
5908 return (function(v501,v502){
5909 return f73(f126(v501, "<", v502));
5910 })(f74(v499, v498),f74(v500, v498));
5914 if (cf.type == 'block' && cf.id == 170)
5923 v339 = ({car: f33(l188, (function (v503,v504,v505){
5924 if (arguments.length < 3) throw 'too few arguments';
5925 if (arguments.length > 3) throw 'too many arguments';
5929 return (function(v506,v507){
5930 return f73(f126(v506, ">", v507));
5931 })(f74(v504, v503),f74(v505, v503));
5935 if (cf.type == 'block' && cf.id == 171)
5944 v339 = ({car: f33(l189, (function (v508,v509,v510){
5945 if (arguments.length < 3) throw 'too few arguments';
5946 if (arguments.length > 3) throw 'too many arguments';
5950 return (function(v511,v512){
5951 return f73(f126(v511, "==", v512));
5952 })(f74(v509, v508),f74(v510, v508));
5956 if (cf.type == 'block' && cf.id == 172)
5964 var l190 = f3("<=");
5965 v339 = ({car: f33(l190, (function (v513,v514,v515){
5966 if (arguments.length < 3) throw 'too few arguments';
5967 if (arguments.length > 3) throw 'too many arguments';
5971 return (function(v516,v517){
5972 return f73(f126(v516, "<=", v517));
5973 })(f74(v514, v513),f74(v515, v513));
5977 if (cf.type == 'block' && cf.id == 173)
5985 var l191 = f3(">=");
5986 v339 = ({car: f33(l191, (function (v518,v519,v520){
5987 if (arguments.length < 3) throw 'too few arguments';
5988 if (arguments.length > 3) throw 'too many arguments';
5992 return (function(v521,v522){
5993 return f73(f126(v521, ">=", v522));
5994 })(f74(v519, v518),f74(v520, v518));
5998 if (cf.type == 'block' && cf.id == 174)
6006 var l192 = f3("NUMBERP");
6007 v339 = ({car: f33(l192, (function (v523,v524){
6008 if (arguments.length < 2) throw 'too few arguments';
6009 if (arguments.length > 2) throw 'too many arguments';
6013 return (function(v525){
6014 return f73(f69("(typeof (", v525, ") == \"number\")"));
6015 })(f74(v524, v523));
6019 if (cf.type == 'block' && cf.id == 175)
6027 var l193 = f3("FLOOR");
6028 v339 = ({car: f33(l193, (function (v526,v527){
6029 if (arguments.length < 2) throw 'too few arguments';
6030 if (arguments.length > 2) throw 'too many arguments';
6034 return (function(v528){
6035 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v528, ";", v179), f69("if (typeof ", "x", " != '", "number", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
6036 return "Math.floor(x)";
6037 })(), ";", v179)), "})()");
6038 })(f74(v527, v526));
6042 if (cf.type == 'block' && cf.id == 176)
6050 var l194 = f3("CONS");
6051 v339 = ({car: f33(l194, (function (v529,v530,v531){
6052 if (arguments.length < 3) throw 'too few arguments';
6053 if (arguments.length > 3) throw 'too many arguments';
6057 return (function(v532,v533){
6058 return f69("({car: ", v532, ", cdr: ", v533, "})");
6059 })(f74(v530, v529),f74(v531, v529));
6063 if (cf.type == 'block' && cf.id == 177)
6071 var l195 = f3("CONSP");
6072 v339 = ({car: f33(l195, (function (v534,v535){
6073 if (arguments.length < 2) throw 'too few arguments';
6074 if (arguments.length > 2) throw 'too many arguments';
6078 return (function(v536){
6079 return f73(f69("(function(){", v179, f72("var tmp = ", v536, ";", v179, "return (typeof tmp == 'object' && 'car' in tmp);", v179), "})()"));
6080 })(f74(v535, v534));
6084 if (cf.type == 'block' && cf.id == 178)
6092 var l196 = f3("CAR");
6093 v339 = ({car: f33(l196, (function (v537,v538){
6094 if (arguments.length < 2) throw 'too few arguments';
6095 if (arguments.length > 2) throw 'too many arguments';
6099 return (function(v539){
6100 return f69("(function(){", v179, f72("var tmp = ", v539, ";", v179, "return tmp === ", f74(v2), "? ", f74(v2), ": tmp.car;", v179), "})()");
6101 })(f74(v538, v537));
6105 if (cf.type == 'block' && cf.id == 179)
6113 var l197 = f3("CDR");
6114 v339 = ({car: f33(l197, (function (v540,v541){
6115 if (arguments.length < 2) throw 'too few arguments';
6116 if (arguments.length > 2) throw 'too many arguments';
6120 return (function(v542){
6121 return f69("(function(){", v179, f72("var tmp = ", v542, ";", v179, "return tmp === ", f74(v2), "? ", f74(v2), ": tmp.cdr;", v179), "})()");
6122 })(f74(v541, v540));
6126 if (cf.type == 'block' && cf.id == 180)
6134 var l198 = f3("SETCAR");
6135 v339 = ({car: f33(l198, (function (v543,v544,v545){
6136 if (arguments.length < 3) throw 'too few arguments';
6137 if (arguments.length > 3) throw 'too many arguments';
6141 return (function(v546,v547){
6142 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v546, ";", v179), f69("if (typeof ", "x", " != '", "object", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v179)), f69("return ", (function(){
6143 return f69("(x.car = ", v547, ")");
6144 })(), ";", v179)), "})()");
6145 })(f74(v544, v543),f74(v545, v543));
6149 if (cf.type == 'block' && cf.id == 181)
6157 var l199 = f3("SETCDR");
6158 v339 = ({car: f33(l199, (function (v548,v549,v550){
6159 if (arguments.length < 3) throw 'too few arguments';
6160 if (arguments.length > 3) throw 'too many arguments';
6164 return (function(v551,v552){
6165 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v551, ";", v179), f69("if (typeof ", "x", " != '", "object", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v179)), f69("return ", (function(){
6166 return f69("(x.cdr = ", v552, ")");
6167 })(), ";", v179)), "})()");
6168 })(f74(v549, v548),f74(v550, v548));
6172 if (cf.type == 'block' && cf.id == 182)
6180 var l200 = f3("SYMBOLP");
6181 v339 = ({car: f33(l200, (function (v553,v554){
6182 if (arguments.length < 2) throw 'too few arguments';
6183 if (arguments.length > 2) throw 'too many arguments';
6187 return (function(v555){
6188 return f73(f69("(function(){", v179, f72("var tmp = ", v555, ";", v179, "return (typeof tmp == 'object' && 'name' in tmp);", v179), "})()"));
6189 })(f74(v554, v553));
6193 if (cf.type == 'block' && cf.id == 183)
6201 var l201 = f3("MAKE-SYMBOL");
6202 v339 = ({car: f33(l201, (function (v556,v557){
6203 if (arguments.length < 2) throw 'too few arguments';
6204 if (arguments.length > 2) throw 'too many arguments';
6208 return (function(v558){
6209 return f69("(function(){", v179, f72(f69("var ", "name", " = ", v558, ";", v179), f69("if (typeof ", "name", " != '", "string", "')", v179, f72("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6210 return "({name: name})";
6211 })(), ";", v179)), "})()");
6212 })(f74(v557, v556));
6216 if (cf.type == 'block' && cf.id == 184)
6224 var l202 = f3("SYMBOL-NAME");
6225 v339 = ({car: f33(l202, (function (v559,v560){
6226 if (arguments.length < 2) throw 'too few arguments';
6227 if (arguments.length > 2) throw 'too many arguments';
6231 return (function(v561){
6232 return f69("(", v561, ").name");
6233 })(f74(v560, v559));
6237 if (cf.type == 'block' && cf.id == 185)
6245 var l203 = f3("EQ");
6246 v339 = ({car: f33(l203, (function (v562,v563,v564){
6247 if (arguments.length < 3) throw 'too few arguments';
6248 if (arguments.length > 3) throw 'too many arguments';
6252 return (function(v565,v566){
6253 return f73(f69("(", v565, " === ", v566, ")"));
6254 })(f74(v563, v562),f74(v564, v562));
6258 if (cf.type == 'block' && cf.id == 186)
6266 var l204 = f3("EQUAL");
6267 v339 = ({car: f33(l204, (function (v567,v568,v569){
6268 if (arguments.length < 3) throw 'too few arguments';
6269 if (arguments.length > 3) throw 'too many arguments';
6273 return (function(v570,v571){
6274 return f73(f69("(", v570, " == ", v571, ")"));
6275 })(f74(v568, v567),f74(v569, v567));
6279 if (cf.type == 'block' && cf.id == 187)
6287 var l205 = f3("STRING");
6288 v339 = ({car: f33(l205, (function (v572,v573){
6289 if (arguments.length < 2) throw 'too few arguments';
6290 if (arguments.length > 2) throw 'too many arguments';
6294 return (function(v574){
6295 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v574, ";", v179), f69("if (typeof ", "x", " != '", "number", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
6296 return "String.fromCharCode(x)";
6297 })(), ";", v179)), "})()");
6298 })(f74(v573, v572));
6302 if (cf.type == 'block' && cf.id == 188)
6310 var l206 = f3("STRINGP");
6311 v339 = ({car: f33(l206, (function (v575,v576){
6312 if (arguments.length < 2) throw 'too few arguments';
6313 if (arguments.length > 2) throw 'too many arguments';
6317 return (function(v577){
6318 return f73(f69("(typeof(", v577, ") == \"string\")"));
6319 })(f74(v576, v575));
6323 if (cf.type == 'block' && cf.id == 189)
6331 var l207 = f3("STRING-UPCASE");
6332 v339 = ({car: f33(l207, (function (v578,v579){
6333 if (arguments.length < 2) throw 'too few arguments';
6334 if (arguments.length > 2) throw 'too many arguments';
6338 return (function(v580){
6339 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v580, ";", v179), f69("if (typeof ", "x", " != '", "string", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6340 return "x.toUpperCase()";
6341 })(), ";", v179)), "})()");
6342 })(f74(v579, v578));
6346 if (cf.type == 'block' && cf.id == 190)
6354 var l208 = f3("STRING-LENGTH");
6355 v339 = ({car: f33(l208, (function (v581,v582){
6356 if (arguments.length < 2) throw 'too few arguments';
6357 if (arguments.length > 2) throw 'too many arguments';
6361 return (function(v583){
6362 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v583, ";", v179), f69("if (typeof ", "x", " != '", "string", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6364 })(), ";", v179)), "})()");
6365 })(f74(v582, v581));
6369 if (cf.type == 'block' && cf.id == 191)
6377 var l209 = f3("SLICE");
6378 v339 = ({car: f33(l209, (function (v584,v585,v586,v587){
6379 if (arguments.length < 3) throw 'too few arguments';
6380 if (arguments.length > 4) throw 'too many arguments';
6381 switch(arguments.length){
6389 return f69("(function(){", v179, f72("var str = ", f74(v585, v584), ";", v179, "var a = ", f74(v586, v584), ";", v179, "var b;", v179, (v587 !== v2 ? f69("b = ", f74(v587, v584), ";", v179) : ""), "return str.slice(a,b);", v179), "})()");
6393 if (cf.type == 'block' && cf.id == 192)
6401 var l210 = f3("CHAR");
6402 v339 = ({car: f33(l210, (function (v588,v589,v590){
6403 if (arguments.length < 3) throw 'too few arguments';
6404 if (arguments.length > 3) throw 'too many arguments';
6408 return (function(v591,v592){
6409 return f69("(function(){", v179, f72(f69("var ", "string", " = ", v591, ";", v179), f69("var ", "index", " = ", v592, ";", v179), f69("if (typeof ", "string", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v179)), f69("if (typeof ", "index", " != '", "number", "')", v179, f72("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
6410 return "string.charCodeAt(index)";
6411 })(), ";", v179)), "})()");
6412 })(f74(v589, v588),f74(v590, v588));
6416 if (cf.type == 'block' && cf.id == 193)
6424 var l211 = f3("CONCAT-TWO");
6425 v339 = ({car: f33(l211, (function (v593,v594,v595){
6426 if (arguments.length < 3) throw 'too few arguments';
6427 if (arguments.length > 3) throw 'too many arguments';
6431 return (function(v596,v597){
6432 return f69("(function(){", v179, f72(f69("var ", "string1", " = ", v596, ";", v179), f69("var ", "string2", " = ", v597, ";", v179), f69("if (typeof ", "string1", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v179)), f69("if (typeof ", "string2", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6433 return "string1.concat(string2)";
6434 })(), ";", v179)), "})()");
6435 })(f74(v594, v593),f74(v595, v593));
6439 if (cf.type == 'block' && cf.id == 194)
6447 var l212 = f3("FUNCALL");
6448 v339 = ({car: f33(l212, (function (v599,v600){
6449 if (arguments.length < 2) throw 'too few arguments';
6451 for (var i = arguments.length-1; i>=2; i--)
6452 v598 = {car: arguments[i], cdr:
6457 return f69("(", f74(v600, v599), ")(", f70(f45((function (v601){
6458 if (arguments.length < 1) throw 'too few arguments';
6459 if (arguments.length > 1) throw 'too many arguments';
6460 return f74(v601, v599);
6462 }), v598), ", "), ")");
6466 if (cf.type == 'block' && cf.id == 195)
6474 var l213 = f3("APPLY");
6475 v339 = ({car: f33(l213, (function (v603,v604){
6476 if (arguments.length < 2) throw 'too few arguments';
6478 for (var i = arguments.length-1; i>=2; i--)
6479 v602 = {car: arguments[i], cdr:
6484 return (f1(v602) !== v2 ? f69("(", f74(v604, v603), ")()") : (function(v605,v606){
6485 return f69("(function(){", v179, f72("var f = ", f74(v604, v603), ";", v179, "var args = [", f70(f45((function (v607){
6486 if (arguments.length < 1) throw 'too few arguments';
6487 if (arguments.length > 1) throw 'too many arguments';
6488 return f74(v607, v603);
6490 }), v605), ", "), "];", v179, "var tail = (", f74(v606, v603), ");", v179, "while (tail != ", f74(v2), "){", v179, " args.push(tail.car);", v179, " tail = tail.cdr;", v179, "}", v179, "return f.apply(this, args);", v179), "})()");
6491 })(f57(v602),(function(){
6492 var tmp = f56(v602);
6493 return tmp === v2? v2: tmp.car;
6498 if (cf.type == 'block' && cf.id == 196)
6506 var l214 = f3("JS-EVAL");
6507 v339 = ({car: f33(l214, (function (v608,v609){
6508 if (arguments.length < 2) throw 'too few arguments';
6509 if (arguments.length > 2) throw 'too many arguments';
6513 return (function(v610){
6514 return f69("(function(){", v179, f72(f69("var ", "string", " = ", v610, ";", v179), f69("if (typeof ", "string", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6515 return "eval.apply(window, [string])";
6516 })(), ";", v179)), "})()");
6517 })(f74(v609, v608));
6521 if (cf.type == 'block' && cf.id == 197)
6529 var l215 = f3("ERROR");
6530 v339 = ({car: f33(l215, (function (v611,v612){
6531 if (arguments.length < 2) throw 'too few arguments';
6532 if (arguments.length > 2) throw 'too many arguments';
6536 return (function(v613){
6537 return f69("(function(){", v179, f72("throw ", v613, ";", v179), "})()");
6538 })(f74(v612, v611));
6542 if (cf.type == 'block' && cf.id == 198)
6550 var l216 = f3("NEW");
6551 v339 = ({car: f33(l216, (function (v614){
6552 if (arguments.length < 1) throw 'too few arguments';
6553 if (arguments.length > 1) throw 'too many arguments';
6563 if (cf.type == 'block' && cf.id == 199)
6571 var l217 = f3("GET");
6572 v339 = ({car: f33(l217, (function (v615,v616,v617){
6573 if (arguments.length < 3) throw 'too few arguments';
6574 if (arguments.length > 3) throw 'too many arguments';
6578 return (function(v618,v619){
6579 return f69("(function(){", v179, f72("var tmp = ", "(", v618, ")[", v619, "];", v179, "return tmp == undefined? ", f74(v2), ": tmp ;", v179), "})()");
6580 })(f74(v616, v615),f74(v617, v615));
6584 if (cf.type == 'block' && cf.id == 200)
6592 var l218 = f3("SET");
6593 v339 = ({car: f33(l218, (function (v620,v621,v622,v623){
6594 if (arguments.length < 4) throw 'too few arguments';
6595 if (arguments.length > 4) throw 'too many arguments';
6599 return (function(v624,v625,v626){
6600 return f69("((", v624, ")[", v625, "] = ", v626, ")");
6601 })(f74(v621, v620),f74(v622, v620),f74(v623, v620));
6605 if (cf.type == 'block' && cf.id == 201)
6613 var l219 = f3("IN");
6614 v339 = ({car: f33(l219, (function (v627,v628,v629){
6615 if (arguments.length < 3) throw 'too few arguments';
6616 if (arguments.length > 3) throw 'too many arguments';
6620 return (function(v630,v631){
6621 return f73(f69("((", v630, ") in (", v631, "))"));
6622 })(f74(v628, v627),f74(v629, v627));
6626 if (cf.type == 'block' && cf.id == 202)
6634 var l220 = f3("FUNCTIONP");
6635 v339 = ({car: f33(l220, (function (v632,v633){
6636 if (arguments.length < 2) throw 'too few arguments';
6637 if (arguments.length > 2) throw 'too many arguments';
6641 return (function(v634){
6642 return f73(f69("(typeof ", v634, " == 'function')"));
6643 })(f74(v633, v632));
6647 if (cf.type == 'block' && cf.id == 203)
6655 var l221 = f3("WRITE-STRING");
6656 v339 = ({car: f33(l221, (function (v635,v636){
6657 if (arguments.length < 2) throw 'too few arguments';
6658 if (arguments.length > 2) throw 'too many arguments';
6662 return (function(v637){
6663 return f69("(function(){", v179, f72(f69("var ", "x", " = ", v637, ";", v179), f69("if (typeof ", "x", " != '", "string", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6664 return "lisp.write(x)";
6665 })(), ";", v179)), "})()");
6666 })(f74(v636, v635));
6670 if (cf.type == 'block' && cf.id == 204)
6678 var l223 = f3("MACROP");
6679 var l222 = f3("MACRO");
6683 return f127 = (function(v638){
6684 ((v638)["fname"] = "MACROP");
6686 })((function (v639){
6687 if (arguments.length < 1) throw 'too few arguments';
6688 if (arguments.length > 1) throw 'too many arguments';
6692 return (((function(){
6694 return (typeof tmp == 'object' && 'name' in tmp);
6695 })()?v3: v2) !== v2 ? ((f94(f108(v639, v293)) === l222)?v3: v2) : v2);
6699 if (cf.type == 'block' && cf.id == 205)
6710 var l225 = f3("LS-MACROEXPAND-1");
6711 var l224 = f3("MACRO");
6715 return f128 = (function(v640){
6716 ((v640)["fname"] = "LS-MACROEXPAND-1");
6718 })((function (v641,v642){
6719 if (arguments.length < 2) throw 'too few arguments';
6720 if (arguments.length > 2) throw 'too many arguments';
6724 return (f127((function(){
6726 return tmp === v2? v2: tmp.car;
6727 })()) !== v2 ? (function(v643){
6728 return (((f94(v643) === l224)?v3: v2) !== v2 ? (function(){
6729 var f = f121(f95(v643));
6731 var tail = ((function(){
6733 return tmp === v2? v2: tmp.cdr;
6736 args.push(tail.car);
6739 return f.apply(this, args);
6741 })(f108((function(){
6743 return tmp === v2? v2: tmp.car;
6744 })(), v293)) : v641);
6748 if (cf.type == 'block' && cf.id == 206)
6759 var l227 = f3("COMPILE-FUNCALL");
6760 var l226 = f3("LAMBDA");
6764 return f129 = (function(v644){
6765 ((v644)["fname"] = "COMPILE-FUNCALL");
6767 })((function (v645,v646,v647){
6768 if (arguments.length < 3) throw 'too few arguments';
6769 if (arguments.length > 3) throw 'too many arguments';
6773 return (((function(){
6775 return (typeof tmp == 'object' && 'name' in tmp);
6776 })()?v3: v2) !== v2 ? (function(){
6777 return f69(f109(v645, v647), "(", f70(f45((function (v648){
6778 if (arguments.length < 1) throw 'too few arguments';
6779 if (arguments.length > 1) throw 'too many arguments';
6780 return f74(v648, v647);
6782 }), v646), ", "), ")");
6783 })() : ((f36(v645) !== v2 ? (((function(){
6785 return tmp === v2? v2: tmp.car;
6786 })() === l226)?v3: v2) : v2) !== v2 ? (function(){
6787 return f69("(", f74(v645, v647), ")(", f70(f45((function (v649){
6788 if (arguments.length < 1) throw 'too few arguments';
6789 if (arguments.length > 1) throw 'too many arguments';
6790 return f74(v649, v647);
6792 }), v646), ", "), ")");
6795 throw f69("Invalid function designator ", (v645).name);
6801 if (cf.type == 'block' && cf.id == 207)
6812 var l228 = f3("LS-COMPILE");
6816 return f74 = (function(v650){
6817 ((v650)["fname"] = "LS-COMPILE");
6819 })((function (v651,v652){
6820 if (arguments.length < 1) throw 'too few arguments';
6821 if (arguments.length > 2) throw 'too many arguments';
6822 switch(arguments.length){
6830 return (((function(){
6832 return (typeof tmp == 'object' && 'name' in tmp);
6833 })()?v3: v2) !== v2 ? (function(){
6834 return f106(v651, v652);
6835 })() : (f51(v651) !== v2 ? (function(){
6837 })() : (((typeof(v651) == "string")?v3: v2) !== v2 ? (function(){
6838 return f69("\"", f76(v651), "\"");
6839 })() : (f36(v651) !== v2 ? (function(){
6840 return (f67((function(){
6842 return tmp === v2? v2: tmp.car;
6843 })(), v339) !== v2 ? (function(v653){
6847 var tail = ((function(){
6849 return tmp === v2? v2: tmp.cdr;
6852 args.push(tail.car);
6855 return f.apply(this, args);
6857 })(f30(f67((function(){
6859 return tmp === v2? v2: tmp.car;
6860 })(), v339))) : (f127((function(){
6862 return tmp === v2? v2: tmp.car;
6863 })()) !== v2 ? f74(f128(v651, v652), v652) : f129((function(){
6865 return tmp === v2? v2: tmp.car;
6868 return tmp === v2? v2: tmp.cdr;
6874 if (cf.type == 'block' && cf.id == 208)
6885 var l229 = f3("LS-COMPILE-TOPLEVEL");
6889 return f130 = (function(v654){
6890 ((v654)["fname"] = "LS-COMPILE-TOPLEVEL");
6892 })((function (v655){
6893 if (arguments.length < 1) throw 'too few arguments';
6894 if (arguments.length > 1) throw 'too many arguments';
6899 return (function(v656){
6900 return (function(v657){
6903 })(f69(f70(f45((function (v658){
6904 if (arguments.length < 1) throw 'too few arguments';
6905 if (arguments.length > 1) throw 'too many arguments';
6906 return f69(v658, ";", v179);
6913 if (cf.type == 'block' && cf.id == 209)
6924 var l240 = f3("LS-COMPILE-TOPLEVEL");
6925 var l239 = f3("EVAL");
6926 var l238 = f3("PRIN1-TO-STRING");
6927 var l237 = f3("LS-READ-FROM-STRING");
6933 var l231 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v434", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v433", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v417", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v393", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v350", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v339", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v329", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v317", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v296", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v293", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v257", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v250", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v179", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f130", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECLARE-TAGBODY-TAGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GO-TAG-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", 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: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTHCDR"), 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("REVAPPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}};
6934 var l230 = f3("EVAL");
6947 return f121 = (function(v659){
6948 ((v659)["fname"] = "EVAL");
6950 })((function (v660){
6951 if (arguments.length < 1) throw 'too few arguments';
6952 if (arguments.length > 1) throw 'too many arguments';
6956 return (function(v661){
6959 if (typeof string != 'string')
6960 throw 'The value ' + string + ' is not a type string.';
6961 return eval.apply(window, [string]);
6967 return (function(v663,v664){
6972 return tmp === v2? v2: tmp.car;
6980 return tmp === v2? v2: tmp.cdr;
6989 if (cf.type == 'block' && cf.id == 211)
7004 if (cf.type == 'block' && cf.id == 210)
7016 var string = f69("var lisp = {};", "lisp.read = ", f109(l237, v2), ";", v179, "lisp.print = ", f109(l238, v2), ";", v179, "lisp.eval = ", f109(l239, v2), ";", v179, "lisp.compile = ", f109(l240, v2), ";", v179, "lisp.evalString = function(str){", v179, " return lisp.eval(lisp.read(str));", v179, "}", v179, "lisp.compileString = function(str){", v179, " return lisp.compile(lisp.read(str));", v179, "}", v179);
7017 if (typeof string != 'string')
7018 throw 'The value ' + string + ' is not a type string.';
7019 return eval.apply(window, [string]);