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

(fs:set-logical-pathname-host "BUG"
			      :physical-host
			      "glass"
			      :translations '(("TOOLS;*.lisp" "bugman;*.lisp")
					      ("tools;buglist*.*" "bugman;buglist*.*")
					      ("tools;*.qfasl" "bugman-122-bin;*.qfasl")
					      ("*;*.*#*" "bugman;*.*#*")))