;;; -*- Mode:Zetalisp; Package:USER; Syntax:ZETALISP; Base:10 -*-

(add-logical-pathname-host
  "TOOLS"
  (fs:get-pathname-host "KSL-EXP-7")
  '(("TOOLS" "TOOLS;")))