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

(fs:set-logical-pathname-host "KMAC-D"
  :physical-host "DJ"
  :translations  '(("*;" "<renaud.*>")))