hưs2Dp,lFASD-DATADWKFLove3 F{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀDEFVAR*READ-BASE*F Default radix in which to read integers and ratios.1DB?*READ-SUPPRESS*NIL,Suppress most of the actions of the reader, mostly to support #+ and #-1DB?*READ-DEFAULT-FLOAT-FORMAT*DB;SINGLE-FLOAT,A floating-point number read or printed with the E marker has this type.1DB?C*ALLOW-DOT-TOKENS*BFlWhen T, if the reader encounters a token that is just a period, read thattoken in as the value of *reader-dot-token*. When NIL, raise an error if such a token is read.1DDEFCONSTANTC*READER-DOT-TOKEN*DCONSDB;ÁTHE-DOT-TOKENBFThis is the object read in when a single-dot token is read.1DDEFMACROCDO-ARRAY-ELEMENTSDDELEMENTINDICESÀARRAYÀ&BODYBODYlIterate over each element of ARRAY, with ELEMENT bound to that element andINDICES bound to a list of the indices of that element.DplSIlXR-BQ-LISTDB;ÀDOLISTDBiB`DBiDB;ÂGENERATE-PERMUTATIONSDBiDB;ARRAY-DIMENSIONSBaDpBgXR-BQ-LIST*DB;LETDBiDBiB_DBiDB;ÀAPPLYDB;DFUNCTIONAREFBaB`Bd1DB?Â*READER-CIRCULARITIES*BFAn association list that keeps track of #n= and #n# business. The car ofeach element is a unique positive integer n; the cdr is the object that itrefers to. There is also an entry for UNIQUE-IDENTIFIER.1DBT*PLACEHOLDER-FOR-#N#-IDENTIFIER*DBVDB;PLACEHOLDERBF1DplNCPUT-GLOBAL-DECLARATIONDB;ÀTOKENDB;DEFSTRUCT-DESCRIPTORDB;$BFpB+ART-QEFBFBFBFFBCMAKE-TOKENBFBFDBDCCHARACTERSDCMAKE-ARRAYFpB lADJUSTABLEB-pB FILL-POINTERB-DCATTRIBUTESDBFBB-BB-DCCONTAINS-DECIMAL-PDB;CUNDEFINEDDCONTAINS-NUMBER-MARKER-PBDSCRATCH-POINTER1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DÂTOKEN-SCRATCH-POINTERÀLAMBDADBDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDByDBDÀIGNOREDpB+,GENTEMPDB;DBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBDBBDBuDDINDICES4312BDBDpB+NTHBDBiDB;ÁSTRUCTURE-SETDB;DB;BFBBDBtDB;BBDCIFDpB+BOUNDPDB;BBBFB1DpB,DEF-DECLARATIONBÀSUBSTDB;DpBNAMED-LAMBDABDBDÁSTRUCTURE-REFDB;BFB1DBBDBDB;DÃTOKEN-CONTAINS-NUMBER-MARKER-PBDBDBDDBDBBDB;DBBDBBDBBDBBBDBuDDINDICES4311BDBDBBDBiBDB;DB;BFBBDBtDB;B BBB 1DBB BDB;DBB DBDBDB;BFB1DBBDBDB;DTOKEN-CONTAINS-DECIMAL-PBDBDBDDBDBBDB;DBBDBBDBBDBBBDBuDDINDICES4310BDBDBBDBiBDB;DB;BFBB8DBtDB;B/BBB/1DBB/BDB;DBB/DBDBDB;BFB1DBBDBDB;DTOKEN-ATTRIBUTESBDBDBDDBDBBDB;DBBDBBDBBDBBBDBuDDINDICES4309BDBDBBDBiBDB;DB;BFBB]DBtDB;BTBBBT1DBBTBDB;DBBTDBDBDB;BFB1DBBDBDB;DTOKEN-CHARACTERSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBuDDINDICES4308BDBDBBDBiBDB;DB;BFBBDBtDB;ByBBBy1DBByBDB;DBByDBDBDB;BFB1DBDB;BDB;ÁTYPE-EXPANDERDByDBBFDB;DCSATISFIESTOKEN-PB1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BB1DB]CBACKQUOTEDCEXPRESSION&ENVIRONMENTENVDCONDDDVECTORPBDBtDB;ÀVECTORDNBUTLASTDÂEXPAND-BACKQUOTED-LISTDÀCOERCEBDB;LISTDDNOTDÀLISTPBDBiDB;B;BDDCEQDCARBDB;UNQUOTEDCADRBDDCORDBDBBDB;UNQUOTE-SPLICINGDBDBBDB;DESTRUCTIVE-UNQUOTE-SPLICINGDÀERRORCan't unquote-splicing immediately after backquote.DDBDBBDB;BDBiDB;BDMACROEXPANDBBDB-DBtDB;ÀLIST*DBB