This is xlibTYPES.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t5492, "CHK-XSTANDARDCOLORMAPP", 22 );
DEFSTATICTSCP( c5061 );
DEFSTRING( t5493, "XSTANDARDCOLORMAPP", 18 );
DEFSTATICTSCP( c5060 );
DEFSTRING( t5494, "CHK-XVISUALINFOP", 16 );
DEFSTATICTSCP( c5023 );
DEFSTRING( t5495, "XVISUALINFOP", 12 );
DEFSTATICTSCP( c5022 );
DEFSTRING( t5496, "CHK-REGION", 10 );
DEFSTATICTSCP( c4985 );
DEFSTRING( t5497, "REGION", 6 );
DEFSTATICTSCP( c4984 );
DEFSTRING( t5498, "CHK-XCOMPOSESTATUSP", 19 );
DEFSTATICTSCP( c4947 );
DEFSTRING( t5499, "XCOMPOSESTATUSP", 15 );
DEFSTATICTSCP( c4946 );
DEFSTRING( t5500, "CHK-XCLASSHINTP", 15 );
DEFSTATICTSCP( c4909 );
DEFSTRING( t5501, "XCLASSHINTP", 11 );
DEFSTATICTSCP( c4908 );
DEFSTRING( t5502, "CHK-XICONSIZEP", 14 );
DEFSTATICTSCP( c4871 );
DEFSTRING( t5503, "XICONSIZEP", 10 );
DEFSTATICTSCP( c4870 );
DEFSTRING( t5504, "CHK-XWMHINTSP", 13 );
DEFSTATICTSCP( c4833 );
DEFSTRING( t5505, "XWMHINTSP", 9 );
DEFSTATICTSCP( c4832 );
DEFSTRING( t5506, "CHK-XSIZEHINTSP", 15 );
DEFSTATICTSCP( c4795 );
DEFSTRING( t5507, "XSIZEHINTSP", 11 );
DEFSTATICTSCP( c4794 );
DEFSTRING( t5508, "CHK-XRMOPTIONDESCLIST", 21 );
DEFSTATICTSCP( c4757 );
DEFSTRING( t5509, "XRMOPTIONDESCLIST", 17 );
DEFSTATICTSCP( c4756 );
DEFSTRING( t5510, "CHK-XRMDATABASEP", 16 );
DEFSTATICTSCP( c4719 );
DEFSTRING( t5511, "XRMDATABASEP", 12 );
DEFSTATICTSCP( c4718 );
DEFSTRING( t5512, "CHK-XRMDATABASE", 15 );
DEFSTATICTSCP( c4681 );
DEFSTRING( t5513, "XRMDATABASE", 11 );
DEFSTATICTSCP( c4680 );
DEFSTRING( t5514, "CHK-XRMHASHTABLE", 16 );
DEFSTATICTSCP( c4643 );
DEFSTRING( t5515, "XRMHASHTABLE", 12 );
DEFSTATICTSCP( c4642 );
DEFSTRING( t5516, "CHK-XRMHASHBUCKET", 17 );
DEFSTATICTSCP( c4605 );
DEFSTRING( t5517, "XRMHASHBUCKET", 13 );
DEFSTATICTSCP( c4604 );
DEFSTRING( t5518, "CHK-XRMVALUEPTR", 15 );
DEFSTATICTSCP( c4567 );
DEFSTRING( t5519, "XRMVALUEPTR", 11 );
DEFSTATICTSCP( c4566 );
DEFSTRING( t5520, "CHK-XTEXTITEM16P", 16 );
DEFSTATICTSCP( c4529 );
DEFSTRING( t5521, "XTEXTITEM16P", 12 );
DEFSTATICTSCP( c4528 );
DEFSTRING( t5522, "CHK-XCHAR2BAP", 13 );
DEFSTATICTSCP( c4404 );
DEFSTRING( t5523, "XCHAR2BAP", 9 );
DEFSTATICTSCP( c4403 );
DEFSTRING( t5524, "CHK-XCHAR2BP", 12 );
DEFSTATICTSCP( c4366 );
DEFSTRING( t5525, "XCHAR2BP", 8 );
DEFSTATICTSCP( c4365 );
DEFSTRING( t5526, "CHK-XTEXTITEMAP", 15 );
DEFSTATICTSCP( c4241 );
DEFSTRING( t5527, "XTEXTITEMAP", 11 );
DEFSTATICTSCP( c4240 );
DEFSTRING( t5528, "CHK-XTEXTITEMP", 14 );
DEFSTATICTSCP( c4203 );
DEFSTRING( t5529, "XTEXTITEMP", 10 );
DEFSTATICTSCP( c4202 );
DEFSTRING( t5530, "CHK-XFONTSTRUCTAP", 17 );
DEFSTATICTSCP( c4078 );
DEFSTRING( t5531, "XFONTSTRUCTAP", 13 );
DEFSTATICTSCP( c4077 );
DEFSTRING( t5532, "CHK-XFONTSTRUCTP", 16 );
DEFSTATICTSCP( c4040 );
DEFSTRING( t5533, "XFONTSTRUCTP", 12 );
DEFSTATICTSCP( c4039 );
DEFSTRING( t5534, "CHK-XFONTPROPP", 14 );
DEFSTATICTSCP( c4002 );
DEFSTRING( t5535, "XFONTPROPP", 10 );
DEFSTATICTSCP( c4001 );
DEFSTRING( t5536, "CHK-XCHARSTRUCTP", 16 );
DEFSTATICTSCP( c3964 );
DEFSTRING( t5537, "XCHARSTRUCTP", 12 );
DEFSTATICTSCP( c3963 );
DEFSTRING( t5538, "CHK-XEVENTP", 11 );
DEFSTATICTSCP( c3926 );
DEFSTRING( t5539, "XEVENTP", 7 );
DEFSTATICTSCP( c3925 );
DEFSTRING( t5540, "CHK-DISPLAYP", 12 );
DEFSTATICTSCP( c3888 );
DEFSTRING( t5541, "DISPLAYP", 8 );
DEFSTATICTSCP( c3887 );
DEFSTRING( t5542, "CHK-XINSERTMODIFIERMAPENTRY", 27 );
DEFSTATICTSCP( c3850 );
DEFSTRING( t5543, "XINSERTMODIFIERMAPENTRY", 23 );
DEFSTATICTSCP( c3849 );
DEFSTRING( t5544, "CHK-XDELETEMODIFIERMAPENTRY", 27 );
DEFSTATICTSCP( c3812 );
DEFSTRING( t5545, "XDELETEMODIFIERMAPENTRY", 23 );
DEFSTATICTSCP( c3811 );
DEFSTRING( t5546, "CHK-XGETMODIFIERMAPPING", 23 );
DEFSTATICTSCP( c3774 );
DEFSTRING( t5547, "XGETMODIFIERMAPPING", 19 );
DEFSTATICTSCP( c3773 );
DEFSTRING( t5548, "CHK-XNEWMODIFIERMAP", 19 );
DEFSTATICTSCP( c3736 );
DEFSTRING( t5549, "XNEWMODIFIERMAP", 15 );
DEFSTATICTSCP( c3735 );
DEFSTRING( t5550, "CHK-XMODIFIERKEYMAPP", 20 );
DEFSTATICTSCP( c3698 );
DEFSTRING( t5551, "XMODIFIERKEYMAPP", 16 );
DEFSTATICTSCP( c3697 );
DEFSTRING( t5552, "CHK-XTIMECOORDAP", 16 );
DEFSTATICTSCP( c3574 );
DEFSTRING( t5553, "XTIMECOORDAP", 12 );
DEFSTATICTSCP( c3573 );
DEFSTRING( t5554, "CHK-XTIMECOORDP", 15 );
DEFSTATICTSCP( c3536 );
DEFSTRING( t5555, "XTIMECOORDP", 11 );
DEFSTATICTSCP( c3535 );
DEFSTRING( t5556, "CHK-XQKEYMAPP", 13 );
DEFSTATICTSCP( c3367 );
DEFSTRING( t5557, "XQKEYMAPP", 9 );
DEFSTATICTSCP( c3366 );
DEFSTRING( t5558, "CHK-XKEYBOARDSTATEP", 19 );
DEFSTATICTSCP( c3329 );
DEFSTRING( t5559, "XKEYBOARDSTATEP", 15 );
DEFSTATICTSCP( c3328 );
DEFSTRING( t5560, "CHK-XKEYBOARDCONTROLP", 21 );
DEFSTATICTSCP( c3291 );
DEFSTRING( t5561, "XKEYBOARDCONTROLP", 17 );
DEFSTATICTSCP( c3290 );
DEFSTRING( t5562, "CHK-XARCAP", 10 );
DEFSTATICTSCP( c3167 );
DEFSTRING( t5563, "XARCAP", 6 );
DEFSTATICTSCP( c3166 );
DEFSTRING( t5564, "CHK-XARCP", 9 );
DEFSTATICTSCP( c3129 );
DEFSTRING( t5565, "XARCP", 5 );
DEFSTATICTSCP( c3128 );
DEFSTRING( t5566, "CHK-XRECTANGLEAP", 16 );
DEFSTATICTSCP( c3005 );
DEFSTRING( t5567, "XRECTANGLEAP", 12 );
DEFSTATICTSCP( c3004 );
DEFSTRING( t5568, "CHK-XRECTANGLEP", 15 );
DEFSTATICTSCP( c2967 );
DEFSTRING( t5569, "XRECTANGLEP", 11 );
DEFSTATICTSCP( c2966 );
DEFSTRING( t5570, "CHK-XPOINTAP", 12 );
DEFSTATICTSCP( c2843 );
DEFSTRING( t5571, "XPOINTAP", 8 );
DEFSTATICTSCP( c2842 );
DEFSTRING( t5572, "CHK-XPOINTP", 11 );
DEFSTATICTSCP( c2805 );
DEFSTRING( t5573, "XPOINTP", 7 );
DEFSTATICTSCP( c2804 );
DEFSTRING( t5574, "CHK-XSEGMENTAP", 14 );
DEFSTATICTSCP( c2680 );
DEFSTRING( t5575, "XSEGMENTAP", 10 );
DEFSTATICTSCP( c2679 );
DEFSTRING( t5576, "CHK-XSEGMENTP", 13 );
DEFSTATICTSCP( c2642 );
DEFSTRING( t5577, "XSEGMENTP", 9 );
DEFSTATICTSCP( c2641 );
DEFSTRING( t5578, "CHK-XCOLORAP", 12 );
DEFSTATICTSCP( c2518 );
DEFSTRING( t5579, "XCOLORAP", 8 );
DEFSTATICTSCP( c2517 );
DEFSTRING( t5580, "CHK-XCOLORP", 11 );
DEFSTATICTSCP( c2480 );
DEFSTRING( t5581, "XCOLORP", 7 );
DEFSTATICTSCP( c2479 );
DEFSTRING( t5582, "CHK-XWINDOWCHANGESP", 19 );
DEFSTATICTSCP( c2442 );
DEFSTRING( t5583, "XWINDOWCHANGESP", 15 );
DEFSTATICTSCP( c2441 );
DEFSTRING( t5584, "CHK-XIMAGEPROC", 14 );
DEFSTATICTSCP( c2404 );
DEFSTRING( t5585, "XIMAGEPROC", 10 );
DEFSTATICTSCP( c2403 );
DEFSTRING( t5586, "CHK-XIMAGEP", 11 );
DEFSTATICTSCP( c2366 );
DEFSTRING( t5587, "XIMAGEP", 7 );
DEFSTATICTSCP( c2365 );
DEFSTRING( t5588, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c2340, t5588 );
DEFSTRING( t5589, "SET-CDR!", 8 );
DEFSTATICTSCP( c2339 );
DEFSTRING( t5590, "CHK-XHOSTADDRESSAP", 18 );
DEFSTATICTSCP( c2239 );
DEFSTRING( t5591, "XHOSTADDRESSAP", 14 );
DEFSTATICTSCP( c2238 );
DEFSTRING( t5592, "CHK-XHOSTADDRESSP", 17 );
DEFSTATICTSCP( c2201 );
DEFSTRING( t5593, "XHOSTADDRESSP", 13 );
DEFSTATICTSCP( c2200 );
DEFSTRING( t5594, "CHK-XWINDOWATTRIBUTESP", 22 );
DEFSTATICTSCP( c2163 );
DEFSTRING( t5595, "XWINDOWATTRIBUTESP", 18 );
DEFSTATICTSCP( c2162 );
DEFSTRING( t5596, "CHK-XSETWINDOWATTRIBUTESP", 25 );
DEFSTATICTSCP( c2125 );
DEFSTRING( t5597, "XSETWINDOWATTRIBUTESP", 21 );
DEFSTATICTSCP( c2124 );
DEFSTRING( t5598, "CHK-SCREENP", 11 );
DEFSTATICTSCP( c2087 );
DEFSTRING( t5599, "SCREENP", 7 );
DEFSTATICTSCP( c2086 );
DEFSTRING( t5600, "CHK-DEPTHP", 10 );
DEFSTATICTSCP( c2049 );
DEFSTRING( t5601, "DEPTHP", 6 );
DEFSTATICTSCP( c2048 );
DEFSTRING( t5602, "CHK-VISUALP", 11 );
DEFSTATICTSCP( c2011 );
DEFSTRING( t5603, "VISUALP", 7 );
DEFSTATICTSCP( c2010 );
DEFSTRING( t5604, "CHK-GC", 6 );
DEFSTATICTSCP( c1973 );
DEFSTRING( t5605, "GC", 2 );
DEFSTATICTSCP( c1972 );
DEFSTRING( t5606, "CHK-XGCVALUESP", 14 );
DEFSTATICTSCP( c1935 );
DEFSTRING( t5607, "XGCVALUESP", 10 );
DEFSTATICTSCP( c1934 );
DEFSTRING( t5608, "CHK-XEXTDATAP", 13 );
DEFSTATICTSCP( c1897 );
DEFSTRING( t5609, "XEXTDATAP", 9 );
DEFSTATICTSCP( c1896 );
DEFSTRING( t5610, "CHK-BOOLPROC", 12 );
DEFSTATICTSCP( c1859 );
DEFSTRING( t5611, "BOOLPROC", 8 );
DEFSTATICTSCP( c1858 );
DEFSTRING( t5612, "CHK-INTAP", 9 );
DEFSTATICTSCP( c1690 );
DEFSTRING( t5613, "INTAP", 5 );
DEFSTATICTSCP( c1689 );
DEFSTRING( t5614, "CHK-INTP", 8 );
DEFSTATICTSCP( c1652 );
DEFSTRING( t5615, "INTP", 4 );
DEFSTATICTSCP( c1651 );
DEFSTRING( t5616, "CHK-INTPROC", 11 );
DEFSTATICTSCP( c1614 );
DEFSTRING( t5617, "INTPROC", 7 );
DEFSTATICTSCP( c1613 );
DEFSTRING( t5618, "CHK-CHARPAP", 11 );
DEFSTATICTSCP( c1440 );
DEFSTRING( t5619, "CHARPAP", 7 );
DEFSTATICTSCP( c1439 );
DEFSTRING( t5620, "CHK-CHARAP", 10 );
DEFSTATICTSCP( c1271 );
DEFSTRING( t5621, "CHARAP", 6 );
DEFSTATICTSCP( c1270 );
DEFSTRING( t5622, "CHK-CHARP", 9 );
DEFSTATICTSCP( c1233 );
DEFSTRING( t5623, "CHARP", 5 );
DEFSTATICTSCP( c1232 );
DEFSTRING( t5624, "CHK-UNSIGNEDPROC", 16 );
DEFSTATICTSCP( c1195 );
DEFSTRING( t5625, "UNSIGNEDPROC", 12 );
DEFSTATICTSCP( c1194 );
DEFSTRING( t5626,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1177, t5626 );
DEFSTRING( t5627, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1176 );
DEFSTRING( t5628, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1053, t5628 );
DEFSTRING( t5629, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1052 );
DEFSTRING( t5630, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1018, t5630 );
DEFSTRING( t5631, "CHK-UNSIGNEDAP", 14 );
DEFSTATICTSCP( c1017 );
DEFSTRING( t5632, "UNSIGNEDAP", 10 );
DEFSTATICTSCP( c1016 );
static void init_constants()
{
c5061 = STRINGTOSYMBOL( U_TX( ADR( t5492 ) ) );
CONSTANTEXP( ADR( c5061 ) );
c5060 = STRINGTOSYMBOL( U_TX( ADR( t5493 ) ) );
CONSTANTEXP( ADR( c5060 ) );
c5023 = STRINGTOSYMBOL( U_TX( ADR( t5494 ) ) );
CONSTANTEXP( ADR( c5023 ) );
c5022 = STRINGTOSYMBOL( U_TX( ADR( t5495 ) ) );
CONSTANTEXP( ADR( c5022 ) );
c4985 = STRINGTOSYMBOL( U_TX( ADR( t5496 ) ) );
CONSTANTEXP( ADR( c4985 ) );
c4984 = STRINGTOSYMBOL( U_TX( ADR( t5497 ) ) );
CONSTANTEXP( ADR( c4984 ) );
c4947 = STRINGTOSYMBOL( U_TX( ADR( t5498 ) ) );
CONSTANTEXP( ADR( c4947 ) );
c4946 = STRINGTOSYMBOL( U_TX( ADR( t5499 ) ) );
CONSTANTEXP( ADR( c4946 ) );
c4909 = STRINGTOSYMBOL( U_TX( ADR( t5500 ) ) );
CONSTANTEXP( ADR( c4909 ) );
c4908 = STRINGTOSYMBOL( U_TX( ADR( t5501 ) ) );
CONSTANTEXP( ADR( c4908 ) );
c4871 = STRINGTOSYMBOL( U_TX( ADR( t5502 ) ) );
CONSTANTEXP( ADR( c4871 ) );
c4870 = STRINGTOSYMBOL( U_TX( ADR( t5503 ) ) );
CONSTANTEXP( ADR( c4870 ) );
c4833 = STRINGTOSYMBOL( U_TX( ADR( t5504 ) ) );
CONSTANTEXP( ADR( c4833 ) );
c4832 = STRINGTOSYMBOL( U_TX( ADR( t5505 ) ) );
CONSTANTEXP( ADR( c4832 ) );
c4795 = STRINGTOSYMBOL( U_TX( ADR( t5506 ) ) );
CONSTANTEXP( ADR( c4795 ) );
c4794 = STRINGTOSYMBOL( U_TX( ADR( t5507 ) ) );
CONSTANTEXP( ADR( c4794 ) );
c4757 = STRINGTOSYMBOL( U_TX( ADR( t5508 ) ) );
CONSTANTEXP( ADR( c4757 ) );
c4756 = STRINGTOSYMBOL( U_TX( ADR( t5509 ) ) );
CONSTANTEXP( ADR( c4756 ) );
c4719 = STRINGTOSYMBOL( U_TX( ADR( t5510 ) ) );
CONSTANTEXP( ADR( c4719 ) );
c4718 = STRINGTOSYMBOL( U_TX( ADR( t5511 ) ) );
CONSTANTEXP( ADR( c4718 ) );
c4681 = STRINGTOSYMBOL( U_TX( ADR( t5512 ) ) );
CONSTANTEXP( ADR( c4681 ) );
c4680 = STRINGTOSYMBOL( U_TX( ADR( t5513 ) ) );
CONSTANTEXP( ADR( c4680 ) );
c4643 = STRINGTOSYMBOL( U_TX( ADR( t5514 ) ) );
CONSTANTEXP( ADR( c4643 ) );
c4642 = STRINGTOSYMBOL( U_TX( ADR( t5515 ) ) );
CONSTANTEXP( ADR( c4642 ) );
c4605 = STRINGTOSYMBOL( U_TX( ADR( t5516 ) ) );
CONSTANTEXP( ADR( c4605 ) );
c4604 = STRINGTOSYMBOL( U_TX( ADR( t5517 ) ) );
CONSTANTEXP( ADR( c4604 ) );
c4567 = STRINGTOSYMBOL( U_TX( ADR( t5518 ) ) );
CONSTANTEXP( ADR( c4567 ) );
c4566 = STRINGTOSYMBOL( U_TX( ADR( t5519 ) ) );
CONSTANTEXP( ADR( c4566 ) );
c4529 = STRINGTOSYMBOL( U_TX( ADR( t5520 ) ) );
CONSTANTEXP( ADR( c4529 ) );
c4528 = STRINGTOSYMBOL( U_TX( ADR( t5521 ) ) );
CONSTANTEXP( ADR( c4528 ) );
c4404 = STRINGTOSYMBOL( U_TX( ADR( t5522 ) ) );
CONSTANTEXP( ADR( c4404 ) );
c4403 = STRINGTOSYMBOL( U_TX( ADR( t5523 ) ) );
CONSTANTEXP( ADR( c4403 ) );
c4366 = STRINGTOSYMBOL( U_TX( ADR( t5524 ) ) );
CONSTANTEXP( ADR( c4366 ) );
c4365 = STRINGTOSYMBOL( U_TX( ADR( t5525 ) ) );
CONSTANTEXP( ADR( c4365 ) );
c4241 = STRINGTOSYMBOL( U_TX( ADR( t5526 ) ) );
CONSTANTEXP( ADR( c4241 ) );
c4240 = STRINGTOSYMBOL( U_TX( ADR( t5527 ) ) );
CONSTANTEXP( ADR( c4240 ) );
c4203 = STRINGTOSYMBOL( U_TX( ADR( t5528 ) ) );
CONSTANTEXP( ADR( c4203 ) );
c4202 = STRINGTOSYMBOL( U_TX( ADR( t5529 ) ) );
CONSTANTEXP( ADR( c4202 ) );
c4078 = STRINGTOSYMBOL( U_TX( ADR( t5530 ) ) );
CONSTANTEXP( ADR( c4078 ) );
c4077 = STRINGTOSYMBOL( U_TX( ADR( t5531 ) ) );
CONSTANTEXP( ADR( c4077 ) );
c4040 = STRINGTOSYMBOL( U_TX( ADR( t5532 ) ) );
CONSTANTEXP( ADR( c4040 ) );
c4039 = STRINGTOSYMBOL( U_TX( ADR( t5533 ) ) );
CONSTANTEXP( ADR( c4039 ) );
c4002 = STRINGTOSYMBOL( U_TX( ADR( t5534 ) ) );
CONSTANTEXP( ADR( c4002 ) );
c4001 = STRINGTOSYMBOL( U_TX( ADR( t5535 ) ) );
CONSTANTEXP( ADR( c4001 ) );
c3964 = STRINGTOSYMBOL( U_TX( ADR( t5536 ) ) );
CONSTANTEXP( ADR( c3964 ) );
c3963 = STRINGTOSYMBOL( U_TX( ADR( t5537 ) ) );
CONSTANTEXP( ADR( c3963 ) );
c3926 = STRINGTOSYMBOL( U_TX( ADR( t5538 ) ) );
CONSTANTEXP( ADR( c3926 ) );
c3925 = STRINGTOSYMBOL( U_TX( ADR( t5539 ) ) );
CONSTANTEXP( ADR( c3925 ) );
c3888 = STRINGTOSYMBOL( U_TX( ADR( t5540 ) ) );
CONSTANTEXP( ADR( c3888 ) );
c3887 = STRINGTOSYMBOL( U_TX( ADR( t5541 ) ) );
CONSTANTEXP( ADR( c3887 ) );
c3850 = STRINGTOSYMBOL( U_TX( ADR( t5542 ) ) );
CONSTANTEXP( ADR( c3850 ) );
c3849 = STRINGTOSYMBOL( U_TX( ADR( t5543 ) ) );
CONSTANTEXP( ADR( c3849 ) );
c3812 = STRINGTOSYMBOL( U_TX( ADR( t5544 ) ) );
CONSTANTEXP( ADR( c3812 ) );
c3811 = STRINGTOSYMBOL( U_TX( ADR( t5545 ) ) );
CONSTANTEXP( ADR( c3811 ) );
c3774 = STRINGTOSYMBOL( U_TX( ADR( t5546 ) ) );
CONSTANTEXP( ADR( c3774 ) );
c3773 = STRINGTOSYMBOL( U_TX( ADR( t5547 ) ) );
CONSTANTEXP( ADR( c3773 ) );
c3736 = STRINGTOSYMBOL( U_TX( ADR( t5548 ) ) );
CONSTANTEXP( ADR( c3736 ) );
c3735 = STRINGTOSYMBOL( U_TX( ADR( t5549 ) ) );
CONSTANTEXP( ADR( c3735 ) );
c3698 = STRINGTOSYMBOL( U_TX( ADR( t5550 ) ) );
CONSTANTEXP( ADR( c3698 ) );
c3697 = STRINGTOSYMBOL( U_TX( ADR( t5551 ) ) );
CONSTANTEXP( ADR( c3697 ) );
c3574 = STRINGTOSYMBOL( U_TX( ADR( t5552 ) ) );
CONSTANTEXP( ADR( c3574 ) );
c3573 = STRINGTOSYMBOL( U_TX( ADR( t5553 ) ) );
CONSTANTEXP( ADR( c3573 ) );
c3536 = STRINGTOSYMBOL( U_TX( ADR( t5554 ) ) );
CONSTANTEXP( ADR( c3536 ) );
c3535 = STRINGTOSYMBOL( U_TX( ADR( t5555 ) ) );
CONSTANTEXP( ADR( c3535 ) );
c3367 = STRINGTOSYMBOL( U_TX( ADR( t5556 ) ) );
CONSTANTEXP( ADR( c3367 ) );
c3366 = STRINGTOSYMBOL( U_TX( ADR( t5557 ) ) );
CONSTANTEXP( ADR( c3366 ) );
c3329 = STRINGTOSYMBOL( U_TX( ADR( t5558 ) ) );
CONSTANTEXP( ADR( c3329 ) );
c3328 = STRINGTOSYMBOL( U_TX( ADR( t5559 ) ) );
CONSTANTEXP( ADR( c3328 ) );
c3291 = STRINGTOSYMBOL( U_TX( ADR( t5560 ) ) );
CONSTANTEXP( ADR( c3291 ) );
c3290 = STRINGTOSYMBOL( U_TX( ADR( t5561 ) ) );
CONSTANTEXP( ADR( c3290 ) );
c3167 = STRINGTOSYMBOL( U_TX( ADR( t5562 ) ) );
CONSTANTEXP( ADR( c3167 ) );
c3166 = STRINGTOSYMBOL( U_TX( ADR( t5563 ) ) );
CONSTANTEXP( ADR( c3166 ) );
c3129 = STRINGTOSYMBOL( U_TX( ADR( t5564 ) ) );
CONSTANTEXP( ADR( c3129 ) );
c3128 = STRINGTOSYMBOL( U_TX( ADR( t5565 ) ) );
CONSTANTEXP( ADR( c3128 ) );
c3005 = STRINGTOSYMBOL( U_TX( ADR( t5566 ) ) );
CONSTANTEXP( ADR( c3005 ) );
c3004 = STRINGTOSYMBOL( U_TX( ADR( t5567 ) ) );
CONSTANTEXP( ADR( c3004 ) );
c2967 = STRINGTOSYMBOL( U_TX( ADR( t5568 ) ) );
CONSTANTEXP( ADR( c2967 ) );
c2966 = STRINGTOSYMBOL( U_TX( ADR( t5569 ) ) );
CONSTANTEXP( ADR( c2966 ) );
c2843 = STRINGTOSYMBOL( U_TX( ADR( t5570 ) ) );
CONSTANTEXP( ADR( c2843 ) );
c2842 = STRINGTOSYMBOL( U_TX( ADR( t5571 ) ) );
CONSTANTEXP( ADR( c2842 ) );
c2805 = STRINGTOSYMBOL( U_TX( ADR( t5572 ) ) );
CONSTANTEXP( ADR( c2805 ) );
c2804 = STRINGTOSYMBOL( U_TX( ADR( t5573 ) ) );
CONSTANTEXP( ADR( c2804 ) );
c2680 = STRINGTOSYMBOL( U_TX( ADR( t5574 ) ) );
CONSTANTEXP( ADR( c2680 ) );
c2679 = STRINGTOSYMBOL( U_TX( ADR( t5575 ) ) );
CONSTANTEXP( ADR( c2679 ) );
c2642 = STRINGTOSYMBOL( U_TX( ADR( t5576 ) ) );
CONSTANTEXP( ADR( c2642 ) );
c2641 = STRINGTOSYMBOL( U_TX( ADR( t5577 ) ) );
CONSTANTEXP( ADR( c2641 ) );
c2518 = STRINGTOSYMBOL( U_TX( ADR( t5578 ) ) );
CONSTANTEXP( ADR( c2518 ) );
c2517 = STRINGTOSYMBOL( U_TX( ADR( t5579 ) ) );
CONSTANTEXP( ADR( c2517 ) );
c2480 = STRINGTOSYMBOL( U_TX( ADR( t5580 ) ) );
CONSTANTEXP( ADR( c2480 ) );
c2479 = STRINGTOSYMBOL( U_TX( ADR( t5581 ) ) );
CONSTANTEXP( ADR( c2479 ) );
c2442 = STRINGTOSYMBOL( U_TX( ADR( t5582 ) ) );
CONSTANTEXP( ADR( c2442 ) );
c2441 = STRINGTOSYMBOL( U_TX( ADR( t5583 ) ) );
CONSTANTEXP( ADR( c2441 ) );
c2404 = STRINGTOSYMBOL( U_TX( ADR( t5584 ) ) );
CONSTANTEXP( ADR( c2404 ) );
c2403 = STRINGTOSYMBOL( U_TX( ADR( t5585 ) ) );
CONSTANTEXP( ADR( c2403 ) );
c2366 = STRINGTOSYMBOL( U_TX( ADR( t5586 ) ) );
CONSTANTEXP( ADR( c2366 ) );
c2365 = STRINGTOSYMBOL( U_TX( ADR( t5587 ) ) );
CONSTANTEXP( ADR( c2365 ) );
c2339 = STRINGTOSYMBOL( U_TX( ADR( t5589 ) ) );
CONSTANTEXP( ADR( c2339 ) );
c2239 = STRINGTOSYMBOL( U_TX( ADR( t5590 ) ) );
CONSTANTEXP( ADR( c2239 ) );
c2238 = STRINGTOSYMBOL( U_TX( ADR( t5591 ) ) );
CONSTANTEXP( ADR( c2238 ) );
c2201 = STRINGTOSYMBOL( U_TX( ADR( t5592 ) ) );
CONSTANTEXP( ADR( c2201 ) );
c2200 = STRINGTOSYMBOL( U_TX( ADR( t5593 ) ) );
CONSTANTEXP( ADR( c2200 ) );
c2163 = STRINGTOSYMBOL( U_TX( ADR( t5594 ) ) );
CONSTANTEXP( ADR( c2163 ) );
c2162 = STRINGTOSYMBOL( U_TX( ADR( t5595 ) ) );
CONSTANTEXP( ADR( c2162 ) );
c2125 = STRINGTOSYMBOL( U_TX( ADR( t5596 ) ) );
CONSTANTEXP( ADR( c2125 ) );
c2124 = STRINGTOSYMBOL( U_TX( ADR( t5597 ) ) );
CONSTANTEXP( ADR( c2124 ) );
c2087 = STRINGTOSYMBOL( U_TX( ADR( t5598 ) ) );
CONSTANTEXP( ADR( c2087 ) );
c2086 = STRINGTOSYMBOL( U_TX( ADR( t5599 ) ) );
CONSTANTEXP( ADR( c2086 ) );
c2049 = STRINGTOSYMBOL( U_TX( ADR( t5600 ) ) );
CONSTANTEXP( ADR( c2049 ) );
c2048 = STRINGTOSYMBOL( U_TX( ADR( t5601 ) ) );
CONSTANTEXP( ADR( c2048 ) );
c2011 = STRINGTOSYMBOL( U_TX( ADR( t5602 ) ) );
CONSTANTEXP( ADR( c2011 ) );
c2010 = STRINGTOSYMBOL( U_TX( ADR( t5603 ) ) );
CONSTANTEXP( ADR( c2010 ) );
c1973 = STRINGTOSYMBOL( U_TX( ADR( t5604 ) ) );
CONSTANTEXP( ADR( c1973 ) );
c1972 = STRINGTOSYMBOL( U_TX( ADR( t5605 ) ) );
CONSTANTEXP( ADR( c1972 ) );
c1935 = STRINGTOSYMBOL( U_TX( ADR( t5606 ) ) );
CONSTANTEXP( ADR( c1935 ) );
c1934 = STRINGTOSYMBOL( U_TX( ADR( t5607 ) ) );
CONSTANTEXP( ADR( c1934 ) );
c1897 = STRINGTOSYMBOL( U_TX( ADR( t5608 ) ) );
CONSTANTEXP( ADR( c1897 ) );
c1896 = STRINGTOSYMBOL( U_TX( ADR( t5609 ) ) );
CONSTANTEXP( ADR( c1896 ) );
c1859 = STRINGTOSYMBOL( U_TX( ADR( t5610 ) ) );
CONSTANTEXP( ADR( c1859 ) );
c1858 = STRINGTOSYMBOL( U_TX( ADR( t5611 ) ) );
CONSTANTEXP( ADR( c1858 ) );
c1690 = STRINGTOSYMBOL( U_TX( ADR( t5612 ) ) );
CONSTANTEXP( ADR( c1690 ) );
c1689 = STRINGTOSYMBOL( U_TX( ADR( t5613 ) ) );
CONSTANTEXP( ADR( c1689 ) );
c1652 = STRINGTOSYMBOL( U_TX( ADR( t5614 ) ) );
CONSTANTEXP( ADR( c1652 ) );
c1651 = STRINGTOSYMBOL( U_TX( ADR( t5615 ) ) );
CONSTANTEXP( ADR( c1651 ) );
c1614 = STRINGTOSYMBOL( U_TX( ADR( t5616 ) ) );
CONSTANTEXP( ADR( c1614 ) );
c1613 = STRINGTOSYMBOL( U_TX( ADR( t5617 ) ) );
CONSTANTEXP( ADR( c1613 ) );
c1440 = STRINGTOSYMBOL( U_TX( ADR( t5618 ) ) );
CONSTANTEXP( ADR( c1440 ) );
c1439 = STRINGTOSYMBOL( U_TX( ADR( t5619 ) ) );
CONSTANTEXP( ADR( c1439 ) );
c1271 = STRINGTOSYMBOL( U_TX( ADR( t5620 ) ) );
CONSTANTEXP( ADR( c1271 ) );
c1270 = STRINGTOSYMBOL( U_TX( ADR( t5621 ) ) );
CONSTANTEXP( ADR( c1270 ) );
c1233 = STRINGTOSYMBOL( U_TX( ADR( t5622 ) ) );
CONSTANTEXP( ADR( c1233 ) );
c1232 = STRINGTOSYMBOL( U_TX( ADR( t5623 ) ) );
CONSTANTEXP( ADR( c1232 ) );
c1195 = STRINGTOSYMBOL( U_TX( ADR( t5624 ) ) );
CONSTANTEXP( ADR( c1195 ) );
c1194 = STRINGTOSYMBOL( U_TX( ADR( t5625 ) ) );
CONSTANTEXP( ADR( c1194 ) );
c1176 = STRINGTOSYMBOL( U_TX( ADR( t5627 ) ) );
CONSTANTEXP( ADR( c1176 ) );
c1052 = STRINGTOSYMBOL( U_TX( ADR( t5629 ) ) );
CONSTANTEXP( ADR( c1052 ) );
c1017 = STRINGTOSYMBOL( U_TX( ADR( t5631 ) ) );
CONSTANTEXP( ADR( c1017 ) );
c1016 = STRINGTOSYMBOL( U_TX( ADR( t5632 ) ) );
CONSTANTEXP( ADR( c1016 ) );
}
DEFTSCP( xlibtypes_chk_2dunsignedap_v );
DEFSTRING( t5633, "CHK-UNSIGNEDAP", 14 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP xlibtypes_chk_2dunsignedap( x1002 )
TSCP x1002;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1002 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5645;
if ( EQ( TSCPTAG( x1002 ), PAIRTAG ) ) goto L5642;
scrt1__24__car_2derror( x1002 );
L5642:
X2 = PAIR_CAR( x1002 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1016 ) ) ) goto L5645;
return( PAIR_CDR( x1002 ) );
L5645:
return( scrt6_error( c1017,
c1018, CONS( x1002, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dunsignedap_3f_v );
DEFSTRING( t5646, "ISA-UNSIGNEDAP?", 15 );
TSCP xlibtypes_isa_2dunsignedap_3f( x1025 )
TSCP x1025;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1025 ), PAIRTAG ) ) goto L5648;
X1 = PAIR_CAR( x1025 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1016 ) ) ) );
L5648:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_unsigneda_2dlength_v );
DEFSTRING( t5651, "UNSIGNEDA-LENGTH", 16 );
EXTERNTSCPP( scrt2_quotient );
EXTERNTSCP( scrt2_quotient_v );
TSCP xlibtypes_unsigneda_2dlength( x1041 )
TSCP x1041;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dunsignedap( x1041 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L5654;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L5654:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 16 ) ) ),
3 ) ) goto L5657;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 16 ) ) ) ) );
L5657:
return( scrt2_quotient( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xlibtypes_unsigneda_v );
DEFSTRING( t5659, "UNSIGNEDA", 9 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP xlibtypes_unsigneda( x1057, i1058 )
TSCP x1057, i1058;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dunsignedap( x1057 );
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( i1058 ) ),
3 ) ) goto L5662;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( i1058 ) ) );
goto L5663;
L5662:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), i1058 );
L5663:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L5665;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L5666;
L5665:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L5666:
return( scrt4_c_2dunsigned_2dref( X1, X2 ) );
}
DEFTSCP( xlibtypes_ned_2dlist_8c9aa819_v );
DEFSTRING( t5667, "UNSIGNEDA->UNSIGNED-LIST", 24 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( xlibtypes_l1080 );
TSCP xlibtypes_l1080( i1082, c1083 )
TSCP i1082, c1083;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( i1082 ), UNSIGNED( c1083 ) ) ) goto L5671;
X1 = xlibtypes_unsigneda( DISPLAY( 0 ), i1082 );
if ( BITAND( BITOR( INT( i1082 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L5673;
X3 = _TSCP( IPLUS( INT( i1082 ), INT( _TSCP( 4 ) ) ) );
goto L5674;
L5673:
X3 = scrt2__2b_2dtwo( i1082, _TSCP( 4 ) );
L5674:
X2 = xlibtypes_l1080( X3, c1083 );
return( sc_cons( X1, X2 ) );
L5671:
return( EMPTYLIST );
}
TSCP xlibtypes_ned_2dlist_8c9aa819( x1078 )
TSCP x1078;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
DISPLAY( 0 ) = x1078;
X1 = xlibtypes_unsigneda_2dlength( DISPLAY( 0 ) );
SDVAL = xlibtypes_l1080( _TSCP( 0 ), X1 );
DISPLAY( 0 ) = SD0;
return( SDVAL );
}
DEFTSCP( xlibtypes_eunsigneda_a2fe527c_v );
DEFSTRING( t5675, "UNSIGNED-LIST->UNSIGNEDA", 24 );
EXTERNTSCPP( xlibtypes_make_2dunsigneda );
EXTERNTSCP( xlibtypes_make_2dunsigneda_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( xlibtypes_unsigneda_21 );
EXTERNTSCP( xlibtypes_unsigneda_21_v );
TSCP xlibtypes_eunsigneda_a2fe527c( l1096 )
TSCP l1096;
{
TSCP X5, X4, X3, X2, X1;
X1 = l1096;
X2 = _TSCP( 0 );
X4 = scrt1_length( l1096 );
X3 = xlibtypes_make_2dunsigneda( X4 );
L5678:
if ( FALSE( X1 ) ) goto L5679;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5683;
scrt1__24__car_2derror( X1 );
L5683:
X4 = PAIR_CAR( X1 );
xlibtypes_unsigneda_21( X3, X2, X4 );
X4 = PAIR_CDR( X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5686;
X5 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L5687;
L5686:
X5 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L5687:
X2 = X5;
X1 = X4;
goto L5678;
L5679:
return( X3 );
}
DEFTSCP( xlibtypes_unsigneda_21_v );
DEFSTRING( t5688, "UNSIGNEDA!", 10 );
EXTERNTSCPP( scrt4_c_2dunsigned_2dset_21 );
EXTERNTSCP( scrt4_c_2dunsigned_2dset_21_v );
TSCP xlibtypes_unsigneda_21( x1121, i1122, z1123 )
TSCP x1121, i1122, z1123;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dunsignedap( x1121 );
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( i1122 ) ),
3 ) ) goto L5691;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( i1122 ) ) );
goto L5692;
L5691:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), i1122 );
L5692:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L5694;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L5695;
L5694:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L5695:
return( scrt4_c_2dunsigned_2dset_21( X1, X2, z1123 ) );
}
DEFTSCP( xlibtypes_make_2dunsigneda_v );
DEFSTRING( t5696, "MAKE-UNSIGNEDA", 14 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
TSCP xlibtypes_make_2dunsigneda( x1144 )
TSCP x1144;
{
TSCP X5, X4, X3, X2, X1;
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( x1144 ) ),
3 ) ) goto L5698;
X2 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( x1144 ) ) );
goto L5699;
L5698:
X2 = scrt2__2a_2dtwo( _TSCP( 16 ), x1144 );
L5699:
X4 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X4 ) ) goto L5705;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L5706;
X5 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L5707;
L5706:
X5 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L5707:
if ( TRUE( X5 ) ) goto L5705;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L5714;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L5705;
goto L5721;
L5714:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L5721;
L5705:
scrt6_error( c1176,
c1177, CONS( _TSCP( 0 ), EMPTYLIST ) );
L5721:
X1 = sc_make_2dstring( X2,
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1016, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dunsignedproc_v );
DEFSTRING( t5722, "CHK-UNSIGNEDPROC", 16 );
TSCP xlibtypes_chk_2dunsignedproc( x1180 )
TSCP x1180;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1180 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5734;
if ( EQ( TSCPTAG( x1180 ), PAIRTAG ) ) goto L5731;
scrt1__24__car_2derror( x1180 );
L5731:
X2 = PAIR_CAR( x1180 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1194 ) ) ) goto L5734;
return( PAIR_CDR( x1180 ) );
L5734:
return( scrt6_error( c1195,
c1018, CONS( x1180, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_nedproc_3f_78843e9f_v );
DEFSTRING( t5735, "ISA-UNSIGNEDPROC?", 17 );
TSCP xlibtypes_nedproc_3f_78843e9f( x1202 )
TSCP x1202;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1202 ), PAIRTAG ) ) goto L5737;
X1 = PAIR_CAR( x1202 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1194 ) ) ) );
L5737:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dcharp_v );
DEFSTRING( t5740, "CHK-CHARP", 9 );
TSCP xlibtypes_chk_2dcharp( x1218 )
TSCP x1218;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1218 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5752;
if ( EQ( TSCPTAG( x1218 ), PAIRTAG ) ) goto L5749;
scrt1__24__car_2derror( x1218 );
L5749:
X2 = PAIR_CAR( x1218 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1232 ) ) ) goto L5752;
return( PAIR_CDR( x1218 ) );
L5752:
return( scrt6_error( c1233,
c1018, CONS( x1218, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dcharp_3f_v );
DEFSTRING( t5753, "ISA-CHARP?", 10 );
TSCP xlibtypes_isa_2dcharp_3f( x1240 )
TSCP x1240;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1240 ), PAIRTAG ) ) goto L5755;
X1 = PAIR_CAR( x1240 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1232 ) ) ) );
L5755:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dcharap_v );
DEFSTRING( t5758, "CHK-CHARAP", 10 );
TSCP xlibtypes_chk_2dcharap( x1256 )
TSCP x1256;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1256 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5770;
if ( EQ( TSCPTAG( x1256 ), PAIRTAG ) ) goto L5767;
scrt1__24__car_2derror( x1256 );
L5767:
X2 = PAIR_CAR( x1256 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1270 ) ) ) goto L5770;
return( PAIR_CDR( x1256 ) );
L5770:
return( scrt6_error( c1271,
c1018, CONS( x1256, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dcharap_3f_v );
DEFSTRING( t5771, "ISA-CHARAP?", 11 );
TSCP xlibtypes_isa_2dcharap_3f( x1278 )
TSCP x1278;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1278 ), PAIRTAG ) ) goto L5773;
X1 = PAIR_CAR( x1278 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1270 ) ) ) );
L5773:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chara_2dlength_v );
DEFSTRING( t5776, "CHARA-LENGTH", 12 );
TSCP xlibtypes_chara_2dlength( x1294 )
TSCP x1294;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dcharap( x1294 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L5779;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L5779:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5782;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 4 ) ) ) ) );
L5782:
return( scrt2_quotient( X1, _TSCP( 4 ) ) );
}
DEFTSCP( xlibtypes_chara_v );
DEFSTRING( t5784, "CHARA", 5 );
EXTERNTSCPP( scrt4_c_2dbyte_2dref );
EXTERNTSCP( scrt4_c_2dbyte_2dref_v );
TSCP xlibtypes_chara( x1307, i1308 )
TSCP x1307, i1308;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dcharap( x1307 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( i1308 ) ),
3 ) ) goto L5787;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( i1308 ) ) );
goto L5788;
L5787:
X3 = scrt2__2a_2dtwo( _TSCP( 4 ), i1308 );
L5788:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L5790;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L5791;
L5790:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L5791:
return( scrt4_c_2dbyte_2dref( X1, X2 ) );
}
DEFTSCP( xlibtypes_har_2dlist_f4b135e2_v );
DEFSTRING( t5792, "CHARA->CHAR-LIST", 16 );
EXTERNTSCPP( xlibtypes_l1329 );
TSCP xlibtypes_l1329( i1331, c1332 )
TSCP i1331, c1332;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( i1331 ), UNSIGNED( c1332 ) ) ) goto L5796;
X1 = xlibtypes_chara( DISPLAY( 0 ), i1331 );
if ( BITAND( BITOR( INT( i1331 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L5798;
X3 = _TSCP( IPLUS( INT( i1331 ), INT( _TSCP( 4 ) ) ) );
goto L5799;
L5798:
X3 = scrt2__2b_2dtwo( i1331, _TSCP( 4 ) );
L5799:
X2 = xlibtypes_l1329( X3, c1332 );
return( sc_cons( X1, X2 ) );
L5796:
return( EMPTYLIST );
}
TSCP xlibtypes_har_2dlist_f4b135e2( x1327 )
TSCP x1327;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
DISPLAY( 0 ) = x1327;
X1 = xlibtypes_chara_2dlength( DISPLAY( 0 ) );
SDVAL = xlibtypes_l1329( _TSCP( 0 ), X1 );
DISPLAY( 0 ) = SD0;
return( SDVAL );
}
DEFTSCP( xlibtypes_2d_3echara_6cef497b_v );
DEFSTRING( t5800, "CHAR-LIST->CHARA", 16 );
EXTERNTSCPP( xlibtypes_make_2dchara );
EXTERNTSCP( xlibtypes_make_2dchara_v );
EXTERNTSCPP( xlibtypes_chara_21 );
EXTERNTSCP( xlibtypes_chara_21_v );
TSCP xlibtypes_2d_3echara_6cef497b( l1344 )
TSCP l1344;
{
TSCP X5, X4, X3, X2, X1;
X1 = l1344;
X2 = _TSCP( 0 );
X4 = scrt1_length( l1344 );
X3 = xlibtypes_make_2dchara( X4 );
L5803:
if ( FALSE( X1 ) ) goto L5804;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5808;
scrt1__24__car_2derror( X1 );
L5808:
X4 = PAIR_CAR( X1 );
xlibtypes_chara_21( X3, X2, X4 );
X4 = PAIR_CDR( X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5811;
X5 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L5812;
L5811:
X5 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L5812:
X2 = X5;
X1 = X4;
goto L5803;
L5804:
return( X3 );
}
DEFTSCP( xlibtypes_chara_21_v );
DEFSTRING( t5813, "CHARA!", 6 );
EXTERNTSCPP( scrt4_c_2dbyte_2dset_21 );
EXTERNTSCP( scrt4_c_2dbyte_2dset_21_v );
TSCP xlibtypes_chara_21( x1369, i1370, z1371 )
TSCP x1369, i1370, z1371;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dcharap( x1369 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( i1370 ) ),
3 ) ) goto L5816;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( i1370 ) ) );
goto L5817;
L5816:
X3 = scrt2__2a_2dtwo( _TSCP( 4 ), i1370 );
L5817:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L5819;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L5820;
L5819:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L5820:
return( scrt4_c_2dbyte_2dset_21( X1, X2, z1371 ) );
}
DEFTSCP( xlibtypes_make_2dchara_v );
DEFSTRING( t5821, "MAKE-CHARA", 10 );
TSCP xlibtypes_make_2dchara( x1392 )
TSCP x1392;
{
TSCP X5, X4, X3, X2, X1;
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( x1392 ) ),
3 ) ) goto L5823;
X2 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( x1392 ) ) );
goto L5824;
L5823:
X2 = scrt2__2a_2dtwo( _TSCP( 4 ), x1392 );
L5824:
X4 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X4 ) ) goto L5830;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L5831;
X5 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L5832;
L5831:
X5 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L5832:
if ( TRUE( X5 ) ) goto L5830;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L5839;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L5830;
goto L5846;
L5839:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L5846;
L5830:
scrt6_error( c1176,
c1177, CONS( _TSCP( 0 ), EMPTYLIST ) );
L5846:
X1 = sc_make_2dstring( X2,
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1270, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dcharpap_v );
DEFSTRING( t5847, "CHK-CHARPAP", 11 );
TSCP xlibtypes_chk_2dcharpap( x1425 )
TSCP x1425;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1425 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5859;
if ( EQ( TSCPTAG( x1425 ), PAIRTAG ) ) goto L5856;
scrt1__24__car_2derror( x1425 );
L5856:
X2 = PAIR_CAR( x1425 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1439 ) ) ) goto L5859;
return( PAIR_CDR( x1425 ) );
L5859:
return( scrt6_error( c1440,
c1018, CONS( x1425, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dcharpap_3f_v );
DEFSTRING( t5860, "ISA-CHARPAP?", 12 );
TSCP xlibtypes_isa_2dcharpap_3f( x1447 )
TSCP x1447;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1447 ), PAIRTAG ) ) goto L5862;
X1 = PAIR_CAR( x1447 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1439 ) ) ) );
L5862:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_charpa_2dlength_v );
DEFSTRING( t5865, "CHARPA-LENGTH", 13 );
TSCP xlibtypes_charpa_2dlength( x1463 )
TSCP x1463;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dcharpap( x1463 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L5868;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L5868:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 16 ) ) ),
3 ) ) goto L5871;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 16 ) ) ) ) );
L5871:
return( scrt2_quotient( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xlibtypes_charpa_v );
DEFSTRING( t5873, "CHARPA", 6 );
TSCP xlibtypes_charpa( x1476, i1477 )
TSCP x1476, i1477;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dcharpap( x1476 );
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( i1477 ) ),
3 ) ) goto L5876;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( i1477 ) ) );
goto L5877;
L5876:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), i1477 );
L5877:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L5879;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L5880;
L5879:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L5880:
X3 = scrt4_c_2dunsigned_2dref( X1, X2 );
return( sc_cons( c1232, X3 ) );
}
DEFTSCP( xlibtypes_arp_2dlist_c1484fe2_v );
DEFSTRING( t5882, "CHARPA->CHARP-LIST", 18 );
EXTERNTSCPP( xlibtypes_l1501 );
TSCP xlibtypes_l1501( i1503, c1504 )
TSCP i1503, c1504;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( i1503 ), UNSIGNED( c1504 ) ) ) goto L5886;
X1 = xlibtypes_charpa( DISPLAY( 0 ), i1503 );
if ( BITAND( BITOR( INT( i1503 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L5888;
X3 = _TSCP( IPLUS( INT( i1503 ), INT( _TSCP( 4 ) ) ) );
goto L5889;
L5888:
X3 = scrt2__2b_2dtwo( i1503, _TSCP( 4 ) );
L5889:
X2 = xlibtypes_l1501( X3, c1504 );
return( sc_cons( X1, X2 ) );
L5886:
return( EMPTYLIST );
}
TSCP xlibtypes_arp_2dlist_c1484fe2( x1499 )
TSCP x1499;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
DISPLAY( 0 ) = x1499;
X1 = xlibtypes_charpa_2dlength( DISPLAY( 0 ) );
SDVAL = xlibtypes_l1501( _TSCP( 0 ), X1 );
DISPLAY( 0 ) = SD0;
return( SDVAL );
}
DEFTSCP( xlibtypes_d_3echarpa_3fb94022_v );
DEFSTRING( t5890, "CHARP-LIST->CHARPA", 18 );
EXTERNTSCPP( xlibtypes_make_2dcharpa );
EXTERNTSCP( xlibtypes_make_2dcharpa_v );
EXTERNTSCPP( xlibtypes_charpa_21 );
EXTERNTSCP( xlibtypes_charpa_21_v );
TSCP xlibtypes_d_3echarpa_3fb94022( l1516 )
TSCP l1516;
{
TSCP X5, X4, X3, X2, X1;
X1 = l1516;
X2 = _TSCP( 0 );
X4 = scrt1_length( l1516 );
X3 = xlibtypes_make_2dcharpa( X4 );
L5893:
if ( FALSE( X1 ) ) goto L5894;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5898;
scrt1__24__car_2derror( X1 );
L5898:
X4 = PAIR_CAR( X1 );
xlibtypes_charpa_21( X3, X2, X4 );
X4 = PAIR_CDR( X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5901;
X5 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L5902;
L5901:
X5 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L5902:
X2 = X5;
X1 = X4;
goto L5893;
L5894:
return( X3 );
}
DEFTSCP( xlibtypes_charpa_21_v );
DEFSTRING( t5903, "CHARPA!", 7 );
TSCP xlibtypes_charpa_21( x1541, i1542, z1543 )
TSCP x1541, i1542, z1543;
{
TSCP X4, X3, X2, X1;
X1 = xlibtypes_chk_2dcharpap( x1541 );
X2 = xlibtypes_chk_2dcharp( z1543 );
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( i1542 ) ),
3 ) ) goto L5906;
X4 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( i1542 ) ) );
goto L5907;
L5906:
X4 = scrt2__2a_2dtwo( _TSCP( 16 ), i1542 );
L5907:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X4 ) ),
3 ) ) goto L5909;
X3 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X4 ) ) );
goto L5910;
L5909:
X3 = scrt2__2b_2dtwo( _TSCP( 0 ), X4 );
L5910:
X4 = xlibtypes_chk_2dcharp( X2 );
return( scrt4_c_2dunsigned_2dset_21( X1, X3, X4 ) );
}
DEFTSCP( xlibtypes_make_2dcharpa_v );
DEFSTRING( t5912, "MAKE-CHARPA", 11 );
TSCP xlibtypes_make_2dcharpa( x1566 )
TSCP x1566;
{
TSCP X5, X4, X3, X2, X1;
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( x1566 ) ),
3 ) ) goto L5914;
X2 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( x1566 ) ) );
goto L5915;
L5914:
X2 = scrt2__2a_2dtwo( _TSCP( 16 ), x1566 );
L5915:
X4 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X4 ) ) goto L5921;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L5922;
X5 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L5923;
L5922:
X5 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L5923:
if ( TRUE( X5 ) ) goto L5921;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L5930;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L5921;
goto L5937;
L5930:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L5937;
L5921:
scrt6_error( c1176,
c1177, CONS( _TSCP( 0 ), EMPTYLIST ) );
L5937:
X1 = sc_make_2dstring( X2,
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1439, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dintproc_v );
DEFSTRING( t5938, "CHK-INTPROC", 11 );
TSCP xlibtypes_chk_2dintproc( x1599 )
TSCP x1599;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1599 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5950;
if ( EQ( TSCPTAG( x1599 ), PAIRTAG ) ) goto L5947;
scrt1__24__car_2derror( x1599 );
L5947:
X2 = PAIR_CAR( x1599 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1613 ) ) ) goto L5950;
return( PAIR_CDR( x1599 ) );
L5950:
return( scrt6_error( c1614,
c1018, CONS( x1599, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dintproc_3f_v );
DEFSTRING( t5951, "ISA-INTPROC?", 12 );
TSCP xlibtypes_isa_2dintproc_3f( x1621 )
TSCP x1621;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1621 ), PAIRTAG ) ) goto L5953;
X1 = PAIR_CAR( x1621 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1613 ) ) ) );
L5953:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dintp_v );
DEFSTRING( t5956, "CHK-INTP", 8 );
TSCP xlibtypes_chk_2dintp( x1637 )
TSCP x1637;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1637 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5968;
if ( EQ( TSCPTAG( x1637 ), PAIRTAG ) ) goto L5965;
scrt1__24__car_2derror( x1637 );
L5965:
X2 = PAIR_CAR( x1637 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1651 ) ) ) goto L5968;
return( PAIR_CDR( x1637 ) );
L5968:
return( scrt6_error( c1652,
c1018, CONS( x1637, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dintp_3f_v );
DEFSTRING( t5969, "ISA-INTP?", 9 );
TSCP xlibtypes_isa_2dintp_3f( x1659 )
TSCP x1659;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1659 ), PAIRTAG ) ) goto L5971;
X1 = PAIR_CAR( x1659 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1651 ) ) ) );
L5971:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dintap_v );
DEFSTRING( t5974, "CHK-INTAP", 9 );
TSCP xlibtypes_chk_2dintap( x1675 )
TSCP x1675;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1675 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5986;
if ( EQ( TSCPTAG( x1675 ), PAIRTAG ) ) goto L5983;
scrt1__24__car_2derror( x1675 );
L5983:
X2 = PAIR_CAR( x1675 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1689 ) ) ) goto L5986;
return( PAIR_CDR( x1675 ) );
L5986:
return( scrt6_error( c1690,
c1018, CONS( x1675, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dintap_3f_v );
DEFSTRING( t5987, "ISA-INTAP?", 10 );
TSCP xlibtypes_isa_2dintap_3f( x1697 )
TSCP x1697;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1697 ), PAIRTAG ) ) goto L5989;
X1 = PAIR_CAR( x1697 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1689 ) ) ) );
L5989:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_inta_2dlength_v );
DEFSTRING( t5992, "INTA-LENGTH", 11 );
TSCP xlibtypes_inta_2dlength( x1713 )
TSCP x1713;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dintap( x1713 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L5995;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L5995:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 16 ) ) ),
3 ) ) goto L5998;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 16 ) ) ) ) );
L5998:
return( scrt2_quotient( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xlibtypes_inta_v );
DEFSTRING( t6000, "INTA", 4 );
EXTERNTSCPP( scrt4_c_2dint_2dref );
EXTERNTSCP( scrt4_c_2dint_2dref_v );
TSCP xlibtypes_inta( x1726, i1727 )
TSCP x1726, i1727;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dintap( x1726 );
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( i1727 ) ),
3 ) ) goto L6003;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( i1727 ) ) );
goto L6004;
L6003:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), i1727 );
L6004:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L6006;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L6007;
L6006:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L6007:
return( scrt4_c_2dint_2dref( X1, X2 ) );
}
DEFTSCP( xlibtypes_int_2dlist_f5756722_v );
DEFSTRING( t6008, "INTA->INT-LIST", 14 );
EXTERNTSCPP( xlibtypes_l1748 );
TSCP xlibtypes_l1748( i1750, c1751 )
TSCP i1750, c1751;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( i1750 ), UNSIGNED( c1751 ) ) ) goto L6012;
X1 = xlibtypes_inta( DISPLAY( 0 ), i1750 );
if ( BITAND( BITOR( INT( i1750 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L6014;
X3 = _TSCP( IPLUS( INT( i1750 ), INT( _TSCP( 4 ) ) ) );
goto L6015;
L6014:
X3 = scrt2__2b_2dtwo( i1750, _TSCP( 4 ) );
L6015:
X2 = xlibtypes_l1748( X3, c1751 );
return( sc_cons( X1, X2 ) );
L6012:
return( EMPTYLIST );
}
TSCP xlibtypes_int_2dlist_f5756722( x1746 )
TSCP x1746;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
DISPLAY( 0 ) = x1746;
X1 = xlibtypes_inta_2dlength( DISPLAY( 0 ) );
SDVAL = xlibtypes_l1748( _TSCP( 0 ), X1 );
DISPLAY( 0 ) = SD0;
return( SDVAL );
}
DEFTSCP( xlibtypes__2d_3einta_b11454aa_v );
DEFSTRING( t6016, "INT-LIST->INTA", 14 );
EXTERNTSCPP( xlibtypes_make_2dinta );
EXTERNTSCP( xlibtypes_make_2dinta_v );
EXTERNTSCPP( xlibtypes_inta_21 );
EXTERNTSCP( xlibtypes_inta_21_v );
TSCP xlibtypes__2d_3einta_b11454aa( l1763 )
TSCP l1763;
{
TSCP X5, X4, X3, X2, X1;
X1 = l1763;
X2 = _TSCP( 0 );
X4 = scrt1_length( l1763 );
X3 = xlibtypes_make_2dinta( X4 );
L6019:
if ( FALSE( X1 ) ) goto L6020;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L6024;
scrt1__24__car_2derror( X1 );
L6024:
X4 = PAIR_CAR( X1 );
xlibtypes_inta_21( X3, X2, X4 );
X4 = PAIR_CDR( X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L6027;
X5 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L6028;
L6027:
X5 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L6028:
X2 = X5;
X1 = X4;
goto L6019;
L6020:
return( X3 );
}
DEFTSCP( xlibtypes_inta_21_v );
DEFSTRING( t6029, "INTA!", 5 );
EXTERNTSCPP( scrt4_c_2dint_2dset_21 );
EXTERNTSCP( scrt4_c_2dint_2dset_21_v );
TSCP xlibtypes_inta_21( x1788, i1789, z1790 )
TSCP x1788, i1789, z1790;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dintap( x1788 );
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( i1789 ) ),
3 ) ) goto L6032;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( i1789 ) ) );
goto L6033;
L6032:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), i1789 );
L6033:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L6035;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L6036;
L6035:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L6036:
return( scrt4_c_2dint_2dset_21( X1, X2, z1790 ) );
}
DEFTSCP( xlibtypes_make_2dinta_v );
DEFSTRING( t6037, "MAKE-INTA", 9 );
TSCP xlibtypes_make_2dinta( x1811 )
TSCP x1811;
{
TSCP X5, X4, X3, X2, X1;
if ( BITAND( BITOR( INT( _TSCP( 16 ) ),
INT( x1811 ) ),
3 ) ) goto L6039;
X2 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( x1811 ) ) );
goto L6040;
L6039:
X2 = scrt2__2a_2dtwo( _TSCP( 16 ), x1811 );
L6040:
X4 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X4 ) ) goto L6046;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L6047;
X5 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L6048;
L6047:
X5 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L6048:
if ( TRUE( X5 ) ) goto L6046;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L6055;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L6046;
goto L6062;
L6055:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L6062;
L6046:
scrt6_error( c1176,
c1177, CONS( _TSCP( 0 ), EMPTYLIST ) );
L6062:
X1 = sc_make_2dstring( X2,
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c1689, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dboolproc_v );
DEFSTRING( t6063, "CHK-BOOLPROC", 12 );
TSCP xlibtypes_chk_2dboolproc( x1844 )
TSCP x1844;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1844 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6075;
if ( EQ( TSCPTAG( x1844 ), PAIRTAG ) ) goto L6072;
scrt1__24__car_2derror( x1844 );
L6072:
X2 = PAIR_CAR( x1844 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1858 ) ) ) goto L6075;
return( PAIR_CDR( x1844 ) );
L6075:
return( scrt6_error( c1859,
c1018, CONS( x1844, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dboolproc_3f_v );
DEFSTRING( t6076, "ISA-BOOLPROC?", 13 );
TSCP xlibtypes_isa_2dboolproc_3f( x1866 )
TSCP x1866;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1866 ), PAIRTAG ) ) goto L6078;
X1 = PAIR_CAR( x1866 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1858 ) ) ) );
L6078:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxextdatap_v );
DEFSTRING( t6081, "CHK-XEXTDATAP", 13 );
TSCP xlibtypes_chk_2dxextdatap( x1882 )
TSCP x1882;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1882 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6093;
if ( EQ( TSCPTAG( x1882 ), PAIRTAG ) ) goto L6090;
scrt1__24__car_2derror( x1882 );
L6090:
X2 = PAIR_CAR( x1882 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1896 ) ) ) goto L6093;
return( PAIR_CDR( x1882 ) );
L6093:
return( scrt6_error( c1897,
c1018, CONS( x1882, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxextdatap_3f_v );
DEFSTRING( t6094, "ISA-XEXTDATAP?", 14 );
TSCP xlibtypes_isa_2dxextdatap_3f( x1904 )
TSCP x1904;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1904 ), PAIRTAG ) ) goto L6096;
X1 = PAIR_CAR( x1904 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1896 ) ) ) );
L6096:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxgcvaluesp_v );
DEFSTRING( t6099, "CHK-XGCVALUESP", 14 );
TSCP xlibtypes_chk_2dxgcvaluesp( x1920 )
TSCP x1920;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1920 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6111;
if ( EQ( TSCPTAG( x1920 ), PAIRTAG ) ) goto L6108;
scrt1__24__car_2derror( x1920 );
L6108:
X2 = PAIR_CAR( x1920 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1934 ) ) ) goto L6111;
return( PAIR_CDR( x1920 ) );
L6111:
return( scrt6_error( c1935,
c1018, CONS( x1920, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxgcvaluesp_3f_v );
DEFSTRING( t6112, "ISA-XGCVALUESP?", 15 );
TSCP xlibtypes_isa_2dxgcvaluesp_3f( x1942 )
TSCP x1942;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1942 ), PAIRTAG ) ) goto L6114;
X1 = PAIR_CAR( x1942 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1934 ) ) ) );
L6114:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dgc_v );
DEFSTRING( t6117, "CHK-GC", 6 );
TSCP xlibtypes_chk_2dgc( x1958 )
TSCP x1958;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1958 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6129;
if ( EQ( TSCPTAG( x1958 ), PAIRTAG ) ) goto L6126;
scrt1__24__car_2derror( x1958 );
L6126:
X2 = PAIR_CAR( x1958 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1972 ) ) ) goto L6129;
return( PAIR_CDR( x1958 ) );
L6129:
return( scrt6_error( c1973,
c1018, CONS( x1958, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dgc_3f_v );
DEFSTRING( t6130, "ISA-GC?", 7 );
TSCP xlibtypes_isa_2dgc_3f( x1980 )
TSCP x1980;
{
TSCP X1;
if ( NEQ( TSCPTAG( x1980 ), PAIRTAG ) ) goto L6132;
X1 = PAIR_CAR( x1980 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1972 ) ) ) );
L6132:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dvisualp_v );
DEFSTRING( t6135, "CHK-VISUALP", 11 );
TSCP xlibtypes_chk_2dvisualp( x1996 )
TSCP x1996;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x1996 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6147;
if ( EQ( TSCPTAG( x1996 ), PAIRTAG ) ) goto L6144;
scrt1__24__car_2derror( x1996 );
L6144:
X2 = PAIR_CAR( x1996 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2010 ) ) ) goto L6147;
return( PAIR_CDR( x1996 ) );
L6147:
return( scrt6_error( c2011,
c1018, CONS( x1996, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dvisualp_3f_v );
DEFSTRING( t6148, "ISA-VISUALP?", 12 );
TSCP xlibtypes_isa_2dvisualp_3f( x2018 )
TSCP x2018;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2018 ), PAIRTAG ) ) goto L6150;
X1 = PAIR_CAR( x2018 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2010 ) ) ) );
L6150:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2ddepthp_v );
DEFSTRING( t6153, "CHK-DEPTHP", 10 );
TSCP xlibtypes_chk_2ddepthp( x2034 )
TSCP x2034;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2034 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6165;
if ( EQ( TSCPTAG( x2034 ), PAIRTAG ) ) goto L6162;
scrt1__24__car_2derror( x2034 );
L6162:
X2 = PAIR_CAR( x2034 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2048 ) ) ) goto L6165;
return( PAIR_CDR( x2034 ) );
L6165:
return( scrt6_error( c2049,
c1018, CONS( x2034, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2ddepthp_3f_v );
DEFSTRING( t6166, "ISA-DEPTHP?", 11 );
TSCP xlibtypes_isa_2ddepthp_3f( x2056 )
TSCP x2056;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2056 ), PAIRTAG ) ) goto L6168;
X1 = PAIR_CAR( x2056 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2048 ) ) ) );
L6168:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dscreenp_v );
DEFSTRING( t6171, "CHK-SCREENP", 11 );
TSCP xlibtypes_chk_2dscreenp( x2072 )
TSCP x2072;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2072 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6183;
if ( EQ( TSCPTAG( x2072 ), PAIRTAG ) ) goto L6180;
scrt1__24__car_2derror( x2072 );
L6180:
X2 = PAIR_CAR( x2072 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2086 ) ) ) goto L6183;
return( PAIR_CDR( x2072 ) );
L6183:
return( scrt6_error( c2087,
c1018, CONS( x2072, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dscreenp_3f_v );
DEFSTRING( t6184, "ISA-SCREENP?", 12 );
TSCP xlibtypes_isa_2dscreenp_3f( x2094 )
TSCP x2094;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2094 ), PAIRTAG ) ) goto L6186;
X1 = PAIR_CAR( x2094 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2086 ) ) ) );
L6186:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_ttributesp_f8fc8c87_v );
DEFSTRING( t6189, "CHK-XSETWINDOWATTRIBUTESP", 25 );
TSCP xlibtypes_ttributesp_f8fc8c87( x2110 )
TSCP x2110;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2110 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6201;
if ( EQ( TSCPTAG( x2110 ), PAIRTAG ) ) goto L6198;
scrt1__24__car_2derror( x2110 );
L6198:
X2 = PAIR_CAR( x2110 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2124 ) ) ) goto L6201;
return( PAIR_CDR( x2110 ) );
L6201:
return( scrt6_error( c2125,
c1018, CONS( x2110, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_ibutesp_3f_33724555_v );
DEFSTRING( t6202, "ISA-XSETWINDOWATTRIBUTESP?", 26 );
TSCP xlibtypes_ibutesp_3f_33724555( x2132 )
TSCP x2132;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2132 ), PAIRTAG ) ) goto L6204;
X1 = PAIR_CAR( x2132 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2124 ) ) ) );
L6204:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_ttributesp_3c7dec03_v );
DEFSTRING( t6207, "CHK-XWINDOWATTRIBUTESP", 22 );
TSCP xlibtypes_ttributesp_3c7dec03( x2148 )
TSCP x2148;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2148 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6219;
if ( EQ( TSCPTAG( x2148 ), PAIRTAG ) ) goto L6216;
scrt1__24__car_2derror( x2148 );
L6216:
X2 = PAIR_CAR( x2148 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2162 ) ) ) goto L6219;
return( PAIR_CDR( x2148 ) );
L6219:
return( scrt6_error( c2163,
c1018, CONS( x2148, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_ibutesp_3f_47b8090a_v );
DEFSTRING( t6220, "ISA-XWINDOWATTRIBUTESP?", 23 );
TSCP xlibtypes_ibutesp_3f_47b8090a( x2170 )
TSCP x2170;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2170 ), PAIRTAG ) ) goto L6222;
X1 = PAIR_CAR( x2170 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2162 ) ) ) );
L6222:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxhostaddressp_v );
DEFSTRING( t6225, "CHK-XHOSTADDRESSP", 17 );
TSCP xlibtypes_chk_2dxhostaddressp( x2186 )
TSCP x2186;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2186 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6237;
if ( EQ( TSCPTAG( x2186 ), PAIRTAG ) ) goto L6234;
scrt1__24__car_2derror( x2186 );
L6234:
X2 = PAIR_CAR( x2186 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2200 ) ) ) goto L6237;
return( PAIR_CDR( x2186 ) );
L6237:
return( scrt6_error( c2201,
c1018, CONS( x2186, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_ddressp_3f_a0f24106_v );
DEFSTRING( t6238, "ISA-XHOSTADDRESSP?", 18 );
TSCP xlibtypes_ddressp_3f_a0f24106( x2208 )
TSCP x2208;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2208 ), PAIRTAG ) ) goto L6240;
X1 = PAIR_CAR( x2208 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2200 ) ) ) );
L6240:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_taddressap_c5fd3430_v );
DEFSTRING( t6243, "CHK-XHOSTADDRESSAP", 18 );
TSCP xlibtypes_taddressap_c5fd3430( x2224 )
TSCP x2224;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2224 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6255;
if ( EQ( TSCPTAG( x2224 ), PAIRTAG ) ) goto L6252;
scrt1__24__car_2derror( x2224 );
L6252:
X2 = PAIR_CAR( x2224 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2238 ) ) ) goto L6255;
return( PAIR_CDR( x2224 ) );
L6255:
return( scrt6_error( c2239,
c1018, CONS( x2224, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_dressap_3f_6ec20916_v );
DEFSTRING( t6256, "ISA-XHOSTADDRESSAP?", 19 );
TSCP xlibtypes_dressap_3f_6ec20916( x2246 )
TSCP x2246;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2246 ), PAIRTAG ) ) goto L6258;
X1 = PAIR_CAR( x2246 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2238 ) ) ) );
L6258:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_a_2dlength_cd2ef0bb_v );
DEFSTRING( t6261, "XHOSTADDRESSA-LENGTH", 20 );
TSCP xlibtypes_a_2dlength_cd2ef0bb( x2262 )
TSCP x2262;
{
TSCP X3, X2, X1;
X2 = xlibtypes_taddressap_c5fd3430( x2262 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6264;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6264:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 48 ) ) ),
3 ) ) goto L6267;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 48 ) ) ) ) );
L6267:
return( scrt2_quotient( X1, _TSCP( 48 ) ) );
}
DEFTSCP( xlibtypes_ess_2dlist_a3bca50b_v );
DEFSTRING( t6269, "XHOSTADDRESSA->XHOSTADDRESS-LIST", 32 );
EXTERNTSCPP( scrt3_substring );
EXTERNTSCP( scrt3_substring_v );
EXTERNTSCPP( xlibtypes_l2284 );
TSCP xlibtypes_l2284( x2286 )
TSCP x2286;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x2286 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6278;
if ( BITAND( BITOR( INT( x2286 ),
INT( _TSCP( 48 ) ) ),
3 ) ) goto L6280;
X3 = _TSCP( IPLUS( INT( x2286 ),
INT( _TSCP( 48 ) ) ) );
goto L6281;
L6280:
X3 = scrt2__2b_2dtwo( x2286, _TSCP( 48 ) );
L6281:
X2 = scrt3_substring( DISPLAY( 0 ), x2286, X3 );
X1 = sc_cons( c2200, X2 );
if ( BITAND( BITOR( INT( x2286 ),
INT( _TSCP( 48 ) ) ),
3 ) ) goto L6282;
X3 = _TSCP( IPLUS( INT( x2286 ),
INT( _TSCP( 48 ) ) ) );
goto L6283;
L6282:
X3 = scrt2__2b_2dtwo( x2286, _TSCP( 48 ) );
L6283:
X2 = xlibtypes_l2284( X3 );
return( sc_cons( X1, X2 ) );
L6278:
return( EMPTYLIST );
}
TSCP xlibtypes_ess_2dlist_a3bca50b( x2276 )
TSCP x2276;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_taddressap_c5fd3430( x2276 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6273;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6273:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l2284( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_staddressa_59253e46_v );
DEFSTRING( t6284, "XHOSTADDRESS-LIST->XHOSTADDRESSA", 32 );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
TSCP xlibtypes_staddressa_59253e46( x2308 )
TSCP x2308;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x2308;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6288:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6289;
X2 = X4;
goto L6296;
L6289:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6292;
scrt1__24__car_2derror( X3 );
L6292:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxhostaddressp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6295;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6288;
L6295:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6300;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6300:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6288;
L6296:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c2238, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dximagep_v );
DEFSTRING( t6302, "CHK-XIMAGEP", 11 );
TSCP xlibtypes_chk_2dximagep( x2351 )
TSCP x2351;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2351 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6314;
if ( EQ( TSCPTAG( x2351 ), PAIRTAG ) ) goto L6311;
scrt1__24__car_2derror( x2351 );
L6311:
X2 = PAIR_CAR( x2351 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2365 ) ) ) goto L6314;
return( PAIR_CDR( x2351 ) );
L6314:
return( scrt6_error( c2366,
c1018, CONS( x2351, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dximagep_3f_v );
DEFSTRING( t6315, "ISA-XIMAGEP?", 12 );
TSCP xlibtypes_isa_2dximagep_3f( x2373 )
TSCP x2373;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2373 ), PAIRTAG ) ) goto L6317;
X1 = PAIR_CAR( x2373 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2365 ) ) ) );
L6317:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dximageproc_v );
DEFSTRING( t6320, "CHK-XIMAGEPROC", 14 );
TSCP xlibtypes_chk_2dximageproc( x2389 )
TSCP x2389;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2389 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6332;
if ( EQ( TSCPTAG( x2389 ), PAIRTAG ) ) goto L6329;
scrt1__24__car_2derror( x2389 );
L6329:
X2 = PAIR_CAR( x2389 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2403 ) ) ) goto L6332;
return( PAIR_CDR( x2389 ) );
L6332:
return( scrt6_error( c2404,
c1018, CONS( x2389, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dximageproc_3f_v );
DEFSTRING( t6333, "ISA-XIMAGEPROC?", 15 );
TSCP xlibtypes_isa_2dximageproc_3f( x2411 )
TSCP x2411;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2411 ), PAIRTAG ) ) goto L6335;
X1 = PAIR_CAR( x2411 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2403 ) ) ) );
L6335:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_owchangesp_68ca6d56_v );
DEFSTRING( t6338, "CHK-XWINDOWCHANGESP", 19 );
TSCP xlibtypes_owchangesp_68ca6d56( x2427 )
TSCP x2427;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2427 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6350;
if ( EQ( TSCPTAG( x2427 ), PAIRTAG ) ) goto L6347;
scrt1__24__car_2derror( x2427 );
L6347:
X2 = PAIR_CAR( x2427 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2441 ) ) ) goto L6350;
return( PAIR_CDR( x2427 ) );
L6350:
return( scrt6_error( c2442,
c1018, CONS( x2427, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_hangesp_3f_1f824798_v );
DEFSTRING( t6351, "ISA-XWINDOWCHANGESP?", 20 );
TSCP xlibtypes_hangesp_3f_1f824798( x2449 )
TSCP x2449;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2449 ), PAIRTAG ) ) goto L6353;
X1 = PAIR_CAR( x2449 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2441 ) ) ) );
L6353:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxcolorp_v );
DEFSTRING( t6356, "CHK-XCOLORP", 11 );
TSCP xlibtypes_chk_2dxcolorp( x2465 )
TSCP x2465;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2465 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6368;
if ( EQ( TSCPTAG( x2465 ), PAIRTAG ) ) goto L6365;
scrt1__24__car_2derror( x2465 );
L6365:
X2 = PAIR_CAR( x2465 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2479 ) ) ) goto L6368;
return( PAIR_CDR( x2465 ) );
L6368:
return( scrt6_error( c2480,
c1018, CONS( x2465, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxcolorp_3f_v );
DEFSTRING( t6369, "ISA-XCOLORP?", 12 );
TSCP xlibtypes_isa_2dxcolorp_3f( x2487 )
TSCP x2487;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2487 ), PAIRTAG ) ) goto L6371;
X1 = PAIR_CAR( x2487 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2479 ) ) ) );
L6371:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxcolorap_v );
DEFSTRING( t6374, "CHK-XCOLORAP", 12 );
TSCP xlibtypes_chk_2dxcolorap( x2503 )
TSCP x2503;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2503 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6386;
if ( EQ( TSCPTAG( x2503 ), PAIRTAG ) ) goto L6383;
scrt1__24__car_2derror( x2503 );
L6383:
X2 = PAIR_CAR( x2503 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2517 ) ) ) goto L6386;
return( PAIR_CDR( x2503 ) );
L6386:
return( scrt6_error( c2518,
c1018, CONS( x2503, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxcolorap_3f_v );
DEFSTRING( t6387, "ISA-XCOLORAP?", 13 );
TSCP xlibtypes_isa_2dxcolorap_3f( x2525 )
TSCP x2525;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2525 ), PAIRTAG ) ) goto L6389;
X1 = PAIR_CAR( x2525 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2517 ) ) ) );
L6389:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xcolora_2dlength_v );
DEFSTRING( t6392, "XCOLORA-LENGTH", 14 );
TSCP xlibtypes_xcolora_2dlength( x2541 )
TSCP x2541;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxcolorap( x2541 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6395;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6395:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 48 ) ) ),
3 ) ) goto L6398;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 48 ) ) ) ) );
L6398:
return( scrt2_quotient( X1, _TSCP( 48 ) ) );
}
DEFTSCP( xlibtypes_lor_2dlist_1a247fa8_v );
DEFSTRING( t6400, "XCOLORA->XCOLOR-LIST", 20 );
EXTERNTSCPP( xlibtypes_l2562 );
TSCP xlibtypes_l2562( x2564 )
TSCP x2564;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x2564 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6409;
if ( BITAND( BITOR( INT( x2564 ),
INT( _TSCP( 48 ) ) ),
3 ) ) goto L6411;
X3 = _TSCP( IPLUS( INT( x2564 ),
INT( _TSCP( 48 ) ) ) );
goto L6412;
L6411:
X3 = scrt2__2b_2dtwo( x2564, _TSCP( 48 ) );
L6412:
X2 = scrt3_substring( DISPLAY( 0 ), x2564, X3 );
X1 = sc_cons( c2479, X2 );
if ( BITAND( BITOR( INT( x2564 ),
INT( _TSCP( 48 ) ) ),
3 ) ) goto L6413;
X3 = _TSCP( IPLUS( INT( x2564 ),
INT( _TSCP( 48 ) ) ) );
goto L6414;
L6413:
X3 = scrt2__2b_2dtwo( x2564, _TSCP( 48 ) );
L6414:
X2 = xlibtypes_l2562( X3 );
return( sc_cons( X1, X2 ) );
L6409:
return( EMPTYLIST );
}
TSCP xlibtypes_lor_2dlist_1a247fa8( x2554 )
TSCP x2554;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxcolorap( x2554 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6404;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6404:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l2562( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes__3excolora_abb1bb49_v );
DEFSTRING( t6415, "XCOLOR-LIST->XCOLORA", 20 );
TSCP xlibtypes__3excolora_abb1bb49( x2586 )
TSCP x2586;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x2586;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6419:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6420;
X2 = X4;
goto L6427;
L6420:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6423;
scrt1__24__car_2derror( X3 );
L6423:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxcolorp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6426;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6419;
L6426:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6431;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6431:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6419;
L6427:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c2517, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxsegmentp_v );
DEFSTRING( t6433, "CHK-XSEGMENTP", 13 );
TSCP xlibtypes_chk_2dxsegmentp( x2627 )
TSCP x2627;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2627 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6445;
if ( EQ( TSCPTAG( x2627 ), PAIRTAG ) ) goto L6442;
scrt1__24__car_2derror( x2627 );
L6442:
X2 = PAIR_CAR( x2627 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2641 ) ) ) goto L6445;
return( PAIR_CDR( x2627 ) );
L6445:
return( scrt6_error( c2642,
c1018, CONS( x2627, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxsegmentp_3f_v );
DEFSTRING( t6446, "ISA-XSEGMENTP?", 14 );
TSCP xlibtypes_isa_2dxsegmentp_3f( x2649 )
TSCP x2649;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2649 ), PAIRTAG ) ) goto L6448;
X1 = PAIR_CAR( x2649 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2641 ) ) ) );
L6448:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxsegmentap_v );
DEFSTRING( t6451, "CHK-XSEGMENTAP", 14 );
TSCP xlibtypes_chk_2dxsegmentap( x2665 )
TSCP x2665;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2665 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6463;
if ( EQ( TSCPTAG( x2665 ), PAIRTAG ) ) goto L6460;
scrt1__24__car_2derror( x2665 );
L6460:
X2 = PAIR_CAR( x2665 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2679 ) ) ) goto L6463;
return( PAIR_CDR( x2665 ) );
L6463:
return( scrt6_error( c2680,
c1018, CONS( x2665, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxsegmentap_3f_v );
DEFSTRING( t6464, "ISA-XSEGMENTAP?", 15 );
TSCP xlibtypes_isa_2dxsegmentap_3f( x2687 )
TSCP x2687;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2687 ), PAIRTAG ) ) goto L6466;
X1 = PAIR_CAR( x2687 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2679 ) ) ) );
L6466:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xsegmenta_2dlength_v );
DEFSTRING( t6469, "XSEGMENTA-LENGTH", 16 );
TSCP xlibtypes_xsegmenta_2dlength( x2703 )
TSCP x2703;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxsegmentap( x2703 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6472;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6472:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 32 ) ) ),
3 ) ) goto L6475;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 32 ) ) ) ) );
L6475:
return( scrt2_quotient( X1, _TSCP( 32 ) ) );
}
DEFTSCP( xlibtypes_ent_2dlist_e39ab6fb_v );
DEFSTRING( t6477, "XSEGMENTA->XSEGMENT-LIST", 24 );
EXTERNTSCPP( xlibtypes_l2725 );
TSCP xlibtypes_l2725( x2727 )
TSCP x2727;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x2727 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6486;
if ( BITAND( BITOR( INT( x2727 ),
INT( _TSCP( 32 ) ) ),
3 ) ) goto L6488;
X3 = _TSCP( IPLUS( INT( x2727 ),
INT( _TSCP( 32 ) ) ) );
goto L6489;
L6488:
X3 = scrt2__2b_2dtwo( x2727, _TSCP( 32 ) );
L6489:
X2 = scrt3_substring( DISPLAY( 0 ), x2727, X3 );
X1 = sc_cons( c2641, X2 );
if ( BITAND( BITOR( INT( x2727 ),
INT( _TSCP( 32 ) ) ),
3 ) ) goto L6490;
X3 = _TSCP( IPLUS( INT( x2727 ),
INT( _TSCP( 32 ) ) ) );
goto L6491;
L6490:
X3 = scrt2__2b_2dtwo( x2727, _TSCP( 32 ) );
L6491:
X2 = xlibtypes_l2725( X3 );
return( sc_cons( X1, X2 ) );
L6486:
return( EMPTYLIST );
}
TSCP xlibtypes_ent_2dlist_e39ab6fb( x2717 )
TSCP x2717;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxsegmentap( x2717 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6481;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6481:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l2725( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_exsegmenta_a19bd00_v );
DEFSTRING( t6492, "XSEGMENT-LIST->XSEGMENTA", 24 );
TSCP xlibtypes_exsegmenta_a19bd00( x2749 )
TSCP x2749;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x2749;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6496:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6497;
X2 = X4;
goto L6504;
L6497:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6500;
scrt1__24__car_2derror( X3 );
L6500:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxsegmentp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6503;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6496;
L6503:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6508;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6508:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6496;
L6504:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c2679, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxpointp_v );
DEFSTRING( t6510, "CHK-XPOINTP", 11 );
TSCP xlibtypes_chk_2dxpointp( x2790 )
TSCP x2790;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2790 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6522;
if ( EQ( TSCPTAG( x2790 ), PAIRTAG ) ) goto L6519;
scrt1__24__car_2derror( x2790 );
L6519:
X2 = PAIR_CAR( x2790 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2804 ) ) ) goto L6522;
return( PAIR_CDR( x2790 ) );
L6522:
return( scrt6_error( c2805,
c1018, CONS( x2790, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxpointp_3f_v );
DEFSTRING( t6523, "ISA-XPOINTP?", 12 );
TSCP xlibtypes_isa_2dxpointp_3f( x2812 )
TSCP x2812;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2812 ), PAIRTAG ) ) goto L6525;
X1 = PAIR_CAR( x2812 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2804 ) ) ) );
L6525:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxpointap_v );
DEFSTRING( t6528, "CHK-XPOINTAP", 12 );
TSCP xlibtypes_chk_2dxpointap( x2828 )
TSCP x2828;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2828 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6540;
if ( EQ( TSCPTAG( x2828 ), PAIRTAG ) ) goto L6537;
scrt1__24__car_2derror( x2828 );
L6537:
X2 = PAIR_CAR( x2828 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2842 ) ) ) goto L6540;
return( PAIR_CDR( x2828 ) );
L6540:
return( scrt6_error( c2843,
c1018, CONS( x2828, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxpointap_3f_v );
DEFSTRING( t6541, "ISA-XPOINTAP?", 13 );
TSCP xlibtypes_isa_2dxpointap_3f( x2850 )
TSCP x2850;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2850 ), PAIRTAG ) ) goto L6543;
X1 = PAIR_CAR( x2850 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2842 ) ) ) );
L6543:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xpointa_2dlength_v );
DEFSTRING( t6546, "XPOINTA-LENGTH", 14 );
TSCP xlibtypes_xpointa_2dlength( x2866 )
TSCP x2866;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxpointap( x2866 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6549;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6549:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 16 ) ) ),
3 ) ) goto L6552;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 16 ) ) ) ) );
L6552:
return( scrt2_quotient( X1, _TSCP( 16 ) ) );
}
DEFTSCP( xlibtypes_int_2dlist_415f2d58_v );
DEFSTRING( t6554, "XPOINTA->XPOINT-LIST", 20 );
EXTERNTSCPP( xlibtypes_l2887 );
TSCP xlibtypes_l2887( x2889 )
TSCP x2889;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x2889 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6563;
if ( BITAND( BITOR( INT( x2889 ),
INT( _TSCP( 16 ) ) ),
3 ) ) goto L6565;
X3 = _TSCP( IPLUS( INT( x2889 ),
INT( _TSCP( 16 ) ) ) );
goto L6566;
L6565:
X3 = scrt2__2b_2dtwo( x2889, _TSCP( 16 ) );
L6566:
X2 = scrt3_substring( DISPLAY( 0 ), x2889, X3 );
X1 = sc_cons( c2804, X2 );
if ( BITAND( BITOR( INT( x2889 ),
INT( _TSCP( 16 ) ) ),
3 ) ) goto L6567;
X3 = _TSCP( IPLUS( INT( x2889 ),
INT( _TSCP( 16 ) ) ) );
goto L6568;
L6567:
X3 = scrt2__2b_2dtwo( x2889, _TSCP( 16 ) );
L6568:
X2 = xlibtypes_l2887( X3 );
return( sc_cons( X1, X2 ) );
L6563:
return( EMPTYLIST );
}
TSCP xlibtypes_int_2dlist_415f2d58( x2879 )
TSCP x2879;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxpointap( x2879 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6558;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6558:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l2887( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes__3expointa_59754d83_v );
DEFSTRING( t6569, "XPOINT-LIST->XPOINTA", 20 );
TSCP xlibtypes__3expointa_59754d83( x2911 )
TSCP x2911;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x2911;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6573:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6574;
X2 = X4;
goto L6581;
L6574:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6577;
scrt1__24__car_2derror( X3 );
L6577:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxpointp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6580;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6573;
L6580:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6585;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6585:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6573;
L6581:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c2842, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxrectanglep_v );
DEFSTRING( t6587, "CHK-XRECTANGLEP", 15 );
TSCP xlibtypes_chk_2dxrectanglep( x2952 )
TSCP x2952;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2952 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6599;
if ( EQ( TSCPTAG( x2952 ), PAIRTAG ) ) goto L6596;
scrt1__24__car_2derror( x2952 );
L6596:
X2 = PAIR_CAR( x2952 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2966 ) ) ) goto L6599;
return( PAIR_CDR( x2952 ) );
L6599:
return( scrt6_error( c2967,
c1018, CONS( x2952, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_tanglep_3f_350ee2a2_v );
DEFSTRING( t6600, "ISA-XRECTANGLEP?", 16 );
TSCP xlibtypes_tanglep_3f_350ee2a2( x2974 )
TSCP x2974;
{
TSCP X1;
if ( NEQ( TSCPTAG( x2974 ), PAIRTAG ) ) goto L6602;
X1 = PAIR_CAR( x2974 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2966 ) ) ) );
L6602:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxrectangleap_v );
DEFSTRING( t6605, "CHK-XRECTANGLEAP", 16 );
TSCP xlibtypes_chk_2dxrectangleap( x2990 )
TSCP x2990;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x2990 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6617;
if ( EQ( TSCPTAG( x2990 ), PAIRTAG ) ) goto L6614;
scrt1__24__car_2derror( x2990 );
L6614:
X2 = PAIR_CAR( x2990 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3004 ) ) ) goto L6617;
return( PAIR_CDR( x2990 ) );
L6617:
return( scrt6_error( c3005,
c1018, CONS( x2990, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_angleap_3f_bfec9244_v );
DEFSTRING( t6618, "ISA-XRECTANGLEAP?", 17 );
TSCP xlibtypes_angleap_3f_bfec9244( x3012 )
TSCP x3012;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3012 ), PAIRTAG ) ) goto L6620;
X1 = PAIR_CAR( x3012 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3004 ) ) ) );
L6620:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_a_2dlength_1a0898a4_v );
DEFSTRING( t6623, "XRECTANGLEA-LENGTH", 18 );
TSCP xlibtypes_a_2dlength_1a0898a4( x3028 )
TSCP x3028;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxrectangleap( x3028 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6626;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6626:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 32 ) ) ),
3 ) ) goto L6629;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 32 ) ) ) ) );
L6629:
return( scrt2_quotient( X1, _TSCP( 32 ) ) );
}
DEFTSCP( xlibtypes_gle_2dlist_f9cc2165_v );
DEFSTRING( t6631, "XRECTANGLEA->XRECTANGLE-LIST", 28 );
EXTERNTSCPP( xlibtypes_l3049 );
TSCP xlibtypes_l3049( x3051 )
TSCP x3051;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x3051 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6640;
if ( BITAND( BITOR( INT( x3051 ),
INT( _TSCP( 32 ) ) ),
3 ) ) goto L6642;
X3 = _TSCP( IPLUS( INT( x3051 ),
INT( _TSCP( 32 ) ) ) );
goto L6643;
L6642:
X3 = scrt2__2b_2dtwo( x3051, _TSCP( 32 ) );
L6643:
X2 = scrt3_substring( DISPLAY( 0 ), x3051, X3 );
X1 = sc_cons( c2966, X2 );
if ( BITAND( BITOR( INT( x3051 ),
INT( _TSCP( 32 ) ) ),
3 ) ) goto L6644;
X3 = _TSCP( IPLUS( INT( x3051 ),
INT( _TSCP( 32 ) ) ) );
goto L6645;
L6644:
X3 = scrt2__2b_2dtwo( x3051, _TSCP( 32 ) );
L6645:
X2 = xlibtypes_l3049( X3 );
return( sc_cons( X1, X2 ) );
L6640:
return( EMPTYLIST );
}
TSCP xlibtypes_gle_2dlist_f9cc2165( x3041 )
TSCP x3041;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxrectangleap( x3041 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6635;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6635:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l3049( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_rectanglea_db5a7359_v );
DEFSTRING( t6646, "XRECTANGLE-LIST->XRECTANGLEA", 28 );
TSCP xlibtypes_rectanglea_db5a7359( x3073 )
TSCP x3073;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x3073;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6650:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6651;
X2 = X4;
goto L6658;
L6651:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6654;
scrt1__24__car_2derror( X3 );
L6654:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxrectanglep( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6657;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6650;
L6657:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6662;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6662:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6650;
L6658:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c3004, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxarcp_v );
DEFSTRING( t6664, "CHK-XARCP", 9 );
TSCP xlibtypes_chk_2dxarcp( x3114 )
TSCP x3114;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3114 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6676;
if ( EQ( TSCPTAG( x3114 ), PAIRTAG ) ) goto L6673;
scrt1__24__car_2derror( x3114 );
L6673:
X2 = PAIR_CAR( x3114 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3128 ) ) ) goto L6676;
return( PAIR_CDR( x3114 ) );
L6676:
return( scrt6_error( c3129,
c1018, CONS( x3114, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxarcp_3f_v );
DEFSTRING( t6677, "ISA-XARCP?", 10 );
TSCP xlibtypes_isa_2dxarcp_3f( x3136 )
TSCP x3136;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3136 ), PAIRTAG ) ) goto L6679;
X1 = PAIR_CAR( x3136 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3128 ) ) ) );
L6679:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxarcap_v );
DEFSTRING( t6682, "CHK-XARCAP", 10 );
TSCP xlibtypes_chk_2dxarcap( x3152 )
TSCP x3152;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3152 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6694;
if ( EQ( TSCPTAG( x3152 ), PAIRTAG ) ) goto L6691;
scrt1__24__car_2derror( x3152 );
L6691:
X2 = PAIR_CAR( x3152 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3166 ) ) ) goto L6694;
return( PAIR_CDR( x3152 ) );
L6694:
return( scrt6_error( c3167,
c1018, CONS( x3152, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxarcap_3f_v );
DEFSTRING( t6695, "ISA-XARCAP?", 11 );
TSCP xlibtypes_isa_2dxarcap_3f( x3174 )
TSCP x3174;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3174 ), PAIRTAG ) ) goto L6697;
X1 = PAIR_CAR( x3174 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3166 ) ) ) );
L6697:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xarca_2dlength_v );
DEFSTRING( t6700, "XARCA-LENGTH", 12 );
TSCP xlibtypes_xarca_2dlength( x3190 )
TSCP x3190;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxarcap( x3190 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6703;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6703:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 48 ) ) ),
3 ) ) goto L6706;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 48 ) ) ) ) );
L6706:
return( scrt2_quotient( X1, _TSCP( 48 ) ) );
}
DEFTSCP( xlibtypes_arc_2dlist_b80404f2_v );
DEFSTRING( t6708, "XARCA->XARC-LIST", 16 );
EXTERNTSCPP( xlibtypes_l3211 );
TSCP xlibtypes_l3211( x3213 )
TSCP x3213;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x3213 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6717;
if ( BITAND( BITOR( INT( x3213 ),
INT( _TSCP( 48 ) ) ),
3 ) ) goto L6719;
X3 = _TSCP( IPLUS( INT( x3213 ),
INT( _TSCP( 48 ) ) ) );
goto L6720;
L6719:
X3 = scrt2__2b_2dtwo( x3213, _TSCP( 48 ) );
L6720:
X2 = scrt3_substring( DISPLAY( 0 ), x3213, X3 );
X1 = sc_cons( c3128, X2 );
if ( BITAND( BITOR( INT( x3213 ),
INT( _TSCP( 48 ) ) ),
3 ) ) goto L6721;
X3 = _TSCP( IPLUS( INT( x3213 ),
INT( _TSCP( 48 ) ) ) );
goto L6722;
L6721:
X3 = scrt2__2b_2dtwo( x3213, _TSCP( 48 ) );
L6722:
X2 = xlibtypes_l3211( X3 );
return( sc_cons( X1, X2 ) );
L6717:
return( EMPTYLIST );
}
TSCP xlibtypes_arc_2dlist_b80404f2( x3203 )
TSCP x3203;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxarcap( x3203 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6712;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6712:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l3211( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_2d_3exarca_5345880f_v );
DEFSTRING( t6723, "XARC-LIST->XARCA", 16 );
TSCP xlibtypes_2d_3exarca_5345880f( x3235 )
TSCP x3235;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x3235;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6727:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6728;
X2 = X4;
goto L6735;
L6728:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6731;
scrt1__24__car_2derror( X3 );
L6731:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxarcp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6734;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6727;
L6734:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6739;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6739:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6727;
L6735:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c3166, X1 ) );
}
DEFTSCP( xlibtypes_rdcontrolp_b8c5a0f8_v );
DEFSTRING( t6741, "CHK-XKEYBOARDCONTROLP", 21 );
TSCP xlibtypes_rdcontrolp_b8c5a0f8( x3276 )
TSCP x3276;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3276 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6753;
if ( EQ( TSCPTAG( x3276 ), PAIRTAG ) ) goto L6750;
scrt1__24__car_2derror( x3276 );
L6750:
X2 = PAIR_CAR( x3276 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3290 ) ) ) goto L6753;
return( PAIR_CDR( x3276 ) );
L6753:
return( scrt6_error( c3291,
c1018, CONS( x3276, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_ontrolp_3f_c320f43e_v );
DEFSTRING( t6754, "ISA-XKEYBOARDCONTROLP?", 22 );
TSCP xlibtypes_ontrolp_3f_c320f43e( x3298 )
TSCP x3298;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3298 ), PAIRTAG ) ) goto L6756;
X1 = PAIR_CAR( x3298 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3290 ) ) ) );
L6756:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_oardstatep_c630d819_v );
DEFSTRING( t6759, "CHK-XKEYBOARDSTATEP", 19 );
TSCP xlibtypes_oardstatep_c630d819( x3314 )
TSCP x3314;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3314 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6771;
if ( EQ( TSCPTAG( x3314 ), PAIRTAG ) ) goto L6768;
scrt1__24__car_2derror( x3314 );
L6768:
X2 = PAIR_CAR( x3314 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3328 ) ) ) goto L6771;
return( PAIR_CDR( x3314 ) );
L6771:
return( scrt6_error( c3329,
c1018, CONS( x3314, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_dstatep_3f_a09ecc34_v );
DEFSTRING( t6772, "ISA-XKEYBOARDSTATEP?", 20 );
TSCP xlibtypes_dstatep_3f_a09ecc34( x3336 )
TSCP x3336;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3336 ), PAIRTAG ) ) goto L6774;
X1 = PAIR_CAR( x3336 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3328 ) ) ) );
L6774:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxqkeymapp_v );
DEFSTRING( t6777, "CHK-XQKEYMAPP", 13 );
TSCP xlibtypes_chk_2dxqkeymapp( x3352 )
TSCP x3352;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3352 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6789;
if ( EQ( TSCPTAG( x3352 ), PAIRTAG ) ) goto L6786;
scrt1__24__car_2derror( x3352 );
L6786:
X2 = PAIR_CAR( x3352 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3366 ) ) ) goto L6789;
return( PAIR_CDR( x3352 ) );
L6789:
return( scrt6_error( c3367,
c1018, CONS( x3352, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxqkeymapp_3f_v );
DEFSTRING( t6790, "ISA-XQKEYMAPP?", 14 );
TSCP xlibtypes_isa_2dxqkeymapp_3f( x3374 )
TSCP x3374;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3374 ), PAIRTAG ) ) goto L6792;
X1 = PAIR_CAR( x3374 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3366 ) ) ) );
L6792:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xqkeymap_2dlength_v );
DEFSTRING( t6795, "XQKEYMAP-LENGTH", 15 );
TSCP xlibtypes_xqkeymap_2dlength( x3390 )
TSCP x3390;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxqkeymapp( x3390 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6798;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6798:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L6801;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 4 ) ) ) ) );
L6801:
return( scrt2_quotient( X1, _TSCP( 4 ) ) );
}
DEFTSCP( xlibtypes_xqkeymap_v );
DEFSTRING( t6803, "XQKEYMAP", 8 );
TSCP xlibtypes_xqkeymap( x3403, i3404 )
TSCP x3403, i3404;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dxqkeymapp( x3403 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( i3404 ) ),
3 ) ) goto L6806;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( i3404 ) ) );
goto L6807;
L6806:
X3 = scrt2__2a_2dtwo( _TSCP( 4 ), i3404 );
L6807:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L6809;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L6810;
L6809:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L6810:
return( scrt4_c_2dbyte_2dref( X1, X2 ) );
}
DEFTSCP( xlibtypes_har_2dlist_bd0d3e65_v );
DEFSTRING( t6811, "XQKEYMAP->CHAR-LIST", 19 );
EXTERNTSCPP( xlibtypes_l3425 );
TSCP xlibtypes_l3425( i3427, c3428 )
TSCP i3427, c3428;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( i3427 ), UNSIGNED( c3428 ) ) ) goto L6815;
X1 = xlibtypes_xqkeymap( DISPLAY( 0 ), i3427 );
if ( BITAND( BITOR( INT( i3427 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L6817;
X3 = _TSCP( IPLUS( INT( i3427 ), INT( _TSCP( 4 ) ) ) );
goto L6818;
L6817:
X3 = scrt2__2b_2dtwo( i3427, _TSCP( 4 ) );
L6818:
X2 = xlibtypes_l3425( X3, c3428 );
return( sc_cons( X1, X2 ) );
L6815:
return( EMPTYLIST );
}
TSCP xlibtypes_har_2dlist_bd0d3e65( x3423 )
TSCP x3423;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
DISPLAY( 0 ) = x3423;
X1 = xlibtypes_xqkeymap_2dlength( DISPLAY( 0 ) );
SDVAL = xlibtypes_l3425( _TSCP( 0 ), X1 );
DISPLAY( 0 ) = SD0;
return( SDVAL );
}
DEFTSCP( xlibtypes_3exqkeymap_10271c35_v );
DEFSTRING( t6819, "CHAR-LIST->XQKEYMAP", 19 );
EXTERNTSCPP( xlibtypes_make_2dxqkeymap );
EXTERNTSCP( xlibtypes_make_2dxqkeymap_v );
EXTERNTSCPP( xlibtypes_xqkeymap_21 );
EXTERNTSCP( xlibtypes_xqkeymap_21_v );
TSCP xlibtypes_3exqkeymap_10271c35( l3440 )
TSCP l3440;
{
TSCP X5, X4, X3, X2, X1;
X1 = l3440;
X2 = _TSCP( 0 );
X3 = xlibtypes_make_2dxqkeymap( );
L6822:
if ( FALSE( X1 ) ) goto L6823;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L6827;
scrt1__24__car_2derror( X1 );
L6827:
X4 = PAIR_CAR( X1 );
xlibtypes_xqkeymap_21( X3, X2, X4 );
X4 = PAIR_CDR( X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L6830;
X5 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L6831;
L6830:
X5 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L6831:
X2 = X5;
X1 = X4;
goto L6822;
L6823:
return( X3 );
}
DEFTSCP( xlibtypes_xqkeymap_21_v );
DEFSTRING( t6832, "XQKEYMAP!", 9 );
TSCP xlibtypes_xqkeymap_21( x3465, i3466, z3467 )
TSCP x3465, i3466, z3467;
{
TSCP X3, X2, X1;
X1 = xlibtypes_chk_2dxqkeymapp( x3465 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( i3466 ) ),
3 ) ) goto L6835;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( i3466 ) ) );
goto L6836;
L6835:
X3 = scrt2__2a_2dtwo( _TSCP( 4 ), i3466 );
L6836:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L6838;
X2 = _TSCP( IPLUS( INT( _TSCP( 0 ) ), INT( X3 ) ) );
goto L6839;
L6838:
X2 = scrt2__2b_2dtwo( _TSCP( 0 ), X3 );
L6839:
return( scrt4_c_2dbyte_2dset_21( X1, X2, z3467 ) );
}
DEFTSCP( xlibtypes_make_2dxqkeymap_v );
DEFSTRING( t6840, "MAKE-XQKEYMAP", 13 );
TSCP xlibtypes_make_2dxqkeymap( )
{
TSCP X5, X4, X3, X2, X1;
if ( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( _TSCP( 128 ) ) ),
3 ) ) goto L6842;
X2 = _TSCP( ITIMES( FIXED_C( _TSCP( 4 ) ),
INT( _TSCP( 128 ) ) ) );
goto L6843;
L6842:
X2 = scrt2__2a_2dtwo( _TSCP( 4 ), _TSCP( 128 ) );
L6843:
X4 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X4 ) ) goto L6849;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L6850;
X5 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L6851;
L6850:
X5 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L6851:
if ( TRUE( X5 ) ) goto L6849;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L6858;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L6849;
goto L6865;
L6858:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L6865;
L6849:
scrt6_error( c1176,
c1177, CONS( _TSCP( 0 ), EMPTYLIST ) );
L6865:
X1 = sc_make_2dstring( X2,
CONS( FIX_CHAR( _TSCP( 0 ) ),
EMPTYLIST ) );
return( sc_cons( c3366, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxtimecoordp_v );
DEFSTRING( t6866, "CHK-XTIMECOORDP", 15 );
TSCP xlibtypes_chk_2dxtimecoordp( x3521 )
TSCP x3521;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3521 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6878;
if ( EQ( TSCPTAG( x3521 ), PAIRTAG ) ) goto L6875;
scrt1__24__car_2derror( x3521 );
L6875:
X2 = PAIR_CAR( x3521 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3535 ) ) ) goto L6878;
return( PAIR_CDR( x3521 ) );
L6878:
return( scrt6_error( c3536,
c1018, CONS( x3521, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_ecoordp_3f_dff49d0a_v );
DEFSTRING( t6879, "ISA-XTIMECOORDP?", 16 );
TSCP xlibtypes_ecoordp_3f_dff49d0a( x3543 )
TSCP x3543;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3543 ), PAIRTAG ) ) goto L6881;
X1 = PAIR_CAR( x3543 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3535 ) ) ) );
L6881:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxtimecoordap_v );
DEFSTRING( t6884, "CHK-XTIMECOORDAP", 16 );
TSCP xlibtypes_chk_2dxtimecoordap( x3559 )
TSCP x3559;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3559 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6896;
if ( EQ( TSCPTAG( x3559 ), PAIRTAG ) ) goto L6893;
scrt1__24__car_2derror( x3559 );
L6893:
X2 = PAIR_CAR( x3559 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3573 ) ) ) goto L6896;
return( PAIR_CDR( x3559 ) );
L6896:
return( scrt6_error( c3574,
c1018, CONS( x3559, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_coordap_3f_670b43e1_v );
DEFSTRING( t6897, "ISA-XTIMECOORDAP?", 17 );
TSCP xlibtypes_coordap_3f_670b43e1( x3581 )
TSCP x3581;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3581 ), PAIRTAG ) ) goto L6899;
X1 = PAIR_CAR( x3581 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3573 ) ) ) );
L6899:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_a_2dlength_d96bdf8c_v );
DEFSTRING( t6902, "XTIMECOORDA-LENGTH", 18 );
TSCP xlibtypes_a_2dlength_d96bdf8c( x3597 )
TSCP x3597;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxtimecoordap( x3597 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L6905;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L6905:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 32 ) ) ),
3 ) ) goto L6908;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 32 ) ) ) ) );
L6908:
return( scrt2_quotient( X1, _TSCP( 32 ) ) );
}
DEFTSCP( xlibtypes_ord_2dlist_822c56f8_v );
DEFSTRING( t6910, "XTIMECOORDA->XTIMECOORD-LIST", 28 );
EXTERNTSCPP( xlibtypes_l3618 );
TSCP xlibtypes_l3618( x3620 )
TSCP x3620;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x3620 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L6919;
if ( BITAND( BITOR( INT( x3620 ),
INT( _TSCP( 32 ) ) ),
3 ) ) goto L6921;
X3 = _TSCP( IPLUS( INT( x3620 ),
INT( _TSCP( 32 ) ) ) );
goto L6922;
L6921:
X3 = scrt2__2b_2dtwo( x3620, _TSCP( 32 ) );
L6922:
X2 = scrt3_substring( DISPLAY( 0 ), x3620, X3 );
X1 = sc_cons( c3535, X2 );
if ( BITAND( BITOR( INT( x3620 ),
INT( _TSCP( 32 ) ) ),
3 ) ) goto L6923;
X3 = _TSCP( IPLUS( INT( x3620 ),
INT( _TSCP( 32 ) ) ) );
goto L6924;
L6923:
X3 = scrt2__2b_2dtwo( x3620, _TSCP( 32 ) );
L6924:
X2 = xlibtypes_l3618( X3 );
return( sc_cons( X1, X2 ) );
L6919:
return( EMPTYLIST );
}
TSCP xlibtypes_ord_2dlist_822c56f8( x3610 )
TSCP x3610;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxtimecoordap( x3610 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L6914;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L6914:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l3618( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_timecoorda_7a86fb9_v );
DEFSTRING( t6925, "XTIMECOORD-LIST->XTIMECOORDA", 28 );
TSCP xlibtypes_timecoorda_7a86fb9( x3642 )
TSCP x3642;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x3642;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L6929:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L6930;
X2 = X4;
goto L6937;
L6930:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6933;
scrt1__24__car_2derror( X3 );
L6933:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxtimecoordp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L6936;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L6929;
L6936:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6941;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L6941:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L6929;
L6937:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c3573, X1 ) );
}
DEFTSCP( xlibtypes_ierkeymapp_ba00839f_v );
DEFSTRING( t6943, "CHK-XMODIFIERKEYMAPP", 20 );
TSCP xlibtypes_ierkeymapp_ba00839f( x3683 )
TSCP x3683;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3683 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6955;
if ( EQ( TSCPTAG( x3683 ), PAIRTAG ) ) goto L6952;
scrt1__24__car_2derror( x3683 );
L6952:
X2 = PAIR_CAR( x3683 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3697 ) ) ) goto L6955;
return( PAIR_CDR( x3683 ) );
L6955:
return( scrt6_error( c3698,
c1018, CONS( x3683, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_keymapp_3f_758133a1_v );
DEFSTRING( t6956, "ISA-XMODIFIERKEYMAPP?", 21 );
TSCP xlibtypes_keymapp_3f_758133a1( x3705 )
TSCP x3705;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3705 ), PAIRTAG ) ) goto L6958;
X1 = PAIR_CAR( x3705 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3697 ) ) ) );
L6958:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_odifiermap_e79d2f2_v );
DEFSTRING( t6961, "CHK-XNEWMODIFIERMAP", 19 );
TSCP xlibtypes_odifiermap_e79d2f2( x3721 )
TSCP x3721;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3721 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6973;
if ( EQ( TSCPTAG( x3721 ), PAIRTAG ) ) goto L6970;
scrt1__24__car_2derror( x3721 );
L6970:
X2 = PAIR_CAR( x3721 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3735 ) ) ) goto L6973;
return( PAIR_CDR( x3721 ) );
L6973:
return( scrt6_error( c3736,
c1018, CONS( x3721, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_fiermap_3f_f0c6e203_v );
DEFSTRING( t6974, "ISA-XNEWMODIFIERMAP?", 20 );
TSCP xlibtypes_fiermap_3f_f0c6e203( x3743 )
TSCP x3743;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3743 ), PAIRTAG ) ) goto L6976;
X1 = PAIR_CAR( x3743 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3735 ) ) ) );
L6976:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_iermapping_6e7d9e34_v );
DEFSTRING( t6979, "CHK-XGETMODIFIERMAPPING", 23 );
TSCP xlibtypes_iermapping_6e7d9e34( x3759 )
TSCP x3759;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3759 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L6991;
if ( EQ( TSCPTAG( x3759 ), PAIRTAG ) ) goto L6988;
scrt1__24__car_2derror( x3759 );
L6988:
X2 = PAIR_CAR( x3759 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3773 ) ) ) goto L6991;
return( PAIR_CDR( x3759 ) );
L6991:
return( scrt6_error( c3774,
c1018, CONS( x3759, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_mapping_3f_b48b0bfa_v );
DEFSTRING( t6992, "ISA-XGETMODIFIERMAPPING?", 24 );
TSCP xlibtypes_mapping_3f_b48b0bfa( x3781 )
TSCP x3781;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3781 ), PAIRTAG ) ) goto L6994;
X1 = PAIR_CAR( x3781 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3773 ) ) ) );
L6994:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_ermapentry_9d0cef7c_v );
DEFSTRING( t6997, "CHK-XDELETEMODIFIERMAPENTRY", 27 );
TSCP xlibtypes_ermapentry_9d0cef7c( x3797 )
TSCP x3797;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3797 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7009;
if ( EQ( TSCPTAG( x3797 ), PAIRTAG ) ) goto L7006;
scrt1__24__car_2derror( x3797 );
L7006:
X2 = PAIR_CAR( x3797 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3811 ) ) ) goto L7009;
return( PAIR_CDR( x3797 ) );
L7009:
return( scrt6_error( c3812,
c1018, CONS( x3797, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_apentry_3f_abeee9ca_v );
DEFSTRING( t7010, "ISA-XDELETEMODIFIERMAPENTRY?", 28 );
TSCP xlibtypes_apentry_3f_abeee9ca( x3819 )
TSCP x3819;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3819 ), PAIRTAG ) ) goto L7012;
X1 = PAIR_CAR( x3819 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3811 ) ) ) );
L7012:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_ermapentry_33f88096_v );
DEFSTRING( t7015, "CHK-XINSERTMODIFIERMAPENTRY", 27 );
TSCP xlibtypes_ermapentry_33f88096( x3835 )
TSCP x3835;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3835 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7027;
if ( EQ( TSCPTAG( x3835 ), PAIRTAG ) ) goto L7024;
scrt1__24__car_2derror( x3835 );
L7024:
X2 = PAIR_CAR( x3835 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3849 ) ) ) goto L7027;
return( PAIR_CDR( x3835 ) );
L7027:
return( scrt6_error( c3850,
c1018, CONS( x3835, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_apentry_3f_572efd7f_v );
DEFSTRING( t7028, "ISA-XINSERTMODIFIERMAPENTRY?", 28 );
TSCP xlibtypes_apentry_3f_572efd7f( x3857 )
TSCP x3857;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3857 ), PAIRTAG ) ) goto L7030;
X1 = PAIR_CAR( x3857 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3849 ) ) ) );
L7030:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2ddisplayp_v );
DEFSTRING( t7033, "CHK-DISPLAYP", 12 );
TSCP xlibtypes_chk_2ddisplayp( x3873 )
TSCP x3873;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3873 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7045;
if ( EQ( TSCPTAG( x3873 ), PAIRTAG ) ) goto L7042;
scrt1__24__car_2derror( x3873 );
L7042:
X2 = PAIR_CAR( x3873 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3887 ) ) ) goto L7045;
return( PAIR_CDR( x3873 ) );
L7045:
return( scrt6_error( c3888,
c1018, CONS( x3873, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2ddisplayp_3f_v );
DEFSTRING( t7046, "ISA-DISPLAYP?", 13 );
TSCP xlibtypes_isa_2ddisplayp_3f( x3895 )
TSCP x3895;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3895 ), PAIRTAG ) ) goto L7048;
X1 = PAIR_CAR( x3895 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3887 ) ) ) );
L7048:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxeventp_v );
DEFSTRING( t7051, "CHK-XEVENTP", 11 );
TSCP xlibtypes_chk_2dxeventp( x3911 )
TSCP x3911;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3911 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7063;
if ( EQ( TSCPTAG( x3911 ), PAIRTAG ) ) goto L7060;
scrt1__24__car_2derror( x3911 );
L7060:
X2 = PAIR_CAR( x3911 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3925 ) ) ) goto L7063;
return( PAIR_CDR( x3911 ) );
L7063:
return( scrt6_error( c3926,
c1018, CONS( x3911, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxeventp_3f_v );
DEFSTRING( t7064, "ISA-XEVENTP?", 12 );
TSCP xlibtypes_isa_2dxeventp_3f( x3933 )
TSCP x3933;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3933 ), PAIRTAG ) ) goto L7066;
X1 = PAIR_CAR( x3933 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3925 ) ) ) );
L7066:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxcharstructp_v );
DEFSTRING( t7069, "CHK-XCHARSTRUCTP", 16 );
TSCP xlibtypes_chk_2dxcharstructp( x3949 )
TSCP x3949;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3949 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7081;
if ( EQ( TSCPTAG( x3949 ), PAIRTAG ) ) goto L7078;
scrt1__24__car_2derror( x3949 );
L7078:
X2 = PAIR_CAR( x3949 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c3963 ) ) ) goto L7081;
return( PAIR_CDR( x3949 ) );
L7081:
return( scrt6_error( c3964,
c1018, CONS( x3949, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_structp_3f_a502ff7b_v );
DEFSTRING( t7082, "ISA-XCHARSTRUCTP?", 17 );
TSCP xlibtypes_structp_3f_a502ff7b( x3971 )
TSCP x3971;
{
TSCP X1;
if ( NEQ( TSCPTAG( x3971 ), PAIRTAG ) ) goto L7084;
X1 = PAIR_CAR( x3971 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c3963 ) ) ) );
L7084:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxfontpropp_v );
DEFSTRING( t7087, "CHK-XFONTPROPP", 14 );
TSCP xlibtypes_chk_2dxfontpropp( x3987 )
TSCP x3987;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x3987 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7099;
if ( EQ( TSCPTAG( x3987 ), PAIRTAG ) ) goto L7096;
scrt1__24__car_2derror( x3987 );
L7096:
X2 = PAIR_CAR( x3987 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4001 ) ) ) goto L7099;
return( PAIR_CDR( x3987 ) );
L7099:
return( scrt6_error( c4002,
c1018, CONS( x3987, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxfontpropp_3f_v );
DEFSTRING( t7100, "ISA-XFONTPROPP?", 15 );
TSCP xlibtypes_isa_2dxfontpropp_3f( x4009 )
TSCP x4009;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4009 ), PAIRTAG ) ) goto L7102;
X1 = PAIR_CAR( x4009 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4001 ) ) ) );
L7102:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxfontstructp_v );
DEFSTRING( t7105, "CHK-XFONTSTRUCTP", 16 );
TSCP xlibtypes_chk_2dxfontstructp( x4025 )
TSCP x4025;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4025 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7117;
if ( EQ( TSCPTAG( x4025 ), PAIRTAG ) ) goto L7114;
scrt1__24__car_2derror( x4025 );
L7114:
X2 = PAIR_CAR( x4025 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4039 ) ) ) goto L7117;
return( PAIR_CDR( x4025 ) );
L7117:
return( scrt6_error( c4040,
c1018, CONS( x4025, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_structp_3f_c6f3c27c_v );
DEFSTRING( t7118, "ISA-XFONTSTRUCTP?", 17 );
TSCP xlibtypes_structp_3f_c6f3c27c( x4047 )
TSCP x4047;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4047 ), PAIRTAG ) ) goto L7120;
X1 = PAIR_CAR( x4047 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4039 ) ) ) );
L7120:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxfontstructap_v );
DEFSTRING( t7123, "CHK-XFONTSTRUCTAP", 17 );
TSCP xlibtypes_chk_2dxfontstructap( x4063 )
TSCP x4063;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4063 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7135;
if ( EQ( TSCPTAG( x4063 ), PAIRTAG ) ) goto L7132;
scrt1__24__car_2derror( x4063 );
L7132:
X2 = PAIR_CAR( x4063 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4077 ) ) ) goto L7135;
return( PAIR_CDR( x4063 ) );
L7135:
return( scrt6_error( c4078,
c1018, CONS( x4063, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_tructap_3f_de7490b7_v );
DEFSTRING( t7136, "ISA-XFONTSTRUCTAP?", 18 );
TSCP xlibtypes_tructap_3f_de7490b7( x4085 )
TSCP x4085;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4085 ), PAIRTAG ) ) goto L7138;
X1 = PAIR_CAR( x4085 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4077 ) ) ) );
L7138:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_a_2dlength_bfd8d767_v );
DEFSTRING( t7141, "XFONTSTRUCTA-LENGTH", 19 );
TSCP xlibtypes_a_2dlength_bfd8d767( x4101 )
TSCP x4101;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxfontstructap( x4101 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L7144;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L7144:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ),
INT( _TSCP( 320 ) ) ),
3 ) ) goto L7147;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 320 ) ) ) ) );
L7147:
return( scrt2_quotient( X1, _TSCP( 320 ) ) );
}
DEFTSCP( xlibtypes_uct_2dlist_45b4f7e7_v );
DEFSTRING( t7149, "XFONTSTRUCTA->XFONTSTRUCT-LIST", 30 );
EXTERNTSCPP( xlibtypes_l4123 );
TSCP xlibtypes_l4123( x4125 )
TSCP x4125;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x4125 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L7158;
if ( BITAND( BITOR( INT( x4125 ),
INT( _TSCP( 320 ) ) ),
3 ) ) goto L7160;
X3 = _TSCP( IPLUS( INT( x4125 ),
INT( _TSCP( 320 ) ) ) );
goto L7161;
L7160:
X3 = scrt2__2b_2dtwo( x4125, _TSCP( 320 ) );
L7161:
X2 = scrt3_substring( DISPLAY( 0 ), x4125, X3 );
X1 = sc_cons( c4039, X2 );
if ( BITAND( BITOR( INT( x4125 ),
INT( _TSCP( 320 ) ) ),
3 ) ) goto L7162;
X3 = _TSCP( IPLUS( INT( x4125 ),
INT( _TSCP( 320 ) ) ) );
goto L7163;
L7162:
X3 = scrt2__2b_2dtwo( x4125, _TSCP( 320 ) );
L7163:
X2 = xlibtypes_l4123( X3 );
return( sc_cons( X1, X2 ) );
L7158:
return( EMPTYLIST );
}
TSCP xlibtypes_uct_2dlist_45b4f7e7( x4115 )
TSCP x4115;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxfontstructap( x4115 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L7153;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L7153:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l4123( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_ontstructa_ff2767b7_v );
DEFSTRING( t7164, "XFONTSTRUCT-LIST->XFONTSTRUCTA", 30 );
TSCP xlibtypes_ontstructa_ff2767b7( x4147 )
TSCP x4147;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x4147;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L7168:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L7169;
X2 = X4;
goto L7176;
L7169:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L7172;
scrt1__24__car_2derror( X3 );
L7172:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxfontstructp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L7175;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L7168;
L7175:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L7180;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L7180:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L7168;
L7176:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c4077, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxtextitemp_v );
DEFSTRING( t7182, "CHK-XTEXTITEMP", 14 );
TSCP xlibtypes_chk_2dxtextitemp( x4188 )
TSCP x4188;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4188 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7194;
if ( EQ( TSCPTAG( x4188 ), PAIRTAG ) ) goto L7191;
scrt1__24__car_2derror( x4188 );
L7191:
X2 = PAIR_CAR( x4188 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4202 ) ) ) goto L7194;
return( PAIR_CDR( x4188 ) );
L7194:
return( scrt6_error( c4203,
c1018, CONS( x4188, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxtextitemp_3f_v );
DEFSTRING( t7195, "ISA-XTEXTITEMP?", 15 );
TSCP xlibtypes_isa_2dxtextitemp_3f( x4210 )
TSCP x4210;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4210 ), PAIRTAG ) ) goto L7197;
X1 = PAIR_CAR( x4210 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4202 ) ) ) );
L7197:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxtextitemap_v );
DEFSTRING( t7200, "CHK-XTEXTITEMAP", 15 );
TSCP xlibtypes_chk_2dxtextitemap( x4226 )
TSCP x4226;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4226 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7212;
if ( EQ( TSCPTAG( x4226 ), PAIRTAG ) ) goto L7209;
scrt1__24__car_2derror( x4226 );
L7209:
X2 = PAIR_CAR( x4226 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4240 ) ) ) goto L7212;
return( PAIR_CDR( x4226 ) );
L7212:
return( scrt6_error( c4241,
c1018, CONS( x4226, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_titemap_3f_e7dc9547_v );
DEFSTRING( t7213, "ISA-XTEXTITEMAP?", 16 );
TSCP xlibtypes_titemap_3f_e7dc9547( x4248 )
TSCP x4248;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4248 ), PAIRTAG ) ) goto L7215;
X1 = PAIR_CAR( x4248 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4240 ) ) ) );
L7215:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xtextitema_2dlength_v );
DEFSTRING( t7218, "XTEXTITEMA-LENGTH", 17 );
TSCP xlibtypes_xtextitema_2dlength( x4264 )
TSCP x4264;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxtextitemap( x4264 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L7221;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L7221:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 64 ) ) ),
3 ) ) goto L7224;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 64 ) ) ) ) );
L7224:
return( scrt2_quotient( X1, _TSCP( 64 ) ) );
}
DEFTSCP( xlibtypes_tem_2dlist_b9cd939c_v );
DEFSTRING( t7226, "XTEXTITEMA->XTEXTITEM-LIST", 26 );
EXTERNTSCPP( xlibtypes_l4286 );
TSCP xlibtypes_l4286( x4288 )
TSCP x4288;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x4288 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L7235;
if ( BITAND( BITOR( INT( x4288 ),
INT( _TSCP( 64 ) ) ),
3 ) ) goto L7237;
X3 = _TSCP( IPLUS( INT( x4288 ),
INT( _TSCP( 64 ) ) ) );
goto L7238;
L7237:
X3 = scrt2__2b_2dtwo( x4288, _TSCP( 64 ) );
L7238:
X2 = scrt3_substring( DISPLAY( 0 ), x4288, X3 );
X1 = sc_cons( c4202, X2 );
if ( BITAND( BITOR( INT( x4288 ),
INT( _TSCP( 64 ) ) ),
3 ) ) goto L7239;
X3 = _TSCP( IPLUS( INT( x4288 ),
INT( _TSCP( 64 ) ) ) );
goto L7240;
L7239:
X3 = scrt2__2b_2dtwo( x4288, _TSCP( 64 ) );
L7240:
X2 = xlibtypes_l4286( X3 );
return( sc_cons( X1, X2 ) );
L7235:
return( EMPTYLIST );
}
TSCP xlibtypes_tem_2dlist_b9cd939c( x4278 )
TSCP x4278;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxtextitemap( x4278 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L7230;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L7230:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l4286( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_xtextitema_d25736f5_v );
DEFSTRING( t7241, "XTEXTITEM-LIST->XTEXTITEMA", 26 );
TSCP xlibtypes_xtextitema_d25736f5( x4310 )
TSCP x4310;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x4310;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L7245:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L7246;
X2 = X4;
goto L7253;
L7246:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L7249;
scrt1__24__car_2derror( X3 );
L7249:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxtextitemp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L7252;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L7245;
L7252:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L7257;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L7257:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L7245;
L7253:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c4240, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxchar2bp_v );
DEFSTRING( t7259, "CHK-XCHAR2BP", 12 );
TSCP xlibtypes_chk_2dxchar2bp( x4351 )
TSCP x4351;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4351 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7271;
if ( EQ( TSCPTAG( x4351 ), PAIRTAG ) ) goto L7268;
scrt1__24__car_2derror( x4351 );
L7268:
X2 = PAIR_CAR( x4351 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4365 ) ) ) goto L7271;
return( PAIR_CDR( x4351 ) );
L7271:
return( scrt6_error( c4366,
c1018, CONS( x4351, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxchar2bp_3f_v );
DEFSTRING( t7272, "ISA-XCHAR2BP?", 13 );
TSCP xlibtypes_isa_2dxchar2bp_3f( x4373 )
TSCP x4373;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4373 ), PAIRTAG ) ) goto L7274;
X1 = PAIR_CAR( x4373 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4365 ) ) ) );
L7274:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxchar2bap_v );
DEFSTRING( t7277, "CHK-XCHAR2BAP", 13 );
TSCP xlibtypes_chk_2dxchar2bap( x4389 )
TSCP x4389;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4389 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7289;
if ( EQ( TSCPTAG( x4389 ), PAIRTAG ) ) goto L7286;
scrt1__24__car_2derror( x4389 );
L7286:
X2 = PAIR_CAR( x4389 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4403 ) ) ) goto L7289;
return( PAIR_CDR( x4389 ) );
L7289:
return( scrt6_error( c4404,
c1018, CONS( x4389, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxchar2bap_3f_v );
DEFSTRING( t7290, "ISA-XCHAR2BAP?", 14 );
TSCP xlibtypes_isa_2dxchar2bap_3f( x4411 )
TSCP x4411;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4411 ), PAIRTAG ) ) goto L7292;
X1 = PAIR_CAR( x4411 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4403 ) ) ) );
L7292:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_xchar2ba_2dlength_v );
DEFSTRING( t7295, "XCHAR2BA-LENGTH", 15 );
TSCP xlibtypes_xchar2ba_2dlength( x4427 )
TSCP x4427;
{
TSCP X3, X2, X1;
X2 = xlibtypes_chk_2dxchar2bap( x4427 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L7298;
scrt6_error( c1052, c1053, CONS( X2, EMPTYLIST ) );
L7298:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L7301;
return( C_FIXED( QUOTIENT( INT( X1 ),
INT( _TSCP( 8 ) ) ) ) );
L7301:
return( scrt2_quotient( X1, _TSCP( 8 ) ) );
}
DEFTSCP( xlibtypes_r2b_2dlist_5ae2040a_v );
DEFSTRING( t7303, "XCHAR2BA->XCHAR2B-LIST", 22 );
EXTERNTSCPP( xlibtypes_l4449 );
TSCP xlibtypes_l4449( x4451 )
TSCP x4451;
{
TSCP X3, X2, X1;
if ( EQ( UNSIGNED( x4451 ),
UNSIGNED( DISPLAY( 1 ) ) ) ) goto L7312;
if ( BITAND( BITOR( INT( x4451 ),
INT( _TSCP( 8 ) ) ),
3 ) ) goto L7314;
X3 = _TSCP( IPLUS( INT( x4451 ), INT( _TSCP( 8 ) ) ) );
goto L7315;
L7314:
X3 = scrt2__2b_2dtwo( x4451, _TSCP( 8 ) );
L7315:
X2 = scrt3_substring( DISPLAY( 0 ), x4451, X3 );
X1 = sc_cons( c4365, X2 );
if ( BITAND( BITOR( INT( x4451 ),
INT( _TSCP( 8 ) ) ),
3 ) ) goto L7316;
X3 = _TSCP( IPLUS( INT( x4451 ), INT( _TSCP( 8 ) ) ) );
goto L7317;
L7316:
X3 = scrt2__2b_2dtwo( x4451, _TSCP( 8 ) );
L7317:
X2 = xlibtypes_l4449( X3 );
return( sc_cons( X1, X2 ) );
L7312:
return( EMPTYLIST );
}
TSCP xlibtypes_r2b_2dlist_5ae2040a( x4441 )
TSCP x4441;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
DISPLAY( 0 ) = xlibtypes_chk_2dxchar2bap( x4441 );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L7307;
scrt6_error( c1052,
c1053,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L7307:
DISPLAY( 1 ) = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
SDVAL = xlibtypes_l4449( _TSCP( 0 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
return( SDVAL );
}
DEFTSCP( xlibtypes_3exchar2ba_383c24a5_v );
DEFSTRING( t7318, "XCHAR2B-LIST->XCHAR2BA", 22 );
TSCP xlibtypes_3exchar2ba_383c24a5( x4473 )
TSCP x4473;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
X3 = x4473;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L7322:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L7323;
X2 = X4;
goto L7330;
L7323:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L7326;
scrt1__24__car_2derror( X3 );
L7326:
X8 = PAIR_CAR( X3 );
X7 = xlibtypes_chk_2dxchar2bp( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L7329;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L7322;
L7329:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L7334;
scrt6_error( c2339, c2340, CONS( X5, EMPTYLIST ) );
L7334:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L7322;
L7330:
X1 = sc_apply_2dtwo( scrt3_string_2dappend_v, X2 );
return( sc_cons( c4403, X1 ) );
}
DEFTSCP( xlibtypes_chk_2dxtextitem16p_v );
DEFSTRING( t7336, "CHK-XTEXTITEM16P", 16 );
TSCP xlibtypes_chk_2dxtextitem16p( x4514 )
TSCP x4514;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4514 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7348;
if ( EQ( TSCPTAG( x4514 ), PAIRTAG ) ) goto L7345;
scrt1__24__car_2derror( x4514 );
L7345:
X2 = PAIR_CAR( x4514 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4528 ) ) ) goto L7348;
return( PAIR_CDR( x4514 ) );
L7348:
return( scrt6_error( c4529,
c1018, CONS( x4514, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_item16p_3f_e9e34de8_v );
DEFSTRING( t7349, "ISA-XTEXTITEM16P?", 17 );
TSCP xlibtypes_item16p_3f_e9e34de8( x4536 )
TSCP x4536;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4536 ), PAIRTAG ) ) goto L7351;
X1 = PAIR_CAR( x4536 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4528 ) ) ) );
L7351:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxrmvalueptr_v );
DEFSTRING( t7354, "CHK-XRMVALUEPTR", 15 );
TSCP xlibtypes_chk_2dxrmvalueptr( x4552 )
TSCP x4552;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4552 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7366;
if ( EQ( TSCPTAG( x4552 ), PAIRTAG ) ) goto L7363;
scrt1__24__car_2derror( x4552 );
L7363:
X2 = PAIR_CAR( x4552 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4566 ) ) ) goto L7366;
return( PAIR_CDR( x4552 ) );
L7366:
return( scrt6_error( c4567,
c1018, CONS( x4552, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_alueptr_3f_e9b8d923_v );
DEFSTRING( t7367, "ISA-XRMVALUEPTR?", 16 );
TSCP xlibtypes_alueptr_3f_e9b8d923( x4574 )
TSCP x4574;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4574 ), PAIRTAG ) ) goto L7369;
X1 = PAIR_CAR( x4574 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4566 ) ) ) );
L7369:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxrmhashbucket_v );
DEFSTRING( t7372, "CHK-XRMHASHBUCKET", 17 );
TSCP xlibtypes_chk_2dxrmhashbucket( x4590 )
TSCP x4590;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4590 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7384;
if ( EQ( TSCPTAG( x4590 ), PAIRTAG ) ) goto L7381;
scrt1__24__car_2derror( x4590 );
L7381:
X2 = PAIR_CAR( x4590 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4604 ) ) ) goto L7384;
return( PAIR_CDR( x4590 ) );
L7384:
return( scrt6_error( c4605,
c1018, CONS( x4590, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_hbucket_3f_dc6a49c9_v );
DEFSTRING( t7385, "ISA-XRMHASHBUCKET?", 18 );
TSCP xlibtypes_hbucket_3f_dc6a49c9( x4612 )
TSCP x4612;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4612 ), PAIRTAG ) ) goto L7387;
X1 = PAIR_CAR( x4612 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4604 ) ) ) );
L7387:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxrmhashtable_v );
DEFSTRING( t7390, "CHK-XRMHASHTABLE", 16 );
TSCP xlibtypes_chk_2dxrmhashtable( x4628 )
TSCP x4628;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4628 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7402;
if ( EQ( TSCPTAG( x4628 ), PAIRTAG ) ) goto L7399;
scrt1__24__car_2derror( x4628 );
L7399:
X2 = PAIR_CAR( x4628 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4642 ) ) ) goto L7402;
return( PAIR_CDR( x4628 ) );
L7402:
return( scrt6_error( c4643,
c1018, CONS( x4628, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_shtable_3f_a2ca15d_v );
DEFSTRING( t7403, "ISA-XRMHASHTABLE?", 17 );
TSCP xlibtypes_shtable_3f_a2ca15d( x4650 )
TSCP x4650;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4650 ), PAIRTAG ) ) goto L7405;
X1 = PAIR_CAR( x4650 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4642 ) ) ) );
L7405:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxrmdatabase_v );
DEFSTRING( t7408, "CHK-XRMDATABASE", 15 );
TSCP xlibtypes_chk_2dxrmdatabase( x4666 )
TSCP x4666;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4666 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7420;
if ( EQ( TSCPTAG( x4666 ), PAIRTAG ) ) goto L7417;
scrt1__24__car_2derror( x4666 );
L7417:
X2 = PAIR_CAR( x4666 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4680 ) ) ) goto L7420;
return( PAIR_CDR( x4666 ) );
L7420:
return( scrt6_error( c4681,
c1018, CONS( x4666, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_atabase_3f_82082717_v );
DEFSTRING( t7421, "ISA-XRMDATABASE?", 16 );
TSCP xlibtypes_atabase_3f_82082717( x4688 )
TSCP x4688;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4688 ), PAIRTAG ) ) goto L7423;
X1 = PAIR_CAR( x4688 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4680 ) ) ) );
L7423:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxrmdatabasep_v );
DEFSTRING( t7426, "CHK-XRMDATABASEP", 16 );
TSCP xlibtypes_chk_2dxrmdatabasep( x4704 )
TSCP x4704;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4704 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7438;
if ( EQ( TSCPTAG( x4704 ), PAIRTAG ) ) goto L7435;
scrt1__24__car_2derror( x4704 );
L7435:
X2 = PAIR_CAR( x4704 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4718 ) ) ) goto L7438;
return( PAIR_CDR( x4704 ) );
L7438:
return( scrt6_error( c4719,
c1018, CONS( x4704, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_tabasep_3f_59d06db0_v );
DEFSTRING( t7439, "ISA-XRMDATABASEP?", 17 );
TSCP xlibtypes_tabasep_3f_59d06db0( x4726 )
TSCP x4726;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4726 ), PAIRTAG ) ) goto L7441;
X1 = PAIR_CAR( x4726 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4718 ) ) ) );
L7441:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_ondesclist_3b4d8a1c_v );
DEFSTRING( t7444, "CHK-XRMOPTIONDESCLIST", 21 );
TSCP xlibtypes_ondesclist_3b4d8a1c( x4742 )
TSCP x4742;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4742 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7456;
if ( EQ( TSCPTAG( x4742 ), PAIRTAG ) ) goto L7453;
scrt1__24__car_2derror( x4742 );
L7453:
X2 = PAIR_CAR( x4742 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4756 ) ) ) goto L7456;
return( PAIR_CDR( x4742 ) );
L7456:
return( scrt6_error( c4757,
c1018, CONS( x4742, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_esclist_3f_e1c34bfb_v );
DEFSTRING( t7457, "ISA-XRMOPTIONDESCLIST?", 22 );
TSCP xlibtypes_esclist_3f_e1c34bfb( x4764 )
TSCP x4764;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4764 ), PAIRTAG ) ) goto L7459;
X1 = PAIR_CAR( x4764 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4756 ) ) ) );
L7459:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxsizehintsp_v );
DEFSTRING( t7462, "CHK-XSIZEHINTSP", 15 );
TSCP xlibtypes_chk_2dxsizehintsp( x4780 )
TSCP x4780;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4780 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7474;
if ( EQ( TSCPTAG( x4780 ), PAIRTAG ) ) goto L7471;
scrt1__24__car_2derror( x4780 );
L7471:
X2 = PAIR_CAR( x4780 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4794 ) ) ) goto L7474;
return( PAIR_CDR( x4780 ) );
L7474:
return( scrt6_error( c4795,
c1018, CONS( x4780, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_ehintsp_3f_c39e7e7b_v );
DEFSTRING( t7475, "ISA-XSIZEHINTSP?", 16 );
TSCP xlibtypes_ehintsp_3f_c39e7e7b( x4802 )
TSCP x4802;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4802 ), PAIRTAG ) ) goto L7477;
X1 = PAIR_CAR( x4802 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4794 ) ) ) );
L7477:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxwmhintsp_v );
DEFSTRING( t7480, "CHK-XWMHINTSP", 13 );
TSCP xlibtypes_chk_2dxwmhintsp( x4818 )
TSCP x4818;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4818 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7492;
if ( EQ( TSCPTAG( x4818 ), PAIRTAG ) ) goto L7489;
scrt1__24__car_2derror( x4818 );
L7489:
X2 = PAIR_CAR( x4818 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4832 ) ) ) goto L7492;
return( PAIR_CDR( x4818 ) );
L7492:
return( scrt6_error( c4833,
c1018, CONS( x4818, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxwmhintsp_3f_v );
DEFSTRING( t7493, "ISA-XWMHINTSP?", 14 );
TSCP xlibtypes_isa_2dxwmhintsp_3f( x4840 )
TSCP x4840;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4840 ), PAIRTAG ) ) goto L7495;
X1 = PAIR_CAR( x4840 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4832 ) ) ) );
L7495:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxiconsizep_v );
DEFSTRING( t7498, "CHK-XICONSIZEP", 14 );
TSCP xlibtypes_chk_2dxiconsizep( x4856 )
TSCP x4856;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4856 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7510;
if ( EQ( TSCPTAG( x4856 ), PAIRTAG ) ) goto L7507;
scrt1__24__car_2derror( x4856 );
L7507:
X2 = PAIR_CAR( x4856 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4870 ) ) ) goto L7510;
return( PAIR_CDR( x4856 ) );
L7510:
return( scrt6_error( c4871,
c1018, CONS( x4856, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dxiconsizep_3f_v );
DEFSTRING( t7511, "ISA-XICONSIZEP?", 15 );
TSCP xlibtypes_isa_2dxiconsizep_3f( x4878 )
TSCP x4878;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4878 ), PAIRTAG ) ) goto L7513;
X1 = PAIR_CAR( x4878 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4870 ) ) ) );
L7513:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxclasshintp_v );
DEFSTRING( t7516, "CHK-XCLASSHINTP", 15 );
TSCP xlibtypes_chk_2dxclasshintp( x4894 )
TSCP x4894;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4894 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7528;
if ( EQ( TSCPTAG( x4894 ), PAIRTAG ) ) goto L7525;
scrt1__24__car_2derror( x4894 );
L7525:
X2 = PAIR_CAR( x4894 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4908 ) ) ) goto L7528;
return( PAIR_CDR( x4894 ) );
L7528:
return( scrt6_error( c4909,
c1018, CONS( x4894, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_sshintp_3f_7fa802c0_v );
DEFSTRING( t7529, "ISA-XCLASSHINTP?", 16 );
TSCP xlibtypes_sshintp_3f_7fa802c0( x4916 )
TSCP x4916;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4916 ), PAIRTAG ) ) goto L7531;
X1 = PAIR_CAR( x4916 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4908 ) ) ) );
L7531:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_osestatusp_af1bab02_v );
DEFSTRING( t7534, "CHK-XCOMPOSESTATUSP", 19 );
TSCP xlibtypes_osestatusp_af1bab02( x4932 )
TSCP x4932;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4932 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7546;
if ( EQ( TSCPTAG( x4932 ), PAIRTAG ) ) goto L7543;
scrt1__24__car_2derror( x4932 );
L7543:
X2 = PAIR_CAR( x4932 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4946 ) ) ) goto L7546;
return( PAIR_CDR( x4932 ) );
L7546:
return( scrt6_error( c4947,
c1018, CONS( x4932, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_statusp_3f_184353b9_v );
DEFSTRING( t7547, "ISA-XCOMPOSESTATUSP?", 20 );
TSCP xlibtypes_statusp_3f_184353b9( x4954 )
TSCP x4954;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4954 ), PAIRTAG ) ) goto L7549;
X1 = PAIR_CAR( x4954 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4946 ) ) ) );
L7549:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dregion_v );
DEFSTRING( t7552, "CHK-REGION", 10 );
TSCP xlibtypes_chk_2dregion( x4970 )
TSCP x4970;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x4970 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7564;
if ( EQ( TSCPTAG( x4970 ), PAIRTAG ) ) goto L7561;
scrt1__24__car_2derror( x4970 );
L7561:
X2 = PAIR_CAR( x4970 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c4984 ) ) ) goto L7564;
return( PAIR_CDR( x4970 ) );
L7564:
return( scrt6_error( c4985,
c1018, CONS( x4970, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_isa_2dregion_3f_v );
DEFSTRING( t7565, "ISA-REGION?", 11 );
TSCP xlibtypes_isa_2dregion_3f( x4992 )
TSCP x4992;
{
TSCP X1;
if ( NEQ( TSCPTAG( x4992 ), PAIRTAG ) ) goto L7567;
X1 = PAIR_CAR( x4992 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c4984 ) ) ) );
L7567:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_chk_2dxvisualinfop_v );
DEFSTRING( t7570, "CHK-XVISUALINFOP", 16 );
TSCP xlibtypes_chk_2dxvisualinfop( x5008 )
TSCP x5008;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x5008 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7582;
if ( EQ( TSCPTAG( x5008 ), PAIRTAG ) ) goto L7579;
scrt1__24__car_2derror( x5008 );
L7579:
X2 = PAIR_CAR( x5008 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c5022 ) ) ) goto L7582;
return( PAIR_CDR( x5008 ) );
L7582:
return( scrt6_error( c5023,
c1018, CONS( x5008, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_alinfop_3f_642b71ca_v );
DEFSTRING( t7583, "ISA-XVISUALINFOP?", 17 );
TSCP xlibtypes_alinfop_3f_642b71ca( x5030 )
TSCP x5030;
{
TSCP X1;
if ( NEQ( TSCPTAG( x5030 ), PAIRTAG ) ) goto L7585;
X1 = PAIR_CAR( x5030 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c5022 ) ) ) );
L7585:
return( FALSEVALUE );
}
DEFTSCP( xlibtypes_dcolormapp_405d72b1_v );
DEFSTRING( t7588, "CHK-XSTANDARDCOLORMAPP", 22 );
TSCP xlibtypes_dcolormapp_405d72b1( x5046 )
TSCP x5046;
{
TSCP X2, X1;
X1 = BOOLEAN( EQ( TSCPTAG( x5046 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L7600;
if ( EQ( TSCPTAG( x5046 ), PAIRTAG ) ) goto L7597;
scrt1__24__car_2derror( x5046 );
L7597:
X2 = PAIR_CAR( x5046 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c5060 ) ) ) goto L7600;
return( PAIR_CDR( x5046 ) );
L7600:
return( scrt6_error( c5061,
c1018, CONS( x5046, EMPTYLIST ) ) );
}
DEFTSCP( xlibtypes_lormapp_3f_55cea454_v );
DEFSTRING( t7601, "ISA-XSTANDARDCOLORMAPP?", 23 );
TSCP xlibtypes_lormapp_3f_55cea454( x5068 )
TSCP x5068;
{
TSCP X1;
if ( NEQ( TSCPTAG( x5068 ), PAIRTAG ) ) goto L7603;
X1 = PAIR_CAR( x5068 );
return( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c5060 ) ) ) );
L7603:
return( FALSEVALUE );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt4__init();
scrt2__init();
scrt6__init();
scrt1__init();
MAXDISPLAY( 2 );
}
void xlibtypes__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(xlibtypes SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t5633 ) ),
ADR( xlibtypes_chk_2dunsignedap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dunsignedap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5646 ) ),
ADR( xlibtypes_isa_2dunsignedap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dunsignedap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5651 ) ),
ADR( xlibtypes_unsigneda_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_unsigneda_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5659 ) ),
ADR( xlibtypes_unsigneda_v ),
MAKEPROCEDURE( 2,
0,
xlibtypes_unsigneda, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5667 ) ),
ADR( xlibtypes_ned_2dlist_8c9aa819_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ned_2dlist_8c9aa819,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5675 ) ),
ADR( xlibtypes_eunsigneda_a2fe527c_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_eunsigneda_a2fe527c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5688 ) ),
ADR( xlibtypes_unsigneda_21_v ),
MAKEPROCEDURE( 3,
0,
xlibtypes_unsigneda_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5696 ) ),
ADR( xlibtypes_make_2dunsigneda_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_make_2dunsigneda,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5722 ) ),
ADR( xlibtypes_chk_2dunsignedproc_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dunsignedproc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5735 ) ),
ADR( xlibtypes_nedproc_3f_78843e9f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_nedproc_3f_78843e9f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5740 ) ),
ADR( xlibtypes_chk_2dcharp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dcharp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5753 ) ),
ADR( xlibtypes_isa_2dcharp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dcharp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5758 ) ),
ADR( xlibtypes_chk_2dcharap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dcharap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5771 ) ),
ADR( xlibtypes_isa_2dcharap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dcharap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5776 ) ),
ADR( xlibtypes_chara_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chara_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5784 ) ),
ADR( xlibtypes_chara_v ),
MAKEPROCEDURE( 2,
0,
xlibtypes_chara, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5792 ) ),
ADR( xlibtypes_har_2dlist_f4b135e2_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_har_2dlist_f4b135e2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5800 ) ),
ADR( xlibtypes_2d_3echara_6cef497b_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_2d_3echara_6cef497b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5813 ) ),
ADR( xlibtypes_chara_21_v ),
MAKEPROCEDURE( 3,
0,
xlibtypes_chara_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5821 ) ),
ADR( xlibtypes_make_2dchara_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_make_2dchara,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5847 ) ),
ADR( xlibtypes_chk_2dcharpap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dcharpap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5860 ) ),
ADR( xlibtypes_isa_2dcharpap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dcharpap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5865 ) ),
ADR( xlibtypes_charpa_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_charpa_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5873 ) ),
ADR( xlibtypes_charpa_v ),
MAKEPROCEDURE( 2,
0,
xlibtypes_charpa, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5882 ) ),
ADR( xlibtypes_arp_2dlist_c1484fe2_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_arp_2dlist_c1484fe2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5890 ) ),
ADR( xlibtypes_d_3echarpa_3fb94022_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_d_3echarpa_3fb94022,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5903 ) ),
ADR( xlibtypes_charpa_21_v ),
MAKEPROCEDURE( 3,
0,
xlibtypes_charpa_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5912 ) ),
ADR( xlibtypes_make_2dcharpa_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_make_2dcharpa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5938 ) ),
ADR( xlibtypes_chk_2dintproc_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dintproc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5951 ) ),
ADR( xlibtypes_isa_2dintproc_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dintproc_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5956 ) ),
ADR( xlibtypes_chk_2dintp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dintp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5969 ) ),
ADR( xlibtypes_isa_2dintp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dintp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5974 ) ),
ADR( xlibtypes_chk_2dintap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dintap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5987 ) ),
ADR( xlibtypes_isa_2dintap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dintap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5992 ) ),
ADR( xlibtypes_inta_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_inta_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6000 ) ),
ADR( xlibtypes_inta_v ),
MAKEPROCEDURE( 2,
0, xlibtypes_inta, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6008 ) ),
ADR( xlibtypes_int_2dlist_f5756722_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_int_2dlist_f5756722,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6016 ) ),
ADR( xlibtypes__2d_3einta_b11454aa_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes__2d_3einta_b11454aa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6029 ) ),
ADR( xlibtypes_inta_21_v ),
MAKEPROCEDURE( 3,
0,
xlibtypes_inta_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6037 ) ),
ADR( xlibtypes_make_2dinta_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_make_2dinta, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6063 ) ),
ADR( xlibtypes_chk_2dboolproc_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dboolproc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6076 ) ),
ADR( xlibtypes_isa_2dboolproc_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dboolproc_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6081 ) ),
ADR( xlibtypes_chk_2dxextdatap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxextdatap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6094 ) ),
ADR( xlibtypes_isa_2dxextdatap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxextdatap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6099 ) ),
ADR( xlibtypes_chk_2dxgcvaluesp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxgcvaluesp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6112 ) ),
ADR( xlibtypes_isa_2dxgcvaluesp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxgcvaluesp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6117 ) ),
ADR( xlibtypes_chk_2dgc_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dgc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6130 ) ),
ADR( xlibtypes_isa_2dgc_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dgc_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6135 ) ),
ADR( xlibtypes_chk_2dvisualp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dvisualp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6148 ) ),
ADR( xlibtypes_isa_2dvisualp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dvisualp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6153 ) ),
ADR( xlibtypes_chk_2ddepthp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2ddepthp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6166 ) ),
ADR( xlibtypes_isa_2ddepthp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2ddepthp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6171 ) ),
ADR( xlibtypes_chk_2dscreenp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dscreenp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6184 ) ),
ADR( xlibtypes_isa_2dscreenp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dscreenp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6189 ) ),
ADR( xlibtypes_ttributesp_f8fc8c87_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ttributesp_f8fc8c87,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6202 ) ),
ADR( xlibtypes_ibutesp_3f_33724555_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ibutesp_3f_33724555,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6207 ) ),
ADR( xlibtypes_ttributesp_3c7dec03_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ttributesp_3c7dec03,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6220 ) ),
ADR( xlibtypes_ibutesp_3f_47b8090a_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ibutesp_3f_47b8090a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6225 ) ),
ADR( xlibtypes_chk_2dxhostaddressp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxhostaddressp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6238 ) ),
ADR( xlibtypes_ddressp_3f_a0f24106_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ddressp_3f_a0f24106,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6243 ) ),
ADR( xlibtypes_taddressap_c5fd3430_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_taddressap_c5fd3430,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6256 ) ),
ADR( xlibtypes_dressap_3f_6ec20916_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_dressap_3f_6ec20916,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6261 ) ),
ADR( xlibtypes_a_2dlength_cd2ef0bb_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_a_2dlength_cd2ef0bb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6269 ) ),
ADR( xlibtypes_ess_2dlist_a3bca50b_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ess_2dlist_a3bca50b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6284 ) ),
ADR( xlibtypes_staddressa_59253e46_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_staddressa_59253e46,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6302 ) ),
ADR( xlibtypes_chk_2dximagep_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dximagep,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6315 ) ),
ADR( xlibtypes_isa_2dximagep_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dximagep_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6320 ) ),
ADR( xlibtypes_chk_2dximageproc_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dximageproc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6333 ) ),
ADR( xlibtypes_isa_2dximageproc_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dximageproc_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6338 ) ),
ADR( xlibtypes_owchangesp_68ca6d56_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_owchangesp_68ca6d56,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6351 ) ),
ADR( xlibtypes_hangesp_3f_1f824798_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_hangesp_3f_1f824798,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6356 ) ),
ADR( xlibtypes_chk_2dxcolorp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxcolorp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6369 ) ),
ADR( xlibtypes_isa_2dxcolorp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxcolorp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6374 ) ),
ADR( xlibtypes_chk_2dxcolorap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxcolorap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6387 ) ),
ADR( xlibtypes_isa_2dxcolorap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxcolorap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6392 ) ),
ADR( xlibtypes_xcolora_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xcolora_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6400 ) ),
ADR( xlibtypes_lor_2dlist_1a247fa8_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_lor_2dlist_1a247fa8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6415 ) ),
ADR( xlibtypes__3excolora_abb1bb49_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes__3excolora_abb1bb49,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6433 ) ),
ADR( xlibtypes_chk_2dxsegmentp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxsegmentp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6446 ) ),
ADR( xlibtypes_isa_2dxsegmentp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxsegmentp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6451 ) ),
ADR( xlibtypes_chk_2dxsegmentap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxsegmentap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6464 ) ),
ADR( xlibtypes_isa_2dxsegmentap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxsegmentap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6469 ) ),
ADR( xlibtypes_xsegmenta_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xsegmenta_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6477 ) ),
ADR( xlibtypes_ent_2dlist_e39ab6fb_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ent_2dlist_e39ab6fb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6492 ) ),
ADR( xlibtypes_exsegmenta_a19bd00_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_exsegmenta_a19bd00,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6510 ) ),
ADR( xlibtypes_chk_2dxpointp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxpointp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6523 ) ),
ADR( xlibtypes_isa_2dxpointp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxpointp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6528 ) ),
ADR( xlibtypes_chk_2dxpointap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxpointap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6541 ) ),
ADR( xlibtypes_isa_2dxpointap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxpointap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6546 ) ),
ADR( xlibtypes_xpointa_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xpointa_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6554 ) ),
ADR( xlibtypes_int_2dlist_415f2d58_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_int_2dlist_415f2d58,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6569 ) ),
ADR( xlibtypes__3expointa_59754d83_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes__3expointa_59754d83,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6587 ) ),
ADR( xlibtypes_chk_2dxrectanglep_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrectanglep,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6600 ) ),
ADR( xlibtypes_tanglep_3f_350ee2a2_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_tanglep_3f_350ee2a2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6605 ) ),
ADR( xlibtypes_chk_2dxrectangleap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrectangleap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6618 ) ),
ADR( xlibtypes_angleap_3f_bfec9244_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_angleap_3f_bfec9244,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6623 ) ),
ADR( xlibtypes_a_2dlength_1a0898a4_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_a_2dlength_1a0898a4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6631 ) ),
ADR( xlibtypes_gle_2dlist_f9cc2165_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_gle_2dlist_f9cc2165,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6646 ) ),
ADR( xlibtypes_rectanglea_db5a7359_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_rectanglea_db5a7359,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6664 ) ),
ADR( xlibtypes_chk_2dxarcp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxarcp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6677 ) ),
ADR( xlibtypes_isa_2dxarcp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxarcp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6682 ) ),
ADR( xlibtypes_chk_2dxarcap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxarcap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6695 ) ),
ADR( xlibtypes_isa_2dxarcap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxarcap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6700 ) ),
ADR( xlibtypes_xarca_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xarca_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6708 ) ),
ADR( xlibtypes_arc_2dlist_b80404f2_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_arc_2dlist_b80404f2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6723 ) ),
ADR( xlibtypes_2d_3exarca_5345880f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_2d_3exarca_5345880f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6741 ) ),
ADR( xlibtypes_rdcontrolp_b8c5a0f8_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_rdcontrolp_b8c5a0f8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6754 ) ),
ADR( xlibtypes_ontrolp_3f_c320f43e_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ontrolp_3f_c320f43e,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6759 ) ),
ADR( xlibtypes_oardstatep_c630d819_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_oardstatep_c630d819,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6772 ) ),
ADR( xlibtypes_dstatep_3f_a09ecc34_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_dstatep_3f_a09ecc34,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6777 ) ),
ADR( xlibtypes_chk_2dxqkeymapp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxqkeymapp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6790 ) ),
ADR( xlibtypes_isa_2dxqkeymapp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxqkeymapp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6795 ) ),
ADR( xlibtypes_xqkeymap_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xqkeymap_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6803 ) ),
ADR( xlibtypes_xqkeymap_v ),
MAKEPROCEDURE( 2,
0,
xlibtypes_xqkeymap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6811 ) ),
ADR( xlibtypes_har_2dlist_bd0d3e65_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_har_2dlist_bd0d3e65,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6819 ) ),
ADR( xlibtypes_3exqkeymap_10271c35_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_3exqkeymap_10271c35,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6832 ) ),
ADR( xlibtypes_xqkeymap_21_v ),
MAKEPROCEDURE( 3,
0,
xlibtypes_xqkeymap_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6840 ) ),
ADR( xlibtypes_make_2dxqkeymap_v ),
MAKEPROCEDURE( 0,
0,
xlibtypes_make_2dxqkeymap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6866 ) ),
ADR( xlibtypes_chk_2dxtimecoordp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxtimecoordp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6879 ) ),
ADR( xlibtypes_ecoordp_3f_dff49d0a_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ecoordp_3f_dff49d0a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6884 ) ),
ADR( xlibtypes_chk_2dxtimecoordap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxtimecoordap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6897 ) ),
ADR( xlibtypes_coordap_3f_670b43e1_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_coordap_3f_670b43e1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6902 ) ),
ADR( xlibtypes_a_2dlength_d96bdf8c_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_a_2dlength_d96bdf8c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6910 ) ),
ADR( xlibtypes_ord_2dlist_822c56f8_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ord_2dlist_822c56f8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6925 ) ),
ADR( xlibtypes_timecoorda_7a86fb9_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_timecoorda_7a86fb9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6943 ) ),
ADR( xlibtypes_ierkeymapp_ba00839f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ierkeymapp_ba00839f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6956 ) ),
ADR( xlibtypes_keymapp_3f_758133a1_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_keymapp_3f_758133a1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6961 ) ),
ADR( xlibtypes_odifiermap_e79d2f2_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_odifiermap_e79d2f2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6974 ) ),
ADR( xlibtypes_fiermap_3f_f0c6e203_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_fiermap_3f_f0c6e203,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6979 ) ),
ADR( xlibtypes_iermapping_6e7d9e34_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_iermapping_6e7d9e34,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6992 ) ),
ADR( xlibtypes_mapping_3f_b48b0bfa_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_mapping_3f_b48b0bfa,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6997 ) ),
ADR( xlibtypes_ermapentry_9d0cef7c_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ermapentry_9d0cef7c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7010 ) ),
ADR( xlibtypes_apentry_3f_abeee9ca_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_apentry_3f_abeee9ca,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7015 ) ),
ADR( xlibtypes_ermapentry_33f88096_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ermapentry_33f88096,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7028 ) ),
ADR( xlibtypes_apentry_3f_572efd7f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_apentry_3f_572efd7f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7033 ) ),
ADR( xlibtypes_chk_2ddisplayp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2ddisplayp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7046 ) ),
ADR( xlibtypes_isa_2ddisplayp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2ddisplayp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7051 ) ),
ADR( xlibtypes_chk_2dxeventp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxeventp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7064 ) ),
ADR( xlibtypes_isa_2dxeventp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxeventp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7069 ) ),
ADR( xlibtypes_chk_2dxcharstructp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxcharstructp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7082 ) ),
ADR( xlibtypes_structp_3f_a502ff7b_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_structp_3f_a502ff7b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7087 ) ),
ADR( xlibtypes_chk_2dxfontpropp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxfontpropp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7100 ) ),
ADR( xlibtypes_isa_2dxfontpropp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxfontpropp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7105 ) ),
ADR( xlibtypes_chk_2dxfontstructp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxfontstructp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7118 ) ),
ADR( xlibtypes_structp_3f_c6f3c27c_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_structp_3f_c6f3c27c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7123 ) ),
ADR( xlibtypes_chk_2dxfontstructap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxfontstructap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7136 ) ),
ADR( xlibtypes_tructap_3f_de7490b7_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_tructap_3f_de7490b7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7141 ) ),
ADR( xlibtypes_a_2dlength_bfd8d767_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_a_2dlength_bfd8d767,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7149 ) ),
ADR( xlibtypes_uct_2dlist_45b4f7e7_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_uct_2dlist_45b4f7e7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7164 ) ),
ADR( xlibtypes_ontstructa_ff2767b7_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ontstructa_ff2767b7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7182 ) ),
ADR( xlibtypes_chk_2dxtextitemp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxtextitemp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7195 ) ),
ADR( xlibtypes_isa_2dxtextitemp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxtextitemp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7200 ) ),
ADR( xlibtypes_chk_2dxtextitemap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxtextitemap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7213 ) ),
ADR( xlibtypes_titemap_3f_e7dc9547_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_titemap_3f_e7dc9547,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7218 ) ),
ADR( xlibtypes_xtextitema_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xtextitema_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7226 ) ),
ADR( xlibtypes_tem_2dlist_b9cd939c_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_tem_2dlist_b9cd939c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7241 ) ),
ADR( xlibtypes_xtextitema_d25736f5_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xtextitema_d25736f5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7259 ) ),
ADR( xlibtypes_chk_2dxchar2bp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxchar2bp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7272 ) ),
ADR( xlibtypes_isa_2dxchar2bp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxchar2bp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7277 ) ),
ADR( xlibtypes_chk_2dxchar2bap_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxchar2bap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7290 ) ),
ADR( xlibtypes_isa_2dxchar2bap_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxchar2bap_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7295 ) ),
ADR( xlibtypes_xchar2ba_2dlength_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_xchar2ba_2dlength,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7303 ) ),
ADR( xlibtypes_r2b_2dlist_5ae2040a_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_r2b_2dlist_5ae2040a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7318 ) ),
ADR( xlibtypes_3exchar2ba_383c24a5_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_3exchar2ba_383c24a5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7336 ) ),
ADR( xlibtypes_chk_2dxtextitem16p_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxtextitem16p,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7349 ) ),
ADR( xlibtypes_item16p_3f_e9e34de8_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_item16p_3f_e9e34de8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7354 ) ),
ADR( xlibtypes_chk_2dxrmvalueptr_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrmvalueptr,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7367 ) ),
ADR( xlibtypes_alueptr_3f_e9b8d923_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_alueptr_3f_e9b8d923,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7372 ) ),
ADR( xlibtypes_chk_2dxrmhashbucket_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrmhashbucket,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7385 ) ),
ADR( xlibtypes_hbucket_3f_dc6a49c9_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_hbucket_3f_dc6a49c9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7390 ) ),
ADR( xlibtypes_chk_2dxrmhashtable_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrmhashtable,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7403 ) ),
ADR( xlibtypes_shtable_3f_a2ca15d_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_shtable_3f_a2ca15d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7408 ) ),
ADR( xlibtypes_chk_2dxrmdatabase_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrmdatabase,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7421 ) ),
ADR( xlibtypes_atabase_3f_82082717_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_atabase_3f_82082717,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7426 ) ),
ADR( xlibtypes_chk_2dxrmdatabasep_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxrmdatabasep,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7439 ) ),
ADR( xlibtypes_tabasep_3f_59d06db0_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_tabasep_3f_59d06db0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7444 ) ),
ADR( xlibtypes_ondesclist_3b4d8a1c_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ondesclist_3b4d8a1c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7457 ) ),
ADR( xlibtypes_esclist_3f_e1c34bfb_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_esclist_3f_e1c34bfb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7462 ) ),
ADR( xlibtypes_chk_2dxsizehintsp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxsizehintsp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7475 ) ),
ADR( xlibtypes_ehintsp_3f_c39e7e7b_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_ehintsp_3f_c39e7e7b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7480 ) ),
ADR( xlibtypes_chk_2dxwmhintsp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxwmhintsp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7493 ) ),
ADR( xlibtypes_isa_2dxwmhintsp_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxwmhintsp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7498 ) ),
ADR( xlibtypes_chk_2dxiconsizep_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxiconsizep,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7511 ) ),
ADR( xlibtypes_isa_2dxiconsizep_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dxiconsizep_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7516 ) ),
ADR( xlibtypes_chk_2dxclasshintp_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxclasshintp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7529 ) ),
ADR( xlibtypes_sshintp_3f_7fa802c0_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_sshintp_3f_7fa802c0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7534 ) ),
ADR( xlibtypes_osestatusp_af1bab02_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_osestatusp_af1bab02,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7547 ) ),
ADR( xlibtypes_statusp_3f_184353b9_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_statusp_3f_184353b9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7552 ) ),
ADR( xlibtypes_chk_2dregion_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dregion,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7565 ) ),
ADR( xlibtypes_isa_2dregion_3f_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_isa_2dregion_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7570 ) ),
ADR( xlibtypes_chk_2dxvisualinfop_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_chk_2dxvisualinfop,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7583 ) ),
ADR( xlibtypes_alinfop_3f_642b71ca_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_alinfop_3f_642b71ca,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7588 ) ),
ADR( xlibtypes_dcolormapp_405d72b1_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_dcolormapp_405d72b1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t7601 ) ),
ADR( xlibtypes_lormapp_3f_55cea454_v ),
MAKEPROCEDURE( 1,
0,
xlibtypes_lormapp_3f_55cea454,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.