Ejemplo n.º 1
0
static void  init_constants()
{
        c2229 = STRINGTOSYMBOL( CSTRING_TSCP( "*EXPANDER*" ) );
        CONSTANTEXP( ADR( c2229 ) );
        c2214 = CSTRING_TSCP( t2300 );
        CONSTANTEXP( ADR( c2214 ) );
        c2213 = STRINGTOSYMBOL( CSTRING_TSCP( "SET-CDR!" ) );
        CONSTANTEXP( ADR( c2213 ) );
}
Ejemplo n.º 2
0
static void  init_constants()
{
        TSCP  X1;

        c2426 = EMPTYLIST;
        t2512 = STRINGTOSYMBOL( CSTRING_TSCP( "UNQUOTE-SPLICING" ) );
        c2426 = CONS( t2512, c2426 );
        t2513 = STRINGTOSYMBOL( CSTRING_TSCP( "QUOTE" ) );
        c2426 = CONS( t2513, c2426 );
        CONSTANTEXP( ADR( c2426 ) );
        c2402 = EMPTYLIST;
        X1 = EMPTYLIST;
        X1 = CONS( EMPTYLIST, X1 );
        X1 = CONS( t2513, X1 );
        c2402 = CONS( X1, c2402 );
        CONSTANTEXP( ADR( c2402 ) );
        c2391 = STRINGTOSYMBOL( CSTRING_TSCP( "APPEND" ) );
        CONSTANTEXP( ADR( c2391 ) );
        c2378 = STRINGTOSYMBOL( CSTRING_TSCP( "UNQUOTE-SPLICING" ) );
        CONSTANTEXP( ADR( c2378 ) );
        c2334 = STRINGTOSYMBOL( CSTRING_TSCP( "LIST->VECTOR" ) );
        CONSTANTEXP( ADR( c2334 ) );
        c2306 = EMPTYLIST;
        t2514 = STRINGTOSYMBOL( CSTRING_TSCP( "QUASIQUOTE" ) );
        c2306 = CONS( t2514, c2306 );
        c2306 = CONS( t2513, c2306 );
        CONSTANTEXP( ADR( c2306 ) );
        c2299 = STRINGTOSYMBOL( CSTRING_TSCP( "CONS*" ) );
        CONSTANTEXP( ADR( c2299 ) );
        c2222 = EMPTYLIST;
        t2515 = STRINGTOSYMBOL( CSTRING_TSCP( "UNQUOTE" ) );
        c2222 = CONS( t2515, c2222 );
        c2222 = CONS( t2513, c2222 );
        CONSTANTEXP( ADR( c2222 ) );
        c2221 = STRINGTOSYMBOL( CSTRING_TSCP( "LIST" ) );
        CONSTANTEXP( ADR( c2221 ) );
        c2202 = STRINGTOSYMBOL( CSTRING_TSCP( "QUOTE" ) );
        CONSTANTEXP( ADR( c2202 ) );
        c2173 = STRINGTOSYMBOL( CSTRING_TSCP( "UNQUOTE" ) );
        CONSTANTEXP( ADR( c2173 ) );
        c2135 = CSTRING_TSCP( t2516 );
        CONSTANTEXP( ADR( c2135 ) );
        c2134 = STRINGTOSYMBOL( CSTRING_TSCP( "QUASIQUOTE" ) );
        CONSTANTEXP( ADR( c2134 ) );
}
Ejemplo n.º 3
0
static void  init_constants()
{
        TSCP  X1;

        c2751 = EMPTYLIST;
        X1 = EMPTYLIST;
        t2832 = STRINGTOSYMBOL( CSTRING_TSCP( "*IGNORED*" ) );
        X1 = CONS( t2832, X1 );
        t2833 = STRINGTOSYMBOL( CSTRING_TSCP( "INCLUDE" ) );
        X1 = CONS( t2833, X1 );
        c2751 = CONS( X1, c2751 );
        t2834 = STRINGTOSYMBOL( CSTRING_TSCP( "QUOTE" ) );
        c2751 = CONS( t2834, c2751 );
        CONSTANTEXP( ADR( c2751 ) );
        c2747 = STRINGTOSYMBOL( CSTRING_TSCP( "INCLUDE" ) );
        CONSTANTEXP( ADR( c2747 ) );
        c2746 = EMPTYLIST;
        X1 = EMPTYLIST;
        X1 = CONS( t2832, X1 );
        t2835 = STRINGTOSYMBOL( CSTRING_TSCP( "MODULE" ) );
        X1 = CONS( t2835, X1 );
        c2746 = CONS( X1, c2746 );
        c2746 = CONS( t2834, c2746 );
        CONSTANTEXP( ADR( c2746 ) );
        c2742 = STRINGTOSYMBOL( CSTRING_TSCP( "MODULE" ) );
        CONSTANTEXP( ADR( c2742 ) );
        c2738 = EMPTYLIST;
        c2738 = CONS( FALSEVALUE, c2738 );
        CONSTANTEXP( ADR( c2738 ) );
        c2735 = CSTRING_TSCP( t2836 );
        CONSTANTEXP( ADR( c2735 ) );
        c2724 = STRINGTOSYMBOL( CSTRING_TSCP( "IF" ) );
        CONSTANTEXP( ADR( c2724 ) );
        c2693 = CSTRING_TSCP( t2837 );
        CONSTANTEXP( ADR( c2693 ) );
        c2660 = STRINGTOSYMBOL( CSTRING_TSCP( "EXP" ) );
        CONSTANTEXP( ADR( c2660 ) );
        c2659 = STRINGTOSYMBOL( CSTRING_TSCP( "DO" ) );
        CONSTANTEXP( ADR( c2659 ) );
        c2614 = CSTRING_TSCP( t2838 );
        CONSTANTEXP( ADR( c2614 ) );
        c2613 = STRINGTOSYMBOL( CSTRING_TSCP( "SET-CDR!" ) );
        CONSTANTEXP( ADR( c2613 ) );
        c2568 = STRINGTOSYMBOL( CSTRING_TSCP( "BEGIN" ) );
        CONSTANTEXP( ADR( c2568 ) );
        c2559 = STRINGTOSYMBOL( CSTRING_TSCP( "SET!" ) );
        CONSTANTEXP( ADR( c2559 ) );
        c2359 = STRINGTOSYMBOL( CSTRING_TSCP( "LET*" ) );
        CONSTANTEXP( ADR( c2359 ) );
        c2242 = STRINGTOSYMBOL( CSTRING_TSCP( "LAMBDA" ) );
        CONSTANTEXP( ADR( c2242 ) );
        c2231 = STRINGTOSYMBOL( CSTRING_TSCP( "LETREC" ) );
        CONSTANTEXP( ADR( c2231 ) );
        c2213 = CSTRING_TSCP( t2839 );
        CONSTANTEXP( ADR( c2213 ) );
        c2166 = CSTRING_TSCP( t2840 );
        CONSTANTEXP( ADR( c2166 ) );
        c2165 = STRINGTOSYMBOL( CSTRING_TSCP( "LET" ) );
        CONSTANTEXP( ADR( c2165 ) );
}