220 |
|
|
221 |
x = find_package(n); |
x = find_package(n); |
222 |
if (x == Cnil) { |
if (x == Cnil) { |
223 |
|
#ifdef ANSI_COMMON_LISP |
224 |
FEpackage_error(n,"No such package"); |
FEpackage_error(n,"No such package"); |
225 |
return Cnil; |
return Cnil; |
226 |
/* x = make_package(n, ns, ul,isize,esize); */ |
#else |
227 |
/* goto L; */ |
x = make_package(n, ns, ul,isize,esize); |
228 |
|
goto L; |
229 |
|
#endif |
230 |
} |
} |
231 |
if (isize) rehash_pack(&(x->p.p_internal), |
if (isize) rehash_pack(&(x->p.p_internal), |
232 |
&x->p.p_internal_size,isize); |
&x->p.p_internal_size,isize); |
246 |
} |
} |
247 |
for (; !endp(ul); ul = ul->c.c_cdr) |
for (; !endp(ul); ul = ul->c.c_cdr) |
248 |
use_package(ul->c.c_car, x); |
use_package(ul->c.c_car, x); |
249 |
/* L: */ |
#ifndef ANSI_COMMON_LISP |
250 |
|
L: |
251 |
|
#endif |
252 |
sLApackageA->s.s_dbind = x; |
sLApackageA->s.s_dbind = x; |
253 |
vs_reset; |
vs_reset; |
254 |
return(x); |
return(x); |