This is lambdaexp.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1548, "LEXICAL-BOUND-VARS", 18 );
DEFSTATICTSCP( lexical_2dbound_2dvars_v );
DEFSTRING( t1549, "LEXICAL-FREE-VARS", 17 );
DEFSTATICTSCP( lexical_2dfree_2dvars_v );
DEFSTRING( t1550, "CURRENT-LAMBDA-ID", 17 );
DEFSTATICTSCP( current_2dlambda_2did_v );
DEFSTRING( t1551, "EXP-FORM-LIST", 13 );
DEFSTATICTSCP( exp_2dform_2dlist_v );
DEFSTRING( t1552, "NEWV", 4 );
DEFSTATICTSCP( newv_v );
DEFSTRING( t1553, "EXPAND-ERROR", 12 );
DEFSTATICTSCP( expand_2derror_v );
DEFSTRING( t1554, "ASSIGN-KNOWN-NAME", 17 );
DEFSTATICTSCP( assign_2dknown_2dname_v );
DEFSTRING( t1555, "ID-PRINTNAME", 12 );
DEFSTATICTSCP( id_2dprintname_v );
DEFSTRING( t1556, " CODE-LABEL: ~a~%", 19 );
DEFSTATICTSCP2( c1540, t1556 );
DEFSTRING( t1557, " REAL-CALLS: ~a~%", 19 );
DEFSTATICTSCP2( c1537, t1557 );
DEFSTRING( t1558, " TAIL-CALLS: ~a~%", 19 );
DEFSTATICTSCP2( c1534, t1558 );
DEFSTRING( t1559, " STR-CALLS: ~a~%", 19 );
DEFSTATICTSCP2( c1531, t1559 );
DEFSTRING( t1560, "INLINE-TAILS: ~a~%", 19 );
DEFSTATICTSCP2( c1528, t1560 );
DEFSTRING( t1561, " EXITS: ~a~%", 19 );
DEFSTATICTSCP2( c1525, t1561 );
DEFSTRING( t1562, " NESTIN: ~a~%", 19 );
DEFSTATICTSCP2( c1522, t1562 );
DEFSTRING( t1563, " GENERATE: ~a ~a ~a~%", 25 );
DEFSTATICTSCP2( c1515, t1563 );
DEFSTRING( t1564, " CALLS: ~a~%", 19 );
DEFSTATICTSCP2( c1512, t1564 );
DEFSTRING( t1565, " LEXICAL: ~a~%", 19 );
DEFSTATICTSCP2( c1509, t1565 );
DEFSTRING( t1566, " VARS: ~a ~a~%", 22 );
DEFSTATICTSCP2( c1504, t1566 );
DEFSTRING( t1567, " LAMBDA-NAME: ~a ~a ~a~%", 25 );
DEFSTATICTSCP2( c1494, t1567 );
DEFSTRING( t1568, "NAME", 4 );
DEFSTATICTSCP( c1478 );
DEFSTRING( t1569, "CODE-LABEL", 10 );
DEFSTATICTSCP( c1453 );
DEFSTRING( t1570, "REAL-CALLS", 10 );
DEFSTATICTSCP( c1440 );
DEFSTRING( t1571, "TAIL-CALLS", 10 );
DEFSTATICTSCP( c1427 );
DEFSTRING( t1572, "STR-CALLS", 9 );
DEFSTATICTSCP( c1414 );
DEFSTRING( t1573, "INLINE-TAILS", 12 );
DEFSTATICTSCP( c1401 );
DEFSTRING( t1574, "EXITS", 5 );
DEFSTATICTSCP( c1388 );
DEFSTRING( t1575, "DISPLAY-CLOSEP", 14 );
DEFSTATICTSCP( c1363 );
DEFSTRING( t1576, "CLOSED", 6 );
DEFSTATICTSCP( c1350 );
DEFSTRING( t1577, "GENERATE", 8 );
DEFSTATICTSCP( c1337 );
DEFSTRING( t1578, "CALLS", 5 );
DEFSTATICTSCP( c1324 );
DEFSTRING( t1579, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1278, t1579 );
DEFSTRING( t1580, "SET-CDR!", 8 );
DEFSTATICTSCP( c1277 );
DEFSTRING( t1581, "SET!", 4 );
DEFSTATICTSCP( c1152 );
DEFSTRING( t1582, "DEFINE", 6 );
DEFSTATICTSCP( c1125 );
DEFSTRING( t1583, "OPTVARS", 7 );
DEFSTATICTSCP( c1097 );
DEFSTRING( t1584, "REQVARS", 7 );
DEFSTATICTSCP( c1086 );
DEFSTRING( t1585, "BOUNDID", 7 );
DEFSTATICTSCP( c1077 );
DEFSTRING( t1586, "LEXICAL", 7 );
DEFSTATICTSCP( c1076 );
DEFSTRING( t1587, "LAMBDA-VARIABLES", 16 );
DEFSTATICTSCP( c1073 );
DEFSTRING( t1588, "LAMBDA", 6 );
DEFSTATICTSCP( c1054 );
DEFSTRING( t1589, "USE", 3 );
DEFSTATICTSCP( c1053 );
DEFSTRING( t1590, "L", 1 );
DEFSTATICTSCP( c1052 );
DEFSTRING( t1591, "$LAMBDA", 7 );
DEFSTATICTSCP( c1039 );
DEFSTRING( t1592, "NESTIN", 6 );
DEFSTATICTSCP( c1025 );
static void init_constants()
{
lexical_2dbound_2dvars_v = STRINGTOSYMBOL( U_TX( ADR( t1548 ) ) );
CONSTANTEXP( ADR( lexical_2dbound_2dvars_v ) );
lexical_2dfree_2dvars_v = STRINGTOSYMBOL( U_TX( ADR( t1549 ) ) );
CONSTANTEXP( ADR( lexical_2dfree_2dvars_v ) );
current_2dlambda_2did_v = STRINGTOSYMBOL( U_TX( ADR( t1550 ) ) );
CONSTANTEXP( ADR( current_2dlambda_2did_v ) );
exp_2dform_2dlist_v = STRINGTOSYMBOL( U_TX( ADR( t1551 ) ) );
CONSTANTEXP( ADR( exp_2dform_2dlist_v ) );
newv_v = STRINGTOSYMBOL( U_TX( ADR( t1552 ) ) );
CONSTANTEXP( ADR( newv_v ) );
expand_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t1553 ) ) );
CONSTANTEXP( ADR( expand_2derror_v ) );
assign_2dknown_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t1554 ) ) );
CONSTANTEXP( ADR( assign_2dknown_2dname_v ) );
id_2dprintname_v = STRINGTOSYMBOL( U_TX( ADR( t1555 ) ) );
CONSTANTEXP( ADR( id_2dprintname_v ) );
c1478 = STRINGTOSYMBOL( U_TX( ADR( t1568 ) ) );
CONSTANTEXP( ADR( c1478 ) );
c1453 = STRINGTOSYMBOL( U_TX( ADR( t1569 ) ) );
CONSTANTEXP( ADR( c1453 ) );
c1440 = STRINGTOSYMBOL( U_TX( ADR( t1570 ) ) );
CONSTANTEXP( ADR( c1440 ) );
c1427 = STRINGTOSYMBOL( U_TX( ADR( t1571 ) ) );
CONSTANTEXP( ADR( c1427 ) );
c1414 = STRINGTOSYMBOL( U_TX( ADR( t1572 ) ) );
CONSTANTEXP( ADR( c1414 ) );
c1401 = STRINGTOSYMBOL( U_TX( ADR( t1573 ) ) );
CONSTANTEXP( ADR( c1401 ) );
c1388 = STRINGTOSYMBOL( U_TX( ADR( t1574 ) ) );
CONSTANTEXP( ADR( c1388 ) );
c1363 = STRINGTOSYMBOL( U_TX( ADR( t1575 ) ) );
CONSTANTEXP( ADR( c1363 ) );
c1350 = STRINGTOSYMBOL( U_TX( ADR( t1576 ) ) );
CONSTANTEXP( ADR( c1350 ) );
c1337 = STRINGTOSYMBOL( U_TX( ADR( t1577 ) ) );
CONSTANTEXP( ADR( c1337 ) );
c1324 = STRINGTOSYMBOL( U_TX( ADR( t1578 ) ) );
CONSTANTEXP( ADR( c1324 ) );
c1277 = STRINGTOSYMBOL( U_TX( ADR( t1580 ) ) );
CONSTANTEXP( ADR( c1277 ) );
c1152 = STRINGTOSYMBOL( U_TX( ADR( t1581 ) ) );
CONSTANTEXP( ADR( c1152 ) );
c1125 = STRINGTOSYMBOL( U_TX( ADR( t1582 ) ) );
CONSTANTEXP( ADR( c1125 ) );
c1097 = STRINGTOSYMBOL( U_TX( ADR( t1583 ) ) );
CONSTANTEXP( ADR( c1097 ) );
c1086 = STRINGTOSYMBOL( U_TX( ADR( t1584 ) ) );
CONSTANTEXP( ADR( c1086 ) );
c1077 = STRINGTOSYMBOL( U_TX( ADR( t1585 ) ) );
CONSTANTEXP( ADR( c1077 ) );
c1076 = STRINGTOSYMBOL( U_TX( ADR( t1586 ) ) );
CONSTANTEXP( ADR( c1076 ) );
c1073 = STRINGTOSYMBOL( U_TX( ADR( t1587 ) ) );
CONSTANTEXP( ADR( c1073 ) );
c1054 = STRINGTOSYMBOL( U_TX( ADR( t1588 ) ) );
CONSTANTEXP( ADR( c1054 ) );
c1053 = STRINGTOSYMBOL( U_TX( ADR( t1589 ) ) );
CONSTANTEXP( ADR( c1053 ) );
c1052 = STRINGTOSYMBOL( U_TX( ADR( t1590 ) ) );
CONSTANTEXP( ADR( c1052 ) );
c1039 = STRINGTOSYMBOL( U_TX( ADR( t1591 ) ) );
CONSTANTEXP( ADR( c1039 ) );
c1025 = STRINGTOSYMBOL( U_TX( ADR( t1592 ) ) );
CONSTANTEXP( ADR( c1025 ) );
}
DEFTSCP( lambdaexp_lambda_2dexp_v );
DEFSTRING( t1593, "LAMBDA-EXP", 10 );
EXTERNTSCPP( lambdaexp_lambda_2ddefines );
EXTERNTSCP( lambdaexp_lambda_2ddefines_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
EXTERNTSCPP( lambdaexp_ars_2dbind_5a7c2cf0 );
EXTERNTSCP( lambdaexp_ars_2dbind_5a7c2cf0_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
TSCP lambdaexp_lambda_2dexp( e1011, e1012 )
TSCP e1011, e1012;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1593 ) ) );
X1 = EMPTYLIST;
X3 = SYMBOL_VALUE( newv_v );
X3 = UNKNOWNCALL( X3, 3 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( c1052,
c1053,
c1054,
PROCEDURE_CLOSURE( X3 ) );
X3 = SYMBOL_VALUE( current_2dlambda_2did_v );
X4 = SYMBOL_VALUE( lexical_2dfree_2dvars_v );
X5 = SYMBOL_VALUE( lexical_2dbound_2dvars_v );
if ( EQ( TSCPTAG( e1011 ), PAIRTAG ) ) goto L1596;
scrt1__24__cdr_2derror( e1011 );
L1596:
X8 = PAIR_CDR( e1011 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L1599;
scrt1__24__cdr_2derror( X8 );
L1599:
X7 = PAIR_CDR( X8 );
X6 = lambdaexp_lambda_2ddefines( X7 );
X6 = CONS( X6, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
X7 = SYMBOL_VALUE( lexical_2dbound_2dvars_v );
X8 = SYMBOL_VALUE( lexical_2dfree_2dvars_v );
SETGENTL( SYMBOL_VALUE( lexical_2dfree_2dvars_v ),
scrt1_append_2dtwo( X7, X8 ) );
SETGENTL( SYMBOL_VALUE( lexical_2dbound_2dvars_v ),
EMPTYLIST );
X7 = SYMBOL_VALUE( current_2dlambda_2did_v );
plist_put( X2, c1025, X7 );
SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), X2 );
X8 = PAIR_CDR( e1011 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L1604;
scrt1__24__car_2derror( X8 );
L1604:
X7 = PAIR_CAR( X8 );
lambdaexp_ars_2dbind_5a7c2cf0( X7,
PAIR_CAR( X6 ), X2 );
X8 = SYMBOL_VALUE( exp_2dform_2dlist_v );
X8 = UNKNOWNCALL( X8, 2 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( PAIR_CAR( X6 ),
e1012,
PROCEDURE_CLOSURE( X8 ) );
SETGEN( PAIR_CAR( X6 ), X7 );
X9 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_append_2dtwo( PAIR_CAR( X6 ), X9 ),
EMPTYLIST );
X7 = scrt1_cons_2a( c1039, CONS( X2, X8 ) );
SETGEN( PAIR_CAR( X1 ), X7 );
SETGENTL( SYMBOL_VALUE( lexical_2dbound_2dvars_v ), X5 );
SETGENTL( SYMBOL_VALUE( lexical_2dfree_2dvars_v ), X4 );
SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), X3 );
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( lambdaexp_ars_2dbind_5a7c2cf0_v );
DEFSTRING( t1606, "LAMBDA-VARS-BIND", 16 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
TSCP lambdaexp_ars_2dbind_5a7c2cf0( v1056, n1057, i1058 )
TSCP v1056, n1057, i1058;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1606 ) ) );
v1056 = CONS( v1056, EMPTYLIST );
if ( EQ( UNSIGNED( PAIR_CAR( v1056 ) ),
UNSIGNED( EMPTYLIST ) ) ) goto L1608;
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( v1056 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( v1056 ) ),
SYMBOLTAG ) ) ) ) goto L1610;
X2 = SYMBOL_VALUE( newv_v );
X2 = UNKNOWNCALL( X2, 5 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( PAIR_CAR( v1056 ),
c1053,
c1076,
c1077,
i1058,
PROCEDURE_CLOSURE( X2 ) );
SETGEN( PAIR_CAR( v1056 ), X1 );
if ( FALSE( n1057 ) ) goto L1613;
X1 = SYMBOL_VALUE( assign_2dknown_2dname_v );
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( PAIR_CAR( v1056 ),
PROCEDURE_CLOSURE( X1 ) );
L1613:
X2 = sc_cons( PAIR_CAR( v1056 ), EMPTYLIST );
X1 = X2;
POPSTACKTRACE( plist_put( i1058, c1097, X1 ) );
L1610:
if ( NEQ( TSCPTAG( PAIR_CAR( v1056 ) ), PAIRTAG ) ) goto L1616;
X2 = PAIR_CAR( v1056 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1619;
scrt1__24__car_2derror( X2 );
L1619:
X1 = PAIR_CAR( X2 );
X1 = CONS( X1, EMPTYLIST );
X3 = SYMBOL_VALUE( newv_v );
X3 = UNKNOWNCALL( X3, 5 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PAIR_CAR( X1 ),
c1053,
c1076,
c1077,
i1058,
PROCEDURE_CLOSURE( X3 ) );
SETGEN( PAIR_CAR( X1 ), X2 );
if ( FALSE( n1057 ) ) goto L1622;
X2 = SYMBOL_VALUE( assign_2dknown_2dname_v );
X2 = UNKNOWNCALL( X2, 1 );
VIA( PROCEDURE_CODE( X2 ) )( PAIR_CAR( X1 ),
PROCEDURE_CLOSURE( X2 ) );
L1622:
X3 = PAIR_CAR( v1056 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L1625;
scrt1__24__cdr_2derror( X3 );
L1625:
X2 = PAIR_CDR( X3 );
lambdaexp_ars_2dbind_5a7c2cf0( X2, n1057, i1058 );
X3 = plist_get( i1058, c1086 );
X2 = sc_cons( PAIR_CAR( X1 ), X3 );
POPSTACKTRACE( plist_put( i1058, c1086, X2 ) );
L1616:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1073,
PAIR_CAR( v1056 ),
PROCEDURE_CLOSURE( X1 ) ) );
L1608:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( lambdaexp_lambda_2ddefines_v );
DEFSTRING( t1627, "LAMBDA-DEFINES", 14 );
EXTERNTSCPP( scrt1_caadr );
EXTERNTSCP( scrt1_caadr_v );
EXTERNTSCPP( scrt1_cdadr );
EXTERNTSCP( scrt1_cdadr_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( scrt4_vector_2d_3elist );
EXTERNTSCP( scrt4_vector_2d_3elist_v );
EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
TSCP lambdaexp_lambda_2ddefines( b1101 )
TSCP b1101;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1627 ) ) );
X1 = b1101;
X2 = EMPTYLIST;
X3 = EMPTYLIST;
X4 = EMPTYLIST;
L1630:
if ( FALSE( X1 ) ) goto L1631;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1634;
scrt1__24__car_2derror( X1 );
L1634:
X5 = PAIR_CAR( X1 );
X6 = BOOLEAN( NEQ( TSCPTAG( X5 ), PAIRTAG ) );
if ( TRUE( X6 ) ) goto L1641;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L1645;
scrt1__24__car_2derror( X5 );
L1645:
X7 = PAIR_CAR( X5 );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1125 ) ) ) goto L1641;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L1650;
scrt1__24__cdr_2derror( X5 );
L1650:
X8 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L1653;
scrt1__24__car_2derror( X8 );
L1653:
X7 = PAIR_CAR( X8 );
if ( NEQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L1647;
X7 = PAIR_CDR( X1 );
X9 = scrt1_caadr( X5 );
X8 = sc_cons( X9, X3 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X13 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L1658;
scrt1__24__cdr_2derror( X13 );
L1658:
X12 = PAIR_CDR( X13 );
X13 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_append_2dtwo( X12, X13 ),
EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c1054,
CONS( scrt1_cdadr( X5 ), X11 ) ),
X10 );
X9 = scrt1_cons_2a( c1152,
CONS( scrt1_caadr( X5 ), X10 ) );
X4 = sc_cons( X9, X4 );
X3 = X8;
X1 = X7;
goto L1630;
L1647:
X7 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L1662;
scrt1__24__cdr_2derror( X5 );
L1662:
X10 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L1665;
scrt1__24__car_2derror( X10 );
L1665:
X9 = PAIR_CAR( X10 );
X8 = sc_cons( X9, X3 );
X11 = PAIR_CDR( X5 );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X9 = scrt1_cons_2a( c1152,
CONS( scrt1_append_2dtwo( X11, X12 ),
EMPTYLIST ) );
X4 = sc_cons( X9, X4 );
X3 = X8;
X1 = X7;
goto L1630;
L1631:
if ( FALSE( X3 ) ) goto L1668;
X9 = scrt1_reverse( X4 );
X12 = scrt1_reverse( X2 );
X13 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = scrt1_append_2dtwo( X12, X13 );
X10 = scrt1_cons_2a( X11, EMPTYLIST );
X8 = CONS( scrt1_append_2dtwo( X9, X10 ), EMPTYLIST );
X7 = scrt1_cons_2a( c1054, CONS( X3, X8 ) );
X11 = scrt1_length( X3 );
X10 = sc_make_2dvector( X11,
CONS( _TSCP( 0 ), EMPTYLIST ) );
X9 = scrt4_vector_2d_3elist( X10 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( X7,
CONS( scrt1_append_2dtwo( X9, X10 ),
EMPTYLIST ) );
POPSTACKTRACE( scrt1_cons_2a( X6,
CONS( EMPTYLIST, EMPTYLIST ) ) );
L1668:
POPSTACKTRACE( b1101 );
L1641:
X6 = PAIR_CDR( X1 );
X7 = sc_cons( X5, X2 );
X2 = X7;
X1 = X6;
goto L1630;
}
DEFTSCP( lambdaexp__24lambda_3f_v );
DEFSTRING( t1671, "$LAMBDA?", 8 );
TSCP lambdaexp__24lambda_3f( x1181 )
TSCP x1181;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1671 ) ) );
if ( NEQ( TSCPTAG( x1181 ), PAIRTAG ) ) goto L1673;
X1 = PAIR_CAR( x1181 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1039 ) ) ) );
L1673:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( lambdaexp__24lambda_2did_v );
DEFSTRING( t1676, "$LAMBDA-ID", 10 );
TSCP lambdaexp__24lambda_2did( x1199 )
TSCP x1199;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1676 ) ) );
if ( NEQ( TSCPTAG( x1199 ), PAIRTAG ) ) goto L1678;
X2 = PAIR_CAR( x1199 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1039 ) ) );
goto L1679;
L1678:
X1 = FALSEVALUE;
L1679:
if ( FALSE( X1 ) ) goto L1682;
if ( EQ( TSCPTAG( x1199 ), PAIRTAG ) ) goto L1685;
scrt1__24__cdr_2derror( x1199 );
L1685:
X2 = PAIR_CDR( x1199 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1688;
scrt1__24__car_2derror( X2 );
L1688:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L1682:
POPSTACKTRACE( X1 );
}
DEFTSCP( lambdaexp__24lambda_2dbody_v );
DEFSTRING( t1690, "$LAMBDA-BODY", 12 );
TSCP lambdaexp__24lambda_2dbody( x1233 )
TSCP x1233;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1690 ) ) );
if ( NEQ( TSCPTAG( x1233 ), PAIRTAG ) ) goto L1692;
X2 = PAIR_CAR( x1233 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1039 ) ) );
goto L1693;
L1692:
X1 = FALSEVALUE;
L1693:
if ( FALSE( X1 ) ) goto L1696;
if ( EQ( TSCPTAG( x1233 ), PAIRTAG ) ) goto L1699;
scrt1__24__cdr_2derror( x1233 );
L1699:
X2 = PAIR_CDR( x1233 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1702;
scrt1__24__cdr_2derror( X2 );
L1702:
POPSTACKTRACE( PAIR_CDR( X2 ) );
L1696:
POPSTACKTRACE( X1 );
}
DEFTSCP( lambdaexp__2dbody_21_b7b60c74_v );
DEFSTRING( t1704, "SET-$LAMBDA-BODY!", 17 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP lambdaexp__2dbody_21_b7b60c74( x1267, b1268 )
TSCP x1267, b1268;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1704 ) ) );
if ( EQ( TSCPTAG( x1267 ), PAIRTAG ) ) goto L1707;
scrt1__24__cdr_2derror( x1267 );
L1707:
X1 = PAIR_CDR( x1267 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1710;
scrt6_error( c1277, c1278, CONS( X1, EMPTYLIST ) );
L1710:
POPSTACKTRACE( SETGEN( PAIR_CDR( X1 ), b1268 ) );
}
DEFTSCP( lambdaexp_lambda_2dreqvars_v );
DEFSTRING( t1712, "LAMBDA-REQVARS", 14 );
TSCP lambdaexp_lambda_2dreqvars( i1285 )
TSCP i1285;
{
PUSHSTACKTRACE( U_TX( ADR( t1712 ) ) );
POPSTACKTRACE( plist_get( i1285, c1086 ) );
}
DEFTSCP( lambdaexp_reqvars_21_1ed68904_v );
DEFSTRING( t1714, "SET-LAMBDA-REQVARS!", 19 );
TSCP lambdaexp_reqvars_21_1ed68904( i1290, v1291 )
TSCP i1290, v1291;
{
PUSHSTACKTRACE( U_TX( ADR( t1714 ) ) );
POPSTACKTRACE( plist_put( i1290, c1086, v1291 ) );
}
DEFTSCP( lambdaexp_lambda_2doptvars_v );
DEFSTRING( t1716, "LAMBDA-OPTVARS", 14 );
TSCP lambdaexp_lambda_2doptvars( i1297 )
TSCP i1297;
{
PUSHSTACKTRACE( U_TX( ADR( t1716 ) ) );
POPSTACKTRACE( plist_get( i1297, c1097 ) );
}
DEFTSCP( lambdaexp_optvars_21_62318a06_v );
DEFSTRING( t1718, "SET-LAMBDA-OPTVARS!", 19 );
TSCP lambdaexp_optvars_21_62318a06( i1302, v1303 )
TSCP i1302, v1303;
{
PUSHSTACKTRACE( U_TX( ADR( t1718 ) ) );
POPSTACKTRACE( plist_put( i1302, c1097, v1303 ) );
}
DEFTSCP( lambdaexp_lambda_2dlexical_v );
DEFSTRING( t1720, "LAMBDA-LEXICAL", 14 );
TSCP lambdaexp_lambda_2dlexical( i1309 )
TSCP i1309;
{
PUSHSTACKTRACE( U_TX( ADR( t1720 ) ) );
POPSTACKTRACE( plist_get( i1309, c1076 ) );
}
DEFTSCP( lambdaexp_lexical_21_cb9ac4c3_v );
DEFSTRING( t1722, "SET-LAMBDA-LEXICAL!", 19 );
TSCP lambdaexp_lexical_21_cb9ac4c3( i1314, l1315 )
TSCP i1314, l1315;
{
PUSHSTACKTRACE( U_TX( ADR( t1722 ) ) );
POPSTACKTRACE( plist_put( i1314, c1076, l1315 ) );
}
DEFTSCP( lambdaexp_lambda_2dcalls_v );
DEFSTRING( t1724, "LAMBDA-CALLS", 12 );
TSCP lambdaexp_lambda_2dcalls( i1321 )
TSCP i1321;
{
PUSHSTACKTRACE( U_TX( ADR( t1724 ) ) );
POPSTACKTRACE( plist_get( i1321, c1324 ) );
}
DEFTSCP( lambdaexp_2dcalls_21_2e15beaf_v );
DEFSTRING( t1726, "SET-LAMBDA-CALLS!", 17 );
TSCP lambdaexp_2dcalls_21_2e15beaf( i1327, x1328 )
TSCP i1327, x1328;
{
PUSHSTACKTRACE( U_TX( ADR( t1726 ) ) );
POPSTACKTRACE( plist_put( i1327, c1324, x1328 ) );
}
DEFTSCP( lambdaexp_lambda_2dgenerate_v );
DEFSTRING( t1728, "LAMBDA-GENERATE", 15 );
TSCP lambdaexp_lambda_2dgenerate( i1334 )
TSCP i1334;
{
PUSHSTACKTRACE( U_TX( ADR( t1728 ) ) );
POPSTACKTRACE( plist_get( i1334, c1337 ) );
}
DEFTSCP( lambdaexp_enerate_21_9da1f848_v );
DEFSTRING( t1730, "SET-LAMBDA-GENERATE!", 20 );
TSCP lambdaexp_enerate_21_9da1f848( i1340, x1341 )
TSCP i1340, x1341;
{
PUSHSTACKTRACE( U_TX( ADR( t1730 ) ) );
POPSTACKTRACE( plist_put( i1340, c1337, x1341 ) );
}
DEFTSCP( lambdaexp_lambda_2dclosed_v );
DEFSTRING( t1732, "LAMBDA-CLOSED", 13 );
TSCP lambdaexp_lambda_2dclosed( i1347 )
TSCP i1347;
{
PUSHSTACKTRACE( U_TX( ADR( t1732 ) ) );
POPSTACKTRACE( plist_get( i1347, c1350 ) );
}
DEFTSCP( lambdaexp_dclosed_21_ec5c02cd_v );
DEFSTRING( t1734, "SET-LAMBDA-CLOSED!", 18 );
TSCP lambdaexp_dclosed_21_ec5c02cd( i1353, x1354 )
TSCP i1353, x1354;
{
PUSHSTACKTRACE( U_TX( ADR( t1734 ) ) );
POPSTACKTRACE( plist_put( i1353, c1350, x1354 ) );
}
DEFTSCP( lambdaexp_y_2dclosep_2ee78957_v );
DEFSTRING( t1736, "LAMBDA-DISPLAY-CLOSEP", 21 );
TSCP lambdaexp_y_2dclosep_2ee78957( i1360 )
TSCP i1360;
{
PUSHSTACKTRACE( U_TX( ADR( t1736 ) ) );
POPSTACKTRACE( plist_get( i1360, c1363 ) );
}
DEFTSCP( lambdaexp_dclosep_21_85634459_v );
DEFSTRING( t1738, "SET-LAMBDA-DISPLAY-CLOSEP!", 26 );
TSCP lambdaexp_dclosep_21_85634459( i1366, x1367 )
TSCP i1366, x1367;
{
PUSHSTACKTRACE( U_TX( ADR( t1738 ) ) );
POPSTACKTRACE( plist_put( i1366, c1363, x1367 ) );
}
DEFTSCP( lambdaexp_lambda_2dnestin_v );
DEFSTRING( t1740, "LAMBDA-NESTIN", 13 );
TSCP lambdaexp_lambda_2dnestin( i1373 )
TSCP i1373;
{
PUSHSTACKTRACE( U_TX( ADR( t1740 ) ) );
POPSTACKTRACE( plist_get( i1373, c1025 ) );
}
DEFTSCP( lambdaexp_dnestin_21_156a35d6_v );
DEFSTRING( t1742, "SET-LAMBDA-NESTIN!", 18 );
TSCP lambdaexp_dnestin_21_156a35d6( i1378, n1379 )
TSCP i1378, n1379;
{
PUSHSTACKTRACE( U_TX( ADR( t1742 ) ) );
POPSTACKTRACE( plist_put( i1378, c1025, n1379 ) );
}
DEFTSCP( lambdaexp_lambda_2dexits_v );
DEFSTRING( t1744, "LAMBDA-EXITS", 12 );
TSCP lambdaexp_lambda_2dexits( i1385 )
TSCP i1385;
{
PUSHSTACKTRACE( U_TX( ADR( t1744 ) ) );
POPSTACKTRACE( plist_get( i1385, c1388 ) );
}
DEFTSCP( lambdaexp_2dexits_21_1a6123c5_v );
DEFSTRING( t1746, "SET-LAMBDA-EXITS!", 17 );
TSCP lambdaexp_2dexits_21_1a6123c5( i1391, e1392 )
TSCP i1391, e1392;
{
PUSHSTACKTRACE( U_TX( ADR( t1746 ) ) );
POPSTACKTRACE( plist_put( i1391, c1388, e1392 ) );
}
DEFTSCP( lambdaexp_ne_2dtails_e7422159_v );
DEFSTRING( t1748, "LAMBDA-INLINE-TAILS", 19 );
TSCP lambdaexp_ne_2dtails_e7422159( i1398 )
TSCP i1398;
{
PUSHSTACKTRACE( U_TX( ADR( t1748 ) ) );
POPSTACKTRACE( plist_get( i1398, c1401 ) );
}
DEFTSCP( lambdaexp_2dtails_21_60af0e8d_v );
DEFSTRING( t1750, "SET-LAMBDA-INLINE-TAILS!", 24 );
TSCP lambdaexp_2dtails_21_60af0e8d( i1404, t1405 )
TSCP i1404, t1405;
{
PUSHSTACKTRACE( U_TX( ADR( t1750 ) ) );
POPSTACKTRACE( plist_put( i1404, c1401, t1405 ) );
}
DEFTSCP( lambdaexp_tr_2dcalls_63782d98_v );
DEFSTRING( t1752, "LAMBDA-STR-CALLS", 16 );
TSCP lambdaexp_tr_2dcalls_63782d98( i1411 )
TSCP i1411;
{
PUSHSTACKTRACE( U_TX( ADR( t1752 ) ) );
POPSTACKTRACE( plist_get( i1411, c1414 ) );
}
DEFTSCP( lambdaexp_2dcalls_21_6fe7acf4_v );
DEFSTRING( t1754, "SET-LAMBDA-STR-CALLS!", 21 );
TSCP lambdaexp_2dcalls_21_6fe7acf4( i1417, x1418 )
TSCP i1417, x1418;
{
PUSHSTACKTRACE( U_TX( ADR( t1754 ) ) );
POPSTACKTRACE( plist_put( i1417, c1414, x1418 ) );
}
DEFTSCP( lambdaexp_il_2dcalls_76e98af_v );
DEFSTRING( t1756, "LAMBDA-TAIL-CALLS", 17 );
TSCP lambdaexp_il_2dcalls_76e98af( i1424 )
TSCP i1424;
{
PUSHSTACKTRACE( U_TX( ADR( t1756 ) ) );
POPSTACKTRACE( plist_get( i1424, c1427 ) );
}
DEFTSCP( lambdaexp_2dcalls_21_a9a74c24_v );
DEFSTRING( t1758, "SET-LAMBDA-TAIL-CALLS!", 22 );
TSCP lambdaexp_2dcalls_21_a9a74c24( i1430, x1431 )
TSCP i1430, x1431;
{
PUSHSTACKTRACE( U_TX( ADR( t1758 ) ) );
POPSTACKTRACE( plist_put( i1430, c1427, x1431 ) );
}
DEFTSCP( lambdaexp_al_2dcalls_4b5d0e39_v );
DEFSTRING( t1760, "LAMBDA-REAL-CALLS", 17 );
TSCP lambdaexp_al_2dcalls_4b5d0e39( i1437 )
TSCP i1437;
{
PUSHSTACKTRACE( U_TX( ADR( t1760 ) ) );
POPSTACKTRACE( plist_get( i1437, c1440 ) );
}
DEFTSCP( lambdaexp_2dcalls_21_c8f2c4a0_v );
DEFSTRING( t1762, "SET-LAMBDA-REAL-CALLS!", 22 );
TSCP lambdaexp_2dcalls_21_c8f2c4a0( i1443, x1444 )
TSCP i1443, x1444;
{
PUSHSTACKTRACE( U_TX( ADR( t1762 ) ) );
POPSTACKTRACE( plist_put( i1443, c1440, x1444 ) );
}
DEFTSCP( lambdaexp_de_2dlabel_a0c18656_v );
DEFSTRING( t1764, "LAMBDA-CODE-LABEL", 17 );
TSCP lambdaexp_de_2dlabel_a0c18656( i1450 )
TSCP i1450;
{
PUSHSTACKTRACE( U_TX( ADR( t1764 ) ) );
POPSTACKTRACE( plist_get( i1450, c1453 ) );
}
DEFTSCP( lambdaexp_2dlabel_21_819a857a_v );
DEFSTRING( t1766, "SET-LAMBDA-CODE-LABEL!", 22 );
TSCP lambdaexp_2dlabel_21_819a857a( i1456, x1457 )
TSCP i1456, x1457;
{
PUSHSTACKTRACE( U_TX( ADR( t1766 ) ) );
POPSTACKTRACE( plist_put( i1456, c1453, x1457 ) );
}
DEFTSCP( lambdaexp_lambda_2d_24lambda_v );
DEFSTRING( t1768, "LAMBDA-$LAMBDA", 14 );
TSCP lambdaexp_lambda_2d_24lambda( i1463 )
TSCP i1463;
{
PUSHSTACKTRACE( U_TX( ADR( t1768 ) ) );
POPSTACKTRACE( plist_get( i1463, c1039 ) );
}
DEFTSCP( lambdaexp_4lambda_21_cedc504f_v );
DEFSTRING( t1770, "SET-LAMBDA-$LAMBDA!", 19 );
TSCP lambdaexp_4lambda_21_cedc504f( i1468, e1469 )
TSCP i1468, e1469;
{
PUSHSTACKTRACE( U_TX( ADR( t1770 ) ) );
POPSTACKTRACE( plist_put( i1468, c1039, e1469 ) );
}
DEFTSCP( lambdaexp_lambda_2dname_v );
DEFSTRING( t1772, "LAMBDA-NAME", 11 );
TSCP lambdaexp_lambda_2dname( i1475 )
TSCP i1475;
{
PUSHSTACKTRACE( U_TX( ADR( t1772 ) ) );
POPSTACKTRACE( plist_get( i1475, c1478 ) );
}
DEFTSCP( lambdaexp__2dname_21_f801d262_v );
DEFSTRING( t1774, "SET-LAMBDA-NAME!", 16 );
TSCP lambdaexp__2dname_21_f801d262( i1481, x1482 )
TSCP i1481, x1482;
{
PUSHSTACKTRACE( U_TX( ADR( t1774 ) ) );
POPSTACKTRACE( plist_put( i1481, c1478, x1482 ) );
}
DEFTSCP( lambdaexp_bda_2dinfo_dbd81905_v );
DEFSTRING( t1776, "PRINT-LAMBDA-INFO", 17 );
EXTERNTSCPP( scrt5_current_2doutput_2dport );
EXTERNTSCP( scrt5_current_2doutput_2dport_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
TSCP lambdaexp_bda_2dinfo_dbd81905( i1488, o1489 )
TSCP i1488, o1489;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1776 ) ) );
o1489 = CONS( o1489, EMPTYLIST );
if ( FALSE( PAIR_CAR( o1489 ) ) ) goto L1778;
X2 = PAIR_CAR( o1489 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1781;
scrt1__24__car_2derror( X2 );
L1781:
X1 = PAIR_CAR( X2 );
SETGEN( PAIR_CAR( o1489 ), X1 );
goto L1779;
L1778:
X1 = scrt5_current_2doutput_2dport( );
SETGEN( PAIR_CAR( o1489 ), X1 );
L1779:
X4 = plist_get( i1488, c1478 );
if ( FALSE( X4 ) ) goto L1784;
X3 = X4;
goto L1785;
L1784:
X3 = i1488;
L1785:
X2 = SYMBOL_VALUE( id_2dprintname_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = CONS( VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) ),
EMPTYLIST );
X1 = CONS( i1488, X1 );
X1 = CONS( plist_get( i1488, c1478 ), X1 );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1494, X1 ) );
X1 = CONS( plist_get( i1488, c1097 ), EMPTYLIST );
X1 = CONS( plist_get( i1488, c1086 ), X1 );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1504, X1 ) );
X1 = CONS( plist_get( i1488, c1076 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1509, X1 ) );
X1 = CONS( plist_get( i1488, c1324 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1512, X1 ) );
X1 = CONS( plist_get( i1488, c1363 ), EMPTYLIST );
X1 = CONS( plist_get( i1488, c1350 ), X1 );
X1 = CONS( plist_get( i1488, c1337 ), X1 );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1515, X1 ) );
X1 = CONS( plist_get( i1488, c1025 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1522, X1 ) );
X1 = CONS( plist_get( i1488, c1388 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1525, X1 ) );
X1 = CONS( plist_get( i1488, c1401 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1528, X1 ) );
X1 = CONS( plist_get( i1488, c1414 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1531, X1 ) );
X1 = CONS( plist_get( i1488, c1427 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1534, X1 ) );
X1 = CONS( plist_get( i1488, c1440 ), EMPTYLIST );
scrt6_format( PAIR_CAR( o1489 ),
CONS( c1537, X1 ) );
X1 = CONS( plist_get( i1488, c1453 ), EMPTYLIST );
POPSTACKTRACE( scrt6_format( PAIR_CAR( o1489 ),
CONS( c1540, X1 ) ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt5__init();
scrt6__init();
scrt4__init();
plist__init();
scrt1__init();
MAXDISPLAY( 0 );
}
void lambdaexp__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(lambdaexp SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1593 ) ),
ADR( lambdaexp_lambda_2dexp_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_lambda_2dexp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1606 ) ),
ADR( lambdaexp_ars_2dbind_5a7c2cf0_v ),
MAKEPROCEDURE( 3,
0,
lambdaexp_ars_2dbind_5a7c2cf0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1627 ) ),
ADR( lambdaexp_lambda_2ddefines_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2ddefines,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1671 ) ),
ADR( lambdaexp__24lambda_3f_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp__24lambda_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1676 ) ),
ADR( lambdaexp__24lambda_2did_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp__24lambda_2did,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1690 ) ),
ADR( lambdaexp__24lambda_2dbody_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp__24lambda_2dbody,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1704 ) ),
ADR( lambdaexp__2dbody_21_b7b60c74_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp__2dbody_21_b7b60c74,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1712 ) ),
ADR( lambdaexp_lambda_2dreqvars_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dreqvars,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1714 ) ),
ADR( lambdaexp_reqvars_21_1ed68904_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_reqvars_21_1ed68904,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1716 ) ),
ADR( lambdaexp_lambda_2doptvars_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2doptvars,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1718 ) ),
ADR( lambdaexp_optvars_21_62318a06_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_optvars_21_62318a06,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1720 ) ),
ADR( lambdaexp_lambda_2dlexical_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dlexical,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1722 ) ),
ADR( lambdaexp_lexical_21_cb9ac4c3_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_lexical_21_cb9ac4c3,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1724 ) ),
ADR( lambdaexp_lambda_2dcalls_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dcalls,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1726 ) ),
ADR( lambdaexp_2dcalls_21_2e15beaf_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dcalls_21_2e15beaf,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1728 ) ),
ADR( lambdaexp_lambda_2dgenerate_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dgenerate,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1730 ) ),
ADR( lambdaexp_enerate_21_9da1f848_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_enerate_21_9da1f848,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1732 ) ),
ADR( lambdaexp_lambda_2dclosed_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dclosed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1734 ) ),
ADR( lambdaexp_dclosed_21_ec5c02cd_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_dclosed_21_ec5c02cd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1736 ) ),
ADR( lambdaexp_y_2dclosep_2ee78957_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_y_2dclosep_2ee78957,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1738 ) ),
ADR( lambdaexp_dclosep_21_85634459_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_dclosep_21_85634459,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1740 ) ),
ADR( lambdaexp_lambda_2dnestin_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dnestin,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1742 ) ),
ADR( lambdaexp_dnestin_21_156a35d6_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_dnestin_21_156a35d6,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1744 ) ),
ADR( lambdaexp_lambda_2dexits_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dexits,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1746 ) ),
ADR( lambdaexp_2dexits_21_1a6123c5_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dexits_21_1a6123c5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1748 ) ),
ADR( lambdaexp_ne_2dtails_e7422159_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_ne_2dtails_e7422159,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1750 ) ),
ADR( lambdaexp_2dtails_21_60af0e8d_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dtails_21_60af0e8d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1752 ) ),
ADR( lambdaexp_tr_2dcalls_63782d98_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_tr_2dcalls_63782d98,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1754 ) ),
ADR( lambdaexp_2dcalls_21_6fe7acf4_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dcalls_21_6fe7acf4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1756 ) ),
ADR( lambdaexp_il_2dcalls_76e98af_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_il_2dcalls_76e98af,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1758 ) ),
ADR( lambdaexp_2dcalls_21_a9a74c24_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dcalls_21_a9a74c24,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1760 ) ),
ADR( lambdaexp_al_2dcalls_4b5d0e39_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_al_2dcalls_4b5d0e39,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1762 ) ),
ADR( lambdaexp_2dcalls_21_c8f2c4a0_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dcalls_21_c8f2c4a0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1764 ) ),
ADR( lambdaexp_de_2dlabel_a0c18656_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_de_2dlabel_a0c18656,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1766 ) ),
ADR( lambdaexp_2dlabel_21_819a857a_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_2dlabel_21_819a857a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1768 ) ),
ADR( lambdaexp_lambda_2d_24lambda_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2d_24lambda,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1770 ) ),
ADR( lambdaexp_4lambda_21_cedc504f_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp_4lambda_21_cedc504f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1772 ) ),
ADR( lambdaexp_lambda_2dname_v ),
MAKEPROCEDURE( 1,
0,
lambdaexp_lambda_2dname,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1774 ) ),
ADR( lambdaexp__2dname_21_f801d262_v ),
MAKEPROCEDURE( 2,
0,
lambdaexp__2dname_21_f801d262,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1776 ) ),
ADR( lambdaexp_bda_2dinfo_dbd81905_v ),
MAKEPROCEDURE( 1,
1,
lambdaexp_bda_2dinfo_dbd81905,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.