hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€PFC€ì�Jack Flanders€†€÷¦ uF€~F€fD€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€ì€ARRAY€p€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€ÀEXPORTD€B€;D€ÂARRAY-DIMENSION-LIMIT€‚ARRAY-DIMENSIONSC‚ARRAY-ELEMENT-TYPEƒARRAY-HAS-FILL-POINTER-PC‚ARRAY-IN-BOUNDS-P€C�ARRAY-RANK‚ARRAY-RANK-LIMITÂARRAY-ROW-MAJOR-INDEX€‚ARRAY-TOTAL-SIZEÂARRAY-TOTAL-SIZE-LIMIT‚SIMPLE-STRING-P€‚SIMPLE-VECTOR-P€�STRINGP€Ã€SVREF€�VECTORP€ƒ�MAKE-VECTOR€Ã€AREF-1ÀASET-11€D€ƒ�DEFCONSTANT€B€FF€l„Arrays may have 0 to 7 dimensions.1€D€B€VB€@†€ l†Max number of elements in any one array dimension€1€D€B€VB€I†€ ,‡Most pessimistic number of elements allowed in an array€1€D€B€VÀART-Q€€1€D€B€VÀART-1BF€1€D€B€V�ART-2BS€F€1€D€B€VÀART-2BF€1€D€B€V�ART-4BS€F€1€D€B€VÀART-4BF€1€D€B€V�ART-8BS€F€1€D€B€VÀART-8BF€1€D€B€V�ART-16BSF€1€D€B€V�ART-16B€F€ 1€D€B€V�ART-32BSF€ 1€D€B€V�ART-32B€F€ 1€D€B€VC�ART-STRINGF€ 1€D€B€VÃ�ART-FAT-STRINGF€ 1€D€B€V‚ART-SINGLE-FLOATF€1€D€B€V‚ART-DOUBLE-FLOATF€1€D€B€V‚ART-CONTROL-PDL€F€1€D€B€VC‚ART-EXTRANEOUS-PDLF€1€D€B€V‚ART-SPECIAL-PDL€F€1€D€B€V�ART-HARDF€1€D€B€VC�ART-ERROR€F€1€D€B€V�%%SV-ARTD€ƒ€BYTEF€F€l†Simple vector array type byte-spec in array header1€D€B€V�%%BOUNDSD€B€¸F€€¬‡Byte-spec for dimensions in array header and dimension words1€D€B€V‚%%LEADER-OFFSET€D€B€¸F€€ì†Byte-spec for array leader offset in extension header€1€D€B€VÂ%%DISPLACED-TO-OFFSET€D€B€¸F€F€ì…Byte-spec for offset to displaced information€1€D€B€Vƒ�%%ARRAY-TYPED€B€¸F€F€ ¬…Byte-spec for array type in extension header1€D€B€Vƒ�%%DIMENSIONSD€B€¸F€F€,†Byte-spec for rank of array in extension header€1€D€B€VC�%%LEADER-PD€B€¸F€F€l†Byte-spec for has-leader flag in extension header€1€D€B€Vƒ�%%INDIRECT-PD€B€¸F€F€ì†Byte-spec for indirect-array flag in extension header€1€D€B€VÃ�%%DISPLACED-P€D€B€¸F€F€ì†Byte-spec for displaced-array flag in extension header1€D€B€Vƒ‚%%NAMED-STRUCTURE-P€D€B€¸F€F€ì†Byte-spec for Named-Structure flag in extension header1€D€B€V‚%%FILL-POINTER-PD€B€¸F€F€¬†Byte-spec for fill-pointer flag in extension header€1€D€B€VÃ�%%ADJUSTABLE-PD€B€¸F€F€l†Byte-spec for adjustable flag in extension header€1€D€B€V‚%%LEADER-LENGTH€D€B€¸F€€¬„Byte-spec for leader length of array1€D€pÀl€NC,‚DEF-DECLARATION€C�%VM-READ32ÀSUBST€D€B€;D€pÀB€¬�NAMED-LAMBDAB€D€�POINTER€Ã€OFFSETD€pÀ,�HARDWAREl†VMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDD€pÀB€¬€32+€B€B€D€pÀB€,�READ-MD€1€D€B€�%VM-READB€D€B€;D€B€B€+D€B€D€pÀB€l„VMA-START-READ-VMA-BOXED-MD-BOXED€B€D€B€%1€D€B€ƒ�%VM-WRITE32€B€D€B€;D€B€B€5D€B€B€ƒ€DATAD€pÀB€,‚WRITE-MD-UNBOXEDB€6D€pÀB€l„VMA-START-WRITE-NO-GC-TRAP-UNBOXEDD€B€!B€B€1€D€B€C�%VM-WRITE€B€D€B€;D€B€B€CD€B€B€6D€pÀB€ì�WRITE-MD-BOXEDB€6D€pÀB€ì‚VMA-START-WRITE-BOXED€B€1€D€ƒ€SETQpÀ¬€SETF,ƒ*GRODY-SETF-MACRO-TABLE*D€p€B€+¬€CONSD€B€;D€B€MÀLAMBDAD€À&REST€Ã€ARGS3€D€ƒ€LET*D€D€pÀB€P,‚SINGLE-TEMPVARS€D€p€B€+ì€MAPCARD€�FUNCTIOND€B€UD€ÀIGNORED€p€B€+,�GENTEMP€D€B€;ƒ€NIL€D€pÀB€Pì�REST-TEMPVARS€D€B€]B€eB€WD€pÀB€P,�STOREVARD€p€B€+ì€GENSYMD€pÀB€P,�TEMPVARSD€ÀAPPENDB€[B€kD€ÀVALUESB€uD€B€vD€p€B€+¬€LISTD€p€B€+l�COPY-LIST€B€WD€B€|B€oD€ƒ€LET€D€D€ÀVALUE4B€oD€B€WB€kD€pÀl€SI¬�XR-BQ-LIST*€D€B€;ÀSVSET€D€pÀB€ˆ¬�XR-BQ-APPENDB€WD€pÀB€ˆl�XR-BQ-LISTB€„D€B€ŠD€B€;B€MB€uD€C€IFD€p€B€+ì€BOUNDPD€B€;B€RB€RB€fB€M1€D€B€ƒ�UNLOCK-ARRAYB€D€B€;D€B€B€¤B€fD€B€Op€,‚GLOBAL-REGISTERSì‚*ALLOW-SEQUENCE-BREAK*D€C€1-B€§1€D€B€C�LOCK-ARRAYB€D€B€;D€B€B€¯B€fD€B€OB€§D€C€1+B€§1€D€B€C�ARRAY-TESTB€D€B€;D€B€B€·D€C€X€Ã€THUNK€D€ƒ€AND€D€ÀARRAYPB€¸D€ÀPROG1€D€�FUNCALL€B€¹D€CƒREAD-AND-LOCK-ARRAY-HEADERB€¸D€B€¤€€