;;; -*- Mode: LISP; Package: FILE-SYSTEM; Base: 10; Syntax: Zetalisp -*-
(fs:set-logical-pathname-host
  "penman-i"
  :physical-host
  "x34"
  :translations
  '(("penman-i" "penman.penman-i;")
    ("penman-i;patch" "penman.penman-i.patch;")))