hưs2D p,COMPILE-DATADams,Lisp Machine OneZFdF Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB AMSpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElFCDB:pB lUNSPECIFICDB:DtreepatchDB:system-100-10DB:lispDB:B>pB lPATCH-FILEpB lTpB BASEFpB ,PACKAGEpB USERpB lREADTABLEpB lZLFC: /tree/network/chaos/chsauxN[plSIPATCH-SOURCE-FILE-NAMESTRINGpCHAOSlPOLL-HOSTSˀ^FBaE@plEHlCONDITION-HANDLERSpB\,NOCATCHF F0F2FF2FXF2lPoll HostsFeFeFeFeFeFeFeFeFeFeFeFe@FeFeFeFeFeFeFeFeFeFeFeFeFeFeFeFeFeFeFeFepSYSTEM,STORE-KEYWORD-ARG-VALUESDpB IGNORE-STATESpB WINDOW-SIZEpB ,TIMEOUTpB ,WHOSTATEFLISTpB_ADDRESS-PARSEpB_CREATE-HOSTAT-CONNECTION-LISTFFF"ÀG1003pBNETWORK-RESOURCES-EXHAUSTEDpB\CONDITION-CASE-THROWpB_,OPEN-CONNECTIONpB ,CONDITION-NAMESCPROCESS-WAIT-WITH-TIMEOUTDpB ,INTERNALBapB_CONNpB_RFC-SENT-STATETIME-DIFFERENCETIMEÀFORMAT~O~7T~@[~A ~]Host not responding~%pB_ANSWERED-STATEFtpB_GET-NEXT-PKTpB_lRETURN-PKTpB_HOSTpB_lCLS-RECEIVED-STATEFl~O~7T~@[~A ~]returned a CLS:~A~%pB_lOPEN-STATEl~#oO~7T~@[~A ~]returned an OPN~%pB_lLOS-RECEIVED-STATEl~O~7T~@[~A ~]returned a LOS:~A~%COTHERWISEl~O~7T~@[~A ~]connection entered bad state: ~A~%pB_REMOVE-CONNDELQpB_lCLOSE-CONNDDDpB ,MACROS-EXPANDEDDÀPSETQDECFpB_READ-PKTS-LASTpB_lPKT-STRINGÀUNLESSpB_lTIME-LAST-RECEIVEDpB_STATECASEÀDOLISTSETFINCFSENDCCONDITION-BIND-IFpB\SELECT-MEMQÂCATCH-CONTINUATION-IFCCONDITION-CASE-IFÁCONDITION-CASEÀSECONDÀTHIRDpB\LOOP-COLLECT-RPLACDpB\LOOP-LIST-COLLECTORLOOPWHENDpB(lLOCAL-FUNCTION-MAPDDpB(,ARG-MAPDDpB_HOSTSDpB_CONTACT-NAMEDÀSTREAMDpB_,HEADER-FUNCTIONDpB_,FORMAT-FUNCTIONDpB(lLOCAL-MAPDNILDpB_IGNORE-STATESDpB_WINDOW-SIZEDpB_,TIMEOUTDpB_,WHOSTATEDpB_CONNECTIONSDpB_PKTDpB_,OPEN-CONNECTIONSBBDBBDpB_,ADDRESSDBDpB_ELEMDpB_,NEW-CONNDpB\.SELECTQ.ITEM.DBDpB_PUNTDB-DpB_lCDpB INTERNAL-FEF-OFFSETSFDDÁDOCUMENTATION{Print the status of chaosnet hosts in HOSTS, or all known chaosnet hosts.STREAM is where all of the information is printed. HOSTS is a list of hosts to report about. If NIL, then all chaonset hosts are used.HEADER-FUNCTION is a function called with one arg, STREAM, to print out the intial header.FORMAT-FUNCTION is called on STREAM chaos address and response packet for successful connections.WINDOW-SIZE defaults to 1 and the TIMEOUT defaults to 10 seconds (600.)IGNORE-STATES is either NIL or a list of states for which nothing is printed if the connection goes into that state. The states can be any of CHAOS:RFC-SENT-STATE CHAOS:ANSWERED-STATE CHAOS:CLS-RECEIVED-STATE CHAOS:OPEN-STATE CHAOS:LOS-RECEIVED-STATE or OTHERWISE (any other state)D pB(,COMPILER-ARGLISTB BBBB&KEYBDB!FDB$FXDB'By@85[@E6DEAG7DE/E!8HIEKK8KGJKIEJE88@EJE 9DEJML8@MELEZIHE:@E;DE/EEEKNwOwK48KGNKGED?D@D>DE[IDE[HVA@NKEBŀE[E[ E[IIABP?DPEEO9GNMOECDEx|DD\EENwK8KGNNGNKNEZEDSwRQLMQ8QE`PFt8G@HBQE CU8RwoFDAEkXIEJDLEMePEKt8LDE/EM@QSKDAE8ELESS8NSŭMJ8ODRGPEPt8QDE/EM@QSPDAE8IERDLEMESEDS8NSŭ*PESt 8SDAE#XIETDLEMPEUt8QE`SUDAEXIEVDLEMESED WDAEXIEXDLEMEQEREEt8YQZ@NEEEGREOt8M8EETwI8IGTTGMu 8TE8YTEZ@TEEEGIYKNYEYEEKQwLwMwK8KQMKEZLKEZQKQ9[QO[BaBˀ FDBBa@BDDBDBNEQBBBBDBDBDB8BY|Z@ 8@GA׫8AEZ`tX@YOkBBNB^1DpB\,FASL-RECORD-FILE-MACROS-EXPANDEDDB:DDBdmNnDBhBDBuwDB@BDBA DBDB{DBADB?ɰDBaDB#DBX(DB"DBgDBb DDBaDBDBDBlDB4DBDB\\DBW=