737 |
@) |
@) |
738 |
|
|
739 |
void |
void |
740 |
init_pathname(void) |
gcl_init_pathname(void) |
741 |
{ |
{ |
742 |
Vdefault_pathname_defaults = |
Vdefault_pathname_defaults = |
743 |
make_special("*DEFAULT-PATHNAME-DEFAULTS*", |
make_special("*DEFAULT-PATHNAME-DEFAULTS*", |
765 |
} |
} |
766 |
|
|
767 |
void |
void |
768 |
init_pathname_function() |
gcl_init_pathname_function() |
769 |
{ |
{ |
770 |
make_function("PATHNAME", Lpathname); |
make_function("PATHNAME", Lpathname); |
771 |
make_function("PARSE-NAMESTRING", Lparse_namestring); |
make_function("PARSE-NAMESTRING", Lparse_namestring); |