(fs:set-logical-pathname-host "TIDIAG"
  :physical-host "DJ"
  :translations '(("*;" "<diag.ti.*>")))