;;; -*- Mode: LISP; Package: USER; Base: 10; Syntax: ZETALISP-*-

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