(FILECREATED "19-Dec-84 15:42:01" ("compiled on " {ERIS}HARMONY>PATCHES>NSFILINGPATCH.;1) "10-Dec-84 17:38:51" bcompl'd in "INTERLISP-D 10-Dec-84 ..." dated "10-Dec-84 18:25:04") (FILECREATED "18-Dec-84 23:09:57" {ERIS}SOURCES>NSFILINGPATCH.;1 15891 changes to: (VARS NSFILINGPATCHCOMS)) \NSFILING.GENERATEFILESA0001 D1 (NAME ERRORSET P 22Q PROP P 15Q X P 14Q BROKET P 13Q TAIL P 10Q N P 7 INFINITE.DEPTH P 6 SCOPELIST P 5 FILTERLIST P 4 DIRECTORY P 3 VERSION P 2 NAME P 1 HOST P 0 STAR F 23Q CONNECTION F 24Q DESIREDPROPS F 25Q PATTERN F 26Q RESETVARSLST F 27Q BULKSTREAM F 30Q DEVICE F 31Q RESETY) ]o W* yd OdgOY`dgO\RdgOZDdg0Od5H JoO ZJm)l*JH ZgO [gL _?j gLOk _OOO_LOkO Ojh LkOk \W0 dc&gW&hhhW,c,W&Li ^W(AO#Oc(W&gFlDd c(_$` O$i _$_"O O"h_ _O_O"&_ l oW( c(gJ JH ggJggJhghhMKdggKhghhM]MgMdgMhhN`)L&W&gg` i_nhNW&W&gW& W(NhW& c.gghW.gg _W* _W&OOOhc2i(1103Q DIRECTORY.MATCH.SETUP 1073Q BULKDATA.GENERATOR 1046Q COURIER.CALL 571Q STREQUAL 563Q STRPOS 550Q \APPEND2 471Q \FILING.ATTRIBUTE.TYPE 457Q ASSOC 441Q INTERSECTION 365Q \NSFILING.CONNECT 324Q \GETFILINGCONNECTION 315Q SUBSTRING 273Q SUBSTRING 241Q STRPOS 216Q STRPOS 177Q MKATOM 161Q CONCAT 140Q CONCAT 123Q STREQUAL 13Q UNPACKFILENAME.STRING) (1070Q ATTRIBUTE.SEQUENCE 1065Q FILING 1057Q \NSFILING.FILEINFOFN 1054Q \NSFILING.NEXTFILE 1040Q FILINGSESSION 1025Q FILINGSESSION 1020Q LIST 1013Q FILINGSESSION 1004Q FILINGSESSION 756Q FILING.ENUMERATION.DEPTH 753Q DEPTH 745Q FILING 740Q FILINGSESSION 726Q FILING.ENUMERATION.DEPTH 707Q AND 677Q FILTER 657Q CARDINAL 650Q VERSION 645Q = 620Q STRING 611Q NAME 606Q = 601Q NAME 576Q MATCHES 557Q * 454Q \LISP.TO.NSFILING.ATTRIBUTES 426Q FILING 421Q FILINGSESSION 337Q \NSFILING.CLOSE.IF.ERROR 231Q > 212Q * 166Q VERSION 102Q EXTENSION 64Q NAME 46Q DIRECTORY 30Q HOST) ( 543Q (22Q 5) 131Q "." 3 "*") \NSFILING.GENERATEFILESA0002 D1 (I 1 STREAM I 0 CONNECTION F 0 RESETSTATE) A @P (10Q \CLOSEFILINGCONNECTION 3 CLOSEF) NIL () \NSFILING.GENERATEFILES D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 RESULT P 1 BULKSTREAM P 0 CONNECTION I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 6 RESETVARSLST F 7 LISPXHIST) \0W!Vog hg] MLZH,CgCgCgHIhhhVc IH J(131Q \NULLFILEGENERATOR 122Q \CLOSEFILINGCONNECTION 42Q ERROR! 34Q RESETRESTORE 22Q \NSFILING.GENERATEFILESA0001) (75Q \NSFILING.GENERATEFILESA0002 66Q RESETLST 55Q RESETLST 30Q ERROR 17Q INTERNAL) ( 14Q (\NSFILING.GENERATEFILESA0001)) \NSFILING.CLOSEFILEA0001A0003 D1 (NAME ERRORSET F 0 CONNECTION F 1 FILESTREAM F 2 NEWHANDLE F 3 INFO F 4 HANDLE) SRBPPgR`Pg cQ(gQhSPT Qhi(107Q \NSFILING.CLOSE.HANDLE 42Q COURIER.CALL) (114Q STREAM 71Q STREAM 65Q FULLNAME 57Q FDEV 52Q STREAM 36Q NOERROR 31Q FILINGSESSION 25Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 21Q GET.ATTRIBUTES 14Q FILINGSESSION 6 FILINGSESSION) () \NSFILING.CLOSEFILEA0001 D1 (NAME ERRORSET P 4 INFO P 3 CONNECTION P 2 HANDLE P 1 NEWHANDLE P 0 ABORTFLG F 6 FILESTREAM F 7 OPTIONS F 10Q RESETVARSLST F 11Q RESETY) WgW gWiQVH YVV[gIgKhhhWcIgPVRlj"VRljJV4VkM9H5oIoI V JK o hci(270Q \NSFILING.CLOSEFILEA0001A0003 257Q SPP.OPENP 241Q ERROR 230Q CONCAT 35Q \BULK.DATA.CLOSE) (252Q FILINGSESSION 234Q STREAM 172Q FDEV 165Q STREAM 147Q STREAM 131Q STREAM 122Q ERROR 77Q \NSFILING.RESETCLOSE 66Q ERROR 53Q STREAM 44Q STREAM 17Q ABORT 4 ABORT) ( 265Q (\NSFILING.CLOSEFILEA0001A0003) 221Q " -- " 212Q "CLOSEF: File not written ") \NSFILING.CLOSEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OPTIONS I 0 FILESTREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.CLOSEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.CLOSEFILEA0001)) \NSFILING.CONNECT D1 (P 16Q \INTERRUPTABLE P 15Q TAIL P 13Q OLD.DIR P 6 NSPATHNAME P 5 ADDITIONAL.DIRLIST P 4 NEW.HANDLE P 3 OLD.HANDLE P 2 SESSIONHANDLE P 1 OLD.DIRLIST P 0 NEW.DIRLIST I 3 CREATE? I 2 REALREQUIRED I 1 PATHNAME I 0 CONNECTION F 17Q NEW.DIR) ,Ad @ @@ DHI HBK`Hdǿ@g0 Hd_gOh_O>O__O @@ggNhh`hJg \d _OgLgDCHd @ \6@ @L @H K`@@gKJ iH-H])I O iMXs_MM hO_K`+@@gK@`[ @h J B)H'@@@gh`hJg [ H O_k@@ggOchhKhJg \d@gOLgCHW@i \h@L @@ Wh  K`@@gKJ LOg(1041Q COURIER.CALL 1002Q \APPEND2 742Q \NSFILING.MAYBE.CREATE 673Q COURIER.CALL 604Q COURIER.CALL 535Q COURIER.CALL 443Q STREQUAL 375Q COURIER.CALL 307Q \NSFILING.MAYBE.CREATE 302Q LAST 245Q LAST 235Q COURIER.CALL 170Q CONCATLIST 40Q EQUAL 6 \PATHNAME.TO.DIRECTORY.LIST) (1033Q CLOSE 1026Q FILINGSESSION 1020Q FILINGSESSION 1011Q \NSFILING.NULL.HANDLE 771Q FILINGSESSION 765Q FILINGSESSION 755Q FILINGSESSION 725Q FileNotFound 706Q ERROR 667Q RETURNERRORS 647Q NAME 644Q OPEN 637Q FILINGSESSION 631Q FILINGSESSION 600Q NOERROR 573Q \NSFILING.NULL.HANDLE 567Q OPEN 562Q FILINGSESSION 554Q FILINGSESSION 550Q FILINGSESSION 524Q FILINGSESSION 514Q \NSFILING.NULL.HANDLE 511Q FILINGSESSION 504Q CLOSE 477Q FILINGSESSION 471Q FILINGSESSION 462Q \NSFILING.NULL.HANDLE 367Q CLOSE 362Q FILINGSESSION 354Q FILINGSESSION 345Q \NSFILING.NULL.HANDLE 335Q FILINGSESSION 325Q FILINGSESSION 316Q FILINGSESSION 271Q FileNotFound 257Q ERROR 231Q RETURNERRORS 224Q \NSFILING.NULL.HANDLE 213Q PATHNAME 210Q OPEN 203Q FILINGSESSION 175Q FILINGSESSION 131Q / 106Q FILING 101Q FILINGSESSION 60Q \NSFILING.NULL.HANDLE 26Q FILINGSESSION 20Q FILINGSESSION 12Q FILINGSESSION) () \NSFILING.MAYBE.CREATE D1 (I 4 CONNECTED I 3 CONNECTION I 2 NEW.DIR I 1 DIRLST I 0 CREATE? F 5 DWIMWAIT) @dgNUgoCo0AdghXIHZYJ o  g YHhiLDCAAH\Ld 24Q FILINGSESSION 14Q Y 4 ASK) ( 224Q ((IS.DIRECTORY T) (FILE.TYPE 1)) 77Q "? " 32Q "}<" 20Q "Create subdirectory {") (PRETTYCOMPRINT NSFILINGPATCHCOMS) (RPAQQ NSFILINGPATCHCOMS ((FNS \NSFILING.GENERATEFILES \NSFILING.CLOSEFILE \NSFILING.CONNECT \NSFILING.MAYBE.CREATE))) (PUTPROPS NSFILINGPATCH COPYRIGHT ("Xerox Corporation" 1984)) NIL