(FILECREATED "29-Dec-87 22:31:20" ("compiled on " {QV}LISP>UNIXFILENAMEPATCH.;2) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 8-Sep-87 ..." dated " 8-Sep-87 19:13:09") (FILECREATED "29-Dec-87 22:11:40" {QV}LISP>UNIXFILENAMEPATCH.;2 2371 changes to: (VARS UNIXFILENAMEPATCHCOMS) (FNS \PARSE.REMOTE.FILENAME) previous date: "29-Dec-87 22:09:02" {QV}LISP>UNIXFILENAMEPATCH.;1) \PARSE.REMOTE.FILENAME D1 (P 4 OSTYPE P 3 SEMI P 2 REMOTENAME P 1 HOST P 0 START I 2 DEVICE I 1 NOERROR I 0 FILENAME) êP@k)l{ð²g@lXš@lHkÙYAið‘h@l* ¿I Y«A³ðoI ¿BÉ(É\gð˜@HkØ °Yg@HkØ[²8@HkØLgð¬@KkÙ)l.ð“KlKkÙLgð“g‚g@KkØ °@HkØ@mÿ)l.ð’mþmÿZLgð².do Zk)l<ð•Jkl/+¿jX¿oJHkØX–JHl/+°íIJ(333Q STRPOS 300Q CONCAT 260Q SUBSTRING 232Q CONCAT 227Q SUBSTRING 203Q SUBSTRING 143Q STRPOS 127Q SUBSTRING 76Q ERROR 61Q \CANONICAL.HOSTNAME 54Q \LISPERROR 36Q SUBATOM 23Q STRPOS) (265Q UNIX 220Q ! 214Q %. 207Q TOPS20 156Q TOPS20 134Q ; 116Q TENEX 110Q PUPFILESERVER 103Q FDEV 15Q }) ( 324Q ">" 275Q "" 72Q "Host not found") (PRETTYCOMPRINT UNIXFILENAMEPATCHCOMS) (RPAQQ UNIXFILENAMEPATCHCOMS ((DECLARE: EVAL@COMPILE DONTEVAL@LOAD DONTCOPY (FILES (LOADCOMP) LEAF)) ( FNS \PARSE.REMOTE.FILENAME))) (PUTPROPS UNIXFILENAMEPATCH COPYRIGHT ("Xerox Corporation" 1987)) NIL