(FILECREATED "18-Dec-84 23:10:33" ("compiled on " {ERIS}SOURCES>NSFILINGPATCH.;1) "17-Dec-84 17:17:13" tcompl'd in "INTERLISP-D 17-Dec-84 ..." dated "17-Dec-84 18:22:18") (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.CLOSEFILEA0001A0005 D1 (NAME ERRORSET F 0 CONNECTION F 1 FILESTREAM F 2 NEWHANDLE F 3 INFO F 4 HANDLE) PRBPPgR`Pg cQ(gQhSPT Qhi(107Q \NSFILING.CLOSE.HANDLE 42Q COURIER.CALL) (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 10Q FILESTREAM F 11Q OPTIONS F 12Q RESETVARSLST F 13Q RESETY) WgW gWiqWH YWW[gIgKhhhWcIgnWRl]jM9M 3WRl^jZNN PW4_WkO:H6oIoI W JK o hci(331Q \NSFILING.CLOSEFILEA0001A0005 320Q SPP.OPENP 302Q ERROR 270Q CONCAT 212Q \FZEROP 160Q \FZEROP 36Q \BULK.DATA.CLOSE) (313Q FILINGSESSION 275Q STREAM 226Q FDEV 221Q STREAM 167Q STREAM 135Q STREAM 125Q ERROR 102Q \NSFILING.RESETCLOSE 71Q ERROR 56Q STREAM 46Q STREAM 17Q ABORT 4 ABORT) ( 326Q (\NSFILING.CLOSEFILEA0001A0005) 261Q " -- " 252Q "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 _OgLg>CHd @ \0@ @L @H K`@@gKJ iH-H])I O iMXj_MM hO_K`%@@gK@`[ @h J B&H$@d@gh`hJg [ H O_t@@ggOchhKhJg \dIgOLgCHW@i \h@L @d Wh  K`@@gKJ LOm(1014Q COURIER.CALL 755Q \APPEND2 723Q \NSFILING.MAYBE.CREATE 654Q COURIER.CALL 565Q COURIER.CALL 521Q COURIER.CALL 435Q STREQUAL 367Q COURIER.CALL 307Q \NSFILING.MAYBE.CREATE 302Q LAST 245Q LAST 235Q COURIER.CALL 170Q CONCATLIST 40Q EQUAL 6 \PATHNAME.TO.DIRECTORY.LIST) (1006Q CLOSE 1001Q FILINGSESSION 773Q FILINGSESSION 764Q \NSFILING.NULL.HANDLE 744Q FILINGSESSION 706Q FileNotFound 667Q ERROR 650Q RETURNERRORS 630Q NAME 625Q OPEN 620Q FILINGSESSION 612Q FILINGSESSION 561Q NOERROR 554Q \NSFILING.NULL.HANDLE 550Q OPEN 543Q FILINGSESSION 535Q FILINGSESSION 503Q \NSFILING.NULL.HANDLE 476Q CLOSE 471Q FILINGSESSION 463Q FILINGSESSION 454Q \NSFILING.NULL.HANDLE 361Q CLOSE 354Q FILINGSESSION 346Q FILINGSESSION 337Q \NSFILING.NULL.HANDLE 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