10 |
object path; |
object path; |
11 |
check_arg(1); |
check_arg(1); |
12 |
check_type_or_pathname_string_symbol_stream(&vs_base[0]); |
check_type_or_pathname_string_symbol_stream(&vs_base[0]); |
13 |
path = vs_base[0] = truename(coerce_to_pathname(vs_base[0])); |
path = vs_base[0] = coerce_to_pathname(vs_base[0]); |
14 |
|
|
15 |
if (vs_base[0]->pn.pn_name==Cnil && vs_base[0]->pn.pn_type==Cnil) { |
if (vs_base[0]->pn.pn_name==Cnil && vs_base[0]->pn.pn_type==Cnil) { |
16 |
coerce_to_filename(vs_base[0], filename); |
coerce_to_filename(vs_base[0], filename); |