DEFMACRO PRIMITIVES  NEW-DEFMACROLISP-INTERNALS &BODY PRIMITIVES MACRO-DEFINITIONLISP-INTERNALS LET PRIMITIVES  MACRO-NAMELISP-INTERNALS FIRSTLISP-INTERNALS MACRO-DEFINITIONLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES PROGN PRIMITIVES  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES SETF PRIMITIVES  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES MACRO-FUNCTIONLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES  MACRO-NAMELISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES NEW-EXPAND-DEFMACROLISP-INTERNALS MACRO-DEFINITIONLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES QUOTE PRIMITIVES  MACRO-NAMELISP-INTERNALS MACRO-FUNCTIONLISP-INTERNALS MACRO-FUNCTIONLISP-INTERNALS  CDRCONS CARCONS SYMBOL-FUNCTIONSYMBOL FBOUNDPSYMBOL CD@@A@A!CFsb @A @A"CB@@C@A @A#GjDjDjD MACROLISP-INTERNALS EXPAND-DEFMACROLISP-INTERNALS EXPAND-DEFMACROLISP-INTERNALS4 2%#231  XR-BQ-LISTSYSTEM-INTERNALS.  XR-BQ-LISTSYSTEM-INTERNALS-  XR-BQ-LIST*SYSTEM-INTERNALS+  XR-BQ-APPENDSYSTEM-INTERNALS)  XR-BQ-LIST*SYSTEM-INTERNALS' MAKE-DEFMACRO-LET-BINDINGSLISP-INTERNALS SYMBOLPVINCULUM SYMBOLPVINCULUM  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CONSCONS  XR-BQ-LISTSYSTEM-INTERNALS MVBIND-3LISP-INTERNALS GOBBLE-DECLARATIONSSYSTEM-INTERNALS GENTEMPLISP-INTERNALS GENTEMPLISP-INTERNALS CDDRCONS SECONDLISP-INTERNALS FIRSTLISP-INTERNALS5j$@ ! C C! CA@ BAA B2Ah@j B, C`@+@b@)@(@@A@AA) B&A+ B0A@.B(A+B@A6CD@@A3@A@6CD@@A2@A6@4A0@/B(A*B$A-B@@BAB@6@/F%j@ @ @A 3 PROGN PRIMITIVES/  NAMED-LAMBDALISP-INTERNALS, LET* PRIMITIVES( DECLARE PRIMITIVES BLOCK PRIMITIVES DECLARE PRIMITIVES  &OPTIONAL PRIMITIVES  DOCUMENTATIONLISP-INTERNALS MACROENVLISP-INTERNALS  MACROFORMLISP-INTERNALS MAKE-DEFMACRO-LET-BINDINGSLISP-INTERNALS MAKE-DEFMACRO-LET-BINDINGSLISP-INTERNALS REVERSELISP-INTERNALS CLOSURE-REF-0-1LISP-INTERNALS (MAKE-LET-BINDINGS-FOR-NESTED-LAMBDA-LISTLISP-INTERNALS MAKE-CLOSURE-WITH-ENVLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS MAKE-CONTOUR-1LISP-INTERNALS j&@jA' BA#B( @A&B"@$B@A&CAF  INTERNALKEYWORD MAKE-DEFMACRO-LET-BINDINGSLISP-INTERNALSADD-BINDING_22 CLOSURE-SET-0-1LISP-INTERNALS CONSCONS CLOSURE-REF-0-1LISP-INTERNALS A?CAB>A"B@A"D CDRCONS MAKE-LET-BINDINGS-PARSELISP-INTERNALS MAKE-LET-BINDINGS-PARSELISP-INTERNALS  SETSYMBOL SETSYMBOL SETSYMBOL SETSYMBOL SETSYMBOL SETSYMBOL SETSYMBOL SETSYMBOL SETSYMBOL MVBIND-NLISP-INTERNALS MOBY-PARSE-LAMBDA-LISTUSER! C2A} B`@1@b@/@d@-@f@+@h@)@j@'@l@%@n@#@A2BA0BA.BA,BA*BA(BA&BA$BE#F  *MOBY-PARSE-ENVIRONMENT*LISP-INTERNALS *MOBY-PARSE-WHOLE*LISP-INTERNALS *MOBY-PARSE-BODY*LISP-INTERNALS *MOBY-PARSE-AUX*LISP-INTERNALS *MOBY-PARSE-ALLOW-OTHER-KEYS*LISP-INTERNALS *MOBY-PARSE-KEY*LISP-INTERNALS *MOBY-PARSE-REST*LISP-INTERNALS *MOBY-PARSE-OPTIONAL*LISP-INTERNALS *MOBY-PARSE-REQUIRED*LISP-INTERNALS (MAKE-LET-BINDINGS-FOR-NESTED-LAMBDA-LISTLISP-INTERNALS (MAKE-LET-BINDINGS-FOR-NESTED-LAMBDA-LISTLISP-INTERNALS (: UNBINDLISP-INTERNALS9 "MAKE-LET-BINDINGS-DO-AUX-PARAMETERLISP-INTERNALS8  %SYMBOL-VALUESYMBOL6 "MAKE-LET-BINDINGS-DO-KEY-PARAMETERLISP-INTERNALS3  %SYMBOL-VALUESYMBOL1 1MAKE-LET-BINDINGS-DO-WHOLE-ENV-BINDINGS-OPTIONALSLISP-INTERNALS, MAKE-LET-BINDINGS-DUMMY-BINDLISP-INTERNALS( MAKE-LET-BINDINGS-PARSELISP-INTERNALS' RPLACDCONS&  XR-BQ-LISTSYSTEM-INTERNALS$ CDRCONS# LASTLISP-INTERNALS" LASTLISP-INTERNALS!  COPY-LISTLISP-INTERNALS CDRCONS LASTLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS BINDLISP-INTERNALS=`<@j:@j8@j6@j4@j2@j0@j.@j,@j*@A:BA8BA6BA4BA2BA0BA.BA,BA*B C(@BD@@A(@A C(@B( C(AB(@AB@B C$A"@ @&B<A"@$@&@(BA@B(<@"@$BA@B($B|C@A D 7 *MOBY-PARSE-AUX*LISP-INTERNALS2 *MOBY-PARSE-KEY*LISP-INTERNALS% &REST PRIMITIVES *MOBY-PARSE-ENVIRONMENT*LISP-INTERNALS *MOBY-PARSE-WHOLE*LISP-INTERNALS *MOBY-PARSE-BODY*LISP-INTERNALS *MOBY-PARSE-AUX*LISP-INTERNALS *MOBY-PARSE-ALLOW-OTHER-KEYS*LISP-INTERNALS *MOBY-PARSE-KEY*LISP-INTERNALS *MOBY-PARSE-REST*LISP-INTERNALS *MOBY-PARSE-OPTIONAL*LISP-INTERNALS *MOBY-PARSE-REQUIRED*LISP-INTERNALS MAKE-LET-BINDINGS-DUMMY-BINDLISP-INTERNALS MAKE-LET-BINDINGS-DUMMY-BINDLISP-INTERNALS,)(*#"$ +  %SYMBOL-VALUESYMBOL%  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL LENGTHARRAY  %SYMBOL-VALUESYMBOL LENGTHARRAY  %SYMBOL-VALUESYMBOL FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  %SYMBOL-VALUESYMBOL LENGTHARRAY  %SYMBOL-VALUESYMBOL-A@B(AB(AA B*@@A@A*@@A@Aj@A$BA'B@#B(@@B @h@@f@EGA@B(@ BA@B(@B $Dx AA B*@@A$@A@A AA B*@@A*@A@A AA B@A * *MOBY-PARSE-WHOLE*LISP-INTERNALS$ *MOBY-PARSE-AUX*LISP-INTERNALS *MOBY-PARSE-KEY*LISP-INTERNALS *MOBY-PARSE-OPTIONAL*LISP-INTERNALS *MOBY-PARSE-REQUIRED*LISP-INTERNALS IGNORE PRIMITIVES REQUIRE-AMPLE-MACRO-ARGUMENTSLISP-INTERNALS CARCONS QUOTE PRIMITIVES *MOBY-PARSE-REST*LISP-INTERNALS *MOBY-PARSE-REQUIRED*LISP-INTERNALS 1MAKE-LET-BINDINGS-DO-WHOLE-ENV-BINDINGS-OPTIONALSLISP-INTERNALS 1MAKE-LET-BINDINGS-DO-WHOLE-ENV-BINDINGS-OPTIONALSLISP-INTERNALSB)>4;?1<+?(@ A  %SYMBOL-VALUESYMBOL=  %SYMBOL-VALUESYMBOL: FUNCALL-INTERNALLISP-INTERNALS7  XR-BQ-LISTSYSTEM-INTERNALS6  XR-BQ-LISTSYSTEM-INTERNALS3  %SYMBOL-VALUESYMBOL.  %SYMBOL-VALUESYMBOL%  %SYMBOL-VALUESYMBOL# &MAKE-LET-BINDINGS-DO-OPTIONAL-VARIABLELISP-INTERNALS  %SYMBOL-VALUESYMBOL )MAKE-LET-BINDINGS-MAKE-BINDING-OR-RECURSELISP-INTERNALS  %SYMBOL-VALUESYMBOL FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOLCA@BD@@A @AA@B(&B$@h@@f@DCA@BD@@A@AA@B((B$@h@@f@DCA@B( @"@$@&@( BA@B( @"@$@&@( BAA B*@@A@@A*@@A?@A@AA@BD@@A<@AA@BA @#B@B$@h@@f@DC?@A A@B4@A  DAA B)@A @ *MOBY-PARSE-BODY*LISP-INTERNALS< *MOBY-PARSE-BODY*LISP-INTERNALS4 NTHCDRLISP-INTERNALS2 *MOBY-PARSE-REST*LISP-INTERNALS- *MOBY-PARSE-REST*LISP-INTERNALS$ *MOBY-PARSE-REST*LISP-INTERNALS *MOBY-PARSE-OPTIONAL*LISP-INTERNALS *MOBY-PARSE-REQUIRED*LISP-INTERNALS *MOBY-PARSE-ENVIRONMENT*LISP-INTERNALS *MOBY-PARSE-ENVIRONMENT*LISP-INTERNALS *MOBY-PARSE-WHOLE*LISP-INTERNALS *MOBY-PARSE-WHOLE*LISP-INTERNALS )MAKE-LET-BINDINGS-MAKE-BINDING-OR-RECURSELISP-INTERNALS )MAKE-LET-BINDINGS-MAKE-BINDING-OR-RECURSELISP-INTERNALS# !$ " FERROR PRIMITIVES (MAKE-LET-BINDINGS-FOR-NESTED-LAMBDA-LISTLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS LISTPVINCULUM CDRCONS FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS SYMBOLPVINCULUM CARCONS%j,@ @@A$@A C,CD@@A@A@AA"@%B,B&@h@@f@DC0 ""x C@A ,CD@@A!@A@AA"@%B,@&@(@*B0 ""x A,B@A "D!~S not a variable or a list NTHLISP-INTERNALS NTHLISP-INTERNALS &MAKE-LET-BINDINGS-DO-OPTIONAL-VARIABLELISP-INTERNALS &MAKE-LET-BINDINGS-DO-OPTIONAL-VARIABLELISP-INTERNALS&$'% CDRCONS# FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS MVBIND-3LISP-INTERNALS PARSE-OPTIONAL-PARAMETERUSER CARCONS(j2@ @@A'@A! C2 C0 C`@/@b@-@A%B(@#B(A"@%B@/B(0B&@h@@f@DC,@@A$@AA%B(@#B(@@AB(,B&@h@@f@DC0 ""x C@A "D T PRIMITIVES IFLISP <= PRIMITIVES LENGTHARRAY IFLISP NTHLISP-INTERNALS <= PRIMITIVES LENGTHARRAY "MAKE-LET-BINDINGS-DO-KEY-PARAMETERLISP-INTERNALS "MAKE-LET-BINDINGS-DO-KEY-PARAMETERLISP-INTERNALS0/1/ CDRCONS. FUNCALL-INTERNALLISP-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  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS MVBIND-4LISP-INTERNALS PARSE-KEY-PARAMETERUSER CARCONS2j0@ @@A1@A C1 C/ C`@-@b@+@d@)@A"@%B(@(@-B(.B&@h@@f@DC*@@A/@AA@(B(@@B(@@@@B(@@@B(AB(A"@%B(@@B@AB(*B&@h@@f@DC C@A jD ) LABELS PRIMITIVES' FOOLISP-INTERNALS$ NTHCDRLISP-INTERNALS! LISTLISP-INTERNALS FOOLISP-INTERNALS T PRIMITIVES FOOLISP-INTERNALS CDDRCONS LISTLISP-INTERNALS NULL PRIMITIVES LISTLISP-INTERNALS COND PRIMITIVES T PRIMITIVES CARCONS LISTLISP-INTERNALS EQ PRIMITIVES GETFSYMBOL NTHCDRLISP-INTERNALS "MAKE-LET-BINDINGS-DO-AUX-PARAMETERLISP-INTERNALS "MAKE-LET-BINDINGS-DO-AUX-PARAMETERLISP-INTERNALS CDRCONS FUNCALL-INTERNALLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS MVBIND-2LISP-INTERNALS PARSE-AUX-PARAMETERUSER CARCONSj(@ @@A@A C) C' C`@%@&A$B"@h@@f@DC C@A jD REQUIRE-AMPLE-MACRO-ARGUMENTSLISP-INTERNALS REQUIRE-AMPLE-MACRO-ARGUMENTSLISP-INTERNALS  FERROR PRIMITIVES FERROR PRIMITIVES LENGTHARRAY FERROR PRIMITIVES LISTPVINCULUM$CD@@A @AA&@(@$B% C@, 0@A@AE&@(@*@!F"@@A@A@,"0@A@AE&@(@*@#FjDJToo many arguments to lambda list ~S in macro ~S; ~S provided, ~S allowed. JToo few arguments to lambda list ~S in macro ~S; ~S provided, ~S expected.EAttempt to bind lambda list ~S in macro ~S to ~S; a list is required.