(FILECREATED "24-Sep-85 18:10:47" ("compiled on " {ERIS}SOURCES>NSFILING.;33) "16-Sep-85 14:48:01" recompiled exprs: \NSFILING.CONNECT \NSFILING.ADDQUOTES \NSFILING.GETFILE1 in "INTERLISP-D 16-Sep-85 ..." dated "16-Sep-85 17:06:41") (FILECREATED "24-Sep-85 18:09:37" {ERIS}SOURCES>NSFILING.;33 87456 changes to: (FNS \NSFILING.CONNECT \NSFILING.ADDQUOTES \NSFILING.GETFILE1 \PATHNAME.TO.DIRECTORY.LIST \NSFILING.LISTVERSIONS \NSFILING.FULLNAME \NSFILING.EXTRACT.SUBDIR \NSFILING.REMOVEQUOTES) (VARS NSFILINGCOMS) previous date: "27-Jun-85 15:27:06" {ERIS}SOURCES>NSFILING.;31) \GET.FILING.ATTRIBUTE D1 (P 3 VALUE P 2 X P 1 ATTR I 1 PROGRAM I 0 STREAM) B`@hg "HI@hg hZdIHX@ @ @AJ h(74Q COURIER.READ 32Q COURIER.READ.SEQUENCE 12Q COURIER.READ) (27Q UNSPECIFIED 7 LONGCARDINAL 2 \NSFILING.ATTRIBUTES) () \PUT.FILING.ATTRIBUTE D1 (P 4 X P 2 VALUETYPE P 1 VALUE P 0 ATTR I 2 PROGRAM I 1 ITEM I 0 STREAM) \AAHd`K oH @Hhg J"@IBJ "\dHK[LZ@IBg h(130Q COURIER.WRITE.SEQUENCE 66Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 54Q COURIER.WRITE 42Q ERROR) (125Q UNSPECIFIED 51Q LONGCARDINAL 23Q \NSFILING.ATTRIBUTES) ( 36Q "Unknown Filing attribute") \GETFILINGCONNECTIONA0001 D1 (NAME ERRORSET P 1 CONNECTION P 0 TAIL F 2 DEVINFO F 3 RESETY) SRhi RHR YRIRIciHYjI RIR (115Q DREMOVE 76Q \VALID.FILING.CONNECTIONP 30Q \NSFILING.LOGIN 10Q OBTAIN.MONITORLOCK) NIL () \GETFILINGCONNECTION D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 CONNECTION P 0 DEVINFO I 1 DORESETSAVE I 0 DEVICE F 5 RESETVARSLST F 6 LISPXHIST) H@(V!Uog hg\ LKYAIdigIhhhUc (44Q ERROR! 36Q RESETRESTORE 24Q \GETFILINGCONNECTIONA0001) (67Q \NSFILING.RESETCLOSE 32Q ERROR 21Q INTERNAL) ( 16Q (\GETFILINGCONNECTIONA0001)) \NSFILING.FINDSERVER D1 (I 0 SERVERNAME) @gi (7 LOOKUP.NS.SERVER) (3 FILESERVER) () \OPENFILINGCONNECTION D1 (P 0 STREAM I 0 CONNECTION) L@i @dgi@o ho XH@ @kkjh(74Q \NSFILING.SET.CONTINUANCE 62Q COURIER.OPEN 51Q PACK* 14Q SPP.CLOSE) (40Q NSNAME 33Q FILINGSESSION 26Q FILESERVER 21Q FILINGSESSION 6 FILINGSESSION) ( 56Q (ERRORHANDLER \NSFILING.ERRORHANDLER) 46Q " Filing") \NSFILING.LOGIN D1 (P 11Q NEEDLOGIN P 10Q CREDENTIALS P 7 CONNECTION P 6 SESSION P 5 STREAM P 4 SERVERNSNAME P 3 SERVERNAME P 2 ADDRESS P 1 PROGRAM P 0 FILESERVER I 0 DEVINFO) 2 @` H\i [HZKOhOohg _Jhi@ho ]O _IgMIgLOOg MggOOg ^"M NNdgIg/gY%gN.dg𑿍gNgi_OoK N h9`dJdLdKdMdNd` dkdI_d O` L` o` (454Q PRIN1 441Q PRIN1 431Q TERPRI 420Q \NSFILING.SET.CONTINUANCE 327Q ERROR 322Q CONCAT 207Q SPP.CLOSE 200Q COURIER.CALL 152Q COURIER.CALL 115Q NS.MAKE.SIMPLE.CREDENTIALS 103Q COURIER.OPEN 52Q \INTERNAL/GETPASSWORD 21Q MKATOM 16Q NSNAME.TO.STRING) (451Q PROMPTWINDOW 436Q PROMPTWINDOW 426Q PROMPTWINDOW 374Q \NSFILING.NULL.HANDLE 336Q FILINGSESSIONTYPE# 301Q CannotAuthenticate 270Q SERVICE.ERROR 261Q AUTHENTICATION.ERROR 247Q ERROR 240Q OLDFILING 232Q FILING 222Q REJECT 174Q RETURNERRORS 163Q LOGON 160Q OLDFILING 146Q RETURNERRORS 134Q LOGON 124Q FILING 46Q NS 4 \NSFILING.PROGRAM.NAME) ( 446Q " not responding to connection attempt" 316Q "Error while logging on to " 77Q (ERRORHANDLER \NSFILING.ERRORHANDLER) 42Q "Login incorrect.") \NSFILING.SET.CONTINUANCE D1 (I 0 CONNECTION) -@l @@g@g di(42Q COURIER.CALL 6 \DAYTIME0) (36Q NOERROR 31Q FILINGSESSION 25Q CONTINUE 20Q FILINGSESSION 12Q FILINGSESSION) () \CLOSEFILINGCONNECTION D1 (P 0 STREAM I 1 ABORT? I 0 CONNECTION) @@hHA @jjdhh(16Q SPP.CLOSE) NIL () \NSFILING.LOGOUTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 CONNECTION F 1 RESETVARSLST F 2 ABORT?) IRCPg 5P 0gPhhhQcPPgPg hh(102Q COURIER.CALL 24Q \OPENFILINGCONNECTION 16Q TIMEREXPIRED?) (76Q NOERROR 71Q FILINGSESSION 65Q LOGOFF 60Q FILINGSESSION 52Q FILINGSESSION 31Q \NSFILING.RESETCLOSE 13Q SECONDS 6 FILINGSESSION) () \NSFILING.LOGOUT D1 (I 1 ABORT? I 0 CONNECTION) o (6 \NSFILING.LOGOUTA0001) NIL ( 3 (DUMMY.FOR.ERRORSET)) \NSFILING.RESETCLOSE D1 (I 0 X F 0 RESETSTATE) @P (4 \CLOSEFILINGCONNECTION) NIL () \NSFILING.CLOSE.IF.ERROR D1 (I 0 CONNECTION F 0 RESETSTATE) P@ (6 \CLOSEFILINGCONNECTION) NIL () \VALID.FILING.CONNECTIONP D1 (I 0 CONNECTION) /@g h@@  j@ h@ i(51Q \OPENFILINGCONNECTION 43Q \NSFILING.LOGOUT 33Q HASH.PASSWORD 27Q \INTERNAL/GETPASSWORD 10Q TIMEREXPIRED?) (5 SECONDS) () \NSFILING.CLOSE.CONNECTIONSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 DEVINFO F 2 RESETY F 3 ABORT?) 0Qhi QdhciHQHS (54Q \NSFILING.LOGOUT 10Q OBTAIN.MONITORLOCK) NIL () \NSFILING.CLOSE.CONNECTIONS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 ABORT? I 0 DEVINFO F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.CLOSE.CONNECTIONSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) BREAK.NSFILING.CONNECTION D1 (P 0 DEV I 0 HOST) @ id Hd( i(23Q \NSFILING.CLOSE.CONNECTIONS 10Q \GETDEVICEFROMNAME 3 \CANONICAL.NSHOSTNAME) NIL () \NSFILING.CONNECT D1 (P 20Q TAIL P 16Q OLD.DIR P 14Q \INTERRUPTABLE P 13Q DIR P 7 NSPATHNAME P 6 ADDITIONAL.DIRLIST P 5 NEW.HANDLE P 4 NEW.DIR 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) Ad @ @@ DHIHBK`Hd˿@g0 H#d gO h_OAO__O _@@ggOhh`hJg ]d _OgMgACHd @ ]3 @ @M @H K`@@gKJ iH-H^)IO iNXm_NN hO_K`(@@gK @`[ @h J B&H$@d@gh`hJg [ HO_ q@@ggO \hhKhJg ]dGgO MgCHL@i ]h @M @d Lh  K`@@gKJ MO p(1024Q COURIER.CALL 765Q \APPEND2 734Q \NSFILING.MAYBE.CREATE 666Q COURIER.CALL 600Q COURIER.CALL 534Q COURIER.CALL 445Q STREQUAL 377Q COURIER.CALL 314Q \NSFILING.MAYBE.CREATE 307Q LAST 252Q LAST 242Q COURIER.CALL 172Q CONCATLIST 134Q \NSFILING.ADDQUOTES 6 \PATHNAME.TO.DIRECTORY.LIST) (1016Q CLOSE 1011Q FILINGSESSION 1003Q FILINGSESSION 774Q \NSFILING.NULL.HANDLE 755Q FILINGSESSION 720Q FileNotFound 701Q ERROR 662Q RETURNERRORS 643Q NAME 640Q OPEN 633Q FILINGSESSION 625Q FILINGSESSION 574Q NOERROR 567Q \NSFILING.NULL.HANDLE 563Q OPEN 556Q FILINGSESSION 550Q FILINGSESSION 516Q \NSFILING.NULL.HANDLE 506Q CLOSE 501Q FILINGSESSION 473Q FILINGSESSION 464Q \NSFILING.NULL.HANDLE 371Q CLOSE 364Q FILINGSESSION 356Q FILINGSESSION 347Q \NSFILING.NULL.HANDLE 326Q FILINGSESSION 276Q FileNotFound 264Q ERROR 236Q RETURNERRORS 231Q \NSFILING.NULL.HANDLE 217Q PATHNAME 214Q OPEN 207Q FILINGSESSION 201Q FILINGSESSION 127Q / 104Q FILING 77Q FILINGSESSION 56Q \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 {") \PATHNAME.TO.DIRECTORY.LIST D1 (P 5 SAWQUOTE P 4 VAL P 3 VERS P 2 CH P 1 START P 0 I I 0 PATHNAME) p@d. l{@g bkdB@H)ZL@IHKM h l!H[3Jdl'iHkX$l/Jl>L@IHKM h h]HkعHkԸ(140Q \NCONC2 133Q \NSFILING.EXTRACT.SUBDIR 57Q \NCONC2 52Q \NSFILING.EXTRACT.SUBDIR 21Q FILENAMEFIELD 6 CHCON1) (16Q DIRECTORY) () \NSFILING.EXTRACT.SUBDIR D1 (P 0 DIR I 4 REMOVEQUOTES I 3 BANG I 2 END I 1 START I 0 PATHNAME) -@ACBk DH Bl@Ck)l1CH(24Q \NSFILING.REMOVEQUOTES 12Q SUBSTRING) NIL () \NSFILING.LISTVERSIONS D1 (P 0 SCOPE I 3 DESIREDVERSION I 2 DESIREDPROPS I 1 FILENAME I 0 CONNECTION) hggAhghhC3 gHggChghhhh@@g@ BgHhho@ (145Q COURIER.CALL) (137Q FILINGSESSION 121Q FILTER 113Q FILINGSESSION 107Q LIST 102Q FILINGSESSION 74Q FILINGSESSION 53Q CARDINAL 44Q VERSION 41Q = 35Q AND 14Q STRING 5 NAME 2 =) ( 133Q (FILING . ATTRIBUTE.SEQUENCE)) \NSFILING.REMOVEQUOTES D1 (P 4 CH P 0 I I 0 NAME) =o@ 2jA@HkX)\I l'@HkX)LJ KhZK&@(33Q CONCATCODES 7 STRPOS) NIL ( 3 "'") \NSFILING.ADDQUOTES D1 (P 14Q QUOTED P 7 CH I 1 ALREADYQUOTED I 0 NAME) & @@ baHkٻHKHغHCjhiKk[JLMLKLK¹NhIl:%Il;Il<Il>Il}Il]Idl/il'Aiih@q Mk_M_OM_MCjhi_Ok_OhOOOOO_Oh_7Ol:+Ol;$Ol<Ol>Ol}Ol]Odl/l'NONl'Ai_N  @(441Q CONCATCODES 435Q REVERSE 10Q MKSTRING) NIL () \FILING.ATTRIBUTE.TYPE.SEQUENCE D1 (I 0 ATTRIBUTETYPES) 0@d IHhZH&J(12Q \FILING.ATTRIBUTE.TYPE) NIL NIL \FILING.ATTRIBUTE.TYPE D1 (P 1 X I 1 NOERRORFLG I 0 ATTR) &`HAo@ hY@IHX(23Q ERROR) (2 \NSFILING.ATTRIBUTES) ( 17Q "Unknown Filing attribute") \LISP.TO.NSFILING.ATTRIBUTE D1 (P 0 X I 1 VALUE I 0 ATTRIBUTE) @dggbA WAl OggbA =Al 5@dggbA Al ggbAd% jb@Ah@` X @` h(206Q ASSOC 174Q ASSOC 151Q \FILETYPE.FROM.TYPE 124Q \LISPERROR 114Q IDATE 67Q \LISPERROR 57Q IDATE 35Q \LISPERROR 25Q IDATE) (203Q \NSFILING.ATTRIBUTES 171Q \LISP.TO.NSFILING.ATTRIBUTES 137Q FILE.TYPE 131Q TYPE 105Q CREATED.ON 76Q CREATIONDATE 50Q READ.ON 42Q READDATE 16Q MODIFIED.ON 7 WRITEDATE) () \NSFILING.OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 FILENAME) D@ABihC (12Q \NSFILING.GETFILE) NIL () \NSFILING.GETFILEA0001 D1 (NAME ERRORSET F 0 DEVICE F 1 FILENAME F 2 ACCESS F 3 PARAMETERS F 4 RECOG F 5 DIROK F 6 NOERROR F 7 OPTION F 10Q RESETY)  PQRTVWSU ci(14Q \NSFILING.GETFILE1) NIL () \NSFILING.GETFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 7 DIROK I 6 PARAMETERS I 5 OPTION I 4 NOERROR I 3 RECOG I 2 ACCESS I 1 FILENAME I 0 DEVICE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.GETFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.GETFILEA0001)) \NSFILING.GETFILE1 D1 (P 20Q PAIR P 16Q TAIL P 15Q FULLNAME P 14Q FILESTREAM P 13Q HANDLE P 12Q SESSIONHANDLE P 11Q FILE.ID P 10Q DESIRED.INFO P 7 CACHE P 6 CONNECTION P 5 VERSION P 4 HOST P 3 DIRECTORY P 2 NAME P 1 RESETSAVER P 0 DEVINFO I 7 DIROK I 6 PARAMETERS I 5 OPTION I 4 NOERROR I 3 RECOG I 2 ACCESS I 1 FILENAME I 0 DEVICE) c@(Eggo A'H_AhEg AEdg(Ag@I ^5A_EEgigOEgO_@I ^BhdOdgOmdgO_dg#OQOoFJoO 7g1O ]3 JoM kJ jKoM hyJ jJ @I dwEgG_@I ^dK NNgN _g `Ng _gNONO@lFDAl* EgNKhF NKhCgBggh mO*MONJMhi OO NJC`M _O)Mkh_EdgRCgGNJMhi _ dgO _?g9CgCgCdgO gMh__O kؽC O_OhN_ORNNggOhh`hOg _yONNgO`O _iQBgLCCgCg=NNgN gJhgMhF hdOg _EN DhAl OgO_gNOJMhi _hO_OHOE(Bdg[NNgOhOg jdgO'gOEgNONO@lFONO g#O%NNgOhdOg Bl _d4` O` o` O` Al OOONOOOOO@O(2075Q \LISPERROR 2066Q PRIN1 2053Q PRIN1 2040Q PRIN1 2025Q TERPRI 2010Q \LISPERROR 2001Q COURIER.CALL 1731Q \NSFILING.CLOSE.HANDLE 1720Q SHOULDNT 1636Q COURIER.CALL 1542Q \NSFILING.FULLNAME 1476Q \LISPERROR 1456Q \CLOSEFILINGCONNECTION 1444Q COURIER.CALL 1427Q \APPEND2 1424Q \NSFILING.OPENFILE.OPTIONS 1321Q COURIER.CALL 1255Q COURIER.CALL 1151Q \ILLEGAL.ARG 1030Q \NSFILING.FULLNAME 750Q \NSFILING.FIND.VERSION 722Q \NSFILING.FULLNAME 672Q \NSFILING.CONNECT 642Q \NSFILING.CONNECT 623Q \LISPERROR 556Q COURIER.CALL 535Q \FILING.ATTRIBUTE.TYPE 472Q \NSFILING.CONNECT 460Q \GETFILINGCONNECTION 434Q \GETFILINGCONNECTION 426Q \NSFILING.REMOVEQUOTES 417Q NCHARS 376Q CONCAT 362Q NCHARS 347Q CONCAT 331Q MKATOM 311Q CONCAT 172Q \GETFILINGCONNECTION 112Q \GETFILINGCONNECTION 52Q UNPACKFILENAME.STRING) (2063Q PROMPTWINDOW 2050Q PROMPTWINDOW 2035Q PROMPTWINDOW 2022Q PROMPTWINDOW 1775Q RETURNERRORS 1764Q REPLACE 1757Q FILINGSESSION 1751Q FILINGSESSION 1736Q OUTPUT 1702Q FILINGSESSION 1670Q HANDLE 1656Q ATTRIBUTES 1644Q NAME 1632Q RETURNERRORS 1622Q RETRIEVE 1615Q FILINGSESSION 1607Q FILINGSESSION 1577Q INPUT 1525Q FULLNAME 1506Q FULLNAME 1440Q RETURNERRORS 1414Q VERSION 1405Q NAME 1400Q FILINGSESSION 1374Q STORE 1367Q FILINGSESSION 1361Q FILINGSESSION 1352Q OLD/NEW 1344Q NEW 1333Q OUTPUT 1313Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 1306Q GET.ATTRIBUTES 1301Q FILINGSESSION 1273Q FILINGSESSION 1251Q NOERROR 1243Q \NSFILING.NULL.HANDLE 1231Q FILE.ID 1226Q OPEN 1221Q FILINGSESSION 1213Q FILINGSESSION 1176Q FILINGSESSION 1120Q NEW 1104Q OLD/NEW 1075Q OLDEST 1067Q OLD 1060Q VERSION 1041Q FILE.ID 1012Q NEW 1000Q NAME 743Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 665Q CREATE 660Q INPUT 652Q OLD 631Q DIRECTORY 575Q FILINGSESSION 552Q NOERROR 545Q FILINGSESSION 540Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 532Q NUMBER.OF.CHILDREN 523Q FILINGSESSION 517Q GET.ATTRIBUTES 512Q FILINGSESSION 504Q FILINGSESSION 444Q DIRECTORY 317Q VERSION 250Q EXTENSION 232Q NAME 214Q DIRECTORY 156Q DIRECTORY 145Q ATTRIBUTES 131Q HANDLE 102Q FILE.ID 71Q NAME 46Q DIRECTORY 16Q \NSFILING.CLOSE.IF.ERROR 12Q \NSFILING.RESETCLOSE 3 FDEV) ( 2045Q ": " 372Q "!" 343Q "." 302Q "." 272Q "" 22Q "") \NSFILING.ERRORHANDLERA0001 D1 (NAME ERRORSET F 0 NEWSTREAM F 1 OLDPTR) PQ i(4 SETFILEPTR) NIL () \NSFILING.ERRORHANDLER D1 (P 7 \INTERRUPTABLE P 6 POS P 5 CON P 4 OLDPTR P 3 FULLNAME P 2 NEWSTREAM P 1 FAILCNT P 0 PRINTFLG I 1 ERRCODE I 0 STREAM) `jRAg@[9g g ^H` o` Nd N i @ gdH;` o` K` o` @ \` k` @@gg@Kggi ZHo` J ]gFo IkYlHo` MgF@J  @J@J@J@J@J@JM@8@J@J@JHo` iHo` @A (701Q \SPP.DEFAULT.ERRORHANDLER 673Q PRIN1 655Q PRIN1 410Q PRIN1 356Q \NSFILING.ERRORHANDLERA0001 326Q PRIN1 305Q \NSFILING.GETFILE 226Q SPACES 216Q PRIN1 207Q GETFILEPTR 202Q PRIN1 167Q PRIN1 157Q PRIN1 144Q TERPRI 123Q \GETACCESS 115Q RETAPPLY 111Q STKARGS 105Q STKNAME 77Q PRIN1 64Q TERPRI 46Q STKPOS 36Q STKPOS) (670Q PROMPTWINDOW 652Q PROMPTWINDOW 634Q STREAM 630Q STREAM 617Q STREAM 613Q STREAM 602Q STREAM 576Q STREAM 566Q SPPCON 555Q STREAM 551Q STREAM 540Q STREAM 534Q STREAM 523Q STREAM 517Q STREAM 506Q STREAM 502Q STREAM 471Q STREAM 465Q STREAM 454Q STREAM 450Q STREAM 437Q STREAM 433Q STREAM 421Q \NSFILING.ERRORHANDLER 416Q SPPCON 405Q PROMPTWINDOW 344Q ERROR! 341Q SPPCON 333Q STREAM 323Q PROMPTWINDOW 300Q OLD 275Q INPUT 264Q STREAM 260Q FILE.ID 253Q FILING 246Q FILINGSESSION 241Q STREAM 233Q STREAM 223Q PROMPTWINDOW 213Q PROMPTWINDOW 177Q PROMPTWINDOW 164Q PROMPTWINDOW 154Q PROMPTWINDOW 141Q PROMPTWINDOW 126Q INPUT 74Q PROMPTWINDOW 61Q PROMPTWINDOW 43Q \NSFILING.GENERATEFILES1 33Q \NSFILING.GETFILE1 23Q STREAM 12Q STREAM.LOST 2 NSFILING.SHOW.STATUS) ( 665Q "...failed.]" 647Q "done.]" 402Q "failed, retrying " 353Q (\NSFILING.ERRORHANDLERA0001) 320Q "..." 174Q " at byte " 151Q "[Reestablishing connection to " 71Q "[Lost connection, restarting]") \NSFILING.MANIPULATE.HANDLEA0001 D1 (NAME ERRORSET P 0 STREAM F 1 CONNECTION F 2 RESETVARSLST F 3 RESETY F 4 HANDLE F 5 USERFN) /QhiQ HgHhhhRcQTHlUci(12Q COURIER.OPEN) (23Q SPP.CLOSE) () \NSFILING.MANIPULATE.HANDLE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 USERFN I 1 HANDLE I 0 CONNECTION F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.MANIPULATE.HANDLEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.MANIPULATE.HANDLEA0001)) \NSFILING.FIND.VERSION D1 (P 7 DUPLICATE P 6 INFO P 5 DATE P 4 V P 3 ALST P 2 NEWESTDATE P 1 EXTREMAL.VERSION I 4 DESIREDVERSION I 3 DESIREDPROPS I 2 RECOG I 1 NAME I 0 CONNECTION) @ACD D BgnjjSH;O` o` @AI ` o` BgmhgK \WDLDhBgLIILAN:LdI5DBdghgi_hii_gK ]MJMLKHX^o` N(310Q PRIN1 251Q ASSOC 136Q ASSOC 113Q PRIN1 100Q PRIN1 72Q \NSFILING.FULLNAME 63Q PRIN1 50Q TERPRI 6 \NSFILING.LISTVERSIONS) (305Q PROMPTWINDOW 245Q CREATED.ON 223Q OLDEST 213Q NEW 157Q OLDEST 132Q VERSION 120Q OLDEST 110Q PROMPTWINDOW 75Q PROMPTWINDOW 60Q PROMPTWINDOW 45Q PROMPTWINDOW 15Q OLDEST) ( 302Q "; using most recent" 105Q " exist" 55Q "Multiple instances of file ") \NSFILING.OPENFILE.OPTIONS D1 (L (0 ALIST)) .@AHI\LL J KhZHXK&(26Q \LISP.TO.NSFILING.ATTRIBUTE) NIL () \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 5 INFO P 4 CONNECTION P 3 HANDLE P 2 NEWHANDLE P 1 ABORTFLG P 0 CON F 7 FILESTREAM F 10Q OPTIONS F 11Q RESETVARSLST F 12Q RESETY) W WgW gWiRHHgFWI ZWW\gJgLhhhWcJgUWRlj%WRljMW4WkN:I6oJoJ W KL o hci(324Q \NSFILING.CLOSEFILEA0001A0003 313Q SPP.OPENP 275Q ERROR 263Q CONCAT 62Q \BULK.DATA.CLOSE) (306Q FILINGSESSION 270Q STREAM 224Q FDEV 217Q STREAM 200Q STREAM 161Q STREAM 151Q ERROR 126Q \NSFILING.RESETCLOSE 115Q ERROR 102Q STREAM 72Q STREAM 51Q ERROR! 46Q SPPCON 26Q ABORT 13Q ABORT 4 STREAM) ( 321Q (\NSFILING.CLOSEFILEA0001A0003) 254Q " -- " 245Q "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.CLOSE.HANDLE D1 (I 1 HANDLE I 0 CONNECTION) @@gA@g (23Q COURIER.CALL) (17Q NOERROR 10Q CLOSE) () \NSFILING.FULLNAME D1 (P 17Q DIR P 13Q VERS P 12Q CH P 11Q START P 10Q I P 6 ALREADYQUOTED P 5 DOTSEEN P 4 FUNNYCHAR P 3 PATHNAME P 2 FULLNAME P 1 DIRLST P 0 FILENAME I 4 ATOMFLG I 3 DIRECTORYFLG I 2 VERSION I 1 NAMEORINFO I 0 CONNECTION) AdGAd_dgOb+dgObdgKOgOKkd" KO)_5KOOCOOlKOk)Ok ChKIhl!O_Odl'Ok_ql/8KOOOk Ih_Ok_hJOlKOk)l1OOl;$Ol:Ol<Ol>Ol}Odl]il.iOk_6KXI i@ CHIHh hg@oh0I$dON gh_O&O__OHoMoN _OoBoh ZDd J(706Q MKATOM 703Q U-CASE 674Q CONCATLIST 671Q \NCONC2 666Q \NCONC2 635Q LAST 630Q \NSFILING.ADDQUOTES 547Q \NSFILING.ADDQUOTES 502Q \APPEND2 453Q REVERSE 300Q SUBSTRING 202Q SUBSTRING) (552Q > 514Q FILINGSESSION 510Q { 464Q FILINGSESSION 100Q PATHNAME 62Q NAME 42Q VERSION 22Q IS.DIRECTORY) ( 657Q "" 650Q ".;" 622Q ";" 613Q "" 522Q "}<") \NSFILING.EVENTFN D1 (I 1 EVENT I 0 DEVICE) 2Adg@(i gAgAgAg@ (57Q \REMOVEDEVICE 21Q \NSFILING.CLOSE.CONNECTIONS) (50Q AFTERSYSOUT 42Q AFTERMAKESYS 34Q AFTERSAVEVM 25Q AFTERLOGOUT 13Q FDEV 4 BEFORELOGOUT) () \NSFILING.DELETEFILEA0001 D1 (P 0 DIRP I 4 DEVICE I 3 ATTRS I 2 STREAM I 1 HANDLE I 0 CONNECTION) qgC HgC jh@@gA@g CD(D(hHgC C b@Chdi HA@ @` @h (131Q \NSFILING.FULLNAME 115Q DREMOVE 111Q ASSOC 57Q COURIER.CALL 24Q ASSOC 6 ASSOC) (146Q \NSFILING.NULL.HANDLE 105Q NAME 53Q RETURNERRORS 44Q DELETE 20Q NUMBER.OF.CHILDREN 2 IS.DIRECTORY) () \NSFILING.DELETEFILE D1 (I 1 DEVICE I 0 FILENAME) A@ggiggi (23Q \NSFILING.GETFILE) (16Q \NSFILING.DELETEFILEA0001 13Q HANDLE 7 OLDEST 4 NONE) () \NSFILING.HOSTNAMEP D1 (P 2 FULLHOSTNAME P 1 FILINGNAME P 0 SERVER I 1 DEVICE I 0 HOST F 5 \SPP.BULKDATA.DEVICE) o@ @ AHdi Zid Ho YJ`U dJdgdgdgdg dgdg2dgdgdgdgdg dgHhI IhdK(U*dL*b A(300Q \DEFINEDEVICE 243Q CREATE.MONITORLOCK 104Q NCREATE2 73Q PACK* 47Q \GETDEVICEFROMNAME 41Q MKATOM 36Q U-CASE 33Q NSNAME.TO.STRING 15Q \NSFILING.FINDSERVER 7 STRPOS) (263Q FDEV 232Q \NSFILING.EVENTFN 223Q \NSFILING.GENERATEFILES 214Q \NSFILING.DIRECTORYNAMEP 205Q \NSFILING.GETFILENAME 176Q NILL 167Q \NSFILING.DELETEFILE 160Q \NSFILING.GETEOFPTR 151Q \NSFILING.SETFILEINFO 142Q \NSFILING.GETFILEINFO 133Q \NSFILING.CLOSEFILE 124Q NILL 115Q \NSFILING.OPENFILE 100Q FDEVTYPE# 62Q NSNAME) ( 70Q " Filing" 3 ":") \NSFILING.DIRECTORYNAMEP D1 (I 2 CREATE? I 1 DEVICE I 0 HOST/DIR) A@ghigBg (23Q \NSFILING.GETFILE) (17Q ASK 11Q DIRECTORY 4 NONE) () \NSFILING.GETFILENAME D1 (I 2 DEVICE I 1 RECOG I 0 NAME) B@gAig (15Q \NSFILING.GETFILE) (11Q NAME 4 NONE) () \NSFILING.GETFILEINFO D1 (P 1 INFO P 0 DESIREDPROPS I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) 0AdgoXB@g ` Ai XdU` HhB@g :@d`B@ggig @B@ggig ZJYdA (176Q \NSFILING.GETFILEINFO.FROM.PLIST 163Q \NSFILING.GETFILE 132Q \NSFILING.GETFILE 76Q \NSFILING.GET/SETINFO 61Q MEMB 47Q \FILING.ATTRIBUTE.TYPE 36Q ASSOC 27Q \NSFILING.GET/SETINFO) (157Q ATTRIBUTES 153Q OLD 150Q NONE 126Q ATTRIBUTES 122Q OLD 117Q NONE 106Q STREAMTYPE# 73Q \NSFILING.GET.ATTRIBUTES 56Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 33Q \LISP.TO.NSFILING.ATTRIBUTES 24Q \NSFILING.GET.ATTRIBUTES 7 ALL) ( 16Q (-1)) \NSFILING.GET.ATTRIBUTES D1 (I 2 STREAM I 1 HANDLE I 0 CONNECTION F 0 DESIREDPROPS) B@@gAP@ (24Q COURIER.CALL) (13Q GET.ATTRIBUTES) () \NSFILING.GETFILEINFO.FROM.PLIST D1 (P 0 CHNAME I 1 ATTRIBUTE I 0 PLIST) @Adgg@  gg@  Adgg@  gg@ donAdgg@ HdO gg@ d:Adgg@  gg@ A` A@ (277Q ASSOC 266Q ASSOC 254Q ASSOC 237Q \TYPE.FROM.FILETYPE 232Q ASSOC 204Q ASSOC 167Q NSNAME.TO.STRING 153Q ASSOC 117Q ASSOC 101Q \NSFILING.GDATE 74Q ASSOC 54Q \NSFILING.GDATE 47Q ASSOC 32Q \NSFILING.GDATE 25Q ASSOC) (263Q \LISP.TO.NSFILING.ATTRIBUTES 250Q FILE.TYPE 243Q FILETYPE 226Q FILE.TYPE 220Q TYPE 200Q ACCESS.LIST 173Q PROTECTION 147Q CREATED.BY 140Q AUTHOR 113Q SIZE.IN.BYTES 105Q SIZE 70Q CREATED.ON 62Q CREATIONDATE 43Q READ.ON 36Q READDATE 21Q MODIFIED.ON 13Q WRITEDATE) () \NSFILING.GDATE D1 (I 0 DATE) @do@ h(14Q GDATE) NIL ( 6 -20000000000Q) \NSFILING.SETFILEINFOA0001 D1 (I 4 DEVICE I 3 INFO I 2 COURIERSTREAM I 1 HANDLE I 0 CONNECTION F 0 NAME.OR.STREAM F 1 ATTR/VAL) ;B@@gAQh@g P`PhDCD(D(hi(31Q COURIER.CALL) (40Q STREAMTYPE# 25Q RETURNERRORS 13Q CHANGE.ATTRIBUTES) () \NSFILING.SETFILEINFO D1 (P 1 RESULT P 0 ATTR/VAL I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 NAME.OR.STREAM) JAB H?C@g Ydd1` @d`` o` I` h(106Q PRIN1 73Q PRIN1 60Q PRIN1 37Q TERPRI 22Q \NSFILING.GET/SETINFO 4 \LISP.TO.NSFILING.ATTRIBUTE) (103Q PROMPTWINDOW 70Q PROMPTWINDOW 55Q PROMPTWINDOW 46Q STREAMTYPE# 34Q PROMPTWINDOW 17Q \NSFILING.SETFILEINFOA0001) ( 65Q " -- ") \NSFILING.GET/SETINFO D1 (P 1 HANDLE P 0 FILENAME I 2 INFOFN I 1 STREAM I 0 DEVICE) 2AA`AAYAIB @HggigBi (57Q \NSFILING.GETFILE 34Q \NSFILING.MANIPULATE.HANDLE) (51Q HANDLE 45Q OLD 42Q NONE 10Q STREAMTYPE#) () \NSFILING.GENERATEFILESA0001 D1 (NAME ERRORSET F 0 DEVICE F 1 PATTERN F 2 RESETY F 3 DESIREDPROPS F 4 OPTIONS) PQST ci(6 \NSFILING.GENERATEFILES1) NIL () \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.GENERATEFILES1 D1 (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 I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 23Q CONNECTION F 24Q RESETVARSLST F 25Q BULKSTREAM) Oo A yd OdgOY`dgO\RdgOZDdg0Od5H JoO ZJm)l*JH ZgO [gL _?j gLOk _OOO_LOkO Ojh LkOk \@ dxc&gW&hhhW(c(W&Li XBAO#ObW&gFlDd b_$` O$i _$_"O O"h_ _O_O"&_ l oB bgJ JH ggJggJhghhMKdggKhghhM]MgMdgMhhN`)L&W&gg` i_nhNW&W&gW& BNhW& c*gghW*gg _A _W&OOOh(1071Q DIRECTORY.MATCH.SETUP 1062Q BULKDATA.GENERATOR 1036Q COURIER.CALL 562Q STREQUAL 554Q STRPOS 542Q \APPEND2 464Q \FILING.ATTRIBUTE.TYPE 452Q ASSOC 434Q INTERSECTION 361Q \NSFILING.CONNECT 322Q \GETFILINGCONNECTION 314Q SUBSTRING 272Q SUBSTRING 240Q STRPOS 215Q STRPOS 176Q MKATOM 160Q CONCAT 137Q CONCAT 122Q STREQUAL 12Q UNPACKFILENAME.STRING) (1057Q ATTRIBUTE.SEQUENCE 1054Q FILING 1046Q \NSFILING.FILEINFOFN 1043Q \NSFILING.NEXTFILE 1030Q FILINGSESSION 1016Q FILINGSESSION 1011Q LIST 1004Q FILINGSESSION 775Q FILINGSESSION 747Q FILING.ENUMERATION.DEPTH 744Q DEPTH 736Q FILING 731Q FILINGSESSION 717Q FILING.ENUMERATION.DEPTH 700Q AND 670Q FILTER 650Q CARDINAL 641Q VERSION 636Q = 611Q STRING 602Q NAME 577Q = 572Q NAME 567Q MATCHES 550Q * 447Q \LISP.TO.NSFILING.ATTRIBUTES 421Q FILING 414Q FILINGSESSION 334Q \NSFILING.CLOSE.IF.ERROR 230Q > 211Q * 165Q VERSION 101Q EXTENSION 63Q NAME 45Q DIRECTORY 27Q HOST) ( 536Q (22Q 5) 130Q "." 3 "*") \NSFILING.NEXTFILE D1 (P 5 NAME P 4 INFO P 3 IGNOREDIRS P 2 FILTER P 1 CONNECTION P 0 GENERATOR I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) H@@@@$H \hKgL IL JJM @LAMi M(103Q NAMEFIELD 66Q DIRECTORY.MATCH 56Q \NSFILING.FULLNAME 45Q ASSOC 30Q BULKDATA.GENERATE.NEXT) (41Q IS.DIRECTORY) () \NSFILING.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) @A (5 \NSFILING.GETFILEINFO.FROM.PLIST) NIL () \NSFILING.GETEOFPTR D1 (I 0 STREAM) @Rlj@ @g (25Q \NSFILING.GETFILEINFO 15Q GETFILEPTR) (22Q LENGTH) () \NSFILING.INIT D1 NIL eh`dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$dg (142Q \DEFINEDEVICE) (134Q NILL 125Q \GENERIC.READP 116Q NILL 107Q \IS.NOT.RANDACCESSP 100Q \ILLEGAL.DEVICEOP 71Q \IS.NOT.RANDACCESSP 62Q \ILLEGAL.DEVICEOP 53Q \GENERIC.BINS 44Q \GENERIC.BOUTS 35Q \GENERIC.RENAMEFILE 26Q NILL 17Q \NSFILING.HOSTNAMEP 10Q NSFILING 3 FDEVTYPE#) () (PRETTYCOMPRINT NSFILINGCOMS) (RPAQQ NSFILINGCOMS ((* Filing Protocol) (COURIERPROGRAMS FILING OLDFILING) (DECLARE: DONTCOPY ( CONSTANTS * NSFILINGCONSTANTS) (RECORDS NSFILINGSTREAM FILINGSESSION NSFILESERVER NSFILINGDEVICEINFO \NSFILING.GENFILESTATE) (MACROS FILING.CALL) (GLOBALVARS \NSFILING.CONNECTIONS \NSFILING.DEVICE \NSFILING.NULL.HANDLE \NSFILING.ATTRIBUTES \LISP.TO.NSFILING.ATTRIBUTES \NSFILING.USEFUL.ATTRIBUTE.TYPES \NSFILING.PROGRAM.NAME FILING.ENUMERATION.DEPTH NSFILING.SHOW.STATUS) ) (INITRECORDS FILINGSESSION) (COMS (FNS \GET.FILING.ATTRIBUTE \PUT.FILING.ATTRIBUTE) (PROP COURIERDEF FILING.ATTRIBUTE) (DECLARE: EVAL@COMPILE DOCOPY (VARS \NSFILING.NULL.HANDLE \NSFILING.ATTRIBUTES \LISP.TO.NSFILING.ATTRIBUTES (\NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON PATHNAME NAME READ.ON SIZE.IN.BYTES FILE.TYPE VERSION))) )))) (INITVARS (NSFILING.SHOW.STATUS T) (FILING.ENUMERATION.DEPTH T) (\NSFILING.LOCK ( CREATE.MONITORLOCK (QUOTE NSFILING))) (\NSFILING.CONNECTIONS NIL) (\NSFILING.PROGRAM.NAME (QUOTE FILING))) (FNS \GETFILINGCONNECTION \NSFILING.FINDSERVER \OPENFILINGCONNECTION \NSFILING.LOGIN \NSFILING.SET.CONTINUANCE \CLOSEFILINGCONNECTION \NSFILING.LOGOUT \NSFILING.RESETCLOSE \NSFILING.CLOSE.IF.ERROR \VALID.FILING.CONNECTIONP \NSFILING.CLOSE.CONNECTIONS BREAK.NSFILING.CONNECTION) (FNS \NSFILING.CONNECT \NSFILING.MAYBE.CREATE \PATHNAME.TO.DIRECTORY.LIST \NSFILING.EXTRACT.SUBDIR \NSFILING.LISTVERSIONS \NSFILING.REMOVEQUOTES \NSFILING.ADDQUOTES \FILING.ATTRIBUTE.TYPE.SEQUENCE \FILING.ATTRIBUTE.TYPE \LISP.TO.NSFILING.ATTRIBUTE) (FNS \NSFILING.OPENFILE \NSFILING.GETFILE \NSFILING.GETFILE1 \NSFILING.ERRORHANDLER \NSFILING.MANIPULATE.HANDLE \NSFILING.FIND.VERSION \NSFILING.OPENFILE.OPTIONS \NSFILING.CLOSEFILE \NSFILING.CLOSE.HANDLE \NSFILING.FULLNAME \NSFILING.EVENTFN \NSFILING.DELETEFILE \NSFILING.HOSTNAMEP \NSFILING.DIRECTORYNAMEP \NSFILING.GETFILENAME \NSFILING.GETFILEINFO \NSFILING.GET.ATTRIBUTES \NSFILING.GETFILEINFO.FROM.PLIST \NSFILING.GDATE \NSFILING.SETFILEINFO \NSFILING.GET/SETINFO \NSFILING.GENERATEFILES \NSFILING.GENERATEFILES1 \NSFILING.NEXTFILE \NSFILING.FILEINFOFN \NSFILING.GETEOFPTR) (COMS (FNS \NSFILING.INIT) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\NSFILING.INIT))))) ) (COURIERPROGRAM FILING (10 4) TYPES ((ATTRIBUTE.TYPE LONGCARDINAL) (ATTRIBUTE.TYPE.SEQUENCE (SEQUENCE ATTRIBUTE.TYPE)) (ATTRIBUTE FILING.ATTRIBUTE) (ATTRIBUTE.SEQUENCE (SEQUENCE FILING.ATTRIBUTE)) ( CONTROL.TYPE (ENUMERATION (LOCK 0) (TIMEOUT 1))) (CONTROL.TYPE.SEQUENCE (SEQUENCE CONTROL.TYPE)) ( CONTROL (CHOICE (LOCK 0 LOCK) (TIMEOUT 1 TIMEOUT))) (CONTROL.SEQUENCE (SEQUENCE CONTROL)) (LOCK ( ENUMERATION (NONE 0) (SHARE 1) (EXCLUSIVE 2))) (TIMEOUT CARDINAL) (SCOPE.TYPE (ENUMERATION (COUNT 0) ( DIRECTION 1) (FILTER 2) (DEPTH 3))) (SCOPE (CHOICE (COUNT 0 CARDINAL) (DIRECTION 1 DIRECTION) (FILTER 2 FILTER) (DEPTH 4 CARDINAL))) (SCOPE.SEQUENCE (SEQUENCE SCOPE)) (DIRECTION (ENUMERATION (FORWARD 0) ( BACKWARD 1))) (FILTER (CHOICE (LT 0 FILTER.ATTRIBUTE) (LE 1 FILTER.ATTRIBUTE) (= 2 FILTER.ATTRIBUTE) ( ~= 3 FILTER.ATTRIBUTE) (GE 4 FILTER.ATTRIBUTE) (GT 5 FILTER.ATTRIBUTE) (AND 6 (SEQUENCE FILTER)) (OR 7 (SEQUENCE FILTER)) (NOT 8 FILTER) (NONE 9 NIL) (ALL 10 NIL) (MATCHES 11 ATTRIBUTE))) ( FILTER.ATTRIBUTE (RECORD (ATTRIBUTE FILING.ATTRIBUTE) (INTERPRETATION INTERPRETATION))) ( INTERPRETATION (ENUMERATION (NONE 0) (BOOLEAN 1) (CARDINAL 2) (LONGCARDINAL 3) (TIME 4) (INTEGER 5) ( LONGINTEGER 6) (STRING 7))) (CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (HANDLE (ARRAY 2 UNSPECIFIED) ) (SESSION (RECORD (TOKEN (ARRAY 2 UNSPECIFIED)) (VERIFIER VERIFIER))) (VERIFIER (AUTHENTICATION . VERIFIER)) (SIMPLE.VERIFIER (AUTHENTICATION . SIMPLE.VERIFIER)) (FILE.ID (ARRAY 5 UNSPECIFIED)) (USER (CLEARINGHOUSE . NAME)) (ORDERING (RECORD (KEY ATTRIBUTE.TYPE) (ASCENDING BOOLEAN) (INTERPRETATION INTERPRETATION))) (ACCESS.LIST (RECORD (ENTRIES (SEQUENCE ACCESS.ENTRY)) (DEFAULTED BOOLEAN))) ( ACCESS.ENTRY (RECORD (KEY (CLEARINGHOUSE . NAME)) (TYPE (ENUMERATION (INDIVIDUAL 0) (ALIAS 1) (GROUP 2 ) (OTHER 3))) (ACCESS UNSPECIFIED))) (ARGUMENT.PROBLEM (ENUMERATION (Illegal 0) (Disallowed 1) ( Unreasonable 2) (Unimplemented 3) (Duplicated 4) (Missing 5))) (ACCESS.PROBLEM (ENUMERATION ( AccessRightsInsufficient 0) (AccessRightsIndeterminate 1) (FileChanged 2) (FileDamaged 3) (FileInUse 4 ) (FileNotFound 5) (FileOpen 6))) (CONNECTION.PROBLEM (ENUMERATION (NoRoute 0) (NoResponse 1) ( TransmissionHardware 2) (TransportTimeout 3) (TooManyLocalConnections 4) (TooManyRemoteConnections 5) (MissingCourier 6) (MissingProgram 7) (MissingProcedure 8) (ProtocolMismatch 9) ( ParameterInconsistency 10) (InvalidMessage 11) (ReturnTimedOut 12) (Other 65535))) (HANDLE.PROBLEM ( ENUMERATION (Invalid 0) (NullDisallowed 1) (DirectoryRequired 2))) (INSERTION.PROBLEM (ENUMERATION ( PositionUnavailable 0) (FileNotUnique 1) (LoopInHierarchy 2))) (SERVICE.PROBLEM (ENUMERATION ( CannotAuthenticate 0) (ServiceFull 1) (ServiceUnavailable 2) (SessionInUse 3) (UnknownService 4))) ( SESSION.PROBLEM (ENUMERATION (TokenInvalid 0))) (SPACE.PROBLEM (ENUMERATION (AllocationExceeded 0) ( AttributeAreaFull 1) (MediumFull 2))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) (ChecksumIncorrect 1) (FormatIncorrect 2) (NoRendezvous 3) (WrongDirection 4)))) PROCEDURES ((LOGON 0 ((CLEARINGHOUSE . NAME) CREDENTIALS VERIFIER) RETURNS (SESSION) REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (LOGOFF 1 (SESSION) RETURNS NIL REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CONTINUE 19 (SESSION) RETURNS (CARDINAL) REPORTS ( AUTHENTICATION.ERROR SESSION.ERROR UNDEFINED.ERROR)) (OPEN 2 (ATTRIBUTE.SEQUENCE HANDLE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CLOSE 3 (HANDLE SESSION) RETURNS NIL REPORTS (AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CREATE 4 (HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (DELETE 5 (HANDLE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (GET.ATTRIBUTES 8 (HANDLE ATTRIBUTE.TYPE.SEQUENCE SESSION) RETURNS (ATTRIBUTE.SEQUENCE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) ( CHANGE.ATTRIBUTES 9 (HANDLE ATTRIBUTE.SEQUENCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (COPY 10 (HANDLE HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (MOVE 11 (HANDLE HANDLE ATTRIBUTE.SEQUENCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (STORE 12 (HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE BULK.DATA.SOURCE SESSION) RETURNS (HANDLE) REPORTS ( ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (RETRIEVE 13 (HANDLE BULK.DATA.SINK SESSION) RETURNS NIL REPORTS ( ACCESS.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (REPLACE 14 (HANDLE ATTRIBUTE.SEQUENCE BULK.DATA.SOURCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SESSION.ERROR SPACE.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (FIND 17 (HANDLE SCOPE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR SCOPE.TYPE.ERROR SCOPE.VALUE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (LIST 18 (HANDLE ATTRIBUTE.TYPE.SEQUENCE SCOPE.SEQUENCE BULK.DATA.SINK SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SCOPE.TYPE.ERROR SCOPE.VALUE.ERROR SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR))) ERRORS ((ATTRIBUTE.TYPE.ERROR 0 (ARGUMENT.PROBLEM ATTRIBUTE.TYPE)) ( ATTRIBUTE.VALUE.ERROR 1 (ARGUMENT.PROBLEM ATTRIBUTE.TYPE)) (CONTROL.TYPE.ERROR 2 (ARGUMENT.PROBLEM CONTROL.TYPE)) (CONTROL.VALUE.ERROR 3 (ARGUMENT.PROBLEM CONTROL.TYPE)) (SCOPE.TYPE.ERROR 4 ( ARGUMENT.PROBLEM SCOPE.TYPE)) (SCOPE.VALUE.ERROR 5 (ARGUMENT.PROBLEM SCOPE.TYPE)) (ACCESS.ERROR 6 ( ACCESS.PROBLEM)) (AUTHENTICATION.ERROR 7 ((AUTHENTICATION . PROBLEM))) (CONNECTION.ERROR 8 ( CONNECTION.PROBLEM)) (HANDLE.ERROR 9 (HANDLE.PROBLEM)) (INSERTION.ERROR 10 (INSERTION.PROBLEM)) ( SERVICE.ERROR 11 (SERVICE.PROBLEM)) (SESSION.ERROR 12 (SESSION.PROBLEM)) (SPACE.ERROR 13 ( SPACE.PROBLEM)) (TRANSFER.ERROR 14 (TRANSFER.PROBLEM)) (UNDEFINED.ERROR 15 (CARDINAL)))) (COURIERPROGRAM OLDFILING (10 2) INHERITS (FILING) PROCEDURES ((LOGON 0 (CREDENTIALS VERIFIER) RETURNS (SESSION) REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)))) (/DECLAREDATATYPE (QUOTE FILINGSESSION) (QUOTE (FLAG (BITS 7) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER)) (QUOTE ((FILINGSESSION 0 ( FLAGBITS . 0)) (FILINGSESSION 0 (BITS . 22)) (FILINGSESSION 0 POINTER) (FILINGSESSION 2 POINTER) ( FILINGSESSION 4 POINTER) (FILINGSESSION 6 POINTER) (FILINGSESSION 8 POINTER) (FILINGSESSION 10 POINTER ) (FILINGSESSION 12 POINTER) (FILINGSESSION 14 POINTER) (FILINGSESSION 16 POINTER) (FILINGSESSION 18 POINTER) (FILINGSESSION 20 (BITS . 15)) (FILINGSESSION 21 (BITS . 15)) (FILINGSESSION 22 POINTER) ( FILINGSESSION 24 POINTER) (FILINGSESSION 26 POINTER))) (QUOTE 28)) (PUTPROPS FILING.ATTRIBUTE COURIERDEF (\GET.FILING.ATTRIBUTE \PUT.FILING.ATTRIBUTE)) (RPAQQ \NSFILING.NULL.HANDLE (0 0)) (RPAQQ \NSFILING.ATTRIBUTES ((CHECKSUM 0 CARDINAL) (CHILDREN.UNIQUELY.NAMED 1 BOOLEAN) (CREATED.BY 2 USER) (CREATED.ON 3 TIME) (FILE.ID 4 FILE.ID) (IS.DIRECTORY 5 BOOLEAN) (IS.TEMPORARY 6 BOOLEAN) ( MODIFIED.BY 7 USER) (MODIFIED.ON 8 TIME) (NAME 9 STRING) (NUMBER.OF.CHILDREN 10 CARDINAL) (ORDERING 11 ORDERING) (PARENT.ID 12 FILE.ID) (POSITION 13 (SEQUENCE UNSPECIFIED)) (READ.BY 14 USER) (READ.ON 15 TIME) (SIZE.IN.BYTES 16 LONGCARDINAL) (FILE.TYPE 17 LONGCARDINAL) (VERSION 18 CARDINAL) (ACCESS.LIST 19 ACCESS.LIST) (DEFAULT.ACCESS.LIST 20 ACCESS.LIST) (PATHNAME 21 STRING))) (RPAQQ \LISP.TO.NSFILING.ATTRIBUTES ((IWRITEDATE MODIFIED.ON) (IREADDATE READ.ON) (ICREATIONDATE CREATED.ON) (CREATIONDATE CREATED.ON) (READDATE READ.ON) (WRITEDATE MODIFIED.ON) (LENGTH SIZE.IN.BYTES ) (AUTHOR CREATED.BY) (PROTECTION ACCESS.LIST) (SIZE SIZE.IN.BYTES) (TYPE FILE.TYPE) (FILETYPE FILE.TYPE))) (RPAQ \NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON PATHNAME NAME READ.ON SIZE.IN.BYTES FILE.TYPE VERSION)))) (RPAQ? NSFILING.SHOW.STATUS T) (RPAQ? FILING.ENUMERATION.DEPTH T) (RPAQ? \NSFILING.LOCK (CREATE.MONITORLOCK (QUOTE NSFILING))) (RPAQ? \NSFILING.CONNECTIONS NIL) (RPAQ? \NSFILING.PROGRAM.NAME (QUOTE FILING)) (\NSFILING.INIT) (PUTPROPS NSFILING COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL