(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "27-Dec-98 22:37:33" ("compiled on " {DSK}medley3.5>library>NSMAINTAIN.;1) "31-Jan-98 19:10:48" tcompl'd in "Medley 3.5 PARC Full Sysout 12-Nov-98 ..." dated "12-Nov-98 12:21:33") (FILECREATED " 8-Jan-92 10:57:28" "{piglet/n}vanmelle>lispusers>NSMAINTAIN.;32" 69479 changes to%: (FNS \NSMT.DESCRIBE.OBJECT) (VARS NSMAINTAINCOMS) previous date%: "17-Sep-91 14:31:41" "{piglet/n}vanmelle>lispusers>NSMAINTAIN.;30") NSMAINTAINA0001 :D8 (L (0 OBJECT)) @$NIL (5 NSNAME) () NSMAINTAINA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::NLSETQ-VALUE) Fi@hdo`iho ZddcgjJi J (66 APPLY 55 TERPRI 29 ASKUSER) (41 :NORMAL 16 *NSMAINTAIN-COMMANDS*) ( 23 (AUTOCOMPLETEFLG T) 11 "CH: ") NSMAINTAIN :D8 (P 16 SI::*NLSETQFLAG* P 15 *PROCEED-CASES* P 14 SI::NLSETQ-VALUE P 12 *OBJECTTYPES* P 11 *ALLTYPES* P 10 *SERVERTYPES* P 9 *LAST-MEMBERSHIP* P 8 *LASTLIST* P 7 *LASTSTRING* P 6 *LASTGROUP* P 5 *LASTDOMAIN* P 4 *DEFAULTDOMAIN* P 3 *LASTNAME* P 2 *USER* P 1 *REAL-NAME-CACHE* P 0 *STANDARD-OUTPUT* F 17 *PROCEED-CASES*) ig l hgg  J_i `W"O gOJO 6oJO (gOi ohdig  h(143 SETPASSWORD 138 PROMPTFORWORD 119 NSNAME.TO.STRING 104 CL:Y-OR-N-P 89 EQUAL.CH.NAMES 67 NSMAINTAINA0002 45 TERPRI 36 \NSMT.INITIAL.LOGIN 28 HASHARRAY 10 \GETSTREAM) (132 * 111 |NS::| 73 :NORMAL 54 SI::NLSETQ-PROCEED-CASE 23 EQUAL.CH.NAMES 18 NSMAINTAINA0001 5 OUTPUT) ( 124 "Password: " 96 "Note: ~A is currently logged in. Restore login to ~A? ") \NSMT.INITIAL.LOGIN :D8 (F 3 *USER* F 4 *LASTNAME* F 5 CH.DEFAULT.DOMAIN F 6 CH.DEFAULT.ORGANIZATION F 7 *DEFAULTDOMAIN* F 8 *LASTDOMAIN*) g !H c YdghoohioISi J`dUdVcci IcSI HIcci h(127 NSNAME.TO.STRING 114 EQUAL.CH.NAMES 102 CL:FORMAT 96 NSNAME.TO.STRING 69 NSNAME.TO.STRING 26 \NSMT.LOOKUP1 19 PARSE.NSNAME 9 \INTERNAL/GETPASSWORD) (75 |NSNAMETYPE#| 33 :NONE 4 |NS::|) ( 59 "[Default login: ~A~@[ (~A)~];~%% Default domain: ~A]~%%" 50 "no verification from Clearinghouse" 43 "not a valid name") \NSMT.HELP :D8 (P 1 *LASTSTRING*) d i i oi i i hi  `_I#L I_] l?Og'[IM ^JIMgJgJ zL:IkJ i oi IJk i hi k_oi i NJlHi Ohi MJ i CILIoi i KoM ZMi\Mi i hYOoi i (353 TERPRI 347 PRIN1 326 TERPRI 319 PRIN1 304 STRPOS 289 TERPRI 282 PRIN1 262 PRIN1 256 SUBSTRING 248 TAB 238 TERPRI 221 POSITION 214 PRIN1 198 POSITION 189 PRIN1 183 SUBSTRING 173 PRIN1 161 PRIN1 155 SUBSTRING 142 STRING-EQUAL 115 NCHARS 84 CHCON1 45 LINELENGTH 38 TERPRI 31 TERPRI 24 PRIN1 12 TERPRI 5 TERPRI) (135 :END2 129 :END1 98 EXPLAINSTRING 53 *NSMAINTAIN-COMMANDS*) ( 341 "}" 298 " " 276 "}" 208 "," 167 "{" 18 " You need type only the initial letters of most command words.% Use Control-E to abort a command.") \NSMT.READFNAME :D8 (L (5 *OK 4 CHECK 3 ...FLG 2 DOMAINFLG 1 DEFAULT 0 PROMPT) F 4 *DEFAULTDOMAIN*) o1@Add Ai hihdo Yoi i hHI Z0Hi BTi `T dII `HIJk B$Joi i hIlT xJ Hi I Ti IlT JJiIkm YcTi Hi Ti `T dIoI XEdgh/i+oK BzoK foi i Kb}DIKDg 9Ddgi$gDgo i hKb4Coi K(484 PRIN1 460 TERPRI 453 CL:Y-OR-N-P 413 \NSMT.LOOKUP 389 TERPRI 382 PRIN1 369 STRPOS 346 STRPOS 309 STRPOS 292 NCREATE2 280 PRIN1 265 PRIN1 257 PRIN1 239 SUBSTRING 223 PARSE.NSNAME 213 PRIN1 197 NCHARS 189 PRIN1 177 PARSE.NSNAME 166 TERPRI 159 PRIN1 141 STRPOS 128 NCHARS 115 NCREATE2 103 PRIN1 83 PRIN1 73 STRPOS 64 TERPRI 57 PRIN1 43 PROMPTFORWORD 28 NSNAME.TO.STRING) (441 :CONFIRM 433 :FOREIGN 422 :OK 407 :FOREIGN 362 NSNAME 339 NSNAME 318 :ANY 286 |NSNAMETYPE#| 272 NSNAME 249 NSNAME 205 NSNAME 109 |NSNAMETYPE#| 95 NSNAME 18 NSNAME) ( 478 " ... " 448 " Use it anyway? " 376 " ... Invalid use of *" 356 "*" 333 "*" 303 "*" 153 " Invalid domain" 51 " xxx" 37 (13) 4 ":") \NSMT.LOOKUP :D8 (L (1 FOREIGNOK 0 NAME) F 3 *REAL-NAME-CACHE*) @d@ bS !H.@ ZgJ @ Y@IS I#oNYghJgA@Idgoi h@ oi Ii i I(154 PRIN1 148 NSNAME.TO.STRING 140 PRIN1 127 EQUAL.CH.NAMES 119 PRIN1 61 PUTHASH 51 \NSMT.LOOKUP1 34 \NSMT.CHECK.DOMAIN 22 GETHASH 14 PARSE.NSNAME) (105 :NONE 90 :FOREIGN 80 :NONE 40 :OK 6 NSNAME) ( 134 " = " 113 " (non-existent name)" 70 " (couldn't verify name)") \NSMT.LOOKUP1 :D8 (L (0 NAME)) >@i d4lgg@g dgg(38 COURIER.EXPEDITED.CALL 27 CH.GETAUTHENTICATOR 6 CH.FINDSERVER) (59 :NONE 51 NoSuchObject 32 RETURNERRORS 21 LOOKUP.OBJECT 16 CLEARINGHOUSE) () \NSMT.CHECK.DOMAIN :D8 (L (0 NAME) F 4 *REAL-NAME-CACHE*) n@1`dHdodoYT hJYHid [%`I dodo ZdggZ`I JT Jgoi JIII@IT ZhKHid @Kgg `I do dg@ ZhgIJT Jg3oi Jgooi oi J(362 PRIN1 350 PRIN1 324 PRIN1 303 PUTHASH 283 \NSMT.FOREIGN.DOMAINP 268 \NSMT.LOOKUP1 254 NCREATE2 241 CL:ASSOC 213 \CH.FIND.ORG.SERVER 200 GETHASH 157 PRIN1 137 PUTHASH 130 NCREATE2 97 \NSMT.LOOKUP1 74 NCREATE2 60 \CH.FIND.ORG.SERVER 46 GETHASH) (331 :FOREIGN 310 :OK 294 :OK 274 :NONE 248 |NSNAMETYPE#| 236 STRING-EQUAL 231 :TEST 221 NSNAME 188 NSNAME 182 NSNAME 171 NSNAME 165 NSNAME 144 :OK 124 |NSNAMETYPE#| 117 :OK 104 :NONE 68 |NSNAMETYPE#| 15 |NSNAMETYPE#| 5 NSNAME) ( 356 " domain)" 344 "no such" 338 "foreign" 318 " (" 260 "CHServers" 151 " (no such organization)" 89 "CHServers" 80 "CHServers" 36 "*" 27 "*") \NSMT.DOMAIN.MAY.EXIST :D8 (L (0 DOMAIN)) @ HHgi(5 \NSMT.CHECK.DOMAIN) (16 :OK) () \NSMT.FOREIGN.DOMAINP :D8 (L (0 NAME)) `@@ HdIdodo Hdgdi dlggHnN'g YcIdgHgg Y@I *@I ggg(199 CL::SIMPLE-STRING-EQUAL 176 CL::SIMPLE-STRING-EQUAL 154 COURIER.READ.REP 122 COURIER.EXPEDITED.CALL 111 CH.GETAUTHENTICATOR 85 CH.FINDSERVER 59 \NSMT.LOOKUP1 26 CONCAT) (223 :NONE 215 Missing 206 :FOREIGN 192 NSNAME 184 NSNAME 169 NSNAME 161 NSNAME 149 NSNAME 144 CLEARINGHOUSE 134 ERROR 116 RETURNERRORS 102 RETRIEVE.ITEM 97 CLEARINGHOUSE 69 :NONE 19 NSNAME 11 NSNAME 4 |NSNAMETYPE#|) ( 51 "..." 42 "...") \NSMT.COLLECT.NAMES :D8 (L (2 *OK 1 CHECK 0 PROMPT)) +0i @hddAB HI JhYJ&(21 \NSMT.READFNAME 8 TERPRI) NIL () \NSMT.GET.REMARK :D8 (L (0 DEFAULT)) o@hihdo (20 PROMPTFORWORD) NIL ( 14 (13) 4 "Remark (terminate with CR):") \NSMT.GET.PASSWORD :D8 (L (0 PROMPT)) S@hdig Xdohdig  Hi oi i o(73 TERPRI 66 PRIN1 54 TERPRI 45 STREQUAL 40 PROMPTFORWORD 17 PROMPTFORWORD) (34 * 11 *) ( 79 "Password:" 60 "Mismatch. Try again." 26 " (retype password)") \NSMT.LOGIN :D8 (F 2 *USER* F 3 *DEFAULTDOMAIN*) d gi Xd,lS c YioRi hhgHIci H (96 \NSMT.SHOW.RESULT 91 NS.AUTHENTICATE 86 NS.MAKE.SIMPLE.CREDENTIALS 78 NSNAME.TO.STRING 54 CL:FORMAT 49 NSNAME.TO.STRING 33 \NSMT.LOOKUP1 26 PARSE.NSNAME 13 \INTERNAL/GETPASSWORD) (65 :NONE 7 |NS::|) ( 42 " Invalid name ~A~%%") \NSMT.GETAUTHENTICATOR :D8 (F 1 *USER*) Ig H4gQgg hH gg h(70 ERROR! 61 COURIER.WRITE.REP 46 HASH.PASSWORD 36 COURIER.WRITE.REP 9 \INTERNAL/GETPASSWORD) (56 SIMPLE.VERIFIER 51 AUTHENTICATION 31 SIMPLE.CREDENTIALS 26 AUTHENTICATION 20 SIMPLE 4 |NS::|) () \NSMT.CHANGE.DOMAIN :D8 (F 1 *DEFAULTDOMAIN* F 2 CH.DEFAULT.DOMAIN F 3 CH.DEFAULT.ORGANIZATION F 4 *LASTDOMAIN*) AoQi H/i o HcHcHcc(33 CL:Y-OR-N-P 23 TERPRI 11 \NSMT.READFNAME) (52 NSNAME 41 NSNAME) ( 28 "Set this default globally as well (i.e. for use outside Maintain)? " 4 " (for name entry) to be:") \NSMT.PRINT.LIST :D8 (L (1 PREFIX 0 LST) F 0 BOLDFONT F 1 DEFAULTFONT) PAPi Ai Qi @dg oi @ihdo i (77 TERPRI 70 MAPRINT 54 PRIN1 41 \NSMT.SHOW.RESULT 25 CHANGEFONT 17 PRIN1 9 CHANGEFONT) (34 ERROR) ( 64 ", " 48 "(none)") \NSMT.PRINT.OBJECTS :D8 (L (0 OBJECTS) F 4 BOLDFONT F 5 DEFAULTFONT) @1H i J(IJ IK oVi oi Ti IZi oi I[i Ui oi Ii HX](163 PRIN1 148 PRIN1 136 CHANGEFONT 128 PRIN1 112 PRIN1 100 PRIN1 84 CHANGEFONT 76 PRIN1 64 TERPRI 50 CL::SIMPLE-STRING-EQUAL 34 CL::SIMPLE-STRING-EQUAL 14 TERPRI) (155 NSNAME 119 NSNAME 91 NSNAME 42 NSNAME 26 NSNAME) ( 142 "] " 106 ":" 70 "[In " 56 ", ") \NSMT.PROCESS.LIST :D8 (L (2 LISTFN 0 ITEMS) I 1 *DOMAIN* F 0 *LASTDOMAIN* F 1 *LASTLIST*) >@g@ B@kBb@ @A`A dhc@c(48 NCREATE2 30 \NSMT.PRINT.LIST 14 \NSMT.SHOW.RESULT) (42 |NSNAMETYPE#| 6 ERROR) () \NSMT.READ.COMMA.LIST :D8 (L (1 DEFAULT 0 PROMPT)) @hdohdAdEd;@AdoK hXIHZYJ YH HDkAoHIoHI ]dk d jKLh[ZMMkYJL&[(136 NCHARS 130 CL:STRING-TRIM 125 SUBSTRING 115 STRPOS 86 TTYIN 80 MKSTRING 69 LAST 63 CONCATLIST 38 MKSTRING) NIL ( 108 "," 101 (#\Space #\Tab) 32 ", " 7 (STRING NORAISE)) \NSMT.SHOW.RESULT :D8 (L (3 SECOND 2 FIRST 1 PART 0 RESULT)) @i@oi i iAoi Ai oi @dgAi @dgBgCHoi Hi i i h(148 TERPRI 141 PRIN1 132 PRIN1 124 PRIN1 81 PRIN1 60 PRIN1 48 PRIN1 40 PRIN1 24 TERPRI 17 PRIN1) (103 SECOND 93 FIRST 69 ERROR) ( 118 " " 54 " failed: " 34 " " 11 " done") \NSMT.CHOOSE :D8 (L (1 ALTERNATIVES 0 PROMPT)) hd@`Ai (16 ASKUSER) (7 *NSMAINTAIN-ABORT-ITEM*) () \NSMT.COURIER.OPEN :D8 (L (0 DOMAIN) F 2 *REAL-NAME-CACHE*)  @@l bR"@d hhi I@ i@i Xoi Hooi oi @i oi @i oi h(167 PRIN1 155 PRIN1 140 PRIN1 128 PRIN1 113 PRIN1 101 PRIN1 81 PRIN1 67 CH.FINDSERVER 57 \NSMT.CLEAR.CACHE 46 COURIER.OPEN 35 \NSMT.DOMAIN.MAY.EXIST 17 PARSE.NSNAME) (147 NSNAME 120 NSNAME 26 HARRAYP 8 NSNAME) ( 161 "] " 134 ":" 107 " server for " 95 "locate" 89 "contact" 75 "[Couldn't ") \NSMT.CLEAR.CACHE :D8 (L (0 DOMAIN)) @dil bd1H`gg Yh@Zo Ho Ho 6I` `iI hJIgg ["IdKI I` i(211 DREMOVE 197 DREMOVE 182 CL:ASSOC 160 GETCLEARINGHOUSE 146 EQUAL.NSADDRESS 122 DREMOVE 109 CL::SIMPLE-STRING-EQUAL 97 CL::SIMPLE-STRING-EQUAL 84 CL::SIMPLE-STRING-EQUAL 61 CL:ASSOC 27 PARSE.NSNAME 18 GETCLEARINGHOUSE) (216 \CH.CACHE 206 \CH.CACHE 177 STRING-EQUAL 172 :TEST 154 LOCAL.CLEARINGHOUSE 132 LOCAL.CLEARINGHOUSE 127 \CH.CACHE 117 \CH.CACHE 71 NSNAME 56 STRING-EQUAL 51 :TEST 46 \CH.CACHE 35 NSNAME 13 \CH.CACHE 8 LOCAL.CLEARINGHOUSE) ( 104 "CHServers" 92 "..." 79 "*") EQUAL.NSADDRESS :D8 (L (1 A2 0 A1)) @@A-@A$@A@A@A @ANIL (13 NSADDRESS 5 NSADDRESS) () \NSMT.CHANGE.PASSWORD :D8 (F 2 *USER* F 3 *LASTSTRING* F 4 *LASTNAME*) oRi hdi Hho Yoi i oi H;RHcc -I gHi I HI (150 \NSMT.SHOW.RESULT 145 AS.REPLACE.PASSWORDS 140 \ENCRYPT.PWD 135 CONCAT 127 \INTERNAL/SETPASSWORD 120 NSNAME.TO.STRING 106 \NSMT.SHOW.RESULT 101 AS.CHANGE.OWN.PASSWORDS 96 \ENCRYPT.PWD 91 CONCAT 83 EQUAL.CH.NAMES 69 PRIN1 57 TERPRI 51 PRIN1 37 \NSMT.GET.PASSWORD 20 \NSMT.READFNAME 11 NSNAME.TO.STRING) (113 |NS::|) ( 63 "..." 45 " xxx" 32 " to be:" 4 " for user:") \NSMT.DESCRIBE.ACL :D8 (L (4 PROPERTY 3 S 2 AUTH 1 WHICH.LIST 0 NAME) F 2 BOLDFONT F 3 DEFAULTFONT) Cgg@DlAoBBg Ri Adgogoi Si HdH@iC Y;H I ,gHI io@@ H (176 \NSMT.PRINT.LIST 169 CL:FORMAT 140 CL:EVERY 125 LENGTH 119 LENGTH 110 \NSMT.FETCH.ADMINISTRATORS 92 CHANGEFONT 84 PRIN1 48 CHANGEFONT 38 COURIER.CALL) (162 NSNAME 154 NSNAME 133 EQUAL.CH.NAMES 70 selfControllers 56 Administrators 32 RETURNERRORS 10 RETRIEVE.PROPERTY.ACL 5 CHACCESSCONTROL) ( 148 "(Administrators of ~A:~A)~%%" 78 "Friends: " 64 "Owners: " 22 (CHACCESSCONTROL . ELEMENT.NAME)) \NSMT.DESCRIBE.OBJECTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 12 *PRINT-CASE* I 0 SI::*CLEANUP-FORMS* F 13 NAME F 14 S F 15 BOLDFONT F 16 DEFAULTFONT F 17 *NSMAINTAIN-MEMBER-THRESHOLD* F 18 *NSMAINTAIN-SHOW-GROUP-ACCESS* F 19 *LASTGROUP* F 20 *LAST-MEMBERSHIP* F 21 *LASTNAME* F 22 *LASTSTRING* F 23 BRIEFLY)   WggWHg h\]__Idg ci i Wi Wi i W i I` [ lKJd_dn'i_On'&i_ONWioLi oioO WggWOHg dhg OK }NFOih^7O)Li ooi oi lK NWc&Wc*c,W.i WggWoHg K0o d_WOWMOlo NMW$gWgHW WgHW NW"j~Wi oi W i WggWloHg l  Odg 'WOc(O dW"O i W(635 PRINT 628 \NSMT.PRINT.LIST 614 LENGTH 596 \NSMT.SHOW.RESULT 574 COURIER.CALL 540 CHANGEFONT 531 PRIN1 519 CHANGEFONT 499 \NSMT.DESCRIBE.ACL 483 \NSMT.DESCRIBE.ACL 443 \NSMT.DESCRIBE.PROPERTY 409 \NSMT.PRINT.LIST 394 COURIER.CALL 362 TERPRI 335 CL:DELETE 326 PRIN1 314 PRIN1 296 TERPRI 263 CL:DELETE 254 CL:FORMAT 248 COURIER.READ.REP 233 COURIER.CALL 205 \NSMT.PRETTY.PROPERTY 184 TERPRI 128 \NSMT.DESCRIPTIVE.PROPS 122 CL:NSET-DIFFERENCE 108 CHANGEFONT 99 PRIN1 93 NSNAME.TO.STRING 84 CHANGEFONT 75 TERPRI 68 FRESHLINE 57 \NSMT.SHOW.RESULT 33 COURIER.CALL 4 CH.GETAUTHENTICATOR) (589 ERROR 568 RETURNERRORS 553 RETRIEVE.MEMBERS 548 CLEARINGHOUSE 491 selfControllers 475 Administrators 463 :ALWAYS 388 NOERROR 375 LIST.ALIASES.OF 370 CLEARINGHOUSE 243 STRING 227 NOERROR 217 RETRIEVE.ITEM 212 CLEARINGHOUSE 117 *NSMAINTAIN-IGNORE-PROPERTIES* 50 ERROR 27 RETURNERRORS 19 LIST.PROPERTIES 14 CLEARINGHOUSE) ( 562 (CLEARINGHOUSE . OBJECT.NAME) 525 "Members: " 438 "Forwarding" 404 "Aliases: " 382 (CLEARINGHOUSE . OBJECT.NAME) 320 " a group" 308 " is" 302 " and" 198 "is" 190 " and" 176 " ~A a ~A~@[ (~A)~]") \NSMT.DESCRIBE.OBJECTA0002 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.DESCRIBE.OBJECT :D8 (P 0 S I 1 BRIEFLY I 0 NAME) '@ Hg H $(32 CLOSEF? 26 \MVLIST 21 \NSMT.DESCRIBE.OBJECTA0001 5 \NSMT.COURIER.OPEN) (16 \NSMT.DESCRIBE.OBJECTA0002) () \NSMT.DESCRIPTIVE.PROPS :D8 (L (0 PROPS)) <@` @AHIn'LLdnN J KhZYHXK&Z(10 CL:INTERSECTION) (5 *NSMAINTAIN-DESCRIPTIVE-PROPERTIES*) () \NSMT.DESCRIBE.PROPERTYA0001 :D8 (P 4 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 10 VAL F 11 SI::CONDITION-CASE-LITERALS F 12 *CONDITION-HANDLER-BINDINGS* F 13 CHP F 14 A0033) i@"WWW`hZJd3@Jd,WKJ cJg;WJo# N[J _Moi i icg_Oi O i oi OdgOoogO Oi o_NMY(227 PRIN1 218 GDATE 172 PRIN1 160 PRIN1 154 CL:STRING-CAPITALIZE 149 STRING 140 PRIN1 118 TERPRI 111 PRIN1 90 \GET.COURIER.TYPE 49 COURIER.READ.REP) (209 TIME 183 BOOLEAN 127 :NORMAL 60 RECORD 20 *NSMAINTAIN-PROPERTY-FORMATS*) ( 233 "; " 202 "false" 195 "true" 166 ": " 105 "]" 72 "[") \NSMT.DESCRIBE.PROPERTY :D8 (L (3 PROPNAME 2 S 0 FNAME) P 5 A0033 P 4 SI::CONDITION-CASE-LITERALS P 3 VAL I 1 CHP F 6 BOLDFONT F 7 DEFAULTFONT) A` !H@AB Bgg@Ag Vi C Ai i oi Wi KgK HK K[oi i oL ZdgMJhI$JL Ki i (218 TERPRI 212 PRIN1 202 SI::CONDITION-CASE-ERROR 166 \NSMT.DESCRIBE.PROPERTYA0001 150 TERPRI 144 PRIN1 126 \NSMT.PRINT.LIST 117 \NSMT.SHOW.RESULT 102 CHANGEFONT 93 PRIN1 81 PRIN1 75 \NSMT.PRETTY.PROPERTY 64 CHANGEFONT 54 COURIER.CALL 43 CH.GETAUTHENTICATOR 23 CH.RETRIEVE.MEMBERS 10 MEMB) (184 CL:ERROR 173 :NORMAL 109 ERROR 48 RETURNERRORS 36 RETRIEVE.ITEM 31 CLEARINGHOUSE 5 *NSMAINTAIN-MEMBER-PROPERTIES*) ( 156 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 138 "(null)" 87 ": ") \NSMT.PRETTY.PROPERTY :D8 (L (1 VERBOSE 0 P)) @ d o@ (24 CL:FORMAT 12 CL:STRING-CAPITALIZE 5 CH.NUMBER.TO.PROPERTY) NIL ( 18 "#~D") \NSMT.LIST.OBJECTS :D8 (L (1 LISTFN 0 PROP) F 4 *ALLTYPES* F 5 *LASTNAME*) @RhdoT=oog0`dJIh[I&K ci bAoU`U dohihi Xd H@ HA (148 \NSMT.PROCESS.LIST 141 CH.LIST.OBJECTS 132 \NSMT.DOMAIN.MAY.EXIST 123 \NSMT.READFNAME 104 NCREATE2 81 ASKUSER 70 SORT 65 DREMOVE) (98 |NSNAMETYPE#| 38 CH.PROPERTIES 30 ALL) ( 110 "*" 90 " by pattern:" 25 (* "" EXPLAINSTRING "* - list ALL objects" CONFIRMFLG T RETURN (QUOTE ALL)) 20 ("" "any" EXPLAINSTRING " - list ALL objects" RETURN (QUOTE ALL)) 12 " having property ") \NSMT.LIST.CLEARINGHOUSES :D8 (F 10 *LASTDOMAIN*) oWi o2Hd}ci `HdKHdLdI ZddgdgoJ A MNd`dIdI _I 7OI &O_OOh_M]O&_J h(225 \NSMT.PROCESS.LIST 181 CL::SIMPLE-STRING-EQUAL 164 CL::SIMPLE-STRING-EQUAL 147 \NSMT.PROCESS.LIST 113 \NSMT.SHOW.RESULT 76 CH.RETRIEVE.MEMBERS 32 TERPRI 12 \NSMT.READFNAME) (190 NSNAME 173 NSNAME 156 NSNAME 131 |NSNAMETYPE#| 99 NoSuchObject 86 ERROR 58 NSNAME 44 NSNAME 37 |NSNAMETYPE#|) ( 106 "No Such Domain" 17 "CHServers" 4 " serving domain:") \NSMT.LIST.SERVERS :D8 (F 5 *SERVERTYPES*) oUo`AHIi c d oLm >Ldg2km oggLhhJ KhZYHXK&Z(91 CL:STRING-CAPITALIZE 86 SUBSTRING 64 STRPOS 47 \NSMT.LIST.OBJECTS 40 \NSMT.CHOOSE 33 SORT) (106 QUOTE 101 RETURN 74 CLEARINGHOUSE.SERVICE 17 CH.PROPERTIES) ( 96 "" 55 "SERVICE" 12 ("Server" "" RETURN (QUOTE SERVER)) 4 " of type ") \NSMT.SHOW.DETAILS :D8 (F 9 *LASTLIST*) Woi i QHHZd-i I`I JdKJ  ,W0Jdi ONh_N&_OZ`J\i hdoLi ]I`I dMM (192 \NSMT.DESCRIBE.OBJECT 187 PARSE.NSNAME 175 NCREATE2 158 ASKUSER 142 TERPRI 101 NSNAME.TO.STRING 83 STRINGP 76 \NSMT.DESCRIBE.OBJECT 71 PARSE.NSNAME 55 NCREATE2 41 TERPRI 20 TERPRI 14 PRIN1) (169 |NSNAMETYPE#| 132 *NSMAINTAIN-ABORT-ITEM* 49 |NSNAMETYPE#|) ( 150 " name: " 8 " (no previous list)") \NSMT.GROUP.FILTER :D8 (L (0 NAMES) F 1 *DOMAIN*) &Qg @Hgg (35 \NSMT.PRINT.LIST 30 CL:SET-DIFFERENCE 10 CH.LIST.OBJECTS) (25 STRING-EQUAL 20 :TEST 5 USER) () \NSMT.LIST.ADMINISTRATORS :D8 (F 1 *LASTDOMAIN*) *oQid Hd Hc (39 \NSMT.PROCESS.LIST 34 \NSMT.FETCH.ADMINISTRATORS 24 \NSMT.DOMAIN.MAY.EXIST 12 \NSMT.READFNAME) NIL ( 4 " of domain:") \NSMT.FETCH.ADMINISTRATORSA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 S F 1 DOMAIN) PQ (6 \NSMT.FETCH.ADMINISTRATORS1) NIL () \NSMT.FETCH.ADMINISTRATORSA0003 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.FETCH.ADMINISTRATORS :D8 (L (1 CACHEOK) P 0 S I 2 S I 0 DOMAIN F 2 *REAL-NAME-CACHE*) p`@ dobAdR EBC@ Hg H $Idg@IR I@ h(106 \NSMT.FETCH.ADMINISTRATORS1 98 PUTHASH 68 CLOSEF? 62 \MVLIST 57 \NSMT.FETCH.ADMINISTRATORSA0002 41 \NSMT.COURIER.OPEN 30 GETHASH 10 NCREATE2) (87 ERROR 52 \NSMT.FETCH.ADMINISTRATORSA0003 4 |NSNAMETYPE#|) ( 16 "*") \NSMT.FETCH.ADMINISTRATORS1 :D8 (L (1 DOMAIN 0 S)) -@ggAgooog (42 COURIER.CALL) (36 RETURNERRORS 16 Administrators 10 RETRIEVE.DOMAIN.ACL 5 CHACCESSCONTROL) ( 31 (0) 26 (SIMPLE NIL) 21 (CHACCESSCONTROL . ELEMENT.NAME)) \NSMT.LIST.DOMAINS :D8 (F 0 *LASTDOMAIN*) 1o`P doidhi d (46 \NSMT.PRINT.LIST 41 CH.LIST.DOMAINS 34 \NSMT.READFNAME 15 NCREATE2) (9 |NSNAMETYPE#|) ( 21 "*" 4 " by pattern:") \NSMT.TYPE.ENTRY :D8 (F 0 *LASTSTRING*) oPhihi d (22 \NSMT.DESCRIBE.OBJECT 15 \NSMT.READFNAME) NIL ( 4 " name:") \NSMT.TYPE.MEMBERS :D8 (F 2 *LAST-MEMBERSHIP* F 3 *LASTGROUP* F 4 *LASTSTRING* F 5 *LASTLIST*) oShi HdcR$ddR RHcIEoi iH bHg YgIdgo ioI I Ii i hIc h(157 TERPRI 150 PRIN1 141 \NSMT.PRINT.OBJECTS 134 CL:FORMAT 129 LENGTH 113 \NSMT.SHOW.RESULT 79 CH.RETRIEVE.MEMBERS 66 \NSMT.DOMAIN.MAY.EXIST 58 PRIN1 35 EQUAL.CH.NAMES 12 \NSMT.READFNAME) (100 Missing 87 ERROR 74 MEMBERS) ( 123 "~2%%(~D members)~%%" 108 "Not A Group" 52 "(No members)" 4 " of group:") \NSMT.UNCACHE :D8 (L (0 ALLP) F 1 *LASTDOMAIN*) B@oQid X,@Hc@hH ooi i (63 TERPRI 57 PRIN1 39 \NSMT.CLEAR.CACHE 18 \NSMT.READFNAME) NIL ( 51 "nothing cached" 45 "done" 10 ":") \NSMT.CLEAR.NAME.CACHE :D8 (F 1 *REAL-NAME-CACHE* F 2 *LAST-MEMBERSHIP*) IQg i RHkXHjoi i Q hcioH (70 CL:FORMAT 55 CLRHASH 48 TERPRI 42 PRIN1 19 TERPRI 10 HARRAYPROP) (5 NUMKEYS) ( 64 "Ok, ~D cache entries cleared.~%%" 36 "nothing cached") \NSMT.ADD.ALIASA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 S F 1 ALIAS F 2 OBJECT) PggQRg (28 COURIER.CALL 17 \NSMT.GETAUTHENTICATOR) (22 RETURNERRORS 10 CREATE.ALIAS 5 CLEARINGHOUSE) () \NSMT.ADD.ALIASA0003 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.ADD.ALIAS :D8 (P 3 S P 2 *DEFAULTDOMAIN* P 1 ALIAS P 0 OBJECT F 4 *LASTSTRING*) q oT X``H dhi ohdi Y5H Kg K $c Hc(105 \NSMT.SHOW.RESULT 92 CLOSEF? 86 \MVLIST 81 \NSMT.ADD.ALIASA0002 65 \NSMT.COURIER.OPEN 55 \NSMT.READFNAME 41 TERPRI 27 NCREATE2 13 \NSMT.READFNAME) (76 \NSMT.ADD.ALIASA0003 21 |NSNAMETYPE#|) ( 47 " Alias:" 7 " for object:") \NSMT.ADD.GROUPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 S F 1 GROUP F 2 AUTH) PggQcg (29 COURIER.CALL 16 \NSMT.GETAUTHENTICATOR) (23 RETURNERRORS 10 CREATE.OBJECT 5 CLEARINGHOUSE) () \NSMT.ADD.GROUPA0002 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.ADD.GROUPA0004A0006 :D8 (L (0 DATASTREAM) F 0 MEMBERS) @Phg (12 COURIER.WRITE.BULKDATA) (7 NSNAME) () \NSMT.ADD.GROUPA0004 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 OWNERS F 4 GROUP F 5 S F 6 AUTH F 7 FRIENDS F 8 *USER* F 9 REMARK F 10 MEMBERS) `T do!HS/UggHVg XoH HScWZSgg Yo JSSJIS coi UggTn'&Wgg Vg  W4oi UggTlgVg  STSgVU WTWgVU (278 \NSMT.SET.INITIAL.ACL 257 \NSMT.SET.INITIAL.ACL 239 \NSMT.SHOW.RESULT 233 COURIER.CALL 201 PRIN1 186 \NSMT.SHOW.RESULT 180 COURIER.CALL 168 COURIER.WRITE.REP 136 PRIN1 121 CL:REMOVE 104 CL:Y-OR-N-P 91 CL:MEMBER 65 CL:Y-OR-N-P 51 COURIER.CALL 10 NCREATE2) (270 selfControllers 249 Administrators 227 RETURNERRORS 221 \NSMT.ADD.GROUPA0004A0006 213 ADD.GROUP.PROPERTY 208 CLEARINGHOUSE 174 RETURNERRORS 163 STRING 158 CLEARINGHOUSE 147 ADD.ITEM.PROPERTY 142 CLEARINGHOUSE 86 EQUAL.CH.NAMES 81 :TEST 45 NOERROR 38 LOOKUP.OBJECT 33 CLEARINGHOUSE 4 |NSNAMETYPE#|) ( 195 "Adding members..." 130 "Setting remark..." 99 "Do you want to include yourself as an owner? " 59 "Do you want to include, as is conventional, ~A as an owner? " 16 "UserAdministration") \NSMT.ADD.GROUPA0007 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.ADD.GROUP :D8 (P 6 S P 5 FRIENDS P 4 OWNERS P 3 MEMBERS P 2 REMARK P 1 AUTH P 0 GROUP F 7 *LASTGROUP* F 8 *LASTSTRING*) ohdi QHhH Ng N $Hcci Zio ogg [io`H dh oig \oig ]i H Ng N $ (228 \NSMT.SHOW.RESULT 218 CLOSEF? 212 \MVLIST 207 \NSMT.ADD.GROUPA0004 191 \NSMT.COURIER.OPEN 185 TERPRI 178 \NSMT.COLLECT.NAMES 161 \NSMT.COLLECT.NAMES 145 CL:FORMAT 135 NCREATE2 117 \NSMT.COLLECT.NAMES 97 CL:FORMAT 85 \NSMT.GET.REMARK 80 TERPRI 57 CLOSEF? 51 \MVLIST 46 \NSMT.ADD.GROUPA0001 30 \NSMT.COURIER.OPEN 12 \NSMT.READFNAME) (202 \NSMT.ADD.GROUPA0007 173 :ANY 156 :ANY 129 |NSNAMETYPE#| 112 :ANY 107 :FOREIGN 41 \NSMT.ADD.GROUPA0002) ( 167 "Friend:" 150 "Owner:" 124 "~%%(If you enter no owners, the group will be owned by the administrators of ~A.)~%%" 102 "Member:" 92 "~%%~%%Enter names of members, owners and friends, one per line, terminated with a blank line.~%%" 4 " New group name:") \NSMT.SET.INITIAL.ACL :D8 (L (4 S 3 AUTH 2 WHICH.LIST 1 MEMBERS 0 GROUP)) }oi Bdgodgoi oi A!H I Dgg@lBJCCg YJiHX(109 COURIER.CALL 74 \NSMT.SHOW.RESULT 59 PRIN1 47 PRIN1 10 PRIN1) (103 RETURNERRORS 88 ADD.MEMBER.TO.PROPERTY.ACL 83 CHACCESSCONTROL 33 selfControllers 18 Administrators) ( 53 "..." 41 "friends" 26 "owners" 4 "Adding ") \NSMT.ADD.USER :D8 (F 3 *LASTNAME* F 4 *LASTSTRING*) 0i oShi YhccdX Ui o Zoi i IHn' Joi IJ (133 \NSMT.SHOW.RESULT 125 \NSMT.SHOW.RESULT 120 AS.CREATE.PASSWORDS 115 \ENCRYPT.PWD 107 PRIN1 93 \NSMT.ADD.OBJECT.GENERIC 82 TERPRI 75 PRIN1 61 \NSMT.GET.PASSWORD 51 TERPRI 42 \NSMT.CREATE.OBJECT 36 \NSMT.GETAUTHENTICATOR 21 \NSMT.READFNAME 8 TERPRI) NIL ( 101 "Setting password..." 69 " (no password stored; use Change Password to create one)" 56 "Initial password:" 13 "Name for new object:") \NSMT.ADD.OBJECT :D8 (F 3 *LASTNAME* F 4 *LASTSTRING*) P0o X:oShi Zd)ccdY i JIH h (77 \NSMT.SHOW.RESULT 70 \NSMT.ADD.OBJECT.GENERIC 65 CH.PROPERTY 57 TERPRI 48 \NSMT.CREATE.OBJECT 42 \NSMT.GETAUTHENTICATOR 28 \NSMT.READFNAME 12 \NSMT.GET.OBJECT.TYPE) NIL ( 20 "Name for new object:" 7 " of type: ") \NSMT.CREATE.OBJECTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 S F 1 NAME F 2 AUTH) PggQRg (23 COURIER.CALL) (17 RETURNERRORS 10 CREATE.OBJECT 5 CLEARINGHOUSE) () \NSMT.CREATE.OBJECTA0002 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.CREATE.OBJECT :D8 (P 0 S I 1 AUTH I 0 NAME) '@ Hg H $(32 CLOSEF? 26 \MVLIST 21 \NSMT.CREATE.OBJECTA0001 5 \NSMT.COURIER.OPEN) (16 \NSMT.CREATE.OBJECTA0002) () \NSMT.ADD.OBJECT.GENERICA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 S F 4 NAME F 5 AUTH F 6 ALIASES F 7 TYPE F 8 DESC) 0oi SggTWWdgg Ug  Voi VY hH SggJTUg XJiI(120 COURIER.CALL 92 \NSMT.SHOW.RESULT 78 PRIN1 64 \NSMT.SHOW.RESULT 58 COURIER.CALL 46 COURIER.WRITE.REP 13 PRIN1) (114 RETURNERRORS 106 CREATE.ALIAS 101 CLEARINGHOUSE 52 RETURNERRORS 41 STRING 36 CLEARINGHOUSE 24 ADD.ITEM.PROPERTY 19 CLEARINGHOUSE) ( 72 "Setting aliases..." 7 "Setting remark...") \NSMT.ADD.OBJECT.GENERICA0003 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.ADD.OBJECT.GENERIC :D8 (P 3 S P 2 ALIASES P 1 DESC P 0 *DEFAULTDOMAIN* I 2 TYPE I 1 AUTH I 0 NAME) X`@ dho oi @ Kg K $(81 CLOSEF? 75 \MVLIST 70 \NSMT.ADD.OBJECT.GENERICA0002 54 \NSMT.COURIER.OPEN 48 PRIN1 33 \NSMT.COLLECT.NAMES 15 NCREATE2 4 \NSMT.GET.REMARK) (65 \NSMT.ADD.OBJECT.GENERICA0003 9 |NSNAMETYPE#|) ( 42 "... " 28 "Alias:") \NSMT.CHANGE.ADDRESS :D8 (F 11 *LASTNAME* F 12 *LASTSTRING*)  poW Yi I XYgH lH ]Il [\Ii oi i Iccoi i oi i 0 oJK 1gg [dj _O Oh_O&_OZ9Moi i oI l   h0 Jdj _O Oh_O&_O\ ]oi LJo O_O i Oi Oi o_O_O_K L KLK" O_Oi3oi i _OO hO_O_MggIlLolN h(535 \NSMT.SHOW.RESULT 484 EQUAL.NSADDRESS 470 TERPRI 464 PRIN1 426 LENGTH 420 LENGTH 391 PRIN1 382 PRIN1 367 TERPRI 334 PRIN1 321 MEMB 288 PARSE-NSADDRESS 269 \NSMT.SHOW.RESULT 263 CH.DELETE.PROPERTY 250 CL:Y-OR-N-P 238 TERPRI 232 PRIN1 188 PARSE-NSADDRESS 177 COURIER.READ.REP 160 \NSMT.READ.COMMA.LIST 142 TERPRI 135 PRIN1 123 TERPRI 116 PRIN1 98 TERPRI 91 PRIN1 79 PRIN1 69 CH.RETRIEVE.ITEM 59 MEMB 50 \NSMT.SHOW.RESULT 34 CH.LIST.PROPERTIES 27 TERPRI 14 \NSMT.READFNAME) (515 CH.ADD.ITEM.PROPERTY 509 CH.CHANGE.ITEM 172 NETWORK.ADDRESS.LIST 167 CLEARINGHOUSE 42 ERROR) ( 525 (CLEARINGHOUSE . NETWORK.ADDRESS.LIST) 458 " (not changed)" 397 "," 342 " " 328 "Illegal address:" 244 "Remove address list for ~A? " 226 " (not changed)" 151 "Address(es): " 129 "Octal format: oo#o...o#oo or Decimal: n-nnn#nnn-...-nnn#nnn" 110 "Type one or more NS addresses, separated by commas." 85 " does not yet have an address." 7 " of machine:") \NSMT.CHANGE.ADMINISTRATORS :D8 (L (1 OPERATION 0 CHACCESSFN) F 3 *LASTNAME* F 4 *LASTDOMAIN* F 5 *REAL-NAME-CACHE* F 6 *LASTSTRING*) u0oS YdAdgogoTid X6`H doU @HgIlJ Icc Hc(106 \NSMT.SHOW.RESULT 88 REMHASH 73 NCREATE2 59 \NSMT.READFNAME 51 SHOULDNT 13 \NSMT.READFNAME) (96 Administrators 67 |NSNAMETYPE#| 38 REMOVE 23 ADD) ( 79 "*" 45 " from domain:" 31 " to domain:" 7 " name:") \NSMT.CHANGE.FORWARDINGA0001A0002 :D8 (L (0 DATASTREAM) F 0 NEWFORWARDING) @Phg (12 COURIER.WRITE.BULKDATA) (7 NSNAME) () \NSMT.CHANGE.FORWARDINGA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 REALNAME F 3 S F 4 HADUSERGROUP F 5 NEWFORWARDING F 6 HADFORWARDING) :V,SggRlHg YgI U]oi T@SggRn'&Hg Ygoi Ii oi SggRlgHg YgI vTZSggRn'&oR gg Hg goi i oi U i h(310 TERPRI 303 \NSMT.PRINT.LIST 296 PRIN1 284 TERPRI 277 PRIN1 257 COURIER.CALL 245 COURIER.WRITE.REP 230 CONCAT 192 \NSMT.SHOW.RESULT 177 COURIER.CALL 143 PRIN1 129 PRIN1 118 PRIN1 97 COURIER.CALL 66 PRIN1 51 \NSMT.SHOW.RESULT 36 COURIER.CALL 4 \NSMT.GETAUTHENTICATOR) (263 ERROR 251 RETURNERRORS 240 STRING 235 CLEARINGHOUSE 223 NSNAME 208 ADD.ITEM.PROPERTY 203 CLEARINGHOUSE 184 ERROR 171 RETURNERRORS 165 \NSMT.CHANGE.FORWARDINGA0001A0002 157 ADD.GROUP.PROPERTY 152 CLEARINGHOUSE 104 ERROR 91 RETURNERRORS 81 DELETE.PROPERTY 76 CLEARINGHOUSE 43 ERROR 30 RETURNERRORS 21 DELETE.PROPERTY 16 CLEARINGHOUSE) ( 290 "Done, forwarding set to " 271 "(Failed to set usergroup comment)" 217 "Forwarding for " 137 "." 112 ", but failed to remove the forwarding comment because: " 60 "Forwarding removed") \NSMT.CHANGE.FORWARDINGA0003 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.CHANGE.FORWARDING :D8 (P 15 S P 7 HADUSERGROUP P 6 HADFORWARDING P 5 NEWFORWARDING P 3 REALNAME F 16 *LASTNAME* F 17 *LASTSTRING*) oW Zi J Xd[gH n'HX i Ki oi H Yoi i oi I i IdYoi 0 I%d_oO h_OCO__O i oi In'& oi i  _Oo lH ^K \Ki oi i n'&H _Kc c"oi i 0 o0Ldi _O Oh_O&_O d _O Oh_O&_O](Noi i oK hL M ML" O_Oimoi _OO OO OO hO_O_K Og O $h(686 CLOSEF? 679 \MVLIST 674 \NSMT.CHANGE.FORWARDINGA0001 657 \NSMT.COURIER.OPEN 633 CL::SIMPLE-STRING= 608 CL::SIMPLE-STRING= 583 CL::SIMPLE-STRING= 555 PRIN1 515 LENGTH 509 LENGTH 497 CL:Y-OR-N-P 485 TERPRI 479 PRIN1 435 PARSE.NSNAME 426 \NSMT.READ.COMMA.LIST 394 NSNAME.TO.STRING 372 TERPRI 365 PRIN1 347 MEMB 337 TERPRI 330 PRIN1 318 PRIN1 308 CH.RETRIEVE.MEMBERS 300 MEMB 286 CL:Y-OR-N-P 269 LAST 263 TERPRI 257 PRIN1 237 PRIN1 225 PRIN1 219 CONCATLIST 188 \NSMT.PRETTY.PROPERTY 164 PRIN1 146 PRIN1 140 \NSMT.PRETTY.PROPERTY 132 PRIN1 120 TERPRI 114 PRIN1 100 \NSMT.DESCRIPTIVE.PROPS 93 PRIN1 81 PRIN1 73 TERPRI 63 MEMB 50 \NSMT.SHOW.RESULT 33 CH.LIST.PROPERTIES 27 TERPRI 14 \NSMT.READFNAME) (669 \NSMT.CHANGE.FORWARDINGA0003 626 NSNAME 617 NSNAME 601 NSNAME 592 NSNAME 576 NSNAME 567 NSNAME 42 ERROR) ( 549 " (not changed)" 491 "Remove forwarding for ~A? " 473 " (not changed)" 380 "Forward to: " 359 "Type one or more NS names, separated by commas." 324 " does not yet have Forwarding." 281 "Are you sure you want to change the Forwarding? " 251 " Groups %"forward%" to their members." 231 ")" 181 ", " 158 " (also " 126 ", but a " 108 ", or any other type I know about." 87 " is not a User" 7 " for user:") \NSMT.CHANGE.GROUP.COMPONENTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 INDIVIDUAL F 4 GROUP F 5 ORIGINAL F 6 S F 7 CHFN F 8 SELF/LIST F 9 *LASTSTRING* F 10 *LASTGROUP*) SWdiVgWTlHg <VgWTlIHg  VgWTlWIHHg Zd"dgUISSU UJhTI :IS/oi Ui i oi i Jcch(196 TERPRI 189 PRIN1 177 PRIN1 171 NSNAME.TO.STRING 163 PRIN1 145 \NSMT.SHOW.RESULT 130 EQUAL.CH.NAMES 99 COURIER.CALL 67 COURIER.CALL 39 COURIER.CALL 4 \NSMT.GETAUTHENTICATOR) (113 NoChange 93 RETURNERRORS 75 CHACCESSCONTROL 61 RETURNERRORS 49 CLEARINGHOUSE 33 RETURNERRORS 22 CLEARINGHOUSE) ( 183 ")" 157 "(removed ") \NSMT.CHANGE.GROUP.COMPONENTA0002 :D8 (F 0 S) P (5 CLOSEF?) NIL () \NSMT.CHANGE.GROUP.COMPONENT :D8 (L (1 OPERATION) P 3 S P 2 ORIGINAL P 1 INDIVIDUAL P 0 GROUP I 2 SELF/LIST I 0 CHFN F 4 *LASTNAME* F 5 *LASTGROUP* F 6 *LAST-MEMBERSHIP*) 0Bi/oThdAgdBigg YAdg%BioI IZ IAgoAgoUhi X8BiBhc H Kg K $Idc(184 CLOSEF? 178 \MVLIST 173 \NSMT.CHANGE.GROUP.COMPONENTA0001 157 \NSMT.COURIER.OPEN 138 \NSMT.READFNAME 130 SHOULDNT 92 \NSMT.LOOKUP 84 STRPOS 79 NSNAME.TO.STRING 45 \NSMT.READFNAME) (168 \NSMT.CHANGE.GROUP.COMPONENTA0002 117 REMOVE 102 ADD 59 REMOVE 39 :ANY 34 :FOREIGN 21 REMOVE) ( 124 " from group:" 109 " to group:" 73 "*" 12 " name:") \NSMT.CHANGE.REMARK :D8 (F 11 *LASTSTRING* F 12 *LASTGROUP* F 13 *LASTNAME*)  oW [d Xd\gH H Y5i Lci oi i o Zd[In'In'&IioLK hL IZ i LJ ^9J3 J N ]oi ILJMg hg i L i oi 0 I$d_ O_O Oh_O&_OY oI ZFhLJMg  oi i Jn'&LcLcch(403 TERPRI 396 PRIN1 383 \NSMT.SHOW.RESULT 377 CH.ADD.ITEM.PROPERTY 357 \NSMT.CHOOSE 345 \NSMT.PRINT.LIST 308 CH.NUMBER.TO.PROPERTY 292 PRIN1 280 PRIN1 274 NSNAME.TO.STRING 267 TERPRI 258 COURIER.READ.REP 244 CH.CHANGE.ITEM 225 PRIN1 209 \NSMT.GET.REMARK 202 CH.PROPERTY 187 CH.RETRIEVE.ITEM 179 TERPRI 172 CL:FORMAT 167 \NSMT.PRETTY.PROPERTY 159 NSNAME.TO.STRING 149 EQUAL.CH.NAMES 100 \NSMT.GET.OBJECT.TYPE 89 TERPRI 82 PRIN1 70 PRIN1 60 TERPRI 51 \NSMT.DESCRIPTIVE.PROPS 42 \NSMT.SHOW.RESULT 25 CH.LIST.PROPERTIES 14 \NSMT.READFNAME) (372 STRING 253 STRING 239 STRING 34 ERROR) ( 390 " xxx" 351 "Specify property to modify: " 286 " has the descriptive properties " 219 "..." 142 " (~@[~A -- ~]a ~A)" 95 "Add remark of type ( to abort): " 76 " has no remarkable properties." 7 " for object:") \NSMT.GET.OBJECT.TYPE :D8 (L (0 PROMPT) F 4 *OBJECTTYPES*) 9@T0@`d[ KIHhZH&J c (54 \NSMT.CHOOSE 47 SORT 21 CH.NUMBER.TO.PROPERTY) (11 *NSMAINTAIN-DESCRIPTIVE-PROPERTIES*) () \NSMT.REMOVE.ALIAS :D8 (F 1 *LASTSTRING*) 5ohdi XhH XioHc  (50 \NSMT.SHOW.RESULT 44 CL:FORMAT 26 CH.DELETE.ALIAS 15 \NSMT.READFNAME) NIL ( 36 "done, alias was removed from ~S~%%" 7 " alias:") \NSMT.REMOVE.OBJECT :D8 (L (0 NAME) F 0 *LASTSTRING*) 7@oPhi d$i bo @  (52 \NSMT.SHOW.RESULT 46 CH.DELETE.OBJECT 38 CL:Y-OR-N-P 24 \NSMT.DESCRIBE.OBJECT 15 \NSMT.READFNAME) NIL ( 33 " Confirm deletion (y or n): " 7 ":") \NSMT.REMOVE.USER :D8 (F 2 *LASTNAME*)  oRhi XhnHg Yoi i i Ii i IioIhg o H  (128 \NSMT.SHOW.RESULT 122 CH.DELETE.OBJECT 114 CL:Y-OR-N-P 103 CL:FORMAT 98 COURIER.READ.REP 73 PRIN1 67 NSNAME.TO.STRING 58 TERPRI 51 TERPRI 45 PRIN1 31 CH.RETRIEVE.ITEM 15 \NSMT.READFNAME) (93 STRING 26 USER) ( 109 " Confirm deletion (y or n): " 84 " (~A)" 39 " not a user." 7 ":") CH.FINDSERVER :D8 (L (2 DONTPROBEFLG 1 NOERRORFLG 0 DOMAINPATTERN)) @d@l b@o#HdJ IdJ AB AB [Io KK\hB(Aho@i dI LK`dIdHdJAHI ib;(192 \CH.LOCATE.SERVERS 146 CL::SIMPLE-STRING-EQUAL 136 ERROR 99 CL::SIMPLE-STRING-EQUAL 87 \CH.FIND.ORG.SERVER 75 \CH.FIND.ORG.SERVER 67 GETCLEARINGHOUSE 60 CL::SIMPLE-STRING-EQUAL 49 CL::SIMPLE-STRING-EQUAL 16 PARSE.NSNAME) (167 |NSNAMETYPE#| 31 NSNAME 23 NSNAME 6 NSNAME) ( 129 "Couldn't find Clearinghouse server for domain" 94 "*" 38 "CHServers") (PRETTYCOMPRINT NSMAINTAINCOMS) (RPAQQ NSMAINTAINCOMS ((COMS (* ; "Main entry and utility fns") (FNS NSMAINTAIN \NSMT.INITIAL.LOGIN \NSMT.HELP \NSMT.READFNAME \NSMT.LOOKUP \NSMT.LOOKUP1 \NSMT.CHECK.DOMAIN \NSMT.DOMAIN.MAY.EXIST \NSMT.FOREIGN.DOMAINP \NSMT.COLLECT.NAMES \NSMT.GET.REMARK \NSMT.GET.PASSWORD \NSMT.LOGIN \NSMT.GETAUTHENTICATOR \NSMT.CHANGE.DOMAIN \NSMT.PRINT.LIST \NSMT.PRINT.OBJECTS \NSMT.PROCESS.LIST \NSMT.READ.COMMA.LIST \NSMT.SHOW.RESULT \NSMT.CHOOSE \NSMT.COURIER.OPEN \NSMT.CLEAR.CACHE EQUAL.NSADDRESS)) (COMS (* ; "Ordinary user commands") (FNS \NSMT.CHANGE.PASSWORD \NSMT.DESCRIBE.ACL \NSMT.DESCRIBE.OBJECT \NSMT.DESCRIPTIVE.PROPS \NSMT.DESCRIBE.PROPERTY \NSMT.PRETTY.PROPERTY \NSMT.LIST.OBJECTS \NSMT.LIST.CLEARINGHOUSES \NSMT.LIST.SERVERS \NSMT.SHOW.DETAILS \NSMT.GROUP.FILTER \NSMT.LIST.ADMINISTRATORS \NSMT.FETCH.ADMINISTRATORS \NSMT.FETCH.ADMINISTRATORS1 \NSMT.LIST.DOMAINS \NSMT.TYPE.ENTRY \NSMT.TYPE.MEMBERS \NSMT.UNCACHE \NSMT.CLEAR.NAME.CACHE)) (COMS (* ; "Administrator commands") (FNS \NSMT.ADD.ALIAS \NSMT.ADD.GROUP \NSMT.SET.INITIAL.ACL \NSMT.ADD.USER \NSMT.ADD.OBJECT \NSMT.CREATE.OBJECT \NSMT.ADD.OBJECT.GENERIC \NSMT.CHANGE.ADDRESS \NSMT.CHANGE.ADMINISTRATORS \NSMT.CHANGE.FORWARDING \NSMT.CHANGE.GROUP.COMPONENT \NSMT.CHANGE.REMARK \NSMT.GET.OBJECT.TYPE \NSMT.REMOVE.ALIAS \NSMT.REMOVE.OBJECT \NSMT.REMOVE.USER)) (FILES (SYSLOAD) DES AUTHENTICATION) (COMS (* ; "Patch to clearinghouse") (FNS CH.FINDSERVER)) (VARS *NSMAINTAIN-COMMANDS* *NSMAINTAIN-ABORT-ITEM*) (ADDVARS (CH.PROPERTIES (ALIAS 1) (BOOT.SERVICE 10026)) ( *NSMAINTAIN-DESCRIPTIVE-PROPERTIES* 10000 10001 10002 10003 10004 10005 10006 10007 10008 10009 10010 10011 10012 10013 10014 10015 10016 10017 10018 10019 10020 10021 10022 10023 10024 10026) ( *NSMAINTAIN-IGNORE-PROPERTIES* 6 7 10027 20003 20002 20101) (*NSMAINTAIN-PROPERTY-FORMATS* (4 CLEARINGHOUSE . NETWORK.ADDRESS.LIST) (8 RECORD (SIMPLE BOOLEAN) (STRONG BOOLEAN)) (30 . NSNAME) (31 CLEARINGHOUSE . MAILBOX.VALUES) (10000 . STRING) (10001 . STRING) (10002 . STRING) (10003 . STRING) ( 10004 . STRING) (10005 . STRING) (10006 . STRING) (10007 . STRING) (10008 . STRING) (10009 . STRING) ( 10010 . STRING) (10011 . STRING) (10012 . STRING) (10013 . STRING) (10014 . STRING) (10015 . STRING) ( 10016 . STRING) (10017 . STRING) (10018 . STRING) (10019 . STRING) (10020 . STRING) (10021 . STRING) ( 10022 . STRING) (10023 . STRING) (10024 . STRING) (10026 . STRING) (10029 . STRING) (10030 . STRING) ( 10032 . STRING) (10034 . STRING) (10035 . STRING) (15002 . STRING) (20000 CLEARINGHOUSE . USERDATA.VALUE) (20001 GAP . RS232CData) (20006 SEQUENCE NSNAME) (20007 . NSNAME) (20102 GAP . RS232CBack) (29965 . STRING) (30005 . NSNAME)) (*NSMAINTAIN-MEMBER-PROPERTIES* 3 20006)) (INITVARS ( *NSMAINTAIN-MEMBER-THRESHOLD* 3) (*NSMAINTAIN-SHOW-GROUP-ACCESS*)) (DECLARE%: EVAL@COMPILE (P ( CL:PROCLAIM (QUOTE (CL:SPECIAL *NSMAINTAIN-MEMBER-THRESHOLD* *NSMAINTAIN-SHOW-GROUP-ACCESS*))) ( CL:PROCLAIM (QUOTE (GLOBAL *NSMAINTAIN-MEMBER-PROPERTIES* *NSMAINTAIN-PROPERTY-FORMATS* *NSMAINTAIN-IGNORE-PROPERTIES* *NSMAINTAIN-DESCRIPTIVE-PROPERTIES*)))) DONTCOPY (FUNCTIONS WITH-CHS) ( FILES (LOADCOMP) CLEARINGHOUSE) (* ; "Get optimizer for CH.PROPERTY") (CONSTANTS \CH.BROADCAST.SOCKET) (GLOBALVARS *NSMAINTAIN-COMMANDS* *NSMAINTAIN-ABORT-ITEM* CH.PROPERTIES) (P (CL:PROCLAIM (QUOTE ( CL:SPECIAL *USER* *LASTDOMAIN* *LASTNAME* *LASTGROUP* *LASTLIST* *LASTSTRING* *LAST-MEMBERSHIP* *SERVERTYPES* *ALLTYPES* *OBJECTTYPES* *DEFAULTDOMAIN* *REAL-NAME-CACHE* *DOMAIN*)))) (LOCALVARS . T) (* ;; "For masterscope") (VARS (*NSMT-MENU-FNS* (CL:REMOVE-DUPLICATES (FOR ENTRY IN *NSMAINTAIN-COMMANDS* WHEN (LISTP (SETQ ENTRY (CADR (MEMB (QUOTE RETURN) ENTRY)))) COLLECT (IF (EQ ( CAR ENTRY) (QUOTE FUNCTION)) THEN (CADR ENTRY) ELSEIF (EQ (CAR ENTRY) (QUOTE QUOTE)) THEN (CAR (LISTP (CADR ENTRY))))))))))) (FILESLOAD (SYSLOAD) DES AUTHENTICATION) (RPAQQ *NSMAINTAIN-COMMANDS* (("?" "" RETURN (FUNCTION \NSMT.HELP)) ("Add Alias" "" RETURN (FUNCTION \NSMT.ADD.ALIAS)) ("Add Domain Administrator" "" RETURN (QUOTE (\NSMT.CHANGE.ADMINISTRATORS CH.ADD.MEMBER.TO.DOMAIN.ACL ADD))) ("Add Friend" "" RETURN (QUOTE (\NSMT.CHANGE.GROUP.COMPONENT ADD.MEMBER.TO.PROPERTY.ACL ADD selfControllers))) ("Add Group" "" RETURN (FUNCTION \NSMT.ADD.GROUP)) ( "Add Member" "" RETURN (QUOTE (\NSMT.CHANGE.GROUP.COMPONENT ADD.MEMBER ADD))) ("Add Owner" "" RETURN ( QUOTE (\NSMT.CHANGE.GROUP.COMPONENT ADD.MEMBER.TO.PROPERTY.ACL ADD Administrators))) ( "Add Registered Object" "" RETURN (FUNCTION \NSMT.ADD.OBJECT)) ("Add Self" "" RETURN (QUOTE ( \NSMT.CHANGE.GROUP.COMPONENT ADD.SELF ADD T))) ("Add User" "" RETURN (FUNCTION \NSMT.ADD.USER)) ( "Remove Alias" "" RETURN (FUNCTION \NSMT.REMOVE.ALIAS)) ("Remove Domain Administrator" "" RETURN ( QUOTE (\NSMT.CHANGE.ADMINISTRATORS CH.DELETE.MEMBER.FROM.DOMAIN.ACL REMOVE))) ("Remove Friend" "" RETURN (QUOTE (\NSMT.CHANGE.GROUP.COMPONENT DELETE.MEMBER.FROM.PROPERTY.ACL REMOVE selfControllers))) ("Remove Member" "" RETURN (QUOTE (\NSMT.CHANGE.GROUP.COMPONENT DELETE.MEMBER REMOVE))) ( "Remove Owner" "" RETURN (QUOTE (\NSMT.CHANGE.GROUP.COMPONENT DELETE.MEMBER.FROM.PROPERTY.ACL REMOVE Administrators))) ("Remove Registered Object" "" RETURN (FUNCTION \NSMT.REMOVE.OBJECT)) ("Remove Self" "" RETURN (QUOTE (\NSMT.CHANGE.GROUP.COMPONENT DELETE.SELF REMOVE T))) ("Remove User" "" RETURN ( FUNCTION \NSMT.REMOVE.USER)) ("Change Address" "" RETURN (FUNCTION \NSMT.CHANGE.ADDRESS)) ( "Change Default Domain" "" RETURN (FUNCTION \NSMT.CHANGE.DOMAIN)) ("Change Forwarding" "" RETURN ( FUNCTION \NSMT.CHANGE.FORWARDING)) ("Change Login" "" RETURN (FUNCTION \NSMT.LOGIN)) ( "Change Password" "" RETURN (FUNCTION \NSMT.CHANGE.PASSWORD)) ("Change Remark" "" RETURN (FUNCTION \NSMT.CHANGE.REMARK)) ("Describe" "" RETURN (FUNCTION \NSMT.TYPE.ENTRY)) ("List Aliases" "" RETURN ( QUOTE (\NSMT.LIST.OBJECTS ALIAS))) ("List Administrators" "" RETURN (FUNCTION \NSMT.LIST.ADMINISTRATORS)) ("List Clearinghouses" "" RETURN (FUNCTION \NSMT.LIST.CLEARINGHOUSES)) ( "List Domains" "" RETURN (FUNCTION \NSMT.LIST.DOMAINS)) ("List Groups" "" RETURN (QUOTE ( \NSMT.LIST.OBJECTS MEMBERS))) ("List Members" "" RETURN (FUNCTION \NSMT.TYPE.MEMBERS)) ("List Objects" "" RETURN (FUNCTION \NSMT.LIST.OBJECTS)) ("List Servers" "" RETURN (FUNCTION \NSMT.LIST.SERVERS)) ( "List True Groups" "" RETURN (QUOTE (\NSMT.LIST.OBJECTS MEMBERS \NSMT.GROUP.FILTER))) ("List Users" "" RETURN (QUOTE (\NSMT.LIST.OBJECTS USER))) ("Show Details of previously listed names" "" RETURN ( FUNCTION \NSMT.SHOW.DETAILS)) ("Type Entry" "" RETURN (FUNCTION \NSMT.TYPE.ENTRY) EXPLAINSTRING "Type Entry -- same as Describe") ("Type Members" "" RETURN (FUNCTION \NSMT.TYPE.MEMBERS) EXPLAINSTRING "Type Members -- same as List Members") ("Uncache All Clearinghouses" " [confirm]" CONFIRMFLG T RETURN (QUOTE (\NSMT.UNCACHE T))) ("Uncache Clearinghouse for domain" "" RETURN (FUNCTION \NSMT.UNCACHE)) ("Uncache Local (force Maintain to refetch some info)" " [confirm]" CONFIRMFLG T RETURN (FUNCTION \NSMT.CLEAR.NAME.CACHE)) ("Quit" " [confirm]" CONFIRMFLG T RETURN NIL))) (RPAQQ *NSMAINTAIN-ABORT-ITEM* ("" "" EXPLAINSTRING " - abort" RETURN NIL)) (ADDTOVAR CH.PROPERTIES (ALIAS 1) (BOOT.SERVICE 10026)) (ADDTOVAR *NSMAINTAIN-DESCRIPTIVE-PROPERTIES* 10000 10001 10002 10003 10004 10005 10006 10007 10008 10009 10010 10011 10012 10013 10014 10015 10016 10017 10018 10019 10020 10021 10022 10023 10024 10026) (ADDTOVAR *NSMAINTAIN-IGNORE-PROPERTIES* 6 7 10027 20003 20002 20101) (ADDTOVAR *NSMAINTAIN-PROPERTY-FORMATS* (4 CLEARINGHOUSE . NETWORK.ADDRESS.LIST) (8 RECORD (SIMPLE BOOLEAN) (STRONG BOOLEAN)) (30 . NSNAME) (31 CLEARINGHOUSE . MAILBOX.VALUES) (10000 . STRING) (10001 . STRING) (10002 . STRING) (10003 . STRING) (10004 . STRING) (10005 . STRING) (10006 . STRING) (10007 . STRING) (10008 . STRING) (10009 . STRING) (10010 . STRING) (10011 . STRING) (10012 . STRING) (10013 . STRING) (10014 . STRING) (10015 . STRING) (10016 . STRING) (10017 . STRING) (10018 . STRING) (10019 . STRING) (10020 . STRING) (10021 . STRING) (10022 . STRING) (10023 . STRING) (10024 . STRING) (10026 . STRING) (10029 . STRING) (10030 . STRING) (10032 . STRING) (10034 . STRING) (10035 . STRING) (15002 . STRING) (20000 CLEARINGHOUSE . USERDATA.VALUE) (20001 GAP . RS232CData) (20006 SEQUENCE NSNAME) ( 20007 . NSNAME) (20102 GAP . RS232CBack) (29965 . STRING) (30005 . NSNAME)) (ADDTOVAR *NSMAINTAIN-MEMBER-PROPERTIES* 3 20006) (RPAQ? *NSMAINTAIN-MEMBER-THRESHOLD* 3) (RPAQ? *NSMAINTAIN-SHOW-GROUP-ACCESS*) (CL:PROCLAIM (QUOTE (CL:SPECIAL *NSMAINTAIN-MEMBER-THRESHOLD* *NSMAINTAIN-SHOW-GROUP-ACCESS*))) (CL:PROCLAIM (QUOTE (GLOBAL *NSMAINTAIN-MEMBER-PROPERTIES* *NSMAINTAIN-PROPERTY-FORMATS* *NSMAINTAIN-IGNORE-PROPERTIES* *NSMAINTAIN-DESCRIPTIVE-PROPERTIES*))) (PUTPROPS NSMAINTAIN COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1989 1990 1991 1992)) NIL