;;; -*- Syntax: Common-lisp; Package: User -*-

; Set up logical device Q with logical directories for code and examples.

(fs:set-logical-pathname-host "Q"
   :physical-host "KSL-EXP-34"
;;   :no-search-for-shadowed-physical t		; symbolics-specific
   :translations '(("Q;" "Q.Q;")
		   ("Patch;" "Q.Patch;")
		   ("Examples;" "Q.Examples;")
		   ("Goodies;" "Q.Goodies;")
		   ("CQ;" "Q.CQ;")
		   ("Catalogs;" "Q.Catalogs;")
		   ("Pos;" "Q.Pos;")
		   ("Plotter;" "Q.Plotter;")))

(fs:set-logical-pathname-host "TI-XQ"
   :physical-host "KSL-EXP-34"
;;   :no-search-for-shadowed-physical t		; symbolics-specific
   :translations '(("Q;" "Q.Q;")
		   ("Patch;" "Q.Patch;")
		   ("Examples;" "Q.Examples;")
		   ("Goodies;" "Q.Goodies;")
		   ("CQ;" "Q.CQ;")
		   ("Catalogs;" "Q.Catalogs;")
		   ("Pos;" "Q.Pos;")
		   ("Plotter;" "Q.Plotter;")))


;; 

(unless (fs:get-pathname-host "POS" t)   ;; replaced non-existant fn "get-pathname-logical-host" -- LCM 
  (fs:add-logical-pathname-host "POS"
     "KSL-EXP-34"
      '(("POS;" "Q.POS;"))))