(FILECREATED "15-Sep-84 15:57:38" ("compiled on " {ERIS}SOURCES>NSFILING.;8) "15-Sep-84 03:34:49" recompiled exprs: \OPENFILINGCONNECTION \NSFILING.SET.CONTINUANCE \NSFILING.CONNECT \NSFILING.GETFILE \NSFILING.CLOSEFILE in "INTERLISP-D 15-Sep-84 ..." dated "15-Sep-84 03:48:38") (FILECREATED "15-Sep-84 15:56:27" {ERIS}SOURCES>NSFILING.;8 66335 changes to: (FNS \NSFILING.GETFILE \NSFILING.CONNECT \OPENFILINGCONNECTION \NSFILING.SET.CONTINUANCE \NSFILING.CLOSEFILE) (VARS NSFILINGCOMS) previous date: "29-Aug-84 12:50:59" {ERIS}SOURCES>NSFILING.;7) \GET.FILING.ATTRIBUTE D1 (P 3 VALUE P 2 X P 1 TYPE I 2 TYPE 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 TYPE I 3 TYPE 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 L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 CONNECTION P 0 TAIL F 2 DEVINFO F 3 RESETY) SRhi RHRR YRIciHYjI RIR (115Q DREMOVE 76Q \VALID.FILING.CONNECTIONP 34Q \NSFILING.LOGIN 10Q OBTAIN.MONITORLOCK) (63Q FILINGSESSION) () \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) @@(V!Uog hg\ LKYAgIhhhUc I(47Q ERROR! 41Q RESETRESTORE 27Q \GETFILINGCONNECTIONA0001) (60Q \NSFILING.RESETCLOSE 35Q ERROR 24Q INTERNAL 3 FDEV) ( 21Q (DUMMY.FOR.ERRORSET)) \NSFILING.FINDSERVER D1 (I 0 SERVERNAME) @gi (7 LOOKUP.NS.SERVER) (3 FILESERVER) () \OPENFILINGCONNECTION D1 (P 0 STREAM I 0 CONNECTION) F@i @dgi@o XH@ @kkjh(66Q \NSFILING.SET.CONTINUANCE 54Q COURIER.OPEN 51Q PACK* 14Q SPP.CLOSE) (40Q NSNAME 33Q FILINGSESSION 26Q FILESERVER 21Q FILINGSESSION 6 FILINGSESSION) ( 46Q " Filing") \NSFILING.LOGINA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 CREDENTIALS F 1 STREAM F 2 PROGRAM F 3 SESSION F 4 RESETVARSLST F 5 RESETY F 6 SERVERNSNAME F 7 MSG) gQhhhTcP cRgQRgVPPg QggPPg c Q SdgRg%gcgggochcgc i(112Q SPP.CLOSE 102Q COURIER.CALL 56Q COURIER.CALL 23Q NS.MAKE.SIMPLE.CREDENTIALS) (203Q Fall 163Q AUTHENTICATION.ERROR 156Q Success 150Q ERROR 140Q OLDFILING 132Q FILING 122Q REJECT 76Q RETURNERRORS 67Q LOGON 64Q OLDFILING 52Q RETURNERRORS 42Q LOGON 32Q FILING 2 \SPP.CLOSE.IF.ERROR) ( 171Q "Login incorrect.") \NSFILING.LOGIN D1 (P 14Q RESETZ P 13Q RESETY P 12Q LISPXHIST P 11Q MSG 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 F 15Q LISPXHIST F 16Q RESETVARSLST) @`rH\i [HZ NeKOhOhg _Jhi@ ])W! Wog hg_ O` L` o` NgoK N `dJdLdKdMdNd` dkdI_d O(312Q \NSFILING.SET.CONTINUANCE 224Q ERROR 217Q CONCAT 174Q PRIN1 161Q PRIN1 151Q TERPRI 137Q ERROR! 130Q RESETRESTORE 115Q \NSFILING.LOGINA0001 71Q COURIER.OPEN 52Q \INTERNAL/GETPASSWORD 21Q MKATOM 16Q NSNAME.TO.STRING) (266Q \NSFILING.NULL.HANDLE 230Q FILINGSESSIONTYPE# 205Q ERROR 171Q PROMPTWINDOW 156Q PROMPTWINDOW 146Q PROMPTWINDOW 123Q ERROR 112Q INTERNAL 46Q NS 4 \NSFILING.PROGRAM.NAME) ( 213Q "Error while logging on to " 166Q " not responding to connection attempt" 107Q (DUMMY.FOR.ERRORSET)) \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)) \NSFILING.CONNECT D1 (P 20Q \INTERRUPTABLE P 17Q NEW.DIR P 15Q 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 21Q DWIMWAIT) Ad @ @@ DHI H1B,K`#Hd@g0 Hd_gOh_O>O__O @@ggNhh`hJg \d _OgLgCdgWW"go@o0 Hdgh_O#O__O o  g _Oݡhi0@HA O_OduOid @@g@ gH hohJg \@ @L @H K`@@gKJ i_OOh__OoO&_H-H])I O iMXj_MM hO_K`%@@gK@`[ @h J B&H$@d@gh`hJg [ HOi_@@ggOhhKhJg \@L @d Oh  K`@@gKJ LO_(1266Q COURIER.CALL 1227Q \APPEND2 1176Q COURIER.CALL 1110Q COURIER.CALL 1044Q COURIER.CALL 760Q STREQUAL 653Q COURIER.CALL 567Q COURIER.CALL 545Q LAST 503Q \NSFILING.CONNECT 430Q LAST 420Q ASKUSER 415Q CONCAT 405Q CONCATLIST 245Q LAST 235Q COURIER.CALL 170Q CONCATLIST 40Q EQUAL 6 \PATHNAME.TO.DIRECTORY.LIST) (1260Q CLOSE 1253Q FILINGSESSION 1245Q FILINGSESSION 1236Q \NSFILING.NULL.HANDLE 1216Q FILINGSESSION 1172Q NOERROR 1155Q NAME 1152Q OPEN 1145Q FILINGSESSION 1137Q FILINGSESSION 1104Q NOERROR 1077Q \NSFILING.NULL.HANDLE 1073Q OPEN 1066Q FILINGSESSION 1060Q FILINGSESSION 1026Q \NSFILING.NULL.HANDLE 1021Q CLOSE 1014Q FILINGSESSION 1006Q FILINGSESSION 777Q \NSFILING.NULL.HANDLE 645Q CLOSE 640Q FILINGSESSION 632Q FILINGSESSION 623Q \NSFILING.NULL.HANDLE 602Q FILINGSESSION 563Q NOERROR 541Q NAME 534Q FILINGSESSION 530Q CREATE 523Q FILINGSESSION 515Q FILINGSESSION 423Q Y 351Q > 330Q FILINGSESSION 320Q Y 307Q ASK 273Q 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) ( 555Q ((IS.DIRECTORY T) (FILE.TYPE 1)) 411Q "? " 336Q "}<" 324Q "Create subdirectory {") \PATHNAME.TO.DIRECTORY.LIST D1 (P 4 END P 0 START I 0 PATHNAME) E@d< l{@g b*kA@Ho@H \dkLkظ J KhZLIK&(60Q SUBSTRING 44Q STRPOS 21Q FILENAMEFIELD 6 CHCON1) (16Q DIRECTORY) ( 37Q ">") \NSFILING.ENUMERATE D1 (I 2 FILTER I 1 ATTRIBUTES I 0 CONNECTION) !@@g@ ABo@ (36Q COURIER.CALL) (16Q LIST 11Q FILINGSESSION 3 FILINGSESSION) ( 27Q (FILING . ATTRIBUTE.SEQUENCE)) \NSFILING.LISTVERSIONS D1 (P 0 SCOPE I 3 DESIREDVERSION I 2 DESIREDPROPS I 1 FILENAME I 0 CONNECTION) lggAhghhCd gHggChghhhh@@g@ BgHhho@ (151Q COURIER.CALL) (143Q FILINGSESSION 125Q FILTER 117Q FILINGSESSION 113Q LIST 106Q FILINGSESSION 100Q FILINGSESSION 57Q CARDINAL 50Q VERSION 45Q = 41Q AND 14Q STRING 5 NAME 2 =) ( 137Q (FILING . ATTRIBUTE.SEQUENCE)) \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) @dgggg@dggbA Al b@Ahg(gbAdgjgkAdgͿl@` X @` h(171Q ASSOC 157Q ASSOC 63Q \LISPERROR 53Q IDATE) (166Q \NSFILING.ATTRIBUTES 154Q \LISP.TO.NSFILING.ATTRIBUTES 140Q TEXT 126Q DIRECTORY 115Q BINARY 105Q FILE.TYPE 77Q TYPE 44Q CREATED.ON 35Q CREATIONDATE 27Q READ.ON 22Q READDATE 15Q 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 P 17Q PAIR P 15Q TAIL P 14Q FULLNAME P 13Q FILESTREAM P 12Q HANDLE P 11Q SESSIONHANDLE P 10Q FILE.ID P 7 DESIRED.INFO P 6 CACHE P 5 CONNECTION P 4 VERSION P 3 NAME P 2 DIRECTORY P 1 HOST P 0 DEVINFO F 20Q OPTION F 21Q FILENAME F 22Q RECOG F 23Q DEVICE F 24Q ACCESS F 25Q NOERROR F 26Q RESETVARSLST F 27Q RESETY F 30Q PARAMETERS)  W&( H^ W" W"W dgW"dgNghwN_W& d OdgONdgO@dgO2KoO #gO \dKoL hKW gW*hW"l*W& W ggMhhhW,c,W gMJhg MJhW$gW(ggh O(LNMKLhi NNMKW$`L _O)Lkh_W dgtW$giMKLhi @_dgO_Ag;W$dgdgdgOgLh__OkؼW$ O_~W ddgiOhM_OTMMggOhh`hOg _OMMgO`O _iXW(gRW$ddgdgih;MMgM gKhgLhW0 hdOg _W M W*h W"l c.iOgO_gMKLhi _hO_HOW DOW dgMO W dgOdgOggOhOW(dg MMgOhOg 0g#O&MMgOhdOg W(l _d5` O` o` O` W"l OOOMOOOOOW&O(1673Q \LISPERROR 1663Q PRIN1 1650Q PRIN1 1635Q PRIN1 1622Q TERPRI 1605Q \LISPERROR 1575Q COURIER.CALL 1525Q COURIER.CALL 1456Q SHOULDNT 1400Q \NSFILING.INTERNAL.CLOSE 1331Q \NSFILING.FULLNAME 1265Q \LISPERROR 1247Q \CLOSEFILINGCONNECTION 1234Q COURIER.CALL 1217Q \NSFILING.OPENFILE.OPTIONS 1102Q COURIER.CALL 1034Q COURIER.CALL 712Q \ILLEGAL.ARG 565Q \NSFILING.FULLNAME 507Q \NSFILING.FIND.VERSION 462Q \NSFILING.FULLNAME 433Q \NSFILING.CONNECT 377Q \NSFILING.CONNECT 326Q \GETFILINGCONNECTION 254Q CONCAT 233Q MKATOM 213Q CONCAT 112Q \GETFILINGCONNECTION 24Q UNPACKFILENAME.STRING) (1660Q PROMPTWINDOW 1645Q PROMPTWINDOW 1632Q PROMPTWINDOW 1617Q PROMPTWINDOW 1571Q RETURNERRORS 1560Q REPLACE 1553Q FILINGSESSION 1545Q FILINGSESSION 1532Q OUTPUT 1521Q RETURNERRORS 1511Q RETRIEVE 1504Q FILINGSESSION 1476Q FILINGSESSION 1466Q INPUT 1441Q HANDLE 1434Q HANDLE 1422Q ATTRIBUTES 1407Q NAME 1367Q HANDLE 1320Q FULLNAME 1301Q FULLNAME 1230Q NOERROR 1206Q VERSION 1177Q NAME 1172Q FILINGSESSION 1166Q STORE 1161Q FILINGSESSION 1153Q FILINGSESSION 1136Q OLD/NEW 1130Q NEW 1115Q OUTPUT 1074Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 1067Q GET.ATTRIBUTES 1062Q FILINGSESSION 1054Q FILINGSESSION 1030Q NOERROR 1022Q \NSFILING.NULL.HANDLE 1010Q FILE.ID 1005Q OPEN 1000Q FILINGSESSION 772Q FILINGSESSION 755Q FILINGSESSION 733Q HANDLE 660Q NEW 644Q OLD/NEW 636Q OLDEST 630Q OLD 617Q VERSION 600Q FILE.ID 551Q NEW 540Q NAME 502Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 426Q CREATE 421Q INPUT 412Q OLD 374Q ASK 364Q DIRECTORY 341Q \NSFILING.CLOSE.IF.ERROR 335Q \NSFILING.RESETCLOSE 275Q DIRECTORY 221Q VERSION 165Q EXTENSION 147Q NAME 131Q DIRECTORY 73Q DIRECTORY 61Q ATTRIBUTES 45Q NAME 4 FDEV) ( 1642Q ": " 250Q "." 204Q ".") \NSFILING.GETFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST 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.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.CLOSEFILEA0001 D1 (NAME ERRORSET P 3 INFO P 2 CONNECTION P 1 HANDLE P 0 NEWHANDLE F 4 FILESTREAM F 5 RESETVARSLST F 6 RESETY) @T XThTInJdj `gJhhhUc HAJJgH`Jg [T(gThKJI Thhc igvHz(205Q \NSFILING.INTERNAL.CLOSE 141Q COURIER.CALL 54Q SPP.OPENP 6 \BULK.DATA.CLOSE) (225Q ERROR 167Q STREAM 163Q FULLNAME 155Q FDEV 150Q STREAM 135Q NOERROR 130Q FILINGSESSION 124Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 120Q GET.ATTRIBUTES 113Q FILINGSESSION 105Q FILINGSESSION 61Q \NSFILING.RESETCLOSE 47Q FILINGSESSION 32Q STREAM 21Q STREAM) () \NSFILING.CLOSEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST 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.INTERNAL.CLOSE D1 (I 1 HANDLE I 0 CONNECTION) @@gA@g (31Q COURIER.CALL) (25Q NOERROR 16Q CLOSE 11Q FILINGSESSION 3 FILINGSESSION) () \NSFILING.FULLNAME D1 (P 14Q VERS P 10Q CH P 7 START P 6 I 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)  oAAdB 423Q { 100Q PATHNAME 63Q NAME 44Q VERSION 25Q IS.DIRECTORY) ( 546Q "" 537Q ".;" 520Q ";" 507Q "." 432Q "}<" 144Q "" 3 "") \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 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 CONNECTION F 1 DEVICE F 2 ATTRS F 3 RESETY) $Qi cPggR P ci(36Q COURIER.CALL 25Q ASSOC 4 \GETFILINGCONNECTION) (21Q HANDLE 16Q DELETE) () \NSFILING.DELETEFILE D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 CONNECTION P 0 ATTRS I 1 DEVICE I 0 FILENAME F 5 LISPXHIST F 6 RESETVARSLST) BA@ggig H,U!Vog hg\ LIHhdi (77Q \NSFILING.FULLNAME 64Q ERROR! 56Q RESETRESTORE 44Q \NSFILING.DELETEFILEA0001 17Q \NSFILING.GETFILE) (52Q ERROR 41Q INTERNAL 13Q HANDLE 7 OLDEST 4 NONE) ( 36Q (DUMMY.FOR.ERRORSET)) \NSFILING.HOSTNAMEP D1 (P 2 FULLHOSTNAME P 1 FILINGNAME P 0 SERVER I 1 DEVICE I 0 HOST) o@ @ AHdi Zid Ho YJ`` dJdgdgdgdg dgdg0dg2dgdgdgdgdg dgHhI IhdK(`*dL*b A(313Q \DEFINEDEVICE 254Q CREATE.MONITORLOCK 106Q NCREATE2 73Q PACK* 47Q \GETDEVICEFROMNAME 41Q MKATOM 36Q U-CASE 33Q NSNAME.TO.STRING 15Q \NSFILING.FINDSERVER 7 STRPOS) (276Q FDEV 273Q \SPP.BULKDATA.DEVICE 243Q \NSFILING.EVENTFN 234Q \NSFILING.GENERATEFILES 225Q \NSFILING.DIRECTORYNAMEP 216Q \NSFILING.GETFILENAME 207Q NILL 200Q \NSFILING.DELETEFILE 171Q \NSFILING.GETEOFPTR 162Q ZERO 153Q \NSFILING.SETFILEINFO 144Q \NSFILING.GETFILEINFO 135Q \NSFILING.CLOSEFILE 126Q NILL 117Q \NSFILING.OPENFILE 103Q \SPP.BULKDATA.DEVICE 100Q FDEVTYPE# 62Q NSNAME) ( 70Q " Filing" 3 ":") \NSFILING.DIRECTORYNAMEP D1 (I 1 DEVICE I 0 HOST/DIR) A@ghig (15Q \NSFILING.GETFILE) (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.GETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 CONNECTION P 0 ATTRS F 2 STREAM F 3 DEVICE F 4 RESETY) [ R`RSRggig Si YIggH oI IgH  ci(123Q \NSFILING.INTERNAL.CLOSE 116Q ASSOC 106Q COURIER.CALL 71Q ASSOC 43Q \GETFILINGCONNECTION 35Q \NSFILING.GETFILE) (112Q HANDLE 65Q HANDLE 62Q GET.ATTRIBUTES 55Q FILINGSESSION 47Q FILINGSESSION 31Q HANDLE 25Q OLD 22Q NONE 7 STREAMTYPE#) ( 77Q (-1)) \NSFILING.GETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) IAg#S!Tog hgZ JI@`@B@ggig A (106Q \NSFILING.GETFILEINFO.FROM.PLIST 102Q \NSFILING.GETFILE 44Q ERROR! 37Q RESETRESTORE 25Q \NSFILING.GETFILEINFOA0001) (76Q ATTRIBUTES 72Q OLD 67Q NONE 54Q STREAMTYPE# 33Q ERROR 22Q INTERNAL 3 ALL) ( 17Q (DUMMY.FOR.ERRORSET)) \NSFILING.GETFILEINFO.FROM.PLIST D1 (P 0 CHNAME I 1 ATTRIBUTE I 0 PLIST) @Adgg@  gg@  Adgg@  gg@ dKnAdgg@ Hd+ gg@ dA` A@ (233Q ASSOC 222Q 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) (217Q \LISP.TO.NSFILING.ATTRIBUTES 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) @doj@ h(16Q GDATE) NIL ( 6 -20000000000Q) \NSFILING.SETFILEINFOA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 CONNECTION P 2 HANDLE P 1 FILENAME P 0 ATTR/VAL F 4 STREAM F 5 DEVICE F 6 ATTRIBUTE F 7 VALUE F 10Q RESETY) rVW 1Hh`Td`TgUIggig  Ui [KgJHhK T`ThKJ ici(151Q \NSFILING.INTERNAL.CLOSE 127Q COURIER.CALL 75Q \GETFILINGCONNECTION 65Q ASSOC 62Q \NSFILING.GETFILE 5 \LISP.TO.NSFILING.ATTRIBUTE) (135Q STREAMTYPE# 114Q CHANGE.ATTRIBUTES 107Q FILINGSESSION 101Q FILINGSESSION 56Q HANDLE 52Q OLD 47Q NONE 42Q HANDLE 23Q STREAMTYPE#) () \NSFILING.SETFILEINFO D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.SETFILEINFOA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \NSFILING.GENERATEFILESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 21Q PROP P 14Q X P 13Q BROKET P 12Q TAIL P 7 N P 6 SCOPELIST P 5 FILTERLIST P 4 DIRECTORY P 3 VERSION P 2 NAME P 1 HOST P 0 STAR F 22Q CONNECTION F 23Q DESIREDPROPS F 24Q PATTERN F 25Q RESETVARSLST F 26Q BULKSTREAM F 27Q DEVICE F 30Q RESETY) 6o W( yd OdgOY`dgO\RdgOZDdg0Od5H JoO ZJm)l*JH ZgO [gL _?j gLOk _OOO_LOkO Ojh LkOk \W. c$gW$hhhW*c*W$Li ;W$gll oW&AO%O c&gJ IJH XggJF_"` O"i _"_ OO h__O_O &_ggJhghhMKdggKhghhM]MgMdgMhhN`&L#W$gg`dnhNW$W$gW$ W&NhW$ c,gghW,gg _W( _W$OOhc0i(1057Q \NULLFILEGENERATOR 1033Q DIRECTORY.MATCH.SETUP 1023Q BULKDATA.GENERATOR 776Q COURIER.CALL 506Q \FILING.ATTRIBUTE.TYPE 474Q ASSOC 450Q STREQUAL 441Q STRPOS 426Q \APPEND2 360Q \NSFILING.CONNECT 324Q \GETFILINGCONNECTION 315Q SUBSTRING 273Q SUBSTRING 241Q STRPOS 216Q STRPOS 177Q MKATOM 161Q CONCAT 140Q CONCAT 123Q STREQUAL 13Q UNPACKFILENAME.STRING) (1020Q ATTRIBUTE.SEQUENCE 1015Q FILING 1007Q \NSFILING.FILEINFOFN 1004Q \NSFILING.NEXTFILE 756Q LIST 722Q FILING.ENUMERATION.DEPTH 717Q DEPTH 711Q FILING 675Q FILING.ENUMERATION.DEPTH 656Q AND 646Q FILTER 626Q CARDINAL 617Q VERSION 614Q = 567Q STRING 560Q NAME 555Q = 471Q \LISP.TO.NSFILING.ATTRIBUTES 460Q NAME 455Q MATCHES 435Q * 373Q FILING 332Q \NSFILING.CLOSE.IF.ERROR 231Q > 212Q * 166Q VERSION 102Q EXTENSION 64Q NAME 46Q DIRECTORY 30Q HOST) ( 406Q (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) S0W!Vog hg] MLZCgCgCgHIhhhVc IH J(117Q \CLOSEFILINGCONNECTION 42Q ERROR! 34Q RESETRESTORE 22Q \NSFILING.GENERATEFILESA0001) (72Q \NSFILING.GENERATEFILESA0002 63Q RESETLST 52Q RESETLST 30Q ERROR 17Q INTERNAL) ( 14Q (DUMMY.FOR.ERRORSET)) \NSFILING.NEXTFILE D1 (P 4 NAME P 3 INFO P 2 FILTER P 1 CONNECTION P 0 GENERATOR I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) 5@@@#H [hIK JJL @KALi L(60Q NAMEFIELD 43Q DIRECTORY.MATCH 33Q \NSFILING.FULLNAME 22Q BULKDATA.GENERATE.NEXT) NIL () \NSFILING.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) @A (5 \NSFILING.GETFILEINFO.FROM.PLIST) NIL () \NSFILING.GETEOFPTR D1 (I 0 STREAM) @g (6 \NSFILING.GETFILEINFO) (3 LENGTH) NIL \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)) (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 NAME READ.ON SIZE.IN.BYTES VERSION))))))) (INITVARS ( FILING.ENUMERATION.DEPTH) (\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) (FNS \NSFILING.CONNECT \PATHNAME.TO.DIRECTORY.LIST \NSFILING.ENUMERATE \NSFILING.LISTVERSIONS \FILING.ATTRIBUTE.TYPE.SEQUENCE \FILING.ATTRIBUTE.TYPE \LISP.TO.NSFILING.ATTRIBUTE) (FNS \NSFILING.OPENFILE \NSFILING.GETFILE \NSFILING.FIND.VERSION \NSFILING.OPENFILE.OPTIONS \NSFILING.CLOSEFILE \NSFILING.INTERNAL.CLOSE \NSFILING.FULLNAME \NSFILING.EVENTFN \NSFILING.DELETEFILE \NSFILING.HOSTNAMEP \NSFILING.DIRECTORYNAMEP \NSFILING.GETFILENAME \NSFILING.GETFILEINFO \NSFILING.GETFILEINFO.FROM.PLIST \NSFILING.GDATE \NSFILING.SETFILEINFO \NSFILING.GENERATEFILES \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))) (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))) (RPAQ \NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON NAME READ.ON SIZE.IN.BYTES VERSION)))) (RPAQ? FILING.ENUMERATION.DEPTH) (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)) NIL