;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10; Lowercase:T -*-

(fs:set-logical-pathname-host "HUNLA"
  :physical-host "DJ"
  :translations  '(("*;" "<cstacy.hunla.*>")
		   ("*.*;" "<cstacy.hunla.*.*>")))