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 ARGS347CONS 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 ARGS347CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS347CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE348CONS STOREVARSETF ARGS347CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CARCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS347CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE348CONS  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 ARGS349CONS 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 ARGS349CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS349CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE350CONS STOREVARSETF ARGS349CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CDRCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS349CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE350CONS  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 ARGS351CONS 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 ARGS351CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS351CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE352CONS STOREVARSETF ARGS351CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS351CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE352CONS  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 ARGS353CONS 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 ARGS353CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS353CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE354CONS STOREVARSETF ARGS353CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS353CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE354CONS  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@@A@A0c 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