;;; -*- Mode: LISP; Package: FILE-SYSTEM; Base: 10; Syntax: Zetalisp -*-

(fs:set-logical-pathname-host
  "penman-loom"
  :physical-host "x34"
  :translations '(("penman-loom" "penman.penman.loom;")
		  ("penman-loom;patch" "penman.penman.loom.patch;")
		  ))