(unparse-host
(lambda (x)
(logical-host-name (%pathname-host x))))
(unparse-directory #'unparse-logical-directory)
(unparse-file #'unparse-logical-file)
(unparse-enough #'unparse-enough-namestring)
(unparse-host
(lambda (x)
(logical-host-name (%pathname-host x))))
(unparse-directory #'unparse-logical-directory)
(unparse-file #'unparse-logical-file)
(unparse-enough #'unparse-enough-namestring)