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

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