PATHNAMEのホスト名を返します。 使用例: (setq a "//SAMURAI/Applications/xyzzy/xyzzy.exe") =>"//SAMURAI/Applications/xyzzy/xyzzy.exe" (pathname-host a) =>"SAMURAI" (setq a (merge-pathnames "xyzzy.exe" (si:system-root))) =>"C:/Applications/xyzzy/xyzzy.exe" (pathname-host a) =>nil