1429 |
object filename, strm, x; |
object filename, strm, x; |
1430 |
vs_mark; |
vs_mark; |
1431 |
|
|
1432 |
|
if (user_match(s,strlen(s))) |
1433 |
|
return; |
1434 |
filename = make_simple_string(s); |
filename = make_simple_string(s); |
1435 |
vs_push(filename); |
vs_push(filename); |
1436 |
strm = open_stream(filename, smm_input, Cnil, sKerror); |
strm = open_stream(filename, smm_input, Cnil, sKerror); |
1759 |
pathname = merge_pathnames(pathname, defaults, sKnewest); |
pathname = merge_pathnames(pathname, defaults, sKnewest); |
1760 |
pntype = pathname->pn.pn_type; |
pntype = pathname->pn.pn_type; |
1761 |
filename = coerce_to_namestring(pathname); |
filename = coerce_to_namestring(pathname); |
1762 |
|
if (user_match(filename->st.st_self,filename->st.st_fillp)) |
1763 |
|
@(return Cnil) |
1764 |
old_bds_top=bds_top; |
old_bds_top=bds_top; |
1765 |
if (pntype == Cnil || pntype == sKwild || |
if (pntype == Cnil || pntype == sKwild || |
1766 |
(type_of(pntype) == t_string && |
(type_of(pntype) == t_string && |