;;; -*- Mode: LISP; Package: USER; Base: 10; Syntax: ZETALISP-*-

(fs:set-logical-pathname-host
  "lapitup"
  :physical-host "x34"
  :translations 	      '(("lapitup" "penman.lapitup.source;")
				("lapitup-status-pathname-default"    "penman.lapitup.status;")
				("lapitup-lexicon-pathname-default"   "penman.lapitup.lexicon;")
				("lapitup-wordclass-pathname-default" "penman.lapitup.wordclass;")))