LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760029905. :SYSTEM-TYPE :LOGICAL :VERSION 33. :TYPE "PATCH-DIRECTORY" :NAME "PATHNAME-3" :DIRECTORY ("REL3" "PATCH" "PATHNAME") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758037029. :AUTHOR "REL3" :LENGTH-IN-BYTES 1773. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-;;; Patch directory for PATHNAME version 3;;; Written 05/26/87 13:36:18 by MBC,;;; while running on Oscar from band LODA;;; With IO 3.4, PATHNAME 3.6, FILE 3.4, SYSTEM 3.15, METER 3.0, SERIAL 3.0, CHAOSNET 3.6, ETHERNET 3.0, GC 3.5, IMAGEN 3.0, MAIL-DAEMON 3.0, NETWORK-SUPPORT 3.4, PROFILE 3.0, SUGGESTIONS 3.3, UCL 3.0, ZWEI 3.2, STREAMER-TAPE 3.1, DEBUG-TOOLS 3.0, FONT-EDITOR 3.0, GLOSSARY 3.0, INPUT-EDITOR 3.0, MAIL-READER 3.0, NAMESPACE-EDITOR 3.1, NVRAM 3.0, TELNET 3.0, TV 3.4, NAMESPACE 3.7, COMPILER 3.1, PRINTER 3.1, SYSLOG 3.0, VT100 3.1, IP 2.14, Experimental BUG 4.9, RPC 3.0, Experimental NFS 4.0,  microcode 27, Band Name: Rel3+IP+NFS,5/21.(:PATCH-SYSTEM-NAME "PATHNAME" :MAJOR-VERSION 3 :LATEST-MINOR-VERSION 8)(:RELEASED((0 "PATHNAME Loaded" "Modified" NIL)  (1 "Handle Explorer's lack of top level files and don't trap doing length on :ROOT.  [SPR 5039] 4.30.87" "MBC" NIL)  (2 "When copying UNIX files, make \"/dir/*\" work on all types; \"/dir/*.*\" workaround syntax no longer needed.  [Code read: MBC HMC] 5.4.87" "MBC" NIL)  (3 "Use \"ROOT-DIRECTORY\" for TENEX & TOPS20 top level directory string.  [Code read: MBC HMC] 5.4.87" "MBC" NIL)  (4 "Correct :READ-INSTANCE to use :TOPS20 system type, not :TOPS-20.  5.6.87" "MBC" NIL)  (5 "Make restore of logical backups not lose physical subdirectories or error on physical restores.[Code Read: MBC NN]  [REQUIRES STREAMER-TAPE PATCH 3-1]  5.15.87" "MBC" NIL)  (6 "Don't index into empty NAME string in UNIX-FILENAME when type is :WILD.  5.18.87" "MBC" NIL)  (7 "Fix problem where copy-file from unix to unix upcase the type component.  5.22.87" "MBC" NIL)  (8 "Correct a few canonical type mappings" "HW" NIL)  ))inline translated-host))(defun TRANSLATED-HOST (host)  "Return the translated host. Also return the logical-host that actually translated   to a non-logical host and the directory translations."  (declare (values translated-host last-logical-host directory-translations))