*READ-BASE*LISP-INTERNALS 3Default radix in which to read integers and ratios. *READ-SUPPRESS*LISP-INTERNALSHSuppress most of the actions of the reader, mostly to support #+ and #- *READ-DEFAULT-FLOAT-FORMAT*LISP-INTERNALS  SINGLE-FLOATKHA floating-point number read or printed with the E marker has this type. *ALLOW-DOT-TOKENS*LISP-INTERNALS*When T, if the reader encounters a token that is just a period, read that token in as the value of *reader-dot-token*. When NIL, raise an error if such a token is read. *READER-DOT-TOKEN*LISP-INTERNALS CONSCONS QUOTE PRIMITIVES  THE-DOT-TOKENLISP-INTERNALS;This is the object read in when a single-dot token is read.  NUMBER-LISTLISP-INTERNALS  NUMBER-LISTLISP-INTERNALS NREVERSELISP-INTERNALS REVERSED-NUMBER-LISTLISP-INTERNALS C(AF REVERSED-NUMBER-LISTLISP-INTERNALS REVERSED-NUMBER-LISTLISP-INTERNALS CONSCONS REVERSED-NUMBER-LISTLISP-INTERNALS@`0@A@A } yABAFjD CARTESIAN-PRODUCTLISP-INTERNALS CARTESIAN-PRODUCTLISP-INTERNALS&#% & ' * APPLY-INTERNALLISP-INTERNALS$ CDRCONS" RPLACDCONS CONSCONS CDRCONS RPLACDCONS CONSCONS CONSCONS CARCONS CARCONS %SYMBOL-FUNCTIONSYMBOL+AA Bj0@j.@ @@A'@A@A C"4@j@j*@4@@A@A@A4 C,A(Bk B*@@A@A*A&B&*@4 C @A &@ j B.@@A&@A.A$B$.@ C@A #$0@ 2@h@@f@0@j@AG APPEND PRIMITIVES GENERATE-PERMUTATIONSLISP-INTERNALS GENERATE-PERMUTATIONSLISP-INTERNALS   LISTLISP-INTERNALS CARTESIAN-PRODUCTLISP-INTERNALS GENERATE-PERMUTATIONSLISP-INTERNALS CDRCONS CDRCONS  NUMBER-LISTLISP-INTERNALS CARCONS @@A@A C(@B( CD@@A @A C(ABAFkC @A jD DO-ARRAY-ELEMENTSLISP-INTERNALS DO-ARRAY-ELEMENTSLISP-INTERNALS$  XR-BQ-LISTSYSTEM-INTERNALS"  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CDRCONS CDRCONS CARCONS CDRCONS CDRCONS CARCONS CDRCONS CARCONS CDRCONS CARCONS CDRCONS CARCONS CARCONS CDRCONS MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS LENGTHARRAY%j"@ C@g0@A@A Ab@jB C(@B(A B C(@B(@B(@ B C(@B(@B(@B(A B C(@ BA'B(@AB()B(A@&@)B(*B(AB(@$B@AF# DOLISTLISP-INTERNALS! LET PRIMITIVES FUNCTION PRIMITIVES AREFLISP APPLYLISP-INTERNALS GENERATE-PERMUTATIONSLISP-INTERNALS ARRAY-DIMENSIONSARRAY *READER-CIRCULARITIES*LISP-INTERNALSNAn association list that keeps track of #n= and #n# business. The car of each element is a unique positive integer n; the cdr is the object that it refers to. There is also an entry for UNIQUE-IDENTIFIER. READLISP-INTERNALS READLISP-INTERNALS   UNBIND-1LISP-INTERNALS FILL-IN-THE-BLANKSLISP-INTERNALS  READ-FROBLISP-INTERNALS BINDLISP-INTERNALS  READ-FROBLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOLA@B@A h"@ j$@ j&@ @h@A  @AA@B&@@A@A E"@$@&@kFj(@A(B A"@$@&@jB(@B@C@A D *READER-CIRCULARITIES*LISP-INTERNALS  *TERMINAL-IO*LISP-INTERNALS *STANDARD-INPUT*LISP-INTERNALS READ-PRESERVING-WHITESPACELISP-INTERNALS READ-PRESERVING-WHITESPACELISP-INTERNALS   UNBIND-1LISP-INTERNALS FILL-IN-THE-BLANKSLISP-INTERNALS  READ-FROBLISP-INTERNALS BINDLISP-INTERNALS  READ-FROBLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOLA@B@A h"@ j$@ j&@ @h@A  @AA@B&@@A@A E"@$@&@iFj(@A(B A"@$@&@hB(@B@C@A D *READER-CIRCULARITIES*LISP-INTERNALS  *TERMINAL-IO*LISP-INTERNALS *STANDARD-INPUT*LISP-INTERNALS READ-DELIMITED-LISTLISP-INTERNALS READ-DELIMITED-LISTLISP-INTERNALS   UNBIND-1LISP-INTERNALS READ-DELIMITED-FROBSLISP-INTERNALS ERRORLISP-INTERNALS BINDLISP-INTERNALS READ-DELIMITED-FROBSLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOLAAB@A j$@ @ h@A  @AAAB$@@A@A E"@%Fj&@A&BA@B A"@hB@C@A D(You shouldn't be doing this recursively. *READER-CIRCULARITIES*LISP-INTERNALS  *TERMINAL-IO*LISP-INTERNALS *STANDARD-INPUT*LISP-INTERNALS READ-DELIMITED-FROBSLISP-INTERNALS READ-DELIMITED-FROBSLISP-INTERNALS ;8591--,(-.<< NREVERSELISP-INTERNALS: ERRORLISP-INTERNALS7 ERRORLISP-INTERNALS+ CONSCONS) CARCONS% LENGTHARRAY$ MV-LISTLISP-INTERNALS# FUNCALL-INTERNALLISP-INTERNALS GET-MACRO-CHARACTERLISP-INTERNALS  MEMBER-EQLLISP-INTERNALS CONSCONS READLISP-INTERNALS  UNREAD-CHARLISP-INTERNALS  MEMBER-EQLLISP-INTERNALS  SYNTAX-TYPELISP-INTERNALS  READ-CHARLISP-INTERNALS=j0@"Ah@j@% B. C@.@A<@A,A@@BD@@A@A.A"B"Ah@j@i B*A0 B@A ,A@@BD@@A.@A@A.CD@h@@f@"A.B@ B(Cpc0@A -@A) C&A0 B@A @A B@@4B@A-@AB@@4B@A 9@AA.B@A A,B@A 1G9Unrecognized syntax type ~S6)Illegal character ~C encountered by READ.2 ILLEGALKEYWORD.  WHITESPACEKEYWORD TERMINATING-MACROKEYWORD NONTERMINATING-MACROKEYWORD   CONSTITUENTKEYWORD  SINGLE-ESCAPEKEYWORD MULTIPLE-ESCAPEKEYWORD  *PLACEHOLDER-FOR-#N#-IDENTIFIER*LISP-INTERNALS CONSCONS QUOTE PRIMITIVES  PLACEHOLDERLISP-INTERNALS MAKE-PLACEHOLDER-FOR-#N#LISP-INTERNALS MAKE-PLACEHOLDER-FOR-#N#LISP-INTERNALS CONSCONS  %SYMBOL-VALUESYMBOLA@B(!F  *PLACEHOLDER-FOR-#N#-IDENTIFIER*LISP-INTERNALS PLACEHOLDER-FOR-#N#-PLISP-INTERNALS PLACEHOLDER-FOR-#N#-PLISP-INTERNALS    %SYMBOL-VALUESYMBOL CARCONS Fsb @A  @A!CA@B@ D@A  @AhDjDjD  *PLACEHOLDER-FOR-#N#-IDENTIFIER*LISP-INTERNALS PLACEHOLDER-FOR-#N#-NLISP-INTERNALS PLACEHOLDER-FOR-#N#-NLISP-INTERNALS CDRCONS!G LOOKUP-PLACEHOLDERLISP-INTERNALS LOOKUP-PLACEHOLDERLISP-INTERNALS ERRORLISP-INTERNALS CDRCONS  ASSOC-EQLLISP-INTERNALS  %SYMBOL-VALUESYMBOL PLACEHOLDER-FOR-#N#-NLISP-INTERNALS CAAB(%B"@@A@A#GE%F2Placeholder #~D# not found in circularities table. *READER-CIRCULARITIES*LISP-INTERNALS FILL-IN-THE-BLANKSLISP-INTERNALS FILL-IN-THE-BLANKSLISP-INTERNALSR;HQ=7400!)1#5 !Q CDRCONSP APPLY-INTERNALLISP-INTERNALSK %SYMBOL-FUNCTIONSYMBOLI LOOKUP-PLACEHOLDERLISP-INTERNALSE PLACEHOLDER-FOR-#N#-PLISP-INTERNALSD APPLY-INTERNALLISP-INTERNALS@ %SYMBOL-FUNCTIONSYMBOL> CARCONS9 GENERATE-PERMUTATIONSLISP-INTERNALS8 ARRAY-DIMENSIONSARRAY3 FILL-IN-THE-BLANKSLISP-INTERNALS2 AREF-1ARRAY/ ASET-1ARRAY, LOOKUP-PLACEHOLDERLISP-INTERNALS+ AREF-1ARRAY& PLACEHOLDER-FOR-#N#-PLISP-INTERNALS% AREF-1ARRAY LENGTHARRAY VECTORPARRAY FILL-IN-THE-BLANKSLISP-INTERNALS CARCONS FILL-IN-THE-BLANKSLISP-INTERNALS CDRCONS RPLACDCONS LOOKUP-PLACEHOLDERLISP-INTERNALS CDRCONS PLACEHOLDER-FOR-#N#-PLISP-INTERNALS CDRCONS RPLACACONS LOOKUP-PLACEHOLDERLISP-INTERNALS CARCONS PLACEHOLDER-FOR-#N#-PLISP-INTERNALS CARCONSSFsb @A @A C(@BD@@A@A C(AB( B C(@BD@@A@A C(AB( B@A D C(@B@A C(@B @A CD@@A5@A! C`,@@4.0@A@A A,B(@BD@@A1@A A,B(A B*A @,B!01,,x  A,B(@B0@A Fs?! @A @A C(@ Bj&@(@@A@A) CA@BD@h@@f@&@j@ C$CD@@AQ@A%CA@BD@h@@f@&@j@"A B( C;@A J ASETARRAY? AREFLISP  READ-FROBLISP-INTERNALS  READ-FROBLISP-INTERNALSDK:A07&-# J READ-FROM-MACRO-CHARLISP-INTERNALS@ READ-FROM-MACRO-CHARLISP-INTERNALS6 READ-FROM-MULTIPLE-ESCAPE-CHARLISP-INTERNALS, READ-FROM-SINGLE-ESCAPE-CHARLISP-INTERNALS" READ-FROM-CONSTITUENT-CHARLISP-INTERNALS READ-FROM-WHITESPACE-CHARLISP-INTERNALS READ-FROM-ILLEGAL-CHARLISP-INTERNALS  SYNTAX-TYPELISP-INTERNALS  READ-CHARLISP-INTERNALSL Ah@j@h B- CB@@,B@A @A,E @"@$@&@) FB@@,B@A @A,E @"@$@&@) FB@@,B@A #@A,E @"@$@&@) FB@@,B@A -@A,E @"@$@&@) FB@@,B@A 7@A,E @"@$@&@) FB@@,B@A A@A,E @"@$@&@) FB@@,B@A K@A,E @"@$@&@) FjDA NONTERMINATING-MACROKEYWORD7 TERMINATING-MACROKEYWORD- MULTIPLE-ESCAPEKEYWORD#  SINGLE-ESCAPEKEYWORD  CONSTITUENTKEYWORD  WHITESPACEKEYWORD ILLEGALKEYWORD READ-FROM-ILLEGAL-CHARLISP-INTERNALS READ-FROM-ILLEGAL-CHARLISP-INTERNALS ERRORLISP-INTERNALSEAF&Illegal character encountered in READ. READ-FROM-WHITESPACE-CHARLISP-INTERNALS READ-FROM-WHITESPACE-CHARLISP-INTERNALS  READ-FROBLISP-INTERNALS"E$@&@(@+F READ-FROM-MACRO-CHARLISP-INTERNALS READ-FROM-MACRO-CHARLISP-INTERNALS   READ-FROBLISP-INTERNALS FIRSTLISP-INTERNALS LENGTHARRAY MV-LISTLISP-INTERNALS FUNCALL-INTERNALLISP-INTERNALS GET-MACRO-CHARACTERLISP-INTERNALS@A CD@h@@f@"A B@ B,Cpc0@A  @A-G"E$@&@(@+F READ-FROM-SINGLE-ESCAPE-CHARLISP-INTERNALS READ-FROM-SINGLE-ESCAPE-CHARLISP-INTERNALS ERRORLISP-INTERNALS ACCUMULATE-AND-PARSE-TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  START-TOKENLISP-INTERNALS  READ-CHARLISP-INTERNALS"Aj@j@( B,@@A@A@C(,@@@B("@(@+FEAF>End of file encountered after single escape character in READ.  ALPHABETICKEYWORD READ-FROM-MULTIPLE-ESCAPE-CHARLISP-INTERNALS READ-FROM-MULTIPLE-ESCAPE-CHARLISP-INTERNALS "ACCUMULATE-AND-PARSE-TOKEN-IN-BARSLISP-INTERNALS  START-TOKENLISP-INTERNALS@C("@(@+F READ-FROM-CONSTITUENT-CHARLISP-INTERNALS READ-FROM-CONSTITUENT-CHARLISP-INTERNALS ACCUMULATE-AND-PARSE-TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  START-TOKENLISP-INTERNALS@C(!C@B("@(@+F ACCUMULATE-TOKENLISP-INTERNALS ACCUMULATE-TOKENLISP-INTERNALS EIBJ:?47,1) KG  UNREAD-CHARLISP-INTERNALS<  UNREAD-CHARLISP-INTERNALS6 ERRORLISP-INTERNALS0 ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS( ACCUMULATE-TOKENLISP-INTERNALS$  AUGMENT-TOKENLISP-INTERNALS  READ-CHARLISP-INTERNALS ACCUMULATE-TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS ACCUMULATE-TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  CHAR-UPCASELISP-INTERNALS  SYNTAX-TYPELISP-INTERNALS  READ-CHARLISP-INTERNALSL"Aj@j@$ B,@@AK@A- CB@@,B@A @A-C( B E"@$@'FB@@,B@A @A-C( B E"@$@'FB@@,B@A )@A" C A(@@@B E"@$@'FB@@,B@A 1@A E"@$@'FB@@,B@A 7@AEAFB@@,B@A ?@A,A"B@A DB@@,B@A J@A&@@AI@A,A"B@A DjD D ?  WHITESPACEKEYWORD7 TERMINATING-MACROKEYWORD5&Illegal character encountered in READ.1 ILLEGALKEYWORD) MULTIPLE-ESCAPEKEYWORD#  ALPHABETICKEYWORD  SINGLE-ESCAPEKEYWORD NONTERMINATING-MACROKEYWORD  CONSTITUENTKEYWORD ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALSPSHM;E/8#, TU ERRORLISP-INTERNALSR ERRORLISP-INTERNALSL ACCUMULATE-TOKENLISP-INTERNALSD ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS@  AUGMENT-TOKENLISP-INTERNALS<  READ-CHARLISP-INTERNALS7 ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS3  AUGMENT-TOKENLISP-INTERNALS+ ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS'  AUGMENT-TOKENLISP-INTERNALS ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  SYNTAX-TYPELISP-INTERNALS  READ-CHARLISP-INTERNALSV"Aj@j@$ B,@@AT@A- CB@@,B@A @A A,@@@B E"@$@'FB@@,B@A  @A A,@@@B E"@$@'FB@@,B@A ,@A A,@@@B E"@$@'FB@@,B@A 8@A A,@@@B E"@$@'FB@@,B@A E@A" C A(@@@B E"@$@'FB@@,B@A M@A E"@$@'FB@@,B@A S@AEAFjDEAFTUnexpected end of file in READ.Q&Illegal character encountered in READ.M ILLEGALKEYWORDE MULTIPLE-ESCAPEKEYWORD?  ALPHABETICKEYWORD8  SINGLE-ESCAPEKEYWORD2  ALPHABETICKEYWORD,  WHITESPACEKEYWORD&  ALPHABETICKEYWORD TERMINATING-MACROKEYWORD  ALPHABETICKEYWORD NONTERMINATING-MACROKEYWORD  ALPHABETICKEYWORD  CONSTITUENTKEYWORD "ACCUMULATE-AND-PARSE-TOKEN-IN-BARSLISP-INTERNALS "ACCUMULATE-AND-PARSE-TOKEN-IN-BARSLISP-INTERNALS  PARSE-TOKENLISP-INTERNALS IDENTIFY-ALPHADIGITSLISP-INTERNALS ACCUMULATE-TOKEN-IN-BARSLISP-INTERNALS A"@$@&B C!G ACCUMULATE-AND-PARSE-TOKENLISP-INTERNALS ACCUMULATE-AND-PARSE-TOKENLISP-INTERNALS  PARSE-TOKENLISP-INTERNALS IDENTIFY-ALPHADIGITSLISP-INTERNALS ACCUMULATE-TOKENLISP-INTERNALS A"@$@&B C!G PUT-GLOBAL-DECLARATIONNC QUOTE PRIMITIVES TOKENLISP-INTERNALS QUOTE PRIMITIVES DEFSTRUCT-DESCRIPTORLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS  MAKE-TOKENLISP-INTERNALS TOKENLISP-INTERNALS  CHARACTERSLISP-INTERNALS  MAKE-ARRAYARRAYH  ADJUSTABLEKEYWORD T PRIMITIVES  FILL-POINTERKEYWORD T PRIMITIVES  ATTRIBUTESLISP-INTERNALS  MAKE-ARRAYARRAYH  ADJUSTABLEKEYWORD T PRIMITIVES  FILL-POINTERKEYWORD T PRIMITIVES CONTAINS-DECIMAL-PLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS CONTAINS-NUMBER-MARKER-PLISP-INTERNALS QUOTE PRIMITIVES  UNDEFINEDLISP-INTERNALS SCRATCH-POINTERLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES TOKEN-SCRATCH-POINTERLISP-INTERNALS LAMBDA PRIMITIVES TOKENLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS TOKENLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  INDICES5780NIL STOREVARSETF TOKENLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS  INDICES5780NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES TOKEN-SCRATCH-POINTERLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES TOKEN-SCRATCH-POINTERLISP-INTERNALS TOKEN-SCRATCH-POINTERLISP-INTERNALS  NAMED-LAMBDANC TOKEN-SCRATCH-POINTERLISP-INTERNALS TOKENLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS TOKEN-SCRATCH-POINTERLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEt@!F TOKENLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES TOKEN-CONTAINS-NUMBER-MARKER-PLISP-INTERNALS LAMBDA PRIMITIVES TOKENLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS TOKENLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  INDICES5779NIL STOREVARSETF TOKENLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS  INDICES5779NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES TOKEN-CONTAINS-NUMBER-MARKER-PLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES TOKEN-CONTAINS-NUMBER-MARKER-PLISP-INTERNALS TOKEN-CONTAINS-NUMBER-MARKER-PLISP-INTERNALS  NAMED-LAMBDANC TOKEN-CONTAINS-NUMBER-MARKER-PLISP-INTERNALS TOKENLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS TOKEN-CONTAINS-NUMBER-MARKER-PLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEr@!F TOKENLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES TOKEN-CONTAINS-DECIMAL-PLISP-INTERNALS LAMBDA PRIMITIVES TOKENLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS TOKENLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  INDICES5778NIL STOREVARSETF TOKENLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS  INDICES5778NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES TOKEN-CONTAINS-DECIMAL-PLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES TOKEN-CONTAINS-DECIMAL-PLISP-INTERNALS TOKEN-CONTAINS-DECIMAL-PLISP-INTERNALS  NAMED-LAMBDANC TOKEN-CONTAINS-DECIMAL-PLISP-INTERNALS TOKENLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS TOKEN-CONTAINS-DECIMAL-PLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEp@!F TOKENLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES TOKEN-ATTRIBUTESLISP-INTERNALS LAMBDA PRIMITIVES TOKENLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS TOKENLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  INDICES5777NIL STOREVARSETF TOKENLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS  INDICES5777NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES TOKEN-ATTRIBUTESLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES TOKEN-ATTRIBUTESLISP-INTERNALS TOKEN-ATTRIBUTESLISP-INTERNALS  NAMED-LAMBDANC TOKEN-ATTRIBUTESLISP-INTERNALS TOKENLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS TOKEN-ATTRIBUTESLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEf@!F TOKENLISP-INTERNALS SETQ PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF CONSCONS QUOTE PRIMITIVES TOKEN-CHARACTERSLISP-INTERNALS LAMBDA PRIMITIVES TOKENLISP-INTERNALS LET* PRIMITIVES SINGLE-TEMPVARSSETF MAPCARLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES IGNORE PRIMITIVES GENTEMPLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS STOREVARSETF GENSYMLISP-INTERNALS TEMPVARSSETF SINGLE-TEMPVARSSETF VALUES PRIMITIVES TEMPVARSSETF LISTLISP-INTERNALS TOKENLISP-INTERNALS LISTLISP-INTERNALS STOREVARSETF LET PRIMITIVES  INDICES5776NIL STOREVARSETF TOKENLISP-INTERNALS NTHLISP-INTERNALS TEMPVARSSETF  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  STRUCTURE-SETLISP-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS  INDICES5776NIL  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES TOKEN-CHARACTERSLISP-INTERNALS TEMPVARSSETF IFLISP BOUNDPSYMBOL QUOTE PRIMITIVES *GRODY-SETF-MACRO-TABLE*SETF *GRODY-SETF-MACRO-TABLE*SETF QUOTE PRIMITIVES TOKEN-CHARACTERSLISP-INTERNALS TOKEN-CHARACTERSLISP-INTERNALS  NAMED-LAMBDANC TOKEN-CHARACTERSLISP-INTERNALS TOKENLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS TOKEN-CHARACTERSLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSEb@!F TOKENLISP-INTERNALS PUT-GLOBAL-DECLARATIONNC QUOTE PRIMITIVES TOKENLISP-INTERNALS QUOTE PRIMITIVES  TYPE-EXPANDERLISP-INTERNALS FUNCTION PRIMITIVES LAMBDA PRIMITIVES QUOTE PRIMITIVES  SATISFIESLISP-INTERNALS TOKEN-PLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKEN-PLISP-INTERNALS  NAMED-LAMBDANC TOKEN-PLISP-INTERNALS THINGLISP-INTERNALS TYPEP-STRUCTURELISP-INTERNALS THINGLISP-INTERNALS QUOTE PRIMITIVES TOKENLISP-INTERNALS TOKEN-PLISP-INTERNALS TYPEP-STRUCTURELISP-INTERNALS E@AF TOKENLISP-INTERNALS  COPY-TOKENLISP-INTERNALS  COPY-TOKENLISP-INTERNALS COPY-STRUCTURE-OBJECTLISP-INTERNALS!G  START-TOKENLISP-INTERNALS  START-TOKENLISP-INTERNALS  STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS STORE-CONTENTS-OFFSETCONS MAKE-STRUCTURELISP-INTERNALS  MAKE-ARRAYARRAY  MAKE-ARRAYARRAY"HA@h@@h BHA@h@@iBvC Ab@@@B Af@$B Ap@"B Ar@@@B At@@@B Av@`B@A D  UNDEFINEDLISP-INTERNALS  UNDEFINEDLISP-INTERNALS TOKENLISP-INTERNALS  FILL-POINTERKEYWORD  ADJUSTABLEKEYWORD  FILL-POINTERKEYWORD  ADJUSTABLEKEYWORD QUOTE PRIMITIVES TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS^\Z]VTWNHODBE><?647.(/"//Q FIND-EQLLISP-INTERNALSL  STRUCTURE-SETLISP-INTERNALS9 FIND-EQLLISP-INTERNALS1  DIGIT-CHAR-PLISP-INTERNALS0  %SYMBOL-VALUESYMBOL,  STRUCTURE-SETLISP-INTERNALS%  STRUCTURE-REFLISP-INTERNALS FIND-EQLLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS FIND-EQLLISP-INTERNALS VECTOR-PUSH-EXTENDARRAY  STRUCTURE-REFLISP-INTERNALS VECTOR-PUSH-EXTENDARRAY  STRUCTURE-REFLISP-INTERNALS_j$@ $@@A@A$&@Ab@!B("BAf@!B(&B@A D"A@@BD@@A@A&@@A Ap@ BD@@A/@A"A@@BD@@A/@AAr@ BD@@A /@AAr@ @hB&@@A AAB("BD@@A7@A&@@A "A@@BD@@A?@A&@@A /TB@@ B@A E@A&@@A .TB@@ B@A O@AAp@ @hB&@@A "A@@BD@@AW@A&@@A :TB@@ B@A ]@A&@@A &@@A ]  ALPHABETICKEYWORD[ PACKAGE-MARKERKEYWORDU  EXTENSIONKEYWORDP^_M DECIMALKEYWORDI TOKENLISP-INTERNALSC  RATIO-MARKERKEYWORD= SIGNKEYWORD8+-5  ALPHADIGITKEYWORD/  *READ-BASE*LISP-INTERNALS-  NUMBER-MARKERKEYWORD) TOKENLISP-INTERNALS# TOKENLISP-INTERNALS DEFLSdefls TOKENLISP-INTERNALS DIGITKEYWORD 0123456789 TOKENLISP-INTERNALS TOKENLISP-INTERNALS IDENTIFY-ALPHADIGITSLISP-INTERNALS IDENTIFY-ALPHADIGITSLISP-INTERNALS"   !  STRUCTURE-REFLISP-INTERNALS ASET-1ARRAY AREF-1ARRAY LENGTHARRAY  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS#Af@! BAp@ B(@@A@A(@@A@A&@* C`"@@ $0@A@AjD*A"BB@@C@A @A&A*@"B0 ""x &@ @A Ar@ B @A  TOKENLISP-INTERNALS DIGITKEYWORD  ALPHADIGITKEYWORD  ALPHABETICKEYWORD TOKENLISP-INTERNALS TOKENLISP-INTERNALS POTENTIAL-NUMBER-PLISP-INTERNALS POTENTIAL-NUMBER-PLISP-INTERNALS!#$% & AREF-1ARRAY LENGTHARRAY  MEMBER-EQLLISP-INTERNALS AREF-1ARRAY SEQ-PREDICATE-1LISP-INTERNALS SEQ-PREDICATE-1LISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS'Af@!BA"@j@j@hBD@@A&@AA"@h@h@jBD@@A%@A"A`B(@@BD@@A$@A@A"CEx"BB@@C@A #@AjDhDjDjDjD SIGNKEYWORD DIGITKEYWORD SIGNKEYWORD DECIMALKEYWORD  EXTENSIONKEYWORD  INTERNALKEYWORD POTENTIAL-NUMBER-PLISP-INTERNALSP_61B@@B@A @AhDjD DIGITKEYWORD  INTERNALKEYWORD POTENTIAL-NUMBER-PLISP-INTERNALSP_66  MEMBER-EQLLISP-INTERNALS E@AF DIGITKEYWORD SIGNKEYWORD  RATIO-MARKERKEYWORD DECIMALKEYWORD  EXTENSIONKEYWORD  NUMBER-MARKERKEYWORD TOKENLISP-INTERNALS ALL-DOTS-TOKEN-PLISP-INTERNALS ALL-DOTS-TOKEN-PLISP-INTERNALS SEQ-PREDICATE-1LISP-INTERNALS  STRUCTURE-REFLISP-INTERNALSAb@!B(@j@j@iF  INTERNALKEYWORD ALL-DOTS-TOKEN-PLISP-INTERNALSP_10.TB@@B@A @AhDjD TOKENLISP-INTERNALS  TOKEN-NAMELISP-INTERNALS  TOKEN-NAMELISP-INTERNALS SVSETARRAY AREF-1ARRAY MAKE-STRING-NO-INITARRAY LENGTHARRAY  STRUCTURE-REFLISP-INTERNALSAb@! B* C) C`$@@(0@A@A*A%B&A$@"B0$$x &D TOKENLISP-INTERNALS  PARSE-TOKENLISP-INTERNALS  PARSE-TOKENLISP-INTERNALS"%%'  ( PARSE-SYMBOL-STRINGLISP-INTERNALS'  TOKEN-NAMELISP-INTERNALS& ERRORLISP-INTERNALS$  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL LENGTHARRAY  STRUCTURE-REFLISP-INTERNALS ALL-DOTS-TOKEN-PLISP-INTERNALS PARSE-SYMBOL-STRINGLISP-INTERNALS  TOKEN-NAMELISP-INTERNALS WARNLISP-INTERNALS NUMBER-TOKEN-PLISP-INTERNALS POTENTIAL-NUMBER-PLISP-INTERNALS  %SYMBOL-VALUESYMBOL)A@BD@@A@AjD CD@@A@A!C"@@A@A"DA@B C(AF CD@@A'@AAb@ B(@Bpc0@A %@AA@BD@@A%@AEAFEAF C(AF%(Illegal dot token encountered by reader.# *READER-DOT-TOKEN*LISP-INTERNALS *ALLOW-DOT-TOKENS*LISP-INTERNALS TOKENLISP-INTERNALS$Potential number; treated as symbol. *READ-SUPPRESS*LISP-INTERNALS PARSE-DIGIT-LISTLISP-INTERNALS PARSE-DIGIT-LISTLISP-INTERNALS  UNBIND-1LISP-INTERNALS ERRORLISP-INTERNALS BINDLISP-INTERNALS CDRCONS MULTIPLY-GENERICNEW-MATH  DIGIT-CHAR-PLISP-INTERNALS CARCONS`*@j(@ @@A@A C(A# B&@@A@A"A*B D*x C@A ~$@A$BA(@"B@C@A *D#~C is not a valid digit in base ~S.  *PRINT-BASE*LISP-INTERNALS NUMBER-TOKEN-PLISP-INTERNALS NUMBER-TOKEN-PLISP-INTERNALS1   88  ~j{x|uripfpcpWaTaQaNaKaCI@I=I:I63/p CATCH-CONTINUELISP-INTERNALS QUIT-PARSING-TOKENLISP-INTERNALS CATCH-CONTINUE-SVLISP-INTERNALSo CATCH-CONTINUELISP-INTERNALSn PARSE-FLOATINGLISP-INTERNALS` CATCH-CONTINUELISP-INTERNALS_ MULTIPLY-GENERICNEW-MATH^ /LISP-INTERNALS] PARSE-DIGIT-LISTLISP-INTERNALS\  %SYMBOL-VALUESYMBOLZ PARSE-DIGIT-LISTLISP-INTERNALSY  %SYMBOL-VALUESYMBOLH CATCH-CONTINUELISP-INTERNALSG MULTIPLY-GENERICNEW-MATHF PARSE-DIGIT-LISTLISP-INTERNALSE  %SYMBOL-VALUESYMBOL, STRING=ARRAY* CARCONS) NO-MORE-CHARACTERSLISP-INTERNALS( GET-CHARACTERSLISP-INTERNALS$ GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALSE@b@@`@@@At@ @`B A@`@c B A@`@j B A@`@c B A@`@b B A@`@k B A@`@b B A@`@b B A@`@k B C6C(@@BD@@A@Ad$@,@@A@A&@@A@Ah"@4@@AI@A0@@A I@A.@@A I@A"@@A I@AAAB(5B($BE F4@@Aa@A2@@A a@A0@@Aa@A.@@Aa@A"@@A a@AAAB(4B(AAB(/BAB($BE F2@@Ap@A0@@A p@A.@@Ap@A4A.@&@,@(BE F4@@A@A0@@A @A.@@A|@A2@@A@A"@@A j@Ak F,@@A @A,*@*@@A @AAC8@A 8j"@ (@@A@A(*@ &*@ 1b$@ AF[  *READ-BASE*LISP-INTERNALSX  *READ-BASE*LISP-INTERNALSD  *READ-BASE*LISP-INTERNALS+-& DIGITKEYWORD" SIGNKEYWORD  NUMBER-MARKERKEYWORD DIGITKEYWORD  RATIO-MARKERKEYWORD DECIMALKEYWORD DIGITKEYWORD SIGNKEYWORD TOKENLISP-INTERNALS QUITLISP-INTERNALS  UNWIND-MARKERLISP-INTERNALS PARSE-FLOATINGLISP-INTERNALS PARSE-FLOATINGLISP-INTERNALS> 9=37*-$--- >< MULTIPLY-GENERICNEW-MATH; EXPTLISP-INTERNALS6 /LISP-INTERNALS5 EXPTLISP-INTERNALS/ LENGTHARRAY. MULTIPLY-GENERICNEW-MATH,  %SYMBOL-VALUESYMBOL' FIND-EQLLISP-INTERNALS! FIND-EQLLISP-INTERNALS FIND-EQLLISP-INTERNALS FIND-EQLLISP-INTERNALS MULTIPLY-GENERICNEW-MATH EXPTLISP-INTERNALS LENGTHARRAY MULTIPLY-GENERICNEW-MATH PARSE-DIGIT-LISTLISP-INTERNALS STRING=ARRAY PARSE-DIGIT-LISTLISP-INTERNALS PARSE-DIGIT-LISTLISP-INTERNALS? A~ B"A B@A(A@@BD@@A>@Ad@$AB@ B#C(B(4B 3.x&A@@BD@@A -@A&A@@BD@@A -@A&A@@BD@@A -@A&A@@BD@@A -@AA@B~A. B"C@DD*x(*p@A7@A@+yB(-F(*p@A=@A~A+B(-F,D b@ + *READ-DEFAULT-FLOAT-FORMAT*LISP-INTERNALS&Ll DdFfSs- QUIT-PARSING-TOKENLISP-INTERNALS QUIT-PARSING-TOKENLISP-INTERNALS THROW-SVLISP-INTERNALSEkF QUITLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS GET-CHARACTERSLISP-INTERNALS2*,."%% 1 CONSCONS/ AREF-1ARRAY'  STRUCTURE-REFLISP-INTERNALS$ THROW-SVLISP-INTERNALS THROW-SVLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS LENGTHARRAY  POSITION-1LISP-INTERNALS %SYMBOL-FUNCTIONSYMBOL  STRUCTURE-REFLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS3Af@! BAt@ BA@B("@6@4@j@j@j @i B2@@A @A7 CAt@ @2B@L40x@D$0@A@AEkF&@@A%@A@D&0@A%@AEkFAb@! BI2,xj*@@440@A.@A*D.A, B(A+ B*1,,x % TOKENLISP-INTERNALS# QUITLISP-INTERNALS QUITLISP-INTERNALS TOKENLISP-INTERNALS EQ PRIMITIVES TOKENLISP-INTERNALS TOKENLISP-INTERNALS NO-MORE-CHARACTERSLISP-INTERNALS NO-MORE-CHARACTERSLISP-INTERNALS  THROW-SVLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS LENGTHARRAY  STRUCTURE-REFLISP-INTERNALS Af@ B(ABAt@ Bp D0@A  @AjDEkF QUITLISP-INTERNALS TOKENLISP-INTERNALS TOKENLISP-INTERNALS PARSE-SYMBOL-STRINGLISP-INTERNALS PARSE-SYMBOL-STRINGLISP-INTERNALSV T R L HMESBF?S;S/U,U) $$$% '*U PARSE-SYMBOL-ERRORLISP-INTERNALSS PARSE-SYMBOL-ERRORLISP-INTERNALSQ SUBSEQLISP-INTERNALSO SUBSEQLISP-INTERNALSK SUBSEQLISP-INTERNALS7  POSITION-1LISP-INTERNALS1  POSITION-EQLLISP-INTERNALS(  %SYMBOL-VALUESYMBOL& ERRORLISP-INTERNALS# ERRORLISP-INTERNALS STRING=ARRAY MVBIND-2LISP-INTERNALS INTERNLISP-INTERNALS  FIND-PACKAGELISP-INTERNALS LENGTHARRAY  COUNT-EQLLISP-INTERNALSW:TA! B Cj.@j,@pK`0@A *@A ,@.@@A'@A/ C&@@A%@A,A& B$ C`@#@pKb0@A $@AB@@ B@A$@A.A@@BD@@A $@AE$@/F$DE/FAA B @A @ 30@AU@A@Lf0@AU@A:TA! B:TA @`@j@h@j BA0Dxp#D0@AS@A@$*Dx@c0@AS@Ap+`0@A F@Ap#b0@AS@Ap#`0@A M@A.@ Ab B @A  A`@+ B0!(y B @A C @A C @A IKEYWORD'  *PACKAGE*LISP-INTERNALS%No package named ~A exists.!fReference to non-external symbol ~S in package ~A ~ using single colon prefix.KEYWORD EXTERNALKEYWORD PARSE-SYMBOL-ERRORLISP-INTERNALS PARSE-SYMBOL-ERRORLISP-INTERNALS ERRORLISP-INTERNALSE!F4The pattern of package markers in ~A is meaningless.  PARSE-INTEGERLISP-INTERNALS  PARSE-INTEGERLISP-INTERNALS |@{LzLySv(uwrSnpjSg(fhck`s]S\S[]V^S$QSNTJzG{>|7417-/*/&8  x ERRORLISP-INTERNALSq MULTIPLY-GENERICNEW-MATHi ERRORLISP-INTERNALSD FIND-EQLLISP-INTERNALSA  DIGIT-CHAR-PLISP-INTERNALS:  SYNTAX-TYPELISP-INTERNALS9 SVREFARRAY3 MULTIPLY-GENERICNEW-MATH LENGTHARRAY MVBIND-4LISP-INTERNALS GET-KEYWORD-ARG-VALUESLISP-INTERNALS  CONS-RESTLISP-INTERNALS~}@h@@n@(j@>@>A@jB<C`@;@b@9@d@7@B@@tB@A @A`<@B@@lB@A @Aj:@B@@dB@A @A~8@B@@\B@A @Aj6@!Cj4@j2@j0@j.@j,@@t:0@A8@A:,@@Db@A/@A@Dd@A/@Ab0@.@@A7@A0A/B`@,@a@"D4j"@  A= B* CB@@$B@A |@Ah&@*A8 B*A@@BD@@A{@A4@@Az@Aj0@&@@AT@A4@@AS@Ah2@$0q< /4*7%7!9 ; ;= MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS:  XR-BQ-LISTSYSTEM-INTERNALS8 ERRORLISP-INTERNALS6  XR-BQ-LIST*SYSTEM-INTERNALS4 EXPAND-BACKQUOTED-LISTLISP-INTERNALS3  XR-BQ-LISTSYSTEM-INTERNALS1  MACROEXPANDLISP-INTERNALS+ CARCONS& CARCONS! CARCONS CADRCONS CARCONS LISTPVINCULUM  XR-BQ-LIST*SYSTEM-INTERNALS NBUTLASTLISP-INTERNALS EXPAND-BACKQUOTED-LISTLISP-INTERNALS COERCELISP-INTERNALS VECTORPARRAY CARCONS CDRCONS LENGTHARRAY LENGTHARRAY?j"@ C@g0@A;@A C@g0@A @A;@A C(A B&CD@@A@A&A@@B(@B(AB(@AF&CD@@A9@A&CB@@C@A !@A'G& CB@@B@A7@A&CB@@C@A7@A&CB@@C@A 4@A&A#B(@AF'C(@AFEAFE'F Ab@bB @A 9 QUOTE PRIMITIVES73Can't unquote-splicing immediately after backquote.5 LIST*LISP-INTERNALS2  BACKQUOTELISP-INTERNALS,  BACKQUOTELISP-INTERNALS' DESTRUCTIVE-UNQUOTE-SPLICINGLISP-INTERNALS" UNQUOTE-SPLICINGLISP-INTERNALS UNQUOTELISP-INTERNALS VECTORARRAY LISTLISP-INTERNALS EXPAND-BACKQUOTED-LISTLISP-INTERNALS EXPAND-BACKQUOTED-LISTLISP-INTERNALS 49*0%0!;@ @ BD LISTLISP-INTERNALSC  XR-BQ-LISTSYSTEM-INTERNALSA ERRORLISP-INTERNALS? CONSCONS> EXPAND-BACKQUOTED-LISTLISP-INTERNALS= CDRCONS<  XR-BQ-LISTSYSTEM-INTERNALS: ERRORLISP-INTERNALS8 APPEND PRIMITIVES7 EXPAND-BACKQUOTED-LISTLISP-INTERNALS6 CDRCONS5 CADRCONS1 LISTPVINCULUM0 CADRCONS/ CONSCONS. EXPAND-BACKQUOTED-LISTLISP-INTERNALS- CDRCONS,  XR-BQ-LISTSYSTEM-INTERNALS& CARCONS! CARCONS CONSCONS EXPAND-BACKQUOTED-LISTLISP-INTERNALS CDRCONS CADRCONS CARCONS LISTPVINCULUM CARCONS CARCONS CARCONS CADRCONS CARCONSEFsb @A B@A CB@@C@A  @A!G! CB@@B@A@@A CB@@C@A@@A C$CD@@A;@A$CB@@C@A !@A$C( C(ABAF%CB@@ B@A0@A$CB@@C@A0@AA$B( C(ABAF$C(@BD@@A9@A$C( C(ABAFEAFA$B( C(ABAFEAFA B(AF B QUOTE PRIMITIVES@foo;  BACKQUOTELISP-INTERNALS9bar+  BACKQUOTELISP-INTERNALS' DESTRUCTIVE-UNQUOTE-SPLICINGLISP-INTERNALS" UNQUOTE-SPLICINGLISP-INTERNALS UNQUOTELISP-INTERNALS DESTRUCTIVE-UNQUOTE-SPLICINGLISP-INTERNALS UNQUOTE-SPLICINGLISP-INTERNALS UNQUOTELISP-INTERNALS UNQUOTELISP-INTERNALS UNQUOTELISP-INTERNALS ERRORLISP-INTERNALSEAFComma not within backquote. UNQUOTE-SPLICINGLISP-INTERNALS UNQUOTE-SPLICINGLISP-INTERNALS ERRORLISP-INTERNALSEAFCan't unquote splicing DESTRUCTIVE-UNQUOTE-SPLICINGLISP-INTERNALS DESTRUCTIVE-UNQUOTE-SPLICINGLISP-INTERNALS ERRORLISP-INTERNALSEAFCan't unquote splicing SIGNAL-SHARP-ERRORLISP-INTERNALS SIGNAL-SHARP-ERRORLISP-INTERNALS ERRORLISP-INTERNALSE#F'Illegal syntax #~C encountered by READ. READ-#\LISP-INTERNALS READ-#\LISP-INTERNALS PARSE-CHARACTER-NAMELISP-INTERNALS  TOKEN-NAMELISP-INTERNALS ACCUMULATE-TOKENLISP-INTERNALS  AUGMENT-TOKENLISP-INTERNALS  READ-CHARLISP-INTERNALS  START-TOKENLISP-INTERNALSA C Ah@j@iB(&@@@B&A @h@jB&C(%F  ALPHABETICKEYWORD PARSE-CHARACTER-NAMELISP-INTERNALS PARSE-CHARACTER-NAMELISP-INTERNALS` ] \^X#T.P8LBH'E'DFAI;':<7M1'02-Q'%("UY _ ERRORLISP-INTERNALSY  NAME-CHARLISP-INTERNALSW STRING=ARRAYS STRING=ARRAYO STRING=ARRAYK STRING=ARRAYG ERRORLISP-INTERNALS> STRING=ARRAY4 STRING=ARRAY* STRING=ARRAY STRING=ARRAY SUBSEQLISP-INTERNALS  STRING-UPCASELISP-INTERNALS SUBSEQLISP-INTERNALS  POSITION-EQLLISP-INTERNALS FIND-EQLLISP-INTERNALS  MAKE-CHARLISP-INTERNALS AREF-1ARRAY LENGTHARRAYa`"@ "@@A @A`"@`4@ 0@0Cpc0@A @A0Aa B2E4@#F-TA0BD@@AY@A-TA1 B0A`@.B(@ B09.y0 B,A@A B*@@AU@A*@@A(@A`Sb4x@A ,A@@ B(@@AQ@A(@@A2@A'`Sf4x ,A@A B&@@AM@A&@@A<@A'`Sr4x ,A@@ B$@@AI@A$@@AF@A'`Sz4x A,B'@A ,A@@ BB@A ,A@A B8@A ,A@@ B.@A ,A@A B#@A 1 C2@@A^@A @A A! B @A ^#~A is not a defined character name.VCRMNSJHF!~S is not a legal bucky-bit name.=HYPER3SUPER)METACONTROL READ-#'LISP-INTERNALS READ-#'LISP-INTERNALS LISTLISP-INTERNALS READLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS"A$B Ah@j@iB(@AF FUNCTION PRIMITIVES READ-#(LISP-INTERNALS READ-#(LISP-INTERNALS &+ APPLY-INTERNALLISP-INTERNALS' %SYMBOL-FUNCTIONSYMBOL% APPLY-INTERNALLISP-INTERNALS! %SYMBOL-FUNCTIONSYMBOL APPLY-INTERNALLISP-INTERNALS APPEND PRIMITIVES  MAKE-LISTLISP-INTERNALS CARCONS LASTLISP-INTERNALS %SYMBOL-FUNCTIONSYMBOL ERRORLISP-INTERNALS ERRORLISP-INTERNALS LENGTHARRAY READ-DELIMITED-LISTLISP-INTERNALS,)TA @i B* C$@@A&@A@$$0@A @AE%F@$$0@A @A (p@A @AEAFAA B@(y*C(@B@AB(*B&@h@@f@D@j@AGA@BD@h@@f@*@j@AGA@BD@h@@f@*@j@AG& VECTORARRAY VECTORARRAY INITIAL-ELEMENTKEYWORD VECTORARRAY+At least one element is required in vector. ,Too many objects in vector; only ~S allowed. READ-#*LISP-INTERNALS READ-#*LISP-INTERNALS!$-0 2 COERCELISP-INTERNALS/ COERCELISP-INTERNALS, COERCELISP-INTERNALS* APPEND PRIMITIVES)  MAKE-LISTLISP-INTERNALS' CARCONS& LASTLISP-INTERNALS# ERRORLISP-INTERNALS ERRORLISP-INTERNALS LENGTHARRAY NREVERSELISP-INTERNALS  UNREAD-CHARLISP-INTERNALS CONSCONS  READ-CHARLISP-INTERNALS3j*@ Aj@j@h B0T@@@)@A@A1TB@@$B@A@A(A+ B@A (A B+ C+ C$@@A0@A@$0@A@AE%F@$0@A-@A&p@A $@AEAF@A@&y*C(@B@AB*B(@AF*E@AF*E@AF1  BIT-VECTORLISP-INTERNALS.  BIT-VECTORLISP-INTERNALS+  BIT-VECTORLISP-INTERNALS( INITIAL-ELEMENTKEYWORD"+At least one bit is required in bit-vector.-Too many bits in bit-vector; only ~S allowed. READ-#:LISP-INTERNALS READ-#:LISP-INTERNALS    FIND-EQLLISP-INTERNALS  STRUCTURE-REFLISP-INTERNALS  MAKE-SYMBOLSYMBOL  TOKEN-NAMELISP-INTERNALS ERRORLISP-INTERNALS  TOKEN-NAMELISP-INTERNALS POTENTIAL-NUMBER-PLISP-INTERNALS IDENTIFY-ALPHADIGITSLISP-INTERNALS ACCUMULATE-TOKENLISP-INTERNALS  START-TOKENLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS"A$B@ C(A @h@jB(C) C&@@A@A&@@A@A)C(@AF(C(AFAf@)B(@A B @A  PACKAGE-MARKERKEYWORD TOKENLISP-INTERNALS$~A cannot name an uninterned symbol. READ-#BLISP-INTERNALS READ-#BLISP-INTERNALS UNBIND-1LISP-INTERNALS READLISP-INTERNALS BINDLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS "A$Bf&@A&B Ah@j@hB@C@A D  *READ-BASE*LISP-INTERNALS READ-#OLISP-INTERNALS READ-#OLISP-INTERNALS UNBIND-1LISP-INTERNALS READLISP-INTERNALS BINDLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS "A$Bz&@A&B Ah@j@hB@C@A D  *READ-BASE*LISP-INTERNALS READ-#XLISP-INTERNALS READ-#XLISP-INTERNALS UNBIND-1LISP-INTERNALS READLISP-INTERNALS BINDLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS "A$B&@A&B Ah@j@hB@C@A D  *READ-BASE*LISP-INTERNALS READ-#RLISP-INTERNALS READ-#RLISP-INTERNALS UNBIND-1LISP-INTERNALS ERRORLISP-INTERNALS BINDLISP-INTERNALS UNBIND-1LISP-INTERNALS READLISP-INTERNALS BINDLISP-INTERNALS ERROR-UNLESS-ARGUMENTLISP-INTERNALS"A$B@%0@A@A$B@@B0@A@AA$B Ah@j@h B( @@C@A D~&@A&BA$B@C@A DIllegal radix ~S. in #r.  *PRINT-BASE*LISP-INTERNALS  *READ-BASE*LISP-INTERNALS READ-#SLISP-INTERNALS READ-#SLISP-INTERNALS ERRORLISP-INTERNALS READLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS"A$B Ah@j@hBEAF?I don't know how to determine a standard constructor macro yet. READ-#=LISP-INTERNALS READ-#=LISP-INTERNALS#&& ) RPLACDCONS(  ASSOC-EQLLISP-INTERNALS'  %SYMBOL-VALUESYMBOL% ERRORLISP-INTERNALS PLACEHOLDER-FOR-#N#-NLISP-INTERNALS PLACEHOLDER-FOR-#N#-PLISP-INTERNALS READLISP-INTERNALS SETSYMBOL CONSCONS  %SYMBOL-VALUESYMBOL CONSCONS MAKE-PLACEHOLDER-FOR-#N#LISP-INTERNALS ERRORLISP-INTERNALS  ASSOC-EQLLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL ERROR-UNLESS-ARGUMENTLISP-INTERNALS,"A$BA@BD@@A @A`@jDAAB($BD@@A@AE%F%C(% BAAB(* BA(B Ah@j@i B&CD@@A&@A&Cp%0@A &@AE%FAAB($B(&B@A&D& *READER-CIRCULARITIES*LISP-INTERNALS$(#~S= #~:*~S# is ambiguous reader syntax. *READER-CIRCULARITIES*LISP-INTERNALS *READER-CIRCULARITIES*LISP-INTERNALS%More than one object labeled by #~S=. *READER-CIRCULARITIES*LISP-INTERNALS *READ-SUPPRESS*LISP-INTERNALS READ-##LISP-INTERNALS READ-##LISP-INTERNALS  ERRORLISP-INTERNALS CDRCONS  ASSOC-EQLLISP-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL ERROR-UNLESS-ARGUMENTLISP-INTERNALS"A$BA@BD@@A@AjDAAB(% B&@@A@A'GE%F(No object labeled by #~S= before #~:*~S# *READER-CIRCULARITIES*LISP-INTERNALS *READ-SUPPRESS*LISP-INTERNALS READ-#|LISP-INTERNALS READ-#|LISP-INTERNALS)(#))*'  READ-CHARLISP-INTERNALS  READ-CHARLISP-INTERNALS  PEEK-CHARLISP-INTERNALS  READ-CHARLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS,"A$Bb*@p+`0@A*@A Aj@xT@h BjA @j@xT@i B#TB@@$B@A @A|TB@@B@A @A Ah@j@hB0)**x |TB@@$B@A )@A#TB@@B@A )@A Ah@j@hB)**x @A `@jD  FEATURE-ERRORLISP-INTERNALS  FEATURE-ERRORLISP-INTERNALS ERRORLISP-INTERNALSE!F%~S is not a valid feature expression. ERROR-IF-ARGUMENTLISP-INTERNALS ERROR-IF-ARGUMENTLISP-INTERNALS   ERRORLISP-INTERNALS  %SYMBOL-VALUESYMBOL "@@A @AA@BD@@A  @AE"@!FjD"An argument, ~S, was given to #~C. *READ-SUPPRESS*LISP-INTERNALS ERROR-UNLESS-ARGUMENTLISP-INTERNALS ERROR-UNLESS-ARGUMENTLISP-INTERNALS    %SYMBOL-VALUESYMBOL ERRORLISP-INTERNALS "@@A @A"D@D@@A@AjDE!FA@B@A  *READ-SUPPRESS*LISP-INTERNALSAn argument is required by #~C.