| author | Mike Thomas <mike.thomas@paradigmgeo.com> | 2005年01月14日 05:45:04 +0000 |
|---|---|---|
| committer | Mike Thomas <mike.thomas@paradigmgeo.com> | 2005年01月14日 05:45:04 +0000 |
| commit | 42675f3202fac9bd6e518a29b72206facd0a8e5d (patch) | |
| tree | e96fe5f127caad81ec9b133f9cdf720895f86c5f | |
| parent | 91169b8489d632394892418306874d9529a1dc32 (diff) | |
| download | gcl-unlabeled-1.5.16.tar.gz | |
| -rw-r--r-- | gcl/o/mingfile.c | 2 |
diff --git a/gcl/o/mingfile.c b/gcl/o/mingfile.c index ba7f8c857..2d1f698ef 100644 --- a/gcl/o/mingfile.c +++ b/gcl/o/mingfile.c @@ -10,7 +10,7 @@ void Ldirectory ( void ) object path; check_arg(1); check_type_or_pathname_string_symbol_stream(&vs_base[0]); - path = vs_base[0] = truename(coerce_to_pathname(vs_base[0])); + path = vs_base[0] = coerce_to_pathname(vs_base[0]); if (vs_base[0]->pn.pn_name==Cnil && vs_base[0]->pn.pn_type==Cnil) { coerce_to_filename(vs_base[0], filename); |