EXPORTGLOBAL QUOTEGLOBAL AREFLISP ASETARRAY ARRAY-ELEMENT-TYPEARRAY  ARRAY-RANKARRAY ARRAY-DIMENSIONARRAY ARRAY-DIMENSIONSARRAY ARRAY-TOTAL-SIZEARRAY ARRAY-IN-BOUNDS-PARRAY ARRAY-ROW-MAJOR-INDEXARRAY ADJUSTABLE-ARRAY-PARRAY ARRAY-HAS-FILL-POINTER-PARRAY  MAKE-ARRAYARRAY  FILL-POINTERARRAY  VECTOR-POPARRAY  VECTOR-PUSHARRAY VECTOR-PUSH-EXTENDARRAY  BIT-VECTOR-PARRAY SIMPLE-BIT-VECTOR-PARRAY VECTORARRAY NAMED-STRUCTURE-INVOKEARRAY  ARRAY-TYPEARRAY  ARRAY-TYPEARRAY  %ADDITIONAL-HEADER-WORDARRAY 2-ARG-=LISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY Ce%a"@"A@@BD@@A@A CDb@@ATD@e&a"@!ichx"D @A ARRAY-ELEMENT-TYPEARRAY ARRAY-ELEMENT-TYPEARRAY$%#%"%!% %%%%%%%%%%%'()*0+1, 2 - 3 . 4/56& ERRORLISP-INTERNALS  ARRAY-TYPEARRAY7 C0E@ |B@ C@@A@A6@A 5@A /@A 4@A .@A 3@A -@A 2@A ,@A 1@A +@A 0@A *@A )@A (@A '@A %@A %@A %@A %@A %@A %@A %@A %@A %@A %@A %@A %@A %@A %@A %@A EAFDDDDDDDDDDDDDDDhD5  UNSIGNED-BYTELISP-INTERNALS4  UNSIGNED-BYTELISP-INTERNALS3  UNSIGNED-BYTELISP-INTERNALS2  UNSIGNED-BYTELISP-INTERNALS1  UNSIGNED-BYTELISP-INTERNALS0  UNSIGNED-BYTELISP-INTERNALS /  SIGNED-BYTELISP-INTERNALS.  SIGNED-BYTELISP-INTERNALS-  SIGNED-BYTELISP-INTERNALS,  SIGNED-BYTELISP-INTERNALS+  SIGNED-BYTELISP-INTERNALS *  STRING-CHARLISP-INTERNALS)  CHARACTERLISP-INTERNALS(  SINGLE-FLOATK'  DOUBLE-FLOATK%Bad array type used in header LOCK-ARRAY-HARD-PARRAY LOCK-ARRAY-HARD-PARRAY %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAY C(AF %ADDITIONAL-HEADER-DIMENSIONSARRAY %ADDITIONAL-HEADER-DIMENSIONSARRAYTD@C&aD %ADDITIONAL-HEADER-WORDARRAY %ADDITIONAL-HEADER-WORDARRAYF#!D@E  ARRAY-RANKARRAY  ARRAY-RANKARRAY  %ARRAY-RANKARRAY LOCK-ARRAY-HARD-PARRAY CD@@A@A!C!ichx"Db"@  %ARRAY-RANKARRAY  %ARRAY-RANKARRAY %ADDITIONAL-HEADER-DIMENSIONSARRAY %ADDITIONAL-HEADER-WORDARRAY CDb@@AUG ARRAY-DIMENSIONARRAY ARRAY-DIMENSIONARRAY $!"   # ERRORLISP-INTERNALS %HEADER-BOUNDSARRAY ERRORLISP-INTERNALS %HEADER-BOUNDSARRAY 2-ARG--LISP-INTERNALS %HEADER-BOUNDSARRAY 2-ARG->=LISP-INTERNALS  %ARRAY-RANKARRAY %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAY% C(CD@@A@A! C"A&BD@@A @A"p@A@A"p@A @A( C!ichx$DdA&B !b@@ATC0E$x A@ B@A "p@A "@A(C0E$x A@ B@A "Bad dimension argumentBad dimension argument INTERNAL-ARRAY-RANKARRAY INTERNAL-ARRAY-RANKARRAY %HARD-HEADER-PARRAY "CD@@A@A !b@@ATD@C&aDbD ARRAY-DIMENSIONSARRAY ARRAY-DIMENSIONSARRAY %ARRAY-DIMENSIONSARRAY INTERNAL-ARRAY-RANKARRAY READ-AND-LOCK-ARRAY-HEADERARRAY! C A& B A&@%B!ichx"D %ARRAY-DIMENSIONSARRAY %ARRAY-DIMENSIONSARRAY  CONSCONS CONSCONS %HEADER-BOUNDSARRAY 2-ARG->=LISP-INTERNALS 2-ARG--LISP-INTERNALS CONSCONS %HEADER-BOUNDSARRAY 2-ARG-=LISP-INTERNALS$AbBD@@A@A"C(kF$p@A  @AjD`A% Bj(@*AdBD@@A@A"C()F0)*&x , b@AT@( B&*@ ARRAY-TOTAL-SIZEARRAY ARRAY-TOTAL-SIZEARRAY %ARRAY-TOTAL-SIZEARRAY INTERNAL-ARRAY-RANKARRAY READ-AND-LOCK-ARRAY-HEADERARRAY! C A& B A&@%B!ichx"D %ARRAY-TOTAL-SIZEARRAY %ARRAY-TOTAL-SIZEARRAY   MULTIPLY-FIXNUMNEW-MATH 2-ARG->=LISP-INTERNALS %HEADER-BOUNDSARRAY 2-ARG--LISP-INTERNALS %HEADER-BOUNDSARRAY 2-ARG-=LISP-INTERNALS$AbBD@@A@A#G$p@A  @AbD`A% B" C*AdBD@@A@A(D0)*&x@A , b@AT@( B &*@  ARRAY-LENGTHARRAY  ARRAY-LENGTHARRAY ARRAY-TOTAL-SIZEARRAY!G ARRAY-ACTIVE-LENGTHARRAY ARRAY-ACTIVE-LENGTHARRAY ARRAY-TOTAL-SIZEARRAY  FILL-POINTERARRAY ARRAY-HAS-FILL-POINTER-PARRAY CD@@A@A!G!G ARRAY-IN-BOUNDS-P-INTERNALARRAY ARRAY-IN-BOUNDS-P-INTERNALARRAY[ ZGWVVUWTVOWJMFXEGAX>46/5*-&6#? ? [Y ERRORLISP-INTERNALSQ 2-ARG->=LISP-INTERNALSL ERRORLISP-INTERNALSG %FIXNUMPVINCULUMB CDRCONS= %HEADER-BOUNDSARRAY7 CARCONS6 CDRCONS1 2-ARG->=LISP-INTERNALS, ERRORLISP-INTERNALS' %FIXNUMPVINCULUM 2-ARG-=LISP-INTERNALS %HEADER-BOUNDSARRAY %HEADER-BOUNDSARRAY CARCONS ERRORLISP-INTERNALS %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAY\ C0CD@@A[@A !b@@ATD@C&a.@8.p@A @A"@@A@AA@Bh(@!ichx(D"2@" C~*@h(@1 C , bA@AT B.AbBD@@A ?@A,@@A?@A(@@A6@A,CD@@A -@AA@B0,p@A5@A,A&BD@@A6@Aj(@3 C2 C)**x9..x$&@ , bA@AT B@A ,@@AX@A2CD@@AG@AX@A ,CD@@A M@AA@B0,p@AW@A,A&BD@@AV@AW@A @A Vj(@ A@BG@A b.@ X6Wrong number of subscripts passed to array-in-bounds-pK)Bad subscript passed to array-in-bounds-p+)Bad subscript passed to array-in-bounds-p6Wrong number of subscripts passed to array-in-bounds-p ARRAY-IN-BOUNDS-PARRAY ARRAY-IN-BOUNDS-PARRAY ARRAY-IN-BOUNDS-P-INTERNALARRAY  CONS-RESTLISP-INTERNALS~@h@@n@(j@"@ E#F ARRAY-ROW-MAJOR-INDEXARRAY ARRAY-ROW-MAJOR-INDEXARRAY  COMPUTE-LINEARIZED-INDEXARRAY %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAY  CONS-RESTLISP-INTERNALS~@h@@n@(j@(@! C&CD@@A@A !b@@ATD@C&a$@ @AF#!@&@$@)B!ichx"D b$@ ADJUSTABLE-ARRAY-PARRAY ADJUSTABLE-ARRAY-PARRAY   LOCK-ARRAY-HARD-PARRAY CD@@A@AF#!D@Eb@@ATD@A%aD@Ep@A @Aj"@!ichx"D h"@ j"@ ARRAY-HAS-LEADER-PARRAY ARRAY-HAS-LEADER-PARRAY   LOCK-ARRAY-HARD-PARRAY CD@@A@AF#!D@Eb@@ATD@a%aD@Ep@A @Aj"@!ichx"D h"@ j"@  ARRAY-LEADERARRAY  ARRAY-LEADERARRAY3&)11  2 ERRORLISP-INTERNALS+ 2-ARG--LISP-INTERNALS* 2-ARG--LISP-INTERNALS( ERRORLISP-INTERNALS# 2-ARG-<=LISP-INTERNALS 2-ARG--LISP-INTERNALS LOCK-ARRAY-HARD-PARRAY ERRORLISP-INTERNALS 2-ARG-<LISP-INTERNALS ERRORLISP-INTERNALS %FIXNUMPVINCULUM4"CD@@A @AA"B"A`BD@@A @AA"Bj*@j(@j&@ CD@@A1@AF#!*@+b@@AT(@(D@a%aD@Ep@A @A1@A  '`Aa B *bA@AT@"BD@@A)@AA"B&A"B(c B *b@@AT$@!ichx$DA B@A 1~S does not have a leader'+~S is out of range in array-leader function 2~S is negative, and cannot be an index to a leader~S is not a valid index SET-ARRAY-LEADERARRAY SET-ARRAY-LEADERARRAY2&)00  1 ERRORLISP-INTERNALS+ 2-ARG--LISP-INTERNALS* 2-ARG--LISP-INTERNALS( ERRORLISP-INTERNALS# 2-ARG-<=LISP-INTERNALS 2-ARG--LISP-INTERNALS LOCK-ARRAY-HARD-PARRAY ERRORLISP-INTERNALS 2-ARG-<LISP-INTERNALS ERRORLISP-INTERNALS %FIXNUMPVINCULUM3"CD@@A @AA"B"A`BD@@A @AA"Bj*@j(@j&@ CD@@A0@AF#!*@+b@@AT(@(D@a%aD@Ep@A @A0@A  '`Aa B *bA@AT@"BD@@A)@AA"B&A"B(c B$T@ *Z@!ichx$DA B@A 0~S does not have a leader'+~S is out of range in array-leader function 2~S is negative, and cannot be an index to a leader~S is not a valid index STORE-ARRAY-LEADERARRAY STORE-ARRAY-LEADERARRAY SET-ARRAY-LEADERARRAY"E$@!F ARRAY-HAS-FILL-POINTER-PARRAY ARRAY-HAS-FILL-POINTER-PARRAY   LOCK-ARRAY-HARD-PARRAY CD@@A@AF#!D@Eb@@ATD@a%aD@Ep@A @Aj"@!ichx"D h"@ j"@ #LOCK-ARRAY-AND-GET-FILL-POINTER-LOCARRAY #LOCK-ARRAY-AND-GET-FILL-POINTER-LOCARRAY  ERRORLISP-INTERNALS 2-ARG--LISP-INTERNALS ERRORLISP-INTERNALS LOCK-ARRAY-HARD-PARRAY CD@@A@AF#!$@j"@%b@@AT"@ r#@A @AA@B `AdB@A %DEAFNo fill pointer No fill pointer INC-FILL-POINTERARRAY INC-FILL-POINTERARRAY  ERRORLISP-INTERNALS 2-ARG-+LISP-INTERNALS #LOCK-ARRAY-AND-GET-FILL-POINTER-LOCARRAY CDf@@ATA" B$p@A @AA@B$^@!ichx$D Fill pointer cannot be negative.  FILL-POINTERARRAY  FILL-POINTERARRAY #LOCK-ARRAY-AND-GET-FILL-POINTER-LOCARRAY CDb@@A!ichxTD SET-FILL-POINTERARRAY SET-FILL-POINTERARRAY #LOCK-ARRAY-AND-GET-FILL-POINTER-LOCARRAY CDf@@AT@@"^@!ichx"D  VECTOR-POPARRAY  VECTOR-POPARRAY SVREFARRAY INC-FILL-POINTERARRAY AeB(!F  VECTOR-PUSHARRAY  VECTOR-PUSHARRAY SVSETARRAY INC-FILL-POINTERARRAY"AbBE$x"A$@ B@A$D VECTOR-PUSH-EXTENDARRAY VECTOR-PUSH-EXTENDARRAY  VECTOR-PUSHARRAY E#F NAMED-STRUCTURE-SYMBOLARRAY NAMED-STRUCTURE-SYMBOLARRAY&#%#%& ERRORLISP-INTERNALS 2-ARG->LISP-INTERNALS 2-ARG--LISP-INTERNALS 2-ARG-=LISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY'! C*(@e%/`&@j$@A&BD@@A&@APD@ @@F#E @!b@@AT(@r)@A%@A '`A` B  b@@AT(@ '`AbBD@@A @AA BPD@~@@ Eb@@AT"@!ichx"D#j"@ #j"@ :~S, a named structure has a leader with a length of only 1 NAMED-STRUCTURE-PARRAY NAMED-STRUCTURE-PARRAY NAMED-STRUCTURE-SYMBOLARRAY!G NAMED-STRUCTURE-INVOKEARRAY NAMED-STRUCTURE-INVOKEARRAY  APPLY-INTERNALLISP-INTERNALS APPLY-INTERNALLISP-INTERNALS GETSYMBOL NAMED-STRUCTURE-SYMBOLARRAY  CONS-RESTLISP-INTERNALS}@h@@n@(j@&@" CF$`D@PE BpC@A @A$A@@ B$@@A@ADBFsB@A @A$E @'F$E @"@'FjD NAMED-STRUCTURE-INVOKEGLOBAL DECODE-DISPLACED-ARRAYARRAY DECODE-DISPLACED-ARRAYARRAY 2-ARG-+LISP-INTERNALS MVBIND-6LISP-INTERNALS  DECODE-ARRAYARRAYj0@j.@j,@j*@j(@j&@ C0 C`@/@b@+@d@'@f@)@h@-@*A" B`@$@a@&D COMPUTE-LINEARIZED-INDEXARRAY COMPUTE-LINEARIZED-INDEXARRAYS@PJINHJCN?Q>@:Q7)4(5')"588  R ERRORLISP-INTERNALSO ERRORLISP-INTERNALSK 2-ARG-+LISP-INTERNALSE 2-ARG->=LISP-INTERNALS; CDRCONS6 ERRORLISP-INTERNALS3 %HEADER-BOUNDSARRAY- CARCONS, CDRCONS+ MULTIPLY-FIXNUMNEW-MATH* 2-ARG-+LISP-INTERNALS$ 2-ARG->=LISP-INTERNALS 2-ARG-=LISP-INTERNALS %HEADER-BOUNDSARRAY %HEADER-BOUNDSARRAY CARCONS ERRORLISP-INTERNALS 2-ARG->=LISP-INTERNALS %HEADER-BOUNDSARRAY %FIXNUMPVINCULUMT&CD@@A@A#C(&BD@@A  @A&p@A @A&DEAF&2@& C~.@`,@# C < bA@AT B$AbBD@@A 8@A0@@A8@A0@00@0p@A5@A0A*BD@@A)@A5@A ,A0B(( B3 C2 C9..x$$x(*@ < bA@AT B@A A@B)@A 0@@AQ@A2CD@@A@@AQ@A 0@00@0p@AN@A0A*BD@@AJ@AN@A ,A0 B@A,DA@BJ@A A@B@@A QWrong number of subscriptsNsubscript out of range5subscript out of range Subscript out of range  DECODE-ARRAYARRAY  DECODE-ARRAYARRAYD*C*?D%1 B MVBIND-2LISP-INTERNALSA DECODE-DISPLACED-ARRAYARRAY< 2-ARG-=LISP-INTERNALS2 2-ARG--LISP-INTERNALS! %ARRAY-TOTAL-SIZEARRAY ERRORLISP-INTERNALS 2-ARG-=LISP-INTERNALS 2-ARG-=LISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAYE! Ce%O`0@0.@@B%!GB,@j*@j(@j&@j$@j"@PD@ @@F#E*@A.BD@@A@A!b@@AT,@e&7`.@.A@@BD@@A@AA@BC&7`"@ A2@" B!%7`D@Ep@A 1@A +D@ @@F#E$@`&@`@(@a@&@c@$@e@"@g@.@i@*DdA"B +b@@AT$@PD@ Eb@@AT&@F$`A@@BD@@AD@A$A& B$ C*`@'@ *@A Array is ART-ERROR  ALOC-HARDARRAY  ALOC-HARDARRAYE!@9=94=#>A D COMPUTE-LINEARIZED-INDEXARRAY7 MVBIND-2LISP-INTERNALS6 DECODE-DISPLACED-ARRAYARRAY1 2-ARG-=LISP-INTERNALS. 2-ARG-+LISP-INTERNALS% 2-ARG--LISP-INTERNALS ERRORLISP-INTERNALS 2-ARG-=LISP-INTERNALS 2-ARG-=LISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAYF Ce%G`.@.,@@B%!?B*@`(@j$@j&@PD@ @@F#E @A,BD@@A@A!b@@AT*@e&/`,@,A@@BD@@A@AA@BC&/`&@&p@A A@A`(@`r+@A>@AdA&B !b@@AT$@@APD@ Eb@@AT@( BF$`A@@BD@@A=@A$A( B$ C`@)@`@$@a@,@c@(D9@A @@F#!D@9 E$@  A0@&@" B!@A Array is ART-ERROR DECODE-2D-ARRAYARRAY DECODE-2D-ARRAYARRAYh6e?bY_YT_D`>c=?8c5f46/f%( g ERRORLISP-INTERNALSd ERRORLISP-INTERNALSW MVBIND-2LISP-INTERNALSV DECODE-1D-DISPLACED-ARRAYARRAYQ 2-ARG-=LISP-INTERNALSN 2-ARG-+LISP-INTERNALSA 2-ARG-+LISP-INTERNALS@ MULTIPLY-FIXNUMNEW-MATH: 2-ARG->=LISP-INTERNALS1 2-ARG->=LISP-INTERNALS, %HEADER-BOUNDSARRAY' ERRORLISP-INTERNALS" 2-ARG-=LISP-INTERNALS ERRORLISP-INTERNALS 2-ARG-=LISP-INTERNALS ERRORLISP-INTERNALS 2-ARG-=LISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAYi0$0 Ce%W`2@j0@j.@j&@j,@j*@j(@PD@ @@F#E @2A@@BD@@A @AA@B!b@@AT0@e&G`2@2A@@BD@@A @AA@BC&G`,@,AfBD@@A (@AA@BPD@ Eb@@AT(@5 C$p@Af@A$A(BD@@A6@Af@A "p@Ac@A"A*BD@@A?@Ac@A "A(B(% B`r1@A`@A}@@ !b@@AT&@@A|@@ !b@@AT@/ BF$`A@@BD@@A_@A&A/ B' C`@/@`@&@a@2@c@*@e@(@g@.DY@A @@F#!D@Y E&@ A@B?@A A@B6@A fSubscript range errorcSubscript range error&Array is not two-DimensionalArray is ART-ERRORArray is a not two dimensional AREF-2ARRAY AREF-2ARRAY SVREF-DISPATCHARRAY DECODE-2D-ARRAYARRAY A"@$BPa"4B@ c@C@a@Q@@c ASET-2ARRAY ASET-2ARRAY SVSET-DISPATCHARRAY DECODE-2D-ARRAYARRAY"A$@'BPa"4B@ c@C@a@Q@@c  AREF-HARDARRAY  AREF-HARDARRAY SVREF-DISPATCHARRAY  ALOC-HARDARRAY A"BPa"4B@ c@a@Q@@c  ASET-HARDARRAY  ASET-HARDARRAY SVSET-DISPATCHARRAY  ALOC-HARDARRAY"A%BPa"4B@ c@a@Q@@c AREF-NARRAY AREF-NARRAY  AREF-HARDARRAY  CONS-RESTLISP-INTERNALS~@h@@n@(j@"@ E#F ASET-NARRAY ASET-NARRAY  ASET-HARDARRAY  CONS-RESTLISP-INTERNALS}@h@@n@(j@$@ E"@%F AREF-LINEAR-DANGEROUSLYARRAY AREF-LINEAR-DANGEROUSLYARRAY SVREF-DISPATCHARRAYPa" P@4@@ @@@0!i`h@" @ ASET-LINEAR-DANGEROUSLYARRAY ASET-LINEAR-DANGEROUSLYARRAY SVSET-DISPATCHARRAYPa" P@4@@ @@@0!i`h@& @ AREFLISP AREFLISP  AREF-HARDARRAY  CONS-RESTLISP-INTERNALS~@h@@n@(j@"@ E#F ASETARRAY ASETARRAY  ASET-HARDARRAY  CONS-RESTLISP-INTERNALS}@h@@n@(j@$@ E"@%F  BIT-VECTOR-PARRAY  BIT-VECTOR-PARRAY FUNCALL-INTERNALLISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY Fs?! @A @A!C(@AB!ichx"DjD  INTERNALKEYWORD  BIT-VECTOR-PARRAYP_45 2-ARG-=LISP-INTERNALS @%r!@A @AhD @Fs!@A @A!b@AT"@C&`AbBD@@A@A@%q!@A @AhDjDjDjD SIMPLE-BIT-VECTOR-PARRAY SIMPLE-BIT-VECTOR-PARRAY  FUNCALL-INTERNALLISP-INTERNALS MAKE-CLOSURE-1LISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY Fs?! @A  @A!C(Aj@ BAB!ichx"DjD  INTERNALKEYWORD SIMPLE-BIT-VECTOR-PARRAYP_40 CLOSURE-REF-0-1LISP-INTERNALS @?C+rC@A @AhDjD ARRAY-BOXED-WORDS-PER-ELEMENTARRAY ARRAY-BOXED-WORDS-PER-ELEMENTARRAY 2-ARG-=LISP-INTERNALS A`BD@@A@AbD`D ARRAY-TOTAL-DATA-SIZEARRAY ARRAY-TOTAL-DATA-SIZEARRAY#$"$!$ $$$$$$$$$$$$$$)-112 2 6 6 : :>>BFC 2-ARG-+LISP-INTERNALS? 2-ARG-+LISP-INTERNALS; 2-ARG-+LISP-INTERNALS7 2-ARG-+LISP-INTERNALS3 2-ARG-+LISP-INTERNALS. 2-ARG-+LISP-INTERNALS* 2-ARG-+LISP-INTERNALS& ERRORLISP-INTERNALSG0!@ |B@ C@@A@AF@A B@A >@A >@A :@A :@A 6@A 6@A 2@A 2@A 1@A 1@A -@A )@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A $@A A @"B@AjDbA"B@Aw'aDpA"B@AV'aD"DbA"B@Aw'aDpA"B@AV'aDxA"B@A5'aDA"B@A'aDA"B@As'aD"D$Improper array-type. ARRAY-TYPE-CONSTANT-FROM-SYMBOLARRAY ARRAY-TYPE-CONSTANT-FROM-SYMBOLARRAYY[TVOQJLEG@B;=6813,.')"$ \] ERRORLISP-INTERNALS INTEGERPVINCULUM^ CD@@A@A DF$`D@PE BpC@A\@AB@@B@A @A`DB@@B@A @AbDB@@B@A @AfDB@@B@A @ApDB@@B@A $@ArDB@@B@A )@AtDB@@B@A .@AvDB@@B@A 3@AxDB@@B@A 8@AzDB@@B@A =@A|DB@@B@A B@A~DB@@B@A G@A DB@@B@A L@A DB@@B@A Q@A DB@@B@A V@ADB@@B@A [@ADjDE!F\+bad type to ARRAY-TYPE-CONSTANT-FROM-SYMBOLV ART-DOUBLE-FLOATARRAYQ ART-SINGLE-FLOATARRAYL ART-FAT-STRINGARRAYG  ART-STRINGARRAYB ART-32BARRAY= ART-32BSARRAY8 ART-16BARRAY3 ART-16BSARRAY. ART-8BARRAY) ART-8BSARRAY$ ART-4BARRAY ART-4BSARRAY ART-2BARRAY ART-2BSARRAY ART-1BARRAY ART-QARRAY ARRAY-TYPE-FROM-ELEMENT-TYPEARRAY ARRAY-TYPE-FROM-ELEMENT-TYPEARRAY^`Y[RTKMDF>@8:24-U') " *V O 2-ARG-<=LISP-INTERNALSH 2-ARG-<=LISP-INTERNALSA 2-ARG-<=LISP-INTERNALS; 2-ARG-<=LISP-INTERNALS5 2-ARG-<=LISP-INTERNALS/ 2-ARG-<=LISP-INTERNALS$ 2-ARG-<=LISP-INTERNALS 2-ARG-=LISP-INTERNALS 2-ARG-<=LISP-INTERNALS 2-ARG-<=LISP-INTERNALS 2-ARG-<=LISP-INTERNALS CADRCONS CARCONSaFsb @A V@A C!CB@@B@A *@A"AfBD@@A@AfD"ArBD@@A@ArD"AzBD@@A@AvD"A@@BD@@A"@AzD"A @@BD@@A)@A~D`DB@@B@A U@A"AbBD@@A4@AbD"AfBD@@A:@ApD"ArBD@@A@@AtD"AzBD@@AF@AxD"A@@BD@@AM@A|D"A @@BD@@AT@A D`D`DB@@B@A [@A DB@@B@A `@A D`D[  CHARACTERLISP-INTERNALSV  STRING-CHARLISP-INTERNALS*  UNSIGNED-BYTELISP-INTERNALS  SIGNED-BYTELISP-INTERNALS 'ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-SARRAY 'ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-SARRAYUSPTMJCG=49!3:-:(:#>N R ERRORLISP-INTERNALSL ERRORLISP-INTERNALSG %FIXNUMPVINCULUMF ERRORLISP-INTERNALS@ 2-ARG->=LISP-INTERNALS< ERRORLISP-INTERNALS8 CDRCONS5 MULTIPLY-FIXNUMNEW-MATH0 2-ARG-<LISP-INTERNALS* 2-ARG->=LISP-INTERNALS% %FIXNUMPVINCULUM$ CARCONS CDRCONS CARCONS ARRAY-TOTAL-DATA-SIZEARRAY ERRORLISP-INTERNALS 2-ARG-<LISP-INTERNALS 2-ARG->=LISP-INTERNALS %FIXNUMPVINCULUMVj.@j,@ CD@@A@A A`BD@@A@A A @@BD@@A @AA@Bb.@ ,@"A, B`@$@a@,@c@.DFsb @A N@A C! Cb(@*@@A>@A+ C&CD@@A:@A&A`BD@@A:@A&A @@BD@@A:@A,A& B00,00!((x+ C!@A A(@&B4@A (.@(AzBD@@AG@AA(@zB,CD@@A @AA@B@A  @@AT@AA B@A `.@b,@ Q0~S is not a valid array dimension specification.K!Array too large-- Cannot make it.D-Arrays may have at most ~D dimensions, not ~S:#~dth dimension, ~S, is not a fixnum#Array too large---- Cannot make it. BUILD-ARRAY-HEADERSARRAY BUILD-ARRAY-HEADERSARRAY /1+-%'!##52 2-ARG--LISP-INTERNALS 2-ARG-+LISP-INTERNALS :4@@A5@A9.Dx$@@F#ET@8Z@0 :x#@@F#32@@@%"32@$@@A@A:AgB o`4@6@@A@A /`6@6T@ l8Z@&@@A@A!"54@*@@A#@A(*p@A#@A!"54@$@@A'@Aa"54@%!44@C!44@(@@A-@AA"54@0@@A1@A"54@.AgB4T@ l8Z@9.Dx 98@`@2@a@8D GET-ARRAY-AND-ARRAY-HEADERARRAY GET-ARRAY-AND-ARRAY-HEADERARRAY_)\)Y]V5P5IQF5/B,G(]')$W!] ^ 2-ARG-+LISP-INTERNALSU ALLOCATE-STRUCTURECONSR 2-ARG-+LISP-INTERNALSO ALLOCATE-STRUCTURE-IN-AREACONSK 2-ARG-+LISP-INTERNALSE ALLOCATE-STRUCTURECONSA BUILD-ARRAY-HEADERSARRAY 4 ALLOCATE-STRUCTURE-IN-AREACONS) ARRAY-BOXED-WORDS-PER-ELEMENTARRAY 2-ARG-=LISP-INTERNALS 2-ARG-+LISP-INTERNALS 2-ARG-+LISP-INTERNALS 2-ARG-+LISP-INTERNALS 2-ARG->LISP-INTERNALS `B%"BD D<@j:@j8@`6@j4@ AbBD@@A @A 6x&@@A@A6Ag B`.@,@@A@A0,p@A@A6A,B(c Bh8@ AbBD@@A]@A8@@AW@A8@@A)@A]@A $CEp@A G@A2@@AB@A6A.@ @j@2 B E$@&@(@*@, @. @6@0@<@:@8@5F6A.@ @j B5@A 2@@AQ@A6A.B(`@ @j@2 B5@A 6A.B(`@ @j B5@A *@@A ]@A&@@A)@A6Ag B)h:@ CHECK-DISPLACED-LEGALITYARRAY CHECK-DISPLACED-LEGALITYARRAY  ERRORLISP-INTERNALS ERRORLISP-INTERNALS 2-ARG->LISP-INTERNALS ARRAY-TOTAL-SIZEARRAY 2-ARG-+LISP-INTERNALS8@Fs%@A @A"A&B(%C@BD@@A @AEAFjDFs7% @A @AhDEAF"Not a valid thing to displaced to. *Cannot fit in specified displaced to array MAKE-ARRAY-INTERNALARRAY MAKE-ARRAY-INTERNALARRAYw3v3uwhmbf[`QYNFHODO1r,#)((-%) #*- r %FIXNUMPVINCULUMM CDRCONSI CARCONSE CDRCONSA 2-ARG->LISP-INTERNALS< MVBIND-2LISP-INTERNALS; GET-ARRAY-AND-ARRAY-HEADERARRAY 2 CARCONS+ ERRORLISP-INTERNALS' MAX-2LISP-INTERNALS" ERRORLISP-INTERNALS 2-ARG-=LISP-INTERNALS %FIXNUMPVINCULUM CHECK-DISPLACED-LEGALITYARRAY MVBIND-3LISP-INTERNALS 'ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-SARRAY xj<@j:@j8@j6@j4@ A"B<C`@;@b@5@(@@A@A"A4@(@*B&@@A-@A@h@A @A`&@&CD@@A*@A<AbBD@@A #@AA@B,@@A)@A,Ab B-@A (b,@ A&B#@A 0!ichx@AFsb @A r@A!C<@"@(@&@$ @, @:@.@1 B7 C`@9@~@@ 74@<AbBD@@AO@A! C2@@AO@A2CDT@4Z@ 54@3 CF@A (@@AY@A(T@4Z@@A*T@5Z@~@@ 54@,@@A`@A,T@4Z@@A 54@&@@Af@A&T@4Z@@A.@@Am@A 54@.T@4Z@@A8T@6Z@!ichx@@F#7D CD@@Aw@A3 @ 3`@ *&~S is a bad fill-pointer specification!1Only one dimensional array can have fill-pointers SIMPLE-ERROR-CHECKSARRAY SIMPLE-ERROR-CHECKSARRAY +*#) &#$$  +! ERRORLISP-INTERNALS ERRORLISP-INTERNALS ERRORLISP-INTERNALS ERRORLISP-INTERNALS,$@@A+@A$D@D@@A @AA$@&B"@@A@A @@A@AA@B$@@A@A&@@A@AA@B$@@A$@A(@@A$@AA@B@AjD&@@A#@A(@@A  @A#@A &D@  VInitial-contents or initial-element cannot be specified when displaced-to is specifiedIinitial-contents and initial-element cannot be specified at the same time5Cannot supecify both element-type and type parameters:Initial contents and element are not implemented yet --wkf  ZL-MAKE-ARRAYARRAY  ZL-MAKE-ARRAYARRAY! p ~x{u{r{o j a^ZW[SQTMKNGDH@>A:8;415-+.'%(!"b ERRORLISP-INTERNALS ARRAY-TYPE-CONSTANT-FROM-SYMBOLARRAY MAKE-ARRAY-INTERNALARRAY  ARRAY-TYPE-FROM-ELEMENT-TYPEARRAYy ARRAY-ELEMENT-TYPEARRAYl 2-ARG->=LISP-INTERNALSg %FIXNUMPVINCULUMf SIMPLE-ERROR-CHECKSARRAY` ERRORARRAYY ERRORARRAYR CADRARRAYL CADRARRAYF ERRORARRAY? CADRARRAY9 CADRARRAY3 ERRORARRAY, CADRARRAY& CADRARRAY CADRARRAY CDDRARRAY CADRARRAY CAARARRAY  CONS-RESTLISP-INTERNALS~ @h@@n@(j@>@h<@j:@`8@j6@j4@j2@j0@j.@j,@j*@j(@j&@j$@>@@Ab@A?CB@@ B@A @A>Ch:@?C@A B@@ B@A "@A>Ch6@ B@@ B@A (@A> Ch2@ B@@ B@A .@A> Ch.@ B@@ B@A 5@AA@B@A B@@ B@A ;@A> C@A B@@ B@A A@A? Ch(@ B@@ B@A H@AA@B@A B@@ B@A N@A? C@A B@@ B@A T@A> C@A B@@ B@A [@AA@B@A B@@ B@A @AA@B@A 6A:@2@.@(B$CD@@A @A$A`BD@@A @A6@@A {@A:@@A {@A(@@A{@A*Ch:@@A:@@A@A=C @h@,@*@j @$ @j@kF9C@A A$Bp@A  -~S is not a valid leader-length specification_&area arg to zl-make-array not accepted[ AREAKEYWORDX-leader-list arg to zl-make-array not acceptedT  LEADER-LISTKEYWORDN  LEADER-LENGTHKEYWORDH  ADJUSTABLEKEYWORDE8displaced-index-offset arg to zl-make-array not acceptedA DISPLACED-INDEX-OFFSETKEYWORD;  DISPLACED-TOKEYWORD5  FILL-POINTERKEYWORD28named-structure-symbol arg to zl-make-array not accepted. NAMED-STRUCTURE-SYMBOLKEYWORD( INITIAL-CONTENTSKEYWORD" INITIAL-ELEMENTKEYWORD TYPEKEYWORD  ELEMENT-TYPEKEYWORD  MAKE-ARRAYARRAY  MAKE-ARRAYARRAY MLK#J69<2J,/&)KLM I MAKE-ARRAY-INTERNALARRAY A ARRAY-TYPE-FROM-ELEMENT-TYPEARRAY@ SIMPLE-ERROR-CHECKSARRAY; FUNCALL-INTERNALLISP-INTERNALS4 FUNCALL-INTERNALLISP-INTERNALS. FUNCALL-INTERNALLISP-INTERNALS( FUNCALL-INTERNALLISP-INTERNALS! FUNCALL-INTERNALLISP-INTERNALS FUNCALL-INTERNALLISP-INTERNALS FUNCALL-INTERNALLISP-INTERNALS MVBIND-NLISP-INTERNALS GET-KEYWORD-ARG-VALUESLISP-INTERNALS  CONS-RESTLISP-INTERNALS~N@h@@n@(j@8@8A@k B6Ay B`@5@b@3@d@1@f@/@h@-@j@+@B@@\B@A M@AAA Bj(@B@@TB@A L@AA@ Bj&@B@@LB@A K@AAA Bj$@B@@DB@A )@AA@ BB@@