This is macros.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2848, "ISLIST", 6 );
DEFSTATICTSCP( islist_v );
DEFSTRING( t2849, "EXPAND-ERROR", 12 );
DEFSTATICTSCP( expand_2derror_v );
DEFSTRING( t2850, "QUASIQUOTATION", 14 );
DEFSTATICTSCP( quasiquotation_v );
DEFSTRING( t2851, "MAKE-ALPHA", 10 );
DEFSTATICTSCP( make_2dalpha_v );
DEFSTRING( t2852, "GET", 3 );
DEFSTATICTSCP( get_v );
DEFSTRING( t2853, "CURRENT-DEFINE-NAME", 19 );
DEFSTATICTSCP( current_2ddefine_2dname_v );
DEFSTRING( t2854, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t2855, "DO-DEFINE-MACRO", 15 );
DEFSTATICTSCP( do_2ddefine_2dmacro_v );
DEFSTRING( t2856, "DO-DEFINE-CONSTANT", 18 );
DEFSTATICTSCP( do_2ddefine_2dconstant_v );
DEFSTRING( t2857, "PUT", 3 );
DEFSTATICTSCP( put_v );
DEFSTRING( t2858, "*SC-IDENTIFIER-EXPANDER*", 24 );
DEFSTATICTSCP( _xpander_2a_9e90dc74_v );
DEFSTRING( t2859, "*SC-APPLICATION-EXPANDER*", 25 );
DEFSTATICTSCP( _xpander_2a_ecf97896_v );
DEFSTRING( t2860, "UNLESS", 6 );
DEFSTATICTSCP( c2607 );
DEFSTRING( t2861, "WHEN", 4 );
DEFSTATICTSCP( c2583 );
DEFSTRING( t2862, "PUT", 3 );
DEFSTATICTSCP( c2579 );
DEFSTRING( t2863, "LIST", 4 );
DEFSTATICTSCP( c2568 );
DEFSTRING( t2864, "DEFINE-CONSTANT", 15 );
DEFSTATICTSCP( c2554 );
DEFSTRING( t2865, "*EXPANDER*", 10 );
DEFSTATICTSCP( c2553 );
DEFSTRING( t2866, "PUTPROP", 7 );
DEFSTATICTSCP( c2542 );
DEFSTRING( t2867, "DEFINE-MACRO", 12 );
DEFSTATICTSCP( c2538 );
DEFSTRING( t2868, "LOAD", 4 );
DEFSTATICTSCP( c2523 );
DEFSTRING( t2869, "COMPILE", 7 );
DEFSTATICTSCP( c2512 );
DEFSTRING( t2870, "EVAL-WHEN", 9 );
DEFSTATICTSCP( c2511 );
DEFSTRING( t2871, "Duplicately defined symbol:", 27 );
DEFSTATICTSCP2( c2470, t2871 );
DEFSTRING( t2872, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c2355, t2872 );
DEFSTRING( t2873, "SET-CDR!", 8 );
DEFSTATICTSCP( c2354 );
DEFSTATICTSCP( c2257 );
DEFSTRING( t2874, "DOLOOP", 6 );
DEFSTATICTSCP2( c2254, t2874 );
DEFSTRING( t2875, "DO", 2 );
DEFSTATICTSCP( c2181 );
DEFSTRING( t2876, "SET!", 4 );
DEFSTATICTSCP( c2125 );
DEFSTATICTSCP( c2109 );
DEFSTRING( t2877, "LET*", 4 );
DEFSTATICTSCP( c1889 );
DEFSTRING( t2878, "LETREC", 6 );
DEFSTATICTSCP( c1765 );
DEFSTRING( t2879, "MACRO", 5 );
DEFSTATICTSCP( c1655 );
DEFSTRING( t2880, "NOT", 3 );
DEFSTATICTSCP( c1544 );
DEFSTRING( t2881, "AND", 3 );
DEFSTATICTSCP( c1327 );
DEFSTRING( t2882, "LAMBDA", 6 );
DEFSTATICTSCP( c1326 );
DEFSTRING( t2883, "THUNK", 5 );
DEFSTATICTSCP( c1325 );
DEFSTRING( t2884, "X", 1 );
DEFSTATICTSCP( c1314 );
DEFSTRING( t2885, "K", 1 );
DEFSTATICTSCP( c1272 );
DEFSTRING( t2886, "EQ?", 3 );
DEFSTATICTSCP( c1242 );
DEFSTRING( t2887, "EQV?", 4 );
DEFSTATICTSCP( c1231 );
DEFSTRING( t2888, "QUOTE", 5 );
DEFSTATICTSCP( c1210 );
DEFSTRING( t2889, "MEMV", 4 );
DEFSTATICTSCP( c1209 );
DEFSTRING( t2890, "CASE", 4 );
DEFSTATICTSCP( c1133 );
DEFSTRING( t2891, "COND-CLAUSE", 11 );
DEFSTATICTSCP( c1109 );
DEFSTRING( t2892, "OR", 2 );
DEFSTATICTSCP( c1104 );
DEFSTRING( t2893, "TEST", 4 );
DEFSTATICTSCP2( c1103, t2893 );
DEFSTRING( t2894, "LET", 3 );
DEFSTATICTSCP( c1098 );
DEFSTRING( t2895, "COND", 4 );
DEFSTATICTSCP( c1091 );
DEFSTRING( t2896, "BEGIN", 5 );
DEFSTATICTSCP( c1086 );
DEFSTRING( t2897, "IF", 2 );
DEFSTATICTSCP( c1081 );
DEFSTRING( t2898, "ELSE", 4 );
DEFSTATICTSCP( c1080 );
DEFSTRING( t2899, "=>", 2 );
DEFSTATICTSCP( c1061 );
DEFSTATICTSCP( c1035 );
DEFSTRING( t2900, "QUASIQUOTE", 10 );
DEFSTATICTSCP( c1012 );
static void init_constants()
{
islist_v = STRINGTOSYMBOL( U_TX( ADR( t2848 ) ) );
CONSTANTEXP( ADR( islist_v ) );
expand_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2849 ) ) );
CONSTANTEXP( ADR( expand_2derror_v ) );
quasiquotation_v = STRINGTOSYMBOL( U_TX( ADR( t2850 ) ) );
CONSTANTEXP( ADR( quasiquotation_v ) );
make_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t2851 ) ) );
CONSTANTEXP( ADR( make_2dalpha_v ) );
get_v = STRINGTOSYMBOL( U_TX( ADR( t2852 ) ) );
CONSTANTEXP( ADR( get_v ) );
current_2ddefine_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2853 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dname_v ) );
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2854 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
do_2ddefine_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2855 ) ) );
CONSTANTEXP( ADR( do_2ddefine_2dmacro_v ) );
do_2ddefine_2dconstant_v = STRINGTOSYMBOL( U_TX( ADR( t2856 ) ) );
CONSTANTEXP( ADR( do_2ddefine_2dconstant_v ) );
put_v = STRINGTOSYMBOL( U_TX( ADR( t2857 ) ) );
CONSTANTEXP( ADR( put_v ) );
_xpander_2a_9e90dc74_v = STRINGTOSYMBOL( U_TX( ADR( t2858 ) ) );
CONSTANTEXP( ADR( _xpander_2a_9e90dc74_v ) );
_xpander_2a_ecf97896_v = STRINGTOSYMBOL( U_TX( ADR( t2859 ) ) );
CONSTANTEXP( ADR( _xpander_2a_ecf97896_v ) );
c2607 = STRINGTOSYMBOL( U_TX( ADR( t2860 ) ) );
CONSTANTEXP( ADR( c2607 ) );
c2583 = STRINGTOSYMBOL( U_TX( ADR( t2861 ) ) );
CONSTANTEXP( ADR( c2583 ) );
c2579 = STRINGTOSYMBOL( U_TX( ADR( t2862 ) ) );
CONSTANTEXP( ADR( c2579 ) );
c2568 = STRINGTOSYMBOL( U_TX( ADR( t2863 ) ) );
CONSTANTEXP( ADR( c2568 ) );
c2554 = STRINGTOSYMBOL( U_TX( ADR( t2864 ) ) );
CONSTANTEXP( ADR( c2554 ) );
c2553 = STRINGTOSYMBOL( U_TX( ADR( t2865 ) ) );
CONSTANTEXP( ADR( c2553 ) );
c2542 = STRINGTOSYMBOL( U_TX( ADR( t2866 ) ) );
CONSTANTEXP( ADR( c2542 ) );
c2538 = STRINGTOSYMBOL( U_TX( ADR( t2867 ) ) );
CONSTANTEXP( ADR( c2538 ) );
c2523 = STRINGTOSYMBOL( U_TX( ADR( t2868 ) ) );
CONSTANTEXP( ADR( c2523 ) );
c2512 = STRINGTOSYMBOL( U_TX( ADR( t2869 ) ) );
CONSTANTEXP( ADR( c2512 ) );
c2511 = STRINGTOSYMBOL( U_TX( ADR( t2870 ) ) );
CONSTANTEXP( ADR( c2511 ) );
c2354 = STRINGTOSYMBOL( U_TX( ADR( t2873 ) ) );
CONSTANTEXP( ADR( c2354 ) );
c2257 = EMPTYLIST;
c2257 = CONS( FALSEVALUE, c2257 );
CONSTANTEXP( ADR( c2257 ) );
c2181 = STRINGTOSYMBOL( U_TX( ADR( t2875 ) ) );
CONSTANTEXP( ADR( c2181 ) );
c2125 = STRINGTOSYMBOL( U_TX( ADR( t2876 ) ) );
CONSTANTEXP( ADR( c2125 ) );
c2109 = EMPTYLIST;
c2109 = CONS( FALSEVALUE, c2109 );
c2109 = CONS( TRUEVALUE, c2109 );
CONSTANTEXP( ADR( c2109 ) );
c1889 = STRINGTOSYMBOL( U_TX( ADR( t2877 ) ) );
CONSTANTEXP( ADR( c1889 ) );
c1765 = STRINGTOSYMBOL( U_TX( ADR( t2878 ) ) );
CONSTANTEXP( ADR( c1765 ) );
c1655 = STRINGTOSYMBOL( U_TX( ADR( t2879 ) ) );
CONSTANTEXP( ADR( c1655 ) );
c1544 = STRINGTOSYMBOL( U_TX( ADR( t2880 ) ) );
CONSTANTEXP( ADR( c1544 ) );
c1327 = STRINGTOSYMBOL( U_TX( ADR( t2881 ) ) );
CONSTANTEXP( ADR( c1327 ) );
c1326 = STRINGTOSYMBOL( U_TX( ADR( t2882 ) ) );
CONSTANTEXP( ADR( c1326 ) );
c1325 = STRINGTOSYMBOL( U_TX( ADR( t2883 ) ) );
CONSTANTEXP( ADR( c1325 ) );
c1314 = STRINGTOSYMBOL( U_TX( ADR( t2884 ) ) );
CONSTANTEXP( ADR( c1314 ) );
c1272 = STRINGTOSYMBOL( U_TX( ADR( t2885 ) ) );
CONSTANTEXP( ADR( c1272 ) );
c1242 = STRINGTOSYMBOL( U_TX( ADR( t2886 ) ) );
CONSTANTEXP( ADR( c1242 ) );
c1231 = STRINGTOSYMBOL( U_TX( ADR( t2887 ) ) );
CONSTANTEXP( ADR( c1231 ) );
c1210 = STRINGTOSYMBOL( U_TX( ADR( t2888 ) ) );
CONSTANTEXP( ADR( c1210 ) );
c1209 = STRINGTOSYMBOL( U_TX( ADR( t2889 ) ) );
CONSTANTEXP( ADR( c1209 ) );
c1133 = STRINGTOSYMBOL( U_TX( ADR( t2890 ) ) );
CONSTANTEXP( ADR( c1133 ) );
c1109 = STRINGTOSYMBOL( U_TX( ADR( t2891 ) ) );
CONSTANTEXP( ADR( c1109 ) );
c1104 = STRINGTOSYMBOL( U_TX( ADR( t2892 ) ) );
CONSTANTEXP( ADR( c1104 ) );
c1098 = STRINGTOSYMBOL( U_TX( ADR( t2894 ) ) );
CONSTANTEXP( ADR( c1098 ) );
c1091 = STRINGTOSYMBOL( U_TX( ADR( t2895 ) ) );
CONSTANTEXP( ADR( c1091 ) );
c1086 = STRINGTOSYMBOL( U_TX( ADR( t2896 ) ) );
CONSTANTEXP( ADR( c1086 ) );
c1081 = STRINGTOSYMBOL( U_TX( ADR( t2897 ) ) );
CONSTANTEXP( ADR( c1081 ) );
c1080 = STRINGTOSYMBOL( U_TX( ADR( t2898 ) ) );
CONSTANTEXP( ADR( c1080 ) );
c1061 = STRINGTOSYMBOL( U_TX( ADR( t2899 ) ) );
CONSTANTEXP( ADR( c1061 ) );
c1035 = EMPTYLIST;
c1035 = CONS( c1080, c1035 );
CONSTANTEXP( ADR( c1035 ) );
c1012 = STRINGTOSYMBOL( U_TX( ADR( t2900 ) ) );
CONSTANTEXP( ADR( c1012 ) );
}
DEFTSCP( macros_old_2dmacro_v );
DEFSTRING( t2901, "OLD-MACRO", 9 );
DEFSTRING( t2904, "macros_l1003 [inside OLD-MACRO]", 31 );
TSCP macros_l1003( e1004, e1005, c2903 )
TSCP e1004, e1005, c2903;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2904 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2903, 0 );
X5 = DISPLAY( 0 );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( e1004,
PROCEDURE_CLOSURE( X5 ) );
X3 = e1005;
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X4,
e1005,
PROCEDURE_CLOSURE( X3 ) );
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
TSCP macros_old_2dmacro( e1002 )
TSCP e1002;
{
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2901 ) ) );
DISPLAY( 0 ) = e1002;
SDVAL = MAKEPROCEDURE( 2,
0,
macros_l1003,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( macros_quasiquote_2dmacro_v );
DEFSTRING( t2906, "QUASIQUOTE-MACRO", 16 );
TSCP macros_quasiquote_2dmacro( e1008 )
TSCP e1008;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2906 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( e1008,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2908;
X1 = SYMBOL_VALUE( quasiquotation_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( _TSCP( 4 ),
e1008,
PROCEDURE_CLOSURE( X1 ) ) );
L2908:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1012,
e1008,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_cond_2dmacro_v );
DEFSTRING( t2910, "COND-MACRO", 10 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( sc_d_2dsymbol_ab4b4447 );
EXTERNTSCP( sc_d_2dsymbol_ab4b4447_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
TSCP macros_cond_2dmacro( e1017 )
TSCP e1017;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2910 ) ) );
if ( EQ( TSCPTAG( e1017 ), PAIRTAG ) ) goto L2913;
scrt1__24__cdr_2derror( e1017 );
L2913:
X3 = PAIR_CDR( e1017 );
if ( FALSE( X3 ) ) goto L2916;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2919;
scrt1__24__car_2derror( X3 );
L2919:
X2 = PAIR_CAR( X3 );
goto L2917;
L2916:
X2 = X3;
L2917:
if ( FALSE( X2 ) ) goto L2922;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2925;
scrt1__24__cdr_2derror( X3 );
L2925:
X1 = PAIR_CDR( X3 );
goto L2923;
L2922:
X1 = X2;
L2923:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2928;
X4 = BOOLEAN( NEQ( TSCPTAG( X2 ), PAIRTAG ) );
if ( TRUE( X4 ) ) goto L2934;
if ( TRUE( scrt1_equal_3f( X2, c1035 ) ) ) goto L2934;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2940;
scrt1__24__cdr_2derror( X2 );
L2940:
X5 = PAIR_CDR( X2 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2937;
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1091,
CONS( scrt1_append_2dtwo( X1, X7 ),
EMPTYLIST ) ),
X5 );
POPSTACKTRACE( scrt1_cons_2a( c1104,
CONS( PAIR_CAR( X2 ), X5 ) ) );
L2937:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2944;
scrt1__24__cdr_2derror( X2 );
L2944:
X7 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2947;
scrt1__24__car_2derror( X7 );
L2947:
X6 = PAIR_CAR( X7 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1061 ) ) );
if ( FALSE( X5 ) ) goto L2963;
X6 = scrt1_length( X2 );
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L2955;
if ( EQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( 12 ) ) ) ) goto L2959;
goto L2963;
L2955:
if ( TRUE( scrt2__3d_2dtwo( X6, _TSCP( 12 ) ) ) ) goto L2959;
goto L2963;
L2928:
POPSTACKTRACE( FALSEVALUE );
L2934:
X3 = SYMBOL_VALUE( expand_2derror_v );
X3 = UNKNOWNCALL( X3, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X3 ) )( c1109,
e1017,
PROCEDURE_CLOSURE( X3 ) ) );
L2959:
X3 = sc_d_2dsymbol_ab4b4447( c1103 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1091,
CONS( scrt1_append_2dtwo( X1, X7 ),
EMPTYLIST ) ),
X5 );
X6 = scrt1_caddr( X2 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( X6, CONS( X3, X7 ) ),
X5 );
X4 = CONS( scrt1_cons_2a( c1081, CONS( X3, X5 ) ),
X4 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( X3,
CONS( PAIR_CAR( X2 ), X6 ) );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( scrt1_cons_2a( X5,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X4 ) ) );
L2963:
X3 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1080 ) ) ) goto L2966;
X4 = PAIR_CDR( X2 );
X5 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X4, X5 ),
EMPTYLIST ) ) );
L2966:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1091,
CONS( scrt1_append_2dtwo( X1, X5 ),
EMPTYLIST ) ),
X3 );
X5 = PAIR_CDR( X2 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X5, X6 ),
EMPTYLIST ) ),
X3 );
POPSTACKTRACE( scrt1_cons_2a( c1081,
CONS( PAIR_CAR( X2 ), X3 ) ) );
}
DEFTSCP( macros_case_2dmacro_v );
DEFSTRING( t2972, "CASE-MACRO", 10 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1_caaar );
EXTERNTSCP( scrt1_caaar_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
TSCP macros_case_2dmacro( e1132 )
TSCP e1132;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2972 ) ) );
X5 = SYMBOL_VALUE( islist_v );
X5 = UNKNOWNCALL( X5, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X5 ) )( e1132,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X5 ) ) )
) goto L2974;
if ( EQ( TSCPTAG( e1132 ), PAIRTAG ) ) goto L2978;
scrt1__24__cdr_2derror( e1132 );
L2978:
X5 = PAIR_CDR( e1132 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2981;
scrt1__24__car_2derror( X5 );
L2981:
X2 = PAIR_CAR( X5 );
X5 = SYMBOL_VALUE( make_2dalpha_v );
X5 = UNKNOWNCALL( X5, 1 );
X3 = VIA( PROCEDURE_CODE( X5 ) )( c1272,
PROCEDURE_CLOSURE( X5 ) );
X5 = PAIR_CDR( e1132 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2985;
scrt1__24__cdr_2derror( X5 );
L2985:
X4 = PAIR_CDR( X5 );
X1 = EMPTYLIST;
L2987:
X1 = CONS( X1, EMPTYLIST );
X5 = BOOLEAN( NEQ( TSCPTAG( X4 ), PAIRTAG ) );
if ( TRUE( X5 ) ) goto L2992;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2996;
scrt1__24__car_2derror( X4 );
L2996:
X7 = PAIR_CAR( X4 );
X6 = SYMBOL_VALUE( islist_v );
X6 = UNKNOWNCALL( X6, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X6 ) )( X7,
_TSCP( 8 ),
PROCEDURE_CLOSURE( X6 ) ) )
) goto L2992;
X7 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3003;
scrt1__24__car_2derror( X7 );
L3003:
X6 = PAIR_CAR( X7 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1080 ) ) ) goto L2999;
X7 = PAIR_CAR( X4 );
X6 = sc_cons( X7, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X6 );
goto L3024;
L2999:
X9 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3008;
scrt1__24__car_2derror( X9 );
L3008:
X8 = PAIR_CAR( X9 );
X7 = scrt1_length( X8 );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3011;
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( _TSCP( 4 ) ) ) );
goto L3012;
L3011:
X6 = scrt2__3d_2dtwo( X7, _TSCP( 4 ) );
L3012:
if ( FALSE( X6 ) ) goto L3023;
X7 = scrt1_caaar( X4 );
if ( AND( EQ( TSCPTAG( X7 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X7 ), FLOATTAG ) ) ) goto L3023;
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c1210,
CONS( scrt1_caaar( X4 ), X11 ) ),
X10 );
X9 = scrt1_cons_2a( c1242, CONS( X3, X10 ) );
X12 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3021;
scrt1__24__cdr_2derror( X12 );
L3021:
X11 = PAIR_CDR( X12 );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( X9,
CONS( scrt1_append_2dtwo( X11, X12 ),
EMPTYLIST ) );
X7 = sc_cons( X8, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X7 );
goto L3024;
L3023:
X9 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3027;
scrt1__24__car_2derror( X9 );
L3027:
X8 = PAIR_CAR( X9 );
X7 = scrt1_length( X8 );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3031;
if ( EQ( UNSIGNED( X7 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L3035;
goto L3036;
L3031:
if ( TRUE( scrt2__3d_2dtwo( X7, _TSCP( 4 ) ) ) ) goto L3035;
L3036:
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3041;
scrt1__24__car_2derror( X12 );
L3041:
X10 = CONS( scrt1_cons_2a( c1210,
CONS( PAIR_CAR( X12 ), X11 ) ),
X10 );
X9 = scrt1_cons_2a( c1209, CONS( X3, X10 ) );
X12 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3045;
scrt1__24__cdr_2derror( X12 );
L3045:
X11 = PAIR_CDR( X12 );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( X9,
CONS( scrt1_append_2dtwo( X11, X12 ),
EMPTYLIST ) );
X7 = sc_cons( X8, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X7 );
goto L3024;
L3035:
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c1210,
CONS( scrt1_caaar( X4 ), X11 ) ),
X10 );
X9 = scrt1_cons_2a( c1231, CONS( X3, X10 ) );
X12 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3049;
scrt1__24__cdr_2derror( X12 );
L3049:
X11 = PAIR_CDR( X12 );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( X9,
CONS( scrt1_append_2dtwo( X11, X12 ),
EMPTYLIST ) );
X7 = sc_cons( X8, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X7 );
L3024:
X6 = PAIR_CDR( X4 );
X1 = PAIR_CAR( X1 );
X4 = X6;
goto L2987;
L2974:
X5 = SYMBOL_VALUE( expand_2derror_v );
X5 = UNKNOWNCALL( X5, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X5 ) )( c1133,
e1132,
PROCEDURE_CLOSURE( X5 ) ) );
L2992:
if ( FALSE( X4 ) ) goto L3052;
X5 = SYMBOL_VALUE( expand_2derror_v );
X5 = UNKNOWNCALL( X5, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X5 ) )( c1133,
e1132,
PROCEDURE_CLOSURE( X5 ) ) );
L3052:
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_reverse( PAIR_CAR( X1 ) );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1091,
CONS( scrt1_append_2dtwo( X7, X8 ),
EMPTYLIST ) ),
X5 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( X3, CONS( X2, X7 ) );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( scrt1_cons_2a( X6,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X5 ) ) );
}
DEFTSCP( macros_and_2dmacro_v );
DEFSTRING( t3054, "AND-MACRO", 9 );
EXTERNTSCPP( macros_boolean_2dconstant );
EXTERNTSCP( macros_boolean_2dconstant_v );
TSCP macros_and_2dmacro( e1286 )
TSCP e1286;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3054 ) ) );
if ( EQ( TSCPTAG( e1286 ), PAIRTAG ) ) goto L3057;
scrt1__24__cdr_2derror( e1286 );
L3057:
if ( FALSE( PAIR_CDR( e1286 ) ) ) goto L3059;
X3 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3063;
scrt1__24__car_2derror( X3 );
L3063:
X2 = PAIR_CAR( X3 );
X1 = macros_boolean_2dconstant( X2 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3066;
if ( FALSE( PAIR_CAR( X1 ) ) ) goto L3069;
X2 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3073;
scrt1__24__cdr_2derror( X2 );
L3073:
if ( FALSE( PAIR_CDR( X2 ) ) ) goto L3075;
X5 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3079;
scrt1__24__cdr_2derror( X5 );
L3079:
X4 = PAIR_CDR( X5 );
X5 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1327,
CONS( scrt1_append_2dtwo( X4, X5 ),
EMPTYLIST ) ) );
L3075:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3069:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3066:
X3 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3087;
scrt1__24__cdr_2derror( X3 );
L3087:
X2 = PAIR_CDR( X3 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L3083;
X2 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3091;
scrt1__24__car_2derror( X2 );
L3091:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3083:
X6 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3095;
scrt1__24__cdr_2derror( X6 );
L3095:
X5 = PAIR_CDR( X6 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1327,
CONS( scrt1_append_2dtwo( X5, X6 ),
EMPTYLIST ) );
X2 = macros_boolean_2dconstant( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3098;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1314, X4 );
X4 = CONS( PAIR_CAR( X2 ), X4 );
X3 = CONS( scrt1_cons_2a( c1081, CONS( c1314, X4 ) ),
X3 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3103;
scrt1__24__car_2derror( X6 );
L3103:
X4 = scrt1_cons_2a( c1314,
CONS( PAIR_CAR( X6 ), X5 ) );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( scrt1_cons_2a( X4,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X3 ) ) );
L3098:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1314, X4 );
X4 = CONS( scrt1_cons_2a( c1325,
CONS( EMPTYLIST, EMPTYLIST ) ),
X4 );
X3 = CONS( scrt1_cons_2a( c1081, CONS( c1314, X4 ) ),
X3 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3107;
scrt1__24__car_2derror( X6 );
L3107:
X4 = scrt1_cons_2a( c1314,
CONS( PAIR_CAR( X6 ), X5 ) );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X10 = PAIR_CDR( e1286 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3111;
scrt1__24__cdr_2derror( X10 );
L3111:
X9 = PAIR_CDR( X10 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( c1327,
CONS( scrt1_append_2dtwo( X9, X10 ),
EMPTYLIST ) ),
X7 );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( scrt1_cons_2a( X4,
CONS( scrt1_cons_2a( c1325,
CONS( scrt1_cons_2a( c1326,
CONS( EMPTYLIST,
X7 ) ),
X6 ) ),
X5 ) ),
X3 ) ) );
L3059:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( macros_or_2dmacro_v );
DEFSTRING( t3113, "OR-MACRO", 8 );
TSCP macros_or_2dmacro( e1417 )
TSCP e1417;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3113 ) ) );
if ( EQ( TSCPTAG( e1417 ), PAIRTAG ) ) goto L3116;
scrt1__24__cdr_2derror( e1417 );
L3116:
if ( FALSE( PAIR_CDR( e1417 ) ) ) goto L3118;
X3 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3122;
scrt1__24__car_2derror( X3 );
L3122:
X2 = PAIR_CAR( X3 );
X1 = macros_boolean_2dconstant( X2 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3125;
if ( FALSE( PAIR_CAR( X1 ) ) ) goto L3128;
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3128:
X2 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3133;
scrt1__24__cdr_2derror( X2 );
L3133:
if ( FALSE( PAIR_CDR( X2 ) ) ) goto L3135;
X5 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3139;
scrt1__24__cdr_2derror( X5 );
L3139:
X4 = PAIR_CDR( X5 );
X5 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1104,
CONS( scrt1_append_2dtwo( X4, X5 ),
EMPTYLIST ) ) );
L3135:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3125:
X3 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3146;
scrt1__24__cdr_2derror( X3 );
L3146:
X2 = PAIR_CDR( X3 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L3142;
X2 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3150;
scrt1__24__car_2derror( X2 );
L3150:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3142:
X6 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3154;
scrt1__24__cdr_2derror( X6 );
L3154:
X5 = PAIR_CDR( X6 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1104,
CONS( scrt1_append_2dtwo( X5, X6 ),
EMPTYLIST ) );
X2 = macros_boolean_2dconstant( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3157;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( PAIR_CAR( X2 ), X4 );
X4 = CONS( c1314, X4 );
X3 = CONS( scrt1_cons_2a( c1081, CONS( c1314, X4 ) ),
X3 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3162;
scrt1__24__car_2derror( X6 );
L3162:
X4 = scrt1_cons_2a( c1314,
CONS( PAIR_CAR( X6 ), X5 ) );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( scrt1_cons_2a( X4,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X3 ) ) );
L3157:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1325,
CONS( EMPTYLIST, EMPTYLIST ) ),
X4 );
X4 = CONS( c1314, X4 );
X3 = CONS( scrt1_cons_2a( c1081, CONS( c1314, X4 ) ),
X3 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3166;
scrt1__24__car_2derror( X6 );
L3166:
X4 = scrt1_cons_2a( c1314,
CONS( PAIR_CAR( X6 ), X5 ) );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X10 = PAIR_CDR( e1417 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3170;
scrt1__24__cdr_2derror( X10 );
L3170:
X9 = PAIR_CDR( X10 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( c1104,
CONS( scrt1_append_2dtwo( X9, X10 ),
EMPTYLIST ) ),
X7 );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( scrt1_cons_2a( X4,
CONS( scrt1_cons_2a( c1325,
CONS( scrt1_cons_2a( c1326,
CONS( EMPTYLIST,
X7 ) ),
X6 ) ),
X5 ) ),
X3 ) ) );
L3118:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( macros_not_2dmacro_v );
DEFSTRING( t3172, "NOT-MACRO", 9 );
TSCP macros_not_2dmacro( e1543 )
TSCP e1543;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3172 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( e1543,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3174;
if ( EQ( TSCPTAG( e1543 ), PAIRTAG ) ) goto L3177;
scrt1__24__cdr_2derror( e1543 );
L3177:
X3 = PAIR_CDR( e1543 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3180;
scrt1__24__car_2derror( X3 );
L3180:
X2 = PAIR_CAR( X3 );
X1 = macros_boolean_2dconstant( X2 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3183;
if ( TRUE( PAIR_CAR( X1 ) ) ) goto L3186;
POPSTACKTRACE( TRUEVALUE );
L3186:
POPSTACKTRACE( FALSEVALUE );
L3183:
X2 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( TRUEVALUE, X2 );
X2 = CONS( FALSEVALUE, X2 );
X3 = PAIR_CDR( e1543 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3190;
scrt1__24__car_2derror( X3 );
L3190:
POPSTACKTRACE( scrt1_cons_2a( c1081,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L3174:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1544,
e1543,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_boolean_2dconstant_v );
DEFSTRING( t3192, "BOOLEAN-CONSTANT", 16 );
EXTERNTSCPP( scrt1_boolean_3f );
EXTERNTSCP( scrt1_boolean_3f_v );
TSCP macros_boolean_2dconstant( e1575 )
TSCP e1575;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3192 ) ) );
L3193:
if ( NEQ( TSCPTAG( e1575 ), FIXNUMTAG ) ) goto L3194;
X1 = TRUEVALUE;
goto L3195;
L3194:
X1 = BOOLEAN( AND( EQ( TSCPTAG( e1575 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1575 ),
FLOATTAG ) ) );
L3195:
if ( TRUE( X1 ) ) goto L3200;
X2 = scrt1_boolean_3f( e1575 );
if ( TRUE( X2 ) ) goto L3200;
if ( AND( EQ( TSCPTAG( e1575 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1575 ), STRINGTAG ) )
) goto L3200;
if ( NEQ( TSCPTAG( e1575 ), PAIRTAG ) ) goto L3224;
X3 = PAIR_CAR( e1575 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1210 ) ) ) goto L3224;
X3 = PAIR_CDR( e1575 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3219;
scrt1__24__car_2derror( X3 );
L3219:
if ( TRUE( PAIR_CAR( X3 ) ) ) goto L3200;
L3224:
if ( NOT( AND( EQ( TSCPTAG( e1575 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1575 ), SYMBOLTAG ) ) )
) goto L3225;
X2 = SYMBOL_VALUE( get_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1575,
c1655,
PROCEDURE_CLOSURE( X2 ) );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3228;
e1575 = PAIR_CAR( X1 );
goto L3193;
L3228:
POPSTACKTRACE( FALSEVALUE );
L3225:
if ( NEQ( TSCPTAG( e1575 ), PAIRTAG ) ) goto L3231;
X1 = PAIR_CAR( e1575 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1544 ) ) ) goto L3235;
e1575 = macros_not_2dmacro( e1575 );
goto L3193;
L3235:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1327 ) ) ) goto L3237;
e1575 = macros_and_2dmacro( e1575 );
goto L3193;
L3237:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1104 ) ) ) goto L3239;
e1575 = macros_or_2dmacro( e1575 );
goto L3193;
L3239:
POPSTACKTRACE( FALSEVALUE );
L3231:
POPSTACKTRACE( FALSEVALUE );
L3200:
X1 = sc_cons( e1575, EMPTYLIST );
POPSTACKTRACE( X1 );
}
DEFTSCP( macros_begin_2dmacro_v );
DEFSTRING( t3242, "BEGIN-MACRO", 11 );
TSCP macros_begin_2dmacro( e1660 )
TSCP e1660;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3242 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( e1660,
_TSCP( 8 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3244;
X1 = scrt1_length( e1660 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L3248;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 8 ) ) ) ) goto L3252;
goto L3253;
L3248:
if ( TRUE( scrt2__3d_2dtwo( X1, _TSCP( 8 ) ) ) ) goto L3252;
goto L3253;
L3244:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1086,
e1660,
PROCEDURE_CLOSURE( X1 ) ) );
L3252:
if ( EQ( TSCPTAG( e1660 ), PAIRTAG ) ) goto L3257;
scrt1__24__cdr_2derror( e1660 );
L3257:
X1 = PAIR_CDR( e1660 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3260;
scrt1__24__car_2derror( X1 );
L3260:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L3253:
if ( EQ( TSCPTAG( e1660 ), PAIRTAG ) ) goto L3263;
scrt1__24__cdr_2derror( e1660 );
L3263:
X2 = PAIR_CDR( e1660 );
X3 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_append_2dtwo( X2, X3 ), EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1098,
CONS( EMPTYLIST, X1 ) ) );
}
DEFTSCP( macros_let_2dmacro_v );
DEFSTRING( t3265, "LET-MACRO", 9 );
EXTERNTSCPP( scrt1_cadar );
EXTERNTSCP( scrt1_cadar_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
TSCP macros_let_2dmacro( e1686 )
TSCP e1686;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3265 ) ) );
X8 = SYMBOL_VALUE( islist_v );
X8 = UNKNOWNCALL( X8, 2 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( e1686,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X8 ) );
if ( FALSE( X7 ) ) goto L3316;
if ( EQ( TSCPTAG( e1686 ), PAIRTAG ) ) goto L3274;
scrt1__24__cdr_2derror( e1686 );
L3274:
X10 = PAIR_CDR( e1686 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3277;
scrt1__24__car_2derror( X10 );
L3277:
X9 = PAIR_CAR( X10 );
X8 = SYMBOL_VALUE( islist_v );
X8 = UNKNOWNCALL( X8, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X8 ) )( X9,
_TSCP( 0 ),
PROCEDURE_CLOSURE( X8 ) ) )
) goto L3316;
X8 = PAIR_CDR( e1686 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3282;
scrt1__24__car_2derror( X8 );
L3282:
X6 = PAIR_CAR( X8 );
X5 = EMPTYLIST;
X4 = EMPTYLIST;
L3284:
X4 = CONS( X4, EMPTYLIST );
X5 = CONS( X5, EMPTYLIST );
X8 = BOOLEAN( NEQ( TSCPTAG( X6 ), PAIRTAG ) );
if ( TRUE( X8 ) ) goto L3289;
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3293;
scrt1__24__car_2derror( X6 );
L3293:
X11 = PAIR_CAR( X6 );
X10 = SYMBOL_VALUE( islist_v );
X10 = UNKNOWNCALL( X10, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X10 ) )( X11,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X10 ) ) )
) goto L3290;
X9 = FALSEVALUE;
goto L3291;
L3290:
X9 = TRUEVALUE;
L3291:
if ( TRUE( X9 ) ) goto L3289;
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3303;
scrt1__24__car_2derror( X6 );
L3303:
X11 = PAIR_CAR( X6 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L3306;
scrt1__24__car_2derror( X11 );
L3306:
X10 = PAIR_CAR( X11 );
if ( NOT( AND( EQ( TSCPTAG( X10 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X10 ), SYMBOLTAG ) ) )
) goto L3289;
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3310;
scrt1__24__car_2derror( X6 );
L3310:
X12 = PAIR_CAR( X6 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3313;
scrt1__24__car_2derror( X12 );
L3313:
X11 = PAIR_CAR( X12 );
X10 = sc_cons( X11, PAIR_CAR( X5 ) );
SETGEN( PAIR_CAR( X5 ), X10 );
X11 = scrt1_cadar( X6 );
X10 = sc_cons( X11, PAIR_CAR( X4 ) );
SETGEN( PAIR_CAR( X4 ), X10 );
X10 = PAIR_CDR( X6 );
X4 = PAIR_CAR( X4 );
X5 = PAIR_CAR( X5 );
X6 = X10;
goto L3284;
L3316:
X8 = SYMBOL_VALUE( islist_v );
X8 = UNKNOWNCALL( X8, 2 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( e1686,
_TSCP( 16 ),
PROCEDURE_CLOSURE( X8 ) );
if ( FALSE( X7 ) ) goto L3362;
if ( EQ( TSCPTAG( e1686 ), PAIRTAG ) ) goto L3324;
scrt1__24__cdr_2derror( e1686 );
L3324:
X9 = PAIR_CDR( e1686 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3327;
scrt1__24__car_2derror( X9 );
L3327:
X8 = PAIR_CAR( X9 );
if ( NOT( AND( EQ( TSCPTAG( X8 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X8 ), SYMBOLTAG ) ) )
) goto L3362;
X3 = scrt1_caddr( e1686 );
X2 = EMPTYLIST;
X1 = EMPTYLIST;
L3330:
X1 = CONS( X1, EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
X8 = BOOLEAN( NEQ( TSCPTAG( X3 ), PAIRTAG ) );
if ( TRUE( X8 ) ) goto L3335;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3339;
scrt1__24__car_2derror( X3 );
L3339:
X11 = PAIR_CAR( X3 );
X10 = SYMBOL_VALUE( islist_v );
X10 = UNKNOWNCALL( X10, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X10 ) )( X11,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X10 ) ) )
) goto L3336;
X9 = FALSEVALUE;
goto L3337;
L3336:
X9 = TRUEVALUE;
L3337:
if ( TRUE( X9 ) ) goto L3335;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3349;
scrt1__24__car_2derror( X3 );
L3349:
X11 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L3352;
scrt1__24__car_2derror( X11 );
L3352:
X10 = PAIR_CAR( X11 );
if ( NOT( AND( EQ( TSCPTAG( X10 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X10 ), SYMBOLTAG ) ) )
) goto L3335;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3356;
scrt1__24__car_2derror( X3 );
L3356:
X12 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3359;
scrt1__24__car_2derror( X12 );
L3359:
X11 = PAIR_CAR( X12 );
X10 = sc_cons( X11, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X10 );
X11 = scrt1_cadar( X3 );
X10 = sc_cons( X11, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X10 );
X10 = PAIR_CDR( X3 );
X1 = PAIR_CAR( X1 );
X2 = PAIR_CAR( X2 );
X3 = X10;
goto L3330;
L3362:
X7 = SYMBOL_VALUE( expand_2derror_v );
X7 = UNKNOWNCALL( X7, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X7 ) )( c1098,
e1686,
PROCEDURE_CLOSURE( X7 ) ) );
L3289:
if ( FALSE( X6 ) ) goto L3363;
X7 = SYMBOL_VALUE( expand_2derror_v );
X7 = UNKNOWNCALL( X7, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X7 ) )( c1098,
e1686,
PROCEDURE_CLOSURE( X7 ) ) );
L3363:
X10 = PAIR_CDR( e1686 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3367;
scrt1__24__cdr_2derror( X10 );
L3367:
X9 = PAIR_CDR( X10 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_append_2dtwo( X9, X10 ), EMPTYLIST );
X7 = scrt1_cons_2a( c1326,
CONS( scrt1_reverse( PAIR_CAR( X5 ) ),
X8 ) );
X9 = scrt1_reverse( PAIR_CAR( X4 ) );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X7,
CONS( scrt1_append_2dtwo( X9,
X10 ),
EMPTYLIST ) ) );
L3335:
if ( FALSE( X3 ) ) goto L3369;
X7 = SYMBOL_VALUE( expand_2derror_v );
X7 = UNKNOWNCALL( X7, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X7 ) )( c1098,
e1686,
PROCEDURE_CLOSURE( X7 ) ) );
L3369:
X7 = CONS( EMPTYLIST, EMPTYLIST );
X9 = PAIR_CDR( e1686 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3373;
scrt1__24__car_2derror( X9 );
L3373:
X8 = PAIR_CAR( X9 );
X10 = scrt1_reverse( PAIR_CAR( X1 ) );
X11 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( X8,
CONS( scrt1_append_2dtwo( X10, X11 ),
EMPTYLIST ) ),
X7 );
X10 = PAIR_CDR( e1686 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3377;
scrt1__24__car_2derror( X10 );
L3377:
X9 = PAIR_CAR( X10 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cdddr( e1686 );
X13 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_append_2dtwo( X12, X13 ),
EMPTYLIST );
X8 = scrt1_cons_2a( X9,
CONS( scrt1_cons_2a( c1326,
CONS( scrt1_reverse( PAIR_CAR( X2 ) ),
X11 ) ),
X10 ) );
POPSTACKTRACE( scrt1_cons_2a( c1765,
CONS( scrt1_cons_2a( X8,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X7 ) ) );
}
DEFTSCP( macros_let_2a_2dmacro_v );
DEFSTRING( t3379, "LET*-MACRO", 10 );
EXTERNTSCPP( macros_let_2a_2dresult );
EXTERNTSCP( macros_let_2a_2dresult_v );
TSCP macros_let_2a_2dmacro( e1855 )
TSCP e1855;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3379 ) ) );
X5 = SYMBOL_VALUE( islist_v );
X5 = UNKNOWNCALL( X5, 2 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( e1855,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X5 ) );
if ( FALSE( X4 ) ) goto L3430;
if ( EQ( TSCPTAG( e1855 ), PAIRTAG ) ) goto L3388;
scrt1__24__cdr_2derror( e1855 );
L3388:
X7 = PAIR_CDR( e1855 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3391;
scrt1__24__car_2derror( X7 );
L3391:
X6 = PAIR_CAR( X7 );
X5 = SYMBOL_VALUE( islist_v );
X5 = UNKNOWNCALL( X5, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X5 ) )( X6,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X5 ) ) )
) goto L3430;
X5 = PAIR_CDR( e1855 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3396;
scrt1__24__car_2derror( X5 );
L3396:
X3 = PAIR_CAR( X5 );
X2 = EMPTYLIST;
X1 = EMPTYLIST;
L3398:
X1 = CONS( X1, EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
X5 = BOOLEAN( NEQ( TSCPTAG( X3 ), PAIRTAG ) );
if ( TRUE( X5 ) ) goto L3403;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3407;
scrt1__24__car_2derror( X3 );
L3407:
X8 = PAIR_CAR( X3 );
X7 = SYMBOL_VALUE( islist_v );
X7 = UNKNOWNCALL( X7, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X7 ) )( X8,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X7 ) ) )
) goto L3404;
X6 = FALSEVALUE;
goto L3405;
L3404:
X6 = TRUEVALUE;
L3405:
if ( TRUE( X6 ) ) goto L3403;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3417;
scrt1__24__car_2derror( X3 );
L3417:
X8 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3420;
scrt1__24__car_2derror( X8 );
L3420:
X7 = PAIR_CAR( X8 );
if ( NOT( AND( EQ( TSCPTAG( X7 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X7 ), SYMBOLTAG ) ) )
) goto L3403;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3424;
scrt1__24__car_2derror( X3 );
L3424:
X9 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3427;
scrt1__24__car_2derror( X9 );
L3427:
X8 = PAIR_CAR( X9 );
X7 = sc_cons( X8, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X7 );
X8 = scrt1_cadar( X3 );
X7 = sc_cons( X8, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X7 );
X7 = PAIR_CDR( X3 );
X1 = PAIR_CAR( X1 );
X2 = PAIR_CAR( X2 );
X3 = X7;
goto L3398;
L3430:
X5 = SYMBOL_VALUE( islist_v );
X5 = UNKNOWNCALL( X5, 2 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( e1855,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X5 ) );
if ( FALSE( X4 ) ) goto L3447;
if ( EQ( TSCPTAG( e1855 ), PAIRTAG ) ) goto L3438;
scrt1__24__cdr_2derror( e1855 );
L3438:
X6 = PAIR_CDR( e1855 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3441;
scrt1__24__car_2derror( X6 );
L3441:
X5 = PAIR_CAR( X6 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L3447;
X8 = PAIR_CDR( e1855 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3445;
scrt1__24__cdr_2derror( X8 );
L3445:
X7 = PAIR_CDR( X8 );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_append_2dtwo( X7, X8 ), EMPTYLIST );
X5 = scrt1_cons_2a( c1326, CONS( EMPTYLIST, X6 ) );
POPSTACKTRACE( scrt1_cons_2a( X5,
CONS( EMPTYLIST, EMPTYLIST ) ) );
L3447:
X4 = SYMBOL_VALUE( expand_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( c1889,
e1855,
PROCEDURE_CLOSURE( X4 ) ) );
L3403:
if ( FALSE( X3 ) ) goto L3448;
X4 = SYMBOL_VALUE( expand_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( c1889,
e1855,
PROCEDURE_CLOSURE( X4 ) ) );
L3448:
X6 = PAIR_CDR( e1855 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3452;
scrt1__24__cdr_2derror( X6 );
L3452:
X5 = PAIR_CDR( X6 );
X4 = macros_let_2a_2dresult( PAIR_CAR( X2 ),
PAIR_CAR( X1 ), X5 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3455;
scrt1__24__car_2derror( X4 );
L3455:
POPSTACKTRACE( PAIR_CAR( X4 ) );
}
DEFTSCP( macros_let_2a_2dresult_v );
DEFSTRING( t3457, "LET*-RESULT", 11 );
TSCP macros_let_2a_2dresult( v1973, i1974, b1975 )
TSCP v1973, i1974, b1975;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3457 ) ) );
L3458:
if ( EQ( UNSIGNED( v1973 ), UNSIGNED( EMPTYLIST ) ) ) goto L3459;
if ( EQ( TSCPTAG( v1973 ), PAIRTAG ) ) goto L3462;
scrt1__24__cdr_2derror( v1973 );
L3462:
X1 = PAIR_CDR( v1973 );
if ( EQ( TSCPTAG( i1974 ), PAIRTAG ) ) goto L3465;
scrt1__24__cdr_2derror( i1974 );
L3465:
X2 = PAIR_CDR( i1974 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_append_2dtwo( b1975, X6 ),
EMPTYLIST );
X6 = PAIR_CAR( v1973 );
X4 = scrt1_cons_2a( c1326,
CONS( scrt1_cons_2a( X6,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X5 ) );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( X4,
CONS( PAIR_CAR( i1974 ), X5 ) );
b1975 = scrt1_cons_2a( X3,
CONS( EMPTYLIST, EMPTYLIST ) );
i1974 = X2;
v1973 = X1;
goto L3458;
L3459:
POPSTACKTRACE( b1975 );
}
DEFTSCP( macros_letrec_2dmacro_v );
DEFSTRING( t3469, "LETREC-MACRO", 12 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP macros_letrec_2dmacro( e1999 )
TSCP e1999;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3469 ) ) );
X6 = SYMBOL_VALUE( islist_v );
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( e1999,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X6 ) );
if ( FALSE( X5 ) ) goto L3550;
if ( EQ( TSCPTAG( e1999 ), PAIRTAG ) ) goto L3478;
scrt1__24__cdr_2derror( e1999 );
L3478:
X8 = PAIR_CDR( e1999 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3481;
scrt1__24__car_2derror( X8 );
L3481:
X7 = PAIR_CAR( X8 );
X6 = SYMBOL_VALUE( islist_v );
X6 = UNKNOWNCALL( X6, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X6 ) )( X7,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X6 ) ) )
) goto L3550;
X6 = PAIR_CDR( e1999 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3486;
scrt1__24__car_2derror( X6 );
L3486:
X4 = PAIR_CAR( X6 );
X3 = EMPTYLIST;
X1 = EMPTYLIST;
X2 = EMPTYLIST;
L3488:
X2 = CONS( X2, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
X3 = CONS( X3, EMPTYLIST );
X6 = BOOLEAN( NEQ( TSCPTAG( X4 ), PAIRTAG ) );
if ( TRUE( X6 ) ) goto L3493;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3497;
scrt1__24__car_2derror( X4 );
L3497:
X9 = PAIR_CAR( X4 );
X8 = SYMBOL_VALUE( islist_v );
X8 = UNKNOWNCALL( X8, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X8 ) )( X9,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X8 ) ) )
) goto L3494;
X7 = FALSEVALUE;
goto L3495;
L3494:
X7 = TRUEVALUE;
L3495:
if ( TRUE( X7 ) ) goto L3493;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3507;
scrt1__24__car_2derror( X4 );
L3507:
X9 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3510;
scrt1__24__car_2derror( X9 );
L3510:
X8 = PAIR_CAR( X9 );
if ( NOT( AND( EQ( TSCPTAG( X8 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X8 ), SYMBOLTAG ) ) )
) goto L3493;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3514;
scrt1__24__car_2derror( X4 );
L3514:
X9 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3517;
scrt1__24__car_2derror( X9 );
L3517:
X8 = PAIR_CAR( X9 );
X9 = scrt1_cadar( X4 );
if ( NEQ( TSCPTAG( X9 ), FIXNUMTAG ) ) goto L3520;
X10 = TRUEVALUE;
goto L3521;
L3520:
X10 = BOOLEAN( AND( EQ( TSCPTAG( X9 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X9 ), FLOATTAG ) ) );
L3521:
if ( TRUE( X10 ) ) goto L3526;
if ( AND( EQ( TSCPTAG( X9 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X9 ), STRINGTAG ) ) ) goto L3526;
if ( EQ( TSCPIMMEDIATETAG( X9 ), CHARACTERTAG ) ) goto L3526;
X11 = scrt1_memq( X9, c2109 );
if ( TRUE( X11 ) ) goto L3526;
if ( NEQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3546;
X12 = PAIR_CAR( X9 );
if ( EQ( UNSIGNED( X12 ), UNSIGNED( c1210 ) ) ) goto L3526;
L3546:
X11 = sc_cons( _TSCP( 0 ), PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X11 );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( X9, X13 );
X12 = scrt1_cons_2a( c2125, CONS( X8, X13 ) );
X11 = sc_cons( X12, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X11 );
goto L3547;
L3526:
X11 = sc_cons( X9, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X11 );
L3547:
X10 = sc_cons( X8, PAIR_CAR( X3 ) );
SETGEN( PAIR_CAR( X3 ), X10 );
X8 = PAIR_CDR( X4 );
X2 = PAIR_CAR( X2 );
X1 = PAIR_CAR( X1 );
X3 = PAIR_CAR( X3 );
X4 = X8;
goto L3488;
L3550:
X6 = SYMBOL_VALUE( islist_v );
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( e1999,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X6 ) );
if ( FALSE( X5 ) ) goto L3567;
if ( EQ( TSCPTAG( e1999 ), PAIRTAG ) ) goto L3558;
scrt1__24__cdr_2derror( e1999 );
L3558:
X7 = PAIR_CDR( e1999 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3561;
scrt1__24__car_2derror( X7 );
L3561:
X6 = PAIR_CAR( X7 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L3567;
X9 = PAIR_CDR( e1999 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3565;
scrt1__24__cdr_2derror( X9 );
L3565:
X8 = PAIR_CDR( X9 );
X9 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_append_2dtwo( X8, X9 ), EMPTYLIST );
X6 = scrt1_cons_2a( c1326, CONS( EMPTYLIST, X7 ) );
POPSTACKTRACE( scrt1_cons_2a( X6,
CONS( EMPTYLIST, EMPTYLIST ) ) );
L3567:
X5 = SYMBOL_VALUE( expand_2derror_v );
X5 = UNKNOWNCALL( X5, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X5 ) )( c1765,
e1999,
PROCEDURE_CLOSURE( X5 ) ) );
L3493:
if ( FALSE( X4 ) ) goto L3568;
X5 = SYMBOL_VALUE( expand_2derror_v );
X5 = UNKNOWNCALL( X5, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X5 ) )( c1765,
e1999,
PROCEDURE_CLOSURE( X5 ) ) );
L3568:
X7 = scrt1_reverse( PAIR_CAR( X2 ) );
X11 = PAIR_CDR( e1999 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L3572;
scrt1__24__cdr_2derror( X11 );
L3572:
X10 = PAIR_CDR( X11 );
X11 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X9 = scrt1_append_2dtwo( X10, X11 );
X8 = scrt1_cons_2a( X9, EMPTYLIST );
X6 = CONS( scrt1_append_2dtwo( X7, X8 ), EMPTYLIST );
X5 = scrt1_cons_2a( c1326,
CONS( scrt1_reverse( PAIR_CAR( X3 ) ),
X6 ) );
X7 = scrt1_reverse( PAIR_CAR( X1 ) );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X5,
CONS( scrt1_append_2dtwo( X7, X8 ),
EMPTYLIST ) ) );
}
DEFTSCP( macros_do_2dmacro_v );
DEFSTRING( t3574, "DO-MACRO", 8 );
EXTERNTSCPP( scrt1_caaddr );
EXTERNTSCP( scrt1_caaddr_v );
EXTERNTSCPP( scrt1_cdaddr );
EXTERNTSCP( scrt1_cdaddr_v );
TSCP macros_do_2dmacro( e2162 )
TSCP e2162;
{
TSCP X20,
X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3574 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e2162,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L3630;
if ( EQ( TSCPTAG( e2162 ), PAIRTAG ) ) goto L3581;
scrt1__24__cdr_2derror( e2162 );
L3581:
X5 = PAIR_CDR( e2162 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3584;
scrt1__24__car_2derror( X5 );
L3584:
X4 = PAIR_CAR( X5 );
X3 = SYMBOL_VALUE( islist_v );
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X4,
_TSCP( 0 ),
PROCEDURE_CLOSURE( X3 ) );
if ( FALSE( X2 ) ) goto L3630;
X4 = scrt1_caddr( e2162 );
X3 = SYMBOL_VALUE( islist_v );
X3 = UNKNOWNCALL( X3, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( X4,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X3 ) ) )
) goto L3630;
X4 = PAIR_CDR( e2162 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3594;
scrt1__24__car_2derror( X4 );
L3594:
X3 = PAIR_CAR( X4 );
X4 = EMPTYLIST;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
X7 = sc_d_2dsymbol_ab4b4447( c2254 );
X8 = scrt1_caaddr( e2162 );
X10 = scrt1_cdaddr( e2162 );
if ( FALSE( X10 ) ) goto L3597;
X9 = X10;
goto L3598;
L3597:
X9 = c2257;
L3598:
X10 = scrt1_cdddr( e2162 );
X6 = CONS( X6, EMPTYLIST );
X5 = CONS( X5, EMPTYLIST );
X4 = CONS( X4, EMPTYLIST );
X11 = scrt1_reverse( X3 );
X12 = X11;
L3602:
if ( EQ( UNSIGNED( X12 ), UNSIGNED( EMPTYLIST ) ) ) goto L3603;
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3607;
scrt1__24__car_2derror( X12 );
L3607:
X13 = PAIR_CAR( X12 );
X14 = SYMBOL_VALUE( islist_v );
X14 = UNKNOWNCALL( X14, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X14 ) )( X13,
_TSCP( 8 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X14 ) ) )
) goto L3610;
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L3613;
scrt1__24__car_2derror( X13 );
L3613:
X14 = PAIR_CAR( X13 );
X16 = PAIR_CDR( X13 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L3618;
scrt1__24__car_2derror( X16 );
L3618:
X15 = PAIR_CAR( X16 );
X17 = PAIR_CDR( X13 );
if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L3623;
scrt1__24__cdr_2derror( X17 );
L3623:
if ( FALSE( PAIR_CDR( X17 ) ) ) goto L3625;
X16 = scrt1_caddr( X13 );
goto L3626;
L3625:
X16 = X14;
L3626:
X17 = sc_cons( X14, PAIR_CAR( X4 ) );
SETGEN( PAIR_CAR( X4 ), X17 );
X17 = sc_cons( X16, PAIR_CAR( X6 ) );
SETGEN( PAIR_CAR( X6 ), X17 );
X17 = sc_cons( X15, PAIR_CAR( X5 ) );
SETGEN( PAIR_CAR( X5 ), X17 );
goto L3611;
L3610:
X14 = SYMBOL_VALUE( expand_2derror_v );
X14 = UNKNOWNCALL( X14, 2 );
VIA( PROCEDURE_CODE( X14 ) )( c2181,
X13,
PROCEDURE_CLOSURE( X14 ) );
L3611:
X12 = PAIR_CDR( X12 );
goto L3602;
L3603:
X11 = CONS( EMPTYLIST, EMPTYLIST );
X13 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( X7,
CONS( scrt1_append_2dtwo( PAIR_CAR( X5 ),
X13 ),
EMPTYLIST ) ),
X11 );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( EMPTYLIST, EMPTYLIST );
X20 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X18 = scrt1_cons_2a( X7,
CONS( scrt1_append_2dtwo( PAIR_CAR( X6 ),
X20 ),
EMPTYLIST ) );
X17 = scrt1_cons_2a( X18,
CONS( EMPTYLIST, EMPTYLIST ) );
X15 = CONS( scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X10, X17 ),
EMPTYLIST ) ),
X15 );
X17 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X15 = CONS( scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X9, X17 ),
EMPTYLIST ) ),
X15 );
X14 = CONS( scrt1_cons_2a( c1081, CONS( X8, X15 ) ),
X14 );
X12 = scrt1_cons_2a( X7,
CONS( scrt1_cons_2a( c1326,
CONS( PAIR_CAR( X4 ),
X14 ) ),
X13 ) );
POPSTACKTRACE( scrt1_cons_2a( c1765,
CONS( scrt1_cons_2a( X12,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X11 ) ) );
L3630:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2181,
e2162,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_quote_2dmacro_v );
DEFSTRING( t3631, "QUOTE-MACRO", 11 );
TSCP macros_quote_2dmacro( f2260, e2261 )
TSCP f2260, e2261;
{
PUSHSTACKTRACE( U_TX( ADR( t3631 ) ) );
POPSTACKTRACE( f2260 );
}
DEFTSCP( macros_define_2dmacro_v );
DEFSTRING( t3633, "DEFINE-MACRO", 12 );
EXTERNTSCPP( scrt1_caadr );
EXTERNTSCP( scrt1_caadr_v );
EXTERNTSCPP( macros_bda_2dvars_8ad3f36b );
EXTERNTSCP( macros_bda_2dvars_8ad3f36b_v );
EXTERNTSCPP( scrt1_cdadr );
EXTERNTSCP( scrt1_cdadr_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP macros_define_2dmacro( f2264, e2265 )
TSCP f2264, e2265;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3633 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( f2264,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3635;
if ( EQ( TSCPTAG( f2264 ), PAIRTAG ) ) goto L3641;
scrt1__24__cdr_2derror( f2264 );
L3641:
X2 = PAIR_CDR( f2264 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3644;
scrt1__24__car_2derror( X2 );
L3644:
X1 = PAIR_CAR( X2 );
if ( NOT( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), SYMBOLTAG ) ) )
) goto L3638;
X1 = PAIR_CDR( f2264 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3648;
scrt1__24__car_2derror( X1 );
L3648:
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
PAIR_CAR( X1 ) );
goto L3658;
L3638:
if ( EQ( TSCPTAG( f2264 ), PAIRTAG ) ) goto L3653;
scrt1__24__cdr_2derror( f2264 );
L3653:
X2 = PAIR_CDR( f2264 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3656;
scrt1__24__car_2derror( X2 );
L3656:
X1 = PAIR_CAR( X2 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3658;
X1 = scrt1_caadr( f2264 );
if ( NOT( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), SYMBOLTAG ) ) )
) goto L3658;
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
scrt1_caadr( f2264 ) );
X1 = scrt1_cdadr( f2264 );
macros_bda_2dvars_8ad3f36b( X1 );
L3658:
if ( EQ( TSCPTAG( f2264 ), PAIRTAG ) ) goto L3662;
scrt1__24__car_2derror( f2264 );
L3662:
X1 = PAIR_CAR( f2264 );
X4 = PAIR_CDR( f2264 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3666;
scrt1__24__cdr_2derror( X4 );
L3666:
X3 = PAIR_CDR( X4 );
X4 = X3;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L3670:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L3671;
X7 = X5;
goto L3678;
L3671:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3674;
scrt1__24__car_2derror( X4 );
L3674:
X11 = PAIR_CAR( X4 );
X10 = e2265;
X10 = UNKNOWNCALL( X10, 2 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( X11,
e2265,
PROCEDURE_CLOSURE( X10 ) );
X8 = sc_cons( X9, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L3677;
X9 = PAIR_CDR( X4 );
X6 = X8;
X5 = X8;
X4 = X9;
goto L3670;
L3677:
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3682;
scrt6_error( c2354, c2355, CONS( X6, EMPTYLIST ) );
L3682:
X6 = SETGEN( PAIR_CDR( X6 ), X8 );
X4 = X9;
goto L3670;
L3678:
X2 = CONS( X7, EMPTYLIST );
X3 = PAIR_CDR( f2264 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3686;
scrt1__24__car_2derror( X3 );
L3686:
POPSTACKTRACE( scrt1_cons_2a( X1,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L3635:
POPSTACKTRACE( f2264 );
}
DEFTSCP( macros_lambda_2dmacro_v );
DEFSTRING( t3688, "LAMBDA-MACRO", 12 );
TSCP macros_lambda_2dmacro( f2378, e2379 )
TSCP f2378, e2379;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3688 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( f2378,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3690;
if ( EQ( TSCPTAG( f2378 ), PAIRTAG ) ) goto L3694;
scrt1__24__cdr_2derror( f2378 );
L3694:
X2 = PAIR_CDR( f2378 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3697;
scrt1__24__car_2derror( X2 );
L3697:
X1 = PAIR_CAR( X2 );
macros_bda_2dvars_8ad3f36b( X1 );
X1 = PAIR_CAR( f2378 );
X4 = PAIR_CDR( f2378 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3702;
scrt1__24__cdr_2derror( X4 );
L3702:
X3 = PAIR_CDR( X4 );
X4 = X3;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L3706:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L3707;
X7 = X5;
goto L3714;
L3707:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3710;
scrt1__24__car_2derror( X4 );
L3710:
X11 = PAIR_CAR( X4 );
X10 = e2379;
X10 = UNKNOWNCALL( X10, 2 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( X11,
e2379,
PROCEDURE_CLOSURE( X10 ) );
X8 = sc_cons( X9, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L3713;
X9 = PAIR_CDR( X4 );
X6 = X8;
X5 = X8;
X4 = X9;
goto L3706;
L3713:
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3718;
scrt6_error( c2354, c2355, CONS( X6, EMPTYLIST ) );
L3718:
X6 = SETGEN( PAIR_CDR( X6 ), X8 );
X4 = X9;
goto L3706;
L3714:
X2 = CONS( X7, EMPTYLIST );
X3 = PAIR_CDR( f2378 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3722;
scrt1__24__car_2derror( X3 );
L3722:
POPSTACKTRACE( scrt1_cons_2a( X1,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L3690:
POPSTACKTRACE( f2378 );
}
DEFTSCP( macros_bda_2dvars_8ad3f36b_v );
DEFSTRING( t3724, "DUPLICATE-LAMBDA-VARS", 21 );
TSCP macros_bda_2dvars_8ad3f36b( v2456 )
TSCP v2456;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3724 ) ) );
X1 = v2456;
X2 = EMPTYLIST;
L3727:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3728;
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3730;
X3 = PAIR_CAR( X1 );
goto L3731;
L3730:
X3 = X1;
L3731:
if ( FALSE( scrt1_memq( X3, X2 ) ) ) goto L3734;
X4 = SYMBOL_VALUE( report_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
VIA( PROCEDURE_CODE( X4 ) )( c2470,
X3, PROCEDURE_CLOSURE( X4 ) );
L3734:
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3736;
X4 = PAIR_CDR( X1 );
X2 = sc_cons( X3, X2 );
X1 = X4;
goto L3727;
L3736:
POPSTACKTRACE( FALSEVALUE );
L3728:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( macros_define_2dmacro_2dmacro_v );
DEFSTRING( t3739, "DEFINE-MACRO-MACRO", 18 );
TSCP macros_define_2dmacro_2dmacro( f2485, e2486 )
TSCP f2485, e2486;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3739 ) ) );
X1 = SYMBOL_VALUE( do_2ddefine_2dmacro_v );
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( f2485,
PROCEDURE_CLOSURE( X1 ) );
POPSTACKTRACE( f2485 );
}
DEFTSCP( macros_nt_2dmacro_17bbc940_v );
DEFSTRING( t3741, "DEFINE-CONSTANT-MACRO", 21 );
TSCP macros_nt_2dmacro_17bbc940( f2490, e2491 )
TSCP f2490, e2491;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3741 ) ) );
X1 = SYMBOL_VALUE( do_2ddefine_2dconstant_v );
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( f2490,
PROCEDURE_CLOSURE( X1 ) );
POPSTACKTRACE( f2490 );
}
DEFTSCP( macros_eval_2dwhen_2dmacro_v );
DEFSTRING( t3743, "EVAL-WHEN-MACRO", 15 );
DEFSTRING( t3771, "macros_l2539 [inside EVAL-WHEN-MACRO]", 37 );
TSCP macros_l2539( f2540, e2541, c3770 )
TSCP f2540, e2541, c3770;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3771 ) ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_caddr( f2540 ), X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1210, CONS( c2553, X4 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( f2540 ), PAIRTAG ) ) goto L3774;
scrt1__24__cdr_2derror( f2540 );
L3774:
X5 = PAIR_CDR( f2540 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3777;
scrt1__24__car_2derror( X5 );
L3777:
X2 = scrt1_cons_2a( c2542,
CONS( scrt1_cons_2a( c1210,
CONS( PAIR_CAR( X5 ),
X4 ) ),
X3 ) );
X1 = e2541;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e2541,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFSTRING( t3780, "macros_l2555 [inside EVAL-WHEN-MACRO]", 37 );
TSCP macros_l2555( f2556, e2557, c3779 )
TSCP f2556, e2557, c3779;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3780 ) ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c2568,
CONS( scrt1_caddr( f2556 ), X4 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1210, CONS( c2553, X4 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( f2556 ), PAIRTAG ) ) goto L3783;
scrt1__24__cdr_2derror( f2556 );
L3783:
X5 = PAIR_CDR( f2556 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3786;
scrt1__24__car_2derror( X5 );
L3786:
X2 = scrt1_cons_2a( c2542,
CONS( scrt1_cons_2a( c1210,
CONS( PAIR_CAR( X5 ),
X4 ) ),
X3 ) );
X1 = e2557;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e2557,
PROCEDURE_CLOSURE( X1 ) ) );
}
TSCP macros_eval_2dwhen_2dmacro( f2495, e2496 )
TSCP f2495, e2496;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3743 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( f2495,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L3792;
if ( EQ( TSCPTAG( f2495 ), PAIRTAG ) ) goto L3752;
scrt1__24__cdr_2derror( f2495 );
L3752:
X4 = PAIR_CDR( f2495 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3755;
scrt1__24__car_2derror( X4 );
L3755:
X3 = PAIR_CAR( X4 );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X2 ) )( X3,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X2 ) ) )
) goto L3792;
X3 = PAIR_CDR( f2495 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3761;
scrt1__24__car_2derror( X3 );
L3761:
X2 = PAIR_CAR( X3 );
if ( TRUE( scrt1_memq( c2512, X2 ) ) ) goto L3757;
X3 = PAIR_CDR( f2495 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3767;
scrt1__24__car_2derror( X3 );
L3767:
X2 = PAIR_CAR( X3 );
if ( FALSE( scrt1_memq( c2523, X2 ) ) ) goto L3763;
X3 = SYMBOL_VALUE( get_v );
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( c2554,
c1655,
PROCEDURE_CLOSURE( X3 ) );
X4 = SYMBOL_VALUE( get_v );
X4 = UNKNOWNCALL( X4, 2 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( c2538,
c1655,
PROCEDURE_CLOSURE( X4 ) );
X5 = MAKEPROCEDURE( 2, 0, macros_l2539, EMPTYLIST );
X4 = SYMBOL_VALUE( put_v );
X4 = UNKNOWNCALL( X4, 3 );
VIA( PROCEDURE_CODE( X4 ) )( c2538,
c1655,
X5, PROCEDURE_CLOSURE( X4 ) );
X5 = MAKEPROCEDURE( 2, 0, macros_l2555, EMPTYLIST );
X4 = SYMBOL_VALUE( put_v );
X4 = UNKNOWNCALL( X4, 3 );
VIA( PROCEDURE_CODE( X4 ) )( c2554,
c1655,
X5, PROCEDURE_CLOSURE( X4 ) );
X8 = PAIR_CDR( f2495 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3790;
scrt1__24__cdr_2derror( X8 );
L3790:
X7 = PAIR_CDR( X8 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( c1210, CONS( X2, X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( c1210, CONS( c1655, X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c2579,
CONS( scrt1_cons_2a( c1210,
CONS( c2554,
X12 ) ),
X11 ) ),
X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( c1210, CONS( X3, X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( c1210, CONS( c1655, X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c2579,
CONS( scrt1_cons_2a( c1210,
CONS( c2538,
X12 ) ),
X11 ) ),
X10 );
X9 = scrt1_cons_2a( c2511,
CONS( scrt1_cons_2a( c2512,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X10 ) );
X8 = scrt1_cons_2a( X9, CONS( EMPTYLIST, EMPTYLIST ) );
X5 = scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X7, X8 ),
EMPTYLIST ) );
X4 = e2496;
X4 = UNKNOWNCALL( X4, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( X5,
e2496,
PROCEDURE_CLOSURE( X4 ) ) );
L3763:
POPSTACKTRACE( FALSEVALUE );
L3757:
POPSTACKTRACE( f2495 );
L3792:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2511,
f2495,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_when_2dmacro_v );
DEFSTRING( t3793, "WHEN-MACRO", 10 );
TSCP macros_when_2dmacro( e2582 )
TSCP e2582;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3793 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( e2582,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3795;
X1 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( e2582 ), PAIRTAG ) ) goto L3798;
scrt1__24__cdr_2derror( e2582 );
L3798:
X4 = PAIR_CDR( e2582 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3801;
scrt1__24__cdr_2derror( X4 );
L3801:
X3 = PAIR_CDR( X4 );
X4 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X3, X4 ),
EMPTYLIST ) ),
X1 );
X2 = PAIR_CDR( e2582 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3805;
scrt1__24__car_2derror( X2 );
L3805:
POPSTACKTRACE( scrt1_cons_2a( c1081,
CONS( PAIR_CAR( X2 ), X1 ) ) );
L3795:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2583,
e2582,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_unless_2dmacro_v );
DEFSTRING( t3807, "UNLESS-MACRO", 12 );
TSCP macros_unless_2dmacro( e2606 )
TSCP e2606;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3807 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( e2606,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3809;
X1 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( e2606 ), PAIRTAG ) ) goto L3812;
scrt1__24__cdr_2derror( e2606 );
L3812:
X4 = PAIR_CDR( e2606 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3815;
scrt1__24__cdr_2derror( X4 );
L3815:
X3 = PAIR_CDR( X4 );
X4 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1086,
CONS( scrt1_append_2dtwo( X3, X4 ),
EMPTYLIST ) ),
X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = PAIR_CDR( e2606 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3819;
scrt1__24__car_2derror( X3 );
L3819:
POPSTACKTRACE( scrt1_cons_2a( c1081,
CONS( scrt1_cons_2a( c1544,
CONS( PAIR_CAR( X3 ),
X2 ) ),
X1 ) ) );
L3809:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2607,
e2606,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_lap_2dmacro_v );
DEFSTRING( t3821, "LAP-MACRO", 9 );
EXTERNTSCPP( macros_t_2dexpand_dcf6ab5b );
EXTERNTSCP( macros_t_2dexpand_dcf6ab5b_v );
TSCP macros_lap_2dmacro( f2630, e2631 )
TSCP f2630, e2631;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3821 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( f2630,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3823;
if ( EQ( TSCPTAG( f2630 ), PAIRTAG ) ) goto L3826;
scrt1__24__car_2derror( f2630 );
L3826:
X1 = PAIR_CAR( f2630 );
X4 = PAIR_CDR( f2630 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3830;
scrt1__24__cdr_2derror( X4 );
L3830:
X3 = PAIR_CDR( X4 );
X2 = CONS( macros_t_2dexpand_dcf6ab5b( X3,
macros_t_2dexpand_dcf6ab5b_v ),
EMPTYLIST );
X3 = PAIR_CDR( f2630 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3834;
scrt1__24__car_2derror( X3 );
L3834:
POPSTACKTRACE( scrt1_cons_2a( X1,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L3823:
if ( EQ( TSCPTAG( f2630 ), PAIRTAG ) ) goto L3837;
scrt1__24__car_2derror( f2630 );
L3837:
X2 = PAIR_CAR( f2630 );
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
f2630,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( macros_t_2dexpand_dcf6ab5b_v );
DEFSTRING( t3839, "LAP-CONSTANT-EXPAND", 19 );
DEFSTRING( t3846, "macros_l2668 [inside LAP-CONSTANT-EXPAND]", 41 );
TSCP macros_l2668( x2669, e2670, c3845 )
TSCP x2669, e2670, c3845;
{
PUSHSTACKTRACE( U_TX( ADR( t3846 ) ) );
POPSTACKTRACE( x2669 );
}
TSCP macros_t_2dexpand_dcf6ab5b( x2662, e2663 )
TSCP x2662, e2663;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3839 ) ) );
if ( NEQ( TSCPTAG( x2662 ), PAIRTAG ) ) goto L3841;
X1 = SYMBOL_VALUE( _xpander_2a_ecf97896_v );
goto L3844;
L3841:
if ( NOT( AND( EQ( TSCPTAG( x2662 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2662 ), SYMBOLTAG ) ) )
) goto L3843;
X1 = SYMBOL_VALUE( _xpander_2a_9e90dc74_v );
goto L3844;
L3843:
X1 = MAKEPROCEDURE( 2, 0, macros_l2668, EMPTYLIST );
L3844:
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( x2662,
e2663,
PROCEDURE_CLOSURE( X1 ) ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt6__init();
scrt2__init();
scrt1__init();
MAXDISPLAY( 1 );
}
void macros__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(macros SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2901 ) ),
ADR( macros_old_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_old_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2906 ) ),
ADR( macros_quasiquote_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_quasiquote_2dmacro,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2910 ) ),
ADR( macros_cond_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_cond_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2972 ) ),
ADR( macros_case_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_case_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3054 ) ),
ADR( macros_and_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_and_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3113 ) ),
ADR( macros_or_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_or_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3172 ) ),
ADR( macros_not_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_not_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3192 ) ),
ADR( macros_boolean_2dconstant_v ),
MAKEPROCEDURE( 1,
0,
macros_boolean_2dconstant,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3242 ) ),
ADR( macros_begin_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_begin_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3265 ) ),
ADR( macros_let_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_let_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3379 ) ),
ADR( macros_let_2a_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_let_2a_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3457 ) ),
ADR( macros_let_2a_2dresult_v ),
MAKEPROCEDURE( 3,
0,
macros_let_2a_2dresult,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3469 ) ),
ADR( macros_letrec_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_letrec_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3574 ) ),
ADR( macros_do_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_do_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3631 ) ),
ADR( macros_quote_2dmacro_v ),
MAKEPROCEDURE( 2,
0,
macros_quote_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3633 ) ),
ADR( macros_define_2dmacro_v ),
MAKEPROCEDURE( 2,
0,
macros_define_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3688 ) ),
ADR( macros_lambda_2dmacro_v ),
MAKEPROCEDURE( 2,
0,
macros_lambda_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3724 ) ),
ADR( macros_bda_2dvars_8ad3f36b_v ),
MAKEPROCEDURE( 1,
0,
macros_bda_2dvars_8ad3f36b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3739 ) ),
ADR( macros_define_2dmacro_2dmacro_v ),
MAKEPROCEDURE( 2,
0,
macros_define_2dmacro_2dmacro,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3741 ) ),
ADR( macros_nt_2dmacro_17bbc940_v ),
MAKEPROCEDURE( 2,
0,
macros_nt_2dmacro_17bbc940,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3743 ) ),
ADR( macros_eval_2dwhen_2dmacro_v ),
MAKEPROCEDURE( 2,
0,
macros_eval_2dwhen_2dmacro,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3793 ) ),
ADR( macros_when_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_when_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3807 ) ),
ADR( macros_unless_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
macros_unless_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3821 ) ),
ADR( macros_lap_2dmacro_v ),
MAKEPROCEDURE( 2,
0,
macros_lap_2dmacro, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3839 ) ),
ADR( macros_t_2dexpand_dcf6ab5b_v ),
MAKEPROCEDURE( 2,
0,
macros_t_2dexpand_dcf6ab5b,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.