74 |
|
|
75 |
object x; |
object x; |
76 |
struct string st; |
struct string st; |
77 |
st.t=t_string; |
set_type_of(&st,t_string); |
78 |
st.st_self="COMPILER"; |
st.st_self="COMPILER"; |
79 |
st.st_dim=st.st_fillp=strlen(st.st_self); |
st.st_dim=st.st_fillp=strlen(st.st_self); |
80 |
if ((x=find_package((object)&st))==Cnil) |
if ((x=find_package((object)&st))==Cnil) |
88 |
|
|
89 |
} |
} |
90 |
|
|
91 |
st.t=t_string; |
set_type_of(&st,t_string); |
92 |
st.st_self=ff->st.st_self; |
st.st_self=ff->st.st_self; |
93 |
st.st_dim=st.st_fillp=ff->st.st_dim; |
st.st_dim=st.st_fillp=ff->st.st_dim; |
94 |
x=ifuncall1(inf,(object)&st); |
x=ifuncall1(inf,(object)&st); |
95 |
if (x->d.t!=t_string) |
if (type_of(x)!=t_string) |
96 |
sfasl_error("INIT-NAME error\n"); |
sfasl_error("INIT-NAME error\n"); |
97 |
assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0); |
assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0); |
98 |
|
|
99 |
if (!(v=NSLookupSymbolInModule(module, ib))) { |
if (!(v=NSLookupSymbolInModule(module, ib))) { |
100 |
x=ifuncall2(inf,(object)&st,Ct); |
x=ifuncall2(inf,(object)&st,Ct); |
101 |
if (x->d.t!=t_string) |
if (type_of(x)!=t_string) |
102 |
sfasl_error("INIT-NAME error\n"); |
sfasl_error("INIT-NAME error\n"); |
103 |
assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0); |
assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0); |
104 |
if (!(v=NSLookupSymbolInModule(module, ib))) |
if (!(v=NSLookupSymbolInModule(module, ib))) |