hưs8p,LAMBDAF2Dp,lFASD-DATADwkfOrson WellesF~FgDp,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.1DB?C*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;ÀDOLISTDBhB_DBhDB;ÂGENERATE-PERMUTATIONSDBhDB;ARRAY-DIMENSIONSB`DpBfXR-BQ-LIST*DB;LETDBhDBhB^DBhDB;ÀAPPLYDB;DFUNCTIONAREFB`B_Bc1DB?Â*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.1DB?*PLACEHOLDER-FOR-#N#-IDENTIFIER*DBUDB;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+MAPCARDBxDBDÀIGNOREDpB+,GENTEMPDB;DBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBDBBDBtDDINDICES5780BDBDpB+NTHBDBhDB;ÁSTRUCTURE-SETDB;DB;BFBBDBsDB;BBDCIFDpB+BOUNDPDB;BBBFB1DpB,DEF-DECLARATIONBÀSUBSTDB;DpBNAMED-LAMBDABDBDÁSTRUCTURE-REFDB;BFB1DBBDBDB;DÃTOKEN-CONTAINS-NUMBER-MARKER-PBDBDBDDBDBBDB;DBBDBBDBBDBBBDBtDDINDICES5779BDBDBBDBhBDB;DB;BFBBDBsDB;B BBB 1DBB BDB;DBB DBDBDB;BFB1DBBDBDB;DTOKEN-CONTAINS-DECIMAL-PBDBDBDDBDBBDB;DBBDBBDBBDBBBDBtDDINDICES5778BDBDBBDBhBDB;DB;BFBB7DBsDB;B.BBB.1DBB.BDB;DBB.DBDBDB;BFB1DBBDBDB;DTOKEN-ATTRIBUTESBDBDBDDBDBBDB;DBBDBBDBBDBBBDBtDDINDICES5777BDBDBBDBhBDB;DB;BFBB\DBsDB;BSBBBS1DBBSBDB;DBBSDBDBDB;BFB1DBBDBDB;DTOKEN-CHARACTERSBDBDBDDBDBBDB;DBBDBBDBBDBBBDBtDDINDICES5776BDBDBBDBhBDB;DB;BFBBDBsDB;BxBBBx1DBBxBDB;DBBxDBDBDB;BFB1DBDB;BDB;ÁTYPE-EXPANDERDBxDBBFDB;DCSATISFIESTOKEN-PB1DBBBDB;DBBDÀTHINGDTYPEP-STRUCTUREBDB;BB1DB\CBACKQUOTEDCEXPRESSION&ENVIRONMENTENVDCONDDDVECTORPBDBsDB;ÀVECTORDNBUTLASTDÂEXPAND-BACKQUOTED-LISTDÀCOERCEBDB;LISTDDNOTDÀLISTPBDBhDB;B;BDDCEQDCARBDB;UNQUOTEDCADRBDDCORDBDBBDB;UNQUOTE-SPLICINGDBDBBDB;DESTRUCTIVE-UNQUOTE-SPLICINGDÀERRORCan't unquote-splicing immediately after backquote.DDBDBBDB;BDBhDB;BDMACROEXPANDBBDB-DBsDB;ÀLIST*DBB