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

;;;Define FALCON logical host for Falcon software:

(fs:set-logical-pathname-host "FALCON"
  :physical-host "JB"
  :nicknames '("K-SYS")
  :translations
  '(("k;"           "<k>")
    ("k.*;"         "<k.*>")
    ("k.*.*;"       "<k.*.*>")
    ("kbug;"        "<k.kbug>")
    ("kbug2;"       "<k.kbug2>")
    ("kdoc;"        "<k.kdoc>")
    ("kdoc.*;"      "<k.kdoc.*>")
    ("kdoc.*.*;"    "<k.kdoc.*.*>")
    ("fleabit;"     "<k.fleabit>")
    ("fleabit.*;"   "<k.fleabit.*>")
    ("fleabit.*.*;" "<k.fleabit.*.*>")
    ("compiler"     "<k.compiler>")
    ("bus-coupler"  "<k.bus-coupler>")
    ("cold"         "<k.cold>")
    ("warm"         "<k.warm>")
    ("hot"          "<k.hot>")))

(fs:set-logical-pathname-host "FALCON-DOCS"
  :physical-host "JB"
  :translations '(("KWARE;*.botex" "JB:KDOC.falcon;*.botex")
		  ("KWARE;*.dvi" "BRAHMS:SAZ;RELEASED-MANUALS;*.dvi")
		  ("*" "JB:KDOC.FALCON;*.botex")))