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 ARGS773CONS 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 ARGS773CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS773CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE774CONS STOREVARSETF ARGS773CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CARCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS773CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE774CONS  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 ARGS775CONS 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 ARGS775CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS775CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE776CONS STOREVARSETF ARGS775CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-CDRCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS775CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE776CONS  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 ARGS777CONS 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 ARGS777CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS777CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE778CONS STOREVARSETF ARGS777CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES #WRITE-STRUCTURE-HANDLE-FIRST-HEADERCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS777CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE778CONS  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 ARGS779CONS 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 ARGS779CONS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS779CONS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE780CONS STOREVARSETF ARGS779CONS  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES WRITE-STRUCTURE-HANDLE-BOXED-QSCONS  XR-BQ-APPENDSYSTEM-INTERNALS ARGS779CONS  XR-BQ-LISTSYSTEM-INTERNALS VALUE780CONS  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