EXPORT PRIMITIVES QUOTE PRIMITIVES ARRAY-DIMENSION-LIMITARRAY ARRAY-DIMENSIONSARRAY ARRAY-ELEMENT-TYPEARRAY ARRAY-HAS-FILL-POINTER-PARRAY ARRAY-IN-BOUNDS-PARRAY  ARRAY-RANKARRAY ARRAY-RANK-LIMITARRAY ARRAY-ROW-MAJOR-INDEXARRAY ARRAY-TOTAL-SIZEARRAY ARRAY-TOTAL-SIZE-LIMITARRAY SIMPLE-STRING-PARRAY SIMPLE-VECTOR-PARRAY STRINGPARRAY SVREFARRAY VECTORPARRAY  MAKE-VECTORARRAY AREF-1ARRAY ASET-1ARRAY ARRAY-RANK-LIMITARRAY"Arrays may have 0 to 7 dimensions. ARRAY-DIMENSION-LIMITARRAY 1Max number of elements in any one array dimension ARRAY-TOTAL-SIZE-LIMITARRAY 7Most pessimistic number of elements allowed in an array ART-QARRAY ART-1BARRAY ART-2BSARRAY ART-2BARRAY ART-4BSARRAY ART-4BARRAY ART-8BSARRAY ART-8BARRAY ART-16BSARRAY ART-16BARRAY  ART-32BSARRAY  ART-32BARRAY   ART-STRINGARRAY  ART-FAT-STRINGARRAY  ART-SINGLE-FLOATARRAY ART-DOUBLE-FLOATARRAY ART-CONTROL-PDLARRAY ART-EXTRANEOUS-PDLARRAY ART-SPECIAL-PDLARRAY ART-HARDARRAY  ART-ERRORARRAY %%SV-ARTARRAY BYTE PRIMITIVES2Simple vector array type byte-spec in array header %%BOUNDSARRAY BYTE PRIMITIVES<Byte-spec for dimensions in array header and dimension words %%LEADER-OFFSETARRAY BYTE PRIMITIVES5Byte-spec for array leader offset in extension header %%DISPLACED-TO-OFFSETARRAY BYTE PRIMITIVES-Byte-spec for offset to displaced information  %%ARRAY-TYPEARRAY BYTE PRIMITIVES ,Byte-spec for array type in extension header  %%DIMENSIONSARRAY BYTE PRIMITIVES/Byte-spec for rank of array in extension header  %%LEADER-PARRAY BYTE PRIMITIVES1Byte-spec for has-leader flag in extension header  %%INDIRECT-PARRAY BYTE PRIMITIVES5Byte-spec for indirect-array flag in extension header  %%DISPLACED-PARRAY BYTE PRIMITIVES6Byte-spec for displaced-array flag in extension header %%NAMED-STRUCTURE-PARRAY BYTE PRIMITIVES6Byte-spec for Named-Structure flag in extension header %%FILL-POINTER-PARRAY BYTE PRIMITIVES3Byte-spec for fill-pointer flag in extension header %%ADJUSTABLE-PARRAY BYTE PRIMITIVES1Byte-spec for adjustable flag in extension header %%LEADER-LENGTHARRAY BYTE PRIMITIVES$Byte-spec for leader length of array  %VM-READ32ARRAY  NAMED-LAMBDANC  %VM-READ32ARRAY POINTERARRAY OFFSETARRAY 2VMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDHARDWARE 32+HARDWARE OFFSETARRAY POINTERARRAY READ-MDHARDWARE  %VM-READ32ARRAY `@ATD %VM-READARRAY  NAMED-LAMBDANC %VM-READARRAY POINTERARRAY !VMA-START-READ-VMA-BOXED-MD-BOXEDHARDWARE POINTERARRAY READ-MDHARDWARE %VM-READARRAY b@@ATD  %VM-WRITE32ARRAY  NAMED-LAMBDANC  %VM-WRITE32ARRAY POINTERARRAY OFFSETARRAY DATAARRAY WRITE-MD-UNBOXEDHARDWARE DATAARRAY "VMA-START-WRITE-NO-GC-TRAP-UNBOXEDHARDWARE 32+HARDWARE OFFSETARRAY POINTERARRAY  %VM-WRITE32ARRAY$T@ XjD  %VM-WRITEARRAY  NAMED-LAMBDANC  %VM-WRITEARRAY POINTERARRAY DATAARRAY WRITE-MD-BOXEDHARDWARE DATAARRAY VMA-START-WRITE-BOXEDHARDWARE POINTERARRAY  %VM-WRITEARRAY"T@ Z@jD ASET-1ARRAY ASET-1ARRAY  ASET-QUICKARRAY@# b` E%F AREF-1ARRAY AREF-1ARRAY  AREF-QUICKARRAY ERRORLISP-INTERNALS %FIXNUMPVINCULUM "CD@@A @AA @"B@! b`" C@A$DNot an fixnum to aref-1 SVREFARRAY SVREFARRAY %SVREFARRAY ERRORLISP-INTERNALS"p@A@AA @"B E#FNegative index to SVREF %SVREFARRAY %SVREFARRAY  AREF-QUICKARRAY@! b`#G SVSETARRAY SVSETARRAY %SVSETARRAY ERRORLISP-INTERNALS "p@A@AA @"@$B E"@%FNegative index to SVSET %SVSETARRAY %SVSETARRAY  ASET-QUICKARRAY@! b`$E#F SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES SVREFARRAY LAMBDA PRIMITIVES &REST PRIMITIVES ARGS787ARRAY 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 ARGS787ARRAY STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS787ARRAY LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE788ARRAY STOREVARSETF ARGS787ARRAY  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SVSETARRAY  XR-BQ-APPENDSYSTEM-INTERNALS ARGS787ARRAY  XR-BQ-LISTSYSTEM-INTERNALS VALUE788ARRAY  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SVREFARRAY TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES SVREFARRAY  ASET-QUICKARRAY  ASET-QUICKARRAY  ERRORLISP-INTERNALS SVSET-DISPATCHARRAYc5"0%bU @ T Pa60ich@0 Pf@AT^!gch( D4&e5U( (0U&@ &!gch(AP@"@ B@A D)ASET-QUICK bad subscript (vma index data) SVSET-DISPATCHARRAY SVSET-DISPATCHARRAY^@A6I2B1A,I(B'A$&#II%BAIII I IBAI~IyBxAvIrBqAoInIiBhAfIbBaA]I\IXBWASIPBOAIIHIGBFA@I?I>B=A7I6I5B4A0I/B.A,I(B!B!!!PPPPPPPPPPPP2( / (   rybiPX>G5!T ERRORLISP-INTERNALSM ERRORLISP-INTERNALSF ERRORLISP-INTERNALS  ASET-HARDARRAYW!@A 50 0 Gp 8 >0 0 X@A P@A i#( b#( y#( r#( p` p` (#( /ph7 (@A 2@A P@A P@A P@A P@A P@A P@A P@A P@A P@A P@A P@A P@A !@A !@A !@A "$@Q"@(BpQ#$@0 $f@@AT@ ^@!gch( DB)(0$P`ph#b0# (IP) T\A!gch( B#(I0$P`0#(P) T\A!gch( BP!I@AI@As7#(0$P`0#(P) T\A!gch( B!I@AI@A7#(0$P`$0#(P) T\A!gch( BP!I@AI@A7#(0$P`$0#(P) T\A!gch( B@A`!057# (I0$P`C0#(P) T\A!gch( B@A57#(u`!0u`! 0I0$P`I@AC0#(P) T\A!gch( B)(0$P`a!0b0# (IP) T\A!gch( B)(0$P`q`!0q`! 0b0# (IP)I@A T\A!gch( B@A0$P`b!00# (IP) T\A!gch( B@A0$P`ia!0ia! 00# (IP)I@A T\A!gch( Bpd+P $@I@A b@@AUPU 0! `I@AT*@p!`@AT@@A+TI@A @ATT@@A@AI@A 0 T0@AI@A0 $XA!gch( Bpd+%P $@I@A b@@AU0! `I@A&UT 0!T0 $XA!gch( B@A,Fc7 @A IP$@0!`@ATT@0 $XA!gch( B#(,Fc7 @A IP$@0!`@ATT@0$$X0)(p!`@ATT@0$$XA!gch(  D!gch(AP@"@ B@A D!gch(AP@"@ B@A D!gch(AP@"@ B@A DQ.SVSET-DISPATCH bad array type (vma index data)J(SVSET-DISPATCH bad data (vma index data)C-SVSET-DISPATCH bad subscript (vma index data)  AREF-QUICKARRAY  AREF-QUICKARRAY ERRORLISP-INTERNALS SVREF-DISPATCHARRAYc5 0%bU @TPa6pQ#"0"b@@ATD0i`h@4$@e5U& &0U$@$!gch(AP@ B@A D(AREF-QUICK bad subscript (vma subscript) SVREF-DISPATCHARRAY SVREF-DISPATCHARRAY3&&&&}&r&i&`&X&O&G&E>D>?&;=:>5&-&%&!&!!!,,,,,,,,,,,, - % 5 ? GOX`ir}!/ ERRORLISP-INTERNALS) ERRORLISP-INTERNALS% MAKE-DOUBLE-FLOATARRAY MAKE-SINGLE-FLOATARRAYF MAKE-BIGNUM-32ARRAY= MAKE-BIGNUM-32ARRAY< MAKE-BIGNUM-64ARRAY  AREF-HARDARRAY2!@A @A @A }@A r@A i@A `!& X!& O!& G!& ?@A 5@A %!& -!& !& !& ,@A ,@A ,@A ,@A ,@A ,@A ,@A ,@A ,@A ,@A ,@A ,@A !@A !@A !@A  "@Q @(&pQ#$@0$b@!gch(TD&'&0P`b0!&0'&P'0U(!gch( 'h D&@A0P`0!&0'&P'0U(!gch( 'h D&@A0P`!gch()5U!4U>@A=mUFUFpUD&@A0P`!gch()5Uib?U>@A>@AUG&@A0P`0!&0'&P'0U(!gch( '`D&@A0P`0!&0'&P'0U(0)(!gch( '`D&'&0P`b0!&0'&P'0U(!gch( '`D&'&0P`b0!&0'&P'0U(0)(!gch( '`D&@A57!&0P`C0!&0'&P'0U(!gch( '`D&@A57!&0P`C0!&0'&P'0U()()(!gch( '`D&@A7!&0P`$0!&0'&P'0U(!gch( '`D&@A7!&0P`$0!&0'&P'0U(@)(@)(!gch( '`D&@As7!&0P`0!&0'&P'0U(!gch( '`D&@A0P`!gch(UG&!&P"@0"`0'&TE0"`!gch(UF!gch(AP@ B@A D!gch(AP@ B@A D-)SVREF-DISPATCH bad array type (vma index)'(SVREF-DISPATCH bad subscript (vma index) MAKE-STRING-NO-INITARRAY MAKE-STRING-NO-INITARRAY  ERRORLISP-INTERNALS ALLOCATE-STRUCTURECONS+r!@A  @A pD}V'a@ B B@b@@AFA B@AjD Bad size to make string  MAKE-VECTORARRAY  MAKE-VECTORARRAY  ERRORLISP-INTERNALS ALLOCATE-STRUCTURECONS +r!@A  @A0 }B B@`@@AFA B@AjD Bad size to make vector  MAKE-1D-ARRAYARRAY  MAKE-1D-ARRAYARRAY  ERRORLISP-INTERNALS ALLOCATE-STRUCTURE-IN-AREACONS`"@ r@$@ +r!@A  @A0 }B%"BD D@`@@%FA@B@AjD Bad size to make 1D array VECTORARRAY VECTORARRAY CDRCONS SVSETARRAY CARCONS  MAKE-VECTORARRAY LENGTHARRAY  CONS-RESTLISP-INTERNALS@h@@n@(j@(@) C& C`"@(@@A@A(C$A"@ B0 ""x( C@A $D READ-AND-LOCK-ARRAY-HEADERARRAY READ-AND-LOCK-ARRAY-HEADERARRAY0ich@@! b`@ATD  UNLOCK-ARRAYARRAY  NAMED-LAMBDANC  UNLOCK-ARRAYARRAY SETQ PRIMITIVES *ALLOW-SEQUENCE-BREAK*GLOBAL-REGISTERS 1- PRIMITIVES *ALLOW-SEQUENCE-BREAK*GLOBAL-REGISTERS  UNLOCK-ARRAYARRAY!ichxh`D  LOCK-ARRAYARRAY  NAMED-LAMBDANC  LOCK-ARRAYARRAY SETQ PRIMITIVES *ALLOW-SEQUENCE-BREAK*GLOBAL-REGISTERS 1+ PRIMITIVES *ALLOW-SEQUENCE-BREAK*GLOBAL-REGISTERS  LOCK-ARRAYARRAY0!ichxh`D MAKE-BIGNUM-32ARRAY MAKE-BIGNUM-32ARRAY ALLOCATE-STRUCTURECONSbAb@r@@AB T@ #X"D MAKE-BIGNUM-64ARRAY MAKE-BIGNUM-64ARRAY ALLOCATE-STRUCTURECONS bAf@r@@@ B"T@ %X T@ %X$D MAKE-SINGLE-FLOATARRAY MAKE-SINGLE-FLOATARRAY ALLOCATE-STRUCTURECONSbAb@v@@AB T@ #X"D MAKE-DOUBLE-FLOATARRAY MAKE-DOUBLE-FLOATARRAY ALLOCATE-STRUCTURECONS bAf@x@@@ B"T@ %X T@ %X$D  BAD-SUBSCRIPTARRAY  BAD-SUBSCRIPTARRAY ERRORLISP-INTERNALSA@B@AjD Bad subscript BAD-DATAARRAY BAD-DATAARRAY ERRORLISP-INTERNALSA@B@AjD"Incorrect data for this array type  ARRAY-TESTARRAY  NAMED-LAMBDANC  ARRAY-TESTARRAY XARRAY THUNKARRAY AND PRIMITIVES ARRAYPVINCULUM XARRAY PROG1 PRIMITIVES FUNCALL PRIMITIVES THUNKARRAY READ-AND-LOCK-ARRAY-HEADERARRAY XARRAY  UNLOCK-ARRAYARRAY  ARRAY-TESTARRAY  FUNCALL-INTERNALLISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY Fs?! @A  @A C"@h@@f@D C!ichx$DjD STRINGPARRAY STRINGPARRAY       READ-AND-LOCK-ARRAY-HEADERARRAYFs?! @A @A! C@%r'@A  @Ah"@!ichx"D @Fs'@A @A!b@AT$@C&`D@p E0@A @A@%q%@A @A h"@ j"@ j"@ j"@ jD VECTORPARRAY VECTORPARRAY    READ-AND-LOCK-ARRAY-HEADERARRAYFs?! @A @A CBFsB@A  @Ah"@!ichx"D!b@ATD@C&aD@p E0@A @A h"@ j"@ jD SIMPLE-VECTOR-PARRAY SIMPLE-VECTOR-PARRAY    READ-AND-LOCK-ARRAY-HEADERARRAY Fs?! @A  @A CBFsB@A  @Ah"@!ichx"D j"@ jD SIMPLE-STRING-PARRAY SIMPLE-STRING-PARRAY    READ-AND-LOCK-ARRAY-HEADERARRAY Fs?! @A  @A C @+r!@A  @Ah"@!ichx"D j"@ jD %HARD-HEADER-PARRAY %HARD-HEADER-PARRAYe%`D@@@pE0@A @AhDjD %HEADER-BOUNDSARRAY %HEADER-BOUNDSARRAY `D  %ARRAY-LENGTHARRAY  %ARRAY-LENGTHARRAY   ! %HEADER-BOUNDSARRAY  FILL-POINTERARRAY ERRORLISP-INTERNALS %HEADER-BOUNDSARRAY %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAY"Fs?! @A !@A! C&CD@@A @A@Fs'@A @A'C!ichx"D!b@@AT$@C&`D@p E0@A@AA @&@$B r%@A@A!C @A 'C @A jD*Length called on non one-dimensional array %STRING-LENGTHARRAY %STRING-LENGTHARRAY ERRORLISP-INTERNALS  %ARRAY-LENGTHARRAY !C"@@A@A"DA B@AjDNot an array to %string-length LENGTHARRAY LENGTHARRAY  ERRORLISP-INTERNALS CDRCONS CDRCONS  %ARRAY-LENGTHARRAY! C&@@A@A&DFs! @A @A Cb"@$@@A@A$ C 0 ""x "D @@A@AA B@AjD`DArg to LENGTH not a sequence %STRING=ARRAY %STRING=ARRAY  ERRORLISP-INTERNALS SVREFARRAY SVREFARRAY %STRING-LENGTHARRAY %STRING-LENGTHARRAY STRINGPARRAY STRINGPARRAY" CD@@A@A"CD@@A@A C"Cp#D0@A @A`&@@(0@A@AhD A& B"A&B@D@A @A0&&x jDjDA@ @"B@AjD  IN_%STRING=ARRAYNot a string to %string=  %FAST-STRING=ARRAY  %FAST-STRING=ARRAY!  %FAST-GET-4-CHARSARRAY %FAST-GET-4-CHARSARRAY"(.@@<`0@A@A(D A"@. B$A&@/ B@4*@A @A0 ""x0&&x9..x p7*@A !@Aq7*@A @Ar7*@A @A@$.Dx DE|@$.DxPEDxpE|@$.Dx0E|@$.| %FAST-GET-4-CHARSARRAY %FAST-GET-4-CHARSARRAY+$!+ ,V'`D@0E2x L ` `0@@0p@A @A@r0@A @ATDT.@b!`D@DB@0CBPC@7/@r0@A@AT,@0I2Dx !`b G`*@TD@*B@0CBPC@-T(@@L%Dx@10@A+@A0I2Dx !`b G`D@b!D&@TD@&B@0CBPC@)$j`  CONTROL-PDL-PARRAY  CONTROL-PDL-PARRAY       READ-AND-LOCK-ARRAY-HEADERARRAYFs?! @A @A C@%r%@A  @Ah"@!ichx"D @Fs%@A @A!b@ATD@C&aD@p E0@A @A8@%q%@A @A h"@ j"@ j"@ j"@ jD