(FILECREATED "24-Jan-84 11:56:17" ("compiled on " {PHYLUM}LIBRARY>PUPIDSERVER.;1) "21-Jan-84 08:55:13" brecompiled changes: \HANDLE.PUP.LOOKUP in BVM.SYSOUT dated "24-Jan-84 11:25:29") (FILECREATED "24-Jan-84 11:53:46" {PHYLUM}LIBRARY>PUPIDSERVER.;1 5385 changes to: (FNS \HANDLE.PUP.LOOKUP) previous date: "28-OCT-83 16:36:18" {PHYLUM}LIBRARY>PUPIDSERVER.;3) \PUP.ID.SERVERA0048 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 EVENT P 1 XIP P 0 SOC F 3 TRACEFLG F 4 RESETVARSLST) rl i !gHhhhTcSoS S S ``g H ZH YHIS o J (156Q AWAIT.EVENT 150Q ERROR 133Q READFILE 126Q \HANDLE.PUP.LOOKUP 115Q GETXIP 107Q NSOCKETEVENT 101Q DEFINEDP 60Q TERPRI 53Q PRIN1 47Q DATE 43Q PRIN1 5 OPENNSOCKET) (136Q NS.TO.PUP.ALIST 76Q NetDirNameLookup 71Q NS.TO.PUP.FILE 64Q NS.TO.PUP.ALIST 13Q CLOSENSOCKET) ( 145Q "NS.TO.PUP.ALIST is empty, and there is no NS.TO.PUP.FILE to read from" 37Q "Pup ID server started at ") \PUP.ID.SERVER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 TRACEFLG F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PUP.ID.SERVERA0048) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \HANDLE.PUP.LOOKUP D1 (P 2 NSHOST# P 1 PUP# P 0 BUF I 2 TRACEFILE I 1 XIP I 0 NSOC) 0A lAl-XkA Hl Z Y``IlJj h`Al*HlHlXIHjHjBJB oB I B B A Al)` All ` Ag@A hA (273Q RELEASE.XIP 265Q SENDXIP 250Q \PUTFIXP 232Q \STORENSHOSTNUMBER 217Q SWAPXIPADDRESSES 212Q TERPRI 205Q PRIN1 201Q PORTSTRING 174Q PRIN1 163Q PRINTNSHOSTNUMBER 74Q CLOCK 46Q \GET.PUP#.FROM.NS# 42Q \LOADNSHOSTNUMBER 30Q RELEASE.XIP) (255Q FREE 245Q \MY.NSNETNUMBER 227Q \MY.NSHOSTNUMBER 106Q NDB 103Q \10MBLOCALNDB 63Q \10MBLOCALNDB 56Q \10MBLOCALNDB) ( 170Q " = ") \GET.PUP#.FROM.NS# D1 (I 0 NSHOST#) ,g @@@h  @` (50Q SASSOC 35Q NetDirNameLookup 32Q MAKEOCTALSTRING 5 GETD) (45Q NS.TO.PUP.ALIST 2 NetDirNameLookup) () (PRETTYCOMPRINT PUPIDSERVERCOMS) (RPAQQ PUPIDSERVERCOMS ((FNS \PUP.ID.SERVER \HANDLE.PUP.LOOKUP \GET.PUP#.FROM.NS#) (INITVARS NS.TO.PUP.ALIST NS.TO.PUP.FILE) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS NS.TO.PUP.ALIST NS.TO.PUP.FILE) (FILES (LOADCOMP) LLNS)) (DECLARE: DONTEVAL@LOAD DOCOPY (P (* For old GATEWAY) (/MOVD (QUOTE \PUP.ID.SERVER) (QUOTE \PUPLOOKUP)))))) (RPAQ? NS.TO.PUP.ALIST NIL) (RPAQ? NS.TO.PUP.FILE NIL) (/MOVD (QUOTE \PUP.ID.SERVER) (QUOTE \PUPLOOKUP)) (PUTPROPS PUPIDSERVER COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL