This is extern.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1838, "PARSE-TYPE", 10 );
DEFSTATICTSCP( parse_2dtype_v );
DEFSTRING( t1839, "UIS", 3 );
DEFSTATICTSCP( uis_v );
DEFSTRING( t1840, "ISA-POINTER?", 12 );
DEFSTATICTSCP( isa_2dpointer_3f_v );
DEFSTRING( t1841, "BASE-TYPE", 9 );
DEFSTATICTSCP( base_2dtype_v );
DEFSTRING( t1842, "SIZE-OF", 7 );
DEFSTATICTSCP( size_2dof_v );
DEFSTRING( t1843, "ISA-UNION?", 10 );
DEFSTATICTSCP( isa_2dunion_3f_v );
DEFSTRING( t1844, "ISA-STRUCT?", 11 );
DEFSTATICTSCP( isa_2dstruct_3f_v );
DEFSTRING( t1845, "ISA-ARRAY?", 10 );
DEFSTATICTSCP( isa_2darray_3f_v );
DEFSTRING( t1846, "POINTED-TO-BY", 13 );
DEFSTATICTSCP( pointed_2dto_2dby_v );
DEFSTRING( t1847, "ISA-PROCP?", 10 );
DEFSTATICTSCP( isa_2dprocp_3f_v );
DEFSTRING( t1848, "**", 2 );
DEFSTATICTSCP2( c1777, t1848 );
DEFSTATICTSCP( c1744 );
DEFSTATICTSCP( c1688 );
DEFSTRING( t1850, "Z", 1 );
DEFSTATICTSCP( t1849 );
DEFSTRING( t1852, "Y", 1 );
DEFSTATICTSCP( t1851 );
DEFSTRING( t1854, "X", 1 );
DEFSTATICTSCP( t1853 );
DEFSTRING( t1856, "W", 1 );
DEFSTATICTSCP( t1855 );
DEFSTRING( t1858, "V", 1 );
DEFSTATICTSCP( t1857 );
DEFSTRING( t1860, "U", 1 );
DEFSTATICTSCP( t1859 );
DEFSTRING( t1862, "T", 1 );
DEFSTATICTSCP( t1861 );
DEFSTRING( t1864, "S", 1 );
DEFSTATICTSCP( t1863 );
DEFSTRING( t1866, "R", 1 );
DEFSTATICTSCP( t1865 );
DEFSTRING( t1868, "Q", 1 );
DEFSTATICTSCP( t1867 );
DEFSTRING( t1870, "P", 1 );
DEFSTATICTSCP( t1869 );
DEFSTRING( t1872, "O", 1 );
DEFSTATICTSCP( t1871 );
DEFSTRING( t1874, "N", 1 );
DEFSTATICTSCP( t1873 );
DEFSTRING( t1876, "M", 1 );
DEFSTATICTSCP( t1875 );
DEFSTRING( t1878, "L", 1 );
DEFSTATICTSCP( t1877 );
DEFSTRING( t1880, "K", 1 );
DEFSTATICTSCP( t1879 );
DEFSTRING( t1882, "J", 1 );
DEFSTATICTSCP( t1881 );
DEFSTRING( t1884, "I", 1 );
DEFSTATICTSCP( t1883 );
DEFSTRING( t1886, "H", 1 );
DEFSTATICTSCP( t1885 );
DEFSTRING( t1888, "G", 1 );
DEFSTATICTSCP( t1887 );
DEFSTRING( t1890, "F", 1 );
DEFSTATICTSCP( t1889 );
DEFSTRING( t1892, "E", 1 );
DEFSTATICTSCP( t1891 );
DEFSTRING( t1894, "D", 1 );
DEFSTATICTSCP( t1893 );
DEFSTRING( t1896, "C", 1 );
DEFSTATICTSCP( t1895 );
DEFSTRING( t1898, "B", 1 );
DEFSTATICTSCP( t1897 );
DEFSTRING( t1900, "A", 1 );
DEFSTATICTSCP( t1899 );
DEFSTRING( t1901, "DEFINE-EXTERNAL", 15 );
DEFSTATICTSCP( c1644 );
DEFSTRING( t1902, "POINTER", 7 );
DEFSTATICTSCP( c1611 );
DEFSTATICTSCP( c1590 );
DEFSTRING( t1904, "STRING", 6 );
DEFSTATICTSCP( t1903 );
DEFSTRING( t1906, "IN_OUT", 6 );
DEFSTATICTSCP( t1905 );
DEFSTRING( t1908, "OUT", 3 );
DEFSTATICTSCP( t1907 );
DEFSTRING( t1910, "IN", 2 );
DEFSTATICTSCP( t1909 );
DEFSTRING( t1911, "C->IN_OUT", 9 );
DEFSTATICTSCP( c1537 );
DEFSTRING( t1912, "C-UNSIGNED-REF", 14 );
DEFSTATICTSCP( c1536 );
DEFSTRING( t1913, "TO-GET", 6 );
DEFSTATICTSCP( c1534 );
DEFSTRING( t1914, "IN->C", 5 );
DEFSTATICTSCP( c1463 );
DEFSTRING( t1915, "IN_OUT->C", 9 );
DEFSTATICTSCP( c1462 );
DEFSTRING( t1916, "MAKE-STRING", 11 );
DEFSTATICTSCP( c1456 );
DEFSTRING( t1917, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1455, t1917 );
DEFSTRING( t1918, "CHK-STRING", 10 );
DEFSTATICTSCP( c1454 );
DEFSTRING( t1919, "ERROR", 5 );
DEFSTATICTSCP( c1453 );
DEFSTRING( t1920, "STRING?", 7 );
DEFSTATICTSCP( c1452 );
DEFSTRING( t1921, "IF", 2 );
DEFSTATICTSCP( c1451 );
DEFSTRING( t1922, "CHK-", 4 );
DEFSTATICTSCP2( c1450, t1922 );
DEFSTRING( t1923, "IN_OUT", 6 );
DEFSTATICTSCP( c1443 );
DEFSTRING( t1924, "IN", 2 );
DEFSTATICTSCP( c1439 );
DEFSTRING( t1925, "*", 1 );
DEFSTATICTSCP2( c1414, t1925 );
DEFSTRING( t1926, "LIST", 4 );
DEFSTATICTSCP( c1398 );
DEFSTRING( t1927, "BEGIN", 5 );
DEFSTATICTSCP( c1392 );
DEFSTRING( t1928, "C-STRING->STRING", 16 );
DEFSTATICTSCP( c1391 );
DEFSTRING( t1929, "QUOTE", 5 );
DEFSTATICTSCP( c1389 );
DEFSTRING( t1930, "CONS", 4 );
DEFSTATICTSCP( c1388 );
DEFSTRING( t1931, "STRING", 6 );
DEFSTATICTSCP( c1386 );
DEFSTRING( t1932, "VOID", 4 );
DEFSTATICTSCP( c1382 );
DEFSTRING( t1933, "RETURN-VALUE", 12 );
DEFSTATICTSCP( c1378 );
DEFSTRING( t1934, "LET*", 4 );
DEFSTATICTSCP( c1338 );
DEFSTRING( t1935, "RETURNED", 8 );
DEFSTATICTSCP( c1337 );
DEFSTRING( t1936, "DEFINE-C-EXTERNAL", 17 );
DEFSTATICTSCP( c1295 );
DEFSTRING( t1937, "OUT", 3 );
DEFSTATICTSCP( c1278 );
DEFSTRING( t1938, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1248, t1938 );
DEFSTRING( t1939, "SET-CDR!", 8 );
DEFSTATICTSCP( c1247 );
DEFSTRING( t1940, "DEFINE", 6 );
DEFSTATICTSCP( c1179 );
DEFSTRING( t1941, ".sch", 4 );
DEFSTATICTSCP2( c1154, t1941 );
DEFSTRING( t1942, "INCLUDE", 7 );
DEFSTATICTSCP( c1153 );
DEFSTRING( t1943, "MODULE", 6 );
DEFSTATICTSCP( c1152 );
DEFSTRING( t1944, ".sc", 3 );
DEFSTATICTSCP2( c1150, t1944 );
DEFSTRING( t1945, "Illegal ARGUMENT syntax: ~s", 27 );
DEFSTATICTSCP2( c1142, t1945 );
DEFSTRING( t1946, "PARSE-ARG", 9 );
DEFSTATICTSCP( c1141 );
DEFSTATICTSCP( c1123 );
DEFSTRING( t1947, "Illegal EXTERN syntax: ~s", 25 );
DEFSTATICTSCP2( c1032, t1947 );
DEFSTRING( t1948, "INPUT-EXTERN", 12 );
DEFSTATICTSCP( c1031 );
static void init_constants()
{
parse_2dtype_v = STRINGTOSYMBOL( U_TX( ADR( t1838 ) ) );
CONSTANTEXP( ADR( parse_2dtype_v ) );
uis_v = STRINGTOSYMBOL( U_TX( ADR( t1839 ) ) );
CONSTANTEXP( ADR( uis_v ) );
isa_2dpointer_3f_v = STRINGTOSYMBOL( U_TX( ADR( t1840 ) ) );
CONSTANTEXP( ADR( isa_2dpointer_3f_v ) );
base_2dtype_v = STRINGTOSYMBOL( U_TX( ADR( t1841 ) ) );
CONSTANTEXP( ADR( base_2dtype_v ) );
size_2dof_v = STRINGTOSYMBOL( U_TX( ADR( t1842 ) ) );
CONSTANTEXP( ADR( size_2dof_v ) );
isa_2dunion_3f_v = STRINGTOSYMBOL( U_TX( ADR( t1843 ) ) );
CONSTANTEXP( ADR( isa_2dunion_3f_v ) );
isa_2dstruct_3f_v = STRINGTOSYMBOL( U_TX( ADR( t1844 ) ) );
CONSTANTEXP( ADR( isa_2dstruct_3f_v ) );
isa_2darray_3f_v = STRINGTOSYMBOL( U_TX( ADR( t1845 ) ) );
CONSTANTEXP( ADR( isa_2darray_3f_v ) );
pointed_2dto_2dby_v = STRINGTOSYMBOL( U_TX( ADR( t1846 ) ) );
CONSTANTEXP( ADR( pointed_2dto_2dby_v ) );
isa_2dprocp_3f_v = STRINGTOSYMBOL( U_TX( ADR( t1847 ) ) );
CONSTANTEXP( ADR( isa_2dprocp_3f_v ) );
c1744 = EMPTYLIST;
c1744 = CONS( FALSEVALUE, c1744 );
CONSTANTEXP( ADR( c1744 ) );
c1688 = EMPTYLIST;
t1849 = STRINGTOSYMBOL( U_TX( ADR( t1850 ) ) );
c1688 = CONS( t1849, c1688 );
t1851 = STRINGTOSYMBOL( U_TX( ADR( t1852 ) ) );
c1688 = CONS( t1851, c1688 );
t1853 = STRINGTOSYMBOL( U_TX( ADR( t1854 ) ) );
c1688 = CONS( t1853, c1688 );
t1855 = STRINGTOSYMBOL( U_TX( ADR( t1856 ) ) );
c1688 = CONS( t1855, c1688 );
t1857 = STRINGTOSYMBOL( U_TX( ADR( t1858 ) ) );
c1688 = CONS( t1857, c1688 );
t1859 = STRINGTOSYMBOL( U_TX( ADR( t1860 ) ) );
c1688 = CONS( t1859, c1688 );
t1861 = STRINGTOSYMBOL( U_TX( ADR( t1862 ) ) );
c1688 = CONS( t1861, c1688 );
t1863 = STRINGTOSYMBOL( U_TX( ADR( t1864 ) ) );
c1688 = CONS( t1863, c1688 );
t1865 = STRINGTOSYMBOL( U_TX( ADR( t1866 ) ) );
c1688 = CONS( t1865, c1688 );
t1867 = STRINGTOSYMBOL( U_TX( ADR( t1868 ) ) );
c1688 = CONS( t1867, c1688 );
t1869 = STRINGTOSYMBOL( U_TX( ADR( t1870 ) ) );
c1688 = CONS( t1869, c1688 );
t1871 = STRINGTOSYMBOL( U_TX( ADR( t1872 ) ) );
c1688 = CONS( t1871, c1688 );
t1873 = STRINGTOSYMBOL( U_TX( ADR( t1874 ) ) );
c1688 = CONS( t1873, c1688 );
t1875 = STRINGTOSYMBOL( U_TX( ADR( t1876 ) ) );
c1688 = CONS( t1875, c1688 );
t1877 = STRINGTOSYMBOL( U_TX( ADR( t1878 ) ) );
c1688 = CONS( t1877, c1688 );
t1879 = STRINGTOSYMBOL( U_TX( ADR( t1880 ) ) );
c1688 = CONS( t1879, c1688 );
t1881 = STRINGTOSYMBOL( U_TX( ADR( t1882 ) ) );
c1688 = CONS( t1881, c1688 );
t1883 = STRINGTOSYMBOL( U_TX( ADR( t1884 ) ) );
c1688 = CONS( t1883, c1688 );
t1885 = STRINGTOSYMBOL( U_TX( ADR( t1886 ) ) );
c1688 = CONS( t1885, c1688 );
t1887 = STRINGTOSYMBOL( U_TX( ADR( t1888 ) ) );
c1688 = CONS( t1887, c1688 );
t1889 = STRINGTOSYMBOL( U_TX( ADR( t1890 ) ) );
c1688 = CONS( t1889, c1688 );
t1891 = STRINGTOSYMBOL( U_TX( ADR( t1892 ) ) );
c1688 = CONS( t1891, c1688 );
t1893 = STRINGTOSYMBOL( U_TX( ADR( t1894 ) ) );
c1688 = CONS( t1893, c1688 );
t1895 = STRINGTOSYMBOL( U_TX( ADR( t1896 ) ) );
c1688 = CONS( t1895, c1688 );
t1897 = STRINGTOSYMBOL( U_TX( ADR( t1898 ) ) );
c1688 = CONS( t1897, c1688 );
t1899 = STRINGTOSYMBOL( U_TX( ADR( t1900 ) ) );
c1688 = CONS( t1899, c1688 );
CONSTANTEXP( ADR( c1688 ) );
c1644 = STRINGTOSYMBOL( U_TX( ADR( t1901 ) ) );
CONSTANTEXP( ADR( c1644 ) );
c1611 = STRINGTOSYMBOL( U_TX( ADR( t1902 ) ) );
CONSTANTEXP( ADR( c1611 ) );
c1590 = EMPTYLIST;
t1903 = STRINGTOSYMBOL( U_TX( ADR( t1904 ) ) );
c1590 = CONS( t1903, c1590 );
t1905 = STRINGTOSYMBOL( U_TX( ADR( t1906 ) ) );
c1590 = CONS( t1905, c1590 );
t1907 = STRINGTOSYMBOL( U_TX( ADR( t1908 ) ) );
c1590 = CONS( t1907, c1590 );
t1909 = STRINGTOSYMBOL( U_TX( ADR( t1910 ) ) );
c1590 = CONS( t1909, c1590 );
CONSTANTEXP( ADR( c1590 ) );
c1537 = STRINGTOSYMBOL( U_TX( ADR( t1911 ) ) );
CONSTANTEXP( ADR( c1537 ) );
c1536 = STRINGTOSYMBOL( U_TX( ADR( t1912 ) ) );
CONSTANTEXP( ADR( c1536 ) );
c1534 = STRINGTOSYMBOL( U_TX( ADR( t1913 ) ) );
CONSTANTEXP( ADR( c1534 ) );
c1463 = STRINGTOSYMBOL( U_TX( ADR( t1914 ) ) );
CONSTANTEXP( ADR( c1463 ) );
c1462 = STRINGTOSYMBOL( U_TX( ADR( t1915 ) ) );
CONSTANTEXP( ADR( c1462 ) );
c1456 = STRINGTOSYMBOL( U_TX( ADR( t1916 ) ) );
CONSTANTEXP( ADR( c1456 ) );
c1454 = STRINGTOSYMBOL( U_TX( ADR( t1918 ) ) );
CONSTANTEXP( ADR( c1454 ) );
c1453 = STRINGTOSYMBOL( U_TX( ADR( t1919 ) ) );
CONSTANTEXP( ADR( c1453 ) );
c1452 = STRINGTOSYMBOL( U_TX( ADR( t1920 ) ) );
CONSTANTEXP( ADR( c1452 ) );
c1451 = STRINGTOSYMBOL( U_TX( ADR( t1921 ) ) );
CONSTANTEXP( ADR( c1451 ) );
c1443 = STRINGTOSYMBOL( U_TX( ADR( t1923 ) ) );
CONSTANTEXP( ADR( c1443 ) );
c1439 = STRINGTOSYMBOL( U_TX( ADR( t1924 ) ) );
CONSTANTEXP( ADR( c1439 ) );
c1398 = STRINGTOSYMBOL( U_TX( ADR( t1926 ) ) );
CONSTANTEXP( ADR( c1398 ) );
c1392 = STRINGTOSYMBOL( U_TX( ADR( t1927 ) ) );
CONSTANTEXP( ADR( c1392 ) );
c1391 = STRINGTOSYMBOL( U_TX( ADR( t1928 ) ) );
CONSTANTEXP( ADR( c1391 ) );
c1389 = STRINGTOSYMBOL( U_TX( ADR( t1929 ) ) );
CONSTANTEXP( ADR( c1389 ) );
c1388 = STRINGTOSYMBOL( U_TX( ADR( t1930 ) ) );
CONSTANTEXP( ADR( c1388 ) );
c1386 = STRINGTOSYMBOL( U_TX( ADR( t1931 ) ) );
CONSTANTEXP( ADR( c1386 ) );
c1382 = STRINGTOSYMBOL( U_TX( ADR( t1932 ) ) );
CONSTANTEXP( ADR( c1382 ) );
c1378 = STRINGTOSYMBOL( U_TX( ADR( t1933 ) ) );
CONSTANTEXP( ADR( c1378 ) );
c1338 = STRINGTOSYMBOL( U_TX( ADR( t1934 ) ) );
CONSTANTEXP( ADR( c1338 ) );
c1337 = STRINGTOSYMBOL( U_TX( ADR( t1935 ) ) );
CONSTANTEXP( ADR( c1337 ) );
c1295 = STRINGTOSYMBOL( U_TX( ADR( t1936 ) ) );
CONSTANTEXP( ADR( c1295 ) );
c1278 = STRINGTOSYMBOL( U_TX( ADR( t1937 ) ) );
CONSTANTEXP( ADR( c1278 ) );
c1247 = STRINGTOSYMBOL( U_TX( ADR( t1939 ) ) );
CONSTANTEXP( ADR( c1247 ) );
c1179 = STRINGTOSYMBOL( U_TX( ADR( t1940 ) ) );
CONSTANTEXP( ADR( c1179 ) );
c1153 = STRINGTOSYMBOL( U_TX( ADR( t1942 ) ) );
CONSTANTEXP( ADR( c1153 ) );
c1152 = STRINGTOSYMBOL( U_TX( ADR( t1943 ) ) );
CONSTANTEXP( ADR( c1152 ) );
c1141 = STRINGTOSYMBOL( U_TX( ADR( t1946 ) ) );
CONSTANTEXP( ADR( c1141 ) );
c1123 = EMPTYLIST;
c1123 = CONS( c1443, c1123 );
c1123 = CONS( c1278, c1123 );
c1123 = CONS( c1439, c1123 );
CONSTANTEXP( ADR( c1123 ) );
c1031 = STRINGTOSYMBOL( U_TX( ADR( t1948 ) ) );
CONSTANTEXP( ADR( c1031 ) );
}
DEFTSCP( extern_input_2dextern_v );
DEFSTRING( t1949, "INPUT-EXTERN", 12 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( extern_parse_2darg );
EXTERNTSCP( extern_parse_2darg_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP extern_input_2dextern( e1002 )
TSCP e1002;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1949 ) ) );
X2 = scrt1_length( e1002 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L1952;
X1 = BOOLEAN( GTE( INT( X2 ), INT( _TSCP( 12 ) ) ) );
goto L1953;
L1952:
X1 = scrt2__3e_3d_2dtwo( X2, _TSCP( 12 ) );
L1953:
if ( FALSE( X1 ) ) goto L1982;
if ( EQ( TSCPTAG( e1002 ), PAIRTAG ) ) goto L1959;
scrt1__24__cdr_2derror( e1002 );
L1959:
X5 = PAIR_CDR( e1002 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L1962;
scrt1__24__car_2derror( X5 );
L1962:
X4 = PAIR_CAR( X5 );
X3 = SYMBOL_VALUE( parse_2dtype_v );
X3 = UNKNOWNCALL( X3, 1 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X4,
PROCEDURE_CLOSURE( X3 ) );
if ( FALSE( X2 ) ) goto L1982;
X3 = scrt1_caddr( e1002 );
if ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) )
) goto L1982;
X3 = scrt1_cdddr( e1002 );
X4 = X3;
L1973:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L1974;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L1978;
scrt1__24__car_2derror( X4 );
L1978:
X5 = PAIR_CAR( X4 );
extern_parse_2darg( X5 );
X4 = PAIR_CDR( X4 );
goto L1973;
L1974:
POPSTACKTRACE( e1002 );
L1982:
POPSTACKTRACE( scrt6_error( c1031,
c1032,
CONS( e1002, EMPTYLIST ) ) );
}
DEFTSCP( extern_parse_2darg_v );
DEFSTRING( t1983, "PARSE-ARG", 9 );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP extern_parse_2darg( e1058 )
TSCP e1058;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1983 ) ) );
X1 = BOOLEAN( EQ( TSCPTAG( e1058 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L2011;
X3 = scrt1_length( e1058 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L1990;
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 8 ) ) ) );
goto L1991;
L1990:
X2 = scrt2__3d_2dtwo( X3, _TSCP( 8 ) );
L1991:
if ( FALSE( X2 ) ) goto L2010;
if ( EQ( TSCPTAG( e1058 ), PAIRTAG ) ) goto L1997;
scrt1__24__car_2derror( e1058 );
L1997:
X5 = PAIR_CAR( e1058 );
X4 = SYMBOL_VALUE( parse_2dtype_v );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
PROCEDURE_CLOSURE( X4 ) );
if ( FALSE( X3 ) ) goto L2010;
X5 = PAIR_CDR( e1058 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2007;
scrt1__24__car_2derror( X5 );
L2007:
X4 = PAIR_CAR( X5 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L2010;
POPSTACKTRACE( TRUEVALUE );
L2010:
X2 = scrt1_length( e1058 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L2013;
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 12 ) ) ) );
goto L2014;
L2013:
X1 = scrt2__3d_2dtwo( X2, _TSCP( 12 ) );
L2014:
if ( FALSE( X1 ) ) goto L2011;
if ( EQ( TSCPTAG( e1058 ), PAIRTAG ) ) goto L2020;
scrt1__24__car_2derror( e1058 );
L2020:
X3 = PAIR_CAR( e1058 );
X2 = scrt1_memq( X3, c1123 );
if ( FALSE( X2 ) ) goto L2011;
X6 = PAIR_CDR( e1058 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2028;
scrt1__24__car_2derror( X6 );
L2028:
X5 = PAIR_CAR( X6 );
X4 = SYMBOL_VALUE( parse_2dtype_v );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
PROCEDURE_CLOSURE( X4 ) );
if ( FALSE( X3 ) ) goto L2011;
X4 = scrt1_caddr( e1058 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L2011;
POPSTACKTRACE( TRUEVALUE );
L2011:
POPSTACKTRACE( scrt6_error( c1141,
c1142,
CONS( e1058, EMPTYLIST ) ) );
}
DEFTSCP( extern_emit_2dexterns_v );
DEFSTRING( t2039, "EMIT-EXTERNS", 12 );
EXTERNTSCPP( scrt5_dto_2dfile_6f7edfd9 );
EXTERNTSCP( scrt5_dto_2dfile_6f7edfd9_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
DEFSTRING( t2043, "extern_l1151 [inside EMIT-EXTERNS]", 34 );
EXTERNTSCPP( scrt6_write );
EXTERNTSCP( scrt6_write_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCPP( extern_emit_2dextern );
EXTERNTSCP( extern_emit_2dextern_v );
TSCP extern_l1151( c2042 )
TSCP c2042;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2043 ) ) );
X1 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2042, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2042, 1 );
X3 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2042, 2 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1152,
CONS( DISPLAY( 2 ), X6 ) );
scrt6_write( X5, EMPTYLIST );
scrt6_newline( EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( c1154, EMPTYLIST );
X5 = scrt1_cons_2a( c1153,
CONS( scrt3_string_2dappend( CONS( DISPLAY( 1 ),
X7 ) ),
X6 ) );
scrt6_write( X5, EMPTYLIST );
scrt6_newline( EMPTYLIST );
X5 = DISPLAY( 0 );
X6 = X5;
L2047:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L2048;
X4 = FALSEVALUE;
goto L2049;
L2048:
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2052;
scrt1__24__car_2derror( X6 );
L2052:
X7 = PAIR_CAR( X6 );
extern_emit_2dextern( X7, c1179 );
X6 = PAIR_CDR( X6 );
goto L2047;
L2049:
DISPLAY( 2 ) = X1;
DISPLAY( 1 ) = X2;
DISPLAY( 0 ) = X3;
POPSTACKTRACE( X4 );
}
DEFSTRING( t2056, "extern_l1180 [inside EMIT-EXTERNS]", 34 );
EXTERNTSCPP( extern_2dexternal_d3fbb33f );
EXTERNTSCP( extern_2dexternal_d3fbb33f_v );
TSCP extern_l1180( c2055 )
TSCP c2055;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2056 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2055, 0 );
X2 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2055, 1 );
X4 = DISPLAY( 0 );
X5 = X4;
L2060:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2061;
X3 = FALSEVALUE;
goto L2062;
L2061:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2065;
scrt1__24__car_2derror( X5 );
L2065:
X6 = PAIR_CAR( X5 );
extern_2dexternal_d3fbb33f( X6, DISPLAY( 2 ) );
X5 = PAIR_CDR( X5 );
goto L2060;
L2062:
DISPLAY( 0 ) = X1;
DISPLAY( 2 ) = X2;
POPSTACKTRACE( X3 );
}
TSCP extern_emit_2dexterns( e1145, e1146, t1147 )
TSCP e1145, e1146, t1147;
{
TSCP X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2039 ) ) );
DISPLAY( 0 ) = e1145;
DISPLAY( 1 ) = t1147;
X1 = SYMBOL_VALUE( uis_v );
X1 = UNKNOWNCALL( X1, 1 );
DISPLAY( 2 ) = VIA( PROCEDURE_CODE( X1 ) )( e1146,
PROCEDURE_CLOSURE( X1 ) );
X2 = CONS( c1150, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( e1146, X2 ) );
X2 = MAKEPROCEDURE( 0,
0,
extern_l1151,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 2 ),
DISPLAY( 1 ),
DISPLAY( 0 ) ) );
scrt5_dto_2dfile_6f7edfd9( X1, X2 );
X2 = CONS( c1154, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( e1146, X2 ) );
X2 = MAKEPROCEDURE( 0,
0,
extern_l1180,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 0 ),
DISPLAY( 2 ) ) );
SDVAL = scrt5_dto_2dfile_6f7edfd9( X1, X2 );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( extern_emit_2dextern_v );
DEFSTRING( t2068, "EMIT-EXTERN", 11 );
DEFSTRING( t2078, "EMIT-CALL [inside EMIT-EXTERN]", 30 );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1_last_2dpair );
EXTERNTSCP( scrt1_last_2dpair_v );
TSCP extern_e1215( )
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2078 ) ) );
X3 = DISPLAY( 0 );
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L2081:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2082;
X2 = X4;
goto L2093;
L2082:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2085;
scrt1__24__car_2derror( X3 );
L2085:
X8 = PAIR_CAR( X3 );
X9 = scrt1_last_2dpair( X8 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2089;
scrt1__24__car_2derror( X9 );
L2089:
X7 = PAIR_CAR( X9 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2092;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L2081;
L2092:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2097;
scrt6_error( c1247, c1248, CONS( X5, EMPTYLIST ) );
L2097:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L2081;
L2093:
X3 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( DISPLAY( 1 ),
CONS( scrt1_append_2dtwo( X2, X3 ),
EMPTYLIST ) ) );
}
DEFSTRING( t2099, "FORMALS [inside EMIT-EXTERN]", 28 );
EXTERNTSCPP( extern_f1214 );
TSCP extern_f1214( a1264 )
TSCP a1264;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2099 ) ) );
L2100:
if ( FALSE( a1264 ) ) goto L2101;
if ( EQ( TSCPTAG( a1264 ), PAIRTAG ) ) goto L2106;
scrt1__24__car_2derror( a1264 );
L2106:
X2 = PAIR_CAR( a1264 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2109;
scrt1__24__car_2derror( X2 );
L2109:
X1 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1278 ) ) ) goto L2103;
a1264 = PAIR_CDR( a1264 );
goto L2100;
L2103:
if ( EQ( TSCPTAG( a1264 ), PAIRTAG ) ) goto L2113;
scrt1__24__car_2derror( a1264 );
L2113:
X3 = PAIR_CAR( a1264 );
X2 = scrt1_last_2dpair( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2116;
scrt1__24__car_2derror( X2 );
L2116:
X1 = PAIR_CAR( X2 );
X3 = PAIR_CDR( a1264 );
X2 = extern_f1214( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2101:
POPSTACKTRACE( EMPTYLIST );
}
EXTERNTSCPP( scrt6_pp );
EXTERNTSCP( scrt6_pp_v );
EXTERNTSCPP( extern_simple_2dtype );
EXTERNTSCP( extern_simple_2dtype_v );
EXTERNTSCPP( extern_args_2dout );
EXTERNTSCP( extern_args_2dout_v );
EXTERNTSCPP( extern_arg_2din );
EXTERNTSCP( extern_arg_2din_v );
EXTERNTSCPP( extern_e1215 );
TSCP extern_emit_2dextern( e1207, d1208 )
TSCP e1207, d1208;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2068 ) ) );
DISPLAY( 0 ) = scrt1_cdddr( e1207 );
if ( EQ( TSCPTAG( e1207 ), PAIRTAG ) ) goto L2071;
scrt1__24__cdr_2derror( e1207 );
L2071:
X2 = PAIR_CDR( e1207 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2074;
scrt1__24__car_2derror( X2 );
L2074:
X1 = PAIR_CAR( X2 );
X3 = scrt1_caddr( e1207 );
X2 = SYMBOL_VALUE( uis_v );
X2 = UNKNOWNCALL( X2, 2 );
DISPLAY( 1 ) = VIA( PROCEDURE_CODE( X2 ) )( X3,
c1414,
PROCEDURE_CLOSURE( X2 ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_caddr( e1207 ), X3 );
X6 = sc_cons( c1337, EMPTYLIST );
X5 = sc_cons( X1, X6 );
X4 = X5;
X3 = CONS( extern_simple_2dtype( X4 ), X3 );
X6 = DISPLAY( 0 );
X7 = EMPTYLIST;
X8 = EMPTYLIST;
L2122:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L2123;
X5 = X7;
goto L2130;
L2123:
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2126;
scrt1__24__car_2derror( X6 );
L2126:
X11 = PAIR_CAR( X6 );
X10 = extern_simple_2dtype( X11 );
X9 = sc_cons( X10, EMPTYLIST );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2129;
X10 = PAIR_CDR( X6 );
X8 = X9;
X7 = X9;
X6 = X10;
goto L2122;
L2129:
X10 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2134;
scrt6_error( c1247, c1248, CONS( X8, EMPTYLIST ) );
L2134:
X8 = SETGEN( PAIR_CDR( X8 ), X9 );
X6 = X10;
goto L2122;
L2130:
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1295,
CONS( scrt1_cons_2a( DISPLAY( 1 ),
CONS( scrt1_append_2dtwo( X5,
X6 ),
EMPTYLIST ) ),
X3 ) );
scrt6_pp( X2, EMPTYLIST );
scrt6_newline( EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = extern_args_2dout( DISPLAY( 0 ) );
if ( FALSE( X5 ) ) goto L2137;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1382 ) ) ) goto L2139;
X7 = scrt1_length( X5 );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2143;
if ( EQ( UNSIGNED( X7 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L2147;
goto L2148;
L2143:
if ( TRUE( scrt2__3d_2dtwo( X7, _TSCP( 4 ) ) ) ) goto L2147;
goto L2148;
L2139:
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_append_2dtwo( X5, X8 ), EMPTYLIST );
X6 = scrt1_cons_2a( c1398, CONS( c1378, X7 ) );
goto L2151;
L2137:
X6 = c1378;
goto L2151;
L2148:
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1398,
CONS( scrt1_append_2dtwo( X5, X8 ),
EMPTYLIST ) );
goto L2151;
L2147:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2153;
scrt1__24__car_2derror( X5 );
L2153:
X6 = PAIR_CAR( X5 );
L2151:
X4 = CONS( X6, X4 );
X7 = DISPLAY( 0 );
X8 = EMPTYLIST;
X9 = EMPTYLIST;
L2157:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2158;
X6 = X8;
goto L2165;
L2158:
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2161;
scrt1__24__car_2derror( X7 );
L2161:
X12 = PAIR_CAR( X7 );
X11 = extern_arg_2din( X12 );
X10 = sc_cons( X11, EMPTYLIST );
if ( NEQ( UNSIGNED( X8 ), UNSIGNED( EMPTYLIST ) ) ) goto L2164;
X11 = PAIR_CDR( X7 );
X9 = X10;
X8 = X10;
X7 = X11;
goto L2157;
L2164:
X11 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2169;
scrt6_error( c1247, c1248, CONS( X9, EMPTYLIST ) );
L2169:
X9 = SETGEN( PAIR_CDR( X9 ), X10 );
X7 = X11;
goto L2157;
L2165:
X9 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1382 ) ) ) goto L2171;
X11 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( FALSEVALUE, X11 );
X10 = scrt1_cons_2a( c1392,
CONS( extern_e1215( ), X11 ) );
goto L2176;
L2171:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1386 ) ) ) goto L2173;
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = scrt1_cons_2a( c1391,
CONS( extern_e1215( ), X11 ) );
goto L2176;
L2173:
X11 = SYMBOL_VALUE( isa_2dpointer_3f_v );
X11 = UNKNOWNCALL( X11, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X11 ) )( X1,
PROCEDURE_CLOSURE( X11 ) ) )
) goto L2175;
X11 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( extern_e1215( ), X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X13 = SYMBOL_VALUE( base_2dtype_v );
X13 = UNKNOWNCALL( X13, 1 );
X10 = scrt1_cons_2a( c1388,
CONS( scrt1_cons_2a( c1389,
CONS( VIA( PROCEDURE_CODE( X13 ) )( X1,
PROCEDURE_CLOSURE( X13 ) ),
X12 ) ),
X11 ) );
goto L2176;
L2175:
X10 = extern_e1215( );
L2176:
X8 = scrt1_cons_2a( c1378, CONS( X10, X9 ) );
X7 = scrt1_cons_2a( X8, CONS( EMPTYLIST, EMPTYLIST ) );
X5 = scrt1_append_2dtwo( X6, X7 );
X3 = CONS( scrt1_cons_2a( c1338,
CONS( scrt1_cons_2a( X5, EMPTYLIST ),
X4 ) ),
X3 );
X6 = scrt1_caddr( e1207 );
X5 = SYMBOL_VALUE( uis_v );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( X6,
PROCEDURE_CLOSURE( X5 ) );
X6 = extern_f1214( DISPLAY( 0 ) );
X7 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( d1208,
CONS( scrt1_cons_2a( X4,
CONS( scrt1_append_2dtwo( X6,
X7 ),
EMPTYLIST ) ),
X3 ) );
scrt6_pp( X2, EMPTYLIST );
SDVAL = scrt6_newline( EMPTYLIST );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( extern_arg_2din_v );
DEFSTRING( t2177, "ARG-IN", 6 );
TSCP extern_arg_2din( a1427 )
TSCP a1427;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2177 ) ) );
if ( EQ( TSCPTAG( a1427 ), PAIRTAG ) ) goto L2182;
scrt1__24__car_2derror( a1427 );
L2182:
X2 = PAIR_CAR( a1427 );
if ( FALSE( scrt1_memq( X2, c1123 ) ) ) goto L2179;
X1 = PAIR_CAR( a1427 );
goto L2180;
L2179:
X1 = FALSEVALUE;
L2180:
if ( FALSE( X1 ) ) goto L2186;
if ( EQ( TSCPTAG( a1427 ), PAIRTAG ) ) goto L2189;
scrt1__24__cdr_2derror( a1427 );
L2189:
X3 = PAIR_CDR( a1427 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2192;
scrt1__24__car_2derror( X3 );
L2192:
X2 = PAIR_CAR( X3 );
goto L2187;
L2186:
if ( EQ( TSCPTAG( a1427 ), PAIRTAG ) ) goto L2195;
scrt1__24__car_2derror( a1427 );
L2195:
X2 = PAIR_CAR( a1427 );
L2187:
if ( FALSE( X1 ) ) goto L2198;
X3 = scrt1_caddr( a1427 );
goto L2199;
L2198:
X4 = PAIR_CDR( a1427 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2202;
scrt1__24__car_2derror( X4 );
L2202:
X3 = PAIR_CAR( X4 );
L2199:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1439 ) ) ) goto L2205;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X3,
CONS( scrt1_cons_2a( c1463,
CONS( X3,
X5 ) ),
X4 ) ) );
L2205:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1443 ) ) ) goto L2207;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X3,
CONS( scrt1_cons_2a( c1462,
CONS( X3,
X5 ) ),
X4 ) ) );
L2207:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1278 ) ) ) goto L2209;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1386 ) ) ) goto L2211;
X6 = _TSCP( 16 );
goto L2212;
L2211:
X7 = SYMBOL_VALUE( size_2dof_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X2,
PROCEDURE_CLOSURE( X7 ) );
L2212:
POPSTACKTRACE( scrt1_cons_2a( X3,
CONS( scrt1_cons_2a( c1456,
CONS( X6,
X5 ) ),
X4 ) ) );
L2209:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1386 ) ) ) goto L2213;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( X3, X6 );
X6 = CONS( c1455, X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1453,
CONS( scrt1_cons_2a( c1389,
CONS( c1454, X7 ) ),
X6 ) ),
X5 );
X5 = CONS( X3, X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X3,
CONS( scrt1_cons_2a( c1451,
CONS( scrt1_cons_2a( c1452,
CONS( X3,
X6 ) ),
X5 ) ),
X4 ) ) );
L2213:
X4 = SYMBOL_VALUE( isa_2dpointer_3f_v );
X4 = UNKNOWNCALL( X4, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X4 ) )( X2,
PROCEDURE_CLOSURE( X4 ) ) )
) goto L2215;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X8 = SYMBOL_VALUE( base_2dtype_v );
X8 = UNKNOWNCALL( X8, 1 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X2,
PROCEDURE_CLOSURE( X8 ) );
X6 = SYMBOL_VALUE( uis_v );
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( c1450,
X7,
PROCEDURE_CLOSURE( X6 ) );
X6 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X3,
CONS( scrt1_cons_2a( X5,
CONS( X3,
X6 ) ),
X4 ) ) );
L2215:
X4 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( X3, CONS( X3, X4 ) ) );
}
DEFTSCP( extern_args_2dout_v );
DEFSTRING( t2217, "ARGS-OUT", 8 );
EXTERNTSCPP( scrt2_getprop );
EXTERNTSCP( scrt2_getprop_v );
TSCP extern_args_2dout( a1498 )
TSCP a1498;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2217 ) ) );
L2218:
if ( FALSE( a1498 ) ) goto L2220;
if ( EQ( TSCPTAG( a1498 ), PAIRTAG ) ) goto L2223;
scrt1__24__car_2derror( a1498 );
L2223:
X2 = PAIR_CAR( a1498 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2229;
scrt1__24__car_2derror( X2 );
L2229:
X6 = PAIR_CAR( X2 );
if ( FALSE( scrt1_memq( X6, c1123 ) ) ) goto L2226;
X5 = PAIR_CAR( X2 );
goto L2227;
L2226:
X5 = FALSEVALUE;
L2227:
if ( FALSE( X5 ) ) goto L2233;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2236;
scrt1__24__cdr_2derror( X2 );
L2236:
X6 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2239;
scrt1__24__car_2derror( X6 );
L2239:
X4 = PAIR_CAR( X6 );
goto L2234;
L2233:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2242;
scrt1__24__car_2derror( X2 );
L2242:
X4 = PAIR_CAR( X2 );
L2234:
if ( FALSE( X5 ) ) goto L2245;
X3 = scrt1_caddr( X2 );
goto L2246;
L2245:
X6 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2249;
scrt1__24__car_2derror( X6 );
L2249:
X3 = PAIR_CAR( X6 );
L2246:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1439 ) ) ) goto L2252;
X1 = FALSEVALUE;
goto L2274;
L2252:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1443 ) ) ) goto L2254;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X1 = scrt1_cons_2a( c1537, CONS( X3, X6 ) );
goto L2274;
L2254:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1278 ) ) ) goto L2256;
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1386 ) ) ) goto L2258;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( _TSCP( 0 ), X7 );
X1 = scrt1_cons_2a( c1391,
CONS( scrt1_cons_2a( c1536,
CONS( X3, X7 ) ),
X6 ) );
goto L2274;
L2258:
X6 = SYMBOL_VALUE( isa_2dpointer_3f_v );
X6 = UNKNOWNCALL( X6, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X6 ) )( X4,
PROCEDURE_CLOSURE( X6 ) ) )
) goto L2260;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( _TSCP( 0 ), X7 );
X6 = CONS( scrt1_cons_2a( c1536, CONS( X3, X7 ) ),
X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = SYMBOL_VALUE( base_2dtype_v );
X8 = UNKNOWNCALL( X8, 1 );
X1 = scrt1_cons_2a( c1388,
CONS( scrt1_cons_2a( c1389,
CONS( VIA( PROCEDURE_CODE( X8 ) )( X4,
PROCEDURE_CLOSURE( X8 ) ),
X7 ) ),
X6 ) );
goto L2274;
L2260:
X7 = SYMBOL_VALUE( isa_2dunion_3f_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X4,
PROCEDURE_CLOSURE( X7 ) );
if ( TRUE( X6 ) ) goto L2266;
X8 = SYMBOL_VALUE( isa_2dstruct_3f_v );
X8 = UNKNOWNCALL( X8, 1 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X4,
PROCEDURE_CLOSURE( X8 ) );
if ( TRUE( X7 ) ) goto L2266;
X8 = SYMBOL_VALUE( isa_2darray_3f_v );
X8 = UNKNOWNCALL( X8, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X8 ) )( X4,
PROCEDURE_CLOSURE( X8 ) ) )
) goto L2266;
X10 = SYMBOL_VALUE( base_2dtype_v );
X10 = UNKNOWNCALL( X10, 1 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( X4,
PROCEDURE_CLOSURE( X10 ) );
X8 = scrt2_getprop( X9, c1534 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( _TSCP( 0 ), X9 );
X1 = scrt1_cons_2a( X8, CONS( X3, X9 ) );
goto L2274;
L2256:
X1 = FALSEVALUE;
goto L2274;
L2266:
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( X3, X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = SYMBOL_VALUE( pointed_2dto_2dby_v );
X7 = UNKNOWNCALL( X7, 1 );
X1 = scrt1_cons_2a( c1388,
CONS( scrt1_cons_2a( c1389,
CONS( VIA( PROCEDURE_CODE( X7 ) )( X4,
PROCEDURE_CLOSURE( X7 ) ),
X6 ) ),
X5 ) );
L2274:
if ( FALSE( X1 ) ) goto L2276;
X3 = PAIR_CDR( a1498 );
X2 = extern_args_2dout( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2276:
a1498 = PAIR_CDR( a1498 );
goto L2218;
L2220:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( extern_simple_2dtype_v );
DEFSTRING( t2280, "SIMPLE-TYPE", 11 );
TSCP extern_simple_2dtype( t1585 )
TSCP t1585;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2280 ) ) );
if ( EQ( TSCPTAG( t1585 ), PAIRTAG ) ) goto L2285;
scrt1__24__car_2derror( t1585 );
L2285:
X1 = PAIR_CAR( t1585 );
if ( TRUE( scrt1_memq( X1, c1590 ) ) ) goto L2282;
X1 = PAIR_CAR( t1585 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( c1382 ) ) ) goto L2287;
X2 = PAIR_CAR( t1585 );
X1 = SYMBOL_VALUE( isa_2dpointer_3f_v );
X1 = UNKNOWNCALL( X1, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2290;
X2 = PAIR_CAR( t1585 );
X1 = SYMBOL_VALUE( isa_2dprocp_3f_v );
X1 = UNKNOWNCALL( X1, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2293;
X2 = PAIR_CAR( t1585 );
X1 = SYMBOL_VALUE( base_2dtype_v );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L2293:
POPSTACKTRACE( c1611 );
L2290:
POPSTACKTRACE( c1611 );
L2287:
POPSTACKTRACE( c1382 );
L2282:
POPSTACKTRACE( c1611 );
}
DEFTSCP( extern_emit_2dstubs_v );
DEFSTRING( t2297, "EMIT-STUBS", 10 );
DEFSTRING( t2300, "extern_l1616 [inside EMIT-STUBS]", 32 );
EXTERNTSCPP( extern_emit_2dstub );
EXTERNTSCP( extern_emit_2dstub_v );
TSCP extern_l1616( c2299 )
TSCP c2299;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2300 ) ) );
X1 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2299, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2299, 1 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = SYMBOL_VALUE( uis_v );
X6 = UNKNOWNCALL( X6, 1 );
X4 = scrt1_cons_2a( c1152,
CONS( VIA( PROCEDURE_CODE( X6 ) )( DISPLAY( 1 ),
PROCEDURE_CLOSURE( X6 ) ),
X5 ) );
scrt6_write( X4, EMPTYLIST );
scrt6_newline( EMPTYLIST );
X4 = DISPLAY( 0 );
X5 = X4;
L2304:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2305;
X3 = FALSEVALUE;
goto L2306;
L2305:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2309;
scrt1__24__car_2derror( X5 );
L2309:
X6 = PAIR_CAR( X5 );
extern_emit_2dstub( X6 );
X5 = PAIR_CDR( X5 );
goto L2304;
L2306:
DISPLAY( 1 ) = X1;
DISPLAY( 0 ) = X2;
POPSTACKTRACE( X3 );
}
TSCP extern_emit_2dstubs( e1614, s1615 )
TSCP e1614, s1615;
{
TSCP X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2297 ) ) );
DISPLAY( 0 ) = e1614;
DISPLAY( 1 ) = s1615;
X2 = CONS( c1150, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( DISPLAY( 1 ), X2 ) );
X2 = MAKEPROCEDURE( 0,
0,
extern_l1616,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 1 ),
DISPLAY( 0 ) ) );
SDVAL = scrt5_dto_2dfile_6f7edfd9( X1, X2 );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( extern_2dexternal_d3fbb33f_v );
DEFSTRING( t2312, "EMIT-DEFINE-EXTERNAL", 20 );
DEFSTRING( t2315, "LOOP [inside EMIT-DEFINE-EXTERNAL]", 34 );
EXTERNTSCPP( extern_l1646 );
TSCP extern_l1646( a1648, f1649 )
TSCP a1648, f1649;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2315 ) ) );
L2316:
if ( EQ( UNSIGNED( a1648 ), UNSIGNED( EMPTYLIST ) ) ) goto L2317;
if ( EQ( TSCPTAG( a1648 ), PAIRTAG ) ) goto L2322;
scrt1__24__car_2derror( a1648 );
L2322:
X2 = PAIR_CAR( a1648 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2325;
scrt1__24__car_2derror( X2 );
L2325:
X1 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1278 ) ) ) goto L2319;
X1 = PAIR_CDR( a1648 );
if ( EQ( TSCPTAG( f1649 ), PAIRTAG ) ) goto L2329;
scrt1__24__cdr_2derror( f1649 );
L2329:
f1649 = PAIR_CDR( f1649 );
a1648 = X1;
goto L2316;
L2319:
if ( EQ( TSCPTAG( f1649 ), PAIRTAG ) ) goto L2332;
scrt1__24__car_2derror( f1649 );
L2332:
X1 = PAIR_CAR( f1649 );
if ( EQ( TSCPTAG( a1648 ), PAIRTAG ) ) goto L2335;
scrt1__24__cdr_2derror( a1648 );
L2335:
X3 = PAIR_CDR( a1648 );
X4 = PAIR_CDR( f1649 );
X2 = extern_l1646( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2317:
POPSTACKTRACE( EMPTYLIST );
}
TSCP extern_2dexternal_d3fbb33f( e1640, m1641 )
TSCP e1640, m1641;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2312 ) ) );
X2 = scrt1_cdddr( e1640 );
X1 = extern_l1646( X2, c1688 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( m1641, X3 );
X6 = scrt1_caddr( e1640 );
X5 = SYMBOL_VALUE( uis_v );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( X6,
PROCEDURE_CLOSURE( X5 ) );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1644,
CONS( scrt1_cons_2a( X4,
CONS( scrt1_append_2dtwo( X1,
X6 ),
EMPTYLIST ) ),
X3 ) );
scrt6_pp( X2, EMPTYLIST );
POPSTACKTRACE( scrt6_newline( EMPTYLIST ) );
}
DEFTSCP( extern_emit_2dstub_v );
DEFSTRING( t2339, "EMIT-STUB", 9 );
DEFSTRING( t2352, "LOOP [inside EMIT-STUB]", 23 );
EXTERNTSCPP( extern_l1746 );
TSCP extern_l1746( a1748, f1749 )
TSCP a1748, f1749;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2352 ) ) );
if ( EQ( UNSIGNED( a1748 ), UNSIGNED( EMPTYLIST ) ) ) goto L2354;
if ( EQ( TSCPTAG( f1749 ), PAIRTAG ) ) goto L2357;
scrt1__24__car_2derror( f1749 );
L2357:
X1 = PAIR_CAR( f1749 );
if ( EQ( TSCPTAG( a1748 ), PAIRTAG ) ) goto L2360;
scrt1__24__cdr_2derror( a1748 );
L2360:
X3 = PAIR_CDR( a1748 );
X4 = PAIR_CDR( f1749 );
X2 = extern_l1746( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2354:
POPSTACKTRACE( EMPTYLIST );
}
TSCP extern_emit_2dstub( e1690 )
TSCP e1690;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2339 ) ) );
X3 = scrt1_caddr( e1690 );
X2 = SYMBOL_VALUE( uis_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
c1777,
PROCEDURE_CLOSURE( X2 ) );
X4 = scrt1_caddr( e1690 );
X3 = SYMBOL_VALUE( uis_v );
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X4,
c1414,
PROCEDURE_CLOSURE( X3 ) );
if ( EQ( TSCPTAG( e1690 ), PAIRTAG ) ) goto L2344;
scrt1__24__cdr_2derror( e1690 );
L2344:
X4 = PAIR_CDR( e1690 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2347;
scrt1__24__car_2derror( X4 );
L2347:
X3 = PAIR_CAR( X4 );
X4 = scrt1_cdddr( e1690 );
X5 = extern_l1746( X4, c1688 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_caddr( e1690 ), X7 );
X10 = sc_cons( c1337, EMPTYLIST );
X9 = sc_cons( X3, X10 );
X8 = X9;
X7 = CONS( extern_simple_2dtype( X8 ), X7 );
X10 = X4;
X11 = EMPTYLIST;
X12 = EMPTYLIST;
L2367:
if ( NEQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L2368;
X9 = X11;
goto L2375;
L2368:
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2371;
scrt1__24__car_2derror( X10 );
L2371:
X15 = PAIR_CAR( X10 );
X14 = extern_simple_2dtype( X15 );
X13 = sc_cons( X14, EMPTYLIST );
if ( NEQ( UNSIGNED( X11 ), UNSIGNED( EMPTYLIST ) ) ) goto L2374;
X14 = PAIR_CDR( X10 );
X12 = X13;
X11 = X13;
X10 = X14;
goto L2367;
L2374:
X14 = PAIR_CDR( X10 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2379;
scrt6_error( c1247,
c1248, CONS( X12, EMPTYLIST ) );
L2379:
X12 = SETGEN( PAIR_CDR( X12 ), X13 );
X10 = X14;
goto L2367;
L2375:
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1295,
CONS( scrt1_cons_2a( X1,
CONS( scrt1_append_2dtwo( X9,
X10 ),
EMPTYLIST ) ),
X7 ) );
scrt6_pp( X6, EMPTYLIST );
scrt6_newline( EMPTYLIST );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1382 ) ) ) goto L2381;
X8 = c1744;
goto L2382;
L2381:
X8 = EMPTYLIST;
L2382:
X9 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_append_2dtwo( X8, X9 ), EMPTYLIST );
X9 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( X1,
CONS( scrt1_append_2dtwo( X5, X9 ),
EMPTYLIST ) ),
X7 );
X9 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1179,
CONS( scrt1_cons_2a( X2,
CONS( scrt1_append_2dtwo( X5,
X9 ),
EMPTYLIST ) ),
X7 ) );
scrt6_pp( X6, EMPTYLIST );
POPSTACKTRACE( scrt6_newline( EMPTYLIST ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt5__init();
scrt6__init();
scrt2__init();
scrt1__init();
MAXDISPLAY( 3 );
}
void extern__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(extern SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1949 ) ),
ADR( extern_input_2dextern_v ),
MAKEPROCEDURE( 1,
0,
extern_input_2dextern, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1983 ) ),
ADR( extern_parse_2darg_v ),
MAKEPROCEDURE( 1,
0,
extern_parse_2darg, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2039 ) ),
ADR( extern_emit_2dexterns_v ),
MAKEPROCEDURE( 3,
0,
extern_emit_2dexterns, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2068 ) ),
ADR( extern_emit_2dextern_v ),
MAKEPROCEDURE( 2,
0,
extern_emit_2dextern, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2177 ) ),
ADR( extern_arg_2din_v ),
MAKEPROCEDURE( 1,
0,
extern_arg_2din, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2217 ) ),
ADR( extern_args_2dout_v ),
MAKEPROCEDURE( 1,
0,
extern_args_2dout, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2280 ) ),
ADR( extern_simple_2dtype_v ),
MAKEPROCEDURE( 1,
0,
extern_simple_2dtype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2297 ) ),
ADR( extern_emit_2dstubs_v ),
MAKEPROCEDURE( 2,
0,
extern_emit_2dstubs, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2312 ) ),
ADR( extern_2dexternal_d3fbb33f_v ),
MAKEPROCEDURE( 2,
0,
extern_2dexternal_d3fbb33f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2339 ) ),
ADR( extern_emit_2dstub_v ),
MAKEPROCEDURE( 1,
0,
extern_emit_2dstub, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.