EXPORT PRIMITIVES QUOTE PRIMITIVES0 ALLOCATE-CODE-SPACECONS ALLOCATE-STRUCTURECONS ALLOCATE-STRUCTURE-IN-AREACONS CAAAARCONS CAAADRCONS CAAARCONS CAADARCONS CAADDRCONS CAADRCONS CAARCONS CADAARCONS CADADRCONS CADARCONS CADDARCONS CADDDRCONS CADDRCONS CADRCONS CARCONS CDAAARCONS CDAADRCONS CDAARCONS CDADARCONS CDADDRCONS CDADRCONS CDARCONS CDDAARCONS CDDADRCONS CDDARCONS CDDDARCONS CDDDDRCONS CDDDRCONS CDDRCONS CDRCONS CONSCONS  CONS-IN-AREACONS CONTENTSCONS CONTENTS-OFFSETCONS ENDPCONS  MAKE-HEADERCONS  MAKE-POINTERCONS RPLACACONS RPLACDCONS SET-CARCONS SET-CDRCONS SET-DEFAULT-CONS-AREACONS SET-DEFAULT-STRUCTURE-CONS-AREACONS STORE-CONTENTSCONS STORE-CONTENTS-OFFSETCONS  MAKE-POINTERCONS  MAKE-POINTERCONS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BE&@@%F Af@fB @A   %%DATA-TYPEVINCULUM  DPB-BOXEDHARDWARE  MAKE-HEADERCONS  MAKE-HEADERCONS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BE&@@%F Af@fB @A   %%DATA-TYPEVINCULUM  DPB-BOXEDHARDWARE CONTENTSCONS CONTENTSCONS   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BA%B(@@AF Ab@bB @A  READ-MDHARDWARE PROGN PRIMITIVES !VMA-START-READ-VMA-BOXED-MD-BOXEDHARDWARE CONTENTS-OFFSETCONS CONTENTS-OFFSETCONS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BA$@'B(@AB(@@AF Af@fB @A  READ-MDHARDWARE PROGN PRIMITIVES #VMA-START-READ-VMA-UNBOXED-MD-BOXEDHARDWARE 24+HARDWARE STORE-CONTENTSCONS STORE-CONTENTSCONS0!ichx f@@AT^!gch("D STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS0!ichx f@AT^!gch($D SET-CARCONS SET-CARCONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx fh@AT^!gch("DE!F Not a cons to set-car RPLACACONS RPLACACONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx fh@AT^!gch( DE!F Not a cons to rplaca SET-CDRCONS SET-CDRCONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx nh@AT^!gch("DE!F Not a cons to set-cdr RPLACDCONS RPLACDCONS  ERRORLISP-INTERNALS Fsb @A  @A0!ichx nh@AT^!gch( DE!F Not a cons to rplacd  MAKE-C.N.RUSER  MAKE-C.N.RUSER" " ! IF PRIMITIVES  XR-BQ-LISTSYSTEM-INTERNALS  MAKE-C.N.RUSER  XR-BQ-LISTSYSTEM-INTERNALS  CONCATENATELISP-INTERNALS  MAKE-C.N.RUSER  XR-BQ-LISTSYSTEM-INTERNALS  CONCATENATELISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS INTERNLISP-INTERNALS FORMATLISP-INTERNALS#"@@A $@@A @Ap`0@A "@Ah@jA@"B(@AB(@@%B yA@#BA$BAB( yA@#BA$B@B@@BAF j@  PROGN PRIMITIVES %CDRCONSD STRINGLISP-INTERNALS %CARCONSA STRINGLISP-INTERNALS LISTLISP-INTERNALS DEFUN PRIMITIVES CONSCONS C~aR LISTLISP-INTERNALS  DEF-C...RCONS  DEF-C...RCONS      MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS NREVERSELISP-INTERNALS PUSHLISP-INTERNALS  MAKE-C.N.RUSER CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(A B`$@@&0@A@A0$y@B(jB 0$$x kC(@AF Ab@bB @A  PROGN PRIMITIVES CARCONS CARCONS bh@ATD CDRCONS CDRCONS jh@ATD CAARCONS CAARCONS bh@ATD@Dbh@ATD CDARCONS CDARCONS bh@ATD@Djh@ATD CADRCONS CADRCONS jh@ATD@Dbh@ATD CDDRCONS CDDRCONS jh@ATD@Djh@ATD CAAARCONS CAAARCONS  bh@ATD@Dbh@ATD@Dbh@ATD CDAARCONS CDAARCONS  bh@ATD@Dbh@ATD@Djh@ATD CADARCONS CADARCONS  bh@ATD@Djh@ATD@Dbh@ATD CDDARCONS CDDARCONS  bh@ATD@Djh@ATD@Djh@ATD CAADRCONS CAADRCONS  jh@ATD@Dbh@ATD@Dbh@ATD CDADRCONS CDADRCONS  jh@ATD@Dbh@ATD@Djh@ATD CADDRCONS CADDRCONS  jh@ATD@Djh@ATD@Dbh@ATD CDDDRCONS CDDDRCONS  jh@ATD@Djh@ATD@Djh@ATD CAAAARCONS CAAAARCONS  bh@ATD@Dbh@ATD@Dbh@ATD@Dbh@ATD CDAAARCONS CDAAARCONS  bh@ATD@Dbh@ATD@Dbh@ATD@Djh@ATD CADAARCONS CADAARCONS  bh@ATD@Dbh@ATD@Djh@ATD@Dbh@ATD CDDAARCONS CDDAARCONS  bh@ATD@Dbh@ATD@Djh@ATD@Djh@ATD CAADARCONS CAADARCONS  bh@ATD@Djh@ATD@Dbh@ATD@Dbh@ATD CDADARCONS CDADARCONS  bh@ATD@Djh@ATD@Dbh@ATD@Djh@ATD CADDARCONS CADDARCONS  bh@ATD@Djh@ATD@Djh@ATD@Dbh@ATD CDDDARCONS CDDDARCONS  bh@ATD@Djh@ATD@Djh@ATD@Djh@ATD CAAADRCONS CAAADRCONS  jh@ATD@Dbh@ATD@Dbh@ATD@Dbh@ATD CDAADRCONS CDAADRCONS  jh@ATD@Dbh@ATD@Dbh@ATD@Djh@ATD CADADRCONS CADADRCONS  jh@ATD@Dbh@ATD@Djh@ATD@Dbh@ATD CDDADRCONS CDDADRCONS  jh@ATD@Dbh@ATD@Djh@ATD@Djh@ATD CAADDRCONS CAADDRCONS  jh@ATD@Djh@ATD@Dbh@ATD@Dbh@ATD CDADDRCONS CDADDRCONS  jh@ATD@Djh@ATD@Dbh@ATD@Djh@ATD CADDDRCONS CADDDRCONS  jh@ATD@Djh@ATD@Djh@ATD@Dbh@ATD CDDDDRCONS CDDDDRCONS  jh@ATD@Djh@ATD@Djh@ATD@Djh@ATD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES CARCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS513CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS513CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS513CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE514CONS STOREVARSETF ARGS513CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CARCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS513CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE514CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES CARCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES CARCONS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES CDRCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS515CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS515CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS515CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE516CONS STOREVARSETF ARGS515CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CDRCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS515CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE516CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES CDRCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES CDRCONS %%STRUCTURE-HANDLE-FIRST-HEADERCONS BYTE PRIMITIVES  %%STRUCTURE-HANDLE-BOXED-QSCONS BYTE PRIMITIVES   *NO-FIRST-HEADER-CODE*CONS WRITE-STRUCTURE-HANDLESCONS  NAMED-LAMBDANC WRITE-STRUCTURE-HANDLESCONS CLUSTERCONS  FIRST-HEADERCONS LEFT-OVER-BOXED-QSCONS WRITE-MD-BOXEDHARDWARE DPBHARDWARE LEFT-OVER-BOXED-QSCONS %%STRUCTURE-HANDLE-BOXED-QSCONS  FIRST-HEADERCONS VMA-START-WRITE-BOXEDHARDWARE 24+HARDWARE *STRUCTURE-HANDLES*GLOBAL-REGISTERS CLUSTERCONS WRITE-STRUCTURE-HANDLESCONSk!"T@ !#[@jD READ-STRUCTURE-HANDLESCONS  NAMED-LAMBDANC READ-STRUCTURE-HANDLESCONS CLUSTERCONS THUNKCONS VMA-START-READHARDWARE 24+HARDWARE *STRUCTURE-HANDLES*GLOBAL-REGISTERS CLUSTERCONS LET PRIMITIVES STUFFCONS READ-MDHARDWARE FUNCALL PRIMITIVES THUNKCONS LDBHARDWARE STUFFCONS %%STRUCTURE-HANDLE-FIRST-HEADERCONS LDBHARDWARE STUFFCONS %%STRUCTURE-HANDLE-BOXED-QSCONS READ-STRUCTURE-HANDLESCONS FUNCALL-INTERNALLISP-INTERNALS !#c@AT&@ `$@+&`D@"@h@@f@$EEF MODIFY-STRUCTURE-HANDLESCONS  NAMED-LAMBDANC MODIFY-STRUCTURE-HANDLESCONS CLUSTERCONS THUNKCONS READ-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS FUNCALL PRIMITIVES THUNKCONS  FIRST-HEADERCONS BOXED-QSCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES NEW-FIRST-HEADERCONS  NEW-BOXED-QSCONS MD-START-WRITE-BOXEDHARDWARE DPBHARDWARE  NEW-BOXED-QSCONS %%STRUCTURE-HANDLE-BOXED-QSCONS NEW-FIRST-HEADERCONS MODIFY-STRUCTURE-HANDLESCONS FUNCALL-INTERNALLISP-INTERNALS !#c@AT&@ `$@+&`D@"@h@@f@$ED@@AF  INTERNALKEYWORD MODIFY-STRUCTURE-HANDLESCONSP_31k! ^@jD STRUCTURE-HANDLE-FIRST-HEADERCONS  NAMED-LAMBDANC STRUCTURE-HANDLE-FIRST-HEADERCONS CLUSTERCONS READ-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS BOXED-QSCONS  FIRST-HEADERCONS STRUCTURE-HANDLE-FIRST-HEADERCONS !#c@ATD@ a"@"D STRUCTURE-HANDLE-BOXED-QSCONS  NAMED-LAMBDANC STRUCTURE-HANDLE-BOXED-QSCONS CLUSTERCONS READ-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS  FIRST-HEADERCONS BOXED-QSCONS STRUCTURE-HANDLE-BOXED-QSCONS !#c@ATD@+&a"@"D WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  NAMED-LAMBDANC WRITE-STRUCTURE-HANDLE-BOXED-QSCONS CLUSTERCONS  NEW-VALUECONS MODIFY-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS WRITERCONS  FIRST-HEADERCONS FUNCALL PRIMITIVES WRITERCONS  NEW-VALUECONS BOXED-QSCONS WRITE-STRUCTURE-HANDLE-BOXED-QSCONS !#c@ATD@+&aD@k!#^@jD #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  NAMED-LAMBDANC #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS CLUSTERCONS  NEW-VALUECONS MODIFY-STRUCTURE-HANDLESCONS CLUSTERCONS FUNCTION PRIMITIVES LAMBDA PRIMITIVES  FIRST-HEADERCONS BOXED-QSCONS WRITERCONS BOXED-QSCONS FUNCALL PRIMITIVES WRITERCONS  FIRST-HEADERCONS  NEW-VALUECONS #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS !#c@ATD@ aD@k!D^@jD SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRUCTURE-HANDLE-FIRST-HEADERCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS517CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS517CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS517CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE518CONS STOREVARSETF ARGS517CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS517CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE518CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRUCTURE-HANDLE-FIRST-HEADERCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRUCTURE-HANDLE-FIRST-HEADERCONS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES STRUCTURE-HANDLE-BOXED-QSCONS LAMBDA PRIMITIVES &REST PRIMITIVES ARGS519CONS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES  REST-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS ARGS519CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS519CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE520CONS STOREVARSETF ARGS519CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS519CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE520CONS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES STRUCTURE-HANDLE-BOXED-QSCONS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES STRUCTURE-HANDLE-BOXED-QSCONS *STRUCTURE-HANDLES-QUANTA*CONS CEILING PRIMITIVES *NUMBER-OF-VIRTUAL-CLUSTERS*VINCULUM *QS-IN-QUANTUM*VINCULUM INITIALIZE-STRUCTURE-HANDLESCONS INITIALIZE-STRUCTURE-HANDLESCONS MAKE-AREA-FIXED AREA-DATA MAKE-REGION-IN-AREA AREA-DATA   MAKE-AREA AREA-DATA`A@@aB"Ar@`@`@b@p @` @`@`@`BlB@L!C c"C` @B@@B0@A@AjD`T@ !#[@0  x  ENDPCONS ENDPCONS h@A@AjDhD CONSCONS CONSCONS   LOAD-CONS-CACHECONS CONS-NEW-CLUSTERCONS0ich@"T@0e[@pee@0c ePeQ@  ^@i`h@F3Q D@ApeF3Q,$@@A`Cich@$D@C@A LOAD-CONS-CACHECONS LOAD-CONS-CACHECONS LOAD-CONS-CACHE-FOR-AREACONSaG CONS-NEW-CLUSTERCONS CONS-NEW-CLUSTERCONS LOAD-CONS-CACHE-FOR-AREACONS  REGION-END REGION-DATA dA@ m"@bC mD@@ D@A@AaGjD SET-DEFAULT-CONS-AREACONS SET-DEFAULT-CONS-AREACONS LOAD-CONS-CACHE-FOR-AREACONS p`0@A @AjD0!ichx @r@ C!ichxh`D LOAD-CONS-CACHE-FOR-AREACONS LOAD-CONS-CACHE-FOR-AREACONS GET-ACTIVE-REGION AREA-DATA Ep@b@j@gF  CONS-IN-AREACONS  CONS-IN-AREACONS LOAD-CONS-CACHE-FOR-AREACONS CONSCONS LOAD-CONS-CACHE-FOR-AREACONS CONSCONS p`0@A @A E#F0!ichx`)@$C A# B(C!ichx&D ALLOCATE-STRUCTURECONS ALLOCATE-STRUCTURECONS 4.(")//223 "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS STRUCTURE-CONS-CACHE-INVALID? REGION-DATA50!ichx "Dx a8@ glD@ m7@ C4@@A 2@A _l2nA@ mD@LD@A2@AF#l1@P&_`.@&T@0XPqG6@A/@AP&G`,@`*@ (@p3.0@A @A _`D@k!'DT@/ -#[@ B@@$B0@A)@A T@ -#[@0)**x01,,xB@@$B(x B@k!'BT@ -#[@0)**x01,,x`(@ 6m@!ichx0DhA8B@A "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS GET-ACTIVE-REGION AREA-DATA Er@b@j@#F SET-DEFAULT-STRUCTURE-CONS-AREACONS SET-DEFAULT-STRUCTURE-CONS-AREACONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS ph0@A @AjD0!ichx i@ A`B!ichxh`D ALLOCATE-STRUCTURE-IN-AREACONS ALLOCATE-STRUCTURE-IN-AREACONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS ALLOCATE-STRUCTURECONS "LOAD-STRUCTURE-CONS-CACHE-FOR-AREACONS ALLOCATE-STRUCTURECONSp#h0@A @A E"@$@'F0!ichxh-@ "y(B A"@$@' B,A`B!ichx*D CODE-HEADER-INSTRUCTION-HIGHCONS UNBOXED-CONSTANTHARDWARE ALLOCATE-CODE-SPACECONS ALLOCATE-CODE-SPACECONS# " SET-REGION-FREE-POINTER REGION-DATA SET-REGION-FREE-POINTER REGION-DATA REGION-FREE-POINTER REGION-DATA GET-ACTIVE-REGION AREA-DATA$0!ichxx 0@ x@0 DxE.xj,@j*@$At@b@j@. B,C @@F#E*@ <*(@)D-q/D@A  @A,A(B x@"T@*Z@T0+X@AT@@0 x@!ichx*D )&@,A&B@A