;;; -*- Syntax: Common-lisp; Package: Common-Lisp-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		; no host named "Q"   for symbolics only
   :translations '(("Q;" "QSIM.Q;")
		   ("Patch;" "QSIM.Patch;")
		   ("Examples;" "QSIM.Examples;")
		   ("Goodies;" "QSIM.Goodies;")
		   ("CQ;" "QSIM.CQ;")
		   ("Catalogs;" "QSIM.Catalogs;")
		   ("Pos;" "QSIM.Pos;")
		   ("Plotter;" "QSIM.Plotter;")
		   ("Cc;" "QSIM.Cc;")))

(unless (net:parse-host "POS" t)
  (fs:make-logical-pathname-host "POS"))