/[gcl]/gcl/o/pathname.d
ViewVC logotype

Diff of /gcl/o/pathname.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.12.6.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 467  L: Line 467  L:
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]);
# Line 589  from ~S to ~S.", Line 588  from ~S to ~S.",
588          @(return x)          @(return x)
589  @)  @)
590    
591  void  LFD(Lpathnamep)(void)
 Lpathnamep(void)  
592  {  {
593          check_arg(1);          check_arg(1);
594    
# Line 600  Lpathnamep(void) Line 598  Lpathnamep(void)
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    
# Line 610  Lpathname_host(void) Line 607  Lpathname_host(void)
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    
# Line 620  Lpathname_device(void) Line 616  Lpathname_device(void)
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    
# Line 630  Lpathname_directory(void) Line 625  Lpathname_directory(void)
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    
# Line 640  Lpathname_name(void) Line 634  Lpathname_name(void)
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    
# Line 650  Lpathname_type(void) Line 643  Lpathname_type(void)
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    
# Line 660  Lpathname_version(void) Line 652  Lpathname_version(void)
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    
# Line 669  Lnamestring(void) Line 660  Lnamestring(void)
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    
# Line 684  Lfile_namestring(void) Line 674  Lfile_namestring(void)
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    
# Line 698  Ldirectory_namestring(void) Line 687  Ldirectory_namestring(void)
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    

Legend:
Removed from v.1.12.6.1  
changed lines
  Added in v.1.12.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26