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


                              
;;; This is where the new version is kept.   -trg
(fs:set-logical-pathname-host "ONTO"
                              :Physical-Host "X34"
			      :Translations '(("ONTO" "ONTOLINGUA;"))
                              )

;;; Pang's version of the ontolingua code.
#+IGNORE
(fs:set-logical-pathname-host "ONTO"
                              :Physical-Host "X34"
			      :Translations '(("ONTO" "DANEEL.ONTO;"))
                              )