hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLoveϦF~FDDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEARRAYpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DÂARRAY-DIMENSION-LIMITARRAY-DIMENSIONSCARRAY-ELEMENT-TYPEARRAY-HAS-FILL-POINTER-PCARRAY-IN-BOUNDS-PCARRAY-RANKARRAY-RANK-LIMITÂARRAY-ROW-MAJOR-INDEXARRAY-TOTAL-SIZEÂARRAY-TOTAL-SIZE-LIMITSIMPLE-STRING-PSIMPLE-VECTOR-PSTRINGPÀSVREFVECTORPMAKE-VECTORÀAREF-1ÀASET-11DDEFCONSTANTBFFlArrays may have 0 to 7 dimensions.1DBVB@ lMax number of elements in any one array dimension1DBVBI ,Most pessimistic number of elements allowed in an array1DBVÀART-Q1DBVÀART-1BF1DBVART-2BSF1DBVÀART-2BF1DBVART-4BSF1DBVÀART-4BF1DBVART-8BSF1DBVÀART-8BF1DBVART-16BSF1DBVART-16BF 1DBVART-32BSF 1DBVART-32BF 1DBVCART-STRINGF 1DBVÁART-FAT-STRINGF 1DBVART-SINGLE-FLOATF1DBVART-DOUBLE-FLOATF1DBVART-CONTROL-PDLF1DBVCART-EXTRANEOUS-PDLF1DBVART-SPECIAL-PDLF1DBVART-HARDF1DBVCART-ERRORF1DBV%%SV-ARTDBYTEFFlSimple vector array type byte-spec in array header1DBV%%BOUNDSDBFByte-spec for dimensions in array header and dimension words1DBV%%LEADER-OFFSETDBFByte-spec for array leader offset in extension header1DBVÂ%%DISPLACED-TO-OFFSETDBFFByte-spec for offset to displaced information1DBV%%ARRAY-TYPEDBFF Byte-spec for array type in extension header1DBV%%DIMENSIONSDBFF,Byte-spec for rank of array in extension header1DBVC%%LEADER-PDBFFlByte-spec for has-leader flag in extension header1DBV%%INDIRECT-PDBFFByte-spec for indirect-array flag in extension header1DBVÁ%%DISPLACED-PDBFFByte-spec for displaced-array flag in extension header1DBV%%NAMED-STRUCTURE-PDBFFByte-spec for Named-Structure flag in extension header1DBV%%FILL-POINTER-PDBFFByte-spec for fill-pointer flag in extension header1DBVÁ%%ADJUSTABLE-PDBFFlByte-spec for adjustable flag in extension header1DBV%%LEADER-LENGTHDBFByte-spec for leader length of array1DplNC,DEF-DECLARATIONC%VM-READ32ÀSUBSTDB;DpBNAMED-LAMBDABDPOINTERÀOFFSETDp,HARDWARElVMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDDpB32+BBDpB,READ-MD1DB%VM-READBDB;DBB+DBDpBlVMA-START-READ-VMA-BOXED-MD-BOXEDBDB%1DB%VM-WRITE32BDB;DBB5DBBDATADpB,WRITE-MD-UNBOXEDB6DpBlVMA-START-WRITE-NO-GC-TRAP-UNBOXEDDB!BB1DBC%VM-WRITEBDB;DBBCDBB6DpBWRITE-MD-BOXEDB6DpBVMA-START-WRITE-BOXEDB1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBMÀLAMBDADÀ&RESTARGS2861DLET*DDpBP,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBUDÀIGNOREDpB+,GENTEMPDB;NILDpBPREST-TEMPVARSDB]BeBWDpBP,STOREVARDpB+GENSYMDpBP,TEMPVARSDÀAPPENDB[BkDÀVALUESBuDBvDpB+LISTDpB+lCOPY-LISTBWDB|BoDLETDDCVALUE2862BoDBWBkDplSIXR-BQ-LIST*DB;ÀSVSETDpBXR-BQ-APPENDBWDpBlXR-BQ-LISTBDBDB;BMBuDCIFDpB+BOUNDPDB;BRBRBfBM1DBUNLOCK-ARRAYBDB;DBBBfDBOp,GLOBAL-REGISTERS*ALLOW-SEQUENCE-BREAK*DC1-B1DBCLOCK-ARRAYBDB;DBBBfDBOBDC1+B1DBCARRAY-TESTBDB;DBBDCXÀTHUNKDANDDÀARRAYPBDÀPROG1DFUNCALLBDCREAD-AND-LOCK-ARRAY-HEADERBDB