306 |
device = default_device(path->pn.pn_host); |
device = default_device(path->pn.pn_host); |
307 |
else |
else |
308 |
device = path->pn.pn_device; |
device = path->pn.pn_device; |
309 |
|
|
310 |
|
if (defaults->pn.pn_directory==Cnil || |
311 |
|
(type_of(path->pn.pn_directory)==t_cons |
312 |
|
&& path->pn.pn_directory->c.c_car==sKroot)) |
313 |
|
directory=path->pn.pn_directory; |
314 |
|
else { |
315 |
|
object t,t1; |
316 |
|
|
317 |
|
directory=defaults->pn.pn_directory; |
318 |
|
if (type_of(directory)==t_cons) { |
319 |
|
for (t1=directory,t=t1->c.c_cdr;t!=Cnil;t1=t,t=t->c.c_cdr); |
320 |
|
t1->c.c_cdr=path->pn.pn_directory; |
321 |
|
} |
322 |
|
} |
323 |
|
/* |
324 |
if (path->pn.pn_directory == Cnil) |
if (path->pn.pn_directory == Cnil) |
325 |
directory = defaults->pn.pn_directory; |
directory = defaults->pn.pn_directory; |
326 |
else |
else |
327 |
directory = path->pn.pn_directory; |
directory = path->pn.pn_directory; |
328 |
|
*/ |
329 |
if (path->pn.pn_name == Cnil) |
if (path->pn.pn_name == Cnil) |
330 |
name = defaults->pn.pn_name; |
name = defaults->pn.pn_name; |
331 |
else |
else |