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


(fs:set-logical-pathname-host
  "Genetic"
  :Physical-Host "KSL-EXP-15"
  :Translations '(("Genetic" "Koza;")
		  ("Data-Files" "Koza.Data-Files;")
		  ("Output" "Koza.Output;")
		  ("Animation" "Koza.Animation;")
		 )
)


(fs:set-logical-pathname-host
  "Data"
  :Physical-Host "KSL-EXP-15"
  :Translations '(("Data-Files" "Koza.Data-Files;")
		  ("Output" "Koza.Output;")
		  )
  )


(fs:set-logical-pathname-host
  "Perpetual"
  :Physical-Host "KSL-EXP-15"
  :Translations '(("Perpetual" "Koza.Data-Files;"))
)

(fs:set-logical-pathname-host
  "G"
  :Physical-Host "KSL-EXP-15"
  :Translations '(("G" "Koza;")
		  ("D" "Koza.Data-Files;")
		  ("O" "Koza.Output;")
		  ("A" "Koza.Animation;")
		 )
)