;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-

(add-logical-pathname-host
  "ONCOCIN"
  (fs:get-pathname-host "KSL-EXP-5")
  '(("SHARED" "ONCOCIN.0-9-1.SHARED;")
    ("TNET" "ONCOCIN.0-9-1.TNET;")
    ("INTERVIEWER" "ONCOCIN.0-9-1.INTERVIEWER;")
    ("REASONER" "ONCOCIN.0-9-1.REASONER;")
    ("KB" "ONCOCIN.KB-0-9-1;")
    ("CASES" "ONCOCIN.0-9-1.CASES;")
    )
  )