;Don't forget that this file has to be read in by the very first
;LISP-REINITIALIZE.  That is, before the ERROR-TABLE is loaded
;and before things like LOCAL-FILE are loaded.
;Be careful.

(fs:set-logical-pathname-host "SYS"
  :physical-host "DJ"
  :translations '(("CHAOS;" "<L.LMI-SITE>")
		  ("SITE;" "<L.LMI-SITE>")
		  ("*;*;*;" "<L.*.*.*>")
		  ("*;*;" "<L.*.*>")
		  ("*;" "<L.*>")))