;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-

(fs:set-logical-pathname-host "en" 
    :physical-host (send (send (send sys:fdefine-file-pathname :translated-pathname)
			       :host) ; the host this file is on.
			 :name)
    :translations  '(("en" "public.en;")))