hưs2Dp,lFASD-DATADPFCOrson Welles9F}F Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEARRAYpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DAREFASETCARRAY-ELEMENT-TYPECARRAY-RANKARRAY-DIMENSIONARRAY-DIMENSIONSARRAY-TOTAL-SIZECARRAY-IN-BOUNDS-PÂARRAY-ROW-MAJOR-INDEXCADJUSTABLE-ARRAY-PARRAY-HAS-FILL-POINTER-PCMAKE-ARRAYFILL-POINTERCVECTOR-POPVECTOR-PUSHBIT-VECTOR-PSIMPLE-BIT-VECTOR-PÀVECTOR1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DARRAY-LEADERÀLAMBDADÀ&RESTARGS433DLET*DDpBW,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDB]DÀIGNOREDpB+,GENTEMPDB;NILDpBWREST-TEMPVARSDBeBmB_DpBW,STOREVARDpB+GENSYMDpBW,TEMPVARSDÀAPPENDBcBsDÀVALUESB}DB~DpB+LISTDpB+lCOPY-LISTB_DBBwDLETDDVALUE434BwDB_BsDplSIXR-BQ-LIST*DB;SET-ARRAY-LEADERDpBXR-BQ-APPENDB_DpBlXR-BQ-LISTBDBDB;B\B}DCIFDpB+BOUNDPDB;BYBYBnB\1DCDEFREWRITEB@DÀ&WHOLEFORMÀARRAYB^CSUBSCRIPTSDCASEDpB+LENGTHBDFDBDB;ÀAREF-1BBDFDBDB;ÀAREF-2BBDB-B1DBBADBBÀVALUEBB^BDBDBBDFDBDB;ÀASET-1BBBDFDBDB;ÀASET-2BBBDB-B1DBVBYDB[DB;DB@B]DBB^BDBaDDBcDBeBmDB;DBDBsDBeBmBB{DB}BDBB}DB~DBBDBBBDBDDBBwDBDpB+NTHB}DBBsDBDB;BABBBDBDB;B@B}BB@1DBBKDBBCDIMENSIONSB^OPTIONS&KEYDELEMENT-TYPEB-ÁELEMENT-TYPE-PDCONDDDNULLBDBDDNUMBERPBDBDB;MAKE-VECTORBDB-DBDB;MAKE-EASY-ARRAYBDDANDBDBDpB+CDDRBDBDDTYPEDCORDCEQBB-DB DpB+CONSPBDBDpB+CARBDB;B;DpB+CADRBDBBDBDDCARRAY-TYPEDARRAY-TYPE-FROM-ELEMENT-TYPEBDBDBBDBDDC=B$ÀART-QDBDB;BBDDB*B$CART-STRINGDBDB;MAKE-STRINGBDB-DBDB;ÁMAKE-1D-ARRAYBB$DBDB;BBB$DBDB;CMAKE-EASY-ARRAY-WITH-ELEMENT-TYPEBBDB-B