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 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 ARGS187CONS 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 ARGS187CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS187CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE188CONS STOREVARSETF ARGS187CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CARCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS187CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE188CONS  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 ARGS189CONS 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 ARGS189CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS189CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE190CONS STOREVARSETF ARGS189CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CDRCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS189CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE190CONS  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_33k! ^@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 ARGS191CONS 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 ARGS191CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS191CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE192CONS STOREVARSETF ARGS191CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS191CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE192CONS  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 ARGS193CONS 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 ARGS193CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS193CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE194CONS STOREVARSETF ARGS193CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS193CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE194CONS  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