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

(fs:set-logical-pathname-host "spell" 
      :physical-host (send (send (send sys:fdefine-file-pathname :translated-pathname)
				 :host)	; the host this file is on.
			   :name)
      :translations  '(("speller" "public.speller;")))