EXPORT PRIMITIVES QUOTE PRIMITIVES &CALL-WHILE-ALLOWING-WRITE-IN-READ-ONLY MAP-FAULT WRITE-FAULT-HANDLER MAP-FAULT READ-FAULT-HANDLER MAP-FAULT *PAGE-FAULT-CODE-IDLE* MAP-FAULT *PAGE-FAULT-CODE-WRITE-FAULT* MAP-FAULT *PAGE-FAULT-CODE-READ-FAULT* MAP-FAULT *PAGE-FAULT-CODE-ICACHE-FAULT* MAP-FAULT READ-FAULT-HANDLER MAP-FAULT READ-FAULT-HANDLER MAP-FAULT &,28>  D  J O  READ-READ-MAR MAP-FAULTI  READ-AGED MAP-FAULTC READ-READ-ONLY MAP-FAULT=  READ-AGED MAP-FAULT7 READ-SWAPPED-OUT MAP-FAULT1 READ-DIRECT-MAPPED MAP-FAULT+  READ-AGED MAP-FAULT%  READ-NORMAL MAP-FAULT  READ-ILLEGAL MAP-FAULT TRAP-ONTRAPP v@@C''`,@ '`D@B 7DD@0E@ |B@ C@@A@AJ@A @A D@A @A @A >@A 8@A @A 2@A @A @A @A @A ,@A &@A @A  E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F  READ-ILLEGAL MAP-FAULT  READ-ILLEGAL MAP-FAULT ILLOP-FUNCTIONTRAP%A@B@AjD  READ-READ-MAR MAP-FAULT  READ-READ-MAR MAP-FAULT ILLOP-FUNCTIONTRAP&A@B@AjD  READ-AGED MAP-FAULT  READ-AGED MAP-FAULT VMA-START-READ-GENERICVIRTUAL-MEMORY REJUVENATE-CLUSTERPHYSICAL-CLUSTER-DATA  TOUCH-AGEDMAP @@ P@(C &'`A@B v@"E&@`@*@!F READ-READ-ONLY MAP-FAULT READ-READ-ONLY MAP-FAULT ILLOP-FUNCTIONTRAP'A@B@AjD READ-SWAPPED-OUT MAP-FAULT READ-SWAPPED-OUT MAP-FAULT VMA-START-READ-GENERICVIRTUAL-MEMORY SWAP-IN MAP-FAULT P&`A@B@@ v@"E&@`@*@!F READ-DIRECT-MAPPED MAP-FAULT READ-DIRECT-MAPPED MAP-FAULT ILLOP-FUNCTIONTRAP(A@B@AjD  READ-NORMAL MAP-FAULT  READ-NORMAL MAP-FAULT ILLOP-FUNCTIONTRAP)A@B@AjD WRITE-FAULT-HANDLER MAP-FAULT WRITE-FAULT-HANDLER MAP-FAULT& ,    2  8    >C WRITE-READ-MAR MAP-FAULT= WRITE-READ-ONLY MAP-FAULT7 WRITE-SWAPPED-OUT MAP-FAULT1 WRITE-DIRECT-MAPPED MAP-FAULT+  WRITE-NORMAL MAP-FAULT%  WRITE-ILLEGAL MAP-FAULT TRAP-ONTRAP ILLOP-FUNCTIONTRAPDP&`D@ps0@A @A*A@B v@@C''`,@ '`D@B 7DD@0E@ |B@ C@@A@A>@A @A @A @A @A 8@A @A @A 2@A @A @A @A @A ,@A @A &@A  E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F E"@$@&@(@+ F  WRITE-ILLEGAL MAP-FAULT  WRITE-ILLEGAL MAP-FAULT ILLOP-FUNCTIONTRAP+A@B@AjD WRITE-READ-MAR MAP-FAULT WRITE-READ-MAR MAP-FAULT ILLOP-FUNCTIONTRAP,A@B@AjD WRITE-DIRECT-MAPPED MAP-FAULT WRITE-DIRECT-MAPPED MAP-FAULT ILLOP-FUNCTIONTRAP-A@B@AjD  WRITE-NORMAL MAP-FAULT  WRITE-NORMAL MAP-FAULT ILLOP-FUNCTIONTRAP.A@B@AjD WRITE-READ-ONLY MAP-FAULT WRITE-READ-ONLY MAP-FAULT  ' + 26 7 ILLOP-FUNCTIONTRAP3 ILLOP-FUNCTIONTRAP1 WRITE-REALLY-READ-ONLY MAP-FAULT( ILLOP-FUNCTIONTRAP& WRITE-CLEAN-CLUSTER MAP-FAULT ILLOP-FUNCTIONTRAP WRITE-REALLY-READ-ONLY-CLEAN MAP-FAULT ILLOP-FUNCTIONTRAP SYSTEM-TABLE-REFVIRTUAL-MEMORY: &'`,@f A,B7E@ |B@ C@@A@A6@A 2@A +@A '@A @A @A @A @A jD3A@B@AjD E"@$@&@(@* @- F2A@B@AjD E"@$@&@(@* @- F1A@B@AjD E"@$@&@(@* @- F0A@B@AjD/A@B@AjD WRITE-CLEAN-CLUSTER MAP-FAULT WRITE-CLEAN-CLUSTER MAP-FAULT MD-START-WRITE-GENERICVIRTUAL-MEMORY WRITE-VMA-GENERICVIRTUAL-MEMORY MARK-MODIFIED-IN-PCDPHYSICAL-CLUSTER-DATA @@ v@,C A"B G)D!GEDD@D@$E&@+F &CALL-WHILE-ALLOWING-WRITE-IN-READ-ONLY MAP-FAULT  NAMED-LAMBDANC &CALL-WHILE-ALLOWING-WRITE-IN-READ-ONLY MAP-FAULT THUNK MAP-FAULT LET PRIMITIVES  OLD-VALUE MAP-FAULT *ALLOW-WRITE-IN-READ-ONLY*GLOBAL-REGISTERS SETQ PRIMITIVES *ALLOW-WRITE-IN-READ-ONLY*GLOBAL-REGISTERS T PRIMITIVES PROG1 PRIMITIVES FUNCALL PRIMITIVES THUNK MAP-FAULT  MEMORY-WAITHARDWARE READ-MDHARDWARE SETQ PRIMITIVES *ALLOW-WRITE-IN-READ-ONLY*GLOBAL-REGISTERS  OLD-VALUE MAP-FAULT &CALL-WHILE-ALLOWING-WRITE-IN-READ-ONLY MAP-FAULT FUNCALL-INTERNALLISP-INTERNALS x $@ x@ @h@@f@AC@AT@@$ x@"D WRITE-REALLY-READ-ONLY MAP-FAULT WRITE-REALLY-READ-ONLY MAP-FAULT ILLOP-FUNCTIONTRAP  FLUSH-ICACHEVINCULUM WRITE-VMA-GENERICVIRTUAL-MEMORY DEASSOCIATE-TEMPORARYVIRTUAL-MEMORY MD-START-WRITE-GENERICVIRTUAL-MEMORY WRITE-VMA-GENERICVIRTUAL-MEMORY ASSOCIATE-TEMPORARYVIRTUAL-MEMORYx @@A@A v@P&`A''`@,BP!!A"B$A&@*B@C@@ A"BAG5A@B@AjD WRITE-REALLY-READ-ONLY-CLEAN MAP-FAULT WRITE-REALLY-READ-ONLY-CLEAN MAP-FAULT  ILLOP-FUNCTIONTRAP WRITE-REALLY-READ-ONLY MAP-FAULT MARK-MODIFIED-IN-PCDPHYSICAL-CLUSTER-DATAx @@A @A,C E"@$@&@(@* @- F6A@B@AjD WRITE-SWAPPED-OUT MAP-FAULT WRITE-SWAPPED-OUT MAP-FAULT MD-START-WRITE-GENERICVIRTUAL-MEMORY WRITE-VMA-GENERICVIRTUAL-MEMORY SWAP-IN MAP-FAULT P&`A@B@@ v@ A"B$E&@+F SWAP-IN MAP-FAULT SWAP-IN MAP-FAULT  ! ILLOP-FUNCTIONTRAP ILLOP-FUNCTIONTRAP INITIALIZE-FRESH-CLUSTER REGION-BITS ASSOCIATE-CLUSTERPHYSICAL-CLUSTER-DATA ALLOCATE-PHYSICAL-CLUSTERPHYSICAL-CLUSTER-DATA CLUSTER-REGION-BITS REGION-BITS ASSURE-FREE-PHYSICAL-CLUSTERSPHYSICAL-CLUSTER-DATA FRESH-CLUSTER?MAP$ CD@@A @AbC CAC@Aa'`D@@c@A@AC'`D@pu0@A@A`@"@ @f@`@` B"E @%F B@@B0@A@A7A@Bb@ 8A@B@AjD SWAPIN-CLUSTER-AND-WIRE-IT MAP-FAULT SWAPIN-CLUSTER-AND-WIRE-IT MAP-FAULT  TRAP-RESTORETRAP SYSTEM-TABLE-STOREVIRTUAL-MEMORY SYSTEM-TABLE-REFVIRTUAL-MEMORY HW-READ-MAP-SAFEMAPP!`,@j*@j(@*@@A@A(D,`@AT@@@A@A&@@ C `D@pc0@A @A &`(@f A(B##E"@f A(@"Bh*@&C@A ICACHE-MAP-FAULT-HANDLER MAP-FAULT ICACHE-MAP-FAULT-HANDLER MAP-FAULT "#  ICACHE-AGED MAP-FAULT! ICACHE-SWAPPED-OUT MAP-FAULT  ICACHE-ERROR MAP-FAULT TRAP-ONTRAP  FLUSH-ICACHEVINCULUM READ-MAPMAP PC->ADDRK2$ v@! CP&`A@ B@C@C'`"@ `D@B DD@0E@ |B@ C@@A@A@A @A @A @A @A @A "@A @A @A @A @A @A @A @A @A &E$@!F&E%F&E%F  ICACHE-ERROR MAP-FAULT  ICACHE-ERROR MAP-FAULT ILLOP-FUNCTIONTRAP9A@B@AjD  ICACHE-AGED MAP-FAULT  ICACHE-AGED MAP-FAULT REJUVENATE-CLUSTERPHYSICAL-CLUSTER-DATA  TOUCH-AGEDMAP@@ P@"C &`A@B v@`D ICACHE-SWAPPED-OUT MAP-FAULT ICACHE-SWAPPED-OUT MAP-FAULT   SWAP-IN-INTERNAL MAP-FAULT ILLOP-FUNCTIONTRAP FRESH-CLUSTER?MAP P&`$@$CD@@A @A:A@B@@ v@`D$C@A