(FILECREATED "17-NOV-83 14:55:31" ("compiled on " {PHYLUM}SOURCES>COURIER.;14) "13-NOV-83 18:57:30" recompiled exprs: nothing in WORK dated "14-NOV-83 06:21:28") (FILECREATED "17-NOV-83 14:54:12" {PHYLUM}SOURCES>COURIER.;14 55336 changes to: (VARS COURIERCOMS) (FNS CH.ADD.USER CH.LOOKUP CH.ENUMERATE CH.SERVERS CH.ORGANIZATIONS CH.DOMAINS CH.DOMAINS.SERVED CH.FINDSERVER NSPRINTREQUEST.STATUS NSPRINTER.PROPERTIES NSPRINTER.STATUS OPEN.NS.PRINTING.STREAM NSPRINT.WATCHDOG) previous date: " 3-NOV-83 22:51:58" {PHYLUM}SOURCES>COURIER.;10) HASH.PASSWORD D1 (P 2 CHAR P 0 HASH I 0 PASSWORD) Fj@ BIILIkػLKMLdkؼºHlJlI nM H(77Q IMOD 70Q L-CASECODE 4 MKSTRING) (32Q STRINGP 22Q STRINGP 13Q STRINGP) () NSLOGIN D1 (P 1 NAME/PASSWORD P 0 INFO I 1 MSG I 0 HOST) # @i bd`XAd @ihA (36Q \INTERNAL/GETPASSWORD 12Q MKATOM 7 CH.NAME.TO.STRING) (20Q LOGINPASSWORDS) NIL GETNSPRINTER D1 (I 0 HOSTNAME) O@L`Gog .jd` o` `` o` `ohi (114Q ERROR 77Q PRIN1 64Q PRIN1 52Q PRIN1 37Q TAB 21Q CH.ENUMERATE) (102Q NS.DEFAULT.PRINTER 74Q PROMPTWINDOW 61Q PROMPTWINDOW 56Q NS.DEFAULT.PRINTER 47Q PROMPTWINDOW 34Q PROMPTWINDOW 25Q NS.DEFAULT.PRINTER 16Q PRINTSERVER 5 NS.DEFAULT.PRINTER) (107Q "Can't find an NS printserver" 71Q "]" 44Q "[Default NS printer set to " 13Q "*") NSPRINTA0364 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 PRINTINGSTREAM F 2 FULLFILENAME F 3 RESETY) 0gQhhhPcgRhhhPcRg Q ci(52Q COPYBYTES 46Q OPENSTREAM) (43Q INPUT 22Q CLOSEF? 2 CLOSEF?) NIL NSPRINT D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 PRINTINGSTREAM P 1 COURIERSTREAM P 0 FULLFILENAME I 2 OPTIONS I 1 FILE I 0 PRINTERNAME F 6 EMPRESS#SIDES F 7 LISPXHIST F 10Q RESETVARSLST) 0A XAl @Bg HBg Hg Bg Bg Bg Bg Bg Bg Bg Vl Z$W!Wog hg] MH(211Q ERROR! 203Q RESETRESTORE 171Q NSPRINTA0364 145Q OPEN.NS.PRINTING.STREAM 133Q LISTGET 124Q LISTGET 115Q LISTGET 106Q LISTGET 77Q LISTGET 70Q LISTGET 61Q LISTGET 52Q GETFILEINFO 41Q LISTGET 27Q LISTGET 16Q \LISPERROR 6 INFILEP) (177Q ERROR 166Q INTERNAL 130Q #SIDES 121Q STAPLE? 112Q PRIORITY 103Q MEDIUM 74Q #COPIES 65Q RECIPENT.NAME 56Q SENDER.NAME 47Q ICREATIONDATE 36Q DOCUMENT.CREATION.DATE 24Q DOCUMENT.NAME) (163Q (DUMMY.FOR.ERRORSET)) IP.SENDTOPRINTER D1 (I 12Q STAPLE? I 11Q PRIORITY I 10Q MEDIUM I 7 RECIPIENT.NAME I 6 SENDER.NAME I 5 DOCUMENT.CREATION.DATE I 4 DOCUMENT.NAME I 3 #SIDES I 2 #COPIES I 1 FILE I 0 HOST)  @ADEFGBGGG (21Q NSPRINT) NIL NIL NSPRINT.WATCHDOG D1 (P 1 JOBNAME P 0 PRINTER I 1 ID I 0 SUBSTREAM) g@ g@ gAddidd gAhHddidd gHhIddidd gIhhgI Io h(216Q ADD.PROCESS 213Q PACK* 201Q ROOTFILENAME 31Q ASSOC 13Q ASSOC) (175Q NAME 161Q QUOTE 125Q QUOTE 71Q QUOTE 41Q \NSPRINT.WATCHDOG.INTERNAL 24Q STREAM 20Q DOCUMENT 6 STREAM 2 PRINTSERVER) ( 210Q " Watchdog") \NSPRINT.WATCHDOG.INTERNAL D1 (P 2 MSG P 1 STATUS P 0 RESULT I 2 JOBNAME I 1 PRINTER I 0 ID) 0@A gH gH jd` B\A` o` I` JIo Hnu0 o o` J` o` ` o` (223Q PRIN1 210Q PRIN1 177Q PRIN1 164Q PRIN1 154Q PRIN1 140Q STREQUAL 126Q BLOCK 116Q MEMBER 102Q PRIN1 72Q PRIN1 57Q PRIN1 44Q TAB 31Q ASSOC 17Q ASSOC 7 NSPRINTREQUEST.STATUS) (220Q PROMPTWINDOW 205Q PROMPTWINDOW 174Q PROMPTWINDOW 161Q PROMPTWINDOW 151Q PROMPTWINDOW 77Q PROMPTWINDOW 67Q PROMPTWINDOW 54Q PROMPTWINDOW 41Q PROMPTWINDOW 25Q STATUS.MESSAGE 13Q STATUS) (215Q " on " 171Q ")" 146Q " (" 135Q "" 113Q (PENDING IN.PROGRESS) 64Q ": ") OPEN.NS.PRINTING.STREAMA0012 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 PROPERTIES F 1 COURIERSTREAM F 2 MEDIUM F 3 OPTIONS F 4 STAPLE? F 5 TWO.SIDED? F 6 RESETVARSLST F 7 STATUS F 10Q DOCUMENT.NAME F 11Q ATTRIBUTES F 12Q PRINTINGSTREAM F 13Q RESETY F 14Q NOWATCHDOG? F 15Q DOCUMENT.CREATION.DATE F 16Q PRIORITY F 17Q SENDER.NAME F 20Q RECIPIENT.NAME F 21Q PRINTER F 22Q #COPIES) TgQhhhVc RTUDQgg cRTgP oPi UgP oPi gQgg cdggWhgWhgWhhcgW hgW$hgWhgThgUhhcRgRhScQggWOhOgP  =oPi 0goWi jd` o` n 0gWS cgW"hgWhhWci(464Q COURIER.CALL 447Q BLOCK 440Q PRIN1 425Q TAB 414Q ERROR 371Q ERROR 354Q MEMBER 347Q ASSOC 150Q ASSOC 145Q COURIER.CALL 127Q ERROR 113Q ASSOC 100Q ERROR 64Q ASSOC 40Q COURIER.CALL) (501Q DOCUMENT 471Q PRINTSERVER 455Q NSPRINT.WATCHDOG 435Q PROMPTWINDOW 422Q PROMPTWINDOW 400Q BUSY 343Q MEDIA 331Q PRINT 326Q PRINTING 311Q MEDIUM.HINT 267Q TWO.SIDED 260Q STAPLE 250Q PRIORITY.HINT 240Q COPY.COUNT 230Q RECIPIENT.NAME 211Q SENDER.NAME 201Q PRINT.OBJECT.CREATE.DATE 171Q PRINT.OBJECT.NAME 160Q AVAILABLE 142Q GET.PRINTER.STATUS 137Q PRINTING 133Q SPOOLER 107Q TWO.SIDED 60Q STAPLE 35Q GET.PRINTER.PROPERTIES 32Q PRINTING 2 \SPP.RESETCLOSE) ( 432Q "[Spooler busy; will retry]" 406Q "Printer spooler" 364Q "Printer does not support medium" 122Q "Printer does not support two-sided copies" 73Q "Printer does not support stapled copies") OPEN.NS.PRINTING.STREAM D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 OPTIONS P 3 ATTRIBUTES P 2 STATUS P 1 PROPERTIES P 0 COURIERSTREAM I 12Q NOWATCHDOG? I 11Q TWO.SIDED? I 10Q STAPLE? I 7 PRIORITY I 6 MEDIUM I 5 #COPIES I 4 RECIPIENT.NAME I 3 SENDER.NAME I 2 DOCUMENT.CREATION.DATE I 1 DOCUMENT.NAME I 0 PRINTER F 10Q LISPXHIST F 11Q RESETVARSLST) n PBbChdi bDCbEkb Ggb@ bdgh@ o Xd&W!Wog hg_ ON(151Q ERROR! 143Q RESETRESTORE 130Q OPEN.NS.PRINTING.STREAMA0012 103Q COURIER.OPEN 100Q PACK* 71Q CH.NAME.TO.STRING 56Q GETNSPRINTER 22Q USERNAME 7 IDATE) (136Q ERROR 125Q INTERNAL 64Q PRINTSERVER 47Q NORMAL) ( 122Q (DUMMY.FOR.ERRORSET) 75Q " Printing") NSPRINTER.STATUSA0013 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 RESETY) gPhhhQcPgg ci(31Q COURIER.CALL) (26Q GET.PRINTER.STATUS 23Q PRINTING 2 \SPP.RESETCLOSE) () NSPRINTER.STATUS D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 STREAM I 0 PRINTER F 4 LISPXHIST F 5 RESETVARSLST) B@ bdgh@ o Xd"T!Uog hg[ KJ(75Q ERROR! 70Q RESETRESTORE 56Q NSPRINTER.STATUSA0013 33Q COURIER.OPEN 30Q PACK* 21Q CH.NAME.TO.STRING 6 GETNSPRINTER) (64Q ERROR 53Q INTERNAL 14Q PRINTSERVER) ( 50Q (DUMMY.FOR.ERRORSET) 25Q " Printing") NSPRINTER.PROPERTIESA0014 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 RESETY) gPhhhQcPgg ci(31Q COURIER.CALL) (26Q GET.PRINTER.PROPERTIES 23Q PRINTING 2 \SPP.RESETCLOSE) () NSPRINTER.PROPERTIES D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 STREAM I 0 PRINTER F 4 LISPXHIST F 5 RESETVARSLST) B@ bdgh@ o Xd"T!Uog hg[ KJ(75Q ERROR! 70Q RESETRESTORE 56Q NSPRINTER.PROPERTIESA0014 33Q COURIER.OPEN 30Q PACK* 21Q CH.NAME.TO.STRING 6 GETNSPRINTER) (64Q ERROR 53Q INTERNAL 14Q PRINTSERVER) ( 50Q (DUMMY.FOR.ERRORSET) 25Q " Printing") NSPRINTREQUEST.STATUSA0015 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 REQUESTID F 3 RESETY) gPhhhQcPggR ci(32Q COURIER.CALL) (26Q GET.PRINT.REQUEST.STATUS 23Q PRINTING 2 \SPP.RESETCLOSE) () NSPRINTREQUEST.STATUS D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 STREAM I 1 PRINTERHOST I 0 REQUESTID F 4 PRINTER F 5 LISPXHIST F 6 RESETVARSLST) BT cdghT o Xd"U!Vog hg[ KJ(75Q ERROR! 70Q RESETRESTORE 56Q NSPRINTREQUEST.STATUSA0015 33Q COURIER.OPEN 30Q PACK* 21Q CH.NAME.TO.STRING 6 GETNSPRINTER) (64Q ERROR 53Q INTERNAL 14Q PRINTSERVER) ( 50Q (DUMMY.FOR.ERRORSET) 25Q " Printing") GETCLEARINGHOUSE D1 (P 1 DOM P 0 DOMAINS) ```` ohi  HY``ZgI gI jd` o` `` o` `` o` o `H `(237Q \CH.UPDATE.CACHE 230Q PARSE.CH.NAME 220Q PRIN1 205Q PRIN1 173Q PRIN1 160Q PRIN1 146Q PRIN1 133Q TAB 115Q ASSOC 100Q ASSOC 52Q CH.DOMAINS.SERVED 46Q ERROR 30Q CH.BROADCAST.FOR.SERVERS) (242Q LOCAL.CLEARINGHOUSE 233Q LOCAL.CLEARINGHOUSE 215Q PROMPTWINDOW 202Q PROMPTWINDOW 177Q CH.DEFAULT.ORGANIZATION 170Q PROMPTWINDOW 155Q PROMPTWINDOW 152Q CH.DEFAULT.DOMAIN 143Q PROMPTWINDOW 130Q PROMPTWINDOW 122Q CH.DEFAULT.ORGANIZATION 111Q ORGANIZATION 105Q CH.DEFAULT.DOMAIN 74Q DOMAIN 67Q CH.DEFAULT.ORGANIZATION 63Q CH.DEFAULT.DOMAIN 33Q LOCAL.CLEARINGHOUSE 23Q LOCAL.CLEARINGHOUSE 12Q LOCAL.CLEARINGHOUSE 6 CH.DEFAULT.ORGANIZATION 2 CH.DEFAULT.DOMAIN) (225Q "local Clearinghouse:CHServers:CHServers" 212Q "]" 165Q ":" 140Q "[Default Clearinghouse domain set to " 41Q "Can't find a Clearinghouse") START.CLEARINGHOUSE D1 (I 0 RESTARTFLG) B@h`3lhjd` o` `n `(74Q GETCLEARINGHOUSE 70Q BLOCK 61Q \NSINIT 51Q PRIN1 36Q TAB) (77Q LOCAL.CLEARINGHOUSE 55Q \NSFLG 46Q PROMPTWINDOW 33Q PROMPTWINDOW 25Q \CH.CACHE 20Q \NS.ROUTING.TABLE.RADIUS 11Q LOCAL.CLEARINGHOUSE 5 LOCAL.CLEARINGHOUSE) (43Q "[Starting Clearinghouse: this will take a few seconds]") SHOW.CLEARINGHOUSEA0373 D1 (F 0 CLEARINGHOUSE.STRUCTURE.WINDOW) hcNIL NIL NIL SHOW.CLEARINGHOUSE D1 (P 10Q DOM P 4 ORG P 0 SEXPR I 1 DONT.GRAPH I 0 ENTIRE.CLEARINGHOUSE? F 11Q CLEARINGHOUSE.STRUCTURE.WINDOW) o@50o "dLoL JIh[I&KO@`AdL0Ld_gO JIh[I&KNMh_M&OXA0gg Hgho Wo cdgg W(272Q PUTWINDOWPROP 256Q SHOWGRAPH 243Q LAYOUTSEXPR 227Q LOAD? 137Q ASSOC 46Q CH.DOMAINS 43Q CONCAT 23Q CH.ORGANIZATIONS) (267Q SHOW.CLEARINGHOUSEA0373 264Q CLOSEFN 233Q HORIZONTAL 224Q SYSLOAD 221Q GRAPHER.DCOM 131Q DOMAIN 102Q \CH.CACHE) (253Q "Clearinghouse structure" 240Q (HELVETICA 12Q BOLD) 37Q "*:" 20Q "*" 6 "") CH.FINDSERVERA0016 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 CHADDR P 2 CHDOMAINS P 1 CH F 4 STREAM F 5 RESETVARSLST F 6 ORGANIZATION F 7 TRANSFER.STREAM F 10Q NAMELIST F 11Q ORGANIZATION.INFO F 12Q DOMAIN F 13Q RESULTS F 14Q RESETY)  gThhhUc TggWgohgVhgWgohgohgVhh g h cgg cW W1HhciTggIg  cgg  [ ZIKJ HX(271Q \CH.UPDATE.CACHE 261Q CH.DOMAINS.SERVED 255Q CH.NSADDRESS 251Q COURIER.READ.REP 234Q COURIER.CALL 230Q CH.GETAUTHENTICATOR 225Q CH.PROPERTY 165Q CLOSEF 155Q COURIER.READ.BULKDATA 142Q COURIER.CALL 136Q CH.GETAUTHENTICATOR 132Q CH.PROPERTY 124Q PARSE.CH.NAME) (246Q NETWORK.ADDRESS.LIST 243Q CLEARINGHOUSE 222Q CLEARINGHOUSE.ADDRESSES 216Q RETRIEVE.ITEM 213Q CLEARINGHOUSE 152Q OBJECT.NAME 147Q CLEARINGHOUSE 127Q CLEARINGHOUSE.NAMES 111Q OBJECT 77Q DOMAIN 65Q ORGANIZATION 56Q OBJECT 47Q DOMAIN 35Q ORGANIZATION 26Q RETRIEVE.MEMBERS 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) ( 103Q "CHServers" 71Q "CHServers" 41Q "CHServers") CH.FINDSERVER D1 (P 16Q RESETZ P 15Q RESETY P 14Q LISPXHIST P 13Q DOMAIN.INFO P 11Q X P 7 NAMELIST P 6 RESULTS P 5 TRANSFER.STREAM P 4 STREAM P 3 ADDRESS P 2 ORGANIZATION.INFO P 1 DOMAIN P 0 ORGANIZATION I 2 DONTPROBEFLG I 1 NOERRORFLG I 0 DOMAINPATTERN F 17Q LISPXHIST F 20Q RESETVARSLST) @l bg@ Xg@ Y` OJ K BOA>h O_H OO__@ OO_o@ i hjd` o` @ ` o` JgHhgohhAi hAg \'W!W og hg_ Oib(370Q ERROR! 361Q RESETRESTORE 346Q CH.FINDSERVERA0016 322Q COURIER.OPEN 312Q GETCLEARINGHOUSE 306Q CH.FINDSERVER 251Q PRIN1 236Q PRIN1 230Q CH.NAME.TO.STRING 223Q PRIN1 210Q TAB 176Q ERROR 172Q CH.NAME.TO.STRING 141Q MATCHING.CH.NAMES 114Q STREQUAL.EXCEPT.FOR.CASE 33Q ASSOC 21Q ASSOC 10Q PARSE.CH.NAME) (354Q ERROR 343Q INTERNAL 317Q CLEARINGHOUSE 267Q DOMAIN 260Q ORGANIZATION 246Q PROMPTWINDOW 233Q PROMPTWINDOW 220Q PROMPTWINDOW 205Q PROMPTWINDOW 41Q \CH.CACHE 27Q DOMAIN 15Q ORGANIZATION) ( 340Q (DUMMY.FOR.ERRORSET) 273Q "*" 243Q "]" 215Q "[Finding Clearinghouse server for " 166Q "Couldn't find Clearinghouse server for domain") \CH.UPDATE.CACHE D1 (P 10Q DOMAIN.INFO P 6 X P 4 DOMAIN P 2 ORGANIZATION.INFO P 1 ORGANIZATION P 0 NAME.AND.ADDRESS I 2 DOMAINS.SERVED I 1 ADDRESS I 0 OBJECT F 11Q CLEARINGHOUSE.STRUCTURE.WINDOW) 0jd` o` g@ ` o` @AhXBK WhgL h`MJ*`ILHhhh (^I NM]OJLHhh K[_L OHO_(256Q EQUAL.CH.NAMES 240Q \NCONC2 202Q STREQUAL.EXCEPT.FOR.CASE 165Q \NCONC2 121Q ASSOC 106Q SHOW.CLEARINGHOUSE 60Q PRIN1 45Q PRIN1 35Q ASSOC 25Q PRIN1 12Q TAB) (170Q \CH.CACHE 147Q \CH.CACHE 131Q \CH.CACHE 115Q ORGANIZATION 55Q PROMPTWINDOW 42Q PROMPTWINDOW 31Q OBJECT 22Q PROMPTWINDOW 7 PROMPTWINDOW) (52Q " to cache of known Clearinghouses]" 17Q "[Adding ") EQUAL.CH.NAMES D1 (P 3 Y P 2 X I 1 NAME2 I 0 NAME1) )A@"IHiJK hIH(34Q STREQUAL.EXCEPT.FOR.CASE) NIL NIL MATCHING.CH.NAMES D1 (P 3 Y P 2 X I 1 NAME2 I 0 NAME1) E@Ad@"IHiJo Ko JK hIH(70Q STREQUAL.EXCEPT.FOR.CASE 56Q STREQUAL 42Q STREQUAL) NIL (53Q "*" 37Q "*") STREQUAL.EXCEPT.FOR.CASE D1 (P 11Q A0376 P 6 C2 P 2 C1 P 1 A0377 I 1 S2 I 0 S1) @A p@A HHLHkػI_I_OIk_LK,MLdkؼºOOOOdk_¾J N hi(171Q EQP 166Q U-CASECODE 162Q U-CASECODE 16Q EQP) (106Q STRINGP 73Q STRINGP 62Q STRINGP 50Q STRINGP 40Q STRINGP 31Q STRINGP 11Q STRINGP 3 STRINGP) NIL CH.DOMAINS.SERVEDA0017A0018 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 TRANSFER.STREAM F 3 RESETY F 4 DOMAINS) 6gPhhhQcPggh cgg cR ci(60Q CLOSEF 51Q COURIER.READ.BULKDATA 36Q COURIER.CALL 32Q CH.GETAUTHENTICATOR) (46Q DOMAIN.NAME 43Q CLEARINGHOUSE 26Q LIST.DOMAINS.SERVED 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) () CH.DOMAINS.SERVEDA0017 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ Ji(36Q ERROR! 30Q RESETRESTORE 16Q CH.DOMAINS.SERVEDA0017A0018) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) CH.DOMAINS.SERVED D1 (P 2 DOMAINS P 1 TRANSFER.STREAM P 0 STREAM I 0 CH) @hig !Ho J(24Q CH.DOMAINS.SERVEDA0017 10Q COURIER.OPEN) (5 CLEARINGHOUSE) ( 21Q (DUMMY.FOR.ERRORSET)) CH.DOMAINSA0019 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 TRANSFER.STREAM F 3 DOMAINPATTERN F 4 RESETY F 5 DOMAINS) 7gPhhhQcPggSh cgg c R ci(61Q CLOSEF 52Q COURIER.READ.BULKDATA 37Q COURIER.CALL 33Q CH.GETAUTHENTICATOR) (47Q DOMAIN 44Q CLEARINGHOUSE 26Q LIST.DOMAINS 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) () CH.DOMAINS D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 DOMAINS P 1 TRANSFER.STREAM P 0 STREAM I 0 DOMAINPATTERN F 6 LISPXHIST F 7 RESETVARSLST) ?0@l bdi hig Xd"V!Wog hg] MJ(73Q ERROR! 65Q RESETRESTORE 53Q CH.DOMAINSA0019 27Q COURIER.OPEN 17Q CH.FINDSERVER 10Q PARSE.CH.NAME) (61Q ERROR 50Q INTERNAL 24Q CLEARINGHOUSE) ( 45Q (DUMMY.FOR.ERRORSET)) CH.ORGANIZATIONSA0020 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 TRANSFER.STREAM F 3 ORGANIZATIONPATTERN F 4 RESETY F 5 ORGANIZATIONS) ;gPhhhQcPggSk h cgg c R ci(65Q CLOSEF 56Q COURIER.READ.BULKDATA 43Q COURIER.CALL 37Q CH.GETAUTHENTICATOR 33Q PARSE.CH.NAME) (53Q ORGANIZATION 50Q CLEARINGHOUSE 26Q LIST.ORGANIZATIONS 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) () CH.ORGANIZATIONS D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 ORGANIZATIONS P 1 TRANSFER.STREAM P 0 STREAM I 0 ORGANIZATIONPATTERN F 6 LISPXHIST F 7 RESETVARSLST) 1hdg !V!Wog hg] MJ(55Q ERROR! 47Q RESETRESTORE 35Q CH.ORGANIZATIONSA0020 12Q COURIER.OPEN 2 GETCLEARINGHOUSE) (43Q ERROR 32Q INTERNAL 7 CLEARINGHOUSE) ( 27Q (DUMMY.FOR.ERRORSET)) CH.SERVERSA0021 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 TRANSFER.STREAM F 3 RESETY F 4 ENUMERATION.LIST) CgPhhhQcPggo g h cgg cR ci(75Q CLOSEF 66Q COURIER.READ.BULKDATA 53Q COURIER.CALL 47Q CH.GETAUTHENTICATOR 43Q CH.PROPERTY 35Q PARSE.CH.NAME) (63Q OBJECT.NAME 60Q CLEARINGHOUSE 40Q CLEARINGHOUSE.NAMES 26Q RETRIEVE.MEMBERS 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) ( 32Q "CHServers:CHServers:CHServers") CH.SERVERS D1 (P 11Q OBJ P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 ENUMERATION.LIST P 1 TRANSFER.STREAM P 0 STREAM F 12Q LISPXHIST F 13Q RESETVARSLST) _ 0hdg XW!Wog hg] M@ J"d_gO ONh_N&_O(104Q ASSOC 57Q ERROR! 51Q RESETRESTORE 37Q CH.SERVERSA0021 15Q COURIER.OPEN 5 GETCLEARINGHOUSE) (77Q OBJECT 45Q ERROR 34Q INTERNAL 12Q CLEARINGHOUSE) ( 31Q (DUMMY.FOR.ERRORSET)) CH.BROADCAST.FOR.SERVERS D1 (P 12Q RT P 10Q NET P 6 #HOPS P 4 RESULT P 3 ROUTINGTABLE P 2 BASE P 1 EPKT P 0 SKT F 13Q CH.NET.HINT) li AlH`ljl4 YllZ JlJlJlJlg  Jg  Jddj jjjHI \!g W` ljNMBH LddWHI \հWO_HI \O_K O Nk^_N OHI \O_(353Q \CH.BROADCAST.FOR.SERVERS.ON.NET 342Q EQP 275Q \CH.BROADCAST.FOR.SERVERS.ON.NET 240Q \CH.BROADCAST.FOR.SERVERS.ON.NET 216Q CLOSENSOCKET 175Q COPY 161Q BOUNDP 150Q \CH.BROADCAST.FOR.SERVERS.ON.NET 116Q \GET.COURIER.PROG#VERS#.PAIR 106Q \PUTFIXP 102Q \GET.COURIER.PROG#VERS#.PAIR 45Q \PUTFIXP 42Q RAND 27Q \FILLINXIP 5 OPENNSOCKET) (171Q \NS.ROUTING.TABLE 156Q CH.NET.HINT 113Q CLEARINGHOUSE 77Q CLEARINGHOUSE 16Q BROADCASTNSHOSTNUMBER) NIL \CH.BROADCAST.FOR.SERVERS.ON.NET D1 (P 1 RESULT P 0 RESPONSE I 2 EPKT I 1 SOCKET I 0 NET) ^@Bll@ jd` o` o@` o` `k[JABi XH YKkذ YI(131Q CH.NSADDRESS 115Q \CH.READ.BROADCAST.RESPONSE 107Q EXCHANGEXIPS 67Q PRIN1 54Q PRINTNUM 40Q PRIN1 25Q TAB 15Q \PUTFIXP) (72Q \MAXETHERTRIES 64Q PROMPTWINDOW 51Q PROMPTWINDOW 35Q PROMPTWINDOW 22Q PROMPTWINDOW) (61Q "]" 45Q (FIX 0 10Q) 32Q "[Broadcasting for Clearinghouse servers on net ") \CH.READ.BROADCAST.RESPONSE D1 (P 2 HIGH.VERSION P 1 LOW.VERSION P 0 STREAM I 0 EPKT) ?@ !H H YH H ZIl#lJH H lH H Hgg h(72Q COURIER.READ 3 \STREAM.FROM.PACKET) (67Q NETWORK.ADDRESS.LIST 64Q CLEARINGHOUSE) NIL PARSE.CH.NAME D1 (P 4 J P 3 I P 2 THIRDPART P 1 SECONDPART P 0 FIRSTPART I 2 NOWILDCARDS I 1 #PARTS.REQUESTED I 0 NAME) ~PAlb@ obdd@dll @Adkg@ B l(gd@ i hgd@ B hhAl:gd@ i hgd@ i hgd@ B hhoA @ bo@ [6@kKk o@Kk \@KkLk @Lk @Kk @AdkJIHB l)gJI`i hgJIHB hhAl2gJ`i hgI`i hgHB hhoA (573Q ERROR 553Q \CH.CHECK.WILDCARD 540Q \CH.CHECK.WILDCARD 520Q \CH.CHECK.WILDCARD 466Q \CH.CHECK.WILDCARD 446Q \CH.CHECK.WILDCARD 420Q \CH.CHECK.WILDCARD 373Q SUBSTRING 362Q SUBSTRING 352Q SUBSTRING 335Q STRPOS 321Q SUBSTRING 306Q STRPOS 273Q MKSTRING 266Q ERROR 246Q \CH.CHECK.WILDCARD 240Q ASSOC 225Q \CH.CHECK.WILDCARD 217Q ASSOC 204Q \CH.CHECK.WILDCARD 176Q ASSOC 151Q \CH.CHECK.WILDCARD 143Q ASSOC 130Q \CH.CHECK.WILDCARD 122Q ASSOC 104Q \CH.CHECK.WILDCARD 76Q ASSOC 52Q \LISPERROR 5 GETCLEARINGHOUSE) (546Q OBJECT 534Q CH.DEFAULT.DOMAIN 526Q DOMAIN 514Q CH.DEFAULT.ORGANIZATION 506Q ORGANIZATION 454Q DOMAIN 442Q CH.DEFAULT.ORGANIZATION 431Q ORGANIZATION 233Q OBJECT 212Q DOMAIN 171Q ORGANIZATION 136Q DOMAIN 115Q ORGANIZATION 72Q ORGANIZATION) (567Q "Clearinghouse names must have 1, 2, or 3 parts" 326Q ":" 302Q ":" 262Q "Clearinghouse names must have 1, 2, or 3 parts" 23Q "*") CH.NAME.TO.STRING D1 (P 2 OBJ P 1 DOM P 0 ORG I 1 FULLNAMEFLG I 0 CHNAME) @dl@ b@ dl.g@ g@ AH` IoH IlUg@ g@ g@ AH` JoIoH I` JoI Jo @l (244Q \LISPERROR 235Q CONCAT 224Q CONCAT 212Q STREQUAL.EXCEPT.FOR.CASE 202Q CONCAT 162Q STREQUAL.EXCEPT.FOR.CASE 144Q ASSOC 133Q ASSOC 122Q ASSOC 103Q CONCAT 71Q STREQUAL.EXCEPT.FOR.CASE 53Q ASSOC 42Q ASSOC 24Q LENGTH 15Q PARSE.CH.NAME) (207Q CH.DEFAULT.DOMAIN 157Q CH.DEFAULT.ORGANIZATION 140Q OBJECT 127Q DOMAIN 116Q ORGANIZATION 66Q CH.DEFAULT.ORGANIZATION 47Q DOMAIN 36Q ORGANIZATION) (232Q ":" 220Q ":" 175Q ":" 170Q ":" 77Q ":") CANONICAL.CH.NAME D1 (I 0 NAME) @ (11Q MKATOM 6 CH.NAME.TO.STRING 3 PARSE.CH.NAME) NIL NIL \CH.CHECK.WILDCARD D1 (I 1 WILDCARDSILLEGALP I 0 STRING) @obAo@ @o@ (35Q ERROR 22Q STRPOS) NIL (31Q "Wildcard characters not allowed" 16Q "*" 5 "*") CH.PROPERTY D1 (I 0 PROP) @dlo  o@ (32Q ERROR 16Q ASSOC) NIL (26Q "Unknown Clearinghouse property" 13Q ((ALL 0) (CLEARINGHOUSE.NAMES 3) (CLEARINGHOUSE.ADDRESSES 4) (FILESERVER 12Q) (PRINTSERVER 13Q) (IRS 14Q) (USER 16Q) (MAILSERVER 17Q) (WORKSTATION 21Q) (ECS 24Q) (ITS 27Q))) \CH.GUESS.NEW.PROPERTIES D1 (P 3 ID P 1 OBJECTS P 0 PATTERN I 2 MAXPROPERTYID I 1 MINPROPERTYID I 0 DOMAIN) K@l o AkbBlbdA2KJ HK YKIM Nh]Kk[N&L(56Q CH.ENUMERATE 17Q PARSE.CH.NAME 14Q \APPEND2 5 PARSE.CH.NAME) NIL (11Q (OBJECT "*")) CH.NSADDRESS D1 (P 1 HOST P 0 NET I 0 X) GPg@ gg Xg@ Y`dH IdJIdKIdL(50Q \PUTFIXP 34Q ASSOC 24Q COURIER.READ.REP 11Q ASSOC) (42Q NSADDRESSTYPE# 30Q HOST 21Q LONGCARDINAL 16Q CLEARINGHOUSE 5 NETWORK) NIL CH.GETAUTHENTICATOR D1 NIL oNIL NIL (3 ((CREDENTIALS ((TYPE 0) (VALUE NIL))) (VERIFIER (0)))) CH.ENUMERATEA0022 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 TRANSFER.STREAM F 3 OBJECTPATTERN F 4 RESETY F 5 PROPERTY F 6 ENUMERATION.LIST) >gPhhhQcPggSU hi cdgg c R ci(70Q CLOSEF 61Q COURIER.READ.BULKDATA 44Q COURIER.CALL 37Q CH.GETAUTHENTICATOR 33Q CH.PROPERTY) (56Q OBJECT 53Q CLEARINGHOUSE 26Q LIST.OBJECTS 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) () CH.ENUMERATE D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 ENUMERATION.LIST P 1 TRANSFER.STREAM P 0 STREAM I 1 PROPERTY I 0 OBJECTPATTERN F 6 LISPXHIST F 7 RESETVARSLST) J0@ bAgb@l i hig Xd"V!Wog hg] MJ(106Q ERROR! 100Q RESETRESTORE 66Q CH.ENUMERATEA0022 42Q COURIER.OPEN 32Q CH.FINDSERVER 26Q PARSE.CH.NAME 6 PARSE.CH.NAME) (74Q ERROR 63Q INTERNAL 37Q CLEARINGHOUSE 15Q ALL) ( 60Q (DUMMY.FOR.ERRORSET)) CH.LOOKUPA0023 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 RESETVARSLST F 2 RESETY F 3 OBJECTPATTERN F 4 PROPERTY) )gPhhhQcPggST i ci(43Q COURIER.CALL 36Q CH.GETAUTHENTICATOR 33Q CH.PROPERTY) (26Q RETRIEVE.ITEM 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) () CH.LOOKUP D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 STREAM I 1 PROPERTY I 0 OBJECTPATTERN F 4 LISPXHIST F 5 RESETVARSLST) @@ bdl i hig H"T!Uog hg[ KJ(73Q ERROR! 66Q RESETRESTORE 54Q CH.LOOKUPA0023 27Q COURIER.OPEN 17Q CH.FINDSERVER 13Q PARSE.CH.NAME 3 PARSE.CH.NAME) (62Q ERROR 51Q INTERNAL 24Q CLEARINGHOUSE) ( 46Q (DUMMY.FOR.ERRORSET)) LOOKUP.NS.SERVER D1 (P 3 PAIR P 1 X P 0 ADDRESS I 1 TYPE I 0 NAME F 4 NS.SERVER.NAMES.TO.ADDRESSES) P @ bTJ-H A@A YHgg @HhTc[@ KJZ(102Q EQUAL.CH.NAMES 56Q CH.NSADDRESS 53Q COURIER.READ.REP 33Q CH.LOOKUP 6 PARSE.CH.NAME) (50Q NETWORK.ADDRESS 45Q CLEARINGHOUSE) NIL CH.LOOKUP.USER D1 (P 1 USER P 0 X I 0 NAME) @g HdHgg h(31Q COURIER.READ.REP 6 CH.LOOKUP) (26Q USER.ENTRY 23Q CLEARINGHOUSE 3 USER) NIL CH.ADD.USERA0024 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM F 1 FULL.NAME F 2 RESETVARSLST F 3 RESETY F 4 LAST.NAME F 5 INFO) UgPhhhRcPggQ PggTQ PggQg Ugg  ci(117Q COURIER.CALL 113Q CH.GETAUTHENTICATOR 110Q COURIER.WRITE.REP 76Q CH.PROPERTY 57Q COURIER.CALL 53Q CH.GETAUTHENTICATOR 36Q COURIER.CALL 32Q CH.GETAUTHENTICATOR) (105Q USER.ENTRY 102Q CLEARINGHOUSE 73Q USER 67Q ADD.ITEM.PROPERTY 64Q CLEARINGHOUSE 46Q CREATE.ALIAS 43Q CLEARINGHOUSE 26Q CREATE.OBJECT 23Q CLEARINGHOUSE 2 \SPP.RESETCLOSE) () CH.ADD.USER D1 (P 12Q RESETZ P 11Q RESETY P 10Q LISPXHIST P 7 I P 6 STREAM P 5 SYSTEM.ADMINISTRATOR P 4 PASSWORD P 3 LAST.NAME P 2 FULL.NAME P 1 LAST.NAME.INDEX P 0 INFO F 13Q LISPXHIST F 14Q RESETVARSLST) oi jRH ZoJIk _JJIk [J ZH\hdo g]hdoJi oKi o  ghgIhgL hgMhgo hgo hoX`l i hig ^dW! Wog hg_ O(345Q ERROR! 336Q RESETRESTORE 323Q CH.ADD.USERA0024 276Q COURIER.OPEN 266Q CH.FINDSERVER 262Q PARSE.CH.NAME 235Q PARSE.CH.NAME 220Q PARSE.CH.NAME 174Q \DECRYPT.PWD 144Q ASKUSER 141Q CONCAT 131Q CH.NAME.TO.STRING 120Q CH.NAME.TO.STRING 100Q ASKUSER 63Q PARSE.CH.NAME 56Q PARSE.CH.NAME 53Q SUBSTRING 37Q STRPOS 20Q MKSTRING 7 \INTERNAL/GETPASSWORD) (331Q ERROR 320Q INTERNAL 273Q CLEARINGHOUSE 255Q CH.DEFAULT.DOMAIN 226Q MAILSERVER 211Q FILESERVER 202Q SYSTEM.ADMINISTRATOR 170Q PASSWORD 161Q LAST.NAME.INDEX 147Q Y 103Q Y) ( 315Q (DUMMY.FOR.ERRORSET) 244Q ((DESCRIPTION "") (PRODUCT "") (TRAINING "") (HELP 0)) 232Q "MS" 215Q "FS" 135Q "' (Y or N) " 124Q "' with alias '" 113Q "Confirm new user '" 75Q "System administrator? " 30Q " " 3 "New Clearinghouse user:") (PRETTYCOMPRINT COURIERCOMS) (RPAQQ COURIERCOMS ((COMS (DECLARE: DONTCOPY EVAL@COMPILE (FILES (LOADCOMP) SPP))) (COMS (* Authentication Protocol.) (COURIERPROGRAMS AUTHENTICATION) (DECLARE: DONTCOPY (CONSTANTS ( \AUTHENTICATION.SIMPLE.CREDENTIALS 0))) (FNS HASH.PASSWORD NSLOGIN)) (COMS (* Printing Protocol.) ( COURIERPROGRAMS PRINTING) (DECLARE: DONTCOPY (GLOBALVARS NS.DEFAULT.PRINTER) (RECORDS NSPRINTINGSTREAM )) (INITVARS (NS.DEFAULT.PRINTER NIL)) (FNS GETNSPRINTER NSPRINT IP.SENDTOPRINTER NSPRINT.WATCHDOG \NSPRINT.WATCHDOG.INTERNAL OPEN.NS.PRINTING.STREAM NSPRINTER.STATUS NSPRINTER.PROPERTIES NSPRINTREQUEST.STATUS)) (COMS (* Clearinghouse Protocol.) (COURIERPROGRAMS CLEARINGHOUSE) (DECLARE: DONTCOPY (CONSTANTS (\CH.NULL.AUTHENTICATOR (QUOTE ((CREDENTIALS ((TYPE 0) (VALUE NIL))) (VERIFIER (0) )))) (CH.PROPERTYIDS (QUOTE ((ALL 0) (CLEARINGHOUSE.NAMES 3) (CLEARINGHOUSE.ADDRESSES 4) (FILESERVER 10) (PRINTSERVER 11) (IRS 12) (USER 14) (MAILSERVER 15) (WORKSTATION 17) (ECS 20) (ITS 23)))) ( \CH.BROADCAST.TYPE 2) (\CH.BROADCAST.SOCKET 20) (\BROADCAST.FOR.SERVERS.LENGTH 22)) (RECORDS \BROADCAST.FOR.SERVERS.PACKET) (GLOBALVARS LOCAL.CLEARINGHOUSE \CH.CACHE CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION)) (INITVARS (CH.DEFAULT.DOMAIN NIL) (CH.DEFAULT.ORGANIZATION NIL) ( LOCAL.CLEARINGHOUSE NIL) (\CH.CACHE NIL) (CLEARINGHOUSE.STRUCTURE.WINDOW NIL) ( NS.SERVER.NAMES.TO.ADDRESSES NIL)) (ADDVARS (\SYSTEMCACHEVARS LOCAL.CLEARINGHOUSE \CH.CACHE NS.SERVER.NAMES.TO.ADDRESSES)) (FNS GETCLEARINGHOUSE START.CLEARINGHOUSE SHOW.CLEARINGHOUSE CH.FINDSERVER \CH.UPDATE.CACHE EQUAL.CH.NAMES MATCHING.CH.NAMES STREQUAL.EXCEPT.FOR.CASE CH.DOMAINS.SERVED CH.DOMAINS CH.ORGANIZATIONS CH.SERVERS CH.BROADCAST.FOR.SERVERS \CH.BROADCAST.FOR.SERVERS.ON.NET \CH.READ.BROADCAST.RESPONSE PARSE.CH.NAME CH.NAME.TO.STRING CANONICAL.CH.NAME \CH.CHECK.WILDCARD CH.PROPERTY \CH.GUESS.NEW.PROPERTIES CH.NSADDRESS CH.GETAUTHENTICATOR CH.ENUMERATE CH.LOOKUP LOOKUP.NS.SERVER CH.LOOKUP.USER CH.ADD.USER)))) (COURIERPROGRAM AUTHENTICATION (14 1) TYPES ((CREDENTIALS.TYPE CARDINAL) (CREDENTIALS (RECORD (TYPE CREDENTIALS.TYPE) (VALUE (SEQUENCE UNSPECIFIED)))) (SIMPLE.CREDENTIALS (CLEARINGHOUSE . NAME)) ( VERIFIER (SEQUENCE UNSPECIFIED)) (SIMPLE.VERIFIER HASHED.PASSWORD) (HASHED.PASSWORD CARDINAL) (PROBLEM (ENUMERATION (CREDENTIALS.INVALID 0) (VERIFIER.INVALID 1))))) (COURIERPROGRAM PRINTING (4 3) TYPES ((REQUEST.ID (ARRAY 5 UNSPECIFIED)) (PRINT.ATTRIBUTES (SEQUENCE ( CHOICE (PRINT.OBJECT.NAME 0 STRING) (PRINT.OBJECT.CREATE.DATE 1 TIME) (SENDER.NAME 2 STRING)))) ( PRINT.OPTIONS (SEQUENCE (CHOICE (PRINT.OBJECT.SIZE 0 LONGCARDINAL) (RECIPIENT.NAME 1 STRING) (MESSAGE 2 STRING) (COPY.COUNT 3 CARDINAL) (PAGES.TO.PRINT 4 (RECORD (BEGINNING.PAGE.NUMBER CARDINAL) ( ENDING.PAGE.NUMBER CARDINAL))) (MEDIUM.HINT 5 MEDIUM) (PRIORITY.HINT 6 (ENUMERATION (HOLD 0) (LOW 1) ( NORMAL 2) (HIGH 3))) (RELEASE.KEY 7 HASHED.PASSWORD) (STAPLE 8 BOOLEAN) (TWO.SIDED 9 BOOLEAN)))) ( PRINTER.PROPERTIES (SEQUENCE (CHOICE (MEDIA 0 MEDIA) (STAPLE 1 BOOLEAN) (TWO.SIDED 2 BOOLEAN)))) ( PRINTER.STATUS (SEQUENCE (CHOICE (SPOOLER 0 (ENUMERATION (AVAILABLE 0) (BUSY 1) (DISABLED 2) (FULL 3)) ) (FORMATTER 1 (ENUMERATION (AVAILABLE 0) (BUSY 1) (DISABLED 2))) (PRINTER 2 (ENUMERATION (AVAILABLE 0 ) (BUSY 1) (DISABLED 2) (NEEDS.ATTENTION 3) (NEED.KEY.OPERATOR 4))) (MEDIA 3 MEDIA)))) (MEDIA ( SEQUENCE MEDIUM)) (MEDIUM (CHOICE (PAPER 0 PAPER))) (PAPER (CHOICE (UNKNOWN 0 NIL) (KNOWN.SIZE 1 ( ENUMERATION (US.LETTER 1) (US.LEGAL 2) (A0 3) (A1 4) (A2 5) (A3 6) (A4 7) (A5 8) (A6 9) (A7 10) (A8 11 ) (A9 12) (A10 35) (ISO.B0 13) (ISO.B1 14) (ISO.B2 15) (ISO.B3 16) (ISO.B4 17) (ISO.B5 18) (ISO.B6 19) (ISO.B7 20) (ISO.B8 21) (ISO.B9 22) (ISO.B10 23) (JIS.B0 24) (JIS.B1 25) (JIS.B2 26) (JIS.B3 27) ( JIS.B4 28) (JIS.B5 29) (JIS.B6 30) (JIS.B7 31) (JIS.B8 32) (JIS.B9 33) (JIS.B10 34))) (OTHER.SIZE 2 ( RECORD (WIDTH CARDINAL) (LENGTH CARDINAL))))) (REQUEST.STATUS (SEQUENCE (CHOICE (STATUS 0 (ENUMERATION (PENDING 0) (IN.PROGRESS 1) (COMPLETED 2) (UNKNOWN 3) (REJECTED 4) (ABORTED 5) (CANCELLED 6) (HELD 7) )) (STATUS.MESSAGE 1 STRING)))) (CONNECTION.PROBLEM (ENUMERATION (NO.ROUTE 0) (NO.RESPONSE 1) ( TRANSMISSION.HARDWARE 2) (TRANSPORT.TIMEOUT 3) (TOO.MANY.LOCAL.CONNECTIONS 4) ( TOO.MANY.REMOTE.CONNECTIONS 5) (MISSING.COURIER 6) (MISSING.PROGRAM 6) (MISSING.PROCEDURE 7) ( PROTOCOL.MISMATCH 9) (PARAMETER.INCONSISTENCY 10) (INVALID.MESSAGE 11) (RETURN.TIMED.OUT 12) ( OTHER.CALL.PROBLEM -1))) (TRANSFER.PROBLEM (ENUMERATION (ABORTED 0) (FORMAT.INCORRECT 2) ( NO.RENDEZVOUS 3) (WRONG.DIRECTION 4)))) PROCEDURES ((PRINT ARGS (BULK.DATA.SOURCE PRINT.ATTRIBUTES PRINT.OPTIONS) RESULTS (REQUEST.ID) ERRORS (BUSY CONNECTION.ERROR INSUFFICIENT.SPOOL.SPACE INVALID.PRINT.PARAMETERS MASTER.TOO.LARGE MEDIUM.UNAVAILABLE SERVICE.UNAVAILABLE SPOOLING.DISABLED SPOOLING.QUEUE.FULL SYSTEM.ERROR TOO.MANY.CLIENTS TRANSFER.ERROR UNDEFINED.ERROR) 0) ( GET.PRINTER.PROPERTIES RESULTS (PRINTER.PROPERTIES) ERRORS (SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR) 1) (GET.PRINT.REQUEST.STATUS ARGS (REQUEST.ID) RESULTS (REQUEST.STATUS) ERRORS ( SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR) 2) (GET.PRINTER.STATUS RESULTS (PRINTER.STATUS) ERRORS (SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR) 3)) ERRORS ((BUSY 0) (CONNECTION.ERROR ERROR ARGS (CONNECTION.PROBLEM) 11) (INSUFFICIENT.SPOOL.SPACE 1) (INVALID.PRINT.PARAMETERS 2) ( MASTER.TOO.LARGE 3) (MEDIUM.UNAVAILABLE 4) (SERVICE.UNAVAILABLE 5) (SPOOLING.DISABLED 6) ( SPOOLING.QUEUE.FULL 7) (SYSTEM.ERROR 8) (TOO.MANY.CLIENTS 9) (TRANSFER.ERROR ARGS (TRANSFER.PROBLEM) 12) (UNDEFINED.ERROR ARGS (CARDINAL) 10))) (RPAQ? NS.DEFAULT.PRINTER NIL) (COURIERPROGRAM CLEARINGHOUSE (2 2) TYPES ((ORGANIZATION STRING) (DOMAIN STRING) (OBJECT STRING) ( ORGANIZATION.NAME ORGANIZATION) (TWO.PART.NAME (RECORD (ORGANIZATION ORGANIZATION) (DOMAIN DOMAIN))) ( DOMAIN.NAME TWO.PART.NAME) (THREE.PART.NAME (RECORD (ORGANIZATION ORGANIZATION) (DOMAIN DOMAIN) ( OBJECT OBJECT))) (OBJECT.NAME THREE.PART.NAME) (NAME THREE.PART.NAME) (ORGANIZATION.NAME.PATTERN ORGANIZATION) (DOMAIN.NAME.PATTERN TWO.PART.NAME) (OBJECT.NAME.PATTERN THREE.PART.NAME) (PROPERTY LONGCARDINAL) (PROPERTIES (SEQUENCE PROPERTY)) (ITEM (SEQUENCE UNSPECIFIED)) (NETWORK.ADDRESS (RECORD (NETWORK (ARRAY 2 UNSPECIFIED)) (HOST (ARRAY 3 UNSPECIFIED)) (SOCKET UNSPECIFIED))) ( NETWORK.ADDRESS.LIST (SEQUENCE NETWORK.ADDRESS)) (AUTHENTICATOR (RECORD (CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (VERIFIER (AUTHENTICATION . VERIFIER)))) (USER.ENTRY (RECORD (LAST.NAME.INDEX CARDINAL) (PASSWORD STRING) (SYSTEM.ADMINISTRATOR BOOLEAN) (FILESERVER OBJECT.NAME) (MAILSERVER OBJECT.NAME) (DESCRIPTION STRING) (PRODUCT STRING) (TRAINING STRING) (HELP UNSPECIFIED))) ( WHICH.ARGUMENT (ENUMERATION (FIRST 1) (SECOND 2))) (ARGUMENT.PROBLEM (ENUMERATION (ILLEGAL.PROPERTY 10 ) (ILLEGAL.ORGANIZATION.NAME 11) (ILLEGAL.DOMAIN.NAME 12) (ILLEGAL.OBJECT.NAME 13) ( NO.SUCH.ORGANIZATION 14) (NO.SUCH.DOMAIN 15) (NO.SUCH.OBJECT 16))) (CALL.PROBLEM (ENUMERATION ( ACCESS.RIGHTS.INSUFFICIENT 1) (TOO.BUSY 2) (SERVER.DOWN 3) (USE.COURIER 4) (OTHER 5))) ( PROPERTY.PROBLEM (ENUMERATION (MISSING 20) (WRONG.TYPE 21))) (UPDATE.PROBLEM (ENUMERATION (NO.CHANGE 30) (OUT.OF.DATE 31) (OBJECT.OVERFLOW 32) (DATABASE.OVERFLOW 33)))) PROCEDURES ((CREATE.OBJECT ARGS ( OBJECT.NAME AUTHENTICATOR) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER) 2) (DELETE.OBJECT ARGS (OBJECT.NAME AUTHENTICATOR) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER) 3) (LOOKUP.OBJECT ARGS (OBJECT.NAME.PATTERN AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR CALL.ERROR WRONG.SERVER) 4) ( LIST.ORGANIZATIONS ARGS (ORGANIZATION.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) ERRORS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER) 5) (LIST.DOMAINS ARGS ( DOMAIN.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER) 6) (LIST.OBJECTS ARGS (OBJECT.NAME.PATTERN PROPERTY BULK.DATA.SINK AUTHENTICATOR) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER) 7) ( LIST.ALIASES.OF ARGS (OBJECT.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER) 9) (CREATE.ALIAS ARGS (OBJECT.NAME OBJECT.NAME AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER) 10) (DELETE.ALIAS ARGS (OBJECT.NAME AUTHENTICATOR) RESULTS ( OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR UPDATE.ERROR WRONG.SERVER) 11) ( LIST.ALIASES ARGS (OBJECT.NAME.PATTERN BULK.DATA.SINK AUTHENTICATOR) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER) 8) (DELETE.PROPERTY ARGS (OBJECT.NAME PROPERTY AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 14) (LIST.PROPERTIES ARGS (OBJECT.NAME.PATTERN AUTHENTICATOR ) RESULTS (OBJECT.NAME PROPERTIES) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR WRONG.SERVER ) 15) (ADD.ITEM.PROPERTY ARGS (OBJECT.NAME PROPERTY ITEM AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 13) ( RETRIEVE.ITEM ARGS (OBJECT.NAME.PATTERN PROPERTY AUTHENTICATOR) RESULTS (OBJECT.NAME ITEM) ERRORS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR WRONG.SERVER) 16) (CHANGE.ITEM ARGS ( OBJECT.NAME PROPERTY ITEM AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 17) (ADD.GROUP.PROPERTY ARGS (OBJECT.NAME PROPERTY BULK.DATA.SOURCE AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 12) (RETRIEVE.MEMBERS ARGS ( OBJECT.NAME.PATTERN PROPERTY BULK.DATA.SINK AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS ( ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR WRONG.SERVER) 18) (ADD.MEMBER ARGS ( OBJECT.NAME PROPERTY THREE.PART.NAME AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 19) (ADD.SELF ARGS ( OBJECT.NAME PROPERTY AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 20) (DELETE.MEMBER ARGS (OBJECT.NAME PROPERTY THREE.PART.NAME AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 21) (DELETE.SELF ARGS (OBJECT.NAME PROPERTY AUTHENTICATOR) RESULTS (OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR UPDATE.ERROR WRONG.SERVER) 22) (IS.MEMBER ARGS (OBJECT.NAME.PATTERN PROPERTY PROPERTY THREE.PART.NAME AUTHENTICATOR) RESULTS (BOOLEAN OBJECT.NAME) ERRORS (ARGUMENT.ERROR AUTHENTICATION.ERROR CALL.ERROR PROPERTY.ERROR WRONG.SERVER) 23) (RETRIEVE.ADDRESSES RESULTS ( NETWORK.ADDRESS.LIST) ERRORS (CALL.ERROR) 0) (LIST.DOMAINS.SERVED ARGS (BULK.DATA.SINK AUTHENTICATOR) ERRORS (CALL.ERROR) 1)) ERRORS ((ARGUMENT.ERROR ARGS (ARGUMENT.PROBLEM WHICH.ARGUMENT) 2) ( AUTHENTICATION.ERROR ARGS (AUTHENTICATION.PROBLEM) 6) (CALL.ERROR ARGS (CALL.PROBLEM) 1) ( PROPERTY.ERROR ARGS (PROPERTY.PROBLEM OBJECT.NAME) 3) (UPDATE.ERROR ARGS (UPDATE.PROBLEM BOOLEAN WHICH.ARGUMENT OBJECT.NAME) 4) (WRONG.SERVER ARGS (OBJECT.NAME) 5))) (RPAQ? CH.DEFAULT.DOMAIN NIL) (RPAQ? CH.DEFAULT.ORGANIZATION NIL) (RPAQ? LOCAL.CLEARINGHOUSE NIL) (RPAQ? \CH.CACHE NIL) (RPAQ? CLEARINGHOUSE.STRUCTURE.WINDOW NIL) (RPAQ? NS.SERVER.NAMES.TO.ADDRESSES NIL) (ADDTOVAR \SYSTEMCACHEVARS LOCAL.CLEARINGHOUSE \CH.CACHE NS.SERVER.NAMES.TO.ADDRESSES) (PUTPROPS COURIER COPYRIGHT ("Xerox Corporation" 1983)) NIL