This is scrt7.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTATICTSCP( c2372 );
DEFSTATICTSCP( c2324 );
DEFSTRING( t2950, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c2263, t2950 );
DEFSTRING( t2951, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c2262 );
DEFSTRING( t2952, "STRING-REF", 10 );
DEFSTATICTSCP( c2241 );
DEFSTATICTSCP( c2209 );
DEFSTRING( t2954, "#\\space", 7 );
DEFSTATICTSCP2( t2953, t2954 );
DEFSTRING( t2956, "#\\return", 8 );
DEFSTATICTSCP2( t2955, t2956 );
DEFSTRING( t2958, "#\\formfeed", 10 );
DEFSTATICTSCP2( t2957, t2958 );
DEFSTRING( t2960, "#\\linefeed", 10 );
DEFSTATICTSCP2( t2959, t2960 );
DEFSTRING( t2962, "#\\newline", 9 );
DEFSTATICTSCP2( t2961, t2962 );
DEFSTRING( t2964, "#\\tab", 5 );
DEFSTATICTSCP2( t2963, t2964 );
DEFSTRING( t2965, "#\\???", 5 );
DEFSTATICTSCP2( c2198, t2965 );
DEFSTRING( t2966, "CHAR<=?", 7 );
DEFSTATICTSCP( c2194 );
DEFSTRING( t2967, "CHAR>?", 6 );
DEFSTATICTSCP( c2185 );
DEFSTRING( t2968, ")", 1 );
DEFSTATICTSCP2( c2173, t2968 );
DEFSTRING( t2969, " . ", 3 );
DEFSTATICTSCP2( c2172, t2969 );
DEFSTRING( t2970, " ", 1 );
DEFSTATICTSCP2( c2162, t2970 );
DEFSTATICTSCP( c2150 );
DEFSTRING( t2972, ",@", 2 );
DEFSTATICTSCP2( t2971, t2972 );
DEFSTRING( t2974, "UNQUOTE-SPLICING", 16 );
DEFSTATICTSCP( t2973 );
DEFSTRING( t2976, ",", 1 );
DEFSTATICTSCP2( t2975, t2976 );
DEFSTRING( t2978, "UNQUOTE", 7 );
DEFSTATICTSCP( t2977 );
DEFSTRING( t2980, "`", 1 );
DEFSTATICTSCP2( t2979, t2980 );
DEFSTRING( t2982, "QUASIQUOTE", 10 );
DEFSTATICTSCP( t2981 );
DEFSTRING( t2984, "'", 1 );
DEFSTATICTSCP2( t2983, t2984 );
DEFSTRING( t2986, "QUOTE", 5 );
DEFSTATICTSCP( t2985 );
DEFSTRING( t2987, "(", 1 );
DEFSTATICTSCP2( c2086, t2987 );
DEFSTATICTSCP( c2073 );
DEFSTRING( t2989, "-", 1 );
DEFSTATICTSCP( t2988 );
DEFSTRING( t2991, "+", 1 );
DEFSTATICTSCP( t2990 );
DEFSTRING( t2992, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c2072, t2992 );
DEFSTRING( t2993, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c2071 );
DEFSTRING( t2994, "#", 1 );
DEFSTATICTSCP2( c2063, t2994 );
DEFSTRING( t2995, "#T", 2 );
DEFSTATICTSCP2( c2060, t2995 );
DEFSTRING( t2996, "#F", 2 );
DEFSTATICTSCP2( c2059, t2996 );
DEFSTRING( t2997, "()", 2 );
DEFSTATICTSCP2( c2058, t2997 );
DEFSTRING( t2998, "#*END-OF-FILE*", 14 );
DEFSTATICTSCP2( c2057, t2998 );
DEFSTRING( t2999, "#*UNDEFINED*", 12 );
DEFSTATICTSCP2( c2056, t2999 );
DEFSTRING( t3000, "#*PROCEDURE*", 12 );
DEFSTATICTSCP2( c2055, t3000 );
DEFSTRING( t3001, "#*??????*", 9 );
DEFSTATICTSCP2( c2054, t3001 );
DEFSTRING( t3002, "WRITE-TOKEN", 11 );
DEFSTATICTSCP( c2009 );
DEFSTRING( t3003, "Poorly formed LIST", 18 );
DEFSTATICTSCP2( c1995, t3003 );
DEFSTRING( t3004, "Poorly formed DATUM: ~s", 23 );
DEFSTATICTSCP2( c1971, t3004 );
DEFSTRING( t3005, "READ-CHAR", 9 );
DEFSTATICTSCP( c1922 );
DEFSTRING( t3006, "PEEK-CHAR", 9 );
DEFSTATICTSCP( c1921 );
DEFSTATICTSCP( c1914 );
DEFFLOAT( t3007, 0. );
DEFSTATICTSCP2( c1852, t3007 );
DEFSTRING( t3008, "Illegal floating point number: ~a", 33 );
DEFSTATICTSCP2( c1841, t3008 );
DEFSTRING( t3009, "%F)%d", 5 );
DEFSTATICTSCP2( c1840, t3009 );
DEFSTRING( t3010,
"Floating point numbers must be base 10: ~a", 42 );
DEFSTATICTSCP2( c1836, t3010 );
DEFSTRING( t3011, "Illegal digit(s) in integer: ~a", 31 );
DEFSTATICTSCP2( c1831, t3011 );
DEFSTRING( t3012, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1824, t3012 );
DEFSTRING( t3013, "Argument is not a FLOAT: ~s", 27 );
DEFSTATICTSCP2( c1819, t3013 );
DEFSTRING( t3014, "FLOAT->FIXED", 12 );
DEFSTATICTSCP( c1818 );
DEFFLOAT( t3015, 536870911.1 );
DEFSTATICTSCP2( c1813, t3015 );
DEFFLOAT( t3016, -536870912.1 );
DEFSTATICTSCP2( c1805, t3016 );
DEFSTRING( t3017, ")0", 2 );
DEFSTATICTSCP2( c1790, t3017 );
DEFSTRING( t3018, "-", 1 );
DEFSTATICTSCP2( c1789, t3018 );
DEFSTRING( t3019, "Invalid number base: ~a", 23 );
DEFSTATICTSCP2( c1698, t3019 );
DEFSTATICTSCP( c1697 );
DEFSTATICTSCP( c1696 );
DEFSTATICTSCP( c1695 );
DEFSTATICTSCP( c1694 );
DEFSTRING( t3020, "VECTOR-REF", 10 );
DEFSTATICTSCP( c1633 );
DEFSTATICTSCP( c1593 );
DEFSTRING( t3021, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c1479, t3021 );
DEFSTRING( t3022, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1475, t3022 );
DEFSTRING( t3023, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c1472, t3023 );
DEFSTRING( t3024, "VECTOR-SET!", 11 );
DEFSTATICTSCP( c1471 );
DEFSTRING( t3025,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1325, t3025 );
DEFSTRING( t3026, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1324 );
DEFSTRING( t3027, "Unrecognized CHARACTER NAME: ~s", 31 );
DEFSTATICTSCP2( c1298, t3027 );
DEFSTRING( t3028, "SPACE", 5 );
DEFSTATICTSCP( c1297 );
DEFSTRING( t3029, "RETURN", 6 );
DEFSTATICTSCP( c1293 );
DEFSTRING( t3030, "FORMFEED", 8 );
DEFSTATICTSCP( c1289 );
DEFSTRING( t3031, "LINEFEED", 8 );
DEFSTATICTSCP( c1285 );
DEFSTRING( t3032, "NEWLINE", 7 );
DEFSTATICTSCP( c1281 );
DEFSTRING( t3033, "TAB", 3 );
DEFSTATICTSCP( c1277 );
DEFSTATICTSCP( c1223 );
DEFSTRING( t3034, "Invalid # option: ~a", 20 );
DEFSTATICTSCP2( c1192, t3034 );
DEFSTATICTSCP( c1135 );
DEFSTATICTSCP( c1107 );
DEFSTRING( t3035, "Argument(s) not CHAR: ~s ~s", 27 );
DEFSTATICTSCP2( c1054, t3035 );
DEFSTRING( t3036, "CHAR=?", 6 );
DEFSTATICTSCP( c1053 );
DEFSTRING( t3037, "Unexpected end-of-file", 22 );
DEFSTATICTSCP2( c1035, t3037 );
DEFSTRING( t3038, "READ", 4 );
DEFSTATICTSCP( c1034 );
DEFSTRING( t3039, "VECTOR", 6 );
DEFSTATICTSCP( c1027 );
DEFSTRING( t3040, "PERIOD", 6 );
DEFSTATICTSCP( c1025 );
DEFSTRING( t3041, "UNQUOTE", 7 );
DEFSTATICTSCP( c1023 );
DEFSTRING( t3042, "UNQUOTE-SPLICING", 16 );
DEFSTATICTSCP( c1021 );
DEFSTRING( t3043, "QUASIQUOTE", 10 );
DEFSTATICTSCP( c1019 );
DEFSTRING( t3044, "QUOTE", 5 );
DEFSTATICTSCP( c1017 );
DEFSTRING( t3045, "RIGHT-PAREN", 11 );
DEFSTATICTSCP( c1015 );
DEFSTRING( t3046, "LEFT-PAREN", 10 );
DEFSTATICTSCP( c1013 );
static void init_constants()
{
TSCP X1;
c2372 = EMPTYLIST;
c2372 = CONS( _TSCP( 11538 ), c2372 );
c2372 = CONS( _TSCP( 11026 ), c2372 );
c2372 = CONS( _TSCP( 11794 ), c2372 );
CONSTANTEXP( ADR( c2372 ) );
c2324 = EMPTYLIST;
c2324 = CONS( _TSCP( 8722 ), c2324 );
CONSTANTEXP( ADR( c2324 ) );
c2262 = STRINGTOSYMBOL( U_TX( ADR( t2951 ) ) );
CONSTANTEXP( ADR( c2262 ) );
c2241 = STRINGTOSYMBOL( U_TX( ADR( t2952 ) ) );
CONSTANTEXP( ADR( c2241 ) );
c2209 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2953, X1 );
X1 = CONS( _TSCP( 8210 ), X1 );
c2209 = CONS( X1, c2209 );
X1 = EMPTYLIST;
X1 = CONS( t2955, X1 );
X1 = CONS( _TSCP( 3346 ), X1 );
c2209 = CONS( X1, c2209 );
X1 = EMPTYLIST;
X1 = CONS( t2957, X1 );
X1 = CONS( _TSCP( 3090 ), X1 );
c2209 = CONS( X1, c2209 );
X1 = EMPTYLIST;
X1 = CONS( t2959, X1 );
X1 = CONS( _TSCP( 2578 ), X1 );
c2209 = CONS( X1, c2209 );
X1 = EMPTYLIST;
X1 = CONS( t2961, X1 );
X1 = CONS( _TSCP( 2578 ), X1 );
c2209 = CONS( X1, c2209 );
X1 = EMPTYLIST;
X1 = CONS( t2963, X1 );
X1 = CONS( _TSCP( 2322 ), X1 );
c2209 = CONS( X1, c2209 );
CONSTANTEXP( ADR( c2209 ) );
c2194 = STRINGTOSYMBOL( U_TX( ADR( t2966 ) ) );
CONSTANTEXP( ADR( c2194 ) );
c2185 = STRINGTOSYMBOL( U_TX( ADR( t2967 ) ) );
CONSTANTEXP( ADR( c2185 ) );
c2150 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2971, X1 );
t2973 = STRINGTOSYMBOL( U_TX( ADR( t2974 ) ) );
X1 = CONS( t2973, X1 );
c2150 = CONS( X1, c2150 );
X1 = EMPTYLIST;
X1 = CONS( t2975, X1 );
t2977 = STRINGTOSYMBOL( U_TX( ADR( t2978 ) ) );
X1 = CONS( t2977, X1 );
c2150 = CONS( X1, c2150 );
X1 = EMPTYLIST;
X1 = CONS( t2979, X1 );
t2981 = STRINGTOSYMBOL( U_TX( ADR( t2982 ) ) );
X1 = CONS( t2981, X1 );
c2150 = CONS( X1, c2150 );
X1 = EMPTYLIST;
X1 = CONS( t2983, X1 );
t2985 = STRINGTOSYMBOL( U_TX( ADR( t2986 ) ) );
X1 = CONS( t2985, X1 );
c2150 = CONS( X1, c2150 );
CONSTANTEXP( ADR( c2150 ) );
c2073 = EMPTYLIST;
t2988 = STRINGTOSYMBOL( U_TX( ADR( t2989 ) ) );
c2073 = CONS( t2988, c2073 );
t2990 = STRINGTOSYMBOL( U_TX( ADR( t2991 ) ) );
c2073 = CONS( t2990, c2073 );
CONSTANTEXP( ADR( c2073 ) );
c2071 = STRINGTOSYMBOL( U_TX( ADR( t2993 ) ) );
CONSTANTEXP( ADR( c2071 ) );
c2009 = STRINGTOSYMBOL( U_TX( ADR( t3002 ) ) );
CONSTANTEXP( ADR( c2009 ) );
c1922 = STRINGTOSYMBOL( U_TX( ADR( t3005 ) ) );
CONSTANTEXP( ADR( c1922 ) );
c1921 = STRINGTOSYMBOL( U_TX( ADR( t3006 ) ) );
CONSTANTEXP( ADR( c1921 ) );
c1914 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 60 ), X1 );
X1 = CONS( _TSCP( 17938 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 56 ), X1 );
X1 = CONS( _TSCP( 17682 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 52 ), X1 );
X1 = CONS( _TSCP( 17426 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 48 ), X1 );
X1 = CONS( _TSCP( 17170 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 44 ), X1 );
X1 = CONS( _TSCP( 16914 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 40 ), X1 );
X1 = CONS( _TSCP( 16658 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 60 ), X1 );
X1 = CONS( _TSCP( 26130 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 56 ), X1 );
X1 = CONS( _TSCP( 25874 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 52 ), X1 );
X1 = CONS( _TSCP( 25618 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 48 ), X1 );
X1 = CONS( _TSCP( 25362 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 44 ), X1 );
X1 = CONS( _TSCP( 25106 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 40 ), X1 );
X1 = CONS( _TSCP( 24850 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 36 ), X1 );
X1 = CONS( _TSCP( 14610 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 32 ), X1 );
X1 = CONS( _TSCP( 14354 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 28 ), X1 );
X1 = CONS( _TSCP( 14098 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 24 ), X1 );
X1 = CONS( _TSCP( 13842 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 20 ), X1 );
X1 = CONS( _TSCP( 13586 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 16 ), X1 );
X1 = CONS( _TSCP( 13330 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 12 ), X1 );
X1 = CONS( _TSCP( 13074 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 8 ), X1 );
X1 = CONS( _TSCP( 12818 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 4 ), X1 );
X1 = CONS( _TSCP( 12562 ), X1 );
c1914 = CONS( X1, c1914 );
X1 = EMPTYLIST;
X1 = CONS( _TSCP( 0 ), X1 );
X1 = CONS( _TSCP( 12306 ), X1 );
c1914 = CONS( X1, c1914 );
CONSTANTEXP( ADR( c1914 ) );
c1818 = STRINGTOSYMBOL( U_TX( ADR( t3014 ) ) );
CONSTANTEXP( ADR( c1818 ) );
c1697 = EMPTYLIST;
c1697 = CONS( _TSCP( 30738 ), c1697 );
c1697 = CONS( _TSCP( 22546 ), c1697 );
CONSTANTEXP( ADR( c1697 ) );
c1696 = EMPTYLIST;
c1696 = CONS( _TSCP( 25618 ), c1696 );
c1696 = CONS( _TSCP( 17426 ), c1696 );
CONSTANTEXP( ADR( c1696 ) );
c1695 = EMPTYLIST;
c1695 = CONS( _TSCP( 28434 ), c1695 );
c1695 = CONS( _TSCP( 20242 ), c1695 );
CONSTANTEXP( ADR( c1695 ) );
c1694 = EMPTYLIST;
c1694 = CONS( _TSCP( 25106 ), c1694 );
c1694 = CONS( _TSCP( 16914 ), c1694 );
CONSTANTEXP( ADR( c1694 ) );
c1633 = STRINGTOSYMBOL( U_TX( ADR( t3020 ) ) );
CONSTANTEXP( ADR( c1633 ) );
c1593 = EMPTYLIST;
c1593 = CONS( _TSCP( 11538 ), c1593 );
c1593 = CONS( _TSCP( 11026 ), c1593 );
c1593 = CONS( _TSCP( 11794 ), c1593 );
c1593 = CONS( _TSCP( 24082 ), c1593 );
c1593 = CONS( _TSCP( 24338 ), c1593 );
c1593 = CONS( _TSCP( 32274 ), c1593 );
c1593 = CONS( _TSCP( 16146 ), c1593 );
c1593 = CONS( _TSCP( 15890 ), c1593 );
c1593 = CONS( _TSCP( 15634 ), c1593 );
c1593 = CONS( _TSCP( 15378 ), c1593 );
c1593 = CONS( _TSCP( 14866 ), c1593 );
c1593 = CONS( _TSCP( 12050 ), c1593 );
c1593 = CONS( _TSCP( 10770 ), c1593 );
c1593 = CONS( _TSCP( 9746 ), c1593 );
c1593 = CONS( _TSCP( 9490 ), c1593 );
c1593 = CONS( _TSCP( 9234 ), c1593 );
c1593 = CONS( _TSCP( 8466 ), c1593 );
c1593 = CONS( _TSCP( 14610 ), c1593 );
c1593 = CONS( _TSCP( 14354 ), c1593 );
c1593 = CONS( _TSCP( 14098 ), c1593 );
c1593 = CONS( _TSCP( 13842 ), c1593 );
c1593 = CONS( _TSCP( 13586 ), c1593 );
c1593 = CONS( _TSCP( 13330 ), c1593 );
c1593 = CONS( _TSCP( 13074 ), c1593 );
c1593 = CONS( _TSCP( 12818 ), c1593 );
c1593 = CONS( _TSCP( 12562 ), c1593 );
c1593 = CONS( _TSCP( 12306 ), c1593 );
CONSTANTEXP( ADR( c1593 ) );
c1471 = STRINGTOSYMBOL( U_TX( ADR( t3024 ) ) );
CONSTANTEXP( ADR( c1471 ) );
c1324 = STRINGTOSYMBOL( U_TX( ADR( t3026 ) ) );
CONSTANTEXP( ADR( c1324 ) );
c1297 = STRINGTOSYMBOL( U_TX( ADR( t3028 ) ) );
CONSTANTEXP( ADR( c1297 ) );
c1293 = STRINGTOSYMBOL( U_TX( ADR( t3029 ) ) );
CONSTANTEXP( ADR( c1293 ) );
c1289 = STRINGTOSYMBOL( U_TX( ADR( t3030 ) ) );
CONSTANTEXP( ADR( c1289 ) );
c1285 = STRINGTOSYMBOL( U_TX( ADR( t3031 ) ) );
CONSTANTEXP( ADR( c1285 ) );
c1281 = STRINGTOSYMBOL( U_TX( ADR( t3032 ) ) );
CONSTANTEXP( ADR( c1281 ) );
c1277 = STRINGTOSYMBOL( U_TX( ADR( t3033 ) ) );
CONSTANTEXP( ADR( c1277 ) );
c1223 = EMPTYLIST;
c1223 = CONS( _TSCP( 15122 ), c1223 );
c1223 = CONS( _TSCP( 8722 ), c1223 );
c1223 = CONS( _TSCP( 10514 ), c1223 );
c1223 = CONS( _TSCP( 10258 ), c1223 );
CONSTANTEXP( ADR( c1223 ) );
c1135 = EMPTYLIST;
c1135 = CONS( _TSCP( 11794 ), c1135 );
c1135 = CONS( _TSCP( 8978 ), c1135 );
CONSTANTEXP( ADR( c1135 ) );
c1107 = EMPTYLIST;
c1107 = CONS( _TSCP( 24082 ), c1107 );
c1107 = CONS( _TSCP( 24338 ), c1107 );
c1107 = CONS( _TSCP( 32274 ), c1107 );
c1107 = CONS( _TSCP( 16146 ), c1107 );
c1107 = CONS( _TSCP( 15890 ), c1107 );
c1107 = CONS( _TSCP( 15634 ), c1107 );
c1107 = CONS( _TSCP( 15378 ), c1107 );
c1107 = CONS( _TSCP( 14866 ), c1107 );
c1107 = CONS( _TSCP( 12050 ), c1107 );
c1107 = CONS( _TSCP( 10770 ), c1107 );
c1107 = CONS( _TSCP( 9746 ), c1107 );
c1107 = CONS( _TSCP( 9490 ), c1107 );
c1107 = CONS( _TSCP( 9234 ), c1107 );
c1107 = CONS( _TSCP( 8466 ), c1107 );
CONSTANTEXP( ADR( c1107 ) );
c1053 = STRINGTOSYMBOL( U_TX( ADR( t3036 ) ) );
CONSTANTEXP( ADR( c1053 ) );
c1034 = STRINGTOSYMBOL( U_TX( ADR( t3038 ) ) );
CONSTANTEXP( ADR( c1034 ) );
c1027 = STRINGTOSYMBOL( U_TX( ADR( t3039 ) ) );
CONSTANTEXP( ADR( c1027 ) );
c1025 = STRINGTOSYMBOL( U_TX( ADR( t3040 ) ) );
CONSTANTEXP( ADR( c1025 ) );
c1023 = STRINGTOSYMBOL( U_TX( ADR( t3041 ) ) );
CONSTANTEXP( ADR( c1023 ) );
c1021 = STRINGTOSYMBOL( U_TX( ADR( t3042 ) ) );
CONSTANTEXP( ADR( c1021 ) );
c1019 = STRINGTOSYMBOL( U_TX( ADR( t3043 ) ) );
CONSTANTEXP( ADR( c1019 ) );
c1017 = STRINGTOSYMBOL( U_TX( ADR( t3044 ) ) );
CONSTANTEXP( ADR( c1017 ) );
c1015 = STRINGTOSYMBOL( U_TX( ADR( t3045 ) ) );
CONSTANTEXP( ADR( c1015 ) );
c1013 = STRINGTOSYMBOL( U_TX( ADR( t3046 ) ) );
CONSTANTEXP( ADR( c1013 ) );
}
DEFTSCP( scrt7_token_2dleft_2dparen_v );
DEFSTRING( t3047, "SCRT7_TOKEN-LEFT-PAREN", 22 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
DEFTSCP( scrt7_token_2dright_2dparen_v );
DEFSTRING( t3048, "SCRT7_TOKEN-RIGHT-PAREN", 23 );
DEFTSCP( scrt7_token_2dquote_v );
DEFSTRING( t3049, "SCRT7_TOKEN-QUOTE", 17 );
DEFTSCP( scrt7_token_2dquasiquote_v );
DEFSTRING( t3050, "SCRT7_TOKEN-QUASIQUOTE", 22 );
DEFTSCP( scrt7_2dsplicing_542533dd_v );
DEFSTRING( t3051, "SCRT7_TOKEN-UNQUOTE-SPLICING", 28 );
DEFTSCP( scrt7_token_2dunquote_v );
DEFSTRING( t3052, "SCRT7_TOKEN-UNQUOTE", 19 );
DEFTSCP( scrt7_token_2dperiod_v );
DEFSTRING( t3053, "SCRT7_TOKEN-PERIOD", 18 );
DEFTSCP( scrt7_token_2dvector_v );
DEFSTRING( t3054, "SCRT7_TOKEN-VECTOR", 18 );
DEFTSCP( scrt7_peek_2dchar_2dport_v );
DEFSTRING( t3055, "SCRT7_PEEK-CHAR-PORT", 20 );
DEFTSCP( scrt7_read_2dchar_2dport_v );
DEFSTRING( t3056, "SCRT7_READ-CHAR-PORT", 20 );
DEFTSCP( scrt7_next_2dchar_v );
DEFSTRING( t3057, "SCRT7_NEXT-CHAR", 15 );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP scrt7_next_2dchar( )
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3057 ) ) );
X2 = scrt7_read_2dchar_2dport_v;
X2 = UNKNOWNCALL( X2, 0 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( scrt6_eof_2dobject_3f( X1 ) ) ) goto L3060;
POPSTACKTRACE( scrt6_error( c1034, c1035, EMPTYLIST ) );
L3060:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt7_token_v );
DEFSTRING( t3062, "SCRT7_TOKEN", 11 );
EXTERNTSCPP( scrt7_comment_3f );
EXTERNTSCP( scrt7_comment_3f_v );
EXTERNTSCPP( scrt3_char_2dalphabetic_3f );
EXTERNTSCP( scrt3_char_2dalphabetic_3f_v );
EXTERNTSCPP( scrt7_identifier );
EXTERNTSCP( scrt7_identifier_v );
EXTERNTSCPP( scrt3_char_2dupcase );
EXTERNTSCP( scrt3_char_2dupcase_v );
EXTERNTSCPP( scrt7_string );
EXTERNTSCP( scrt7_string_v );
EXTERNTSCPP( scrt3_char_2dnumeric_3f );
EXTERNTSCP( scrt3_char_2dnumeric_3f_v );
EXTERNTSCPP( scrt7_number );
EXTERNTSCP( scrt7_number_v );
EXTERNTSCPP( scrt7_character );
EXTERNTSCP( scrt7_character_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP scrt7_token( )
{
TSCP X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3062 ) ) );
L3063:
X1 = scrt7_next_2dchar( );
X1 = CONS( X1, EMPTYLIST );
X2 = BOOLEAN( OR( EQ( PAIR_CAR( X1 ),
C_CHAR( 040 ) ),
AND( GTE( PAIR_CAR( X1 ),
C_CHAR( 011 ) ),
LTE( PAIR_CAR( X1 ),
C_CHAR( 015 ) ) ) ) );
if ( TRUE( X2 ) ) goto L3063;
if ( TRUE( scrt7_comment_3f( PAIR_CAR( X1 ) ) ) ) goto L3063;
if ( FALSE( scrt3_char_2dalphabetic_3f( PAIR_CAR( X1 ) ) )
) goto L3072;
X3 = scrt3_char_2dupcase( PAIR_CAR( X1 ) );
POPSTACKTRACE( scrt7_identifier( X3 ) );
L3072:
X3 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8722 ) ),
CHARACTERTAG ) ) ) goto L3075;
X4 = CONS( _TSCP( 8722 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X3, X4 ) );
L3075:
if ( NEQ( INT( X3 ), INT( _TSCP( 8722 ) ) ) ) goto L3077;
POPSTACKTRACE( scrt7_string( ) );
L3077:
X4 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 10258 ) ),
CHARACTERTAG ) ) ) goto L3080;
X5 = CONS( _TSCP( 10258 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X4, X5 ) );
L3080:
if ( EQ( INT( X4 ), INT( _TSCP( 10258 ) ) ) ) goto L3082;
X5 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 10514 ) ),
CHARACTERTAG ) ) ) goto L3085;
X6 = CONS( _TSCP( 10514 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X5, X6 ) );
L3085:
if ( EQ( INT( X5 ), INT( _TSCP( 10514 ) ) ) ) goto L3087;
X6 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 10002 ) ),
CHARACTERTAG ) ) ) goto L3090;
X7 = CONS( _TSCP( 10002 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X6, X7 ) );
L3090:
if ( EQ( INT( X6 ), INT( _TSCP( 10002 ) ) ) ) goto L3092;
X7 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X7 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 24594 ) ),
CHARACTERTAG ) ) ) goto L3095;
X8 = CONS( _TSCP( 24594 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X7, X8 ) );
L3095:
if ( EQ( INT( X7 ), INT( _TSCP( 24594 ) ) ) ) goto L3097;
X8 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X8 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 11282 ) ),
CHARACTERTAG ) ) ) goto L3100;
X9 = CONS( _TSCP( 11282 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X8, X9 ) );
L3100:
if ( NEQ( INT( X8 ), INT( _TSCP( 11282 ) ) ) ) goto L3102;
X10 = scrt7_peek_2dchar_2dport_v;
X10 = UNKNOWNCALL( X10, 0 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( PROCEDURE_CLOSURE( X10 ) );
if ( AND( EQ( TSCPIMMEDIATETAG( X9 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 16402 ) ),
CHARACTERTAG ) ) ) goto L3105;
X10 = CONS( _TSCP( 16402 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X9, X10 ) );
L3105:
if ( NEQ( INT( X9 ), INT( _TSCP( 16402 ) ) ) ) goto L3107;
scrt7_next_2dchar( );
POPSTACKTRACE( scrt7_2dsplicing_542533dd_v );
L3107:
POPSTACKTRACE( scrt7_token_2dunquote_v );
L3102:
X9 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X9 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 11794 ) ),
CHARACTERTAG ) ) ) goto L3111;
X10 = CONS( _TSCP( 11794 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X9, X10 ) );
L3111:
if ( NEQ( INT( X9 ), INT( _TSCP( 11794 ) ) ) ) goto L3113;
X11 = scrt7_peek_2dchar_2dport_v;
X11 = UNKNOWNCALL( X11, 0 );
X10 = VIA( PROCEDURE_CODE( X11 ) )( PROCEDURE_CLOSURE( X11 ) );
if ( FALSE( scrt3_char_2dnumeric_3f( X10 ) ) ) goto L3115;
POPSTACKTRACE( scrt7_number( PAIR_CAR( X1 ),
_TSCP( 40 ), _TSCP( 4 ) ) );
L3115:
X11 = scrt7_peek_2dchar_2dport_v;
X11 = UNKNOWNCALL( X11, 0 );
X10 = VIA( PROCEDURE_CODE( X11 ) )( PROCEDURE_CLOSURE( X11 ) );
if ( OR( EQ( X10, C_CHAR( 040 ) ),
AND( GTE( X10, C_CHAR( 011 ) ),
LTE( X10, C_CHAR( 015 ) ) ) ) ) goto L3117;
POPSTACKTRACE( scrt7_identifier( PAIR_CAR( X1 ) ) );
L3117:
POPSTACKTRACE( scrt7_token_2dperiod_v );
L3113:
X10 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X10 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8978 ) ),
CHARACTERTAG ) ) ) goto L3120;
X11 = CONS( _TSCP( 8978 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X10, X11 ) );
L3120:
if ( NEQ( INT( X10 ), INT( _TSCP( 8978 ) ) ) ) goto L3122;
X12 = scrt7_next_2dchar( );
X11 = scrt3_char_2dupcase( X12 );
SETGEN( PAIR_CAR( X1 ), X11 );
X11 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X11 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 10258 ) ),
CHARACTERTAG ) ) ) goto L3126;
X12 = CONS( _TSCP( 10258 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X11, X12 ) );
L3126:
if ( EQ( INT( X11 ), INT( _TSCP( 10258 ) ) ) ) goto L3128;
X12 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X12 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 23570 ) ),
CHARACTERTAG ) ) ) goto L3131;
X13 = CONS( _TSCP( 23570 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X12, X13 ) );
L3131:
if ( NEQ( INT( X12 ), INT( _TSCP( 23570 ) ) ) ) goto L3133;
POPSTACKTRACE( scrt7_character( ) );
L3133:
X13 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X13 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 21522 ) ),
CHARACTERTAG ) ) ) goto L3136;
X14 = CONS( _TSCP( 21522 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X13, X14 ) );
L3136:
if ( EQ( INT( X13 ), INT( _TSCP( 21522 ) ) ) ) goto L3138;
X14 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X14 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 17938 ) ),
CHARACTERTAG ) ) ) goto L3141;
X15 = CONS( _TSCP( 17938 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X14, X15 ) );
L3141:
if ( EQ( INT( X14 ), INT( _TSCP( 17938 ) ) ) ) goto L3143;
X15 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X15 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 16914 ) ),
CHARACTERTAG ) ) ) goto L3146;
X16 = CONS( _TSCP( 16914 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X15, X16 ) );
L3146:
if ( NEQ( INT( X15 ), INT( _TSCP( 16914 ) ) ) ) goto L3148;
X16 = scrt7_next_2dchar( );
POPSTACKTRACE( scrt7_number( X16, _TSCP( 8 ), _TSCP( 4 ) ) );
L3148:
X16 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X16 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 20242 ) ),
CHARACTERTAG ) ) ) goto L3151;
X17 = CONS( _TSCP( 20242 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X16, X17 ) );
L3151:
if ( NEQ( INT( X16 ), INT( _TSCP( 20242 ) ) ) ) goto L3153;
X17 = scrt7_next_2dchar( );
POPSTACKTRACE( scrt7_number( X17, _TSCP( 32 ), _TSCP( 4 ) ) );
L3153:
X17 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X17 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 17426 ) ),
CHARACTERTAG ) ) ) goto L3156;
X18 = CONS( _TSCP( 17426 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X17, X18 ) );
L3156:
if ( NEQ( INT( X17 ), INT( _TSCP( 17426 ) ) ) ) goto L3158;
X18 = scrt7_next_2dchar( );
POPSTACKTRACE( scrt7_number( X18, _TSCP( 40 ), _TSCP( 4 ) ) );
L3158:
X18 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X18 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 22546 ) ),
CHARACTERTAG ) ) ) goto L3161;
X19 = CONS( _TSCP( 22546 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X18, X19 ) );
L3161:
if ( NEQ( INT( X18 ), INT( _TSCP( 22546 ) ) ) ) goto L3163;
X19 = scrt7_next_2dchar( );
POPSTACKTRACE( scrt7_number( X19, _TSCP( 64 ), _TSCP( 4 ) ) );
L3163:
POPSTACKTRACE( scrt6_error( c1034,
c1192,
CONS( PAIR_CAR( X1 ),
EMPTYLIST ) ) );
L3143:
POPSTACKTRACE( FALSEVALUE );
L3138:
POPSTACKTRACE( TRUEVALUE );
L3128:
POPSTACKTRACE( scrt7_token_2dvector_v );
L3122:
if ( FALSE( scrt1_memq( PAIR_CAR( X1 ), c1107 ) ) ) goto L3165;
POPSTACKTRACE( scrt7_identifier( PAIR_CAR( X1 ) ) );
L3165:
X11 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X11 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 23570 ) ),
CHARACTERTAG ) ) ) goto L3168;
X12 = CONS( _TSCP( 23570 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X11, X12 ) );
L3168:
if ( NEQ( INT( X11 ), INT( _TSCP( 23570 ) ) ) ) goto L3170;
X12 = scrt7_next_2dchar( );
POPSTACKTRACE( scrt7_identifier( X12 ) );
L3170:
X12 = BOOLEAN( EQ( UNSIGNED( PAIR_CAR( X1 ) ),
UNSIGNED( _TSCP( 11026 ) ) ) );
if ( TRUE( X12 ) ) goto L3176;
if ( EQ( UNSIGNED( PAIR_CAR( X1 ) ),
UNSIGNED( _TSCP( 11538 ) ) ) ) goto L3176;
POPSTACKTRACE( scrt7_number( PAIR_CAR( X1 ),
_TSCP( 0 ), _TSCP( 0 ) ) );
L3097:
POPSTACKTRACE( scrt7_token_2dquasiquote_v );
L3092:
POPSTACKTRACE( scrt7_token_2dquote_v );
L3087:
POPSTACKTRACE( scrt7_token_2dright_2dparen_v );
L3082:
POPSTACKTRACE( scrt7_token_2dleft_2dparen_v );
L3176:
X3 = scrt7_peek_2dchar_2dport_v;
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
X3 = scrt3_char_2dnumeric_3f( X2 );
if ( TRUE( X3 ) ) goto L3184;
if ( TRUE( scrt1_memq( X2, c1135 ) ) ) goto L3184;
POPSTACKTRACE( scrt7_identifier( PAIR_CAR( X1 ) ) );
L3184:
POPSTACKTRACE( scrt7_number( PAIR_CAR( X1 ),
_TSCP( 0 ), _TSCP( 0 ) ) );
}
DEFTSCP( scrt7_delimiter_3f_v );
DEFSTRING( t3187, "SCRT7_DELIMITER?", 16 );
TSCP scrt7_delimiter_3f( c1212 )
TSCP c1212;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3187 ) ) );
X1 = scrt6_eof_2dobject_3f( c1212 );
if ( TRUE( X1 ) ) goto L3190;
if ( OR( EQ( c1212, C_CHAR( 040 ) ),
AND( GTE( c1212, C_CHAR( 011 ) ),
LTE( c1212, C_CHAR( 015 ) ) ) ) ) goto L3192;
POPSTACKTRACE( scrt1_memq( c1212, c1223 ) );
L3192:
POPSTACKTRACE( TRUEVALUE );
L3190:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt7_comment_3f_v );
DEFSTRING( t3194, "SCRT7_COMMENT?", 14 );
TSCP scrt7_comment_3f( c1225 )
TSCP c1225;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3194 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( c1225 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 15122 ) ),
CHARACTERTAG ) ) ) goto L3197;
X1 = CONS( _TSCP( 15122 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( c1225, X1 ) );
L3197:
if ( NEQ( INT( c1225 ), INT( _TSCP( 15122 ) ) ) ) goto L3199;
L3201:
X1 = scrt7_next_2dchar( );
if ( AND( EQ( TSCPIMMEDIATETAG( X1 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 2578 ) ),
CHARACTERTAG ) ) ) goto L3204;
X2 = CONS( _TSCP( 2578 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X1, X2 ) );
L3204:
if ( NEQ( INT( X1 ), INT( _TSCP( 2578 ) ) ) ) goto L3201;
POPSTACKTRACE( TRUEVALUE );
L3199:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt7_string_v );
DEFSTRING( t3208, "SCRT7_STRING", 12 );
EXTERNTSCPP( scrt3_list_2d_3estring );
EXTERNTSCP( scrt3_list_2d_3estring_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
TSCP scrt7_string( )
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3208 ) ) );
X1 = EMPTYLIST;
X2 = scrt7_next_2dchar( );
L3211:
X2 = CONS( X2, EMPTYLIST );
X3 = PAIR_CAR( X2 );
if ( AND( EQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8722 ) ),
CHARACTERTAG ) ) ) goto L3213;
X4 = CONS( _TSCP( 8722 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X3, X4 ) );
L3213:
if ( NEQ( INT( X3 ), INT( _TSCP( 8722 ) ) ) ) goto L3215;
X4 = scrt1_reverse( X1 );
POPSTACKTRACE( scrt3_list_2d_3estring( X4 ) );
L3215:
X4 = PAIR_CAR( X2 );
if ( AND( EQ( TSCPIMMEDIATETAG( _TSCP( 23570 ) ),
CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ) )
) goto L3219;
X5 = CONS( X4, EMPTYLIST );
scrt6_error( c1053,
c1054, CONS( _TSCP( 23570 ), X5 ) );
L3219:
if ( NEQ( INT( _TSCP( 23570 ) ), INT( X4 ) ) ) goto L3221;
X5 = scrt7_next_2dchar( );
SETGEN( PAIR_CAR( X2 ), X5 );
L3221:
X4 = sc_cons( PAIR_CAR( X2 ), X1 );
X2 = scrt7_next_2dchar( );
X1 = X4;
goto L3211;
}
DEFTSCP( scrt7_character_v );
DEFSTRING( t3223, "SCRT7_CHARACTER", 15 );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
TSCP scrt7_character( )
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3223 ) ) );
X1 = scrt7_next_2dchar( );
if ( FALSE( scrt3_char_2dalphabetic_3f( X1 ) ) ) goto L3226;
X3 = scrt7_peek_2dchar_2dport_v;
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
if ( TRUE( scrt7_delimiter_3f( X2 ) ) ) goto L3228;
X3 = scrt3_char_2dupcase( X1 );
X2 = scrt7_identifier( X3 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1277 ) ) ) goto L3231;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 36 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L3238;
if ( BITAND( BITOR( INT( _TSCP( 36 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3239;
X4 = BOOLEAN( LT( INT( _TSCP( 36 ) ),
INT( _TSCP( 0 ) ) ) );
goto L3240;
L3239:
X4 = scrt2__3c_2dtwo( _TSCP( 36 ), _TSCP( 0 ) );
L3240:
if ( TRUE( X4 ) ) goto L3238;
if ( BITAND( BITOR( INT( _TSCP( 36 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3247;
if ( GT( INT( _TSCP( 36 ) ), INT( _TSCP( 1020 ) ) ) ) goto L3238;
goto L3254;
L3247:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 36 ), _TSCP( 1020 ) ) )
) goto L3254;
L3238:
scrt6_error( c1324,
c1325, CONS( _TSCP( 36 ), EMPTYLIST ) );
L3254:
POPSTACKTRACE( FIX_CHAR( _TSCP( 36 ) ) );
L3231:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1281 ) ) ) goto L3255;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 40 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L3262;
if ( BITAND( BITOR( INT( _TSCP( 40 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3263;
X4 = BOOLEAN( LT( INT( _TSCP( 40 ) ),
INT( _TSCP( 0 ) ) ) );
goto L3264;
L3263:
X4 = scrt2__3c_2dtwo( _TSCP( 40 ), _TSCP( 0 ) );
L3264:
if ( TRUE( X4 ) ) goto L3262;
if ( BITAND( BITOR( INT( _TSCP( 40 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3271;
if ( GT( INT( _TSCP( 40 ) ), INT( _TSCP( 1020 ) ) ) ) goto L3262;
goto L3278;
L3271:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 40 ), _TSCP( 1020 ) ) )
) goto L3278;
L3262:
scrt6_error( c1324,
c1325, CONS( _TSCP( 40 ), EMPTYLIST ) );
L3278:
POPSTACKTRACE( FIX_CHAR( _TSCP( 40 ) ) );
L3255:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1285 ) ) ) goto L3279;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 40 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L3286;
if ( BITAND( BITOR( INT( _TSCP( 40 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3287;
X4 = BOOLEAN( LT( INT( _TSCP( 40 ) ),
INT( _TSCP( 0 ) ) ) );
goto L3288;
L3287:
X4 = scrt2__3c_2dtwo( _TSCP( 40 ), _TSCP( 0 ) );
L3288:
if ( TRUE( X4 ) ) goto L3286;
if ( BITAND( BITOR( INT( _TSCP( 40 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3295;
if ( GT( INT( _TSCP( 40 ) ), INT( _TSCP( 1020 ) ) ) ) goto L3286;
goto L3302;
L3295:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 40 ), _TSCP( 1020 ) ) )
) goto L3302;
L3286:
scrt6_error( c1324,
c1325, CONS( _TSCP( 40 ), EMPTYLIST ) );
L3302:
POPSTACKTRACE( FIX_CHAR( _TSCP( 40 ) ) );
L3279:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1289 ) ) ) goto L3303;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 48 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L3310;
if ( BITAND( BITOR( INT( _TSCP( 48 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3311;
X4 = BOOLEAN( LT( INT( _TSCP( 48 ) ),
INT( _TSCP( 0 ) ) ) );
goto L3312;
L3311:
X4 = scrt2__3c_2dtwo( _TSCP( 48 ), _TSCP( 0 ) );
L3312:
if ( TRUE( X4 ) ) goto L3310;
if ( BITAND( BITOR( INT( _TSCP( 48 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3319;
if ( GT( INT( _TSCP( 48 ) ), INT( _TSCP( 1020 ) ) ) ) goto L3310;
goto L3326;
L3319:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 48 ), _TSCP( 1020 ) ) )
) goto L3326;
L3310:
scrt6_error( c1324,
c1325, CONS( _TSCP( 48 ), EMPTYLIST ) );
L3326:
POPSTACKTRACE( FIX_CHAR( _TSCP( 48 ) ) );
L3303:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1293 ) ) ) goto L3327;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 52 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L3334;
if ( BITAND( BITOR( INT( _TSCP( 52 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3335;
X4 = BOOLEAN( LT( INT( _TSCP( 52 ) ),
INT( _TSCP( 0 ) ) ) );
goto L3336;
L3335:
X4 = scrt2__3c_2dtwo( _TSCP( 52 ), _TSCP( 0 ) );
L3336:
if ( TRUE( X4 ) ) goto L3334;
if ( BITAND( BITOR( INT( _TSCP( 52 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3343;
if ( GT( INT( _TSCP( 52 ) ), INT( _TSCP( 1020 ) ) ) ) goto L3334;
goto L3350;
L3343:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 52 ), _TSCP( 1020 ) ) )
) goto L3350;
L3334:
scrt6_error( c1324,
c1325, CONS( _TSCP( 52 ), EMPTYLIST ) );
L3350:
POPSTACKTRACE( FIX_CHAR( _TSCP( 52 ) ) );
L3327:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1297 ) ) ) goto L3351;
X3 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 128 ) ), FIXNUMTAG ) );
if ( TRUE( X3 ) ) goto L3358;
if ( BITAND( BITOR( INT( _TSCP( 128 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3359;
X4 = BOOLEAN( LT( INT( _TSCP( 128 ) ),
INT( _TSCP( 0 ) ) ) );
goto L3360;
L3359:
X4 = scrt2__3c_2dtwo( _TSCP( 128 ), _TSCP( 0 ) );
L3360:
if ( TRUE( X4 ) ) goto L3358;
if ( BITAND( BITOR( INT( _TSCP( 128 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3367;
if ( GT( INT( _TSCP( 128 ) ),
INT( _TSCP( 1020 ) ) ) ) goto L3358;
goto L3374;
L3367:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 128 ), _TSCP( 1020 ) ) )
) goto L3374;
L3358:
scrt6_error( c1324,
c1325, CONS( _TSCP( 128 ), EMPTYLIST ) );
L3374:
POPSTACKTRACE( FIX_CHAR( _TSCP( 128 ) ) );
L3351:
POPSTACKTRACE( scrt6_error( c1034,
c1298,
CONS( X2, EMPTYLIST ) ) );
L3228:
POPSTACKTRACE( X1 );
L3226:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt7_idtable_v );
DEFSTRING( t3375, "SCRT7_IDTABLE", 13 );
EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
DEFTSCP( scrt7_identifier_v );
DEFSTRING( t3473, "SCRT7_IDENTIFIER", 16 );
EXTERNTSCPP( sc_string_2d_3esymbol );
EXTERNTSCP( sc_string_2d_3esymbol_v );
TSCP scrt7_identifier( f1609 )
TSCP f1609;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3473 ) ) );
X2 = sc_cons( f1609, EMPTYLIST );
X1 = X2;
L3477:
X3 = scrt7_peek_2dchar_2dport_v;
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
if ( NEQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ) ) goto L3479;
X4 = C_FIXED( CHAR_C( X2 ) );
X5 = scrt7_idtable_v;
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), VECTORTAG ) ) ) goto L3482;
scrt6_error( c1633, c1472, CONS( X5, EMPTYLIST ) );
L3482:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3484;
scrt6_error( c1633, c1475, CONS( X4, EMPTYLIST ) );
L3484:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X5 ) ) ) ) goto L3486;
scrt6_error( c1633, c1479, CONS( X4, EMPTYLIST ) );
L3486:
X3 = VECTOR_ELEMENT( X5, X4 );
goto L3480;
L3479:
X3 = FALSEVALUE;
L3480:
if ( NEQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ) ) goto L3489;
X4 = scrt7_read_2dchar_2dport_v;
X4 = UNKNOWNCALL( X4, 0 );
VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
X1 = sc_cons( X3, X1 );
goto L3477;
L3489:
if ( FALSE( X3 ) ) goto L3492;
X4 = scrt7_read_2dchar_2dport_v;
X4 = UNKNOWNCALL( X4, 0 );
VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
X4 = scrt7_next_2dchar( );
X1 = sc_cons( X4, X1 );
goto L3477;
L3492:
X5 = scrt1_reverse( X1 );
X4 = scrt3_list_2d_3estring( X5 );
POPSTACKTRACE( sc_string_2d_3esymbol( X4 ) );
}
DEFTSCP( scrt7_number_v );
DEFSTRING( t3495, "SCRT7_NUMBER", 12 );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNTSCPP( scrt1_memv );
EXTERNTSCP( scrt1_memv_v );
EXTERNTSCPP( scrt7_accv );
EXTERNTSCP( scrt7_accv_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCP( sc_emptystring );
EXTERNINTP( sscanf );
EXTERNTSCPP( scrt4_c_2ddouble_2dref );
EXTERNTSCP( scrt4_c_2ddouble_2dref_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
TSCP scrt7_number( f1647, b1648, s1649 )
TSCP f1647, b1648, s1649;
{
TSCP X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3495 ) ) );
f1647 = CONS( f1647, EMPTYLIST );
b1648 = CONS( b1648, EMPTYLIST );
s1649 = CONS( s1649, EMPTYLIST );
X2 = PAIR_CAR( s1649 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3499;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3503;
goto L3517;
L3499:
if ( FALSE( scrt2_zero_3f( X2 ) ) ) goto L3517;
L3503:
X3 = PAIR_CAR( f1647 );
if ( AND( EQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 11026 ) ),
CHARACTERTAG ) ) ) goto L3508;
X4 = CONS( _TSCP( 11026 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X3, X4 ) );
L3508:
if ( NEQ( INT( X3 ), INT( _TSCP( 11026 ) ) ) ) goto L3510;
X4 = _TSCP( 4 );
SETGEN( PAIR_CAR( s1649 ), X4 );
X4 = scrt7_next_2dchar( );
SETGEN( PAIR_CAR( f1647 ), X4 );
goto L3517;
L3510:
X4 = PAIR_CAR( f1647 );
if ( AND( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 11538 ) ),
CHARACTERTAG ) ) ) goto L3514;
X5 = CONS( _TSCP( 11538 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X4, X5 ) );
L3514:
if ( NEQ( INT( X4 ), INT( _TSCP( 11538 ) ) ) ) goto L3516;
X5 = _TSCP( -4 );
SETGEN( PAIR_CAR( s1649 ), X5 );
X5 = scrt7_next_2dchar( );
SETGEN( PAIR_CAR( f1647 ), X5 );
goto L3517;
L3516:
X5 = _TSCP( 4 );
SETGEN( PAIR_CAR( s1649 ), X5 );
L3517:
X2 = PAIR_CAR( b1648 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3521;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3525;
goto L3533;
L3521:
if ( FALSE( scrt2_zero_3f( X2 ) ) ) goto L3533;
L3525:
X3 = PAIR_CAR( f1647 );
if ( AND( EQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8978 ) ),
CHARACTERTAG ) ) ) goto L3530;
X4 = CONS( _TSCP( 8978 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X3, X4 ) );
L3530:
if ( NEQ( INT( X3 ), INT( _TSCP( 8978 ) ) ) ) goto L3532;
X4 = scrt7_next_2dchar( );
if ( FALSE( scrt1_memv( X4, c1694 ) ) ) goto L3536;
X5 = _TSCP( 8 );
SETGEN( PAIR_CAR( b1648 ), X5 );
goto L3543;
L3536:
if ( FALSE( scrt1_memv( X4, c1695 ) ) ) goto L3538;
X5 = _TSCP( 32 );
SETGEN( PAIR_CAR( b1648 ), X5 );
goto L3543;
L3538:
if ( FALSE( scrt1_memv( X4, c1696 ) ) ) goto L3540;
X5 = _TSCP( 40 );
SETGEN( PAIR_CAR( b1648 ), X5 );
goto L3543;
L3540:
if ( FALSE( scrt1_memv( X4, c1697 ) ) ) goto L3542;
X5 = _TSCP( 64 );
SETGEN( PAIR_CAR( b1648 ), X5 );
goto L3543;
L3542:
scrt6_error( c1034, c1698, CONS( X4, EMPTYLIST ) );
L3543:
X4 = scrt7_next_2dchar( );
SETGEN( PAIR_CAR( f1647 ), X4 );
goto L3533;
L3532:
X4 = _TSCP( 40 );
SETGEN( PAIR_CAR( b1648 ), X4 );
L3533:
X3 = sc_cons( PAIR_CAR( f1647 ), EMPTYLIST );
X2 = X3;
X4 = scrt7_peek_2dchar_2dport_v;
X4 = UNKNOWNCALL( X4, 0 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( PROCEDURE_CLOSURE( X4 ) );
X5 = PAIR_CAR( f1647 );
if ( NEQ( UNSIGNED( X5 ),
UNSIGNED( _TSCP( 12306 ) ) ) ) goto L3547;
X4 = _TSCP( 0 );
goto L3550;
L3547:
if ( NEQ( UNSIGNED( X5 ),
UNSIGNED( _TSCP( 12562 ) ) ) ) goto L3549;
X4 = _TSCP( 4 );
goto L3550;
L3549:
X4 = _TSCP( -4 );
L3550:
X5 = scrt7_accv( c1852,
PAIR_CAR( b1648 ),
PAIR_CAR( f1647 ) );
X6 = C_FIXED( CHAR_C( PAIR_CAR( f1647 ) ) );
X7 = sc_make_2dstring( _TSCP( 32 ), EMPTYLIST );
X8 = sc_make_2dstring( _TSCP( 16 ), EMPTYLIST );
X9 = _TSCP( 0 );
X10 = BOOLEAN( EQ( UNSIGNED( PAIR_CAR( f1647 ) ),
UNSIGNED( _TSCP( 11794 ) ) ) );
L3551:
X9 = CONS( X9, EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
if ( FALSE( scrt7_delimiter_3f( X3 ) ) ) goto L3552;
X12 = scrt1_reverse( PAIR_CAR( X2 ) );
X11 = scrt3_list_2d_3estring( X12 );
SETGEN( PAIR_CAR( X2 ), X11 );
X12 = CONS( c1790, EMPTYLIST );
X12 = CONS( PAIR_CAR( X2 ), X12 );
if ( NEQ( UNSIGNED( PAIR_CAR( s1649 ) ),
UNSIGNED( _TSCP( -4 ) ) ) ) goto L3555;
X13 = c1789;
goto L3556;
L3555:
X13 = sc_emptystring;
L3556:
X11 = scrt3_string_2dappend( CONS( X13, X12 ) );
SETGEN( PAIR_CAR( X9 ), X11 );
if ( FALSE( X10 ) ) goto L3557;
if ( EQ( UNSIGNED( PAIR_CAR( b1648 ) ),
UNSIGNED( _TSCP( 40 ) ) ) ) goto L3560;
scrt6_error( c1034,
c1836,
CONS( PAIR_CAR( X2 ), EMPTYLIST ) );
L3560:
X11 = INT_TSCP( sscanf( TSCP_POINTER( PAIR_CAR( X9 ) ),
TSCP_POINTER( c1840 ),
TSCP_POINTER( X7 ),
TSCP_POINTER( X8 ) ) );
if ( NEQ( UNSIGNED( _TSCP( 8 ) ), UNSIGNED( X11 ) ) ) goto L3562;
POPSTACKTRACE( scrt4_c_2ddouble_2dref( X7, _TSCP( 0 ) ) );
L3562:
POPSTACKTRACE( scrt6_error( c1034,
c1841,
CONS( PAIR_CAR( X2 ),
EMPTYLIST ) ) );
L3557:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L3564;
POPSTACKTRACE( scrt6_error( c1034,
c1831,
CONS( PAIR_CAR( X2 ),
EMPTYLIST ) ) );
L3564:
X11 = PAIR_CAR( s1649 );
if ( BITAND( BITOR( INT( X11 ), INT( X5 ) ),
3 ) ) goto L3567;
X1 = _TSCP( ITIMES( FIXED_C( X11 ), INT( X5 ) ) );
goto L3568;
L3567:
X1 = scrt2__2a_2dtwo( X11, X5 );
L3568:
if ( BITAND( BITOR( INT( X1 ), INT( c1805 ) ),
3 ) ) goto L3571;
if ( GTE( INT( X1 ), INT( c1805 ) ) ) goto L3575;
POPSTACKTRACE( X1 );
L3571:
if ( FALSE( scrt2__3c_2dtwo( X1, c1805 ) ) ) goto L3575;
POPSTACKTRACE( X1 );
L3552:
scrt7_next_2dchar( );
X11 = sc_cons( X3, PAIR_CAR( X2 ) );
X13 = scrt7_peek_2dchar_2dport_v;
X13 = UNKNOWNCALL( X13, 0 );
X12 = VIA( PROCEDURE_CODE( X13 ) )( PROCEDURE_CLOSURE( X13 ) );
if ( NEQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 12306 ) ) ) ) goto L3579;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L3581;
X13 = _TSCP( ITIMES( FIXED_C( X4 ),
INT( _TSCP( 8 ) ) ) );
goto L3584;
L3581:
X13 = scrt2__2a_2dtwo( X4, _TSCP( 8 ) );
goto L3584;
L3579:
if ( NEQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 12562 ) ) ) ) goto L3583;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L3585;
X14 = _TSCP( ITIMES( FIXED_C( X4 ),
INT( _TSCP( 8 ) ) ) );
goto L3586;
L3585:
X14 = scrt2__2a_2dtwo( X4, _TSCP( 8 ) );
L3586:
if ( BITAND( BITOR( INT( X14 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3588;
X13 = _TSCP( IPLUS( INT( X14 ), INT( _TSCP( 4 ) ) ) );
goto L3584;
L3588:
X13 = scrt2__2b_2dtwo( X14, _TSCP( 4 ) );
goto L3584;
L3583:
X13 = _TSCP( -4 );
L3584:
X14 = scrt7_accv( X5, PAIR_CAR( b1648 ), X3 );
X16 = C_FIXED( CHAR_C( X3 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X16 ) ),
3 ) ) goto L3591;
if ( LTE( INT( X6 ), INT( X16 ) ) ) goto L3593;
X15 = X6;
goto L3592;
L3593:
X15 = X16;
goto L3592;
L3591:
X15 = scrt2_max_2dtwo( X6, X16 );
L3592:
if ( TRUE( X10 ) ) goto L3606;
if ( NEQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 11794 ) ) ) ) goto L3597;
X10 = TRUEVALUE;
goto L3606;
L3597:
X17 = PAIR_CAR( b1648 );
if ( BITAND( BITOR( INT( X17 ),
INT( _TSCP( 64 ) ) ),
3 ) ) goto L3600;
X16 = BOOLEAN( NEQ( UNSIGNED( X17 ),
UNSIGNED( _TSCP( 64 ) ) ) );
goto L3603;
L3600:
if ( FALSE( scrt2__3d_2dtwo( X17, _TSCP( 64 ) ) ) ) goto L3602;
X16 = FALSEVALUE;
goto L3603;
L3602:
X16 = TRUEVALUE;
L3603:
if ( FALSE( X16 ) ) goto L3605;
if ( NEQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 25874 ) ) ) ) goto L3607;
X10 = TRUEVALUE;
goto L3606;
L3607:
X10 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 17682 ) ) ) );
goto L3606;
L3605:
X10 = X16;
L3606:
X9 = PAIR_CAR( X9 );
X6 = X15;
X5 = X14;
X4 = X13;
X3 = X12;
X2 = X11;
goto L3551;
L3575:
if ( BITAND( BITOR( INT( X1 ), INT( c1813 ) ),
3 ) ) goto L3610;
if ( LTE( INT( X1 ), INT( c1813 ) ) ) goto L3614;
POPSTACKTRACE( X1 );
L3610:
if ( FALSE( scrt2__3e_2dtwo( X1, c1813 ) ) ) goto L3614;
POPSTACKTRACE( X1 );
L3614:
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), FLOATTAG ) ) ) goto L3618;
scrt6_error( c1818, c1819, CONS( X1, EMPTYLIST ) );
L3618:
X2 = BOOLEAN( LT( FLOAT_VALUE( X1 ), -536870912.1 ) );
if ( TRUE( X2 ) ) goto L3624;
if ( LTE( FLOAT_VALUE( X1 ), 536870911.1 ) ) goto L3627;
L3624:
scrt6_error( c1818, c1824, CONS( X1, EMPTYLIST ) );
L3627:
POPSTACKTRACE( FLT_FIX( X1 ) );
}
DEFTSCP( scrt7_accv_v );
DEFSTRING( t3628, "SCRT7_ACCV", 10 );
EXTERNTSCPP( scrt1_assq );
EXTERNTSCP( scrt1_assq_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
TSCP scrt7_accv( v1860, b1861, c1862 )
TSCP v1860, b1861, c1862;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3628 ) ) );
X1 = scrt1_assq( c1862, c1914 );
if ( EQ( UNSIGNED( v1860 ),
UNSIGNED( _TSCP( -4 ) ) ) ) goto L3631;
if ( FALSE( X1 ) ) goto L3633;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3636;
scrt1__24__cdr_2derror( X1 );
L3636:
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3639;
scrt1__24__car_2derror( X3 );
L3639:
X2 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( b1861 ) ),
3 ) ) goto L3643;
if ( LT( INT( X2 ), INT( b1861 ) ) ) goto L3647;
POPSTACKTRACE( _TSCP( -4 ) );
L3643:
if ( FALSE( scrt2__3e_3d_2dtwo( X2, b1861 ) ) ) goto L3647;
POPSTACKTRACE( _TSCP( -4 ) );
L3633:
POPSTACKTRACE( _TSCP( -4 ) );
L3631:
POPSTACKTRACE( _TSCP( -4 ) );
L3647:
if ( BITAND( BITOR( INT( b1861 ), INT( v1860 ) ),
3 ) ) goto L3650;
X2 = _TSCP( ITIMES( FIXED_C( b1861 ), INT( v1860 ) ) );
goto L3651;
L3650:
X2 = scrt2__2a_2dtwo( b1861, v1860 );
L3651:
X4 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3654;
scrt1__24__car_2derror( X4 );
L3654:
X3 = PAIR_CAR( X4 );
if ( BITAND( BITOR( INT( X2 ), INT( X3 ) ),
3 ) ) goto L3657;
POPSTACKTRACE( _TSCP( IPLUS( INT( X2 ), INT( X3 ) ) ) );
L3657:
POPSTACKTRACE( scrt2__2b_2dtwo( X2, X3 ) );
}
DEFTSCP( scrt7_read_2ddatum_v );
DEFSTRING( t3659, "SCRT7_READ-DATUM", 16 );
EXTERNTSCPP( scrt7_datum );
EXTERNTSCP( scrt7_datum_v );
TSCP scrt7_read_2ddatum( p1917 )
TSCP p1917;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3659 ) ) );
X1 = scrt7_read_2dchar_2dport_v;
X2 = scrt7_peek_2dchar_2dport_v;
X3 = p1917;
X3 = UNKNOWNCALL( X3, 1 );
scrt7_peek_2dchar_2dport_v = VIA( PROCEDURE_CODE( X3 ) )( c1921,
PROCEDURE_CLOSURE( X3 ) );
X3 = p1917;
X3 = UNKNOWNCALL( X3, 1 );
scrt7_read_2dchar_2dport_v = VIA( PROCEDURE_CODE( X3 ) )( c1922,
PROCEDURE_CLOSURE( X3 ) );
X5 = scrt7_peek_2dchar_2dport_v;
X5 = UNKNOWNCALL( X5, 0 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
L3663:
if ( FALSE( scrt6_eof_2dobject_3f( X4 ) ) ) goto L3664;
X5 = scrt7_read_2dchar_2dport_v;
X5 = UNKNOWNCALL( X5, 0 );
X3 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
goto L3673;
L3664:
if ( NOT( OR( EQ( X4, C_CHAR( 040 ) ),
AND( GTE( X4, C_CHAR( 011 ) ),
LTE( X4, C_CHAR( 015 ) ) ) ) ) ) goto L3666;
X5 = scrt7_read_2dchar_2dport_v;
X5 = UNKNOWNCALL( X5, 0 );
VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
X5 = scrt7_peek_2dchar_2dport_v;
X5 = UNKNOWNCALL( X5, 0 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
goto L3663;
L3666:
if ( AND( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 15122 ) ),
CHARACTERTAG ) ) ) goto L3670;
X5 = CONS( _TSCP( 15122 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X4, X5 ) );
L3670:
if ( NEQ( INT( X4 ), INT( _TSCP( 15122 ) ) ) ) goto L3672;
L3674:
X5 = scrt7_next_2dchar( );
if ( AND( EQ( TSCPIMMEDIATETAG( X5 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 2578 ) ),
CHARACTERTAG ) ) ) goto L3678;
X6 = CONS( _TSCP( 2578 ), EMPTYLIST );
scrt6_error( c1053, c1054, CONS( X5, X6 ) );
L3678:
if ( NEQ( INT( X5 ), INT( _TSCP( 2578 ) ) ) ) goto L3674;
X5 = scrt7_peek_2dchar_2dport_v;
X5 = UNKNOWNCALL( X5, 0 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PROCEDURE_CLOSURE( X5 ) );
goto L3663;
L3672:
X5 = scrt7_token( );
X3 = scrt7_datum( X5 );
L3673:
scrt7_peek_2dchar_2dport_v = X2;
scrt7_read_2dchar_2dport_v = X1;
POPSTACKTRACE( X3 );
}
DEFTSCP( scrt7_datum_v );
DEFSTRING( t3683, "SCRT7_DATUM", 11 );
EXTERNTSCPP( scrt7_datum_2dlist );
EXTERNTSCP( scrt7_datum_2dlist_v );
EXTERNTSCPP( scrt4_list_2d_3evector );
EXTERNTSCP( scrt4_list_2d_3evector_v );
EXTERNTSCPP( scrt7_datum_2dvector );
EXTERNTSCP( scrt7_datum_2dvector_v );
TSCP scrt7_datum( c1950 )
TSCP c1950;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3683 ) ) );
if ( NEQ( UNSIGNED( c1950 ),
UNSIGNED( scrt7_token_2dleft_2dparen_v ) )
) goto L3685;
X1 = scrt7_token( );
POPSTACKTRACE( scrt7_datum_2dlist( X1 ) );
L3685:
if ( NEQ( UNSIGNED( c1950 ),
UNSIGNED( scrt7_token_2dvector_v ) ) ) goto L3687;
X2 = scrt7_token( );
X1 = scrt7_datum_2dvector( X2 );
POPSTACKTRACE( scrt4_list_2d_3evector( X1 ) );
L3687:
if ( NEQ( UNSIGNED( c1950 ),
UNSIGNED( scrt7_token_2dquote_v ) ) ) goto L3689;
X4 = scrt7_token( );
X3 = scrt7_datum( X4 );
X2 = sc_cons( X3, EMPTYLIST );
X1 = sc_cons( c1017, X2 );
POPSTACKTRACE( X1 );
L3689:
if ( NEQ( UNSIGNED( c1950 ),
UNSIGNED( scrt7_token_2dquasiquote_v ) ) ) goto L3692;
X4 = scrt7_token( );
X3 = scrt7_datum( X4 );
X2 = sc_cons( X3, EMPTYLIST );
X1 = sc_cons( c1019, X2 );
POPSTACKTRACE( X1 );
L3692:
if ( NEQ( UNSIGNED( c1950 ),
UNSIGNED( scrt7_token_2dunquote_v ) ) ) goto L3695;
X4 = scrt7_token( );
X3 = scrt7_datum( X4 );
X2 = sc_cons( X3, EMPTYLIST );
X1 = sc_cons( c1023, X2 );
POPSTACKTRACE( X1 );
L3695:
if ( NEQ( UNSIGNED( c1950 ),
UNSIGNED( scrt7_2dsplicing_542533dd_v ) ) ) goto L3698;
X4 = scrt7_token( );
X3 = scrt7_datum( X4 );
X2 = sc_cons( X3, EMPTYLIST );
X1 = sc_cons( c1021, X2 );
POPSTACKTRACE( X1 );
L3698:
if ( NEQ( TSCPTAG( c1950 ), PAIRTAG ) ) goto L3701;
POPSTACKTRACE( scrt6_error( c1034,
c1971,
CONS( c1950, EMPTYLIST ) ) );
L3701:
POPSTACKTRACE( c1950 );
}
DEFTSCP( scrt7_datum_2dlist_v );
DEFSTRING( t3703, "SCRT7_DATUM-LIST", 16 );
TSCP scrt7_datum_2dlist( c1983 )
TSCP c1983;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3703 ) ) );
if ( EQ( UNSIGNED( c1983 ),
UNSIGNED( scrt7_token_2dright_2dparen_v ) )
) goto L3705;
if ( NEQ( UNSIGNED( c1983 ),
UNSIGNED( scrt7_token_2dperiod_v ) ) ) goto L3707;
X2 = scrt7_token( );
X1 = scrt7_datum( X2 );
X2 = scrt7_token( );
if ( EQ( UNSIGNED( X2 ),
UNSIGNED( scrt7_token_2dright_2dparen_v ) )
) goto L3710;
POPSTACKTRACE( scrt6_error( c1034, c1995, EMPTYLIST ) );
L3710:
POPSTACKTRACE( X1 );
L3707:
X1 = scrt7_datum( c1983 );
X3 = scrt7_token( );
X2 = scrt7_datum_2dlist( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L3705:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( scrt7_datum_2dvector_v );
DEFSTRING( t3712, "SCRT7_DATUM-VECTOR", 18 );
TSCP scrt7_datum_2dvector( c1997 )
TSCP c1997;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3712 ) ) );
if ( EQ( UNSIGNED( c1997 ),
UNSIGNED( scrt7_token_2dright_2dparen_v ) )
) goto L3714;
X1 = scrt7_datum( c1997 );
X3 = scrt7_token( );
X2 = scrt7_datum_2dvector( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L3714:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( scrt7_write_2dtoken_2dport_v );
DEFSTRING( t3716, "SCRT7_WRITE-TOKEN-PORT", 22 );
DEFTSCP( scrt7_write_2fdisplay_v );
DEFSTRING( t3717, "SCRT7_WRITE/DISPLAY", 19 );
EXTERNTSCPP( scrt7_write_2fdisplay2 );
EXTERNTSCP( scrt7_write_2fdisplay2_v );
TSCP scrt7_write_2fdisplay( o2004, r2005, p2006 )
TSCP o2004, r2005, p2006;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3717 ) ) );
X1 = scrt7_write_2dtoken_2dport_v;
X2 = p2006;
X2 = UNKNOWNCALL( X2, 1 );
scrt7_write_2dtoken_2dport_v = VIA( PROCEDURE_CODE( X2 ) )( c2009,
PROCEDURE_CLOSURE( X2 ) );
X2 = scrt7_write_2fdisplay2( o2004, r2005 );
scrt7_write_2dtoken_2dport_v = X1;
POPSTACKTRACE( X2 );
}
DEFTSCP( scrt7_write_2fdisplay2_v );
DEFSTRING( t3721, "SCRT7_WRITE/DISPLAY2", 20 );
EXTERNTSCPP( scrt7_readable_2dsymbol );
EXTERNTSCP( scrt7_readable_2dsymbol_v );
EXTERNTSCPP( scrt7_fixed_2d_3eclist );
EXTERNTSCP( scrt7_fixed_2d_3eclist_v );
EXTERNTSCPP( scrt7_readable_2dstring );
EXTERNTSCP( scrt7_readable_2dstring_v );
EXTERNTSCPP( scrt7_readable_2dchar );
EXTERNTSCP( scrt7_readable_2dchar_v );
EXTERNTSCPP( scrt4_vector_2d_3elist );
EXTERNTSCP( scrt4_vector_2d_3elist_v );
EXTERNTSCPP( scrt7_float_2d_3eclist );
EXTERNTSCP( scrt7_float_2d_3eclist_v );
EXTERNTSCP( sc_undefined );
EXTERNTSCPP( scrt7_write_2fdisplay_2dlist );
EXTERNTSCP( scrt7_write_2fdisplay_2dlist_v );
TSCP scrt7_write_2fdisplay2( o2014, r2015 )
TSCP o2014, r2015;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3721 ) ) );
L3722:
if ( NEQ( TSCPTAG( o2014 ), PAIRTAG ) ) goto L3723;
X2 = PAIR_CDR( o2014 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3725;
X3 = PAIR_CDR( o2014 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3732;
scrt1__24__cdr_2derror( X3 );
L3732:
X2 = PAIR_CDR( X3 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L3728;
X2 = PAIR_CAR( o2014 );
X1 = scrt1_assq( X2, c2150 );
goto L3726;
L3728:
X1 = FALSEVALUE;
goto L3726;
L3725:
X1 = FALSEVALUE;
L3726:
if ( FALSE( X1 ) ) goto L3752;
if ( FALSE( r2015 ) ) goto L3752;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3743;
scrt1__24__cdr_2derror( X1 );
L3743:
X4 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3746;
scrt1__24__car_2derror( X4 );
L3746:
X3 = PAIR_CAR( X4 );
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
VIA( PROCEDURE_CODE( X2 ) )( X3, PROCEDURE_CLOSURE( X2 ) );
X3 = PAIR_CDR( o2014 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3750;
scrt1__24__car_2derror( X3 );
L3750:
X2 = PAIR_CAR( X3 );
o2014 = X2;
goto L3722;
L3723:
if ( NOT( AND( EQ( TSCPTAG( o2014 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2014 ), SYMBOLTAG ) ) )
) goto L3753;
if ( FALSE( r2015 ) ) goto L3755;
if ( FALSE( scrt1_memq( o2014, c2073 ) ) ) goto L3757;
X2 = SYMBOL_NAME( o2014 );
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3757:
X2 = scrt7_readable_2dsymbol( o2014 );
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3755:
X2 = SYMBOL_NAME( o2014 );
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3753:
if ( NEQ( TSCPTAG( o2014 ), FIXNUMTAG ) ) goto L3761;
X2 = scrt7_fixed_2d_3eclist( o2014 );
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3761:
if ( NOT( AND( EQ( TSCPTAG( o2014 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2014 ), STRINGTAG ) ) )
) goto L3763;
if ( FALSE( r2015 ) ) goto L3765;
X2 = scrt7_readable_2dstring( o2014 );
goto L3766;
L3765:
X2 = o2014;
L3766:
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3763:
if ( NEQ( TSCPIMMEDIATETAG( o2014 ), CHARACTERTAG ) ) goto L3767;
if ( FALSE( r2015 ) ) goto L3769;
X2 = scrt7_readable_2dchar( o2014 );
goto L3770;
L3769:
X2 = o2014;
L3770:
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3767:
X1 = BOOLEAN( AND( EQ( TSCPTAG( o2014 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2014 ),
STRINGTAG ) ) );
if ( TRUE( X1 ) ) goto L3775;
if ( NOT( AND( EQ( TSCPTAG( o2014 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2014 ), VECTORTAG ) ) )
) goto L3776;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
VIA( PROCEDURE_CODE( X2 ) )( c2063,
PROCEDURE_CLOSURE( X2 ) );
X2 = scrt4_vector_2d_3elist( o2014 );
o2014 = X2;
goto L3722;
L3776:
if ( NOT( AND( EQ( TSCPTAG( o2014 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2014 ), FLOATTAG ) ) )
) goto L3779;
X3 = scrt7_float_2d_3eclist( o2014 );
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) ) );
L3779:
if ( NEQ( UNSIGNED( o2014 ),
UNSIGNED( TRUEVALUE ) ) ) goto L3781;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2060,
PROCEDURE_CLOSURE( X2 ) ) );
L3781:
if ( NEQ( UNSIGNED( o2014 ),
UNSIGNED( FALSEVALUE ) ) ) goto L3783;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2059,
PROCEDURE_CLOSURE( X2 ) ) );
L3783:
if ( NEQ( UNSIGNED( o2014 ),
UNSIGNED( EMPTYLIST ) ) ) goto L3785;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2058,
PROCEDURE_CLOSURE( X2 ) ) );
L3785:
if ( FALSE( scrt6_eof_2dobject_3f( o2014 ) ) ) goto L3787;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2057,
PROCEDURE_CLOSURE( X2 ) ) );
L3787:
if ( NEQ( UNSIGNED( o2014 ),
UNSIGNED( sc_undefined ) ) ) goto L3789;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2056,
PROCEDURE_CLOSURE( X2 ) ) );
L3789:
if ( NOT( AND( EQ( TSCPTAG( o2014 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2014 ),
PROCEDURETAG ) ) ) ) goto L3791;
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2055,
PROCEDURE_CLOSURE( X2 ) ) );
L3791:
X2 = scrt7_write_2dtoken_2dport_v;
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c2054,
PROCEDURE_CLOSURE( X2 ) ) );
L3752:
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( c2086,
PROCEDURE_CLOSURE( X1 ) );
X1 = PAIR_CAR( o2014 );
scrt7_write_2fdisplay2( X1, r2015 );
X1 = PAIR_CDR( o2014 );
POPSTACKTRACE( scrt7_write_2fdisplay_2dlist( X1, r2015 ) );
L3775:
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( o2014,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt7_write_2fdisplay_2dlist_v );
DEFSTRING( t3796, "SCRT7_WRITE/DISPLAY-LIST", 24 );
TSCP scrt7_write_2fdisplay_2dlist( o2152, r2153 )
TSCP o2152, r2153;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3796 ) ) );
L3797:
if ( NEQ( UNSIGNED( o2152 ),
UNSIGNED( EMPTYLIST ) ) ) goto L3798;
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2173,
PROCEDURE_CLOSURE( X1 ) ) );
L3798:
if ( NEQ( TSCPTAG( o2152 ), PAIRTAG ) ) goto L3800;
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( c2162,
PROCEDURE_CLOSURE( X1 ) );
X1 = PAIR_CAR( o2152 );
scrt7_write_2fdisplay2( X1, r2153 );
X1 = PAIR_CDR( o2152 );
o2152 = X1;
goto L3797;
L3800:
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( c2172,
PROCEDURE_CLOSURE( X1 ) );
scrt7_write_2fdisplay2( o2152, r2153 );
X1 = scrt7_write_2dtoken_2dport_v;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2173,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt7_readable_2dchar_v );
DEFSTRING( t3806, "SCRT7_READABLE-CHAR", 19 );
EXTERNTSCPP( scrt1_assoc );
EXTERNTSCP( scrt1_assoc_v );
TSCP scrt7_readable_2dchar( o2175 )
TSCP o2175;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3806 ) ) );
if ( AND( EQ( TSCPIMMEDIATETAG( o2175 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8210 ) ),
CHARACTERTAG ) ) ) goto L3809;
X2 = CONS( _TSCP( 8210 ), EMPTYLIST );
scrt6_error( c2185, c1054, CONS( o2175, X2 ) );
L3809:
X1 = BOOLEAN( GT( INT( o2175 ),
INT( _TSCP( 8210 ) ) ) );
if ( FALSE( X1 ) ) goto L3821;
if ( AND( EQ( TSCPIMMEDIATETAG( o2175 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 32274 ) ),
CHARACTERTAG ) ) ) goto L3816;
X2 = CONS( _TSCP( 32274 ), EMPTYLIST );
scrt6_error( c2194, c1054, CONS( o2175, X2 ) );
L3816:
if ( GT( INT( o2175 ), INT( _TSCP( 32274 ) ) ) ) goto L3821;
X5 = sc_cons( o2175, EMPTYLIST );
X4 = sc_cons( _TSCP( 23570 ), X5 );
X3 = sc_cons( _TSCP( 8978 ), X4 );
X2 = X3;
POPSTACKTRACE( scrt3_list_2d_3estring( X2 ) );
L3821:
X1 = scrt1_assoc( o2175, c2209 );
if ( FALSE( X1 ) ) goto L3823;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3826;
scrt1__24__cdr_2derror( X1 );
L3826:
X2 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3829;
scrt1__24__car_2derror( X2 );
L3829:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3823:
POPSTACKTRACE( c2198 );
}
DEFTSCP( scrt7_readable_2dstring_v );
DEFSTRING( t3831, "SCRT7_READABLE-STRING", 21 );
TSCP scrt7_readable_2dstring( o2213 )
TSCP o2213;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3831 ) ) );
X1 = c2324;
if ( AND( EQ( TSCPTAG( o2213 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2213 ), STRINGTAG ) )
) goto L3835;
scrt6_error( c2262,
c2263, CONS( o2213, EMPTYLIST ) );
L3835:
X2 = C_FIXED( STRING_LENGTH( o2213 ) );
X3 = _TSCP( 0 );
L3837:
X1 = CONS( X1, EMPTYLIST );
if ( BITAND( BITOR( INT( X2 ), INT( X3 ) ),
3 ) ) goto L3839;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) ) goto L3843;
goto L3844;
L3839:
if ( FALSE( scrt2__3d_2dtwo( X2, X3 ) ) ) goto L3844;
L3843:
X4 = sc_cons( _TSCP( 8722 ), PAIR_CAR( X1 ) );
POPSTACKTRACE( scrt1_reverse( X4 ) );
L3844:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3849;
scrt6_error( c2241, c1475, CONS( X3, EMPTYLIST ) );
L3849:
X6 = BOOLEAN( LT( INT( X3 ), 0 ) );
if ( TRUE( X6 ) ) goto L3855;
X7 = C_FIXED( STRING_LENGTH( o2213 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X7 ) ),
3 ) ) goto L3859;
if ( GTE( INT( X3 ), INT( X7 ) ) ) goto L3855;
goto L3866;
L3859:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, X7 ) ) ) goto L3866;
L3855:
scrt6_error( c2241, c1824, CONS( X3, EMPTYLIST ) );
L3866:
X5 = C_CHAR( STRING_CHAR( o2213, X3 ) );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( _TSCP( 23570 ) ) ) );
if ( TRUE( X4 ) ) goto L3871;
X6 = BOOLEAN( LT( INT( X3 ), 0 ) );
if ( TRUE( X6 ) ) goto L3879;
X7 = C_FIXED( STRING_LENGTH( o2213 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X7 ) ),
3 ) ) goto L3883;
if ( GTE( INT( X3 ), INT( X7 ) ) ) goto L3879;
goto L3890;
L3883:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, X7 ) ) ) goto L3890;
L3879:
scrt6_error( c2241, c1824, CONS( X3, EMPTYLIST ) );
L3890:
X5 = C_CHAR( STRING_CHAR( o2213, X3 ) );
if ( NEQ( UNSIGNED( X5 ),
UNSIGNED( _TSCP( 8722 ) ) ) ) goto L3891;
L3871:
X5 = sc_cons( _TSCP( 23570 ), PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X5 );
L3891:
X6 = BOOLEAN( LT( INT( X3 ), 0 ) );
if ( TRUE( X6 ) ) goto L3897;
X7 = C_FIXED( STRING_LENGTH( o2213 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X7 ) ),
3 ) ) goto L3901;
if ( GTE( INT( X3 ), INT( X7 ) ) ) goto L3897;
goto L3908;
L3901:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, X7 ) ) ) goto L3908;
L3897:
scrt6_error( c2241, c1824, CONS( X3, EMPTYLIST ) );
L3908:
X5 = C_CHAR( STRING_CHAR( o2213, X3 ) );
X4 = sc_cons( X5, PAIR_CAR( X1 ) );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3909;
X3 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 4 ) ) ) );
goto L3910;
L3909:
X3 = scrt2__2b_2dtwo( X3, _TSCP( 4 ) );
L3910:
X1 = X4;
goto L3837;
}
DEFTSCP( scrt7_readable_2dsymbol_v );
DEFSTRING( t3911, "SCRT7_READABLE-SYMBOL", 21 );
EXTERNTSCPP( scrt3_char_2dupper_2dcase_3f );
EXTERNTSCP( scrt3_char_2dupper_2dcase_3f_v );
TSCP scrt7_readable_2dsymbol( o2330 )
TSCP o2330;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3911 ) ) );
o2330 = CONS( o2330, EMPTYLIST );
X2 = PAIR_CAR( o2330 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) ) goto L3914;
scrt6_error( c2071, c2072, CONS( X2, EMPTYLIST ) );
L3914:
X1 = SYMBOL_NAME( X2 );
SETGEN( PAIR_CAR( o2330 ), X1 );
X1 = EMPTYLIST;
X3 = PAIR_CAR( o2330 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) ) goto L3918;
scrt6_error( c2262, c2263, CONS( X3, EMPTYLIST ) );
L3918:
X2 = C_FIXED( STRING_LENGTH( X3 ) );
X3 = _TSCP( 0 );
L3920:
X1 = CONS( X1, EMPTYLIST );
if ( BITAND( BITOR( INT( X3 ), INT( X2 ) ),
3 ) ) goto L3922;
if ( EQ( UNSIGNED( X3 ), UNSIGNED( X2 ) ) ) goto L3926;
goto L3927;
L3922:
if ( FALSE( scrt2__3d_2dtwo( X3, X2 ) ) ) goto L3927;
L3926:
POPSTACKTRACE( scrt1_reverse( PAIR_CAR( X1 ) ) );
L3927:
X5 = PAIR_CAR( o2330 );
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3932;
scrt6_error( c2241, c1475, CONS( X3, EMPTYLIST ) );
L3932:
X6 = BOOLEAN( LT( INT( X3 ), 0 ) );
if ( TRUE( X6 ) ) goto L3938;
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), STRINGTAG ) ) ) goto L3940;
scrt6_error( c2262, c2263, CONS( X5, EMPTYLIST ) );
L3940:
X7 = C_FIXED( STRING_LENGTH( X5 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X7 ) ),
3 ) ) goto L3944;
if ( GTE( INT( X3 ), INT( X7 ) ) ) goto L3938;
goto L3951;
L3944:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, X7 ) ) ) goto L3951;
L3938:
scrt6_error( c2241, c1824, CONS( X3, EMPTYLIST ) );
L3951:
X4 = C_CHAR( STRING_CHAR( X5, X3 ) );
if ( FALSE( scrt3_char_2dalphabetic_3f( X4 ) ) ) goto L3953;
if ( FALSE( scrt3_char_2dupper_2dcase_3f( X4 ) ) ) goto L3955;
X5 = FALSEVALUE;
goto L3954;
L3955:
X5 = TRUEVALUE;
goto L3954;
L3953:
X5 = TRUEVALUE;
L3954:
if ( FALSE( X5 ) ) goto L3977;
if ( FALSE( scrt1_memq( X4, c1107 ) ) ) goto L3961;
X6 = FALSEVALUE;
goto L3962;
L3961:
X6 = TRUEVALUE;
L3962:
if ( FALSE( X6 ) ) goto L3977;
if ( FALSE( scrt1_memq( X4, c2372 ) ) ) goto L3967;
X7 = FALSEVALUE;
goto L3968;
L3967:
X7 = TRUEVALUE;
L3968:
if ( FALSE( X7 ) ) goto L3977;
if ( TRUE( scrt3_char_2dnumeric_3f( X4 ) ) ) goto L3977;
X8 = sc_cons( _TSCP( 23570 ), PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X8 );
goto L3985;
L3977:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3985;
if ( TRUE( scrt3_char_2dalphabetic_3f( X4 ) ) ) goto L3985;
if ( TRUE( scrt1_memq( X4, c1107 ) ) ) goto L3985;
X5 = sc_cons( _TSCP( 23570 ), PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X5 );
L3985:
X6 = PAIR_CAR( o2330 );
X7 = BOOLEAN( LT( INT( X3 ), 0 ) );
if ( TRUE( X7 ) ) goto L3992;
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), STRINGTAG ) ) ) goto L3994;
scrt6_error( c2262, c2263, CONS( X6, EMPTYLIST ) );
L3994:
X8 = C_FIXED( STRING_LENGTH( X6 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X8 ) ),
3 ) ) goto L3998;
if ( GTE( INT( X3 ), INT( X8 ) ) ) goto L3992;
goto L4005;
L3998:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, X8 ) ) ) goto L4005;
L3992:
scrt6_error( c2241, c1824, CONS( X3, EMPTYLIST ) );
L4005:
X5 = C_CHAR( STRING_CHAR( X6, X3 ) );
X4 = sc_cons( X5, PAIR_CAR( X1 ) );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X3 ) ),
3 ) ) goto L4006;
X3 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X3 ) ) );
goto L4007;
L4006:
X3 = scrt2__2b_2dtwo( _TSCP( 4 ), X3 );
L4007:
X1 = X4;
goto L3920;
}
DEFTSCP( scrt7_fixed_2d_3eclist_v );
DEFSTRING( t4008, "SCRT7_FIXED->CLIST", 18 );
EXTERNTSCPP( scrt2_remainder );
EXTERNTSCP( scrt2_remainder_v );
EXTERNTSCPP( scrt2_abs );
EXTERNTSCP( scrt2_abs_v );
EXTERNTSCPP( scrt2_quotient );
EXTERNTSCP( scrt2_quotient_v );
TSCP scrt7_fixed_2d_3eclist( o2454 )
TSCP o2454;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4008 ) ) );
X1 = EMPTYLIST;
X2 = o2454;
L4011:
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L4012;
X3 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L4013;
L4012:
X3 = scrt2_zero_3f( X2 );
L4013:
if ( FALSE( X3 ) ) goto L4028;
if ( FALSE( X1 ) ) goto L4028;
if ( BITAND( BITOR( INT( o2454 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L4021;
if ( LT( INT( o2454 ), INT( _TSCP( 0 ) ) ) ) goto L4025;
POPSTACKTRACE( X1 );
L4021:
if ( TRUE( scrt2__3c_2dtwo( o2454, _TSCP( 0 ) ) ) ) goto L4025;
POPSTACKTRACE( X1 );
L4028:
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L4029;
X7 = _TSCP( REMAINDER( INT( X2 ),
INT( _TSCP( 40 ) ) ) );
goto L4030;
L4029:
X7 = scrt2_remainder( X2, _TSCP( 40 ) );
L4030:
if ( NEQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L4032;
if ( LT( INT( X7 ), 0 ) ) goto L4037;
X6 = X7;
goto L4038;
L4032:
X6 = scrt2_abs( X7 );
goto L4038;
L4037:
X6 = _TSCP( INEGATE( INT( X7 ) ) );
L4038:
X7 = C_FIXED( CHAR_C( _TSCP( 12306 ) ) );
if ( BITAND( BITOR( INT( X7 ), INT( X6 ) ),
3 ) ) goto L4040;
X5 = _TSCP( IPLUS( INT( X7 ), INT( X6 ) ) );
goto L4041;
L4040:
X5 = scrt2__2b_2dtwo( X7, X6 );
L4041:
X6 = BOOLEAN( NEQ( TSCPTAG( X5 ), FIXNUMTAG ) );
if ( TRUE( X6 ) ) goto L4047;
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L4048;
X7 = BOOLEAN( LT( INT( X5 ), INT( _TSCP( 0 ) ) ) );
goto L4049;
L4048:
X7 = scrt2__3c_2dtwo( X5, _TSCP( 0 ) );
L4049:
if ( TRUE( X7 ) ) goto L4047;
if ( BITAND( BITOR( INT( X5 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L4056;
if ( GT( INT( X5 ), INT( _TSCP( 1020 ) ) ) ) goto L4047;
goto L4063;
L4056:
if ( FALSE( scrt2__3e_2dtwo( X5, _TSCP( 1020 ) ) ) ) goto L4063;
L4047:
scrt6_error( c1324, c1325, CONS( X5, EMPTYLIST ) );
L4063:
X4 = FIX_CHAR( X5 );
X3 = sc_cons( X4, X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L4064;
X2 = C_FIXED( QUOTIENT( INT( X2 ),
INT( _TSCP( 40 ) ) ) );
goto L4065;
L4064:
X2 = scrt2_quotient( X2, _TSCP( 40 ) );
L4065:
X1 = X3;
goto L4011;
L4025:
POPSTACKTRACE( sc_cons( _TSCP( 11538 ), X1 ) );
}
DEFTSCP( scrt7_float_2d_3eclist_v );
DEFSTRING( t4066, "SCRT7_FLOAT->CLIST", 18 );
EXTERNINTP( gcvt );
EXTERNTSCPP( scrt3_string_2d_3elist );
EXTERNTSCP( scrt3_string_2d_3elist_v );
TSCP scrt7_float_2d_3eclist( o2536 )
TSCP o2536;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4066 ) ) );
X2 = BOOLEAN( NEQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) );
if ( TRUE( X2 ) ) goto L4073;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L4074;
X3 = BOOLEAN( LT( INT( _TSCP( 0 ) ),
INT( _TSCP( 0 ) ) ) );
goto L4075;
L4074:
X3 = scrt2__3c_2dtwo( _TSCP( 0 ), _TSCP( 0 ) );
L4075:
if ( TRUE( X3 ) ) goto L4073;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L4082;
if ( GT( INT( _TSCP( 0 ) ), INT( _TSCP( 1020 ) ) ) ) goto L4073;
goto L4089;
L4082:
if ( FALSE( scrt2__3e_2dtwo( _TSCP( 0 ), _TSCP( 1020 ) ) )
) goto L4089;
L4073:
scrt6_error( c1324,
c1325, CONS( _TSCP( 0 ), EMPTYLIST ) );
L4089:
X1 = FIX_CHAR( _TSCP( 0 ) );
X2 = sc_make_2dstring( _TSCP( 120 ),
CONS( X1, EMPTYLIST ) );
gcvt( TSCP_DOUBLE( o2536 ),
TSCP_INT( _TSCP( 64 ) ), TSCP_POINTER( X2 ) );
X3 = scrt3_string_2d_3elist( X2 );
X4 = EMPTYLIST;
L4093:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4097;
scrt1__24__car_2derror( X3 );
L4097:
X5 = PAIR_CAR( X3 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X1 ) ) ) goto L4094;
if ( FALSE( scrt1_memq( _TSCP( 11794 ), X4 ) ) ) goto L4099;
X5 = X4;
goto L4102;
L4099:
if ( FALSE( scrt1_memq( _TSCP( 25874 ), X4 ) ) ) goto L4101;
X5 = X4;
goto L4102;
L4101:
X5 = sc_cons( _TSCP( 11794 ), X4 );
L4102:
POPSTACKTRACE( scrt1_reverse( X5 ) );
L4094:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4104;
scrt1__24__cdr_2derror( X3 );
L4104:
X5 = PAIR_CDR( X3 );
X6 = PAIR_CAR( X3 );
X4 = sc_cons( X6, X4 );
X3 = X5;
goto L4093;
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt2__init();
scrt1__init();
scrt3__init();
scrt6__init();
MAXDISPLAY( 0 );
}
void scrt7__init()
{
TSCP 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( "(scrt7 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t3047 ) ),
ADR( scrt7_token_2dleft_2dparen_v ),
sc_cons( c1013, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3048 ) ),
ADR( scrt7_token_2dright_2dparen_v ),
sc_cons( c1015, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3049 ) ),
ADR( scrt7_token_2dquote_v ),
sc_cons( c1017, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3050 ) ),
ADR( scrt7_token_2dquasiquote_v ),
sc_cons( c1019, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3051 ) ),
ADR( scrt7_2dsplicing_542533dd_v ),
sc_cons( c1021, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3052 ) ),
ADR( scrt7_token_2dunquote_v ),
sc_cons( c1023, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3053 ) ),
ADR( scrt7_token_2dperiod_v ),
sc_cons( c1025, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3054 ) ),
ADR( scrt7_token_2dvector_v ),
sc_cons( c1027, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3055 ) ),
ADR( scrt7_peek_2dchar_2dport_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3056 ) ),
ADR( scrt7_read_2dchar_2dport_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3057 ) ),
ADR( scrt7_next_2dchar_v ),
MAKEPROCEDURE( 0,
0,
scrt7_next_2dchar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3062 ) ),
ADR( scrt7_token_v ),
MAKEPROCEDURE( 0,
0, scrt7_token, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3187 ) ),
ADR( scrt7_delimiter_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt7_delimiter_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3194 ) ),
ADR( scrt7_comment_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt7_comment_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3208 ) ),
ADR( scrt7_string_v ),
MAKEPROCEDURE( 0,
0, scrt7_string, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3223 ) ),
ADR( scrt7_character_v ),
MAKEPROCEDURE( 0,
0,
scrt7_character, EMPTYLIST ) );
X1 = sc_make_2dvector( _TSCP( 1024 ),
CONS( FALSEVALUE, EMPTYLIST ) );
X2 = C_FIXED( CHAR_C( _TSCP( 16658 ) ) );
X3 = C_FIXED( CHAR_C( _TSCP( 23058 ) ) );
L3378:
if ( BITAND( BITOR( INT( X2 ), INT( X3 ) ),
3 ) ) goto L3380;
if ( LTE( INT( X2 ), INT( X3 ) ) ) goto L3384;
goto L3387;
L3380:
if ( TRUE( scrt2__3e_2dtwo( X2, X3 ) ) ) goto L3387;
L3384:
X5 = BOOLEAN( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) );
if ( TRUE( X5 ) ) goto L3394;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3395;
X6 = BOOLEAN( LT( INT( X2 ), INT( _TSCP( 0 ) ) ) );
goto L3396;
L3395:
X6 = scrt2__3c_2dtwo( X2, _TSCP( 0 ) );
L3396:
if ( TRUE( X6 ) ) goto L3394;
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3403;
if ( GT( INT( X2 ), INT( _TSCP( 1020 ) ) ) ) goto L3394;
goto L3410;
L3403:
if ( FALSE( scrt2__3e_2dtwo( X2, _TSCP( 1020 ) ) ) ) goto L3410;
L3394:
scrt6_error( c1324, c1325, CONS( X2, EMPTYLIST ) );
L3410:
X4 = FIX_CHAR( X2 );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L3412;
scrt6_error( c1471, c1472, CONS( X1, EMPTYLIST ) );
L3412:
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3414;
scrt6_error( c1471, c1475, CONS( X2, EMPTYLIST ) );
L3414:
if ( LT( UNSIGNED( FIXED_C( X2 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L3416;
scrt6_error( c1471, c1479, CONS( X2, EMPTYLIST ) );
L3416:
SETGEN( VECTOR_ELEMENT( X1, X2 ), X4 );
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 128 ) ) ),
3 ) ) goto L3418;
X4 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 128 ) ) ) );
goto L3419;
L3418:
X4 = scrt2__2b_2dtwo( X2, _TSCP( 128 ) );
L3419:
X6 = BOOLEAN( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) );
if ( TRUE( X6 ) ) goto L3425;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3426;
X7 = BOOLEAN( LT( INT( X2 ), INT( _TSCP( 0 ) ) ) );
goto L3427;
L3426:
X7 = scrt2__3c_2dtwo( X2, _TSCP( 0 ) );
L3427:
if ( TRUE( X7 ) ) goto L3425;
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3434;
if ( GT( INT( X2 ), INT( _TSCP( 1020 ) ) ) ) goto L3425;
goto L3441;
L3434:
if ( FALSE( scrt2__3e_2dtwo( X2, _TSCP( 1020 ) ) ) ) goto L3441;
L3425:
scrt6_error( c1324, c1325, CONS( X2, EMPTYLIST ) );
L3441:
X5 = FIX_CHAR( X2 );
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3443;
scrt6_error( c1471, c1475, CONS( X4, EMPTYLIST ) );
L3443:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L3445;
scrt6_error( c1471, c1479, CONS( X4, EMPTYLIST ) );
L3445:
SETGEN( VECTOR_ELEMENT( X1, X4 ), X5 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3447;
X4 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L3448;
L3447:
X4 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L3448:
X2 = X4;
goto L3378;
L3387:
X2 = c1593;
L3450:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L3451;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3455;
scrt1__24__car_2derror( X2 );
L3455:
X3 = PAIR_CAR( X2 );
X4 = C_FIXED( CHAR_C( X3 ) );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L3459;
scrt6_error( c1471, c1472, CONS( X1, EMPTYLIST ) );
L3459:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3461;
scrt6_error( c1471, c1475, CONS( X4, EMPTYLIST ) );
L3461:
if ( LT( UNSIGNED( FIXED_C( X4 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L3463;
scrt6_error( c1471, c1479, CONS( X4, EMPTYLIST ) );
L3463:
SETGEN( VECTOR_ELEMENT( X1, X4 ), X3 );
X2 = PAIR_CDR( X2 );
goto L3450;
L3451:
X2 = C_FIXED( CHAR_C( _TSCP( 23570 ) ) );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L3467;
scrt6_error( c1471, c1472, CONS( X1, EMPTYLIST ) );
L3467:
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3469;
scrt6_error( c1471, c1475, CONS( X2, EMPTYLIST ) );
L3469:
if ( LT( UNSIGNED( FIXED_C( X2 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L3471;
scrt6_error( c1471, c1479, CONS( X2, EMPTYLIST ) );
L3471:
SETGEN( VECTOR_ELEMENT( X1, X2 ), TRUEVALUE );
INITIALIZEVAR( U_TX( ADR( t3375 ) ),
ADR( scrt7_idtable_v ), X1 );
INITIALIZEVAR( U_TX( ADR( t3473 ) ),
ADR( scrt7_identifier_v ),
MAKEPROCEDURE( 1,
0,
scrt7_identifier, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3495 ) ),
ADR( scrt7_number_v ),
MAKEPROCEDURE( 3,
0, scrt7_number, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3628 ) ),
ADR( scrt7_accv_v ),
MAKEPROCEDURE( 3,
0, scrt7_accv, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3659 ) ),
ADR( scrt7_read_2ddatum_v ),
MAKEPROCEDURE( 1,
0,
scrt7_read_2ddatum, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3683 ) ),
ADR( scrt7_datum_v ),
MAKEPROCEDURE( 1,
0, scrt7_datum, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3703 ) ),
ADR( scrt7_datum_2dlist_v ),
MAKEPROCEDURE( 1,
0,
scrt7_datum_2dlist, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3712 ) ),
ADR( scrt7_datum_2dvector_v ),
MAKEPROCEDURE( 1,
0,
scrt7_datum_2dvector, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3716 ) ),
ADR( scrt7_write_2dtoken_2dport_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3717 ) ),
ADR( scrt7_write_2fdisplay_v ),
MAKEPROCEDURE( 3,
0,
scrt7_write_2fdisplay, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3721 ) ),
ADR( scrt7_write_2fdisplay2_v ),
MAKEPROCEDURE( 2,
0,
scrt7_write_2fdisplay2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3796 ) ),
ADR( scrt7_write_2fdisplay_2dlist_v ),
MAKEPROCEDURE( 2,
0,
scrt7_write_2fdisplay_2dlist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3806 ) ),
ADR( scrt7_readable_2dchar_v ),
MAKEPROCEDURE( 1,
0,
scrt7_readable_2dchar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3831 ) ),
ADR( scrt7_readable_2dstring_v ),
MAKEPROCEDURE( 1,
0,
scrt7_readable_2dstring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3911 ) ),
ADR( scrt7_readable_2dsymbol_v ),
MAKEPROCEDURE( 1,
0,
scrt7_readable_2dsymbol,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4008 ) ),
ADR( scrt7_fixed_2d_3eclist_v ),
MAKEPROCEDURE( 1,
0,
scrt7_fixed_2d_3eclist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4066 ) ),
ADR( scrt7_float_2d_3eclist_v ),
MAKEPROCEDURE( 1,
0,
scrt7_float_2d_3eclist,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.