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

(fs:set-logical-pathname-host "PICTURE" :physical-host "SYS"
			      :translations 
			      '(("PICTURE" "PUBLIC.PICTURE;")))