This is expform.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2607, "READ-TEXT", 9 );
DEFSTATICTSCP( read_2dtext_v );
DEFSTRING( t2608, "CURRENT-DEFINE-NAME", 19 );
DEFSTATICTSCP( current_2ddefine_2dname_v );
DEFSTRING( t2609, "REPORT-WARNING", 14 );
DEFSTATICTSCP( report_2dwarning_v );
DEFSTRING( t2610, "QUOTE-CONSTANTS", 15 );
DEFSTATICTSCP( quote_2dconstants_v );
DEFSTRING( t2611, "ISLIST", 6 );
DEFSTATICTSCP( islist_v );
DEFSTRING( t2612, "CALL-EXP", 8 );
DEFSTATICTSCP( call_2dexp_v );
DEFSTRING( t2613, "MODULE-NAME", 11 );
DEFSTATICTSCP( module_2dname_v );
DEFSTRING( t2614, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t2615, "DOWNSHIFT", 9 );
DEFSTATICTSCP( downshift_v );
DEFSTATICTSCP( c2431 );
DEFSTRING( t2617, "BEGIN", 5 );
DEFSTATICTSCP( t2616 );
DEFSTRING( t2618, "syntax:", 7 );
DEFSTATICTSCP2( c2430, t2618 );
DEFSTRING( t2619, "Illegal", 7 );
DEFSTATICTSCP2( c2429, t2619 );
DEFSTRING( t2620, "~A~A", 4 );
DEFSTATICTSCP2( c2345, t2620 );
DEFSTATICTSCP( c2285 );
DEFSTRING( t2622, "CLOSUREP", 8 );
DEFSTATICTSCP( t2621 );
DEFSTRING( t2624, "TEMPORARY", 9 );
DEFSTATICTSCP( t2623 );
DEFSTRING( t2626, "LAMBDA", 6 );
DEFSTATICTSCP( t2625 );
DEFSTRING( t2628, "CONSTANT", 8 );
DEFSTATICTSCP( t2627 );
DEFSTRING( t2630, "LABEL", 5 );
DEFSTATICTSCP( t2629 );
DEFSTRING( t2631, "LEXICAL", 7 );
DEFSTATICTSCP( c2284 );
DEFSTATICTSCP( c2280 );
DEFSTRING( t2633, "TOP-LEVEL", 9 );
DEFSTATICTSCP( t2632 );
DEFSTRING( t2635, "MACRO", 5 );
DEFSTATICTSCP( t2634 );
DEFSTRING( t2637, "GLOBAL", 6 );
DEFSTATICTSCP( t2636 );
DEFSTRING( t2638, "Duplicately defined symbol:", 27 );
DEFSTATICTSCP2( c2222, t2638 );
DEFSTRING( t2639, "MACRO", 5 );
DEFSTATICTSCP( c2215 );
DEFSTATICTSCP( c2198 );
DEFSTATICTSCP( c2118 );
DEFSTATICTSCP( c2117 );
DEFSTRING( t2640, "0", 1 );
DEFSTATICTSCP2( c2116, t2640 );
DEFSTRING( t2641, "0123456789abcdef", 16 );
DEFSTATICTSCP2( c2079, t2641 );
DEFSTRING( t2642, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c1972, t2642 );
DEFSTRING( t2643, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c1966, t2643 );
DEFSTRING( t2644, "VECTOR-REF", 10 );
DEFSTATICTSCP( c1965 );
DEFSTRING( t2645, "~a_~a_~a", 8 );
DEFSTATICTSCP2( c1900, t2645 );
DEFSTRING( t2646, "Argument(s) incorrect", 21 );
DEFSTATICTSCP2( c1899, t2646 );
DEFSTRING( t2647, "Argument is not a CHAR: ~s", 26 );
DEFSTATICTSCP2( c1878, t2647 );
DEFSTRING( t2648, "STRING-SET!", 11 );
DEFSTATICTSCP( c1875 );
DEFSTRING( t2649, "Argument not a CHAR: ~s", 23 );
DEFSTATICTSCP2( c1797, t2649 );
DEFSTRING( t2650, "CHAR->INTEGER", 13 );
DEFSTATICTSCP( c1796 );
DEFSTRING( t2651,
"Argument not an unsigned 8-bit INTEGER: ~s", 42 );
DEFSTATICTSCP2( c1785, t2651 );
DEFSTRING( t2652, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1784 );
DEFSTRING( t2653, "CHAR<=?", 7 );
DEFSTATICTSCP( c1685 );
DEFSTRING( t2654, "CHAR>=?", 7 );
DEFSTATICTSCP( c1676 );
DEFSTRING( t2655, "Argument(s) not CHAR: ~s ~s", 27 );
DEFSTATICTSCP2( c1665, t2655 );
DEFSTRING( t2656, "CHAR=?", 6 );
DEFSTATICTSCP( c1664 );
DEFSTRING( t2657, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1657, t2657 );
DEFSTRING( t2658, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1636, t2658 );
DEFSTRING( t2659, "STRING-REF", 10 );
DEFSTATICTSCP( c1635 );
DEFSTRING( t2660, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1628, t2660 );
DEFSTRING( t2661, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1627 );
DEFSTRING( t2662, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1607, t2662 );
DEFSTRING( t2663, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1606 );
DEFSTRING( t2664, "NAME", 4 );
DEFSTATICTSCP( c1557 );
DEFSTRING( t2665, "$LAMBDA", 7 );
DEFSTATICTSCP( c1538 );
DEFSTRING( t2666, "_", 1 );
DEFSTATICTSCP2( c1504, t2666 );
DEFSTATICTSCP( c1471 );
DEFSTRING( t2667, "GOTOS", 5 );
DEFSTATICTSCP( c1430 );
DEFSTRING( t2668, "ALIAS", 5 );
DEFSTATICTSCP( c1417 );
DEFSTRING( t2669, "CALLS", 5 );
DEFSTATICTSCP( c1404 );
DEFSTRING( t2670, "REFS", 4 );
DEFSTATICTSCP( c1391 );
DEFSTRING( t2671, "SET!", 4 );
DEFSTATICTSCP( c1378 );
DEFSTRING( t2672, "VALUE", 5 );
DEFSTATICTSCP( c1365 );
DEFSTRING( t2673, "DEFINED", 7 );
DEFSTATICTSCP( c1352 );
DEFSTRING( t2674, "EXTERNAL", 8 );
DEFSTATICTSCP( c1339 );
DEFSTRING( t2675, "LAMBDA", 6 );
DEFSTATICTSCP( c1326 );
DEFSTRING( t2676, "BOUNDID", 7 );
DEFSTATICTSCP( c1313 );
DEFSTRING( t2677, "DISPLAY", 7 );
DEFSTATICTSCP( c1300 );
DEFSTRING( t2678, "TYPE", 4 );
DEFSTATICTSCP( c1287 );
DEFSTRING( t2679, "CNAME", 5 );
DEFSTATICTSCP( c1250 );
DEFSTRING( t2680, "PRINTNAME", 9 );
DEFSTATICTSCP( c1225 );
DEFSTRING( t2681, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1209, t2681 );
DEFSTRING( t2682, "SET-CDR!", 8 );
DEFSTATICTSCP( c1208 );
DEFSTRING( t2683, "EXPRESSION-LIST", 15 );
DEFSTATICTSCP( c1177 );
DEFSTRING( t2684, "QUOTE", 5 );
DEFSTATICTSCP( c1172 );
DEFSTRING( t2685, "EXPAND", 6 );
DEFSTATICTSCP( c1169 );
DEFSTATICTSCP( c1150 );
DEFSTRING( t2686, "_v", 2 );
DEFSTATICTSCP2( c1101, t2686 );
DEFSTRING( t2687, "VNAME", 5 );
DEFSTATICTSCP( c1099 );
DEFSTRING( t2688, "Variable assumed to be TOP-LEVEL:", 33 );
DEFSTATICTSCP2( c1089, t2688 );
DEFSTRING( t2689, "UNDEFREF", 8 );
DEFSTATICTSCP( c1086 );
DEFSTRING( t2690, "MODULE", 6 );
DEFSTATICTSCP( c1082 );
DEFSTRING( t2691, "GLOBAL", 6 );
DEFSTATICTSCP( c1078 );
DEFSTRING( t2692, "USE", 3 );
DEFSTATICTSCP( c1077 );
DEFSTRING( t2693, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1029 );
static void init_constants()
{
read_2dtext_v = STRINGTOSYMBOL( U_TX( ADR( t2607 ) ) );
CONSTANTEXP( ADR( read_2dtext_v ) );
current_2ddefine_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2608 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dname_v ) );
report_2dwarning_v = STRINGTOSYMBOL( U_TX( ADR( t2609 ) ) );
CONSTANTEXP( ADR( report_2dwarning_v ) );
quote_2dconstants_v = STRINGTOSYMBOL( U_TX( ADR( t2610 ) ) );
CONSTANTEXP( ADR( quote_2dconstants_v ) );
islist_v = STRINGTOSYMBOL( U_TX( ADR( t2611 ) ) );
CONSTANTEXP( ADR( islist_v ) );
call_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2612 ) ) );
CONSTANTEXP( ADR( call_2dexp_v ) );
module_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2613 ) ) );
CONSTANTEXP( ADR( module_2dname_v ) );
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2614 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
downshift_v = STRINGTOSYMBOL( U_TX( ADR( t2615 ) ) );
CONSTANTEXP( ADR( downshift_v ) );
c2431 = EMPTYLIST;
c2431 = CONS( TRUEVALUE, c2431 );
t2616 = STRINGTOSYMBOL( U_TX( ADR( t2617 ) ) );
c2431 = CONS( t2616, c2431 );
CONSTANTEXP( ADR( c2431 ) );
c2285 = EMPTYLIST;
t2621 = STRINGTOSYMBOL( U_TX( ADR( t2622 ) ) );
c2285 = CONS( t2621, c2285 );
t2623 = STRINGTOSYMBOL( U_TX( ADR( t2624 ) ) );
c2285 = CONS( t2623, c2285 );
t2625 = STRINGTOSYMBOL( U_TX( ADR( t2626 ) ) );
c2285 = CONS( t2625, c2285 );
t2627 = STRINGTOSYMBOL( U_TX( ADR( t2628 ) ) );
c2285 = CONS( t2627, c2285 );
t2629 = STRINGTOSYMBOL( U_TX( ADR( t2630 ) ) );
c2285 = CONS( t2629, c2285 );
CONSTANTEXP( ADR( c2285 ) );
c2284 = STRINGTOSYMBOL( U_TX( ADR( t2631 ) ) );
CONSTANTEXP( ADR( c2284 ) );
c2280 = EMPTYLIST;
t2632 = STRINGTOSYMBOL( U_TX( ADR( t2633 ) ) );
c2280 = CONS( t2632, c2280 );
t2634 = STRINGTOSYMBOL( U_TX( ADR( t2635 ) ) );
c2280 = CONS( t2634, c2280 );
t2636 = STRINGTOSYMBOL( U_TX( ADR( t2637 ) ) );
c2280 = CONS( t2636, c2280 );
CONSTANTEXP( ADR( c2280 ) );
c2215 = STRINGTOSYMBOL( U_TX( ADR( t2639 ) ) );
CONSTANTEXP( ADR( c2215 ) );
c2198 = EMPTYLIST;
c2198 = CONS( c2284, c2198 );
c2198 = CONS( c2215, c2198 );
c2198 = CONS( t2636, c2198 );
CONSTANTEXP( ADR( c2198 ) );
c2118 = EMPTYLIST;
c2118 = CONS( _TSCP( 245300 ), c2118 );
c2118 = CONS( _TSCP( 228460 ), c2118 );
c2118 = CONS( _TSCP( 146052 ), c2118 );
c2118 = CONS( _TSCP( 194780 ), c2118 );
c2118 = CONS( _TSCP( 44624 ), c2118 );
c2118 = CONS( _TSCP( 27656 ), c2118 );
c2118 = CONS( _TSCP( 76512 ), c2118 );
c2118 = CONS( _TSCP( 125112 ), c2118 );
c2118 = CONS( _TSCP( 106236 ), c2118 );
c2118 = CONS( _TSCP( 89252 ), c2118 );
c2118 = CONS( _TSCP( 6732 ), c2118 );
c2118 = CONS( _TSCP( 55316 ), c2118 );
c2118 = CONS( _TSCP( 167576 ), c2118 );
c2118 = CONS( _TSCP( 150720 ), c2118 );
c2118 = CONS( _TSCP( 199208 ), c2118 );
c2118 = CONS( _TSCP( 247920 ), c2118 );
c2118 = CONS( _TSCP( 262052 ), c2118 );
c2118 = CONS( _TSCP( 212476 ), c2118 );
c2118 = CONS( _TSCP( 162580 ), c2118 );
c2118 = CONS( _TSCP( 178508 ), c2118 );
c2118 = CONS( _TSCP( 61376 ), c2118 );
c2118 = CONS( _TSCP( 11672 ), c2118 );
c2118 = CONS( _TSCP( 93040 ), c2118 );
c2118 = CONS( _TSCP( 108840 ), c2118 );
c2118 = CONS( _TSCP( 122732 ), c2118 );
c2118 = CONS( _TSCP( 73012 ), c2118 );
c2118 = CONS( _TSCP( 23516 ), c2118 );
c2118 = CONS( _TSCP( 39300 ), c2118 );
c2118 = CONS( _TSCP( 184072 ), c2118 );
c2118 = CONS( _TSCP( 134480 ), c2118 );
c2118 = CONS( _TSCP( 215992 ), c2118 );
c2118 = CONS( _TSCP( 231904 ), c2118 );
c2118 = CONS( _TSCP( 212244 ), c2118 );
c2118 = CONS( _TSCP( 261964 ), c2118 );
c2118 = CONS( _TSCP( 178596 ), c2118 );
c2118 = CONS( _TSCP( 162812 ), c2118 );
c2118 = CONS( _TSCP( 11632 ), c2118 );
c2118 = CONS( _TSCP( 61224 ), c2118 );
c2118 = CONS( _TSCP( 108992 ), c2118 );
c2118 = CONS( _TSCP( 93080 ), c2118 );
c2118 = CONS( _TSCP( 73180 ), c2118 );
c2118 = CONS( _TSCP( 122756 ), c2118 );
c2118 = CONS( _TSCP( 39276 ), c2118 );
c2118 = CONS( _TSCP( 23348 ), c2118 );
c2118 = CONS( _TSCP( 134584 ), c2118 );
c2118 = CONS( _TSCP( 184288 ), c2118 );
c2118 = CONS( _TSCP( 231688 ), c2118 );
c2118 = CONS( _TSCP( 215888 ), c2118 );
c2118 = CONS( _TSCP( 228484 ), c2118 );
c2118 = CONS( _TSCP( 245468 ), c2118 );
c2118 = CONS( _TSCP( 194612 ), c2118 );
c2118 = CONS( _TSCP( 146028 ), c2118 );
c2118 = CONS( _TSCP( 27872 ), c2118 );
c2118 = CONS( _TSCP( 44728 ), c2118 );
c2118 = CONS( _TSCP( 125008 ), c2118 );
c2118 = CONS( _TSCP( 76296 ), c2118 );
c2118 = CONS( _TSCP( 89164 ), c2118 );
c2118 = CONS( _TSCP( 106004 ), c2118 );
c2118 = CONS( _TSCP( 55548 ), c2118 );
c2118 = CONS( _TSCP( 6820 ), c2118 );
c2118 = CONS( _TSCP( 150568 ), c2118 );
c2118 = CONS( _TSCP( 167536 ), c2118 );
c2118 = CONS( _TSCP( 247960 ), c2118 );
c2118 = CONS( _TSCP( 199360 ), c2118 );
c2118 = CONS( _TSCP( 178292 ), c2118 );
c2118 = CONS( _TSCP( 162348 ), c2118 );
c2118 = CONS( _TSCP( 212164 ), c2118 );
c2118 = CONS( _TSCP( 261788 ), c2118 );
c2118 = CONS( _TSCP( 108560 ), c2118 );
c2118 = CONS( _TSCP( 92744 ), c2118 );
c2118 = CONS( _TSCP( 11424 ), c2118 );
c2118 = CONS( _TSCP( 61176 ), c2118 );
c2118 = CONS( _TSCP( 39100 ), c2118 );
c2118 = CONS( _TSCP( 23268 ), c2118 );
c2118 = CONS( _TSCP( 72716 ), c2118 );
c2118 = CONS( _TSCP( 122452 ), c2118 );
c2118 = CONS( _TSCP( 231640 ), c2118 );
c2118 = CONS( _TSCP( 215680 ), c2118 );
c2118 = CONS( _TSCP( 134248 ), c2118 );
c2118 = CONS( _TSCP( 183856 ), c2118 );
c2118 = CONS( _TSCP( 195044 ), c2118 );
c2118 = CONS( _TSCP( 146364 ), c2118 );
c2118 = CONS( _TSCP( 228692 ), c2118 );
c2118 = CONS( _TSCP( 245516 ), c2118 );
c2118 = CONS( _TSCP( 125312 ), c2118 );
c2118 = CONS( _TSCP( 76760 ), c2118 );
c2118 = CONS( _TSCP( 27952 ), c2118 );
c2118 = CONS( _TSCP( 44904 ), c2118 );
c2118 = CONS( _TSCP( 55596 ), c2118 );
c2118 = CONS( _TSCP( 7028 ), c2118 );
c2118 = CONS( _TSCP( 89500 ), c2118 );
c2118 = CONS( _TSCP( 106436 ), c2118 );
c2118 = CONS( _TSCP( 248136 ), c2118 );
c2118 = CONS( _TSCP( 199440 ), c2118 );
c2118 = CONS( _TSCP( 151032 ), c2118 );
c2118 = CONS( _TSCP( 167840 ), c2118 );
c2118 = CONS( _TSCP( 146260 ), c2118 );
c2118 = CONS( _TSCP( 194828 ), c2118 );
c2118 = CONS( _TSCP( 245732 ), c2118 );
c2118 = CONS( _TSCP( 228796 ), c2118 );
c2118 = CONS( _TSCP( 76592 ), c2118 );
c2118 = CONS( _TSCP( 125288 ), c2118 );
c2118 = CONS( _TSCP( 44928 ), c2118 );
c2118 = CONS( _TSCP( 28120 ), c2118 );
c2118 = CONS( _TSCP( 7068 ), c2118 );
c2118 = CONS( _TSCP( 55748 ), c2118 );
c2118 = CONS( _TSCP( 106284 ), c2118 );
c2118 = CONS( _TSCP( 89460 ), c2118 );
c2118 = CONS( _TSCP( 199672 ), c2118 );
c2118 = CONS( _TSCP( 248224 ), c2118 );
c2118 = CONS( _TSCP( 167752 ), c2118 );
c2118 = CONS( _TSCP( 150800 ), c2118 );
c2118 = CONS( _TSCP( 162500 ), c2118 );
c2118 = CONS( _TSCP( 178332 ), c2118 );
c2118 = CONS( _TSCP( 261748 ), c2118 );
c2118 = CONS( _TSCP( 212012 ), c2118 );
c2118 = CONS( _TSCP( 92832 ), c2118 );
c2118 = CONS( _TSCP( 108792 ), c2118 );
c2118 = CONS( _TSCP( 60944 ), c2118 );
c2118 = CONS( _TSCP( 11336 ), c2118 );
c2118 = CONS( _TSCP( 23052 ), c2118 );
c2118 = CONS( _TSCP( 38996 ), c2118 );
c2118 = CONS( _TSCP( 122556 ), c2118 );
c2118 = CONS( _TSCP( 72932 ), c2118 );
c2118 = CONS( _TSCP( 215656 ), c2118 );
c2118 = CONS( _TSCP( 231472 ), c2118 );
c2118 = CONS( _TSCP( 184024 ), c2118 );
c2118 = CONS( _TSCP( 134272 ), c2118 );
c2118 = CONS( _TSCP( 111284 ), c2118 );
c2118 = CONS( _TSCP( 94444 ), c2118 );
c2118 = CONS( _TSCP( 13828 ), c2118 );
c2118 = CONS( _TSCP( 62556 ), c2118 );
c2118 = CONS( _TSCP( 172752 ), c2118 );
c2118 = CONS( _TSCP( 155784 ), c2118 );
c2118 = CONS( _TSCP( 206432 ), c2118 );
c2118 = CONS( _TSCP( 255032 ), c2118 );
c2118 = CONS( _TSCP( 234108 ), c2118 );
c2118 = CONS( _TSCP( 217124 ), c2118 );
c2118 = CONS( _TSCP( 136908 ), c2118 );
c2118 = CONS( _TSCP( 185492 ), c2118 );
c2118 = CONS( _TSCP( 33304 ), c2118 );
c2118 = CONS( _TSCP( 16448 ), c2118 );
c2118 = CONS( _TSCP( 67240 ), c2118 );
c2118 = CONS( _TSCP( 115952 ), c2118 );
c2118 = CONS( _TSCP( 127780 ), c2118 );
c2118 = CONS( _TSCP( 78204 ), c2118 );
c2118 = CONS( _TSCP( 30612 ), c2118 );
c2118 = CONS( _TSCP( 46540 ), c2118 );
c2118 = CONS( _TSCP( 189248 ), c2118 );
c2118 = CONS( _TSCP( 139544 ), c2118 );
c2118 = CONS( _TSCP( 223216 ), c2118 );
c2118 = CONS( _TSCP( 239016 ), c2118 );
c2118 = CONS( _TSCP( 250860 ), c2118 );
c2118 = CONS( _TSCP( 201140 ), c2118 );
c2118 = CONS( _TSCP( 153436 ), c2118 );
c2118 = CONS( _TSCP( 169220 ), c2118 );
c2118 = CONS( _TSCP( 50056 ), c2118 );
c2118 = CONS( _TSCP( 464 ), c2118 );
c2118 = CONS( _TSCP( 83768 ), c2118 );
c2118 = CONS( _TSCP( 99680 ), c2118 );
c2118 = CONS( _TSCP( 78228 ), c2118 );
c2118 = CONS( _TSCP( 127948 ), c2118 );
c2118 = CONS( _TSCP( 46372 ), c2118 );
c2118 = CONS( _TSCP( 30588 ), c2118 );
c2118 = CONS( _TSCP( 139760 ), c2118 );
c2118 = CONS( _TSCP( 189352 ), c2118 );
c2118 = CONS( _TSCP( 238912 ), c2118 );
c2118 = CONS( _TSCP( 223000 ), c2118 );
c2118 = CONS( _TSCP( 201052 ), c2118 );
c2118 = CONS( _TSCP( 250628 ), c2118 );
c2118 = CONS( _TSCP( 169452 ), c2118 );
c2118 = CONS( _TSCP( 153524 ), c2118 );
c2118 = CONS( _TSCP( 312 ), c2118 );
c2118 = CONS( _TSCP( 50016 ), c2118 );
c2118 = CONS( _TSCP( 99720 ), c2118 );
c2118 = CONS( _TSCP( 83920 ), c2118 );
c2118 = CONS( _TSCP( 94212 ), c2118 );
c2118 = CONS( _TSCP( 111196 ), c2118 );
c2118 = CONS( _TSCP( 62644 ), c2118 );
c2118 = CONS( _TSCP( 14060 ), c2118 );
c2118 = CONS( _TSCP( 155744 ), c2118 );
c2118 = CONS( _TSCP( 172600 ), c2118 );
c2118 = CONS( _TSCP( 255184 ), c2118 );
c2118 = CONS( _TSCP( 206472 ), c2118 );
c2118 = CONS( _TSCP( 217292 ), c2118 );
c2118 = CONS( _TSCP( 234132 ), c2118 );
c2118 = CONS( _TSCP( 185468 ), c2118 );
c2118 = CONS( _TSCP( 136740 ), c2118 );
c2118 = CONS( _TSCP( 16552 ), c2118 );
c2118 = CONS( _TSCP( 33520 ), c2118 );
c2118 = CONS( _TSCP( 115736 ), c2118 );
c2118 = CONS( _TSCP( 67136 ), c2118 );
c2118 = CONS( _TSCP( 46324 ), c2118 );
c2118 = CONS( _TSCP( 30380 ), c2118 );
c2118 = CONS( _TSCP( 77892 ), c2118 );
c2118 = CONS( _TSCP( 127516 ), c2118 );
c2118 = CONS( _TSCP( 238736 ), c2118 );
c2118 = CONS( _TSCP( 222920 ), c2118 );
c2118 = CONS( _TSCP( 139296 ), c2118 );
c2118 = CONS( _TSCP( 189048 ), c2118 );
c2118 = CONS( _TSCP( 169020 ), c2118 );
c2118 = CONS( _TSCP( 153188 ), c2118 );
c2118 = CONS( _TSCP( 200844 ), c2118 );
c2118 = CONS( _TSCP( 250580 ), c2118 );
c2118 = CONS( _TSCP( 99416 ), c2118 );
c2118 = CONS( _TSCP( 83456 ), c2118 );
c2118 = CONS( _TSCP( 232 ), c2118 );
c2118 = CONS( _TSCP( 49840 ), c2118 );
c2118 = CONS( _TSCP( 62820 ), c2118 );
c2118 = CONS( _TSCP( 14140 ), c2118 );
c2118 = CONS( _TSCP( 94676 ), c2118 );
c2118 = CONS( _TSCP( 111500 ), c2118 );
c2118 = CONS( _TSCP( 255232 ), c2118 );
c2118 = CONS( _TSCP( 206680 ), c2118 );
c2118 = CONS( _TSCP( 156080 ), c2118 );
c2118 = CONS( _TSCP( 173032 ), c2118 );
c2118 = CONS( _TSCP( 185772 ), c2118 );
c2118 = CONS( _TSCP( 137204 ), c2118 );
c2118 = CONS( _TSCP( 217372 ), c2118 );
c2118 = CONS( _TSCP( 234308 ), c2118 );
c2118 = CONS( _TSCP( 116168 ), c2118 );
c2118 = CONS( _TSCP( 67472 ), c2118 );
c2118 = CONS( _TSCP( 16760 ), c2118 );
c2118 = CONS( _TSCP( 33568 ), c2118 );
c2118 = CONS( _TSCP( 14292 ), c2118 );
c2118 = CONS( _TSCP( 62860 ), c2118 );
c2118 = CONS( _TSCP( 111460 ), c2118 );
c2118 = CONS( _TSCP( 94524 ), c2118 );
c2118 = CONS( _TSCP( 206768 ), c2118 );
c2118 = CONS( _TSCP( 255464 ), c2118 );
c2118 = CONS( _TSCP( 172800 ), c2118 );
c2118 = CONS( _TSCP( 155992 ), c2118 );
c2118 = CONS( _TSCP( 136988 ), c2118 );
c2118 = CONS( _TSCP( 185668 ), c2118 );
c2118 = CONS( _TSCP( 234412 ), c2118 );
c2118 = CONS( _TSCP( 217588 ), c2118 );
c2118 = CONS( _TSCP( 67448 ), c2118 );
c2118 = CONS( _TSCP( 116000 ), c2118 );
c2118 = CONS( _TSCP( 33736 ), c2118 );
c2118 = CONS( _TSCP( 16784 ), c2118 );
c2118 = CONS( _TSCP( 30276 ), c2118 );
c2118 = CONS( _TSCP( 46108 ), c2118 );
c2118 = CONS( _TSCP( 127732 ), c2118 );
c2118 = CONS( _TSCP( 77996 ), c2118 );
c2118 = CONS( _TSCP( 222752 ), c2118 );
c2118 = CONS( _TSCP( 238712 ), c2118 );
c2118 = CONS( _TSCP( 189072 ), c2118 );
c2118 = CONS( _TSCP( 139464 ), c2118 );
c2118 = CONS( _TSCP( 153228 ), c2118 );
c2118 = CONS( _TSCP( 169172 ), c2118 );
c2118 = CONS( _TSCP( 250428 ), c2118 );
c2118 = CONS( _TSCP( 200804 ), c2118 );
c2118 = CONS( _TSCP( 83688 ), c2118 );
c2118 = CONS( _TSCP( 99504 ), c2118 );
c2118 = CONS( _TSCP( 49752 ), c2118 );
c2118 = CONS( _TSCP( 0 ), c2118 );
c2118 = LISTTOVECTOR( c2118 );
CONSTANTEXP( ADR( c2118 ) );
c2117 = EMPTYLIST;
c2117 = CONS( _TSCP( 46088 ), c2117 );
c2117 = CONS( _TSCP( 92180 ), c2117 );
c2117 = CONS( _TSCP( 199728 ), c2117 );
c2117 = CONS( _TSCP( 184364 ), c2117 );
c2117 = CONS( _TSCP( 43452 ), c2117 );
c2117 = CONS( _TSCP( 95648 ), c2117 );
c2117 = CONS( _TSCP( 201092 ), c2117 );
c2117 = CONS( _TSCP( 183704 ), c2117 );
c2117 = CONS( _TSCP( 36708 ), c2117 );
c2117 = CONS( _TSCP( 86904 ), c2117 );
c2117 = CONS( _TSCP( 210780 ), c2117 );
c2117 = CONS( _TSCP( 191296 ), c2117 );
c2117 = CONS( _TSCP( 37584 ), c2117 );
c2117 = CONS( _TSCP( 85708 ), c2117 );
c2117 = CONS( _TSCP( 207592 ), c2117 );
c2117 = CONS( _TSCP( 194292 ), c2117 );
c2117 = CONS( _TSCP( 49876 ), c2117 );
c2117 = CONS( _TSCP( 73416 ), c2117 );
c2117 = CONS( _TSCP( 228076 ), c2117 );
c2117 = CONS( _TSCP( 173808 ), c2117 );
c2117 = CONS( _TSCP( 57184 ), c2117 );
c2117 = CONS( _TSCP( 66428 ), c2117 );
c2117 = CONS( _TSCP( 223064 ), c2117 );
c2117 = CONS( _TSCP( 179012 ), c2117 );
c2117 = CONS( _TSCP( 63928 ), c2117 );
c2117 = CONS( _TSCP( 75172 ), c2117 );
c2117 = CONS( _TSCP( 213376 ), c2117 );
c2117 = CONS( _TSCP( 171420 ), c2117 );
c2117 = CONS( _TSCP( 58380 ), c2117 );
c2117 = CONS( _TSCP( 79888 ), c2117 );
c2117 = CONS( _TSCP( 220212 ), c2117 );
c2117 = CONS( _TSCP( 163880 ), c2117 );
c2117 = CONS( _TSCP( 22960 ), c2117 );
c2117 = CONS( _TSCP( 99756 ), c2117 );
c2117 = CONS( _TSCP( 254344 ), c2117 );
c2117 = CONS( _TSCP( 146836 ), c2117 );
c2117 = CONS( _TSCP( 17412 ), c2117 );
c2117 = CONS( _TSCP( 104472 ), c2117 );
c2117 = CONS( _TSCP( 261180 ), c2117 );
c2117 = CONS( _TSCP( 139296 ), c2117 );
c2117 = CONS( _TSCP( 25308 ), c2117 );
c2117 = CONS( _TSCP( 114368 ), c2117 );
c2117 = CONS( _TSCP( 252644 ), c2117 );
c2117 = CONS( _TSCP( 132856 ), c2117 );
c2117 = CONS( _TSCP( 32616 ), c2117 );
c2117 = CONS( _TSCP( 107380 ), c2117 );
c2117 = CONS( _TSCP( 247632 ), c2117 );
c2117 = CONS( _TSCP( 138060 ), c2117 );
c2117 = CONS( _TSCP( 12140 ), c2117 );
c2117 = CONS( _TSCP( 127856 ), c2117 );
c2117 = CONS( _TSCP( 235348 ), c2117 );
c2117 = CONS( _TSCP( 150344 ), c2117 );
c2117 = CONS( _TSCP( 13016 ), c2117 );
c2117 = CONS( _TSCP( 126660 ), c2117 );
c2117 = CONS( _TSCP( 232160 ), c2117 );
c2117 = CONS( _TSCP( 153340 ), c2117 );
c2117 = CONS( _TSCP( 5120 ), c2117 );
c2117 = CONS( _TSCP( 116764 ), c2117 );
c2117 = CONS( _TSCP( 240696 ), c2117 );
c2117 = CONS( _TSCP( 159780 ), c2117 );
c2117 = CONS( _TSCP( 2484 ), c2117 );
c2117 = CONS( _TSCP( 120232 ), c2117 );
c2117 = CONS( _TSCP( 242060 ), c2117 );
c2117 = CONS( _TSCP( 159120 ), c2117 );
c2117 = CONS( _TSCP( 94072 ), c2117 );
c2117 = CONS( _TSCP( 45924 ), c2117 );
c2117 = CONS( _TSCP( 186176 ), c2117 );
c2117 = CONS( _TSCP( 199516 ), c2117 );
c2117 = CONS( _TSCP( 94924 ), c2117 );
c2117 = CONS( _TSCP( 44752 ), c2117 );
c2117 = CONS( _TSCP( 183028 ), c2117 );
c2117 = CONS( _TSCP( 202472 ), c2117 );
c2117 = CONS( _TSCP( 87060 ), c2117 );
c2117 = CONS( _TSCP( 34824 ), c2117 );
c2117 = CONS( _TSCP( 191532 ), c2117 );
c2117 = CONS( _TSCP( 208944 ), c2117 );
c2117 = CONS( _TSCP( 84384 ), c2117 );
c2117 = CONS( _TSCP( 38332 ), c2117 );
c2117 = CONS( _TSCP( 192920 ), c2117 );
c2117 = CONS( _TSCP( 208260 ), c2117 );
c2117 = CONS( _TSCP( 72100 ), c2117 );
c2117 = CONS( _TSCP( 50616 ), c2117 );
c2117 = CONS( _TSCP( 172444 ), c2117 );
c2117 = CONS( _TSCP( 228736 ), c2117 );
c2117 = CONS( _TSCP( 66576 ), c2117 );
c2117 = CONS( _TSCP( 55308 ), c2117 );
c2117 = CONS( _TSCP( 179240 ), c2117 );
c2117 = CONS( _TSCP( 221236 ), c2117 );
c2117 = CONS( _TSCP( 74440 ), c2117 );
c2117 = CONS( _TSCP( 65236 ), c2117 );
c2117 = CONS( _TSCP( 170736 ), c2117 );
c2117 = CONS( _TSCP( 214764 ), c2117 );
c2117 = CONS( _TSCP( 81788 ), c2117 );
c2117 = CONS( _TSCP( 58208 ), c2117 );
c2117 = CONS( _TSCP( 165700 ), c2117 );
c2117 = CONS( _TSCP( 219992 ), c2117 );
c2117 = CONS( _TSCP( 99008 ), c2117 );
c2117 = CONS( _TSCP( 24284 ), c2117 );
c2117 = CONS( _TSCP( 146168 ), c2117 );
c2117 = CONS( _TSCP( 255716 ), c2117 );
c2117 = CONS( _TSCP( 106356 ), c2117 );
c2117 = CONS( _TSCP( 17256 ), c2117 );
c2117 = CONS( _TSCP( 141132 ), c2117 );
c2117 = CONS( _TSCP( 260944 ), c2117 );
c2117 = CONS( _TSCP( 113068 ), c2117 );
c2117 = CONS( _TSCP( 26032 ), c2117 );
c2117 = CONS( _TSCP( 131476 ), c2117 );
c2117 = CONS( _TSCP( 253320 ), c2117 );
c2117 = CONS( _TSCP( 107544 ), c2117 );
c2117 = CONS( _TSCP( 30724 ), c2117 );
c2117 = CONS( _TSCP( 138272 ), c2117 );
c2117 = CONS( _TSCP( 245820 ), c2117 );
c2117 = CONS( _TSCP( 128028 ), c2117 );
c2117 = CONS( _TSCP( 10240 ), c2117 );
c2117 = CONS( _TSCP( 150564 ), c2117 );
c2117 = CONS( _TSCP( 233528 ), c2117 );
c2117 = CONS( _TSCP( 125352 ), c2117 );
c2117 = CONS( _TSCP( 13748 ), c2117 );
c2117 = CONS( _TSCP( 151952 ), c2117 );
c2117 = CONS( _TSCP( 232844 ), c2117 );
c2117 = CONS( _TSCP( 118640 ), c2117 );
c2117 = CONS( _TSCP( 4972 ), c2117 );
c2117 = CONS( _TSCP( 161608 ), c2117 );
c2117 = CONS( _TSCP( 240468 ), c2117 );
c2117 = CONS( _TSCP( 119492 ), c2117 );
c2117 = CONS( _TSCP( 3800 ), c2117 );
c2117 = CONS( _TSCP( 158460 ), c2117 );
c2117 = CONS( _TSCP( 243424 ), c2117 );
c2117 = CONS( _TSCP( 197352 ), c2117 );
c2117 = CONS( _TSCP( 188148 ), c2117 );
c2117 = CONS( _TSCP( 47824 ), c2117 );
c2117 = CONS( _TSCP( 91852 ), c2117 );
c2117 = CONS( _TSCP( 204636 ), c2117 );
c2117 = CONS( _TSCP( 181056 ), c2117 );
c2117 = CONS( _TSCP( 42852 ), c2117 );
c2117 = CONS( _TSCP( 97144 ), c2117 );
c2117 = CONS( _TSCP( 211332 ), c2117 );
c2117 = CONS( _TSCP( 189848 ), c2117 );
c2117 = CONS( _TSCP( 33212 ), c2117 );
c2117 = CONS( _TSCP( 89504 ), c2117 );
c2117 = CONS( _TSCP( 205872 ), c2117 );
c2117 = CONS( _TSCP( 194604 ), c2117 );
c2117 = CONS( _TSCP( 39944 ), c2117 );
c2117 = CONS( _TSCP( 81940 ), c2117 );
c2117 = CONS( _TSCP( 226356 ), c2117 );
c2117 = CONS( _TSCP( 174120 ), c2117 );
c2117 = CONS( _TSCP( 52236 ), c2117 );
c2117 = CONS( _TSCP( 69648 ), c2117 );
c2117 = CONS( _TSCP( 223616 ), c2117 );
c2117 = CONS( _TSCP( 177564 ), c2117 );
c2117 = CONS( _TSCP( 53688 ), c2117 );
c2117 = CONS( _TSCP( 69028 ), c2117 );
c2117 = CONS( _TSCP( 216920 ), c2117 );
c2117 = CONS( _TSCP( 168772 ), c2117 );
c2117 = CONS( _TSCP( 63328 ), c2117 );
c2117 = CONS( _TSCP( 76668 ), c2117 );
c2117 = CONS( _TSCP( 217836 ), c2117 );
c2117 = CONS( _TSCP( 167664 ), c2117 );
c2117 = CONS( _TSCP( 60116 ), c2117 );
c2117 = CONS( _TSCP( 79560 ), c2117 );
c2117 = CONS( _TSCP( 257872 ), c2117 );
c2117 = CONS( _TSCP( 144204 ), c2117 );
c2117 = CONS( _TSCP( 22376 ), c2117 );
c2117 = CONS( _TSCP( 101236 ), c2117 );
c2117 = CONS( _TSCP( 258788 ), c2117 );
c2117 = CONS( _TSCP( 143096 ), c2117 );
c2117 = CONS( _TSCP( 19164 ), c2117 );
c2117 = CONS( _TSCP( 104128 ), c2117 );
c2117 = CONS( _TSCP( 250940 ), c2117 );
c2117 = CONS( _TSCP( 133152 ), c2117 );
c2117 = CONS( _TSCP( 27652 ), c2117 );
c2117 = CONS( _TSCP( 110616 ), c2117 );
c2117 = CONS( _TSCP( 248200 ), c2117 );
c2117 = CONS( _TSCP( 136596 ), c2117 );
c2117 = CONS( _TSCP( 29104 ), c2117 );
c2117 = CONS( _TSCP( 109996 ), c2117 );
c2117 = CONS( _TSCP( 235916 ), c2117 );
c2117 = CONS( _TSCP( 148880 ), c2117 );
c2117 = CONS( _TSCP( 8628 ), c2117 );
c2117 = CONS( _TSCP( 130472 ), c2117 );
c2117 = CONS( _TSCP( 230456 ), c2117 );
c2117 = CONS( _TSCP( 153636 ), c2117 );
c2117 = CONS( _TSCP( 15360 ), c2117 );
c2117 = CONS( _TSCP( 122908 ), c2117 );
c2117 = CONS( _TSCP( 238304 ), c2117 );
c2117 = CONS( _TSCP( 163580 ), c2117 );
c2117 = CONS( _TSCP( 6872 ), c2117 );
c2117 = CONS( _TSCP( 116420 ), c2117 );
c2117 = CONS( _TSCP( 245588 ), c2117 );
c2117 = CONS( _TSCP( 156488 ), c2117 );
c2117 = CONS( _TSCP( 1900 ), c2117 );
c2117 = CONS( _TSCP( 121712 ), c2117 );
c2117 = CONS( _TSCP( 186776 ), c2117 );
c2117 = CONS( _TSCP( 198020 ), c2117 );
c2117 = CONS( _TSCP( 90528 ), c2117 );
c2117 = CONS( _TSCP( 48572 ), c2117 );
c2117 = CONS( _TSCP( 181292 ), c2117 );
c2117 = CONS( _TSCP( 202800 ), c2117 );
c2117 = CONS( _TSCP( 97300 ), c2117 );
c2117 = CONS( _TSCP( 40968 ), c2117 );
c2117 = CONS( _TSCP( 189172 ), c2117 );
c2117 = CONS( _TSCP( 212712 ), c2117 );
c2117 = CONS( _TSCP( 88780 ), c2117 );
c2117 = CONS( _TSCP( 34512 ), c2117 );
c2117 = CONS( _TSCP( 196416 ), c2117 );
c2117 = CONS( _TSCP( 205660 ), c2117 );
c2117 = CONS( _TSCP( 83832 ), c2117 );
c2117 = CONS( _TSCP( 39780 ), c2117 );
c2117 = CONS( _TSCP( 175940 ), c2117 );
c2117 = CONS( _TSCP( 226136 ), c2117 );
c2117 = CONS( _TSCP( 71548 ), c2117 );
c2117 = CONS( _TSCP( 52064 ), c2117 );
c2117 = CONS( _TSCP( 176880 ), c2117 );
c2117 = CONS( _TSCP( 225004 ), c2117 );
c2117 = CONS( _TSCP( 68296 ), c2117 );
c2117 = CONS( _TSCP( 54996 ), c2117 );
c2117 = CONS( _TSCP( 169000 ), c2117 );
c2117 = CONS( _TSCP( 215092 ), c2117 );
c2117 = CONS( _TSCP( 76816 ), c2117 );
c2117 = CONS( _TSCP( 61452 ), c2117 );
c2117 = CONS( _TSCP( 166300 ), c2117 );
c2117 = CONS( _TSCP( 218496 ), c2117 );
c2117 = CONS( _TSCP( 78244 ), c2117 );
c2117 = CONS( _TSCP( 60856 ), c2117 );
c2117 = CONS( _TSCP( 144416 ), c2117 );
c2117 = CONS( _TSCP( 256060 ), c2117 );
c2117 = CONS( _TSCP( 101400 ), c2117 );
c2117 = CONS( _TSCP( 20484 ), c2117 );
c2117 = CONS( _TSCP( 141716 ), c2117 );
c2117 = CONS( _TSCP( 259464 ), c2117 );
c2117 = CONS( _TSCP( 102828 ), c2117 );
c2117 = CONS( _TSCP( 19888 ), c2117 );
c2117 = CONS( _TSCP( 134988 ), c2117 );
c2117 = CONS( _TSCP( 250704 ), c2117 );
c2117 = CONS( _TSCP( 112500 ), c2117 );
c2117 = CONS( _TSCP( 27496 ), c2117 );
c2117 = CONS( _TSCP( 135928 ), c2117 );
c2117 = CONS( _TSCP( 249572 ), c2117 );
c2117 = CONS( _TSCP( 109248 ), c2117 );
c2117 = CONS( _TSCP( 30428 ), c2117 );
c2117 = CONS( _TSCP( 148220 ), c2117 );
c2117 = CONS( _TSCP( 237280 ), c2117 );
c2117 = CONS( _TSCP( 129732 ), c2117 );
c2117 = CONS( _TSCP( 9944 ), c2117 );
c2117 = CONS( _TSCP( 155464 ), c2117 );
c2117 = CONS( _TSCP( 230228 ), c2117 );
c2117 = CONS( _TSCP( 124784 ), c2117 );
c2117 = CONS( _TSCP( 15212 ), c2117 );
c2117 = CONS( _TSCP( 162192 ), c2117 );
c2117 = CONS( _TSCP( 238988 ), c2117 );
c2117 = CONS( _TSCP( 115112 ), c2117 );
c2117 = CONS( _TSCP( 7604 ), c2117 );
c2117 = CONS( _TSCP( 156708 ), c2117 );
c2117 = CONS( _TSCP( 243768 ), c2117 );
c2117 = CONS( _TSCP( 121884 ), c2117 );
c2117 = CONS( _TSCP( 0 ), c2117 );
c2117 = LISTTOVECTOR( c2117 );
CONSTANTEXP( ADR( c2117 ) );
c1965 = STRINGTOSYMBOL( U_TX( ADR( t2644 ) ) );
CONSTANTEXP( ADR( c1965 ) );
c1875 = STRINGTOSYMBOL( U_TX( ADR( t2648 ) ) );
CONSTANTEXP( ADR( c1875 ) );
c1796 = STRINGTOSYMBOL( U_TX( ADR( t2650 ) ) );
CONSTANTEXP( ADR( c1796 ) );
c1784 = STRINGTOSYMBOL( U_TX( ADR( t2652 ) ) );
CONSTANTEXP( ADR( c1784 ) );
c1685 = STRINGTOSYMBOL( U_TX( ADR( t2653 ) ) );
CONSTANTEXP( ADR( c1685 ) );
c1676 = STRINGTOSYMBOL( U_TX( ADR( t2654 ) ) );
CONSTANTEXP( ADR( c1676 ) );
c1664 = STRINGTOSYMBOL( U_TX( ADR( t2656 ) ) );
CONSTANTEXP( ADR( c1664 ) );
c1635 = STRINGTOSYMBOL( U_TX( ADR( t2659 ) ) );
CONSTANTEXP( ADR( c1635 ) );
c1627 = STRINGTOSYMBOL( U_TX( ADR( t2661 ) ) );
CONSTANTEXP( ADR( c1627 ) );
c1606 = STRINGTOSYMBOL( U_TX( ADR( t2663 ) ) );
CONSTANTEXP( ADR( c1606 ) );
c1557 = STRINGTOSYMBOL( U_TX( ADR( t2664 ) ) );
CONSTANTEXP( ADR( c1557 ) );
c1538 = STRINGTOSYMBOL( U_TX( ADR( t2665 ) ) );
CONSTANTEXP( ADR( c1538 ) );
c1471 = EMPTYLIST;
c1471 = CONS( t2621, c1471 );
c1471 = CONS( c2284, c1471 );
CONSTANTEXP( ADR( c1471 ) );
c1430 = STRINGTOSYMBOL( U_TX( ADR( t2667 ) ) );
CONSTANTEXP( ADR( c1430 ) );
c1417 = STRINGTOSYMBOL( U_TX( ADR( t2668 ) ) );
CONSTANTEXP( ADR( c1417 ) );
c1404 = STRINGTOSYMBOL( U_TX( ADR( t2669 ) ) );
CONSTANTEXP( ADR( c1404 ) );
c1391 = STRINGTOSYMBOL( U_TX( ADR( t2670 ) ) );
CONSTANTEXP( ADR( c1391 ) );
c1378 = STRINGTOSYMBOL( U_TX( ADR( t2671 ) ) );
CONSTANTEXP( ADR( c1378 ) );
c1365 = STRINGTOSYMBOL( U_TX( ADR( t2672 ) ) );
CONSTANTEXP( ADR( c1365 ) );
c1352 = STRINGTOSYMBOL( U_TX( ADR( t2673 ) ) );
CONSTANTEXP( ADR( c1352 ) );
c1339 = STRINGTOSYMBOL( U_TX( ADR( t2674 ) ) );
CONSTANTEXP( ADR( c1339 ) );
c1326 = STRINGTOSYMBOL( U_TX( ADR( t2675 ) ) );
CONSTANTEXP( ADR( c1326 ) );
c1313 = STRINGTOSYMBOL( U_TX( ADR( t2676 ) ) );
CONSTANTEXP( ADR( c1313 ) );
c1300 = STRINGTOSYMBOL( U_TX( ADR( t2677 ) ) );
CONSTANTEXP( ADR( c1300 ) );
c1287 = STRINGTOSYMBOL( U_TX( ADR( t2678 ) ) );
CONSTANTEXP( ADR( c1287 ) );
c1250 = STRINGTOSYMBOL( U_TX( ADR( t2679 ) ) );
CONSTANTEXP( ADR( c1250 ) );
c1225 = STRINGTOSYMBOL( U_TX( ADR( t2680 ) ) );
CONSTANTEXP( ADR( c1225 ) );
c1208 = STRINGTOSYMBOL( U_TX( ADR( t2682 ) ) );
CONSTANTEXP( ADR( c1208 ) );
c1177 = STRINGTOSYMBOL( U_TX( ADR( t2683 ) ) );
CONSTANTEXP( ADR( c1177 ) );
c1172 = STRINGTOSYMBOL( U_TX( ADR( t2684 ) ) );
CONSTANTEXP( ADR( c1172 ) );
c1169 = STRINGTOSYMBOL( U_TX( ADR( t2685 ) ) );
CONSTANTEXP( ADR( c1169 ) );
c1150 = EMPTYLIST;
c1150 = CONS( FALSEVALUE, c1150 );
c1150 = CONS( TRUEVALUE, c1150 );
CONSTANTEXP( ADR( c1150 ) );
c1099 = STRINGTOSYMBOL( U_TX( ADR( t2687 ) ) );
CONSTANTEXP( ADR( c1099 ) );
c1086 = STRINGTOSYMBOL( U_TX( ADR( t2689 ) ) );
CONSTANTEXP( ADR( c1086 ) );
c1082 = STRINGTOSYMBOL( U_TX( ADR( t2690 ) ) );
CONSTANTEXP( ADR( c1082 ) );
c1078 = STRINGTOSYMBOL( U_TX( ADR( t2691 ) ) );
CONSTANTEXP( ADR( c1078 ) );
c1077 = STRINGTOSYMBOL( U_TX( ADR( t2692 ) ) );
CONSTANTEXP( ADR( c1077 ) );
c1029 = STRINGTOSYMBOL( U_TX( ADR( t2693 ) ) );
CONSTANTEXP( ADR( c1029 ) );
}
DEFTSCP( expform_global_2dfree_2dvars_v );
DEFSTRING( t2694, "GLOBAL-FREE-VARS", 16 );
DEFTSCP( expform_lexical_2dfree_2dvars_v );
DEFSTRING( t2695, "LEXICAL-FREE-VARS", 17 );
DEFTSCP( expform_und_2dvars_85c10849_v );
DEFSTRING( t2696, "LEXICAL-BOUND-VARS", 18 );
DEFTSCP( expform_current_2dlambda_2did_v );
DEFSTRING( t2697, "CURRENT-LAMBDA-ID", 17 );
DEFTSCP( expform_make_2dalpha_2dseq_v );
DEFSTRING( t2698, "MAKE-ALPHA-SEQ", 14 );
DEFTSCP( expform_expand_2dforms_v );
DEFSTRING( t2699, "EXPAND-FORMS", 12 );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( expform_exp_2dform );
EXTERNTSCP( expform_exp_2dform_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( expform_hex28 );
EXTERNTSCP( expform_hex28_v );
EXTERNTSCP( sc_emptystring );
EXTERNTSCPP( expform_lchexname );
EXTERNTSCP( expform_lchexname_v );
TSCP expform_expand_2dforms( )
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2699 ) ) );
X1 = EMPTYLIST;
X1 = CONS( X1, EMPTYLIST );
X3 = SYMBOL_VALUE( read_2dtext_v );
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
L2703:
X2 = CONS( X2, EMPTYLIST );
if ( FALSE( scrt6_eof_2dobject_3f( PAIR_CAR( X2 ) ) )
) goto L2704;
X3 = scrt1_reverse( PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X3 );
goto L2705;
L2704:
expform_lexical_2dfree_2dvars_v = EMPTYLIST;
expform_current_2dlambda_2did_v = c1029;
X3 = expform_exp_2dform( PAIR_CAR( X2 ),
expform_exp_2dform_v );
SETGEN( PAIR_CAR( X2 ), X3 );
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L2707;
X3 = sc_cons( PAIR_CAR( X2 ), PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X3 );
L2707:
X3 = SYMBOL_VALUE( read_2dtext_v );
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
goto L2703;
L2705:
X2 = expform_global_2dfree_2dvars_v;
X3 = X2;
L2711:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2712;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2716;
scrt1__24__car_2derror( X3 );
L2716:
X4 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2720;
scrt1__24__car_2derror( X4 );
L2720:
X5 = PAIR_CAR( X4 );
X7 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2724;
scrt1__24__car_2derror( X7 );
L2724:
X6 = PAIR_CAR( X7 );
X7 = plist_get( X6, c1077 );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1078 ) ) ) goto L2729;
if ( TRUE( plist_get( X6, c1082 ) ) ) goto L2729;
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
plist_get( X6, c1086 ) );
X7 = SYMBOL_VALUE( report_2dwarning_v );
X7 = UNKNOWNCALL( X7, 2 );
VIA( PROCEDURE_CODE( X7 ) )( c1089,
X5, PROCEDURE_CLOSURE( X7 ) );
plist_put( X6, c1077, c1029 );
plist_put( X6, c1082, c1029 );
X8 = CONS( c1101, EMPTYLIST );
X9 = expform_lchexname( X5 );
X7 = scrt3_string_2dappend( CONS( expform_hex28( sc_emptystring,
X9 ),
X8 ) );
plist_put( X6, c1099, X7 );
X9 = sc_cons( X6, EMPTYLIST );
X8 = sc_cons( X5, X9 );
X7 = X8;
X8 = SYMBOL_VALUE( quote_2dconstants_v );
SETGENTL( SYMBOL_VALUE( quote_2dconstants_v ),
sc_cons( X7, X8 ) );
L2729:
X3 = PAIR_CDR( X3 );
goto L2711;
L2712:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( expform_exp_2dform_v );
DEFSTRING( t2734, "EXP-FORM", 8 );
EXTERNTSCPP( expform_bound );
EXTERNTSCP( expform_bound_v );
EXTERNTSCPP( scrt1_member );
EXTERNTSCP( scrt1_member_v );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( expform_expand_2derror );
EXTERNTSCP( expform_expand_2derror_v );
TSCP expform_exp_2dform( e1120, e1121 )
TSCP e1120, e1121;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2734 ) ) );
if ( NOT( AND( EQ( TSCPTAG( e1120 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1120 ), SYMBOLTAG ) ) )
) goto L2736;
POPSTACKTRACE( expform_bound( e1120 ) );
L2736:
if ( NEQ( TSCPTAG( e1120 ), FIXNUMTAG ) ) goto L2738;
X1 = TRUEVALUE;
goto L2739;
L2738:
X1 = BOOLEAN( AND( EQ( TSCPTAG( e1120 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1120 ),
FLOATTAG ) ) );
L2739:
if ( TRUE( X1 ) ) goto L2744;
if ( AND( EQ( TSCPTAG( e1120 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1120 ), STRINGTAG ) )
) goto L2744;
if ( EQ( TSCPIMMEDIATETAG( e1120 ), CHARACTERTAG ) ) goto L2744;
if ( TRUE( scrt1_member( e1120, c1150 ) ) ) goto L2744;
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X2 ) )( e1120,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X2 ) ) )
) goto L2755;
if ( EQ( TSCPTAG( e1120 ), PAIRTAG ) ) goto L2760;
scrt1__24__car_2derror( e1120 );
L2760:
X3 = PAIR_CAR( e1120 );
if ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) )
) goto L2757;
X3 = PAIR_CAR( e1120 );
X2 = plist_get( X3, c1169 );
goto L2758;
L2757:
X2 = EMPTYLIST;
L2758:
if ( FALSE( X2 ) ) goto L2764;
X3 = X2;
goto L2765;
L2764:
X3 = SYMBOL_VALUE( call_2dexp_v );
L2765:
X6 = sc_cons( e1121, EMPTYLIST );
X5 = sc_cons( e1120, X6 );
X4 = X5;
POPSTACKTRACE( sc_apply_2dtwo( X3, X4 ) );
L2755:
POPSTACKTRACE( expform_expand_2derror( sc_emptystring, e1120 ) );
L2744:
X4 = sc_cons( e1120, EMPTYLIST );
X3 = sc_cons( c1172, X4 );
X2 = X3;
X1 = e1121;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1121,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( expform_exp_2dform_2dlist_v );
DEFSTRING( t2768, "EXP-FORM-LIST", 13 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP expform_exp_2dform_2dlist( e1175, f1176 )
TSCP e1175, f1176;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2768 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( e1175,
_TSCP( 0 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2770;
X1 = e1175;
X2 = EMPTYLIST;
X3 = EMPTYLIST;
L2773:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2774;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2777;
scrt1__24__car_2derror( X1 );
L2777:
X7 = PAIR_CAR( X1 );
X6 = f1176;
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( X7,
f1176,
PROCEDURE_CLOSURE( X6 ) );
X4 = sc_cons( X5, EMPTYLIST );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2780;
X5 = PAIR_CDR( X1 );
X3 = X4;
X2 = X4;
X1 = X5;
goto L2773;
L2780:
X5 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2785;
scrt6_error( c1208, c1209, CONS( X3, EMPTYLIST ) );
L2785:
X3 = SETGEN( PAIR_CDR( X3 ), X4 );
X1 = X5;
goto L2773;
L2774:
POPSTACKTRACE( X2 );
L2770:
POPSTACKTRACE( expform_expand_2derror( c1177, e1175 ) );
}
DEFTSCP( expform_id_2dprintname_v );
DEFSTRING( t2787, "ID-PRINTNAME", 12 );
TSCP expform_id_2dprintname( i1222 )
TSCP i1222;
{
PUSHSTACKTRACE( U_TX( ADR( t2787 ) ) );
POPSTACKTRACE( plist_get( i1222, c1225 ) );
}
DEFTSCP( expform_intname_21_e25cd208_v );
DEFSTRING( t2789, "SET-ID-PRINTNAME!", 17 );
TSCP expform_intname_21_e25cd208( i1228, n1229 )
TSCP i1228, n1229;
{
PUSHSTACKTRACE( U_TX( ADR( t2789 ) ) );
POPSTACKTRACE( plist_put( i1228, c1225, n1229 ) );
}
DEFTSCP( expform_id_2dvname_v );
DEFSTRING( t2791, "ID-VNAME", 8 );
TSCP expform_id_2dvname( i1235 )
TSCP i1235;
{
PUSHSTACKTRACE( U_TX( ADR( t2791 ) ) );
POPSTACKTRACE( plist_get( i1235, c1099 ) );
}
DEFTSCP( expform_set_2did_2dvname_21_v );
DEFSTRING( t2793, "SET-ID-VNAME!", 13 );
TSCP expform_set_2did_2dvname_21( i1240, n1241 )
TSCP i1240, n1241;
{
PUSHSTACKTRACE( U_TX( ADR( t2793 ) ) );
POPSTACKTRACE( plist_put( i1240, c1099, n1241 ) );
}
DEFTSCP( expform_id_2dcname_v );
DEFSTRING( t2795, "ID-CNAME", 8 );
TSCP expform_id_2dcname( i1247 )
TSCP i1247;
{
PUSHSTACKTRACE( U_TX( ADR( t2795 ) ) );
POPSTACKTRACE( plist_get( i1247, c1250 ) );
}
DEFTSCP( expform_set_2did_2dcname_21_v );
DEFSTRING( t2797, "SET-ID-CNAME!", 13 );
TSCP expform_set_2did_2dcname_21( i1253, n1254 )
TSCP i1253, n1254;
{
PUSHSTACKTRACE( U_TX( ADR( t2797 ) ) );
POPSTACKTRACE( plist_put( i1253, c1250, n1254 ) );
}
DEFTSCP( expform_id_2dmodule_v );
DEFSTRING( t2799, "ID-MODULE", 9 );
TSCP expform_id_2dmodule( i1260 )
TSCP i1260;
{
PUSHSTACKTRACE( U_TX( ADR( t2799 ) ) );
POPSTACKTRACE( plist_get( i1260, c1082 ) );
}
DEFTSCP( expform_set_2did_2dmodule_21_v );
DEFSTRING( t2801, "SET-ID-MODULE!", 14 );
TSCP expform_set_2did_2dmodule_21( i1265, n1266 )
TSCP i1265, n1266;
{
PUSHSTACKTRACE( U_TX( ADR( t2801 ) ) );
POPSTACKTRACE( plist_put( i1265, c1082, n1266 ) );
}
DEFTSCP( expform_id_2duse_v );
DEFSTRING( t2803, "ID-USE", 6 );
TSCP expform_id_2duse( i1272 )
TSCP i1272;
{
PUSHSTACKTRACE( U_TX( ADR( t2803 ) ) );
POPSTACKTRACE( plist_get( i1272, c1077 ) );
}
DEFTSCP( expform_set_2did_2duse_21_v );
DEFSTRING( t2805, "SET-ID-USE!", 11 );
TSCP expform_set_2did_2duse_21( i1277, t1278 )
TSCP i1277, t1278;
{
PUSHSTACKTRACE( U_TX( ADR( t2805 ) ) );
POPSTACKTRACE( plist_put( i1277, c1077, t1278 ) );
}
DEFTSCP( expform_id_2dtype_v );
DEFSTRING( t2807, "ID-TYPE", 7 );
TSCP expform_id_2dtype( i1284 )
TSCP i1284;
{
PUSHSTACKTRACE( U_TX( ADR( t2807 ) ) );
POPSTACKTRACE( plist_get( i1284, c1287 ) );
}
DEFTSCP( expform_set_2did_2dtype_21_v );
DEFSTRING( t2809, "SET-ID-TYPE!", 12 );
TSCP expform_set_2did_2dtype_21( i1290, t1291 )
TSCP i1290, t1291;
{
PUSHSTACKTRACE( U_TX( ADR( t2809 ) ) );
POPSTACKTRACE( plist_put( i1290, c1287, t1291 ) );
}
DEFTSCP( expform_id_2ddisplay_v );
DEFSTRING( t2811, "ID-DISPLAY", 10 );
TSCP expform_id_2ddisplay( i1297 )
TSCP i1297;
{
PUSHSTACKTRACE( U_TX( ADR( t2811 ) ) );
POPSTACKTRACE( plist_get( i1297, c1300 ) );
}
DEFTSCP( expform_set_2did_2ddisplay_21_v );
DEFSTRING( t2813, "SET-ID-DISPLAY!", 15 );
TSCP expform_set_2did_2ddisplay_21( i1303, f1304 )
TSCP i1303, f1304;
{
PUSHSTACKTRACE( U_TX( ADR( t2813 ) ) );
POPSTACKTRACE( plist_put( i1303, c1300, f1304 ) );
}
DEFTSCP( expform_id_2dboundid_v );
DEFSTRING( t2815, "ID-BOUNDID", 10 );
TSCP expform_id_2dboundid( i1310 )
TSCP i1310;
{
PUSHSTACKTRACE( U_TX( ADR( t2815 ) ) );
POPSTACKTRACE( plist_get( i1310, c1313 ) );
}
DEFTSCP( expform_set_2did_2dboundid_v );
DEFSTRING( t2817, "SET-ID-BOUNDID", 14 );
TSCP expform_set_2did_2dboundid( i1316, v1317 )
TSCP i1316, v1317;
{
PUSHSTACKTRACE( U_TX( ADR( t2817 ) ) );
POPSTACKTRACE( plist_put( i1316, c1313, v1317 ) );
}
DEFTSCP( expform_id_2dlambda_v );
DEFSTRING( t2819, "ID-LAMBDA", 9 );
TSCP expform_id_2dlambda( i1323 )
TSCP i1323;
{
PUSHSTACKTRACE( U_TX( ADR( t2819 ) ) );
POPSTACKTRACE( plist_get( i1323, c1326 ) );
}
DEFTSCP( expform_set_2did_2dlambda_21_v );
DEFSTRING( t2821, "SET-ID-LAMBDA!", 14 );
TSCP expform_set_2did_2dlambda_21( i1329, l1330 )
TSCP i1329, l1330;
{
PUSHSTACKTRACE( U_TX( ADR( t2821 ) ) );
POPSTACKTRACE( plist_put( i1329, c1326, l1330 ) );
}
DEFTSCP( expform_id_2dexternal_v );
DEFSTRING( t2823, "ID-EXTERNAL", 11 );
TSCP expform_id_2dexternal( i1336 )
TSCP i1336;
{
PUSHSTACKTRACE( U_TX( ADR( t2823 ) ) );
POPSTACKTRACE( plist_get( i1336, c1339 ) );
}
DEFTSCP( expform_xternal_21_97042b81_v );
DEFSTRING( t2825, "SET-ID-EXTERNAL!", 16 );
TSCP expform_xternal_21_97042b81( i1342, f1343 )
TSCP i1342, f1343;
{
PUSHSTACKTRACE( U_TX( ADR( t2825 ) ) );
POPSTACKTRACE( plist_put( i1342, c1339, f1343 ) );
}
DEFTSCP( expform_id_2ddefined_v );
DEFSTRING( t2827, "ID-DEFINED", 10 );
TSCP expform_id_2ddefined( i1349 )
TSCP i1349;
{
PUSHSTACKTRACE( U_TX( ADR( t2827 ) ) );
POPSTACKTRACE( plist_get( i1349, c1352 ) );
}
DEFTSCP( expform_set_2did_2ddefined_21_v );
DEFSTRING( t2829, "SET-ID-DEFINED!", 15 );
TSCP expform_set_2did_2ddefined_21( i1355, f1356 )
TSCP i1355, f1356;
{
PUSHSTACKTRACE( U_TX( ADR( t2829 ) ) );
POPSTACKTRACE( plist_put( i1355, c1352, f1356 ) );
}
DEFTSCP( expform_id_2dvalue_v );
DEFSTRING( t2831, "ID-VALUE", 8 );
TSCP expform_id_2dvalue( i1362 )
TSCP i1362;
{
PUSHSTACKTRACE( U_TX( ADR( t2831 ) ) );
POPSTACKTRACE( plist_get( i1362, c1365 ) );
}
DEFTSCP( expform_set_2did_2dvalue_21_v );
DEFSTRING( t2833, "SET-ID-VALUE!", 13 );
TSCP expform_set_2did_2dvalue_21( i1368, x1369 )
TSCP i1368, x1369;
{
PUSHSTACKTRACE( U_TX( ADR( t2833 ) ) );
POPSTACKTRACE( plist_put( i1368, c1365, x1369 ) );
}
DEFTSCP( expform_id_2dset_21_v );
DEFSTRING( t2835, "ID-SET!", 7 );
TSCP expform_id_2dset_21( i1375 )
TSCP i1375;
{
PUSHSTACKTRACE( U_TX( ADR( t2835 ) ) );
POPSTACKTRACE( plist_get( i1375, c1378 ) );
}
DEFTSCP( expform_set_2did_2dset_21_21_v );
DEFSTRING( t2837, "SET-ID-SET!!", 12 );
TSCP expform_set_2did_2dset_21_21( i1381, f1382 )
TSCP i1381, f1382;
{
PUSHSTACKTRACE( U_TX( ADR( t2837 ) ) );
POPSTACKTRACE( plist_put( i1381, c1378, f1382 ) );
}
DEFTSCP( expform_id_2drefs_v );
DEFSTRING( t2839, "ID-REFS", 7 );
TSCP expform_id_2drefs( i1388 )
TSCP i1388;
{
PUSHSTACKTRACE( U_TX( ADR( t2839 ) ) );
POPSTACKTRACE( plist_get( i1388, c1391 ) );
}
DEFTSCP( expform_set_2did_2drefs_21_v );
DEFSTRING( t2841, "SET-ID-REFS!", 12 );
TSCP expform_set_2did_2drefs_21( i1394, c1395 )
TSCP i1394, c1395;
{
PUSHSTACKTRACE( U_TX( ADR( t2841 ) ) );
POPSTACKTRACE( plist_put( i1394, c1391, c1395 ) );
}
DEFTSCP( expform_id_2dcalls_v );
DEFSTRING( t2843, "ID-CALLS", 8 );
TSCP expform_id_2dcalls( i1401 )
TSCP i1401;
{
PUSHSTACKTRACE( U_TX( ADR( t2843 ) ) );
POPSTACKTRACE( plist_get( i1401, c1404 ) );
}
DEFTSCP( expform_set_2did_2dcalls_21_v );
DEFSTRING( t2845, "SET-ID-CALLS!", 13 );
TSCP expform_set_2did_2dcalls_21( i1407, c1408 )
TSCP i1407, c1408;
{
PUSHSTACKTRACE( U_TX( ADR( t2845 ) ) );
POPSTACKTRACE( plist_put( i1407, c1404, c1408 ) );
}
DEFTSCP( expform_id_2dalias_v );
DEFSTRING( t2847, "ID-ALIAS", 8 );
TSCP expform_id_2dalias( i1414 )
TSCP i1414;
{
PUSHSTACKTRACE( U_TX( ADR( t2847 ) ) );
POPSTACKTRACE( plist_get( i1414, c1417 ) );
}
DEFTSCP( expform_set_2did_2dalias_21_v );
DEFSTRING( t2849, "SET-ID-ALIAS!", 13 );
TSCP expform_set_2did_2dalias_21( i1420, l1421 )
TSCP i1420, l1421;
{
PUSHSTACKTRACE( U_TX( ADR( t2849 ) ) );
POPSTACKTRACE( plist_put( i1420, c1417, l1421 ) );
}
DEFTSCP( expform_id_2dgotos_v );
DEFSTRING( t2851, "ID-GOTOS", 8 );
TSCP expform_id_2dgotos( i1427 )
TSCP i1427;
{
PUSHSTACKTRACE( U_TX( ADR( t2851 ) ) );
POPSTACKTRACE( plist_get( i1427, c1430 ) );
}
DEFTSCP( expform_set_2did_2dgotos_21_v );
DEFSTRING( t2853, "SET-ID-GOTOS!", 13 );
TSCP expform_set_2did_2dgotos_21( i1433, c1434 )
TSCP i1433, c1434;
{
PUSHSTACKTRACE( U_TX( ADR( t2853 ) ) );
POPSTACKTRACE( plist_put( i1433, c1430, c1434 ) );
}
DEFTSCP( expform_id_2dundefref_v );
DEFSTRING( t2855, "ID-UNDEFREF", 11 );
TSCP expform_id_2dundefref( i1440 )
TSCP i1440;
{
PUSHSTACKTRACE( U_TX( ADR( t2855 ) ) );
POPSTACKTRACE( plist_get( i1440, c1086 ) );
}
DEFTSCP( expform_ndefref_21_c23a600d_v );
DEFSTRING( t2857, "SET-ID-UNDEFREF!", 16 );
TSCP expform_ndefref_21_c23a600d( i1445, v1446 )
TSCP i1445, v1446;
{
PUSHSTACKTRACE( U_TX( ADR( t2857 ) ) );
POPSTACKTRACE( plist_put( i1445, c1086, v1446 ) );
}
DEFTSCP( expform_id_2dglobal_v );
DEFSTRING( t2859, "ID-GLOBAL", 9 );
TSCP expform_id_2dglobal( i1452 )
TSCP i1452;
{
PUSHSTACKTRACE( U_TX( ADR( t2859 ) ) );
POPSTACKTRACE( plist_get( i1452, c1078 ) );
}
DEFTSCP( expform_set_2did_2dglobal_21_v );
DEFSTRING( t2861, "SET-ID-GLOBAL!", 14 );
TSCP expform_set_2did_2dglobal_21( i1457, a1458 )
TSCP i1457, a1458;
{
PUSHSTACKTRACE( U_TX( ADR( t2861 ) ) );
POPSTACKTRACE( plist_put( i1457, c1078, a1458 ) );
}
DEFTSCP( expform_assign_2dknown_2dname_v );
DEFSTRING( t2863, "ASSIGN-KNOWN-NAME", 17 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP expform_assign_2dknown_2dname( v1464 )
TSCP v1464;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2863 ) ) );
X1 = plist_get( v1464, c1077 );
X2 = plist_get( v1464, c1082 );
X4 = plist_get( v1464, c1225 );
X3 = expform_lchexname( X4 );
if ( FALSE( scrt1_memq( X1, c1471 ) ) ) goto L2868;
X4 = expform_lchexname( v1464 );
if ( FALSE( plist_get( v1464, c1326 ) ) ) goto L2871;
X6 = CONS( X4, EMPTYLIST );
X6 = CONS( c1504, X6 );
X5 = scrt3_string_2dappend( CONS( SYMBOL_VALUE( module_2dname_v ),
X6 ) );
plist_put( v1464, c1250, X5 );
X6 = CONS( c1101, EMPTYLIST );
X5 = scrt3_string_2dappend( CONS( X4, X6 ) );
POPSTACKTRACE( plist_put( v1464, c1099, X5 ) );
L2871:
POPSTACKTRACE( plist_put( v1464, c1099, X4 ) );
L2868:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1078 ) ) ) goto L2874;
X4 = plist_get( v1464, c1287 );
goto L2875;
L2874:
X4 = FALSEVALUE;
L2875:
if ( TRUE( X4 ) ) goto L2877;
X6 = CONS( c1101, EMPTYLIST );
X5 = scrt3_string_2dappend( CONS( expform_hex28( X2, X3 ),
X6 ) );
plist_put( v1464, c1099, X5 );
X5 = scrt3_string_2dappend( CONS( expform_hex28( X2, X3 ),
EMPTYLIST ) );
POPSTACKTRACE( plist_put( v1464, c1250, X5 ) );
L2877:
POPSTACKTRACE( X4 );
}
DEFTSCP( expform_name_2da_2dlambda_v );
DEFSTRING( t2880, "NAME-A-LAMBDA", 13 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
TSCP expform_name_2da_2dlambda( n1516, e1517 )
TSCP n1516, e1517;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2880 ) ) );
e1517 = CONS( e1517, EMPTYLIST );
X2 = PAIR_CAR( e1517 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2883;
X4 = PAIR_CAR( X2 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1538 ) ) );
goto L2884;
L2883:
X3 = FALSEVALUE;
L2884:
if ( FALSE( X3 ) ) goto L2887;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2890;
scrt1__24__cdr_2derror( X2 );
L2890:
X4 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2893;
scrt1__24__car_2derror( X4 );
L2893:
X1 = PAIR_CAR( X4 );
goto L2888;
L2887:
X1 = X3;
L2888:
SETGEN( PAIR_CAR( e1517 ), X1 );
if ( FALSE( PAIR_CAR( e1517 ) ) ) goto L2895;
plist_put( n1516, c1326, PAIR_CAR( e1517 ) );
POPSTACKTRACE( plist_put( PAIR_CAR( e1517 ),
c1557, n1516 ) );
L2895:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( expform_vname_v );
DEFSTRING( t2898, "VNAME", 5 );
TSCP expform_vname( e1559 )
TSCP e1559;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2898 ) ) );
e1559 = CONS( e1559, EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( e1559 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( e1559 ) ),
SYMBOLTAG ) ) ) ) goto L2900;
X1 = plist_get( PAIR_CAR( e1559 ), c1077 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1326 ) ) ) goto L2905;
if ( FALSE( plist_get( PAIR_CAR( e1559 ), c1557 ) ) ) goto L2905;
X1 = plist_get( PAIR_CAR( e1559 ), c1557 );
SETGEN( PAIR_CAR( e1559 ), X1 );
L2905:
POPSTACKTRACE( plist_get( PAIR_CAR( e1559 ), c1099 ) );
L2900:
POPSTACKTRACE( PAIR_CAR( e1559 ) );
}
DEFTSCP( expform_cname_v );
DEFSTRING( t2907, "CNAME", 5 );
TSCP expform_cname( e1579 )
TSCP e1579;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2907 ) ) );
e1579 = CONS( e1579, EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( e1579 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( e1579 ) ),
SYMBOLTAG ) ) ) ) goto L2909;
X1 = plist_get( PAIR_CAR( e1579 ), c1077 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1326 ) ) ) goto L2914;
if ( FALSE( plist_get( PAIR_CAR( e1579 ), c1557 ) ) ) goto L2914;
X1 = plist_get( PAIR_CAR( e1579 ), c1557 );
SETGEN( PAIR_CAR( e1579 ), X1 );
L2914:
POPSTACKTRACE( plist_get( PAIR_CAR( e1579 ), c1250 ) );
L2909:
POPSTACKTRACE( PAIR_CAR( e1579 ) );
}
DEFTSCP( expform_lchexname_v );
DEFSTRING( t2916, "LCHEXNAME", 9 );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt3_list_2d_3estring );
EXTERNTSCP( scrt3_list_2d_3estring_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( scrt1_last_2dpair );
EXTERNTSCP( scrt1_last_2dpair_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( expform_char_2d_3edl );
EXTERNTSCP( expform_char_2d_3edl_v );
TSCP expform_lchexname( n1599 )
TSCP n1599;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2916 ) ) );
n1599 = CONS( n1599, EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( n1599 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( n1599 ) ),
SYMBOLTAG ) ) ) ) goto L2918;
X2 = PAIR_CAR( n1599 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) ) goto L2921;
scrt6_error( c1606, c1607, CONS( X2, EMPTYLIST ) );
L2921:
X1 = SYMBOL_NAME( X2 );
SETGEN( PAIR_CAR( n1599 ), X1 );
L2918:
X1 = EMPTYLIST;
X2 = _TSCP( 0 );
X4 = sc_cons( _TSCP( 4 ), EMPTYLIST );
X3 = X4;
L2925:
X1 = CONS( X1, EMPTYLIST );
X5 = PAIR_CAR( n1599 );
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), STRINGTAG ) ) ) goto L2927;
scrt6_error( c1627, c1628, CONS( X5, EMPTYLIST ) );
L2927:
X4 = C_FIXED( STRING_LENGTH( X5 ) );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L2931;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( X4 ) ) ) goto L2935;
goto L2936;
L2931:
if ( FALSE( scrt2__3d_2dtwo( X2, X4 ) ) ) goto L2936;
L2935:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2940;
scrt1__24__cdr_2derror( X3 );
L2940:
X4 = PAIR_CDR( X3 );
POPSTACKTRACE( scrt3_list_2d_3estring( X4 ) );
L2936:
X5 = PAIR_CAR( n1599 );
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2944;
scrt6_error( c1635, c1636, CONS( X2, EMPTYLIST ) );
L2944:
X6 = BOOLEAN( LT( INT( X2 ), 0 ) );
if ( TRUE( X6 ) ) goto L2950;
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), STRINGTAG ) ) ) goto L2952;
scrt6_error( c1627, c1628, CONS( X5, EMPTYLIST ) );
L2952:
X7 = C_FIXED( STRING_LENGTH( X5 ) );
if ( BITAND( BITOR( INT( X2 ), INT( X7 ) ),
3 ) ) goto L2956;
if ( GTE( INT( X2 ), INT( X7 ) ) ) goto L2950;
goto L2963;
L2956:
if ( FALSE( scrt2__3e_3d_2dtwo( X2, X7 ) ) ) goto L2963;
L2950:
scrt6_error( c1635, c1657, CONS( X2, EMPTYLIST ) );
L2963:
X4 = C_CHAR( STRING_CHAR( X5, X2 ) );
SETGEN( PAIR_CAR( X1 ), X4 );
X4 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 24338 ) ),
CHARACTERTAG ) ) ) goto L2965;
X5 = CONS( _TSCP( 24338 ), EMPTYLIST );
scrt6_error( c1664, c1665, CONS( X4, X5 ) );
L2965:
if ( NEQ( INT( X4 ), INT( _TSCP( 24338 ) ) ) ) goto L2967;
X7 = sc_cons( _TSCP( 24338 ), EMPTYLIST );
X6 = sc_cons( _TSCP( 24338 ), X7 );
X5 = X6;
X6 = scrt1_last_2dpair( X3 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2971;
scrt6_error( c1208, c1209, CONS( X6, EMPTYLIST ) );
L2971:
SETGEN( PAIR_CDR( X6 ), X5 );
goto L3018;
L2967:
X6 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 16658 ) ),
CHARACTERTAG ) ) ) goto L2974;
X7 = CONS( _TSCP( 16658 ), EMPTYLIST );
scrt6_error( c1676, c1665, CONS( X6, X7 ) );
L2974:
X5 = BOOLEAN( GTE( INT( X6 ),
INT( _TSCP( 16658 ) ) ) );
if ( FALSE( X5 ) ) goto L3017;
X6 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 23058 ) ),
CHARACTERTAG ) ) ) goto L2981;
X7 = CONS( _TSCP( 23058 ), EMPTYLIST );
scrt6_error( c1685, c1665, CONS( X6, X7 ) );
L2981:
if ( GT( INT( X6 ), INT( _TSCP( 23058 ) ) ) ) goto L3017;
X12 = PAIR_CAR( X1 );
if ( EQ( TSCPIMMEDIATETAG( X12 ), CHARACTERTAG ) ) goto L2986;
scrt6_error( c1796,
c1797, CONS( X12, EMPTYLIST ) );
L2986:
X11 = CHAR_FIX( X12 );
if ( BITAND( BITOR( INT( X11 ),
INT( _TSCP( 128 ) ) ),
3 ) ) goto L2989;
X10 = _TSCP( IPLUS( INT( X11 ),
INT( _TSCP( 128 ) ) ) );
goto L2990;
L2989:
X10 = scrt2__2b_2dtwo( X11, _TSCP( 128 ) );
L2990:
X11 = BOOLEAN( NEQ( TSCPTAG( X10 ), FIXNUMTAG ) );
if ( TRUE( X11 ) ) goto L2996;
if ( BITAND( BITOR( INT( X10 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2997;
X12 = BOOLEAN( LT( INT( X10 ), INT( _TSCP( 0 ) ) ) );
goto L2998;
L2997:
X12 = scrt2__3c_2dtwo( X10, _TSCP( 0 ) );
L2998:
if ( TRUE( X12 ) ) goto L2996;
if ( BITAND( BITOR( INT( X10 ),
INT( _TSCP( 1020 ) ) ),
3 ) ) goto L3005;
if ( GT( INT( X10 ), INT( _TSCP( 1020 ) ) ) ) goto L2996;
goto L3012;
L3005:
if ( FALSE( scrt2__3e_2dtwo( X10, _TSCP( 1020 ) ) ) ) goto L3012;
L2996:
scrt6_error( c1784,
c1785, CONS( X10, EMPTYLIST ) );
L3012:
X9 = FIX_CHAR( X10 );
X8 = sc_cons( X9, EMPTYLIST );
X7 = X8;
X8 = scrt1_last_2dpair( X3 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3015;
scrt6_error( c1208, c1209, CONS( X8, EMPTYLIST ) );
L3015:
SETGEN( PAIR_CDR( X8 ), X7 );
goto L3018;
L3017:
X7 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X7 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 24850 ) ),
CHARACTERTAG ) ) ) goto L3020;
X8 = CONS( _TSCP( 24850 ), EMPTYLIST );
scrt6_error( c1676, c1665, CONS( X7, X8 ) );
L3020:
X6 = BOOLEAN( GTE( INT( X7 ),
INT( _TSCP( 24850 ) ) ) );
if ( FALSE( X6 ) ) goto L3023;
X7 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X7 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 31250 ) ),
CHARACTERTAG ) ) ) goto L3026;
X8 = CONS( _TSCP( 31250 ), EMPTYLIST );
scrt6_error( c1685, c1665, CONS( X7, X8 ) );
L3026:
X5 = BOOLEAN( LTE( INT( X7 ),
INT( _TSCP( 31250 ) ) ) );
goto L3024;
L3023:
X5 = X6;
L3024:
if ( TRUE( X5 ) ) goto L3032;
X7 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X7 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 12306 ) ),
CHARACTERTAG ) ) ) goto L3034;
X8 = CONS( _TSCP( 12306 ), EMPTYLIST );
scrt6_error( c1676, c1665, CONS( X7, X8 ) );
L3034:
X6 = BOOLEAN( GTE( INT( X7 ),
INT( _TSCP( 12306 ) ) ) );
if ( FALSE( X6 ) ) goto L3057;
X8 = PAIR_CAR( X1 );
if ( AND( EQ( TSCPIMMEDIATETAG( X8 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 14610 ) ),
CHARACTERTAG ) ) ) goto L3041;
X9 = CONS( _TSCP( 14610 ), EMPTYLIST );
scrt6_error( c1685, c1665, CONS( X8, X9 ) );
L3041:
X7 = BOOLEAN( LTE( INT( X8 ),
INT( _TSCP( 14610 ) ) ) );
if ( FALSE( X7 ) ) goto L3057;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3048;
if ( GT( INT( X2 ), INT( _TSCP( 0 ) ) ) ) goto L3032;
goto L3057;
L3048:
if ( TRUE( scrt2__3e_2dtwo( X2, _TSCP( 0 ) ) ) ) goto L3032;
L3057:
X5 = scrt1_last_2dpair( X3 );
X7 = expform_char_2d_3edl( PAIR_CAR( X1 ),
_TSCP( 64 ), _TSCP( 8 ) );
X6 = sc_cons( _TSCP( 24338 ), X7 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3059;
scrt6_error( c1208, c1209, CONS( X5, EMPTYLIST ) );
L3059:
SETGEN( PAIR_CDR( X5 ), X6 );
goto L3018;
L3032:
X6 = sc_cons( PAIR_CAR( X1 ), EMPTYLIST );
X5 = X6;
X6 = scrt1_last_2dpair( X3 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3063;
scrt6_error( c1208, c1209, CONS( X6, EMPTYLIST ) );
L3063:
SETGEN( PAIR_CDR( X6 ), X5 );
L3018:
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X2 ) ),
3 ) ) goto L3065;
X4 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X2 ) ) );
goto L3066;
L3065:
X4 = scrt2__2b_2dtwo( _TSCP( 4 ), X2 );
L3066:
X2 = X4;
X1 = PAIR_CAR( X1 );
goto L2925;
}
DEFTSCP( expform_hex28_v );
DEFSTRING( t3067, "HEX28", 5 );
EXTERNTSCPP( scrt2__3c_3d_2dtwo );
EXTERNTSCP( scrt2__3c_3d_2dtwo_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( expform_crc_2d32x2 );
EXTERNTSCP( expform_crc_2d32x2_v );
EXTERNTSCPP( scrt3_string_2d_3elist );
EXTERNTSCP( scrt3_string_2d_3elist_v );
EXTERNTSCPP( scrt3_substring );
EXTERNTSCP( scrt3_substring_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
EXTERNTSCPP( scrt3_char_2dnumeric_3f );
EXTERNTSCP( scrt3_char_2dnumeric_3f_v );
TSCP expform_hex28( m1819, n1820 )
TSCP m1819, n1820;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3067 ) ) );
if ( AND( EQ( TSCPTAG( m1819 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( m1819 ), STRINGTAG ) )
) goto L3070;
scrt6_error( c1627,
c1628, CONS( m1819, EMPTYLIST ) );
L3070:
X2 = C_FIXED( STRING_LENGTH( m1819 ) );
if ( AND( EQ( TSCPTAG( n1820 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n1820 ), STRINGTAG ) )
) goto L3073;
scrt6_error( c1627,
c1628, CONS( n1820, EMPTYLIST ) );
L3073:
X3 = C_FIXED( STRING_LENGTH( n1820 ) );
if ( BITAND( BITOR( INT( X2 ), INT( X3 ) ),
3 ) ) goto L3076;
X1 = _TSCP( IPLUS( INT( X2 ), INT( X3 ) ) );
goto L3077;
L3076:
X1 = scrt2__2b_2dtwo( X2, X3 );
L3077:
if ( BITAND( BITOR( INT( X1 ),
INT( _TSCP( 112 ) ) ),
3 ) ) goto L3080;
if ( LTE( INT( X1 ), INT( _TSCP( 112 ) ) ) ) goto L3084;
goto L3085;
L3080:
if ( FALSE( scrt2__3c_3d_2dtwo( X1, _TSCP( 112 ) ) )
) goto L3085;
L3084:
if ( TRUE( scrt1_equal_3f( m1819, sc_emptystring ) )
) goto L3088;
X1 = CONS( n1820, EMPTYLIST );
X1 = CONS( c1504, X1 );
POPSTACKTRACE( scrt3_string_2dappend( CONS( m1819, X1 ) ) );
L3088:
POPSTACKTRACE( n1820 );
L3085:
X5 = CONS( n1820, EMPTYLIST );
X4 = scrt3_string_2dappend( CONS( m1819, X5 ) );
X3 = scrt3_string_2d_3elist( X4 );
X2 = CONS( expform_crc_2d32x2( X3, _TSCP( 0 ), _TSCP( 0 ) ),
EMPTYLIST );
X5 = C_FIXED( STRING_LENGTH( n1820 ) );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L3092;
X4 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 40 ) ) ) );
goto L3093;
L3092:
X4 = scrt2__2d_2dtwo( X5, _TSCP( 40 ) );
L3093:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X4 ) ),
3 ) ) goto L3095;
if ( LTE( INT( _TSCP( 0 ) ), INT( X4 ) ) ) goto L3097;
X3 = _TSCP( 0 );
goto L3096;
L3097:
X3 = X4;
goto L3096;
L3095:
X3 = scrt2_max_2dtwo( _TSCP( 0 ), X4 );
L3096:
X4 = C_FIXED( STRING_LENGTH( n1820 ) );
X2 = CONS( scrt3_substring( n1820, X3, X4 ), X2 );
X5 = C_FIXED( STRING_LENGTH( m1819 ) );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 36 ) ) ),
3 ) ) goto L3102;
X4 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 36 ) ) ) );
goto L3103;
L3102:
X4 = scrt2__2d_2dtwo( X5, _TSCP( 36 ) );
L3103:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X4 ) ),
3 ) ) goto L3105;
if ( LTE( INT( _TSCP( 0 ) ), INT( X4 ) ) ) goto L3107;
X3 = _TSCP( 0 );
goto L3106;
L3107:
X3 = X4;
goto L3106;
L3105:
X3 = scrt2_max_2dtwo( _TSCP( 0 ), X4 );
L3106:
X4 = C_FIXED( STRING_LENGTH( m1819 ) );
X2 = CONS( scrt3_substring( m1819, X3, X4 ), X2 );
X1 = scrt6_format( EMPTYLIST, CONS( c1900, X2 ) );
if ( EQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) ) goto L3114;
scrt6_error( c1635,
c1636, CONS( _TSCP( 0 ), EMPTYLIST ) );
L3114:
X3 = BOOLEAN( LT( INT( _TSCP( 0 ) ), 0 ) );
if ( TRUE( X3 ) ) goto L3120;
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), STRINGTAG ) ) ) goto L3122;
scrt6_error( c1627, c1628, CONS( X1, EMPTYLIST ) );
L3122:
X4 = C_FIXED( STRING_LENGTH( X1 ) );
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X4 ) ),
3 ) ) goto L3126;
if ( GTE( INT( _TSCP( 0 ) ), INT( X4 ) ) ) goto L3120;
goto L3133;
L3126:
if ( FALSE( scrt2__3e_3d_2dtwo( _TSCP( 0 ), X4 ) ) ) goto L3133;
L3120:
scrt6_error( c1635,
c1657, CONS( _TSCP( 0 ), EMPTYLIST ) );
L3133:
X2 = C_CHAR( STRING_CHAR( X1, _TSCP( 0 ) ) );
if ( FALSE( scrt3_char_2dnumeric_3f( X2 ) ) ) goto L3111;
if ( EQ( TSCPIMMEDIATETAG( _TSCP( 24338 ) ),
CHARACTERTAG ) ) goto L3135;
scrt6_error( c1875,
c1878,
CONS( _TSCP( 24338 ), EMPTYLIST ) );
L3135:
X2 = BOOLEAN( LT( INT( _TSCP( 0 ) ), 0 ) );
if ( TRUE( X2 ) ) goto L3141;
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), STRINGTAG ) ) ) goto L3143;
scrt6_error( c1627, c1628, CONS( X1, EMPTYLIST ) );
L3143:
X3 = C_FIXED( STRING_LENGTH( X1 ) );
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L3147;
if ( GTE( INT( _TSCP( 0 ) ), INT( X3 ) ) ) goto L3141;
goto L3154;
L3147:
if ( FALSE( scrt2__3e_3d_2dtwo( _TSCP( 0 ), X3 ) ) ) goto L3154;
L3141:
scrt6_error( c1875, c1899, EMPTYLIST );
L3154:
STRING_CHAR( X1, _TSCP( 0 ) ) = CHAR_C( _TSCP( 24338 ) );
L3111:
POPSTACKTRACE( X1 );
}
DEFTSCP( expform_crc_2d32x2_v );
DEFSTRING( t3155, "CRC-32X2", 8 );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNTSCPP( scrt2_remainder );
EXTERNTSCP( scrt2_remainder_v );
EXTERNTSCPP( scrt2_quotient );
EXTERNTSCP( scrt2_quotient_v );
EXTERNTSCPP( scrt4_bit_2dlsh );
EXTERNTSCP( scrt4_bit_2dlsh_v );
EXTERNTSCPP( scrt4_bit_2dxor );
EXTERNTSCP( scrt4_bit_2dxor_v );
EXTERNTSCPP( scrt4_bit_2drsh );
EXTERNTSCP( scrt4_bit_2drsh_v );
EXTERNTSCP( expform_t_2dleft_v );
EXTERNTSCPP( scrt4_bit_2dor );
EXTERNTSCP( scrt4_bit_2dor_v );
EXTERNTSCPP( scrt4_bit_2dand );
EXTERNTSCP( scrt4_bit_2dand_v );
EXTERNTSCP( expform_t_2dright_v );
TSCP expform_crc_2d32x2( c1945, c1946, c1947 )
TSCP c1945, c1946, c1947;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3155 ) ) );
L3156:
if ( NEQ( UNSIGNED( c1945 ),
UNSIGNED( EMPTYLIST ) ) ) goto L3157;
X1 = EMPTYLIST;
X2 = c1946;
X3 = c1947;
L3160:
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3161;
X4 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L3162;
L3161:
X4 = scrt2_zero_3f( X2 );
L3162:
if ( FALSE( X4 ) ) goto L3176;
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3168;
if ( EQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3172;
goto L3176;
L3168:
if ( FALSE( scrt2_zero_3f( X3 ) ) ) goto L3176;
L3172:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3177;
POPSTACKTRACE( scrt3_list_2d_3estring( X1 ) );
L3177:
POPSTACKTRACE( c2116 );
L3176:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 64 ) ) ),
3 ) ) goto L3179;
X6 = _TSCP( REMAINDER( INT( X3 ),
INT( _TSCP( 64 ) ) ) );
goto L3180;
L3179:
X6 = scrt2_remainder( X3, _TSCP( 64 ) );
L3180:
if ( EQ( TSCPTAG( X6 ), FIXNUMTAG ) ) goto L3182;
scrt6_error( c1635, c1636, CONS( X6, EMPTYLIST ) );
L3182:
X7 = BOOLEAN( LT( INT( X6 ), 0 ) );
if ( TRUE( X7 ) ) goto L3188;
if ( AND( EQ( TSCPTAG( c2079 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c2079 ), STRINGTAG ) )
) goto L3190;
scrt6_error( c1627,
c1628, CONS( c2079, EMPTYLIST ) );
L3190:
X8 = C_FIXED( STRING_LENGTH( c2079 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X8 ) ),
3 ) ) goto L3194;
if ( GTE( INT( X6 ), INT( X8 ) ) ) goto L3188;
goto L3201;
L3194:
if ( FALSE( scrt2__3e_3d_2dtwo( X6, X8 ) ) ) goto L3201;
L3188:
scrt6_error( c1635, c1657, CONS( X6, EMPTYLIST ) );
L3201:
X5 = C_CHAR( STRING_CHAR( c2079, X6 ) );
X4 = sc_cons( X5, X1 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 64 ) ) ),
3 ) ) goto L3202;
X5 = C_FIXED( QUOTIENT( INT( X2 ),
INT( _TSCP( 64 ) ) ) );
goto L3203;
L3202:
X5 = scrt2_quotient( X2, _TSCP( 64 ) );
L3203:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 64 ) ) ),
3 ) ) goto L3204;
X6 = C_FIXED( QUOTIENT( INT( X3 ),
INT( _TSCP( 64 ) ) ) );
goto L3205;
L3204:
X6 = scrt2_quotient( X3, _TSCP( 64 ) );
L3205:
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 64 ) ) ),
3 ) ) goto L3206;
X8 = _TSCP( REMAINDER( INT( X2 ),
INT( _TSCP( 64 ) ) ) );
goto L3207;
L3206:
X8 = scrt2_remainder( X2, _TSCP( 64 ) );
L3207:
X7 = scrt4_bit_2dlsh( X8, _TSCP( 48 ) );
if ( BITAND( BITOR( INT( X7 ), INT( X6 ) ),
3 ) ) goto L3209;
X3 = _TSCP( IPLUS( INT( X7 ), INT( X6 ) ) );
goto L3210;
L3209:
X3 = scrt2__2b_2dtwo( X7, X6 );
L3210:
X2 = X5;
X1 = X4;
goto L3160;
L3157:
if ( EQ( TSCPTAG( c1945 ), PAIRTAG ) ) goto L3212;
scrt1__24__car_2derror( c1945 );
L3212:
X2 = PAIR_CAR( c1945 );
if ( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ) ) goto L3215;
scrt6_error( c1796, c1797, CONS( X2, EMPTYLIST ) );
L3215:
X1 = CHAR_FIX( X2 );
X2 = PAIR_CDR( c1945 );
X4 = scrt4_bit_2drsh( c1946, _TSCP( 32 ) );
if ( BITAND( BITOR( INT( c1947 ),
INT( _TSCP( 1024 ) ) ),
3 ) ) goto L3219;
X6 = _TSCP( REMAINDER( INT( c1947 ),
INT( _TSCP( 1024 ) ) ) );
goto L3220;
L3219:
X6 = scrt2_remainder( c1947, _TSCP( 1024 ) );
L3220:
X7 = expform_t_2dleft_v;
if ( AND( EQ( TSCPTAG( X7 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X7 ), VECTORTAG ) ) ) goto L3222;
scrt6_error( c1965, c1966, CONS( X7, EMPTYLIST ) );
L3222:
if ( EQ( TSCPTAG( X6 ), FIXNUMTAG ) ) goto L3224;
scrt6_error( c1965, c1636, CONS( X6, EMPTYLIST ) );
L3224:
if ( LT( UNSIGNED( FIXED_C( X6 ) ),
UNSIGNED( VECTOR_LENGTH( X7 ) ) ) ) goto L3226;
scrt6_error( c1965, c1972, CONS( X6, EMPTYLIST ) );
L3226:
X5 = CONS( VECTOR_ELEMENT( X7, X6 ), EMPTYLIST );
X6 = expform_t_2dleft_v;
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), VECTORTAG ) ) ) goto L3229;
scrt6_error( c1965, c1966, CONS( X6, EMPTYLIST ) );
L3229:
if ( EQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L3231;
scrt6_error( c1965, c1636, CONS( X1, EMPTYLIST ) );
L3231:
if ( LT( UNSIGNED( FIXED_C( X1 ) ),
UNSIGNED( VECTOR_LENGTH( X6 ) ) ) ) goto L3233;
scrt6_error( c1965, c1972, CONS( X1, EMPTYLIST ) );
L3233:
X3 = scrt4_bit_2dxor( X4,
CONS( VECTOR_ELEMENT( X6, X1 ),
X5 ) );
X6 = scrt4_bit_2dand( c1946,
CONS( _TSCP( 1020 ), EMPTYLIST ) );
X5 = scrt4_bit_2dlsh( X6, _TSCP( 32 ) );
X4 = scrt4_bit_2dor( X5,
CONS( scrt4_bit_2drsh( c1947, _TSCP( 32 ) ),
EMPTYLIST ) );
if ( BITAND( BITOR( INT( c1947 ),
INT( _TSCP( 1024 ) ) ),
3 ) ) goto L3235;
X6 = _TSCP( REMAINDER( INT( c1947 ),
INT( _TSCP( 1024 ) ) ) );
goto L3236;
L3235:
X6 = scrt2_remainder( c1947, _TSCP( 1024 ) );
L3236:
X7 = expform_t_2dright_v;
if ( AND( EQ( TSCPTAG( X7 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X7 ), VECTORTAG ) ) ) goto L3238;
scrt6_error( c1965, c1966, CONS( X7, EMPTYLIST ) );
L3238:
if ( EQ( TSCPTAG( X6 ), FIXNUMTAG ) ) goto L3240;
scrt6_error( c1965, c1636, CONS( X6, EMPTYLIST ) );
L3240:
if ( LT( UNSIGNED( FIXED_C( X6 ) ),
UNSIGNED( VECTOR_LENGTH( X7 ) ) ) ) goto L3242;
scrt6_error( c1965, c1972, CONS( X6, EMPTYLIST ) );
L3242:
X5 = CONS( VECTOR_ELEMENT( X7, X6 ), EMPTYLIST );
X6 = expform_t_2dright_v;
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), VECTORTAG ) ) ) goto L3245;
scrt6_error( c1965, c1966, CONS( X6, EMPTYLIST ) );
L3245:
if ( LT( UNSIGNED( FIXED_C( X1 ) ),
UNSIGNED( VECTOR_LENGTH( X6 ) ) ) ) goto L3247;
scrt6_error( c1965, c1972, CONS( X1, EMPTYLIST ) );
L3247:
c1947 = scrt4_bit_2dxor( X4,
CONS( VECTOR_ELEMENT( X6, X1 ),
X5 ) );
c1946 = X3;
c1945 = X2;
goto L3156;
}
DEFTSCP( expform_t_2dleft_v );
DEFSTRING( t3249, "T-LEFT", 6 );
DEFTSCP( expform_t_2dright_v );
DEFSTRING( t3250, "T-RIGHT", 7 );
DEFTSCP( expform_char_2d_3edl_v );
DEFSTRING( t3251, "CHAR->DL", 8 );
TSCP expform_char_2d_3edl( c2120, b2121, l2122 )
TSCP c2120, b2121, l2122;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3251 ) ) );
c2120 = CONS( c2120, EMPTYLIST );
l2122 = CONS( l2122, EMPTYLIST );
X2 = PAIR_CAR( c2120 );
if ( EQ( TSCPIMMEDIATETAG( X2 ), CHARACTERTAG ) ) goto L3254;
scrt6_error( c1796, c1797, CONS( X2, EMPTYLIST ) );
L3254:
X1 = CHAR_FIX( X2 );
SETGEN( PAIR_CAR( c2120 ), X1 );
X1 = EMPTYLIST;
L3257:
X1 = CONS( X1, EMPTYLIST );
X2 = PAIR_CAR( l2122 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3260;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3264;
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3260:
if ( FALSE( scrt2_zero_3f( X2 ) ) ) goto L3264;
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3264:
X5 = PAIR_CAR( c2120 );
if ( BITAND( BITOR( INT( X5 ), INT( b2121 ) ),
3 ) ) goto L3269;
X4 = _TSCP( REMAINDER( INT( X5 ), INT( b2121 ) ) );
goto L3270;
L3269:
X4 = scrt2_remainder( X5, b2121 );
L3270:
if ( EQ( TSCPTAG( X4 ), FIXNUMTAG ) ) goto L3272;
scrt6_error( c1635, c1636, CONS( X4, EMPTYLIST ) );
L3272:
X5 = BOOLEAN( LT( INT( X4 ), 0 ) );
if ( TRUE( X5 ) ) goto L3278;
if ( AND( EQ( TSCPTAG( c2079 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c2079 ), STRINGTAG ) )
) goto L3280;
scrt6_error( c1627,
c1628, CONS( c2079, EMPTYLIST ) );
L3280:
X6 = C_FIXED( STRING_LENGTH( c2079 ) );
if ( BITAND( BITOR( INT( X4 ), INT( X6 ) ),
3 ) ) goto L3284;
if ( GTE( INT( X4 ), INT( X6 ) ) ) goto L3278;
goto L3291;
L3284:
if ( FALSE( scrt2__3e_3d_2dtwo( X4, X6 ) ) ) goto L3291;
L3278:
scrt6_error( c1635, c1657, CONS( X4, EMPTYLIST ) );
L3291:
X3 = C_CHAR( STRING_CHAR( c2079, X4 ) );
X2 = sc_cons( X3, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X2 );
X3 = PAIR_CAR( c2120 );
if ( BITAND( BITOR( INT( X3 ), INT( b2121 ) ),
3 ) ) goto L3293;
X2 = C_FIXED( QUOTIENT( INT( X3 ), INT( b2121 ) ) );
goto L3294;
L3293:
X2 = scrt2_quotient( X3, b2121 );
L3294:
SETGEN( PAIR_CAR( c2120 ), X2 );
X3 = PAIR_CAR( l2122 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3296;
X2 = _TSCP( IDIFFERENCE( INT( X3 ),
INT( _TSCP( 4 ) ) ) );
goto L3297;
L3296:
X2 = scrt2__2d_2dtwo( X3, _TSCP( 4 ) );
L3297:
SETGEN( PAIR_CAR( l2122 ), X2 );
X1 = PAIR_CAR( X1 );
goto L3257;
}
DEFTSCP( expform_newv_v );
DEFSTRING( t3298, "NEWV", 4 );
EXTERNTSCPP( expform_make_2dalpha );
EXTERNTSCP( expform_make_2dalpha_v );
EXTERNTSCPP( scrt1_memv );
EXTERNTSCP( scrt1_memv_v );
TSCP expform_newv( v2186, p2187 )
TSCP v2186, p2187;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3298 ) ) );
X1 = plist_get( v2186, c1078 );
X3 = scrt1_memq( c1077, p2187 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3303;
scrt1__24__cdr_2derror( X3 );
L3303:
X4 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3306;
scrt1__24__car_2derror( X4 );
L3306:
X2 = PAIR_CAR( X4 );
X3 = EMPTYLIST;
X3 = CONS( X3, EMPTYLIST );
if ( FALSE( X1 ) ) goto L3330;
if ( FALSE( scrt1_memq( X2, c2198 ) ) ) goto L3330;
if ( FALSE( plist_get( X1, c1082 ) ) ) goto L3326;
X4 = plist_get( X1, c1077 );
if ( EQ( UNSIGNED( X4 ), UNSIGNED( c2215 ) ) ) goto L3321;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1078 ) ) ) goto L3326;
L3321:
if ( FALSE( plist_get( X1, c1352 ) ) ) goto L3325;
X4 = SYMBOL_VALUE( report_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
VIA( PROCEDURE_CODE( X4 ) )( c2222,
v2186,
PROCEDURE_CLOSURE( X4 ) );
goto L3326;
L3325:
X4 = SYMBOL_VALUE( report_2dwarning_v );
X4 = UNKNOWNCALL( X4, 2 );
VIA( PROCEDURE_CODE( X4 ) )( c2222,
v2186,
PROCEDURE_CLOSURE( X4 ) );
L3326:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1078 ) ) ) goto L3327;
X4 = X1;
SETGEN( PAIR_CAR( X3 ), X4 );
plist_put( PAIR_CAR( X3 ), c1326, EMPTYLIST );
plist_put( PAIR_CAR( X3 ), c1082, EMPTYLIST );
plist_put( PAIR_CAR( X3 ), c1099, EMPTYLIST );
plist_put( PAIR_CAR( X3 ), c1250, EMPTYLIST );
goto L3331;
L3327:
X4 = expform_make_2dalpha( v2186 );
SETGEN( PAIR_CAR( X3 ), X4 );
goto L3331;
L3330:
X4 = expform_make_2dalpha( v2186 );
SETGEN( PAIR_CAR( X3 ), X4 );
L3331:
plist_put( PAIR_CAR( X3 ), c1225, v2186 );
X4 = p2187;
L3333:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L3334;
X5 = plist_get( PAIR_CAR( X3 ), c1077 );
if ( FALSE( scrt1_memv( X5, c2280 ) ) ) goto L3338;
plist_put( v2186, c1078, PAIR_CAR( X3 ) );
if ( EQ( UNSIGNED( PAIR_CAR( X3 ) ),
UNSIGNED( X1 ) ) ) goto L3347;
X8 = sc_cons( PAIR_CAR( X3 ), EMPTYLIST );
X7 = sc_cons( v2186, X8 );
X6 = X7;
expform_global_2dfree_2dvars_v = sc_cons( X6,
expform_global_2dfree_2dvars_v );
goto L3347;
L3338:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c2284 ) ) ) goto L3344;
X8 = sc_cons( PAIR_CAR( X3 ), EMPTYLIST );
X7 = sc_cons( v2186, X8 );
X6 = X7;
expform_und_2dvars_85c10849_v = sc_cons( X6,
expform_und_2dvars_85c10849_v );
goto L3347;
L3344:
if ( FALSE( scrt1_memv( X5, c2285 ) ) ) goto L3347;
X7 = SYMBOL_VALUE( downshift_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( PAIR_CAR( X3 ),
PROCEDURE_CLOSURE( X7 ) );
plist_put( PAIR_CAR( X3 ),
c1225, PAIR_CAR( X3 ) );
X7 = plist_get( PAIR_CAR( X3 ), c1077 );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1326 ) ) ) goto L3350;
X8 = SYMBOL_VALUE( module_2dname_v );
X7 = expform_hex28( X8, X6 );
plist_put( PAIR_CAR( X3 ), c1250, X7 );
goto L3351;
L3350:
X7 = expform_hex28( sc_emptystring, X6 );
plist_put( PAIR_CAR( X3 ), c1250, X7 );
L3351:
X7 = expform_hex28( sc_emptystring, X6 );
plist_put( PAIR_CAR( X3 ), c1099, X7 );
L3347:
POPSTACKTRACE( PAIR_CAR( X3 ) );
L3334:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3354;
scrt1__24__car_2derror( X4 );
L3354:
X5 = PAIR_CAR( X4 );
X7 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3358;
scrt1__24__car_2derror( X7 );
L3358:
X6 = PAIR_CAR( X7 );
plist_put( PAIR_CAR( X3 ), X5, X6 );
X5 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3362;
scrt1__24__cdr_2derror( X5 );
L3362:
X4 = PAIR_CDR( X5 );
goto L3333;
}
DEFTSCP( expform_make_2dalpha_v );
DEFSTRING( t3364, "MAKE-ALPHA", 10 );
EXTERNTSCPP( sc_string_2d_3esymbol );
EXTERNTSCP( sc_string_2d_3esymbol_v );
TSCP expform_make_2dalpha( v2332 )
TSCP v2332;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3364 ) ) );
L3365:
if ( AND( EQ( TSCPTAG( v2332 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( v2332 ), SYMBOLTAG ) )
) goto L3367;
scrt6_error( c1606,
c1607, CONS( v2332, EMPTYLIST ) );
L3367:
X2 = SYMBOL_NAME( v2332 );
if ( EQ( TSCPTAG( _TSCP( 0 ) ), FIXNUMTAG ) ) goto L3370;
scrt6_error( c1635,
c1636, CONS( _TSCP( 0 ), EMPTYLIST ) );
L3370:
X3 = BOOLEAN( LT( INT( _TSCP( 0 ) ), 0 ) );
if ( TRUE( X3 ) ) goto L3376;
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L3378;
scrt6_error( c1627, c1628, CONS( X2, EMPTYLIST ) );
L3378:
X4 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X4 ) ),
3 ) ) goto L3382;
if ( GTE( INT( _TSCP( 0 ) ), INT( X4 ) ) ) goto L3376;
goto L3389;
L3382:
if ( FALSE( scrt2__3e_3d_2dtwo( _TSCP( 0 ), X4 ) ) ) goto L3389;
L3376:
scrt6_error( c1635,
c1657, CONS( _TSCP( 0 ), EMPTYLIST ) );
L3389:
X1 = C_CHAR( STRING_CHAR( X2, _TSCP( 0 ) ) );
X4 = CONS( expform_make_2dalpha_2dseq_v, EMPTYLIST );
X4 = CONS( X1, X4 );
X3 = scrt6_format( EMPTYLIST, CONS( c2345, X4 ) );
X2 = sc_string_2d_3esymbol( X3 );
X3 = expform_make_2dalpha_2dseq_v;
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3393;
X4 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 4 ) ) ) );
goto L3394;
L3393:
X4 = scrt2__2b_2dtwo( X3, _TSCP( 4 ) );
L3394:
expform_make_2dalpha_2dseq_v = X4;
if ( TRUE( plist_get( X2, c1225 ) ) ) goto L3365;
POPSTACKTRACE( X2 );
}
DEFTSCP( expform_bound_v );
DEFSTRING( t3397, "BOUND", 5 );
EXTERNTSCPP( scrt1_assq );
EXTERNTSCP( scrt1_assq_v );
EXTERNTSCPP( scrt1_assoc );
EXTERNTSCP( scrt1_assoc_v );
TSCP expform_bound( v2376 )
TSCP v2376;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3397 ) ) );
X1 = scrt1_assq( v2376, expform_und_2dvars_85c10849_v );
if ( FALSE( X1 ) ) goto L3400;
X2 = X1;
goto L3401;
L3400:
X2 = scrt1_assq( v2376, expform_lexical_2dfree_2dvars_v );
L3401:
X2 = CONS( X2, EMPTYLIST );
X4 = PAIR_CAR( X2 );
if ( FALSE( X4 ) ) goto L3404;
X3 = X4;
goto L3405;
L3404:
X3 = plist_get( v2376, c1078 );
L3405:
if ( FALSE( X1 ) ) goto L3407;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3410;
scrt1__24__cdr_2derror( X1 );
L3410:
X4 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3413;
scrt1__24__car_2derror( X4 );
L3413:
POPSTACKTRACE( PAIR_CAR( X4 ) );
L3407:
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L3415;
X5 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3420;
scrt1__24__cdr_2derror( X5 );
L3420:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3423;
scrt1__24__car_2derror( X6 );
L3423:
X4 = PAIR_CAR( X6 );
SETGEN( PAIR_CAR( X2 ), X4 );
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3415:
if ( FALSE( X3 ) ) goto L3425;
X4 = plist_get( X3, c1077 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1029 ) ) ) goto L3430;
X4 = SYMBOL_VALUE( quote_2dconstants_v );
if ( TRUE( scrt1_assoc( v2376, X4 ) ) ) goto L3430;
X6 = sc_cons( X3, EMPTYLIST );
X5 = sc_cons( v2376, X6 );
X4 = X5;
X5 = SYMBOL_VALUE( quote_2dconstants_v );
SETGENTL( SYMBOL_VALUE( quote_2dconstants_v ),
sc_cons( X4, X5 ) );
L3430:
POPSTACKTRACE( X3 );
L3425:
X4 = CONS( SYMBOL_VALUE( current_2ddefine_2dname_v ),
EMPTYLIST );
X4 = CONS( c1086, X4 );
X4 = CONS( c1078, X4 );
POPSTACKTRACE( expform_newv( v2376,
CONS( c1077, X4 ) ) );
}
DEFTSCP( expform_expand_2derror_v );
DEFSTRING( t3433, "EXPAND-ERROR", 12 );
TSCP expform_expand_2derror( f2427, e2428 )
TSCP f2427, e2428;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3433 ) ) );
X1 = SYMBOL_VALUE( report_2derror_v );
X1 = UNKNOWNCALL( X1, 4 );
VIA( PROCEDURE_CODE( X1 ) )( c2429,
f2427,
c2430,
e2428,
PROCEDURE_CLOSURE( X1 ) );
POPSTACKTRACE( c2431 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt2__init();
scrt3__init();
plist__init();
scrt1__init();
scrt6__init();
MAXDISPLAY( 0 );
}
void expform__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(expform SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2694 ) ),
ADR( expform_global_2dfree_2dvars_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2695 ) ),
ADR( expform_lexical_2dfree_2dvars_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2696 ) ),
ADR( expform_und_2dvars_85c10849_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2697 ) ),
ADR( expform_current_2dlambda_2did_v ),
c1029 );
INITIALIZEVAR( U_TX( ADR( t2698 ) ),
ADR( expform_make_2dalpha_2dseq_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t2699 ) ),
ADR( expform_expand_2dforms_v ),
MAKEPROCEDURE( 0,
0,
expform_expand_2dforms,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2734 ) ),
ADR( expform_exp_2dform_v ),
MAKEPROCEDURE( 2,
0,
expform_exp_2dform, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2768 ) ),
ADR( expform_exp_2dform_2dlist_v ),
MAKEPROCEDURE( 2,
0,
expform_exp_2dform_2dlist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2787 ) ),
ADR( expform_id_2dprintname_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dprintname,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2789 ) ),
ADR( expform_intname_21_e25cd208_v ),
MAKEPROCEDURE( 2,
0,
expform_intname_21_e25cd208,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2791 ) ),
ADR( expform_id_2dvname_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dvname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2793 ) ),
ADR( expform_set_2did_2dvname_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dvname_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2795 ) ),
ADR( expform_id_2dcname_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dcname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2797 ) ),
ADR( expform_set_2did_2dcname_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dcname_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2799 ) ),
ADR( expform_id_2dmodule_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dmodule, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2801 ) ),
ADR( expform_set_2did_2dmodule_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dmodule_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2803 ) ),
ADR( expform_id_2duse_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2duse, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2805 ) ),
ADR( expform_set_2did_2duse_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2duse_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2807 ) ),
ADR( expform_id_2dtype_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dtype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2809 ) ),
ADR( expform_set_2did_2dtype_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dtype_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2811 ) ),
ADR( expform_id_2ddisplay_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2ddisplay, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2813 ) ),
ADR( expform_set_2did_2ddisplay_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2ddisplay_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2815 ) ),
ADR( expform_id_2dboundid_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dboundid, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2817 ) ),
ADR( expform_set_2did_2dboundid_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dboundid,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2819 ) ),
ADR( expform_id_2dlambda_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dlambda, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2821 ) ),
ADR( expform_set_2did_2dlambda_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dlambda_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2823 ) ),
ADR( expform_id_2dexternal_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dexternal, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2825 ) ),
ADR( expform_xternal_21_97042b81_v ),
MAKEPROCEDURE( 2,
0,
expform_xternal_21_97042b81,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2827 ) ),
ADR( expform_id_2ddefined_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2ddefined, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2829 ) ),
ADR( expform_set_2did_2ddefined_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2ddefined_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2831 ) ),
ADR( expform_id_2dvalue_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dvalue, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2833 ) ),
ADR( expform_set_2did_2dvalue_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dvalue_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2835 ) ),
ADR( expform_id_2dset_21_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dset_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2837 ) ),
ADR( expform_set_2did_2dset_21_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dset_21_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2839 ) ),
ADR( expform_id_2drefs_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2drefs, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2841 ) ),
ADR( expform_set_2did_2drefs_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2drefs_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2843 ) ),
ADR( expform_id_2dcalls_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dcalls, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2845 ) ),
ADR( expform_set_2did_2dcalls_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dcalls_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2847 ) ),
ADR( expform_id_2dalias_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dalias, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2849 ) ),
ADR( expform_set_2did_2dalias_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dalias_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2851 ) ),
ADR( expform_id_2dgotos_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dgotos, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2853 ) ),
ADR( expform_set_2did_2dgotos_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dgotos_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2855 ) ),
ADR( expform_id_2dundefref_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dundefref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2857 ) ),
ADR( expform_ndefref_21_c23a600d_v ),
MAKEPROCEDURE( 2,
0,
expform_ndefref_21_c23a600d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2859 ) ),
ADR( expform_id_2dglobal_v ),
MAKEPROCEDURE( 1,
0,
expform_id_2dglobal, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2861 ) ),
ADR( expform_set_2did_2dglobal_21_v ),
MAKEPROCEDURE( 2,
0,
expform_set_2did_2dglobal_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2863 ) ),
ADR( expform_assign_2dknown_2dname_v ),
MAKEPROCEDURE( 1,
0,
expform_assign_2dknown_2dname,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2880 ) ),
ADR( expform_name_2da_2dlambda_v ),
MAKEPROCEDURE( 2,
0,
expform_name_2da_2dlambda,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2898 ) ),
ADR( expform_vname_v ),
MAKEPROCEDURE( 1,
0, expform_vname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2907 ) ),
ADR( expform_cname_v ),
MAKEPROCEDURE( 1,
0, expform_cname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2916 ) ),
ADR( expform_lchexname_v ),
MAKEPROCEDURE( 1,
0,
expform_lchexname, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3067 ) ),
ADR( expform_hex28_v ),
MAKEPROCEDURE( 2,
0, expform_hex28, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3155 ) ),
ADR( expform_crc_2d32x2_v ),
MAKEPROCEDURE( 3,
0,
expform_crc_2d32x2, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3249 ) ),
ADR( expform_t_2dleft_v ), c2117 );
INITIALIZEVAR( U_TX( ADR( t3250 ) ),
ADR( expform_t_2dright_v ), c2118 );
INITIALIZEVAR( U_TX( ADR( t3251 ) ),
ADR( expform_char_2d_3edl_v ),
MAKEPROCEDURE( 3,
0,
expform_char_2d_3edl, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3298 ) ),
ADR( expform_newv_v ),
MAKEPROCEDURE( 1,
1, expform_newv, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3364 ) ),
ADR( expform_make_2dalpha_v ),
MAKEPROCEDURE( 1,
0,
expform_make_2dalpha, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3397 ) ),
ADR( expform_bound_v ),
MAKEPROCEDURE( 1,
0, expform_bound, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3433 ) ),
ADR( expform_expand_2derror_v ),
MAKEPROCEDURE( 2,
0,
expform_expand_2derror,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.