467 |
} |
} |
468 |
} |
} |
469 |
|
|
470 |
void |
LFD(Lpathname)(void) |
|
Lpathname(void) |
|
471 |
{ |
{ |
472 |
check_arg(1); |
check_arg(1); |
473 |
check_type_or_pathname_string_symbol_stream(&vs_base[0]); |
check_type_or_pathname_string_symbol_stream(&vs_base[0]); |
588 |
@(return x) |
@(return x) |
589 |
@) |
@) |
590 |
|
|
591 |
void |
LFD(Lpathnamep)(void) |
|
Lpathnamep(void) |
|
592 |
{ |
{ |
593 |
check_arg(1); |
check_arg(1); |
594 |
|
|
598 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
599 |
} |
} |
600 |
|
|
601 |
void |
LFD(Lpathname_host)(void) |
|
Lpathname_host(void) |
|
602 |
{ |
{ |
603 |
check_arg(1); |
check_arg(1); |
604 |
|
|
607 |
vs_base[0] = vs_base[0]->pn.pn_host; |
vs_base[0] = vs_base[0]->pn.pn_host; |
608 |
} |
} |
609 |
|
|
610 |
void |
LFD(Lpathname_device)(void) |
|
Lpathname_device(void) |
|
611 |
{ |
{ |
612 |
check_arg(1); |
check_arg(1); |
613 |
|
|
616 |
vs_base[0] = vs_base[0]->pn.pn_device; |
vs_base[0] = vs_base[0]->pn.pn_device; |
617 |
} |
} |
618 |
|
|
619 |
void |
LFD(Lpathname_directory)(void) |
|
Lpathname_directory(void) |
|
620 |
{ |
{ |
621 |
check_arg(1); |
check_arg(1); |
622 |
|
|
625 |
vs_base[0] = vs_base[0]->pn.pn_directory; |
vs_base[0] = vs_base[0]->pn.pn_directory; |
626 |
} |
} |
627 |
|
|
628 |
void |
LFD(Lpathname_name)(void) |
|
Lpathname_name(void) |
|
629 |
{ |
{ |
630 |
check_arg(1); |
check_arg(1); |
631 |
|
|
634 |
vs_base[0] = vs_base[0]->pn.pn_name; |
vs_base[0] = vs_base[0]->pn.pn_name; |
635 |
} |
} |
636 |
|
|
637 |
void |
LFD(Lpathname_type)(void) |
|
Lpathname_type(void) |
|
638 |
{ |
{ |
639 |
check_arg(1); |
check_arg(1); |
640 |
|
|
643 |
vs_base[0] = vs_base[0]->pn.pn_type; |
vs_base[0] = vs_base[0]->pn.pn_type; |
644 |
} |
} |
645 |
|
|
646 |
void |
LFD(Lpathname_version)(void) |
|
Lpathname_version(void) |
|
647 |
{ |
{ |
648 |
check_arg(1); |
check_arg(1); |
649 |
|
|
652 |
vs_base[0] = vs_base[0]->pn.pn_version; |
vs_base[0] = vs_base[0]->pn.pn_version; |
653 |
} |
} |
654 |
|
|
655 |
void |
LFD(Lnamestring)(void) |
|
Lnamestring(void) |
|
656 |
{ |
{ |
657 |
check_arg(1); |
check_arg(1); |
658 |
|
|
660 |
vs_base[0] = coerce_to_namestring(vs_base[0]); |
vs_base[0] = coerce_to_namestring(vs_base[0]); |
661 |
} |
} |
662 |
|
|
663 |
void |
LFD(Lfile_namestring)(void) |
|
Lfile_namestring(void) |
|
664 |
{ |
{ |
665 |
check_arg(1); |
check_arg(1); |
666 |
|
|
674 |
vs_base[0] = namestring(vs_base[0]); |
vs_base[0] = namestring(vs_base[0]); |
675 |
} |
} |
676 |
|
|
677 |
void |
LFD(Ldirectory_namestring)(void) |
|
Ldirectory_namestring(void) |
|
678 |
{ |
{ |
679 |
check_arg(1); |
check_arg(1); |
680 |
|
|
687 |
vs_base[0] = namestring(vs_base[0]); |
vs_base[0] = namestring(vs_base[0]); |
688 |
} |
} |
689 |
|
|
690 |
void |
LFD(Lhost_namestring)(void) |
|
Lhost_namestring(void) |
|
691 |
{ |
{ |
692 |
check_arg(1); |
check_arg(1); |
693 |
|
|