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

(fs:set-logical-pathname-host "FALCON"
			      :physical-host
			      "brahms"
			      :translations '(("KWARE;*.botex" "JB:KDOC.falcon;*.botex")
					      ("KWARE;hardware*.*" "JB:KDOC.FALCON;hardware*.*")
					      ("KWARE;*.dvi" "JB:KDOC.FALCON;*.dvi")
					      ("*;*.*#*" "JB:KDOC.FALCON;*.*#*")))