| blob | 984d67dd52f27dfcc5391719aeaa44793b2b5f7c |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
3 ;;; "f2cl2.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 1409c1352feb 2013/03/24 20:44:50 toy $")
10 ;;; Using Lisp CMU Common Lisp snapshot-2020-04 (21D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format single-float))
54 ch-%offset%)
55 (+
59 cc-%offset%)
60 (+
64 cc-%offset%)
68 cc-%offset%))
69 (+
73 cc-%offset%)
77 cc-%offset%))))
81 ch-%offset%)
82 (+
86 cc-%offset%)
87 (* tr11
88 (+
92 cc-%offset%)
96 cc-%offset%)))
97 (* tr12
98 (+
102 cc-%offset%)
106 cc-%offset%)))))
110 ch-%offset%)
111 (+
112 (* ti11
117 cc-%offset%)
121 cc-%offset%)))
122 (* ti12
127 cc-%offset%)
131 cc-%offset%)))))
135 ch-%offset%)
136 (+
140 cc-%offset%)
141 (* tr12
142 (+
146 cc-%offset%)
150 cc-%offset%)))
151 (* tr11
152 (+
156 cc-%offset%)
160 cc-%offset%)))))
164 ch-%offset%)
166 (* ti12
171 cc-%offset%)
175 cc-%offset%)))
176 (* ti11
181 cc-%offset%)
185 cc-%offset%)))))
186 label1001))
187 label101))
205 ch-%offset%)
206 (+
210 cc-%offset%)
211 (+
212 (*
216 wa1-%offset%)
220 cc-%offset%))
221 (*
225 wa1-%offset%)
229 cc-%offset%))
230 (+
231 (*
235 wa4-%offset%)
239 cc-%offset%))
240 (*
244 wa4-%offset%)
248 cc-%offset%))))
249 (+
250 (*
254 wa2-%offset%)
258 cc-%offset%))
259 (*
263 wa2-%offset%)
267 cc-%offset%))
268 (+
269 (*
273 wa3-%offset%)
277 cc-%offset%))
278 (*
282 wa3-%offset%)
286 cc-%offset%))))))
290 ch-%offset%)
291 (+
295 cc-%offset%)
296 (+
298 (*
302 wa1-%offset%)
306 cc-%offset%))
307 (*
311 wa1-%offset%)
315 cc-%offset%)))
317 (*
321 wa4-%offset%)
325 cc-%offset%))
326 (*
330 wa4-%offset%)
334 cc-%offset%))))
335 (+
337 (*
341 wa2-%offset%)
345 cc-%offset%))
346 (*
350 wa2-%offset%)
354 cc-%offset%)))
356 (*
360 wa3-%offset%)
364 cc-%offset%))
365 (*
369 wa3-%offset%)
373 cc-%offset%))))))
377 ch-%offset%)
378 (+
382 cc-%offset%)
383 (* tr11
384 (+
385 (*
389 wa1-%offset%)
393 cc-%offset%))
394 (*
398 wa1-%offset%)
402 cc-%offset%))
403 (*
407 wa4-%offset%)
411 cc-%offset%))
412 (*
416 wa4-%offset%)
420 cc-%offset%))))
421 (* tr12
422 (+
423 (*
427 wa2-%offset%)
431 cc-%offset%))
432 (*
436 wa2-%offset%)
440 cc-%offset%))
441 (*
445 wa3-%offset%)
449 cc-%offset%))
450 (*
454 wa3-%offset%)
458 cc-%offset%))))
459 (* ti11
461 (*
465 wa1-%offset%)
469 cc-%offset%))
470 (*
474 wa1-%offset%)
478 cc-%offset%))
480 (*
484 wa4-%offset%)
488 cc-%offset%))
489 (*
493 wa4-%offset%)
497 cc-%offset%)))))
498 (* ti12
500 (*
504 wa2-%offset%)
508 cc-%offset%))
509 (*
513 wa2-%offset%)
517 cc-%offset%))
519 (*
523 wa3-%offset%)
527 cc-%offset%))
528 (*
532 wa3-%offset%)
536 cc-%offset%)))))))
540 ch-%offset%)
542 (+
546 cc-%offset%)
547 (* tr11
548 (+
549 (*
553 wa1-%offset%)
557 cc-%offset%))
558 (*
562 wa1-%offset%)
566 cc-%offset%))
567 (*
571 wa4-%offset%)
575 cc-%offset%))
576 (*
580 wa4-%offset%)
584 cc-%offset%))))
585 (* tr12
586 (+
587 (*
591 wa2-%offset%)
595 cc-%offset%))
596 (*
600 wa2-%offset%)
604 cc-%offset%))
605 (*
609 wa3-%offset%)
613 cc-%offset%))
614 (*
618 wa3-%offset%)
622 cc-%offset%)))))
623 (+
624 (* ti11
626 (*
630 wa1-%offset%)
634 cc-%offset%))
635 (*
639 wa1-%offset%)
643 cc-%offset%))
645 (*
649 wa4-%offset%)
653 cc-%offset%))
654 (*
658 wa4-%offset%)
663 cc-%offset%)))))
664 (* ti12
666 (*
670 wa2-%offset%)
674 cc-%offset%))
675 (*
679 wa2-%offset%)
683 cc-%offset%))
685 (*
689 wa3-%offset%)
693 cc-%offset%))
694 (*
698 wa3-%offset%)
703 cc-%offset%))))))))
707 ch-%offset%)
708 (+
712 cc-%offset%)
713 (* tr11
714 (+
716 (*
720 wa1-%offset%)
724 cc-%offset%))
725 (*
729 wa1-%offset%)
733 cc-%offset%)))
735 (*
739 wa4-%offset%)
743 cc-%offset%))
744 (*
748 wa4-%offset%)
752 cc-%offset%)))))
753 (* tr12
754 (+
756 (*
760 wa2-%offset%)
764 cc-%offset%))
765 (*
769 wa2-%offset%)
773 cc-%offset%)))
775 (*
779 wa3-%offset%)
783 cc-%offset%))
784 (*
788 wa3-%offset%)
792 cc-%offset%)))))
793 (+
794 (* ti11
796 (+
797 (*
801 wa4-%offset%)
806 cc-%offset%))
807 (*
811 wa4-%offset%)
815 cc-%offset%)))
816 (+
817 (*
821 wa1-%offset%)
826 cc-%offset%))
827 (*
831 wa1-%offset%)
835 cc-%offset%)))))
836 (* ti12
838 (+
839 (*
843 wa3-%offset%)
848 cc-%offset%))
849 (*
853 wa3-%offset%)
857 cc-%offset%)))
858 (+
859 (*
863 wa2-%offset%)
868 cc-%offset%))
869 (*
873 wa2-%offset%)
877 cc-%offset%))))))))
881 ch-%offset%)
883 (+
884 (* ti11
886 (+
887 (*
891 wa4-%offset%)
896 cc-%offset%))
897 (*
901 wa4-%offset%)
905 cc-%offset%)))
906 (+
907 (*
911 wa1-%offset%)
916 cc-%offset%))
917 (*
921 wa1-%offset%)
925 cc-%offset%)))))
926 (* ti12
928 (+
929 (*
933 wa3-%offset%)
938 cc-%offset%))
939 (*
943 wa3-%offset%)
947 cc-%offset%)))
948 (+
949 (*
953 wa2-%offset%)
958 cc-%offset%))
959 (*
963 wa2-%offset%)
967 cc-%offset%))))))
968 (+
972 cc-%offset%)
973 (* tr11
974 (+
976 (*
980 wa1-%offset%)
984 cc-%offset%))
985 (*
989 wa1-%offset%)
994 cc-%offset%)))
996 (*
1000 wa4-%offset%)
1004 cc-%offset%))
1005 (*
1009 wa4-%offset%)
1014 cc-%offset%)))))
1015 (* tr12
1016 (+
1018 (*
1022 wa2-%offset%)
1026 cc-%offset%))
1027 (*
1031 wa2-%offset%)
1036 cc-%offset%)))
1038 (*
1042 wa3-%offset%)
1046 cc-%offset%))
1047 (*
1051 wa3-%offset%)
1056 cc-%offset%))))))))
1060 ch-%offset%)
1061 (+
1065 cc-%offset%)
1066 (* tr12
1067 (+
1068 (*
1072 wa1-%offset%)
1076 cc-%offset%))
1077 (*
1081 wa1-%offset%)
1085 cc-%offset%))
1086 (+
1087 (*
1091 wa4-%offset%)
1095 cc-%offset%))
1096 (*
1100 wa4-%offset%)
1104 cc-%offset%)))))
1105 (* tr11
1106 (+
1107 (*
1111 wa2-%offset%)
1115 cc-%offset%))
1116 (*
1120 wa2-%offset%)
1124 cc-%offset%))
1125 (+
1126 (*
1130 wa3-%offset%)
1134 cc-%offset%))
1135 (*
1139 wa3-%offset%)
1143 cc-%offset%)))))
1145 (* ti12
1147 (*
1151 wa1-%offset%)
1155 cc-%offset%))
1156 (*
1160 wa1-%offset%)
1164 cc-%offset%))
1166 (*
1170 wa4-%offset%)
1174 cc-%offset%))
1175 (*
1179 wa4-%offset%)
1184 cc-%offset%)))))
1185 (* ti11
1187 (*
1191 wa2-%offset%)
1195 cc-%offset%))
1196 (*
1200 wa2-%offset%)
1204 cc-%offset%))
1206 (*
1210 wa3-%offset%)
1214 cc-%offset%))
1215 (*
1219 wa3-%offset%)
1224 cc-%offset%))))))))
1228 ch-%offset%)
1230 (+
1234 cc-%offset%)
1235 (* tr12
1236 (+
1237 (*
1241 wa1-%offset%)
1245 cc-%offset%))
1246 (*
1250 wa1-%offset%)
1254 cc-%offset%))
1255 (+
1256 (*
1260 wa4-%offset%)
1265 cc-%offset%))
1266 (*
1270 wa4-%offset%)
1274 cc-%offset%)))))
1275 (* tr11
1276 (+
1277 (*
1281 wa2-%offset%)
1285 cc-%offset%))
1286 (*
1290 wa2-%offset%)
1294 cc-%offset%))
1295 (+
1296 (*
1300 wa3-%offset%)
1305 cc-%offset%))
1306 (*
1310 wa3-%offset%)
1314 cc-%offset%))))))
1316 (* ti12
1318 (*
1322 wa1-%offset%)
1326 cc-%offset%))
1327 (*
1331 wa1-%offset%)
1335 cc-%offset%))
1337 (*
1341 wa4-%offset%)
1345 cc-%offset%))
1346 (*
1350 wa4-%offset%)
1355 cc-%offset%)))))
1356 (* ti11
1358 (*
1362 wa2-%offset%)
1366 cc-%offset%))
1367 (*
1371 wa2-%offset%)
1375 cc-%offset%))
1377 (*
1381 wa3-%offset%)
1385 cc-%offset%))
1386 (*
1390 wa3-%offset%)
1395 cc-%offset%))))))))
1399 ch-%offset%)
1400 (+
1404 cc-%offset%)
1405 (* tr12
1406 (+
1408 (*
1412 wa1-%offset%)
1416 cc-%offset%))
1417 (*
1421 wa1-%offset%)
1425 cc-%offset%)))
1427 (*
1431 wa4-%offset%)
1435 cc-%offset%))
1436 (*
1440 wa4-%offset%)
1444 cc-%offset%)))))
1445 (* tr11
1446 (+
1448 (*
1452 wa2-%offset%)
1456 cc-%offset%))
1457 (*
1461 wa2-%offset%)
1465 cc-%offset%)))
1467 (*
1471 wa3-%offset%)
1475 cc-%offset%))
1476 (*
1480 wa3-%offset%)
1484 cc-%offset%)))))
1486 (* ti12
1488 (+
1489 (*
1493 wa4-%offset%)
1498 cc-%offset%))
1499 (*
1503 wa4-%offset%)
1507 cc-%offset%)))
1508 (+
1509 (*
1513 wa1-%offset%)
1518 cc-%offset%))
1519 (*
1523 wa1-%offset%)
1527 cc-%offset%)))))
1528 (* ti11
1530 (+
1531 (*
1535 wa3-%offset%)
1540 cc-%offset%))
1541 (*
1545 wa3-%offset%)
1549 cc-%offset%)))
1550 (+
1551 (*
1555 wa2-%offset%)
1560 cc-%offset%))
1561 (*
1565 wa2-%offset%)
1569 cc-%offset%))))))))
1573 ch-%offset%)
1575 (* ti12
1577 (+
1578 (*
1582 wa4-%offset%)
1586 cc-%offset%))
1587 (*
1591 wa4-%offset%)
1595 cc-%offset%)))
1596 (+
1597 (*
1601 wa1-%offset%)
1605 cc-%offset%))
1606 (*
1610 wa1-%offset%)
1614 cc-%offset%)))))
1615 (* ti11
1617 (+
1618 (*
1622 wa3-%offset%)
1626 cc-%offset%))
1627 (*
1631 wa3-%offset%)
1635 cc-%offset%)))
1636 (+
1637 (*
1641 wa2-%offset%)
1645 cc-%offset%))
1646 (*
1650 wa2-%offset%)
1654 cc-%offset%)))))
1655 (+
1659 cc-%offset%)
1660 (* tr12
1661 (+
1663 (*
1667 wa1-%offset%)
1671 cc-%offset%))
1672 (*
1676 wa1-%offset%)
1681 cc-%offset%)))
1683 (*
1687 wa4-%offset%)
1691 cc-%offset%))
1692 (*
1696 wa4-%offset%)
1701 cc-%offset%)))))
1702 (* tr11
1703 (+
1705 (*
1709 wa2-%offset%)
1713 cc-%offset%))
1714 (*
1718 wa2-%offset%)
1723 cc-%offset%)))
1725 (*
1729 wa3-%offset%)
1733 cc-%offset%))
1734 (*
1738 wa3-%offset%)
1743 cc-%offset%))))))))
1744 label1002))
1745 label102))
1746 label103))
1748 end_label
1765 nil)