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

(fs:set-logical-pathname-host "VALID"
			      :physical-host
			      "GLASS"
			      :translations '(("CODE;"  "VALID.VALID-CODE;")
					      ("TESTS;" "VALID.VALID-TESTS;")
					      ("FILES;" "VALID;")
					      ("*;"     "VALID.*;")
					      ("*;*;"   "VALID.*;*")
					      ("*;*;*;" "VALID.*.*.;")))