This is scrt3.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2791, "STRING-FILL!", 12 );
DEFSTATICTSCP( c2551 );
DEFSTRING( t2792, "Argument is not a list of CHARACTERS: ~s", 40 );
DEFSTATICTSCP2( c2527, t2792 );
DEFSTRING( t2793, "LIST->STRING", 12 );
DEFSTATICTSCP( c2526 );
DEFSTRING( t2794, "STRING->LIST", 12 );
DEFSTATICTSCP( c2475 );
DEFSTRING( t2795, "STRING-APPEND", 13 );
DEFSTATICTSCP( c2450 );
DEFSTRING( t2796, "Argument(s) not a STRING INDEX", 30 );
DEFSTATICTSCP2( c2317, t2796 );
DEFSTRING( t2797, "Argument is not a STRING", 24 );
DEFSTATICTSCP2( c2272, t2797 );
DEFSTRING( t2798, "SUBSTRING", 9 );
DEFSTATICTSCP( c2271 );
DEFSTRING( t2799, "STRING-CI>?", 11 );
DEFSTATICTSCP( c2167 );
DEFSTRING( t2800, "STRING-CI<?", 11 );
DEFSTATICTSCP( c2064 );
DEFSTRING( t2801, "STRING-CI=?", 11 );
DEFSTATICTSCP( c1963 );
DEFSTRING( t2802, "STRING>?", 8 );
DEFSTATICTSCP( c1886 );
DEFSTRING( t2803, "STRING<?", 8 );
DEFSTATICTSCP( c1815 );
DEFSTRING( t2804, "Argument(s) not a STRING", 24 );
DEFSTATICTSCP2( c1746, t2804 );
DEFSTRING( t2805, "STRING=?", 8 );
DEFSTATICTSCP( c1745 );
DEFSTRING( t2806, "Argument(s) incorrect", 21 );
DEFSTATICTSCP2( c1733, t2806 );
DEFSTRING( t2807, "Argument is not a CHAR: ~s", 26 );
DEFSTATICTSCP2( c1712, t2807 );
DEFSTRING( t2808, "STRING-SET!", 11 );
DEFSTATICTSCP( c1709 );
DEFSTRING( t2809, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1698, t2809 );
DEFSTRING( t2810, "STRING-REF", 10 );
DEFSTATICTSCP( c1677 );
DEFSTRING( t2811, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1668, t2811 );
DEFSTRING( t2812, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1667 );
DEFSTRING( t2813, "CHAR-DOWNCASE", 13 );
DEFSTATICTSCP( c1586 );
DEFSTRING( t2814, "CHAR-UPCASE", 11 );
DEFSTATICTSCP( c1565 );
DEFSTRING( t2815, "CHAR-LOWER-CASE?", 16 );
DEFSTATICTSCP( c1544 );
DEFSTRING( t2816, "CHAR-UPPER-CASE?", 16 );
DEFSTATICTSCP( c1523 );
DEFSTRING( t2817, "CHAR-WHITESPACE?", 16 );
DEFSTATICTSCP( c1482 );
DEFSTRING( t2818, "CHAR-NUMERIC?", 13 );
DEFSTATICTSCP( c1459 );
DEFSTRING( t2819, "Argument not a CHAR", 19 );
DEFSTATICTSCP2( c1416, t2819 );
DEFSTRING( t2820, "CHAR-ALPHABETIC?", 16 );
DEFSTATICTSCP( c1415 );
DEFSTRING( t2821, "CHAR>=?", 7 );
DEFSTATICTSCP( c1378 );
DEFSTRING( t2822, "CHAR<=?", 7 );
DEFSTATICTSCP( c1336 );
DEFSTRING( t2823, "VECTOR-REF", 10 );
DEFSTATICTSCP( c1219 );
DEFSTRING( t2824, "Argument not a CHAR: ~s", 23 );
DEFSTATICTSCP2( c1196, t2824 );
DEFSTRING( t2825, "CHAR->INTEGER", 13 );
DEFSTATICTSCP( c1195 );
DEFSTRING( t2826,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1113, t2826 );
DEFSTRING( t2827, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1112 );
DEFSTRING( t2828, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c1085, t2828 );
DEFSTRING( t2829, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1081, t2829 );
DEFSTRING( t2830, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c1078, t2830 );
DEFSTRING( t2831, "VECTOR-SET!", 11 );
DEFSTATICTSCP( c1077 );
DEFSTRING( t2832, "CHAR>?", 6 );
DEFSTATICTSCP( c1034 );
DEFSTRING( t2833, "CHAR<?", 6 );
DEFSTATICTSCP( c1024 );
DEFSTRING( t2834, "Argument(s) not CHAR: ~s ~s", 27 );
DEFSTATICTSCP2( c1014, t2834 );
DEFSTRING( t2835, "CHAR=?", 6 );
DEFSTATICTSCP( c1013 );
static void init_constants()
{
c2551 = STRINGTOSYMBOL( U_TX( ADR( t2791 ) ) );
CONSTANTEXP( ADR( c2551 ) );
c2526 = STRINGTOSYMBOL( U_TX( ADR( t2793 ) ) );
CONSTANTEXP( ADR( c2526 ) );
c2475 = STRINGTOSYMBOL( U_TX( ADR( t2794 ) ) );
CONSTANTEXP( ADR( c2475 ) );
c2450 = STRINGTOSYMBOL( U_TX( ADR( t2795 ) ) );
CONSTANTEXP( ADR( c2450 ) );
c2271 = STRINGTOSYMBOL( U_TX( ADR( t2798 ) ) );
CONSTANTEXP( ADR( c2271 ) );
c2167 = STRINGTOSYMBOL( U_TX( ADR( t2799 ) ) );
CONSTANTEXP( ADR( c2167 ) );
c2064 = STRINGTOSYMBOL( U_TX( ADR( t2800 ) ) );
CONSTANTEXP( ADR( c2064 ) );
c1963 = STRINGTOSYMBOL( U_TX( ADR( t2801 ) ) );
CONSTANTEXP( ADR( c1963 ) );
c1886 = STRINGTOSYMBOL( U_TX( ADR( t2802 ) ) );
CONSTANTEXP( ADR( c1886 ) );
c1815 = STRINGTOSYMBOL( U_TX( ADR( t2803 ) ) );
CONSTANTEXP( ADR( c1815 ) );
c1745 = STRINGTOSYMBOL( U_TX( ADR( t2805 ) ) );
CONSTANTEXP( ADR( c1745 ) );
c1709 = STRINGTOSYMBOL( U_TX( ADR( t2808 ) ) );
CONSTANTEXP( ADR( c1709 ) );
c1677 = STRINGTOSYMBOL( U_TX( ADR( t2810 ) ) );
CONSTANTEXP( ADR( c1677 ) );
c1667 = STRINGTOSYMBOL( U_TX( ADR( t2812 ) ) );
CONSTANTEXP( ADR( c1667 ) );
c1586 = STRINGTOSYMBOL( U_TX( ADR( t2813 ) ) );
CONSTANTEXP( ADR( c1586 ) );
c1565 = STRINGTOSYMBOL( U_TX( ADR( t2814 ) ) );
CONSTANTEXP( ADR( c1565 ) );
c1544 = STRINGTOSYMBOL( U_TX( ADR( t2815 ) ) );
CONSTANTEXP( ADR( c1544 ) );
c1523 = STRINGTOSYMBOL( U_TX( ADR( t2816 ) ) );
CONSTANTEXP( ADR( c1523 ) );
c1482 = STRINGTOSYMBOL( U_TX( ADR( t2817 ) ) );
CONSTANTEXP( ADR( c1482 ) );
c1459 = STRINGTOSYMBOL( U_TX( ADR( t2818 ) ) );
CONSTANTEXP( ADR( c1459 ) );
c1415 = STRINGTOSYMBOL( U_TX( ADR( t2820 ) ) );
CONSTANTEXP( ADR( c1415 ) );
c1378 = STRINGTOSYMBOL( U_TX( ADR( t2821 ) ) );
CONSTANTEXP( ADR( c1378 ) );
c1336 = STRINGTOSYMBOL( U_TX( ADR( t2822 ) ) );
CONSTANTEXP( ADR( c1336 ) );
c1219 = STRINGTOSYMBOL( U_TX( ADR( t2823 ) ) );
CONSTANTEXP( ADR( c1219 ) );
c1195 = STRINGTOSYMBOL( U_TX( ADR( t2825 ) ) );
CONSTANTEXP( ADR( c1195 ) );
c1112 = STRINGTOSYMBOL( U_TX( ADR( t2827 ) ) );
CONSTANTEXP( ADR( c1112 ) );
c1077 = STRINGTOSYMBOL( U_TX( ADR( t2831 ) ) );
CONSTANTEXP( ADR( c1077 ) );
c1034 = STRINGTOSYMBOL( U_TX( ADR( t2832 ) ) );
CONSTANTEXP( ADR( c1034 ) );
c1024 = STRINGTOSYMBOL( U_TX( ADR( t2833 ) ) );
CONSTANTEXP( ADR( c1024 ) );
c1013 = STRINGTOSYMBOL( U_TX( ADR( t2835 ) ) );
CONSTANTEXP( ADR( c1013 ) );
}
DEFTSCP( scrt3_char_3f_v );
DEFSTRING( t2836, "CHAR?", 5 );
TSCP scrt3_char_3f( x1001 )
TSCP x1001;
{
PUSHSTACKTRACE( U_TX( ADR( t2836 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( TSCPIMMEDIATETAG( x1001 ),
CHARACTERTAG ) ) );
}
DEFTSCP( scrt3_char_3d_3f_v );
DEFSTRING( t2838, "CHAR=?", 6 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP scrt3_char_3d_3f( x1005, y1006 )
TSCP x1005, y1006;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2838 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( x1005 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( y1006 ), CHARACTERTAG ) )
) goto L2841;
X1 = CONS( y1006, EMPTYLIST );
scrt6_error( c1013, c1014, CONS( x1005, X1 ) );
L2841:
POPSTACKTRACE( BOOLEAN( EQ( INT( x1005 ),
INT( y1006 ) ) ) );
}
DEFTSCP( scrt3_char_3c_3f_v );
DEFSTRING( t2843, "CHAR<?", 6 );
TSCP scrt3_char_3c_3f( x1016, y1017 )
TSCP x1016, y1017;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2843 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( x1016 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( y1017 ), CHARACTERTAG ) )
) goto L2846;
X1 = CONS( y1017, EMPTYLIST );
scrt6_error( c1024, c1014, CONS( x1016, X1 ) );
L2846:
POPSTACKTRACE( BOOLEAN( LT( INT( x1016 ),
INT( y1017 ) ) ) );
}
DEFTSCP( scrt3_char_3e_3f_v );
DEFSTRING( t2848, "CHAR>?", 6 );
TSCP scrt3_char_3e_3f( x1026, y1027 )
TSCP x1026, y1027;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2848 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( x1026 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( y1027 ), CHARACTERTAG ) )
) goto L2851;
X1 = CONS( y1027, EMPTYLIST );
scrt6_error( c1034, c1014, CONS( x1026, X1 ) );
L2851:
POPSTACKTRACE( BOOLEAN( GT( INT( x1026 ),
INT( y1027 ) ) ) );
}
DEFTSCP( scrt3_char_3c_3d_3f_v );
DEFSTRING( t2853, "CHAR<=?", 7 );
TSCP scrt3_char_3c_3d_3f( x1036, y1037 )
TSCP x1036, y1037;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2853 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( x1036 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( y1037 ), CHARACTERTAG ) )
) goto L2856;
X1 = CONS( y1037, EMPTYLIST );
scrt6_error( c1034, c1014, CONS( x1036, X1 ) );
L2856:
POPSTACKTRACE( BOOLEAN( LTE( INT( x1036 ),
INT( y1037 ) ) ) );
}
DEFTSCP( scrt3_char_3e_3d_3f_v );
DEFSTRING( t2858, "CHAR>=?", 7 );
TSCP scrt3_char_3e_3d_3f( x1045, y1046 )
TSCP x1045, y1046;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2858 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( x1045 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( y1046 ), CHARACTERTAG ) )
) goto L2861;
X1 = CONS( y1046, EMPTYLIST );
scrt6_error( c1024, c1014, CONS( x1045, X1 ) );
L2861:
POPSTACKTRACE( BOOLEAN( GTE( INT( x1045 ),
INT( y1046 ) ) ) );
}
DEFTSCP( scrt3_char_2dupcase_2dtable_v );
DEFSTRING( t2863, "SCRT3_CHAR-UPCASE-TABLE", 23 );
EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
DEFTSCP( scrt3_char_2dci_3d_3f_v );
DEFSTRING( t2962, "CHAR-CI=?", 9 );
TSCP scrt3_char_2dci_3d_3f( x1204, y1205 )
TSCP x1204, y1205;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2962 ) ) );
X2 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( y1205 ), CHARACTERTAG ) ) goto L2965;
scrt6_error( c1195,
c1196, CONS( y1205, EMPTYLIST ) );
L2965:
X3 = CHAR_FIX( y1205 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L2968;
scrt6_error( c1219, c1078, CONS( X2, EMPTYLIST ) );
L2968:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2970;
scrt6_error( c1219, c1081, CONS( X3, EMPTYLIST ) );
L2970:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L2972;
scrt6_error( c1219, c1085, CONS( X3, EMPTYLIST ) );
L2972:
X1 = VECTOR_ELEMENT( X2, X3 );
X3 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( x1204 ), CHARACTERTAG ) ) goto L2975;
scrt6_error( c1195,
c1196, CONS( x1204, EMPTYLIST ) );
L2975:
X4 = CHAR_FIX( x1204 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L2978;
scrt6_error( c1219, c1078, CONS( X3, EMPTYLIST ) );
L2978:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L2980;
scrt6_error( c1219, c1081, CONS( X4, EMPTYLIST ) );
L2980:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L2982;
scrt6_error( c1219, c1085, CONS( X4, EMPTYLIST ) );
L2982:
X2 = VECTOR_ELEMENT( X3, X4 );
if ( AND( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X1 ), CHARACTERTAG ) )
) goto L2985;
X3 = CONS( X1, EMPTYLIST );
scrt6_error( c1013, c1014, CONS( X2, X3 ) );
L2985:
POPSTACKTRACE( BOOLEAN( EQ( INT( X2 ), INT( X1 ) ) ) );
}
DEFTSCP( scrt3_char_2dci_3c_3f_v );
DEFSTRING( t2987, "CHAR-CI<?", 9 );
TSCP scrt3_char_2dci_3c_3f( x1246, y1247 )
TSCP x1246, y1247;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2987 ) ) );
X2 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( y1247 ), CHARACTERTAG ) ) goto L2990;
scrt6_error( c1195,
c1196, CONS( y1247, EMPTYLIST ) );
L2990:
X3 = CHAR_FIX( y1247 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L2993;
scrt6_error( c1219, c1078, CONS( X2, EMPTYLIST ) );
L2993:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2995;
scrt6_error( c1219, c1081, CONS( X3, EMPTYLIST ) );
L2995:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L2997;
scrt6_error( c1219, c1085, CONS( X3, EMPTYLIST ) );
L2997:
X1 = VECTOR_ELEMENT( X2, X3 );
X3 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( x1246 ), CHARACTERTAG ) ) goto L3000;
scrt6_error( c1195,
c1196, CONS( x1246, EMPTYLIST ) );
L3000:
X4 = CHAR_FIX( x1246 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L3003;
scrt6_error( c1219, c1078, CONS( X3, EMPTYLIST ) );
L3003:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3005;
scrt6_error( c1219, c1081, CONS( X4, EMPTYLIST ) );
L3005:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L3007;
scrt6_error( c1219, c1085, CONS( X4, EMPTYLIST ) );
L3007:
X2 = VECTOR_ELEMENT( X3, X4 );
if ( AND( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X1 ), CHARACTERTAG ) )
) goto L3010;
X3 = CONS( X1, EMPTYLIST );
scrt6_error( c1024, c1014, CONS( X2, X3 ) );
L3010:
POPSTACKTRACE( BOOLEAN( LT( INT( X2 ), INT( X1 ) ) ) );
}
DEFTSCP( scrt3_char_2dci_3e_3f_v );
DEFSTRING( t3012, "CHAR-CI>?", 9 );
TSCP scrt3_char_2dci_3e_3f( x1287, y1288 )
TSCP x1287, y1288;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3012 ) ) );
X2 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( y1288 ), CHARACTERTAG ) ) goto L3015;
scrt6_error( c1195,
c1196, CONS( y1288, EMPTYLIST ) );
L3015:
X3 = CHAR_FIX( y1288 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L3018;
scrt6_error( c1219, c1078, CONS( X2, EMPTYLIST ) );
L3018:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3020;
scrt6_error( c1219, c1081, CONS( X3, EMPTYLIST ) );
L3020:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L3022;
scrt6_error( c1219, c1085, CONS( X3, EMPTYLIST ) );
L3022:
X1 = VECTOR_ELEMENT( X2, X3 );
X3 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( x1287 ), CHARACTERTAG ) ) goto L3025;
scrt6_error( c1195,
c1196, CONS( x1287, EMPTYLIST ) );
L3025:
X4 = CHAR_FIX( x1287 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L3028;
scrt6_error( c1219, c1078, CONS( X3, EMPTYLIST ) );
L3028:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3030;
scrt6_error( c1219, c1081, CONS( X4, EMPTYLIST ) );
L3030:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L3032;
scrt6_error( c1219, c1085, CONS( X4, EMPTYLIST ) );
L3032:
X2 = VECTOR_ELEMENT( X3, X4 );
if ( AND( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X1 ), CHARACTERTAG ) )
) goto L3035;
X3 = CONS( X1, EMPTYLIST );
scrt6_error( c1034, c1014, CONS( X2, X3 ) );
L3035:
POPSTACKTRACE( BOOLEAN( GT( INT( X2 ), INT( X1 ) ) ) );
}
DEFTSCP( scrt3_char_2dci_3c_3d_3f_v );
DEFSTRING( t3037, "CHAR-CI<=?", 10 );
TSCP scrt3_char_2dci_3c_3d_3f( x1328, y1329 )
TSCP x1328, y1329;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3037 ) ) );
X2 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( y1329 ), CHARACTERTAG ) ) goto L3040;
scrt6_error( c1195,
c1196, CONS( y1329, EMPTYLIST ) );
L3040:
X3 = CHAR_FIX( y1329 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L3043;
scrt6_error( c1219, c1078, CONS( X2, EMPTYLIST ) );
L3043:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3045;
scrt6_error( c1219, c1081, CONS( X3, EMPTYLIST ) );
L3045:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L3047;
scrt6_error( c1219, c1085, CONS( X3, EMPTYLIST ) );
L3047:
X1 = VECTOR_ELEMENT( X2, X3 );
X3 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( x1328 ), CHARACTERTAG ) ) goto L3050;
scrt6_error( c1195,
c1196, CONS( x1328, EMPTYLIST ) );
L3050:
X4 = CHAR_FIX( x1328 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L3053;
scrt6_error( c1219, c1078, CONS( X3, EMPTYLIST ) );
L3053:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3055;
scrt6_error( c1219, c1081, CONS( X4, EMPTYLIST ) );
L3055:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L3057;
scrt6_error( c1219, c1085, CONS( X4, EMPTYLIST ) );
L3057:
X2 = VECTOR_ELEMENT( X3, X4 );
if ( AND( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X1 ), CHARACTERTAG ) )
) goto L3060;
X3 = CONS( X1, EMPTYLIST );
scrt6_error( c1336, c1014, CONS( X2, X3 ) );
L3060:
POPSTACKTRACE( BOOLEAN( LTE( INT( X2 ), INT( X1 ) ) ) );
}
DEFTSCP( scrt3_char_2dci_3e_3d_3f_v );
DEFSTRING( t3062, "CHAR-CI>=?", 10 );
TSCP scrt3_char_2dci_3e_3d_3f( x1370, y1371 )
TSCP x1370, y1371;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3062 ) ) );
X2 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( y1371 ), CHARACTERTAG ) ) goto L3065;
scrt6_error( c1195,
c1196, CONS( y1371, EMPTYLIST ) );
L3065:
X3 = CHAR_FIX( y1371 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L3068;
scrt6_error( c1219, c1078, CONS( X2, EMPTYLIST ) );
L3068:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3070;
scrt6_error( c1219, c1081, CONS( X3, EMPTYLIST ) );
L3070:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L3072;
scrt6_error( c1219, c1085, CONS( X3, EMPTYLIST ) );
L3072:
X1 = VECTOR_ELEMENT( X2, X3 );
X3 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( x1370 ), CHARACTERTAG ) ) goto L3075;
scrt6_error( c1195,
c1196, CONS( x1370, EMPTYLIST ) );
L3075:
X4 = CHAR_FIX( x1370 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L3078;
scrt6_error( c1219, c1078, CONS( X3, EMPTYLIST ) );
L3078:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3080;
scrt6_error( c1219, c1081, CONS( X4, EMPTYLIST ) );
L3080:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L3082;
scrt6_error( c1219, c1085, CONS( X4, EMPTYLIST ) );
L3082:
X2 = VECTOR_ELEMENT( X3, X4 );
if ( AND( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X1 ), CHARACTERTAG ) )
) goto L3085;
X3 = CONS( X1, EMPTYLIST );
scrt6_error( c1378, c1014, CONS( X2, X3 ) );
L3085:
POPSTACKTRACE( BOOLEAN( GTE( INT( X2 ), INT( X1 ) ) ) );
}
DEFTSCP( scrt3_char_2dalphabetic_3f_v );
DEFSTRING( t3087, "CHAR-ALPHABETIC?", 16 );
TSCP scrt3_char_2dalphabetic_3f( x1412 )
TSCP x1412;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3087 ) ) );
if ( EQ( TSCPIMMEDIATETAG( x1412 ), CHARACTERTAG ) ) goto L3089;
scrt6_error( c1415, c1416, EMPTYLIST );
L3089:
if ( AND( EQ( TSCPIMMEDIATETAG( x1412 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 16658 ) ),
CHARACTERTAG ) ) ) goto L3092;
X3 = CONS( _TSCP( 16658 ), EMPTYLIST );
scrt6_error( c1378, c1014, CONS( x1412, X3 ) );
L3092:
X2 = BOOLEAN( GTE( INT( x1412 ),
INT( _TSCP( 16658 ) ) ) );
if ( FALSE( X2 ) ) goto L3095;
if ( AND( EQ( TSCPIMMEDIATETAG( x1412 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 23058 ) ),
CHARACTERTAG ) ) ) goto L3098;
X3 = CONS( _TSCP( 23058 ), EMPTYLIST );
scrt6_error( c1336, c1014, CONS( x1412, X3 ) );
L3098:
X1 = BOOLEAN( LTE( INT( x1412 ),
INT( _TSCP( 23058 ) ) ) );
goto L3096;
L3095:
X1 = X2;
L3096:
if ( TRUE( X1 ) ) goto L3101;
if ( AND( EQ( TSCPIMMEDIATETAG( x1412 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 24850 ) ),
CHARACTERTAG ) ) ) goto L3104;
X3 = CONS( _TSCP( 24850 ), EMPTYLIST );
scrt6_error( c1378, c1014, CONS( x1412, X3 ) );
L3104:
X2 = BOOLEAN( GTE( INT( x1412 ),
INT( _TSCP( 24850 ) ) ) );
if ( FALSE( X2 ) ) goto L3107;
if ( AND( EQ( TSCPIMMEDIATETAG( x1412 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 31250 ) ),
CHARACTERTAG ) ) ) goto L3110;
X3 = CONS( _TSCP( 31250 ), EMPTYLIST );
scrt6_error( c1336, c1014, CONS( x1412, X3 ) );
L3110:
POPSTACKTRACE( BOOLEAN( LTE( INT( x1412 ),
INT( _TSCP( 31250 ) ) ) ) );
L3107:
POPSTACKTRACE( X2 );
L3101:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt3_char_2dnumeric_3f_v );
DEFSTRING( t3112, "CHAR-NUMERIC?", 13 );
TSCP scrt3_char_2dnumeric_3f( x1456 )
TSCP x1456;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3112 ) ) );
if ( EQ( TSCPIMMEDIATETAG( x1456 ), CHARACTERTAG ) ) goto L3114;
scrt6_error( c1459, c1416, EMPTYLIST );
L3114:
if ( AND( EQ( TSCPIMMEDIATETAG( x1456 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 12306 ) ),
CHARACTERTAG ) ) ) goto L3117;
X2 = CONS( _TSCP( 12306 ), EMPTYLIST );
scrt6_error( c1378, c1014, CONS( x1456, X2 ) );
L3117:
X1 = BOOLEAN( GTE( INT( x1456 ),
INT( _TSCP( 12306 ) ) ) );
if ( FALSE( X1 ) ) goto L3120;
if ( AND( EQ( TSCPIMMEDIATETAG( x1456 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 14610 ) ),
CHARACTERTAG ) ) ) goto L3123;
X2 = CONS( _TSCP( 14610 ), EMPTYLIST );
scrt6_error( c1336, c1014, CONS( x1456, X2 ) );
L3123:
POPSTACKTRACE( BOOLEAN( LTE( INT( x1456 ),
INT( _TSCP( 14610 ) ) ) ) );
L3120:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt3_char_2dwhitespace_3f_v );
DEFSTRING( t3125, "CHAR-WHITESPACE?", 16 );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( scrt2__3c_3d_2dtwo );
EXTERNTSCP( scrt2__3c_3d_2dtwo_v );
TSCP scrt3_char_2dwhitespace_3f( x1479 )
TSCP x1479;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3125 ) ) );
x1479 = CONS( x1479, EMPTYLIST );
if ( EQ( TSCPIMMEDIATETAG( PAIR_CAR( x1479 ) ),
CHARACTERTAG ) ) goto L3127;
scrt6_error( c1482, c1416, EMPTYLIST );
L3127:
X2 = PAIR_CAR( x1479 );
if ( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ) ) goto L3130;
scrt6_error( c1195, c1196, CONS( X2, EMPTYLIST ) );
L3130:
X1 = CHAR_FIX( X2 );
SETGEN( PAIR_CAR( x1479 ), X1 );
X3 = PAIR_CAR( x1479 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 36 ) ) ),
3 ) ) goto L3133;
X2 = BOOLEAN( GTE( INT( X3 ), INT( _TSCP( 36 ) ) ) );
goto L3134;
L3133:
X2 = scrt2__3e_3d_2dtwo( X3, _TSCP( 36 ) );
L3134:
if ( FALSE( X2 ) ) goto L3136;
X3 = PAIR_CAR( x1479 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 52 ) ) ),
3 ) ) goto L3139;
X1 = BOOLEAN( LTE( INT( X3 ), INT( _TSCP( 52 ) ) ) );
goto L3137;
L3139:
X1 = scrt2__3c_3d_2dtwo( X3, _TSCP( 52 ) );
goto L3137;
L3136:
X1 = X2;
L3137:
if ( TRUE( X1 ) ) goto L3142;
X2 = PAIR_CAR( x1479 );
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 128 ) ) ),
3 ) ) goto L3145;
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 128 ) ) ) ) );
L3145:
POPSTACKTRACE( scrt2__3d_2dtwo( X2, _TSCP( 128 ) ) );
L3142:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt3_char_2dupper_2dcase_3f_v );
DEFSTRING( t3147, "CHAR-UPPER-CASE?", 16 );
TSCP scrt3_char_2dupper_2dcase_3f( l1520 )
TSCP l1520;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3147 ) ) );
if ( EQ( TSCPIMMEDIATETAG( l1520 ), CHARACTERTAG ) ) goto L3149;
scrt6_error( c1523, c1416, EMPTYLIST );
L3149:
if ( AND( EQ( TSCPIMMEDIATETAG( l1520 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 16658 ) ),
CHARACTERTAG ) ) ) goto L3152;
X2 = CONS( _TSCP( 16658 ), EMPTYLIST );
scrt6_error( c1378, c1014, CONS( l1520, X2 ) );
L3152:
X1 = BOOLEAN( GTE( INT( l1520 ),
INT( _TSCP( 16658 ) ) ) );
if ( FALSE( X1 ) ) goto L3155;
if ( AND( EQ( TSCPIMMEDIATETAG( l1520 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 23058 ) ),
CHARACTERTAG ) ) ) goto L3158;
X2 = CONS( _TSCP( 23058 ), EMPTYLIST );
scrt6_error( c1336, c1014, CONS( l1520, X2 ) );
L3158:
POPSTACKTRACE( BOOLEAN( LTE( INT( l1520 ),
INT( _TSCP( 23058 ) ) ) ) );
L3155:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt3_char_2dlower_2dcase_3f_v );
DEFSTRING( t3160, "CHAR-LOWER-CASE?", 16 );
TSCP scrt3_char_2dlower_2dcase_3f( l1541 )
TSCP l1541;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3160 ) ) );
if ( EQ( TSCPIMMEDIATETAG( l1541 ), CHARACTERTAG ) ) goto L3162;
scrt6_error( c1544, c1416, EMPTYLIST );
L3162:
if ( AND( EQ( TSCPIMMEDIATETAG( l1541 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 24850 ) ),
CHARACTERTAG ) ) ) goto L3165;
X2 = CONS( _TSCP( 24850 ), EMPTYLIST );
scrt6_error( c1378, c1014, CONS( l1541, X2 ) );
L3165:
X1 = BOOLEAN( GTE( INT( l1541 ),
INT( _TSCP( 24850 ) ) ) );
if ( FALSE( X1 ) ) goto L3168;
if ( AND( EQ( TSCPIMMEDIATETAG( l1541 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 31250 ) ),
CHARACTERTAG ) ) ) goto L3171;
X2 = CONS( _TSCP( 31250 ), EMPTYLIST );
scrt6_error( c1336, c1014, CONS( l1541, X2 ) );
L3171:
POPSTACKTRACE( BOOLEAN( LTE( INT( l1541 ),
INT( _TSCP( 31250 ) ) ) ) );
L3168:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt3_char_2dupcase_v );
DEFSTRING( t3173, "CHAR-UPCASE", 11 );
TSCP scrt3_char_2dupcase( x1562 )
TSCP x1562;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3173 ) ) );
if ( EQ( TSCPIMMEDIATETAG( x1562 ), CHARACTERTAG ) ) goto L3175;
scrt6_error( c1565, c1416, EMPTYLIST );
L3175:
X1 = scrt3_char_2dupcase_2dtable_v;
X2 = CHAR_FIX( x1562 );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L3179;
scrt6_error( c1219, c1078, CONS( X1, EMPTYLIST ) );
L3179:
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3181;
scrt6_error( c1219, c1081, CONS( X2, EMPTYLIST ) );
L3181:
if ( LT( UNSIGNED( FIXED_C( X2 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L3183;
scrt6_error( c1219, c1085, CONS( X2, EMPTYLIST ) );
L3183:
POPSTACKTRACE( VECTOR_ELEMENT( X1, X2 ) );
}
DEFTSCP( scrt3_char_2ddowncase_v );
DEFSTRING( t3185, "CHAR-DOWNCASE", 13 );
TSCP scrt3_char_2ddowncase( x1583 )
TSCP x1583;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3185 ) ) );
if ( EQ( TSCPIMMEDIATETAG( x1583 ), CHARACTERTAG ) ) goto L3187;
scrt6_error( c1586, c1416, EMPTYLIST );
L3187:
if ( FALSE( scrt3_char_2dalphabetic_3f( x1583 ) ) ) goto L3189;
if ( FALSE( scrt3_char_2dupper_2dcase_3f( x1583 ) ) ) goto L3191;
X2 = CHAR_FIX( x1583 );
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 128 ) ) ),
3 ) ) goto L3195;
X1 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 128 ) ) ) );
goto L3196;
L3195:
X1 = scrt2__2b_2dtwo( X2, _TSCP( 128 ) );
L3196:
X2 = BOOLEAN( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) );
if ( TRUE( X2 ) ) goto L3202;
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3203;
X3 = BOOLEAN( LT( INT( X1 ), INT( _TSCP( 0 ) ) ) );
goto L3204;
L3203:
X3 = scrt2__3c_2dtwo( X1, _TSCP( 0 ) );
L3204:
if ( TRUE( X3 ) ) goto L3202;
if ( BITAND( BITOR( INT( X1 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3211;
if ( GT( INT( X1 ), INT( _TSCP( 1020 ) ) ) ) goto L3202;
goto L3218;
L3211:
if ( FALSE( scrt2__3e_2dtwo( X1, _TSCP( 1020 ) ) ) ) goto L3218;
L3202:
scrt6_error( c1112, c1113, CONS( X1, EMPTYLIST ) );
L3218:
POPSTACKTRACE( FIX_CHAR( X1 ) );
L3191:
POPSTACKTRACE( x1583 );
L3189:
POPSTACKTRACE( x1583 );
}
DEFTSCP( scrt3_char_2d_3einteger_v );
DEFSTRING( t3219, "CHAR->INTEGER", 13 );
TSCP scrt3_char_2d_3einteger( x1626 )
TSCP x1626;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3219 ) ) );
if ( EQ( TSCPIMMEDIATETAG( x1626 ), CHARACTERTAG ) ) goto L3222;
scrt6_error( c1195,
c1196, CONS( x1626, EMPTYLIST ) );
L3222:
POPSTACKTRACE( CHAR_FIX( x1626 ) );
}
DEFTSCP( scrt3_integer_2d_3echar_v );
DEFSTRING( t3224, "INTEGER->CHAR", 13 );
TSCP scrt3_integer_2d_3echar( x1632 )
TSCP x1632;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3224 ) ) );
X1 = BOOLEAN( NEQ( TSCPTAG( x1632 ), FIXNUMTAG ) );
if ( TRUE( X1 ) ) goto L3231;
if ( BITAND( BITOR( INT( x1632 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3232;
X2 = BOOLEAN( LT( INT( x1632 ), INT( _TSCP( 0 ) ) ) );
goto L3233;
L3232:
X2 = scrt2__3c_2dtwo( x1632, _TSCP( 0 ) );
L3233:
if ( TRUE( X2 ) ) goto L3231;
if ( BITAND( BITOR( INT( x1632 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3240;
if ( GT( INT( x1632 ), INT( _TSCP( 1020 ) ) ) ) goto L3231;
goto L3247;
L3240:
if ( FALSE( scrt2__3e_2dtwo( x1632, _TSCP( 1020 ) ) )
) goto L3247;
L3231:
scrt6_error( c1112,
c1113, CONS( x1632, EMPTYLIST ) );
L3247:
POPSTACKTRACE( FIX_CHAR( x1632 ) );
}
DEFTSCP( scrt3_string_3f_v );
DEFSTRING( t3248, "STRING?", 7 );
TSCP scrt3_string_3f( x1658 )
TSCP x1658;
{
PUSHSTACKTRACE( U_TX( ADR( t3248 ) ) );
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1658 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1658 ),
STRINGTAG ) ) ) );
}
DEFTSCP( scrt3_string_2dlength_v );
DEFSTRING( t3250, "STRING-LENGTH", 13 );
TSCP scrt3_string_2dlength( x1662 )
TSCP x1662;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3250 ) ) );
if ( AND( EQ( TSCPTAG( x1662 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1662 ), STRINGTAG ) )
) goto L3253;
scrt6_error( c1667,
c1668, CONS( x1662, EMPTYLIST ) );
L3253:
POPSTACKTRACE( C_FIXED( STRING_LENGTH( x1662 ) ) );
}
DEFTSCP( scrt3_string_2dref_v );
DEFSTRING( t3255, "STRING-REF", 10 );
TSCP scrt3_string_2dref( x1670, y1671 )
TSCP x1670, y1671;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3255 ) ) );
if ( EQ( TSCPTAG( y1671 ), FIXNUMTAG ) ) goto L3258;
scrt6_error( c1677,
c1081, CONS( y1671, EMPTYLIST ) );
L3258:
X1 = BOOLEAN( LT( INT( y1671 ), 0 ) );
if ( TRUE( X1 ) ) goto L3264;
if ( AND( EQ( TSCPTAG( x1670 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1670 ), STRINGTAG ) )
) goto L3266;
scrt6_error( c1667,
c1668, CONS( x1670, EMPTYLIST ) );
L3266:
X2 = C_FIXED( STRING_LENGTH( x1670 ) );
if ( BITAND( BITOR( INT( y1671 ), INT( X2 ) ),
3 ) ) goto L3270;
if ( GTE( INT( y1671 ), INT( X2 ) ) ) goto L3264;
goto L3277;
L3270:
if ( FALSE( scrt2__3e_3d_2dtwo( y1671, X2 ) ) ) goto L3277;
L3264:
scrt6_error( c1677,
c1698, CONS( y1671, EMPTYLIST ) );
L3277:
POPSTACKTRACE( C_CHAR( STRING_CHAR( x1670, y1671 ) ) );
}
DEFTSCP( scrt3_string_2dset_21_v );
DEFSTRING( t3278, "STRING-SET!", 11 );
TSCP scrt3_string_2dset_21( x1700, y1701, z1702 )
TSCP x1700, y1701, z1702;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3278 ) ) );
if ( EQ( TSCPTAG( y1701 ), FIXNUMTAG ) ) goto L3281;
scrt6_error( c1709,
c1081, CONS( y1701, EMPTYLIST ) );
L3281:
if ( EQ( TSCPIMMEDIATETAG( z1702 ), CHARACTERTAG ) ) goto L3283;
scrt6_error( c1709,
c1712, CONS( z1702, EMPTYLIST ) );
L3283:
X1 = BOOLEAN( LT( INT( y1701 ), 0 ) );
if ( TRUE( X1 ) ) goto L3289;
if ( AND( EQ( TSCPTAG( x1700 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1700 ), STRINGTAG ) )
) goto L3291;
scrt6_error( c1667,
c1668, CONS( x1700, EMPTYLIST ) );
L3291:
X2 = C_FIXED( STRING_LENGTH( x1700 ) );
if ( BITAND( BITOR( INT( y1701 ), INT( X2 ) ),
3 ) ) goto L3295;
if ( GTE( INT( y1701 ), INT( X2 ) ) ) goto L3289;
goto L3302;
L3295:
if ( FALSE( scrt2__3e_3d_2dtwo( y1701, X2 ) ) ) goto L3302;
L3289:
scrt6_error( c1709, c1733, EMPTYLIST );
L3302:
STRING_CHAR( x1700, y1701 ) = CHAR_C( z1702 );
POPSTACKTRACE( z1702 );
}
DEFTSCP( scrt3_string_3d_3f_v );
DEFSTRING( t3303, "STRING=?", 8 );
TSCP scrt3_string_3d_3f( x1735, y1736 )
TSCP x1735, y1736;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3303 ) ) );
X3 = BOOLEAN( NOT( AND( EQ( TSCPTAG( x1735 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1735 ),
STRINGTAG ) ) ) );
if ( TRUE( X3 ) ) goto L3309;
if ( AND( EQ( TSCPTAG( y1736 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1736 ), STRINGTAG ) )
) goto L3312;
L3309:
scrt6_error( c1745, c1746, EMPTYLIST );
L3312:
X3 = C_FIXED( STRING_LENGTH( y1736 ) );
X1 = C_FIXED( STRING_LENGTH( x1735 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X3 ) ),
3 ) ) goto L3315;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( X3 ) ) ) goto L3319;
POPSTACKTRACE( FALSEVALUE );
L3315:
if ( TRUE( scrt2__3d_2dtwo( X1, X3 ) ) ) goto L3319;
POPSTACKTRACE( FALSEVALUE );
L3319:
X2 = _TSCP( 0 );
L3323:
if ( BITAND( BITOR( INT( X2 ), INT( X1 ) ),
3 ) ) goto L3324;
X3 = BOOLEAN( EQ( UNSIGNED( X2 ), UNSIGNED( X1 ) ) );
goto L3325;
L3324:
X3 = scrt2__3d_2dtwo( X2, X1 );
L3325:
if ( TRUE( X3 ) ) goto L3330;
X4 = C_CHAR( STRING_CHAR( x1735, X2 ) );
X5 = C_CHAR( STRING_CHAR( y1736, X2 ) );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( X5 ) ) ) goto L3330;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3333;
X2 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L3323;
L3333:
X2 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
goto L3323;
L3330:
if ( BITAND( BITOR( INT( X2 ), INT( X1 ) ),
3 ) ) goto L3335;
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( X1 ) ) ) );
L3335:
POPSTACKTRACE( scrt2__3d_2dtwo( X2, X1 ) );
}
DEFTSCP( scrt3_string_3c_3f_v );
DEFSTRING( t3337, "STRING<?", 8 );
EXTERNTSCPP( scrt2_min_2dtwo );
EXTERNTSCP( scrt2_min_2dtwo_v );
TSCP scrt3_string_3c_3f( x1805, y1806 )
TSCP x1805, y1806;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3337 ) ) );
X1 = BOOLEAN( NOT( AND( EQ( TSCPTAG( x1805 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1805 ),
STRINGTAG ) ) ) );
if ( TRUE( X1 ) ) goto L3343;
if ( AND( EQ( TSCPTAG( y1806 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1806 ), STRINGTAG ) )
) goto L3346;
L3343:
scrt6_error( c1815, c1746, EMPTYLIST );
L3346:
X1 = C_FIXED( STRING_LENGTH( x1805 ) );
X2 = C_FIXED( STRING_LENGTH( y1806 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3349;
if ( GTE( INT( X1 ), INT( X2 ) ) ) goto L3351;
X3 = X1;
goto L3350;
L3351:
X3 = X2;
goto L3350;
L3349:
X3 = scrt2_min_2dtwo( X1, X2 );
L3350:
X4 = _TSCP( 0 );
L3355:
if ( BITAND( BITOR( INT( X4 ), INT( X3 ) ),
3 ) ) goto L3357;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( X3 ) ) ) goto L3361;
goto L3362;
L3357:
if ( FALSE( scrt2__3d_2dtwo( X4, X3 ) ) ) goto L3362;
L3361:
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3365;
POPSTACKTRACE( BOOLEAN( LT( INT( X1 ), INT( X2 ) ) ) );
L3365:
POPSTACKTRACE( scrt2__3c_2dtwo( X1, X2 ) );
L3362:
X5 = C_CHAR( STRING_CHAR( x1805, X4 ) );
X6 = C_CHAR( STRING_CHAR( y1806, X4 ) );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L3368;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3370;
X4 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L3355;
L3370:
X4 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
goto L3355;
L3368:
if ( AND( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) )
) goto L3373;
X7 = CONS( X6, EMPTYLIST );
scrt6_error( c1024, c1014, CONS( X5, X7 ) );
L3373:
POPSTACKTRACE( BOOLEAN( LT( INT( X5 ), INT( X6 ) ) ) );
}
DEFTSCP( scrt3_string_3e_3f_v );
DEFSTRING( t3375, "STRING>?", 8 );
TSCP scrt3_string_3e_3f( x1876, y1877 )
TSCP x1876, y1877;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3375 ) ) );
X1 = BOOLEAN( NOT( AND( EQ( TSCPTAG( x1876 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1876 ),
STRINGTAG ) ) ) );
if ( TRUE( X1 ) ) goto L3381;
if ( AND( EQ( TSCPTAG( y1877 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1877 ), STRINGTAG ) )
) goto L3384;
L3381:
scrt6_error( c1886, c1746, EMPTYLIST );
L3384:
X1 = C_FIXED( STRING_LENGTH( x1876 ) );
X2 = C_FIXED( STRING_LENGTH( y1877 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3387;
if ( GTE( INT( X1 ), INT( X2 ) ) ) goto L3389;
X3 = X1;
goto L3388;
L3389:
X3 = X2;
goto L3388;
L3387:
X3 = scrt2_min_2dtwo( X1, X2 );
L3388:
X4 = _TSCP( 0 );
L3393:
if ( BITAND( BITOR( INT( X4 ), INT( X3 ) ),
3 ) ) goto L3395;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( X3 ) ) ) goto L3399;
goto L3400;
L3395:
if ( FALSE( scrt2__3d_2dtwo( X4, X3 ) ) ) goto L3400;
L3399:
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3403;
POPSTACKTRACE( BOOLEAN( GT( INT( X1 ), INT( X2 ) ) ) );
L3403:
POPSTACKTRACE( scrt2__3e_2dtwo( X1, X2 ) );
L3400:
X5 = C_CHAR( STRING_CHAR( x1876, X4 ) );
X6 = C_CHAR( STRING_CHAR( y1877, X4 ) );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L3406;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3408;
X4 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L3393;
L3408:
X4 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
goto L3393;
L3406:
if ( AND( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) )
) goto L3411;
X7 = CONS( X6, EMPTYLIST );
scrt6_error( c1034, c1014, CONS( X5, X7 ) );
L3411:
POPSTACKTRACE( BOOLEAN( GT( INT( X5 ), INT( X6 ) ) ) );
}
DEFTSCP( scrt3_string_3c_3d_3f_v );
DEFSTRING( t3413, "STRING<=?", 9 );
TSCP scrt3_string_3c_3d_3f( x1947, y1948 )
TSCP x1947, y1948;
{
PUSHSTACKTRACE( U_TX( ADR( t3413 ) ) );
if ( TRUE( scrt3_string_3e_3f( x1947, y1948 ) ) ) goto L3415;
POPSTACKTRACE( TRUEVALUE );
L3415:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt3_string_3e_3d_3f_v );
DEFSTRING( t3417, "STRING>=?", 9 );
TSCP scrt3_string_3e_3d_3f( x1950, y1951 )
TSCP x1950, y1951;
{
PUSHSTACKTRACE( U_TX( ADR( t3417 ) ) );
if ( TRUE( scrt3_string_3c_3f( x1950, y1951 ) ) ) goto L3419;
POPSTACKTRACE( TRUEVALUE );
L3419:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt3_string_2dci_3d_3f_v );
DEFSTRING( t3421, "STRING-CI=?", 11 );
TSCP scrt3_string_2dci_3d_3f( x1953, y1954 )
TSCP x1953, y1954;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3421 ) ) );
X3 = BOOLEAN( NOT( AND( EQ( TSCPTAG( x1953 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1953 ),
STRINGTAG ) ) ) );
if ( TRUE( X3 ) ) goto L3427;
if ( AND( EQ( TSCPTAG( y1954 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1954 ), STRINGTAG ) )
) goto L3430;
L3427:
scrt6_error( c1963, c1746, EMPTYLIST );
L3430:
X3 = C_FIXED( STRING_LENGTH( y1954 ) );
X1 = C_FIXED( STRING_LENGTH( x1953 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X3 ) ),
3 ) ) goto L3433;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( X3 ) ) ) goto L3437;
POPSTACKTRACE( FALSEVALUE );
L3433:
if ( TRUE( scrt2__3d_2dtwo( X1, X3 ) ) ) goto L3437;
POPSTACKTRACE( FALSEVALUE );
L3437:
X2 = _TSCP( 0 );
L3441:
if ( BITAND( BITOR( INT( X2 ), INT( X1 ) ),
3 ) ) goto L3442;
X3 = BOOLEAN( EQ( UNSIGNED( X2 ), UNSIGNED( X1 ) ) );
goto L3443;
L3442:
X3 = scrt2__3d_2dtwo( X2, X1 );
L3443:
if ( TRUE( X3 ) ) goto L3448;
X5 = C_CHAR( STRING_CHAR( x1953, X2 ) );
X6 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ) ) goto L3453;
scrt6_error( c1195, c1196, CONS( X5, EMPTYLIST ) );
L3453:
X7 = CHAR_FIX( X5 );
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), VECTORTAG ) ) ) goto L3456;
scrt6_error( c1219, c1078, CONS( X6, EMPTYLIST ) );
L3456:
if ( EQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L3458;
scrt6_error( c1219, c1081, CONS( X7, EMPTYLIST ) );
L3458:
if ( LT( UNSIGNED( FIXED_C( X7 ) ),
UNSIGNED( VECTOR_LENGTH( X6 ) ) ) ) goto L3460;
scrt6_error( c1219, c1085, CONS( X7, EMPTYLIST ) );
L3460:
X4 = VECTOR_ELEMENT( X6, X7 );
X6 = C_CHAR( STRING_CHAR( y1954, X2 ) );
X7 = scrt3_char_2dupcase_2dtable_v;
if ( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) ) goto L3464;
scrt6_error( c1195, c1196, CONS( X6, EMPTYLIST ) );
L3464:
X8 = CHAR_FIX( X6 );
if ( AND( EQ( TSCPTAG( X7 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X7 ), VECTORTAG ) ) ) goto L3467;
scrt6_error( c1219, c1078, CONS( X7, EMPTYLIST ) );
L3467:
if ( EQ( TSCPTAG( X8 ), FIXNUMTAG ) ) goto L3469;
scrt6_error( c1219, c1081, CONS( X8, EMPTYLIST ) );
L3469:
if ( LT( UNSIGNED( FIXED_C( X8 ) ),
UNSIGNED( VECTOR_LENGTH( X7 ) ) ) ) goto L3471;
scrt6_error( c1219, c1085, CONS( X8, EMPTYLIST ) );
L3471:
X5 = VECTOR_ELEMENT( X7, X8 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( X5 ) ) ) goto L3448;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3473;
X2 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L3441;
L3473:
X2 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
goto L3441;
L3448:
if ( BITAND( BITOR( INT( X2 ), INT( X1 ) ),
3 ) ) goto L3475;
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( X1 ) ) ) );
L3475:
POPSTACKTRACE( scrt2__3d_2dtwo( X2, X1 ) );
}
DEFTSCP( scrt3_string_2dci_3c_3f_v );
DEFSTRING( t3477, "STRING-CI<?", 11 );
TSCP scrt3_string_2dci_3c_3f( x2054, y2055 )
TSCP x2054, y2055;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3477 ) ) );
X1 = BOOLEAN( NOT( AND( EQ( TSCPTAG( x2054 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2054 ),
STRINGTAG ) ) ) );
if ( TRUE( X1 ) ) goto L3483;
if ( AND( EQ( TSCPTAG( y2055 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y2055 ), STRINGTAG ) )
) goto L3486;
L3483:
scrt6_error( c2064, c1746, EMPTYLIST );
L3486:
X1 = C_FIXED( STRING_LENGTH( x2054 ) );
X2 = C_FIXED( STRING_LENGTH( y2055 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3489;
if ( GTE( INT( X1 ), INT( X2 ) ) ) goto L3491;
X3 = X1;
goto L3490;
L3491:
X3 = X2;
goto L3490;
L3489:
X3 = scrt2_min_2dtwo( X1, X2 );
L3490:
X4 = _TSCP( 0 );
L3495:
if ( BITAND( BITOR( INT( X4 ), INT( X3 ) ),
3 ) ) goto L3497;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( X3 ) ) ) goto L3501;
goto L3502;
L3497:
if ( FALSE( scrt2__3d_2dtwo( X4, X3 ) ) ) goto L3502;
L3501:
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3505;
POPSTACKTRACE( BOOLEAN( LT( INT( X1 ), INT( X2 ) ) ) );
L3505:
POPSTACKTRACE( scrt2__3c_2dtwo( X1, X2 ) );
L3502:
X6 = C_CHAR( STRING_CHAR( x2054, X4 ) );
if ( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) ) goto L3509;
scrt6_error( c1195, c1196, CONS( X6, EMPTYLIST ) );
L3509:
X7 = CHAR_FIX( X6 );
X8 = scrt3_char_2dupcase_2dtable_v;
if ( AND( EQ( TSCPTAG( X8 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X8 ), VECTORTAG ) ) ) goto L3512;
scrt6_error( c1219, c1078, CONS( X8, EMPTYLIST ) );
L3512:
if ( EQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L3514;
scrt6_error( c1219, c1081, CONS( X7, EMPTYLIST ) );
L3514:
if ( LT( UNSIGNED( FIXED_C( X7 ) ),
UNSIGNED( VECTOR_LENGTH( X8 ) ) ) ) goto L3516;
scrt6_error( c1219, c1085, CONS( X7, EMPTYLIST ) );
L3516:
X5 = VECTOR_ELEMENT( X8, X7 );
X7 = C_CHAR( STRING_CHAR( y2055, X4 ) );
if ( EQ( TSCPIMMEDIATETAG( X7 ), CHARACTERTAG ) ) goto L3520;
scrt6_error( c1195, c1196, CONS( X7, EMPTYLIST ) );
L3520:
X8 = CHAR_FIX( X7 );
X9 = scrt3_char_2dupcase_2dtable_v;
if ( AND( EQ( TSCPTAG( X9 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X9 ), VECTORTAG ) ) ) goto L3523;
scrt6_error( c1219, c1078, CONS( X9, EMPTYLIST ) );
L3523:
if ( EQ( TSCPTAG( X8 ), FIXNUMTAG ) ) goto L3525;
scrt6_error( c1219, c1081, CONS( X8, EMPTYLIST ) );
L3525:
if ( LT( UNSIGNED( FIXED_C( X8 ) ),
UNSIGNED( VECTOR_LENGTH( X9 ) ) ) ) goto L3527;
scrt6_error( c1219, c1085, CONS( X8, EMPTYLIST ) );
L3527:
X6 = VECTOR_ELEMENT( X9, X8 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L3530;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3532;
X4 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L3495;
L3532:
X4 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
goto L3495;
L3530:
if ( AND( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) )
) goto L3535;
X7 = CONS( X6, EMPTYLIST );
scrt6_error( c1024, c1014, CONS( X5, X7 ) );
L3535:
POPSTACKTRACE( BOOLEAN( LT( INT( X5 ), INT( X6 ) ) ) );
}
DEFTSCP( scrt3_string_2dci_3e_3f_v );
DEFSTRING( t3537, "STRING-CI>?", 11 );
TSCP scrt3_string_2dci_3e_3f( x2157, y2158 )
TSCP x2157, y2158;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3537 ) ) );
X1 = BOOLEAN( NOT( AND( EQ( TSCPTAG( x2157 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2157 ),
STRINGTAG ) ) ) );
if ( TRUE( X1 ) ) goto L3543;
if ( AND( EQ( TSCPTAG( y2158 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y2158 ), STRINGTAG ) )
) goto L3546;
L3543:
scrt6_error( c2167, c1746, EMPTYLIST );
L3546:
X1 = C_FIXED( STRING_LENGTH( x2157 ) );
X2 = C_FIXED( STRING_LENGTH( y2158 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3549;
if ( GTE( INT( X1 ), INT( X2 ) ) ) goto L3551;
X3 = X1;
goto L3550;
L3551:
X3 = X2;
goto L3550;
L3549:
X3 = scrt2_min_2dtwo( X1, X2 );
L3550:
X4 = _TSCP( 0 );
L3555:
if ( BITAND( BITOR( INT( X4 ), INT( X3 ) ),
3 ) ) goto L3557;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( X3 ) ) ) goto L3561;
goto L3562;
L3557:
if ( FALSE( scrt2__3d_2dtwo( X4, X3 ) ) ) goto L3562;
L3561:
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L3565;
POPSTACKTRACE( BOOLEAN( GT( INT( X1 ), INT( X2 ) ) ) );
L3565:
POPSTACKTRACE( scrt2__3e_2dtwo( X1, X2 ) );
L3562:
X6 = C_CHAR( STRING_CHAR( x2157, X4 ) );
if ( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) ) goto L3569;
scrt6_error( c1195, c1196, CONS( X6, EMPTYLIST ) );
L3569:
X7 = CHAR_FIX( X6 );
X8 = scrt3_char_2dupcase_2dtable_v;
if ( AND( EQ( TSCPTAG( X8 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X8 ), VECTORTAG ) ) ) goto L3572;
scrt6_error( c1219, c1078, CONS( X8, EMPTYLIST ) );
L3572:
if ( EQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L3574;
scrt6_error( c1219, c1081, CONS( X7, EMPTYLIST ) );
L3574:
if ( LT( UNSIGNED( FIXED_C( X7 ) ),
UNSIGNED( VECTOR_LENGTH( X8 ) ) ) ) goto L3576;
scrt6_error( c1219, c1085, CONS( X7, EMPTYLIST ) );
L3576:
X5 = VECTOR_ELEMENT( X8, X7 );
X7 = C_CHAR( STRING_CHAR( y2158, X4 ) );
if ( EQ( TSCPIMMEDIATETAG( X7 ), CHARACTERTAG ) ) goto L3580;
scrt6_error( c1195, c1196, CONS( X7, EMPTYLIST ) );
L3580:
X8 = CHAR_FIX( X7 );
X9 = scrt3_char_2dupcase_2dtable_v;
if ( AND( EQ( TSCPTAG( X9 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X9 ), VECTORTAG ) ) ) goto L3583;
scrt6_error( c1219, c1078, CONS( X9, EMPTYLIST ) );
L3583:
if ( EQ( TSCPTAG( X8 ), FIXNUMTAG ) ) goto L3585;
scrt6_error( c1219, c1081, CONS( X8, EMPTYLIST ) );
L3585:
if ( LT( UNSIGNED( FIXED_C( X8 ) ),
UNSIGNED( VECTOR_LENGTH( X9 ) ) ) ) goto L3587;
scrt6_error( c1219, c1085, CONS( X8, EMPTYLIST ) );
L3587:
X6 = VECTOR_ELEMENT( X9, X8 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L3590;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3592;
X4 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L3555;
L3592:
X4 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
goto L3555;
L3590:
if ( AND( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) )
) goto L3595;
X7 = CONS( X6, EMPTYLIST );
scrt6_error( c1034, c1014, CONS( X5, X7 ) );
L3595:
POPSTACKTRACE( BOOLEAN( GT( INT( X5 ), INT( X6 ) ) ) );
}
DEFTSCP( scrt3_string_2dci_3c_3d_3f_v );
DEFSTRING( t3597, "STRING-CI<=?", 12 );
TSCP scrt3_string_2dci_3c_3d_3f( x2260, y2261 )
TSCP x2260, y2261;
{
PUSHSTACKTRACE( U_TX( ADR( t3597 ) ) );
if ( TRUE( scrt3_string_2dci_3e_3f( x2260, y2261 ) )
) goto L3599;
POPSTACKTRACE( TRUEVALUE );
L3599:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt3_string_2dci_3e_3d_3f_v );
DEFSTRING( t3601, "STRING-CI>=?", 12 );
TSCP scrt3_string_2dci_3e_3d_3f( x2263, y2264 )
TSCP x2263, y2264;
{
PUSHSTACKTRACE( U_TX( ADR( t3601 ) ) );
if ( TRUE( scrt3_string_2dci_3c_3f( x2263, y2264 ) )
) goto L3603;
POPSTACKTRACE( TRUEVALUE );
L3603:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt3_substring_v );
DEFSTRING( t3605, "SUBSTRING", 9 );
EXTERNTSCPP( scrt2_negative_3f );
EXTERNTSCP( scrt2_negative_3f_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
TSCP scrt3_substring( x2266, y2267, z2268 )
TSCP x2266, y2267, z2268;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3605 ) ) );
if ( AND( EQ( TSCPTAG( x2266 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2266 ), STRINGTAG ) )
) goto L3607;
scrt6_error( c2271, c2272, EMPTYLIST );
L3607:
X1 = BOOLEAN( NEQ( TSCPTAG( y2267 ), FIXNUMTAG ) );
if ( TRUE( X1 ) ) goto L3613;
if ( NEQ( TSCPTAG( y2267 ), FIXNUMTAG ) ) goto L3614;
X2 = BOOLEAN( LT( INT( y2267 ), 0 ) );
goto L3615;
L3614:
X2 = scrt2_negative_3f( y2267 );
L3615:
if ( TRUE( X2 ) ) goto L3613;
if ( NEQ( TSCPTAG( z2268 ), FIXNUMTAG ) ) goto L3613;
if ( BITAND( BITOR( INT( z2268 ), INT( y2267 ) ),
3 ) ) goto L3625;
X3 = BOOLEAN( LT( INT( z2268 ), INT( y2267 ) ) );
goto L3626;
L3625:
X3 = scrt2__3c_2dtwo( z2268, y2267 );
L3626:
if ( TRUE( X3 ) ) goto L3613;
X4 = C_FIXED( STRING_LENGTH( x2266 ) );
if ( BITAND( BITOR( INT( z2268 ), INT( X4 ) ),
3 ) ) goto L3634;
if ( GT( INT( z2268 ), INT( X4 ) ) ) goto L3613;
goto L3641;
L3634:
if ( FALSE( scrt2__3e_2dtwo( z2268, X4 ) ) ) goto L3641;
L3613:
scrt6_error( c2271, c2317, EMPTYLIST );
L3641:
X1 = y2267;
X2 = _TSCP( 0 );
if ( BITAND( BITOR( INT( z2268 ), INT( y2267 ) ),
3 ) ) goto L3643;
X4 = _TSCP( IDIFFERENCE( INT( z2268 ),
INT( y2267 ) ) );
goto L3644;
L3643:
X4 = scrt2__2d_2dtwo( z2268, y2267 );
L3644:
X3 = sc_make_2dstring( X4, EMPTYLIST );
L3645:
if ( BITAND( BITOR( INT( X1 ), INT( z2268 ) ),
3 ) ) goto L3647;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( z2268 ) ) ) goto L3651;
POPSTACKTRACE( X3 );
L3647:
if ( FALSE( scrt2__3d_2dtwo( X1, z2268 ) ) ) goto L3651;
POPSTACKTRACE( X3 );
L3651:
X4 = C_CHAR( STRING_CHAR( x2266, X1 ) );
STRING_CHAR( X3, X2 ) = CHAR_C( X4 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3655;
X4 = _TSCP( IPLUS( INT( X1 ), INT( _TSCP( 4 ) ) ) );
goto L3656;
L3655:
X4 = scrt2__2b_2dtwo( X1, _TSCP( 4 ) );
L3656:
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3657;
X5 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L3658;
L3657:
X5 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L3658:
X2 = X5;
X1 = X4;
goto L3645;
}
DEFTSCP( scrt3_string_2dappend_v );
DEFSTRING( t3659, "STRING-APPEND", 13 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
TSCP scrt3_string_2dappend( x2360 )
TSCP x2360;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3659 ) ) );
X2 = x2360;
X3 = _TSCP( 0 );
L3663:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L3664;
X1 = sc_make_2dstring( X3, EMPTYLIST );
goto L3667;
L3664:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3669;
scrt1__24__car_2derror( X2 );
L3669:
X4 = PAIR_CAR( X2 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), STRINGTAG ) ) )
) goto L3666;
X4 = PAIR_CDR( X2 );
X6 = PAIR_CAR( X2 );
X5 = C_FIXED( STRING_LENGTH( X6 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X5 ) ),
3 ) ) goto L3674;
X3 = _TSCP( IPLUS( INT( X3 ), INT( X5 ) ) );
goto L3675;
L3674:
X3 = scrt2__2b_2dtwo( X3, X5 );
L3675:
X2 = X4;
goto L3663;
L3666:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3677;
scrt1__24__car_2derror( X2 );
L3677:
X1 = scrt6_error( c2450,
c1668,
CONS( PAIR_CAR( X2 ), EMPTYLIST ) );
L3667:
X2 = _TSCP( 0 );
X3 = x2360;
L3679:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3680;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3685;
scrt1__24__car_2derror( X3 );
L3685:
X4 = PAIR_CAR( X3 );
X7 = PAIR_CAR( X3 );
X6 = C_FIXED( STRING_LENGTH( X7 ) );
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3689;
X5 = _TSCP( IDIFFERENCE( INT( X6 ),
INT( _TSCP( 4 ) ) ) );
goto L3690;
L3689:
X5 = scrt2__2d_2dtwo( X6, _TSCP( 4 ) );
L3690:
if ( EQ( UNSIGNED( X5 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L3692;
if ( BITAND( BITOR( INT( X2 ), INT( X5 ) ),
3 ) ) goto L3695;
X6 = _TSCP( IPLUS( INT( X2 ), INT( X5 ) ) );
goto L3696;
L3695:
X6 = scrt2__2b_2dtwo( X2, X5 );
L3696:
X7 = C_CHAR( STRING_CHAR( X4, X5 ) );
STRING_CHAR( X1, X6 ) = CHAR_C( X7 );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3697;
X5 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 4 ) ) ) );
goto L3690;
L3697:
X5 = scrt2__2d_2dtwo( X5, _TSCP( 4 ) );
goto L3690;
L3692:
X6 = PAIR_CAR( X3 );
X5 = C_FIXED( STRING_LENGTH( X6 ) );
if ( BITAND( BITOR( INT( X2 ), INT( X5 ) ),
3 ) ) goto L3701;
X4 = _TSCP( IPLUS( INT( X2 ), INT( X5 ) ) );
goto L3702;
L3701:
X4 = scrt2__2b_2dtwo( X2, X5 );
L3702:
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L3679;
L3680:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt3_string_2d_3elist_v );
DEFSTRING( t3704, "STRING->LIST", 12 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP scrt3_string_2d_3elist( x2472 )
TSCP x2472;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3704 ) ) );
if ( AND( EQ( TSCPTAG( x2472 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2472 ), STRINGTAG ) )
) goto L3706;
scrt6_error( c2475,
c1668, CONS( x2472, EMPTYLIST ) );
L3706:
X2 = C_FIXED( STRING_LENGTH( x2472 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3710;
X1 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L3711;
L3710:
X1 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L3711:
X2 = EMPTYLIST;
L3712:
X2 = CONS( X2, EMPTYLIST );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( -4 ) ) ),
3 ) ) goto L3714;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L3718;
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3714:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( -4 ) ) ) ) goto L3718;
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3718:
X4 = C_CHAR( STRING_CHAR( x2472, X1 ) );
X3 = sc_cons( X4, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X3 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3722;
X3 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L3723;
L3722:
X3 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
L3723:
X2 = PAIR_CAR( X2 );
X1 = X3;
goto L3712;
}
DEFTSCP( scrt3_list_2d_3estring_v );
DEFSTRING( t3724, "LIST->STRING", 12 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
TSCP scrt3_list_2d_3estring( x2509 )
TSCP x2509;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3724 ) ) );
X1 = _TSCP( 0 );
X2 = x2509;
X4 = scrt1_length( x2509 );
X3 = sc_make_2dstring( X4, EMPTYLIST );
L3727:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L3728;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3732;
scrt1__24__car_2derror( X2 );
L3732:
X4 = PAIR_CAR( X2 );
if ( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ) ) goto L3735;
scrt6_error( c2526,
c2527, CONS( x2509, EMPTYLIST ) );
L3735:
STRING_CHAR( X3, X1 ) = CHAR_C( X4 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3737;
X4 = _TSCP( IPLUS( INT( X1 ), INT( _TSCP( 4 ) ) ) );
goto L3738;
L3737:
X4 = scrt2__2b_2dtwo( X1, _TSCP( 4 ) );
L3738:
X5 = PAIR_CDR( X2 );
X2 = X5;
X1 = X4;
goto L3727;
L3728:
POPSTACKTRACE( X3 );
}
DEFTSCP( scrt3_string_2dfill_21_v );
DEFSTRING( t3740, "STRING-FILL!", 12 );
TSCP scrt3_string_2dfill_21( s2547, c2548 )
TSCP s2547, c2548;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3740 ) ) );
if ( AND( EQ( TSCPTAG( s2547 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2547 ), STRINGTAG ) )
) goto L3742;
scrt6_error( c2551,
c1668, CONS( s2547, EMPTYLIST ) );
L3742:
if ( EQ( TSCPIMMEDIATETAG( c2548 ), CHARACTERTAG ) ) goto L3744;
scrt6_error( c2551,
c1712, CONS( c2548, EMPTYLIST ) );
L3744:
X2 = C_FIXED( STRING_LENGTH( s2547 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3748;
X1 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L3749;
L3748:
X1 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L3749:
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( -4 ) ) ),
3 ) ) goto L3752;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L3756;
POPSTACKTRACE( s2547 );
L3752:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( -4 ) ) ) ) goto L3756;
POPSTACKTRACE( s2547 );
L3756:
STRING_CHAR( s2547, X1 ) = CHAR_C( c2548 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3760;
X1 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L3749;
L3760:
X1 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
goto L3749;
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt1__init();
scrt2__init();
scrt6__init();
MAXDISPLAY( 0 );
}
void scrt3__init()
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scrt3 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2836 ) ),
ADR( scrt3_char_3f_v ),
MAKEPROCEDURE( 1,
0, scrt3_char_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2838 ) ),
ADR( scrt3_char_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_3d_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2843 ) ),
ADR( scrt3_char_3c_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_3c_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2848 ) ),
ADR( scrt3_char_3e_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_3e_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2853 ) ),
ADR( scrt3_char_3c_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_3c_3d_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2858 ) ),
ADR( scrt3_char_3e_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_3e_3d_3f, EMPTYLIST ) );
X1 = sc_make_2dvector( _TSCP( 1024 ), EMPTYLIST );
X2 = _TSCP( 0 );
L2866:
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 1024 ) ) ),
3 ) ) goto L2868;
if ( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 1024 ) ) ) ) goto L2872;
goto L2873;
L2868:
if ( FALSE( scrt2__3d_2dtwo( X2, _TSCP( 1024 ) ) ) ) goto L2873;
L2872:
if ( EQ( TSCPIMMEDIATETAG( _TSCP( 24850 ) ),
CHARACTERTAG ) ) goto L2879;
scrt6_error( c1195,
c1196,
CONS( _TSCP( 24850 ), EMPTYLIST ) );
L2879:
X4 = CHAR_FIX( _TSCP( 24850 ) );
if ( EQ( TSCPIMMEDIATETAG( _TSCP( 16658 ) ),
CHARACTERTAG ) ) goto L2882;
scrt6_error( c1195,
c1196,
CONS( _TSCP( 16658 ), EMPTYLIST ) );
L2882:
X5 = CHAR_FIX( _TSCP( 16658 ) );
X6 = _TSCP( 0 );
L2884:
if ( BITAND( BITOR( INT( X6 ),
INT( _TSCP( 104 ) ) ),
3 ) ) goto L2886;
if ( NEQ( UNSIGNED( X6 ),
UNSIGNED( _TSCP( 104 ) ) ) ) goto L2890;
X3 = X1;
goto L2876;
L2886:
if ( FALSE( scrt2__3d_2dtwo( X6, _TSCP( 104 ) ) ) ) goto L2890;
X3 = X1;
goto L2876;
L2890:
X8 = BOOLEAN( NEQ( TSCPTAG( X5 ), FIXNUMTAG ) );
if ( TRUE( X8 ) ) goto L2900;
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2901;
X9 = BOOLEAN( LT( INT( X5 ), INT( _TSCP( 0 ) ) ) );
goto L2902;
L2901:
X9 = scrt2__3c_2dtwo( X5, _TSCP( 0 ) );
L2902:
if ( TRUE( X9 ) ) goto L2900;
if ( BITAND( BITOR( INT( X5 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L2909;
if ( GT( INT( X5 ), INT( _TSCP( 1020 ) ) ) ) goto L2900;
goto L2916;
L2909:
if ( FALSE( scrt2__3e_2dtwo( X5, _TSCP( 1020 ) ) ) ) goto L2916;
L2900:
scrt6_error( c1112, c1113, CONS( X5, EMPTYLIST ) );
L2916:
X7 = FIX_CHAR( X5 );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L2918;
scrt6_error( c1077, c1078, CONS( X1, EMPTYLIST ) );
L2918:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L2920;
scrt6_error( c1077, c1081, CONS( X4, EMPTYLIST ) );
L2920:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L2922;
scrt6_error( c1077, c1085, CONS( X4, EMPTYLIST ) );
L2922:
SETGEN( VECTOR_ELEMENT( X1, X4 ), X7 );
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2924;
X7 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L2925;
L2924:
X7 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
L2925:
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2926;
X8 = _TSCP( IPLUS( INT( X5 ), INT( _TSCP( 4 ) ) ) );
goto L2927;
L2926:
X8 = scrt2__2b_2dtwo( X5, _TSCP( 4 ) );
L2927:
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2928;
X6 = _TSCP( IPLUS( INT( X6 ), INT( _TSCP( 4 ) ) ) );
goto L2929;
L2928:
X6 = scrt2__2b_2dtwo( X6, _TSCP( 4 ) );
L2929:
X5 = X8;
X4 = X7;
goto L2884;
L2873:
X5 = BOOLEAN( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) );
if ( TRUE( X5 ) ) goto L2936;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2937;
X6 = BOOLEAN( LT( INT( X2 ), INT( _TSCP( 0 ) ) ) );
goto L2938;
L2937:
X6 = scrt2__3c_2dtwo( X2, _TSCP( 0 ) );
L2938:
if ( TRUE( X6 ) ) goto L2936;
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L2945;
if ( GT( INT( X2 ), INT( _TSCP( 1020 ) ) ) ) goto L2936;
goto L2952;
L2945:
if ( FALSE( scrt2__3e_2dtwo( X2, _TSCP( 1020 ) ) ) ) goto L2952;
L2936:
scrt6_error( c1112, c1113, CONS( X2, EMPTYLIST ) );
L2952:
X4 = FIX_CHAR( X2 );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L2954;
scrt6_error( c1077, c1078, CONS( X1, EMPTYLIST ) );
L2954:
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2956;
scrt6_error( c1077, c1081, CONS( X2, EMPTYLIST ) );
L2956:
if ( LT( UNSIGNED( FIXED_C( X2 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L2958;
scrt6_error( c1077, c1085, CONS( X2, EMPTYLIST ) );
L2958:
SETGEN( VECTOR_ELEMENT( X1, X2 ), X4 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2960;
X2 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L2866;
L2960:
X2 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
goto L2866;
L2876:
INITIALIZEVAR( U_TX( ADR( t2863 ) ),
ADR( scrt3_char_2dupcase_2dtable_v ), X3 );
INITIALIZEVAR( U_TX( ADR( t2962 ) ),
ADR( scrt3_char_2dci_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_2dci_3d_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2987 ) ),
ADR( scrt3_char_2dci_3c_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_2dci_3c_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3012 ) ),
ADR( scrt3_char_2dci_3e_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_2dci_3e_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3037 ) ),
ADR( scrt3_char_2dci_3c_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_2dci_3c_3d_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3062 ) ),
ADR( scrt3_char_2dci_3e_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_char_2dci_3e_3d_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3087 ) ),
ADR( scrt3_char_2dalphabetic_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2dalphabetic_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3112 ) ),
ADR( scrt3_char_2dnumeric_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2dnumeric_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3125 ) ),
ADR( scrt3_char_2dwhitespace_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2dwhitespace_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3147 ) ),
ADR( scrt3_char_2dupper_2dcase_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2dupper_2dcase_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3160 ) ),
ADR( scrt3_char_2dlower_2dcase_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2dlower_2dcase_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3173 ) ),
ADR( scrt3_char_2dupcase_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2dupcase, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3185 ) ),
ADR( scrt3_char_2ddowncase_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2ddowncase, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3219 ) ),
ADR( scrt3_char_2d_3einteger_v ),
MAKEPROCEDURE( 1,
0,
scrt3_char_2d_3einteger,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3224 ) ),
ADR( scrt3_integer_2d_3echar_v ),
MAKEPROCEDURE( 1,
0,
scrt3_integer_2d_3echar,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3248 ) ),
ADR( scrt3_string_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt3_string_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3250 ) ),
ADR( scrt3_string_2dlength_v ),
MAKEPROCEDURE( 1,
0,
scrt3_string_2dlength, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3255 ) ),
ADR( scrt3_string_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3278 ) ),
ADR( scrt3_string_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt3_string_2dset_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3303 ) ),
ADR( scrt3_string_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_3d_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3337 ) ),
ADR( scrt3_string_3c_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_3c_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3375 ) ),
ADR( scrt3_string_3e_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_3e_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3413 ) ),
ADR( scrt3_string_3c_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_3c_3d_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3417 ) ),
ADR( scrt3_string_3e_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_3e_3d_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3421 ) ),
ADR( scrt3_string_2dci_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dci_3d_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3477 ) ),
ADR( scrt3_string_2dci_3c_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dci_3c_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3537 ) ),
ADR( scrt3_string_2dci_3e_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dci_3e_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3597 ) ),
ADR( scrt3_string_2dci_3c_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dci_3c_3d_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3601 ) ),
ADR( scrt3_string_2dci_3e_3d_3f_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dci_3e_3d_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3605 ) ),
ADR( scrt3_substring_v ),
MAKEPROCEDURE( 3,
0,
scrt3_substring, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3659 ) ),
ADR( scrt3_string_2dappend_v ),
MAKEPROCEDURE( 0,
1,
scrt3_string_2dappend, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3704 ) ),
ADR( scrt3_string_2d_3elist_v ),
MAKEPROCEDURE( 1,
0,
scrt3_string_2d_3elist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3724 ) ),
ADR( scrt3_list_2d_3estring_v ),
MAKEPROCEDURE( 1,
0,
scrt3_list_2d_3estring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3740 ) ),
ADR( scrt3_string_2dfill_21_v ),
MAKEPROCEDURE( 2,
0,
scrt3_string_2dfill_21,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.