;;; -*- Mode: Lisp; Package: USER; Syntax: COMMON-LISP; Base: 10 -*-



(fs:set-logical-pathname-host "Loom"
  :physical-host "KSL-EXP-34"
  :translations '(("Loom" "LOOM.production-loom;")
		  ("Production-Loom" "LOOM;")
		 )
)

;(defparameter *loom-pathname-default* (pathname "loom:loom;"))
;(defparameter *kbclasses-pathname-default* (pathname "loom:loom.kbclasses;"))
;(defparameter *tbox-pathname-default* (pathname "loom:loom.tbox;"))
;(defparameter *abox-pathname-default* (pathname "loom:loom.abox;"))
;(defparameter *patch-pathname-default* (pathname "loom:loom.patch;"))