(FILECREATED "27-Mar-85 13:53:52" ("compiled on " {ERIS}PATCHES>PACKFILENAMEPATCH.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "27-Mar-85 13:53:10" {ERIS}PATCHES>PACKFILENAMEPATCH.;1 10498 changes to: (FNS PACKFILENAME PACKFILENAME.STRING) (VARS PACKFILENAMEPATCHCOMS) previous date: "27-Mar-85 13:37:01" {ERIS}SOURCES>PACKFILENAMEPATCH.;1) PACKFILENAME D1 (P 22Q X P 21Q X P 20Q TEMP P 17Q VAL P 16Q VAR P 15Q PACKLIST P 14Q ACCOUNT P 13Q PROTECTION P 12Q TEMPORARY P 11Q VERSION P 10Q EXTENSION P 7 NAME P 6 DIRECTORY P 5 STRUCTURE P 4 DEVICE P 3 HOST P 2 I P 1 BLIP P 0 N) ôeHkðš@—g@ okâJHñ’±Ja_µJkØZHñ³Ja_°_¿O_¿ƒh_¿O³OlñšlOh ¿Odgð²0¿Od’ °dO"-O"O"µI ¿µå±3gð²MK’±(OµI[± dl{ðªdl[ð¥dl(ð²'¿OlOmÿ)dl}ð©dl]ð¤dl)ð“¿mþ‚¿mÿ°Æ¿O°ÁOgð«Odgð¢±¿OµN’±ÆI^±Àhi_°OdO$dgð¿K³;O$µI[°0dgð¿L³'O$µI\°gð›N³O$µI^ˆoO ¿µ²O°ddgð•¿L§I¼„gð“N¡I¾µæ°Egð³,Odgð³%dgð³dgð³dgð®dgð¨dgðŸ¿O-®OOµI ‚ ¿JkØZ±þSOiðOgð¦OgðœKµL§g»h_¿Kd²Iðhð´oKohLd²Iðhð´Lmÿ)l:ð“Lh†LghNd²Iðhð´oNohOd™Iðhð´OhO–OdIð¿Od´#Iðhð´OšO l.ð‘I‚gOµIhOd²CIðhð´=Odd¡³) dl;ð–¿Oh°#dl.ð¤dl!ð¿gOlmÿ…¿gOhOd²!Iðhð´gOgð¦Ogð“g€ih (1361Q PACK 1356Q \NCONC2 1353Q \NCONC2 1350Q \NCONC2 1345Q \NCONC2 1342Q \NCONC2 1337Q \NCONC2 1256Q SUBSTRING 1213Q CHCON1 1141Q CHCON1 703Q \ILLEGAL.ARG 677Q SET 530Q ERROR 413Q UNPACKFILENAME.STRING 336Q SUBSTRING 253Q CHCON1 212Q SET 162Q UNPACKFILENAME.STRING 157Q PACKFILENAME 134Q ERRORX 21Q APPLY) (1327Q S 1322Q ;S 1313Q S 1306Q ; 1263Q ; 1245Q ; 1152Q %. 1034Q : 746Q CORE 734Q ;S 725Q S 656Q TEMPORARY 650Q VERSION 642Q EXTENSION 633Q NAME 624Q HOST 615Q DIRECTORY 604Q DEVICE 564Q DEVICE 551Q HOST 501Q DIRECTORY 456Q DEVICE 432Q HOST 362Q DIRECTORY 352Q PATHNAME 227Q HOST 143Q BODY 15Q PACKFILENAME) ( 1062Q ">" 1055Q "<" 776Q "}" 771Q "{" 523Q "Illegal field in DIRECTORY slot" 26Q "") PACKFILENAME.STRING D1 (P 22Q X P 21Q X P 20Q TEMP P 17Q VAL P 16Q VAR P 15Q PACKLIST P 14Q ACCOUNT P 13Q PROTECTION P 12Q TEMPORARY P 11Q VERSION P 10Q EXTENSION P 7 NAME P 6 DIRECTORY P 5 STRUCTURE P 4 DEVICE P 3 HOST P 2 I P 1 BLIP P 0 N) ôeHkðš@—g@ okâJHñ’±Ja_µJkØZHñ³Ja_°_¿O_¿ƒh_¿O³OlñšlOh ¿Odgð²0¿Od’ °dO"-O"O"µI ¿µå±3gð²MK’±(OµI[± dl{ðªdl[ð¥dl(ð²'¿OlOmÿ)dl}ð©dl]ð¤dl)ð“¿mþ‚¿mÿ°Æ¿O°ÁOgð«Odgð¢±¿OµN’±ÆI^±Àhi_°OdO$dgð¿K³;O$µI[°0dgð¿L³'O$µI\°gð›N³O$µI^ˆoO ¿µ²O°ddgð•¿L§I¼„gð“N¡I¾µæ°Egð³,Odgð³%dgð³dgð³dgð®dgð¨dgðŸ¿O-®OOµI ‚ ¿JkØZ±þSOiðOgð¦OgðœKµL§g»h_¿Kd²Iðhð´oKohLd²Iðhð´Lmÿ)l:ð“Lh†LghNd²Iðhð´oNohOd™Iðhð´OhO–OdIð¿Od´#Iðhð´OšO l.ð‘I‚gOµIhOd²CIðhð´=Odd¡³) dl;ð–¿Oh°#dl.ð¤dl!ð¿gOlmÿ…¿gOhOd²!Iðhð´gOgð¦Ogð“g€ih (1361Q CONCATLIST 1356Q \NCONC2 1353Q \NCONC2 1350Q \NCONC2 1345Q \NCONC2 1342Q \NCONC2 1337Q \NCONC2 1256Q SUBSTRING 1213Q CHCON1 1141Q CHCON1 703Q \ILLEGAL.ARG 677Q SET 530Q ERROR 413Q UNPACKFILENAME.STRING 336Q SUBSTRING 253Q CHCON1 212Q SET 162Q UNPACKFILENAME.STRING 157Q PACKFILENAME.STRING 134Q ERRORX 21Q APPLY) (1327Q S 1322Q ;S 1313Q S 1306Q ; 1263Q ; 1245Q ; 1152Q %. 1034Q : 746Q CORE 734Q ;S 725Q S 656Q TEMPORARY 650Q VERSION 642Q EXTENSION 633Q NAME 624Q HOST 615Q DIRECTORY 604Q DEVICE 564Q DEVICE 551Q HOST 501Q DIRECTORY 456Q DEVICE 432Q HOST 362Q DIRECTORY 352Q PATHNAME 227Q HOST 143Q BODY 15Q PACKFILENAME.STRING) ( 1062Q ">" 1055Q "<" 776Q "}" 771Q "{" 523Q "Illegal field in DIRECTORY slot" 26Q "") (PRETTYCOMPRINT PACKFILENAMEPATCHCOMS) (RPAQQ PACKFILENAMEPATCHCOMS ((FNS PACKFILENAME PACKFILENAME.STRING) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PACKFILENAME.STRING PACKFILENAME)) ))) (PUTPROPS PACKFILENAMEPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL