hưs2D p,COMPILE-DATADAMS,Lisp Machine OneFdDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB MITpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElOZDB:pB lUNSPECIFICDB:DhomeamsllsyspatchDB:system-100-2DB:lispDB:B>pB lPATCH-FILEpB lTpB BASEFpB ,PACKAGEpB USERpB lREADTABLEpB lZLlOZ: /tree/sys/evalN^plSIPATCH-SOURCE-FILE-NAMESTRINGpSYSTEMAPPLY-LAMBDAˀSt;FBdF@$ pB_l*INTERPRETER-VARIABLE-ENVIRONMENT*CDEFAULT-CONS-AREApBbBACKGROUND-CONS-AREApBb%%PHT2-MAP-ACCESS-CODECDTP-ONE-Q-FORWARDLAMBDA-LIST-KEYWORDSCDR-NILÁ%%Q-DATA-TYPEDTP-EXTERNAL-VALUE-CELL-POINTER%%Q-CDR-CODECDR-NEXTpB_.SLOTS.BOUND.INSTANCE.SELFDTP-LISTFpB_CURRY-AFTERpBbEVAL1pB_CURRY-BEFOREDÀLAMBDANAMED-LAMBDAÀSUBSTpCLISUBSTNAMED-SUBSTBBDNILFBzpBbSELF-BINDING-INSTANCESpB_GOBBLE-DECLARATIONS-INTERNAL&AUXÀSIGNALÁMAKE-CONDITIONpBblTOO-MANY-ARGUMENTS,Function ~S called with too many arguments (~D).pB PROCEED-TYPESDpB ,FEWER-ARGUMENTSpB RETURN-VALUEpB lNEW-ARGUMENT-LISTBÀAPPENDBB&KEYC&OPTIONALÀ"EÀ&EVALD&SPECIALÀ&LOCALBDÀ&RESTÀ&BODYÀFERRORlAttempt to bind ~SpBb,AREA-REGION-BITSCCOPY-LISTpBbDECODE-KEYWORD-ARGLISTpB ,ALLOW-OTHER-KEYSDSPECIALpBb,SYSTEM-CONSTANTpBbBAD-KEYWORD-ARGLISTNo argument after keyword ~SÀCERRORpB NEW-KEYWORDpBblUNDEFINED-KEYWORD-ARGUMENT,Keyword arg keyword ~S, with value ~S, is unrecognized.pB_,VAR-NOT-SPECIALDBBpBblTOO-FEW-ARGUMENTS,Function ~S called with only ~D argument~1@*~P.DpB ADDITIONAL-ARGUMENTSBBBpB NEW-FUNCTIONpBbINVALID-LAMBDA-LIST~S has an invalid lambda listÀMACROpBbFUNCALL-MACRO,Funcalling the macro ~S.ÁFUNCTION-NAMELISTB:pBbLAMBDA-MACRO-CALL-PpBbLAMBDA-MACRO-EXPANDpBb,INVALID-FUNCTIONl~S is an invalid function.DDpB ,MACROS-EXPANDEDDpB_lXR-BQ-LISTÂINHIBIT-STYLE-WARNINGSpB_lEVAL-BODYpB_,INTERPRETER-SETCDO-FOREVERNEQGETFLDB-TESTpB_,INTERPRETER-VARIABLE-SPECIAL-IN-FRAME-PpB_APPLY-LAMBDA-BINDVARSELECTQSIGNAL-PROCEED-CASESETFpB_APPLY-LAMBDA-BINDVAR-1ÀPSETQCONTENTSLOCFÀUNLESSWHENPOPCASEÀCONSPCLOSUREPDpB(,ARG-MAPDDpB_FCTNDpB_A-VALUE-LISTDpB_ENVIRONMENTDpB(lLOCAL-MAPD$DpB_TEMDpB_lOPTIONALFDpB_lQUOTEFLAGDBDpB_RESTFDpB_INITDpB_lTHIS-RESTFDpB_,SPECIALFDpB_FCTN1DpB_LAMBDA-LISTDpB_BODYDpB_lVALUE-LISTDpB_,THISVALDpB_,KEYNAMESDpB_,KEYINITSDpB_,KEYKEYSDpB_,KEYFLAGSDpB_lKEYNAMES1DpB_,KEYKEYS1DpB_lKEYFLAGS1DpB_UNSPECIFIEDDpB_,ALLOW-OTHER-KEYSDpB_,THISVARDpB_,VARS-ENVDpB_TAILDpB_TEM1DBRBDARGSDpB_MUMBLEDpB_lXDKEYWORDBDpB_lLBDARGEZt 8DEZ@@G@IUGt8M@K||[@EZEZ3^8GY@8@@@Y]gGt8M@K||[@EZEZ3^@8@@@Y8GY]JGD9'AwBwCwDwEwFwGwGt8IGt8IEHHKIHMJEKLwMwNwOwPwQwRwSwDTUwVwJ 8JG}8JEDE[WDZT8WIX XGDZZC8CItXDXBC$8EE[YLWXWEYEDDLE ECGCKEE[YD DYE E DDYE ECYEE[YWXWEYEDDLE EDZDEE[Y DDYE EEWEE[ZJEZEZEE[V[K9I8IG t$8DYz!DE"@"#D$DEEZ%D&\['t8E(@E\[E)t8\[E*t8E\EIG+tY1IG,t8EA'IG-t8EB IG.t8BwIG/D8IG0D[GIG1D8EFIG DYIIGVYI%IQVAQ8IEN8IE9EE[YLXDLEDDLE EIEZZEEE[Y DDYE EYELIEX2E3DZGIEZZZ]8]E$[ G8IEZZLE EW[DLE E[ D)DLE E[IEZZ*V9DYFX8B 8 D4@KEqZXDV5@KKEE[YLXDLEDDLE EVEZKEEE[Y DDYE EYELVX2E3DZGVEZZ]8]E$[ G8VEZLE EW[DLE E[ D)DLE E[VEZ*FwEDFEE[YLXDLEDDLE EVEZKGEE[Y DDYE EYELVX2E3DZGVEZZ]8]E$[ G8VEZLE EW[DLE E[ D)DLE E[VEZ*KI6D EIEUPNMOIK7D8EUOERMEQPESR8KRGRTEzCTu8@NCEEEE[YLXDLEDDLE EQGZEEEE[Y DDYE EYELQX2E3DZGQGZZ]8]E$[ QGZ[8DZ 8QGZLE EW[DLE E[ D)DLE E[QGZ*SM8EE[YLXDLEDDLE ESGZCETE[ZEE[Y DDYE EYELSX2E3DZGSGZZ]8]E$[ SGZ[8DZ 8SGZLE EW[DLE E[ D)DLE E[SGZ*QSNTKE_w^[8^ X29D:D^^G_OEE[CMXUKX;@D_EK_OEE[C9CEME[`^K[]wDX XG`EZZ]8]E[E XX`E8DX?``E[ECEPE[C8]wDX XGCEZZ]8]EE XXCE8DX?CCEE^YI8IG1D8DXEFIG+tYIG@D8EAIG/D8IG0D[GIG DXA%XF#XDX!DE"@"ADBDEEZ%DC\`Dt8E(@E\`E)t8\`E*t8E\EIIGCEwXIIQC@IEEIEM8IE8EE[YLXDLEDDLE EIEZZEEE[Y DDYE EYELIEX2E3DZGIEZZZ]8]E$[ G8IEZZLE EW[DLE E[ D)DLE E[IEZZ*CY8EE[YLXDLEDDLE ECEZEEEE[Y DDYE EYELCX2E3DZGCEZZ]8]E$[ G8CEZLE EW[DLE E[ D)DLE E[CEZ*F8EDFwI YJXJEaaaa Ya;@EDEFDGDŀׁEGHt82IDJDKE`w`E[b bE[GcL@MDcZb[[Y`EN8O@;@EDEPDQDŀ^EE!DE"@"ADBDEEZ%DC\bDt8E(@E\bE)t8\bE*t8E\E!DE"@"#D$DEEZ%D&\b't8E(@E\bE)t8\bE*t8E\EOmBdBNBa1DpB_,FASL-RECORD-FILE-MACROS-EXPANDEDDB:DDB)3DBNDBaDB@΢DBhDBlDBDDBdDBW=DB|4SDBgDBhq DBaDBsDBh?DBmDBeDBmNnDBPDBDDBWnDB2LDBq