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 ) );
}
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 ) );
}
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 ) );
}