hưs2Dp,lFASD-DATADkhhLambda Four AaKF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DplNCPUT-GLOBAL-DECLARATIONDB;ÁPAGING-DEVICEDB;DEFSTRUCT-DESCRIPTORDB;$NILpB+ART-QEFBFBFBFFBBCMAKE-PAGING-DEVICEBFBFD BBDSTATUS-GENERATORDB;CUNDEFINEDDÀOPENERBPDÀCLOSERBPDCQUANTUM-ALLOCATORBPDQUANTUM-DEALLOCATORBPDCREADER-INITIALIZERBPDNEXT-CLUSTER-READERBPDREADER-ACTIVATEBPDCWRITER-INITIALIZERBPDNEXT-CLUSTER-WRITERBPDWRITER-ACTIVATEBPDOPERATION-COMPLETERBP1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DCPAGING-DEVICE-OPERATION-COMPLETERÀLAMBDADBBDLET*DDpBm,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBsDÀIGNOREDpB+,GENTEMPDB;DBBDpBm,STOREVARDpB+GENSYMDpBm,TEMPVARSBwDÀVALUESBDpB+LISTBBDBBDLETDDÀI7980BDBBDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BBF BBBDpBXR-BQ-LIST*DB;BrBBoBr1DpB?,DEF-DECLARATIONBrÀSUBSTDB;DpB?NAMED-LAMBDABrDBBDÁSTRUCTURE-REFDB;BBF BB1DBlBoDBqDB;DÃPAGING-DEVICE-WRITER-ACTIVATEBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7979BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBoB1DBBBDB;DBBDBBDBDB;BBF BB1DBlBoDBqDB;DCPAGING-DEVICE-NEXT-CLUSTER-WRITERBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7978BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBoB1DBBBDB;DBBDBBDBDB;BBF BB1DBlBoDBqDB;DPAGING-DEVICE-WRITER-INITIALIZERBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7977BDBBDBBDBBDB;DB;BBF BBBDBDB;B BBoB 1DBB BDB;DBB DBBDBDB;BBF BB1DBlBoDBqDB;DÃPAGING-DEVICE-READER-ACTIVATEBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7976BDBBDBBDBBDB;DB;BBFBBB9DBDB;B0BBoB01DBB0BDB;DBB0DBBDBDB;BBFBB1DBlBoDBqDB;DCPAGING-DEVICE-NEXT-CLUSTER-READERBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7975BDBBDBBDBBDB;DB;BBFBBB^DBDB;BUBBoBU1DBBUBDB;DBBUDBBDBDB;BBFBB1DBlBoDBqDB;DPAGING-DEVICE-READER-INITIALIZERBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7974BDBBDBBDBBDB;DB;BBFBBBDBDB;BzBBoBz1DBBzBDB;DBBzDBBDBDB;BBFBB1DBlBoDBqDB;DCPAGING-DEVICE-QUANTUM-DEALLOCATORBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7973BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBoB1DBBBDB;DBBDBBDBDB;BBFBB1DBlBoDBqDB;DPAGING-DEVICE-QUANTUM-ALLOCATORBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7972BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBoB1DBBBDB;DBBDBBDBDB;BBFBB1DBlBoDBqDB;DPAGING-DEVICE-CLOSERBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7971BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBoB1DBBBDB;DBBDBBDBDB;BBFBB1DBlBoDBqDB;DPAGING-DEVICE-OPENERBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7970BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBoB1DBBBDB;DBBDBBDBDB;BBFBB1DBlBoDBqDB;DÃPAGING-DEVICE-STATUS-GENERATORBsDBBDBuDDBwDByBDB;DBBBDBBwDBBDBBBBDBDDÀI7969BDBBDBBDBBDB;DB;BBFBBB<DBDB;B3BBoB31DBB3BDB;DBB3DBBDBDB;BBFBB1DBADB;BBDB;ÁTYPE-EXPANDERDBzDBsBFDB;DCSATISFIESPAGING-DEVICE-PBB1DBB\BDB;DBB\DÀTHINGDTYPEP-STRUCTUREBcDB;BBBB1DDEFMACROÄDEFINE-GENERIC-PAGING-DEVICE-OPERATIONDNAMEARGSACCESSORDBDB;ÀPROGNDBDB;ÀDEFUNBnBoDBDB;FUNCALLDBBpDCARBoBoDBDB;ÀEXPORTDBDB;B;DBBn1DB}DB;DPAGING-DEVICE-STATUS1DB}DB;DCOPEN-PAGING-DEVICE1DB}DB;DCLOSE-PAGING-DEVICE1DB}DB;DALLOCATE-QUANTUM1DB}DB;DCDEALLOCATE-QUANTUM1DB}DB;DCBEGIN-READ1DB}DB;DCNEXT-READ-CLUSTER1DB}DB;DDO-THE-READ1DB}DB;DBEGIN-WRITE1DB}DB;DCNEXT-WRITE-CLUSTER1DB}DB;DDO-THE-WRITE1DB}DB;DCOPERATION-COMPLETE