EXPORT PRIMITIVES QUOTE PRIMITIVES  DEFINE-CONTROL-REGISTER-MODIFIERVINCULUM 1024-INTERRUPT-OFFVINCULUM 16384-INTERRPUT-OFFVINCULUM DATATYPE-TRAPS-OFFVINCULUM DRAM-PARITY-TRAPS-OFFVINCULUM FLOATING-POINT-TRAP-OFFVINCULUM  FLUSH-ICACHEVINCULUM HEAP-UNDERFLOW-TRAP-OFFVINCULUM ICACHE-TRAPS-OFFVINCULUM OVERFLOW-TRAPS-OFFVINCULUM SYNCHRONOUS-TRAPS-OFFVINCULUM MODIFY-MEMORY-CONTROLVINCULUM MODIFY-MEMORY-CONTROLVINCULUM   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BA%B(@AB(@@AF Ab@bB @A  LET PRIMITIVES MEMORY-CONTROLVINCULUM READ-MEMORY-CONTROLHARDWARE WRITE-MEMORY-CONTROLHARDWARE DPBHARDWARE OLD-TRAP-STATEVINCULUM #%%MEMORY-CONTROL-MASTER-TRAP-ENABLEHARDWARE FUNCALL PRIMITIVES THUNKVINCULUM MEMORY-CONTROLVINCULUM NOPHARDWARE NOPHARDWARE MEMORY-CONTROLVINCULUM LET PRIMITIVES OLD-TRAP-STATEVINCULUM TRAP-OFFHARDWARE THUNKVINCULUM MODIFY-PROCESSOR-CONTROLVINCULUM MODIFY-PROCESSOR-CONTROLVINCULUM   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BA$B(AB(@@AF Ab@bB @A   WITHOUT-TRAPSTRAP FUNCTION PRIMITIVES LAMBDA PRIMITIVES LET PRIMITIVES PROCESSOR-CONTROLVINCULUM READ-PROCESSOR-CONTROLHARDWARE WRITE-PROCESSOR-CONTROLHARDWARE FUNCALL PRIMITIVES THUNKVINCULUM PROCESSOR-CONTROLVINCULUM NOPHARDWARE NOPHARDWARE PROCESSOR-CONTROLVINCULUM LET PRIMITIVES THUNKVINCULUM  DEFINE-CONTROL-REGISTER-MODIFIERVINCULUM  DEFINE-CONTROL-REGISTER-MODIFIERVINCULUM) & &( MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS%  XR-BQ-LISTSYSTEM-INTERNALS!  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAY*j"@ C@s0@A&@A C@s0@A @A&@A C(@ B C(@B(A B C(@B(@B(@ BA@$@@@B(@@AB(@AB('B(@$@@AB(@(@@AF Ap@pB @A $  NEW-VALUEVINCULUM" DEFUN PRIMITIVES  LDBHARDWARE FUNCTION PRIMITIVES REGISTERVINCULUM LAMBDA PRIMITIVES REGISTERVINCULUM  NEW-VALUEVINCULUM DPBHARDWARE  FLUSH-ICACHEVINCULUM  FLUSH-ICACHEVINCULUM "@ @ !@@A @@A@ADD@a#DD@@A@A D DEFINE-TRAP-MODIFIERVINCULUM DEFINE-TRAP-MODIFIERVINCULUM y u6`L@U"a v v+x MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALSt  XR-BQ-LISTSYSTEM-INTERNALSm  XR-BQ-LIST*SYSTEM-INTERNALSh  XR-BQ-LISTSYSTEM-INTERNALSg  XR-BQ-LISTSYSTEM-INTERNALSe  XR-BQ-LIST*SYSTEM-INTERNALS_  XR-BQ-LIST*SYSTEM-INTERNALS\  XR-BQ-LISTSYSTEM-INTERNALS[  XR-BQ-LISTSYSTEM-INTERNALSY  XR-BQ-LIST*SYSTEM-INTERNALST  XR-BQ-LISTSYSTEM-INTERNALSR  XR-BQ-LISTSYSTEM-INTERNALSN  XR-BQ-LISTSYSTEM-INTERNALSK  XR-BQ-LIST*SYSTEM-INTERNALSH  XR-BQ-LISTSYSTEM-INTERNALSG  XR-BQ-LISTSYSTEM-INTERNALSE  XR-BQ-LIST*SYSTEM-INTERNALS;  XR-BQ-LISTSYSTEM-INTERNALS8  XR-BQ-LISTSYSTEM-INTERNALS5  XR-BQ-LISTSYSTEM-INTERNALS/  XR-BQ-LIST*SYSTEM-INTERNALS*  XR-BQ-LISTSYSTEM-INTERNALS)  XR-BQ-LISTSYSTEM-INTERNALS'  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYzj"@ C@u0@Av@A C@u0@A @Av@A C(A B C(@B(@ B C(@B(@B(A B C(@B(@B(@B(@ B*A)B(@AB(@AB(@AB@@B@A a@AA@$@@AB(@@B(AB(A@$@@@B@@@@ @@B@@AB(@*@jB@AB@@B@A U@AA@$@@AB(@@B(AB(@@@B@@AB(@(@@AB@AFA@$@@AB(@@B(AB(@@@BL@A A@$@@AB(@@B(AB(A@$@@AB@@@@ @ @@B6@A  Ar@rB @A 1s NOPHARDWAREr NOPHARDWAREq WRITE-MEMORY-CONTROLHARDWARE DPBHARDWARE OLD-TRAP-STATEVINCULUM #%%MEMORY-CONTROL-MASTER-TRAP-ENABLEHARDWARE MEMORY-CONTROLVINCULUMp WRITE-PROCESSOR-CONTROLHARDWARE NEW-PROCESSOR-CONTROLVINCULUMo DEDUCE-TRAP-MASKVINCULUM MEMORY-CONTROLVINCULUM NEW-PROCESSOR-CONTROLVINCULUMn LET PRIMITIVESlj PROCESSOR-CONTROLVINCULUMi LDBHARDWAREf NEW-PROCESSOR-CONTROLVINCULUMd PROCESSOR-CONTROLVINCULUMb $$TRAP-DISABLEHARDWAREa DPBHARDWARE^ DEDUCE-TRAP-MASKVINCULUM MEMORY-CONTROLVINCULUM NEW-PROCESSOR-CONTROLVINCULUM WRITE-PROCESSOR-CONTROLHARDWARE NEW-PROCESSOR-CONTROLVINCULUM WRITE-MEMORY-CONTROLHARDWARE DPBHARDWARE OLD-TRAP-STATEVINCULUM #%%MEMORY-CONTROL-MASTER-TRAP-ENABLEHARDWARE MEMORY-CONTROLVINCULUM NOPHARDWARE NOPHARDWARE] LET PRIMITIVESZ NEW-PROCESSOR-CONTROLVINCULUMX PROCESSOR-CONTROLVINCULUMV  NEW-VALUEVINCULUMU DPBHARDWARES PROGN PRIMITIVESQ  NEW-VALUEVINCULUMO DEFUN PRIMITIVESM OLD-TRAP-STATEVINCULUM TRAP-OFFHARDWARE MEMORY-CONTROLVINCULUM READ-MEMORY-CONTROLHARDWARE PROCESSOR-CONTROLVINCULUM READ-PROCESSOR-CONTROLHARDWAREL LET PRIMITIVESJ DEDUCE-TRAP-MASKVINCULUM NEW-MEMORY-CONTROLVINCULUM PROCESSOR-CONTROLVINCULUM WRITE-MEMORY-CONTROLHARDWARE DPBHARDWARE OLD-TRAP-STATEVINCULUM #%%MEMORY-CONTROL-MASTER-TRAP-ENABLEHARDWARE NEW-MEMORY-CONTROLVINCULUM NOPHARDWARE NOPHARDWAREI LET PRIMITIVESF NEW-MEMORY-CONTROLVINCULUMD MEMORY-CONTROLVINCULUMB  NEW-VALUEVINCULUMA DPBHARDWARE= MEMORY-CONTROLKEYWORD9 DEFUN PRIMITIVES7 OLD-TRAP-STATEVINCULUM TRAP-OFFHARDWARE MEMORY-CONTROLVINCULUM READ-MEMORY-CONTROLHARDWARE PROCESSOR-CONTROLVINCULUM READ-PROCESSOR-CONTROLHARDWARE6 LET PRIMITIVES4 NOPHARDWARE3 NOPHARDWARE2 WRITE-MEMORY-CONTROLHARDWARE DPBHARDWARE OLD-TRAP-STATEVINCULUM #%%MEMORY-CONTROL-MASTER-TRAP-ENABLEHARDWARE NEW-MEMORY-CONTROLVINCULUM1 DEDUCE-TRAP-MASKVINCULUM NEW-MEMORY-CONTROLVINCULUM PROCESSOR-CONTROLVINCULUM0 LET PRIMITIVES., MEMORY-CONTROLVINCULUM+ LDBHARDWARE( NEW-MEMORY-CONTROLVINCULUM& MEMORY-CONTROLVINCULUM$ $$TRAP-DISABLEHARDWARE# DPBHARDWARE MEMORY-CONTROLKEYWORD EXPORT PRIMITIVES QUOTE PRIMITIVES DEDUCE-TRAP-MASKVINCULUM DEDUCE-TRAP-MASKVINCULUMNM LKJ(I H%G-F2E7D<:D5E0F+G#HIJK LMNO!$`D@p E0@A N@A!&`D@p E0@A M@A<2!%`D@p E0@A L@A"0A%`D@p E0@A K@AD`CDD`KDD~@`E.A$`D@p E0@A J@A&`D@p E0@A I@A,a&`D@p E0@A H@AD`3DDx@`E*A$`D@p E0@A G@A@(!%`D@p E0@A F@A&$`D@p E0@A E@A $a$`D@p E0@A D@AD`DD`DD`#DD@B`CD`+DD`;DppD<lD@ 7l$@ 2l&@ -l(@ %lD@ l,@ (l*@ lD@ l0@ l2@ l.@  EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-ICACHE-TRAPSVINCULUM RESTORE-ICACHE-TRAPSVINCULUM DISABLE-ICACHE-TRAPSVINCULUM DISABLE-ICACHE-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@a!% @ A"Ba# D@@A@A!&`D RESTORE-ICACHE-TRAPSVINCULUM RESTORE-ICACHE-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@a!&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-1024-INTERRUPTVINCULUM RESTORE-1024-INTERRUPTVINCULUM DISABLE-1024-INTERRUPTVINCULUM DISABLE-1024-INTERRUPTVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@!% @ A"Ba# D@@A@A&`D RESTORE-1024-INTERRUPTVINCULUM RESTORE-1024-INTERRUPTVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@!&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-16384-INTERRUPTVINCULUM RESTORE-16384-INTERRUPTVINCULUM DISABLE-16384-INTERRUPTVINCULUM DISABLE-16384-INTERRUPTVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@!!% @ A"Ba# D@@A@Aa&`D RESTORE-16384-INTERRUPTVINCULUM RESTORE-16384-INTERRUPTVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@!!&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-DRAM-PARITY-TRAPSVINCULUM RESTORE-DRAM-PARITY-TRAPSVINCULUM DISABLE-DRAM-PARITY-TRAPSVINCULUM DISABLE-DRAM-PARITY-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@a"% @ A"Ba# D@@A@A!%`D RESTORE-DRAM-PARITY-TRAPSVINCULUM RESTORE-DRAM-PARITY-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@a"&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-SYNCHRONOUS-TRAPSVINCULUM RESTORE-SYNCHRONOUS-TRAPSVINCULUM DISABLE-SYNCHRONOUS-TRAPSVINCULUM DISABLE-SYNCHRONOUS-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@a#% @ A"Ba# D@@A@A!$`D RESTORE-SYNCHRONOUS-TRAPSVINCULUM RESTORE-SYNCHRONOUS-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@a#&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-DATATYPE-TRAPSVINCULUM RESTORE-DATATYPE-TRAPSVINCULUM DISABLE-DATATYPE-TRAPSVINCULUM DISABLE-DATATYPE-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@#% @ A"Ba# D@@A@A$`D RESTORE-DATATYPE-TRAPSVINCULUM RESTORE-DATATYPE-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@#&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-OVERFLOW-TRAPSVINCULUM RESTORE-OVERFLOW-TRAPSVINCULUM DISABLE-OVERFLOW-TRAPSVINCULUM DISABLE-OVERFLOW-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@!#% @ A"Ba# D@@A@Aa$`D RESTORE-OVERFLOW-TRAPSVINCULUM RESTORE-OVERFLOW-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@!#&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-ASYNCHRONOUS-TRAPSVINCULUM RESTORE-ASYNCHRONOUS-TRAPSVINCULUM DISABLE-ASYNCHRONOUS-TRAPSVINCULUM DISABLE-ASYNCHRONOUS-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@A#% @ A"Ba# D@@A@AA$`D RESTORE-ASYNCHRONOUS-TRAPSVINCULUM RESTORE-ASYNCHRONOUS-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@A#&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-SINGLE-STEP-TRAPVINCULUM RESTORE-SINGLE-STEP-TRAPVINCULUM DISABLE-SINGLE-STEP-TRAPVINCULUM DISABLE-SINGLE-STEP-TRAPVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@A#% @ A"Ba# D@@A@AA$`D RESTORE-SINGLE-STEP-TRAPVINCULUM RESTORE-SINGLE-STEP-TRAPVINCULUM DEDUCE-TRAP-MASKVINCULUM (@D&@$@A#&"@"A$Ba#'"D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-HEAP-UNDERFLOW-TRAPSVINCULUM RESTORE-HEAP-UNDERFLOW-TRAPSVINCULUM DISABLE-HEAP-UNDERFLOW-TRAPSVINCULUM DISABLE-HEAP-UNDERFLOW-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@A"# @$A B @a#$D@@A@AA%`D RESTORE-HEAP-UNDERFLOW-TRAPSVINCULUM RESTORE-HEAP-UNDERFLOW-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@D@A"D"@$A"B"@a#$D@@A@AjD EXPORT PRIMITIVES QUOTE PRIMITIVES DISABLE-FLOATING-POINT-TRAPSVINCULUM RESTORE-FLOATING-POINT-TRAPSVINCULUM DISABLE-FLOATING-POINT-TRAPSVINCULUM DISABLE-FLOATING-POINT-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@"@a"# @$A B @a#$D@@A@A!%`D RESTORE-FLOATING-POINT-TRAPSVINCULUM RESTORE-FLOATING-POINT-TRAPSVINCULUM DEDUCE-TRAP-MASKVINCULUM &@D$@D@a"D"@$A"B"@a#$D@@A@AjD  MODIFY-LEDSVINCULUM  MODIFY-LEDSVINCULUM$@D"@# "D@a#DD@@A@Ac'`D MODIFY-LOWCORE-CACHE-ENABLEVINCULUM MODIFY-LOWCORE-CACHE-ENABLEVINCULUM $@"@A "@@A@ADD@a#DD@@A@AA'`D MODIFY-ICACHE-ENABLESVINCULUM MODIFY-ICACHE-ENABLESVINCULUM $@"@ "@@A@ADD@a#DD@@A@A `D