;;; -*- Mode:Common-Lisp; Package:User; Base:10. -*-

(fs:set-logical-pathname-host "CYC-Optimizations"
  :Physical-Host "X34"
  :Translations '(("CYC-Optimizations" "CYC.CYC-Optimizations;"))
)