EXPORT PRIMITIVES QUOTE PRIMITIVES 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 READ-AND-LOCK-ARRAY-HEADERARRAY Ce%a"@B@p B0@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 %HEADER-BOUNDSARRAY  %ARRAY-RANKARRAY %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAY" C(CD@@A@A! C@ &0@A@A"p@A@A"p@A @A( C!ichx$D@'Dx !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 CONSCONS %HEADER-BOUNDSARRAYpb0@A @A"C(kF$p@A  @AjD@%*xj(@@,d0@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 %HEADER-BOUNDSARRAY %HEADER-BOUNDSARRAYpb0@A @A#G$p@A @AbD@%*x" C@,d0@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-INTERNALARRAYU TCQPPOQNPKQFIBRAC=R:02-1(+$2!;; US ERRORLISP-INTERNALSH ERRORLISP-INTERNALSC %FIXNUMPVINCULUM> CDRCONS9 %HEADER-BOUNDSARRAY3 CARCONS2 CDRCONS* ERRORLISP-INTERNALS% %FIXNUMPVINCULUM %HEADER-BOUNDSARRAY %HEADER-BOUNDSARRAY CARCONS ERRORLISP-INTERNALS %HARD-HEADER-PARRAY READ-AND-LOCK-ARRAY-HEADERARRAYV C0CD@@AU@A !b@@ATD@C&a.@8.p@A @A"@@A@AA@Bh(@!ichx(D"2@" C~*@h(@1 C , bA@AT Bp;b0@A;@A,@@A;@A(@@A2@A,CD@@A +@AA@B0,p@A1@A@4&0@A2@Aj(@3 C2 C)**x9..x$&@ , bA@AT B@A ,@@AR@A2CD@@AC@AR@A ,CD@@A I@AA@B0,p@AQ@A@4&0@AP@AQ@A @A Pj(@ A@BC@A b.@ R6Wrong number of subscripts passed to array-in-bounds-pG)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-LEADERARRAY/#&-- . ERRORLISP-INTERNALS% ERRORLISP-INTERNALS LOCK-ARRAY-HARD-PARRAY ERRORLISP-INTERNALS ERRORLISP-INTERNALS %FIXNUMPVINCULUM0"CD@@A @AA"B@ `0@A @AA"Bj*@j(@j&@ CD@@A-@AF#!*@+b@@AT(@(D@a%aD@Ep@A @A-@A  '`D@@E&x *b@@ATD@@#0@A&@AA"B@"DxE&x *b@@AT$@!ichx$DA B@A -~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-LEADERARRAY.#&,, - ERRORLISP-INTERNALS% ERRORLISP-INTERNALS LOCK-ARRAY-HARD-PARRAY ERRORLISP-INTERNALS ERRORLISP-INTERNALS %FIXNUMPVINCULUM/"CD@@A @AA"B@ `0@A @AA"Bj*@j(@j&@ CD@@A,@AF#!*@+b@@AT(@(D@a%aD@Ep@A @A,@A  '`D@@E&x *b@@ATD@@#0@A&@AA"B@"DxE&x$T@ *Z@!ichx$DA B@A ,~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 SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES  ARRAY-LEADERARRAY LAMBDA PRIMITIVES &REST PRIMITIVES ARGS249ARRAY 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 ARGS249ARRAY STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF APPEND PRIMITIVES SINGLE-TEMPVARSSETF  REST-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF APPEND PRIMITIVES LISTLISP-INTERNALS  COPY-LISTLISP-INTERNALS ARGS249ARRAY LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES VALUE250ARRAY STOREVARSETF ARGS249ARRAY  REST-TEMPVARSSETF  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES SET-ARRAY-LEADERARRAY  XR-BQ-APPENDSYSTEM-INTERNALS ARGS249ARRAY  XR-BQ-LISTSYSTEM-INTERNALS VALUE250ARRAY  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES  ARRAY-LEADERARRAY TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES  ARRAY-LEADERARRAY 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 ERRORLISP-INTERNALS LOCK-ARRAY-HARD-PARRAY CD@@A@AF#!$@j"@%b@@AT"@ r#@A @AA@B `D@@EDx %DEAFNo fill pointer No fill pointer INC-FILL-POINTERARRAY INC-FILL-POINTERARRAY  ERRORLISP-INTERNALS #LOCK-ARRAY-AND-GET-FILL-POINTER-LOCARRAY CDf@@ATD@ D$x$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 READ-AND-LOCK-ARRAY-HEADERARRAY%! C*(@e%/`&@j$@@@p'0@A $@APD@ @@F#E @!b@@AT(@r)@A#@A '`D@@E$x  b@@AT(@ '`D@@c0@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 SYMBOLPVINCULUM NAMED-STRUCTURE-SYMBOLARRAY  CONS-RESTLISP-INTERNALS}@h@@n@(j@&@" C$CD@@A @A$A@@ B$@@A@ADBFsB@A @A$@h@@f@&@j@!G$@h@@f@&@j@ E#FjD NAMED-STRUCTURE-INVOKEARRAY DECODE-DISPLACED-ARRAYARRAY DECODE-DISPLACED-ARRAYARRAY MVBIND-6LISP-INTERNALS  DECODE-ARRAYARRAYj0@j.@j,@j*@j(@j&@ C0 C`@/@b@+@d@'@f@)@h@-@ ,"$x`@$@a@&D COMPUTE-LINEARIZED-INDEXARRAY COMPUTE-LINEARIZED-INDEXARRAYI:FBAD@B=D9G8:4G1$.#/"$/22  H ERRORLISP-INTERNALSE ERRORLISP-INTERNALS5 CDRCONS0 ERRORLISP-INTERNALS- %HEADER-BOUNDSARRAY' CARCONS& CDRCONS% MULTIPLY-FIXNUMNEW-MATH %HEADER-BOUNDSARRAY %HEADER-BOUNDSARRAY CARCONS ERRORLISP-INTERNALS %HEADER-BOUNDSARRAY %FIXNUMPVINCULUMJ&CD@@A@A"C@D0@A @A&p@A @A&DEAF&2@& C~.@`,@# C < bA@AT Bpb0@A2@A0@@A2@A0@00@0p@A/@A@D*0@A$@A/@A 40y( B3 C2 C9..x$$x(*@ < bA@AT B@A A@B$@A 0@@AG@A2CD@@A:@AG@A 0@00@0p@AD@A@D*0@AB@AD@A 40,x,DA@BB@A A@B:@A GWrong number of subscriptsDsubscript out of range/subscript out of range Subscript out of range  DECODE-ARRAYARRAY  DECODE-ARRAYARRAY?'>':?".= MVBIND-2LISP-INTERNALS< DECODE-DISPLACED-ARRAYARRAY %ARRAY-TOTAL-SIZEARRAY ERRORLISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY@! Ce%O`0@0.@@B%!GB,@j*@j(@j&@j$@j"@PD@ @@F#E*@@@p/0@A @A!b@@AT,@e&7`.@B@p;B0@A @AA@BC&7`"@ A2@" B!%7`D@Ep@A .@A +D@ @@F#E$@`&@`@(@a@&@c@$@e@"@g@.@i@*D@#Dx +b@@AT$@PD@ Eb@@AT&@F$`D@B@pC0@A ?@A$A& B$ C'`@'@ '@A Array is ART-ERROR  ALOC-HARDARRAY  ALOC-HARDARRAY?:373.7 8;> COMPUTE-LINEARIZED-INDEXARRAY1 MVBIND-2LISP-INTERNALS0 DECODE-DISPLACED-ARRAYARRAY ERRORLISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY@ Ce%G`.@.,@@B%!?B*@`(@j$@j&@PD@ @@F#E @@@p-0@A @A!b@@AT*@e&/`,@B@p3B0@A @AA@BC&/`&@&p@A ;@A`(@`r+@A8@A@'Dx !b@@AT$@PD@ Eb@@ATD@ $D(xF$`D@B@pC0@A 7@A$A( B$ C`@)@`@$@a@,@c@(D3@A @@F#!D@3 E$@  A0@&@" B@A Array is ART-ERROR DECODE-2D-ARRAYARRAY DECODE-2D-ARRAYARRAY\.Y5VMSMHS:T4W350W-Z,.)Z" [ ERRORLISP-INTERNALSX ERRORLISP-INTERNALSK MVBIND-2LISP-INTERNALSJ DECODE-1D-DISPLACED-ARRAYARRAY6 MULTIPLY-FIXNUMNEW-MATH& %HEADER-BOUNDSARRAY! ERRORLISP-INTERNALS ERRORLISP-INTERNALS ERRORLISP-INTERNALS READ-AND-LOCK-ARRAY-HEADERARRAY]0$0 Ce%W`2@j0@j.@j&@j,@j*@j(@PD@ @@F#E @B@pKB0@A@AA@B!b@@AT0@e&G`2@B@pKB0@A @AA@BC&G`,@p3f0@A"@AA@BPD@ Eb@@AT(@5 C$p@AZ@A@(0@A.@AZ@A "p@AW@A@ *0@A5@AW@A "A(B %.x`r1@AT@A}@@ !b@@AT&@|@@ !b@@ATD@ @9;46/1*,%' " Z[ ERRORLISP-INTERNALS SYMBOLPVINCULUM INTEGERPVINCULUM\ CD@@A@A D CD@@AZ@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 1@AxDB@@B@A 6@AzDB@@B@A ;@A|DB@@B@A @@A~DB@@B@A E@A DB@@B@A J@A DB@@B@A O@A DB@@B@A T@ADB@@B@A Y@ADjDE!FZ+bad type to ARRAY-TYPE-CONSTANT-FROM-SYMBOLT ART-DOUBLE-FLOATARRAYO ART-SINGLE-FLOATARRAYJ ART-FAT-STRINGARRAYE  ART-STRINGARRAY@ ART-32BARRAY; ART-32BSARRAY6 ART-16BARRAY1 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-TYPEARRAYHJCE<>7924.0*,&(#?  @ CADRCONS CARCONSKFsb @A @@A C!CB@@B@A  @A@ f0@A @AfD@ r0@A@ArD@ z0@A@AvDB@p B0@A @AzD B@@ B0@A@A~D`DB@@B@A ?@A@ b0@A(@AbD@ f0@A,@ApD@ r0@A0@AtD@ z0@A4@AxDB@@ B0@A9@A|D B@@ B0@A>@A D`D`DB@@B@A E@A DB@@B@A J@A D`DE  CHARACTERLISP-INTERNALS@  STRING-CHARLISP-INTERNALS  UNSIGNED-BYTELISP-INTERNALS  SIGNED-BYTELISP-INTERNALS 'ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-SARRAY 'ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-SARRAYKIFJC@9=5,1+2'2$26D H ERRORLISP-INTERNALSB ERRORLISP-INTERNALS= %FIXNUMPVINCULUM< ERRORLISP-INTERNALS4 ERRORLISP-INTERNALS0 CDRCONS- MULTIPLY-FIXNUMNEW-MATH! %FIXNUMPVINCULUM CARCONS CDRCONS CARCONS ARRAY-TOTAL-DATA-SIZEARRAY ERRORLISP-INTERNALS %FIXNUMPVINCULUMLj.@j,@ CD@@A@A@`0@A@A B@@B0@A@AA@Bb.@ ,@"A, B`@$@a@,@c@.DFsb @A D@A C! Cb(@*@@A6@A+ C&CD@@A2@A@`0@A2@A B@@B0@A2@A,A& B00,00!((x+ C@A A(@&B,@A (.@@$z0@A=@AA(@zB,CD@@A @AA@B@A  @@AJ@AA B@A `.@b,@ G0~S is not a valid array dimension specification.A!Array too large-- Cannot make it.:-Arrays may have at most ~D dimensions, not ~S2#~dth dimension, ~S, is not a fixnum #Array too large---- Cannot make it. BUILD-ARRAY-HEADERSARRAY BUILD-ARRAY-HEADERSARRAY .0*,$& ""3 84@@A3@A9.Dx$@@F#ET@8Z@0 :x#@@F#32@@@%"32@$@@A@Api::x 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@@A0@A"54@P9.:x4T@ l8Z@9.Dx 98@`@2@a@8D GET-ARRAY-AND-ARRAY-HEADERARRAY GET-ARRAY-AND-ARRAY-HEADERARRAYV#T#QUN/I/CJ@/)<&A"U!#OU  M ALLOCATE-STRUCTURECONSH ALLOCATE-STRUCTURE-IN-AREACONS? ALLOCATE-STRUCTURECONS; BUILD-ARRAY-HEADERSARRAY . ALLOCATE-STRUCTURE-IN-AREACONS# ARRAY-BOXED-WORDS-PER-ELEMENTARRAY WB%"BD D<@j:@j8@`6@j4@@b0@A @A 6x&@@A@ApY66x`.@,@@A@A0,p@A@A \,Dx0E6xh8@pb0@A U@A8@@AO@A8@@A#@AU@A $CEp@A A@A2@@A<@A6A.@ @j@2 B E$@&@(@*@, @. @6@0@<@:@8@5F6A.@ @j B/@A 2@@AJ@A \.y`@ @j@2 B/@A \.y`@ @j B/@A *@@A U@A&@@A#@ApY66x#h:@ CHECK-DISPLACED-LEGALITYARRAY CHECK-DISPLACED-LEGALITYARRAY   ERRORLISP-INTERNALS ERRORLISP-INTERNALS ARRAY-TOTAL-SIZEARRAY8@Fs%@A  @A &(x$C@$D0@A @AEAFjDFs7% @A @AhDEAF"Not a valid thing to displaced to. *Cannot fit in specified displaced to array MAKE-ARRAY-INTERNALARRAY MAKE-ARRAY-INTERNALARRAYs1r1qsdi^bW\MUJBDK@K/n*!'&&+#'!(+ n %FIXNUMPVINCULUMI CDRCONSE CARCONSA CDRCONS: MVBIND-2LISP-INTERNALS9 GET-ARRAY-AND-ARRAY-HEADERARRAY 0 CARCONS) ERRORLISP-INTERNALS% MAX-2LISP-INTERNALS ERRORLISP-INTERNALS %FIXNUMPVINCULUM CHECK-DISPLACED-LEGALITYARRAY MVBIND-3LISP-INTERNALS 'ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-SARRAY tj<@j:@j8@j6@j4@ A"B<C`@;@b@5@(@@A@A"A4@(@*B&@@A+@A@h@A @A`&@&CD@@A(@Apsb0@A!@AA@B,@@A'@A,Ab B+@A &b,@ A&B!@A 0!ichx@AFsb @A n@A!C<@"@(@&@$ @, @:@.@1 B7 C`@9@~@@ 74@@tb0@AK@A! C2@@AK@A2CDT@4Z@ 54@3 CB@A (@@AU@A(T@4Z@@A*T@5Z@~@@ 54@,@@A\@A,T@4Z@@A 54@&@@Ab@A&T@4Z@@A.@@Ai@A 54@.T@4Z@@A8T@6Z@!ichx@@F#7D CD@@As@A1 @ 1`@ (&~S is a bad fill-pointer specification1Only 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 :+978=7C6S541.*    }z/w/s2jleg`b[]VXP6KMFH@7:829':0 ERRORLISP-INTERNALS- ARRAY-TYPE-CONSTANT-FROM-SYMBOLARRAY& MAKE-ARRAY-INTERNALARRAY  ARRAY-TYPE-FROM-ELEMENT-TYPEARRAY ARRAY-ELEMENT-TYPEARRAY ERRORLISP-INTERNALS MAX-2LISP-INTERNALS LENGTHARRAY MAX-2LISP-INTERNALSt %FIXNUMPVINCULUMp SIMPLE-ERROR-CHECKSARRAY MVBIND-NLISP-INTERNALS GET-KEYWORD-ARG-VALUESLISP-INTERNALS  CONS-RESTLISP-INTERNALS~;@h@@n@(@@ aC`@aCP@j@^@aCbA@AT@@jBPaCP@@^@PaCbA@AT@ @@BPaCP@@^@B@` aCP@`@_@b@?@d@=@f@;@h@9@j@7@l@5@n@3@p@1@r@/@t@-@PaCb@@AT@@B@@C@A :@APaCP@h^@j*@@@`aCb@@AT@@B@@C@A 9@AB@` aCP@`^@j(@B@@|B@A 8@Aj>@j&@B@@tB@A 7@Aj<@j$@B@@lB@A H@Aj:@B@@dB@A M@Aj8@B@@\B@A 6@Aj6@j"@B@@TB@A X@A`4@B@@LB@A ]@Aj2@B@@DB@A b@Aj0@B@@