;;; -*- 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;*.dvi" "BRAHMS:SAZ;RELEASED-MANUALS;*.dvi")
					      ("*" "JB:KDOC.FALCON;*.botex")))