hưs2€D€p€,€l�FASD-DATA€D€¬€khh€ì�Lambda Four A€†€a¥ãKF€{F€ˆD€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€ì�LISP-INTERNALSp€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€pÀl€NCì‚PUT-GLOBAL-DECLARATIOND€B€;Ã�PAGING-DEVICE€D€B€;ƒ‚DEFSTRUCT-DESCRIPTORD€B€;$€€ƒ€NIL€p€B€+ì€ART-Q€E€F€B€FB€FB€FF€B€BC‚MAKE-PAGING-DEVICEB€FB€FD€ B€BD€‚STATUS-GENERATORD€B€;C�UNDEFINED€D€ÀOPENERB€PD€ÀCLOSERB€PD€C‚QUANTUM-ALLOCATOR€B€PD€ƒ‚QUANTUM-DEALLOCATOR€B€PD€C‚READER-INITIALIZERB€PD€ƒ‚NEXT-CLUSTER-READER€B€PD€‚READER-ACTIVATE€B€PD€C‚WRITER-INITIALIZERB€PD€ƒ‚NEXT-CLUSTER-WRITER€B€PD€‚WRITER-ACTIVATE€B€PD€ƒ‚OPERATION-COMPLETER€B€P1€D€ƒ€SETQpÀ¬€SETF,ƒ*GRODY-SETF-MACRO-TABLE*D€p€B€+¬€CONSD€B€;D€C„PAGING-DEVICE-OPERATION-COMPLETER€Ã€LAMBDAD€B€BD€ƒ€LET*D€D€pÀB€m,‚SINGLE-TEMPVARS€D€p€B€+ì€MAPCARD€�FUNCTIOND€B€sD€ÀIGNORED€p€B€+,�GENTEMP€D€B€;D€B€BD€pÀB€m,�STOREVARD€p€B€+ì€GENSYMD€pÀB€m,�TEMPVARSB€wD€ÀVALUESB€�D€p€B€+¬€LISTB€BD€B€’B€‡D€ƒ€LET€D€D€ÀI7980€B€‡D€B€BD€p€B€+¬€NTH€€B€�D€pÀl€SIl�XR-BQ-LISTD€B€;Ã�STRUCTURE-SET€D€B€;D€B€;B€BF€ B€BB€–D€pÀB€ž¬�XR-BQ-LIST*€D€B€;B€rB€�B€oB€r1€D€pÀB€?,‚DEF-DECLARATION€B€rÀSUBST€D€B€;D€pÀB€?¬�NAMED-LAMBDAB€rD€B€BD€Ã�STRUCTURE-REF€D€B€;B€BF€ B€B1€D€B€lB€oD€B€qD€B€;D€ÃPAGING-DEVICE-WRITER-ACTIVATE€B€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7979€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€ B€BB€ÊD€B€©D€B€;B€ÁB€�B€oB€Á1€D€B€´B€ÁB€µD€B€;D€B€·B€ÁD€B€BD€B€¹D€B€;B€BF€ B€B1€D€B€lB€oD€B€qD€B€;D€C„PAGING-DEVICE-NEXT-CLUSTER-WRITER€B€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7978€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€ B€BB€ïD€B€©D€B€;B€æB€�B€oB€æ1€D€B€´B€æB€µD€B€;D€B€·B€æD€B€BD€B€¹D€B€;B€BF€ B€B1€D€B€lB€oD€B€qD€B€;D€„PAGING-DEVICE-WRITER-INITIALIZERB€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7977€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€ B€BB€D€B€©D€B€;B€ B€�B€oB€ 1€D€B€´B€ B€µD€B€;D€B€·B€ D€B€BD€B€¹D€B€;B€BF€ B€B1€D€B€lB€oD€B€qD€B€;D€ÃPAGING-DEVICE-READER-ACTIVATE€B€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7976€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€9D€B€©D€B€;B€0B€�B€oB€01€D€B€´B€0B€µD€B€;D€B€·B€0D€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€C„PAGING-DEVICE-NEXT-CLUSTER-READER€B€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7975€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€^D€B€©D€B€;B€UB€�B€oB€U1€D€B€´B€UB€µD€B€;D€B€·B€UD€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€„PAGING-DEVICE-READER-INITIALIZERB€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7974€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€ƒD€B€©D€B€;B€zB€�B€oB€z1€D€B€´B€zB€µD€B€;D€B€·B€zD€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€C„PAGING-DEVICE-QUANTUM-DEALLOCATOR€B€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7973€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€¨D€B€©D€B€;B€ŸB€�B€oB€Ÿ1€D€B€´B€ŸB€µD€B€;D€B€·B€ŸD€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€„PAGING-DEVICE-QUANTUM-ALLOCATOR€B€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7972€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€ÍD€B€©D€B€;B€ÄB€�B€oB€Ä1€D€B€´B€ÄB€µD€B€;D€B€·B€ÄD€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€ƒ‚PAGING-DEVICE-CLOSERB€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7971€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€òD€B€©D€B€;B€éB€�B€oB€é1€D€B€´B€éB€µD€B€;D€B€·B€éD€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€ƒ‚PAGING-DEVICE-OPENERB€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7970€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€D€B€©D€B€;B€B€�B€oB€1€D€B€´B€B€µD€B€;D€B€·B€D€B€BD€B€¹D€B€;B€BF€B€B1€D€B€lB€oD€B€qD€B€;D€ÃPAGING-DEVICE-STATUS-GENERATORB€sD€B€BD€B€uD€D€B€wD€B€yB€�D€B€;D€B€BB€‹D€B€�B€wD€B€�B€�D€B€’B€BB€”D€B€•D€D€ÀI7969€B€‡D€B€BD€B€™€B€�D€B€ B€¢D€B€;D€B€;B€BF€B€BB€<D€B€©D€B€;B€3B€�B€oB€31€D€B€´B€3B€µD€B€;D€B€·B€3D€B€BD€B€¹D€B€;B€BF€B€B1€D€B€AD€B€;B€BD€B€;Ã�TYPE-EXPANDER€D€B€zD€B€sB€FD€B€;D€C�SATISFIES€‚PAGING-DEVICE-P€B€B1€D€B€´B€\B€µD€B€;D€B€·B€\D€ÀTHING€D€‚TYPEP-STRUCTURE€B€cD€B€;B€BB€B1€D€�DEFMACROÄDEFINE-GENERIC-PAGING-DEVICE-OPERATIOND€ƒ€NAMEƒ€ARGS�ACCESSORD€B€ D€B€;ÀPROGN€D€B€ D€B€;ÀDEFUN€B€nB€oD€B€©D€B€;�FUNCALL€D€B€ B€pD€ƒ€CAR€B€oB€oD€B€ D€B€;ÀEXPORTD€B€ D€B€;B€;D€B€ B€n1€D€B€}D€B€;D€ƒ‚PAGING-DEVICE-STATUS1€D€B€}D€B€;D€C‚OPEN-PAGING-DEVICE1€D€B€}D€B€;D€ƒ‚CLOSE-PAGING-DEVICE€1€D€B€}D€B€;D€‚ALLOCATE-QUANTUM1€D€B€}D€B€;D€C‚DEALLOCATE-QUANTUM1€D€B€}D€B€;D€C�BEGIN-READ1€D€B€}D€B€;D€C‚NEXT-READ-CLUSTER€1€D€B€}D€B€;D€ƒ�DO-THE-READ€1€D€B€}D€B€;D€ƒ�BEGIN-WRITE€1€D€B€}D€B€;D€C‚NEXT-WRITE-CLUSTER1€D€B€}D€B€;D€ƒ�DO-THE-WRITE1€D€B€}D€B€;D€C‚OPERATION-COMPLETE€€