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

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