(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYSTEM" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MACRO-CALL-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MACRO-CALL-ERROR
      #25Y(00 00 00 00 01 00 00 00 00 02 DA DB 6F 02 94 03 B0 72 45 72 96 B1 33
           03 1F)
      SYSTEM::SOURCE-PROGRAM-ERROR
      "The macro ~S may not be called with ~S arguments: ~S" SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-3 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::%RESTP SYSTEM::%MIN-ARGS SYSTEM::%ARG-COUNT
    SYSTEM::%LET-LIST SYSTEM::%KEYWORD-TESTS SYSTEM::%DEFAULT-FORM))
#Y(#:TOP-LEVEL-FORM-4
   #18Y(00 00 00 00 00 00 00 00 00 01 DA DA 7B 01 32 81 19 01)
   SYSTEM::MACRO-MISSING-VALUE)
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::ANALYZE-AUX
   #Y(SYSTEM::ANALYZE-AUX
      #75Y(00 00 00 00 02 00 00 00 00 03 AE 1B 2A 94 00 C5 5D 1B 1C DC DD 6F 04
           B0 94 03 33 02 1F 94 00 8E 04 6B 9D 5B 20 6D 9D 5B 78 9E 5B 5C 78 61
           02 14 0E 01 5D 0F 01 83 00 9D 21 63 9D 1F 0C DF 6F 04 E0 6F 04 B0 2D
           03 07 19 04 19 04)
      (COMMON-LISP::NIL) SYSTEM::%LET-LIST SYSTEM::SOURCE-PROGRAM-ERROR
      "in macro ~S: ~S may not be used as &AUX variable." SYSTEM::TEXT
      "The rest of the lambda list will be ignored."
      "The lambda list of macro ~S contains a dot after &AUX."
      COMMON-LISP::CERROR))
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::ANALYZE-KEY
   #Y(SYSTEM::ANALYZE-KEY
      #586Y(00 00 00 00 03 00 00 00 00 04 64 63 B1 01 04 A1 20 82 10 87 04 03
            14 24 00 80 B2 AF 24 01 80 B2 AF 24 03 80 B5 AF 24 04 80 B0 AF 24
            05 80 AB AF 24 06 80 A6 AF 24 07 80 A1 AF 24 08 80 9C 0E 0D 1D 16
            AF 8E 04 80 99 A0 20 0E AF 72 45 25 0E 08 A0 5B 14 6B 0D 61 02 FB
            AF 8E 04 80 87 A0 20 80 94 94 03 8E 04 80 BF A0 5B 20 80 F5 A0 5B
            78 8F 04 80 EE A0 5B 5C 20 80 E8 A0 5B 5C 78 8F 04 81 3D A0 5B 5B
            FA A0 5B 5C 78 EA B7 B1 03 20 7C 03 7B 02 0E 12 5D 0F 12 A0 5C 5C
            1D 08 A0 5C 5C 78 8E 04 80 CF F9 1C 80 D3 A0 5B 5C 78 F0 F1 A3 5B
            5C 78 03 24 7C 02 A3 5C 78 A4 5B 5C 78 61 04 14 7B 02 0E 12 5D 0F
            12 AE 84 05 1B 81 51 7D 06 1B 81 4C 95 04 B5 30 02 1B 81 58 E3 6F
            0A D0 1B 19 A0 1B FF 6E AF 72 8A 6B 0F 80 D2 02 AF EA B7 B1 D6 62
            03 1B 4A ED 6F 0A D9 14 6F 0A B6 A3 1B 80 6B A0 5C 5C 5B F9 1D 80
            47 14 F0 F1 94 06 03 18 7C 02 F3 F4 94 08 A6 5C 78 7B 03 03 1B 7C
            02 03 1C 62 03 1B FF 99 94 03 72 8A 6B 0F 80 D2 02 94 03 EA B7 B1
            03 15 7C 03 7B 02 0E 12 5D 0F 12 A0 5C 5C 1D 08 A0 5C 5C 78 8E 04
            FF B5 F9 1C FF B9 94 03 F0 F1 94 06 03 1D 7C 02 A3 5C 78 A4 1B FF
            5B 65 1E 6F 0A 65 1F 6F 0A B6 A3 5B 14 2D 04 0C 1B 80 AB A0 5C 5C
            5B F9 1D FF 2D 14 F0 F1 A3 5B 5C 78 03 21 7C 02 F3 F4 A5 5B 5C 78
            A6 5C 78 7B 03 03 22 7C 02 03 23 62 03 1B FF 23 A0 5C 5C 5B F9 1D
            80 43 14 F0 F1 AF 03 26 7C 02 F3 F4 B1 A6 5C 78 7B 03 03 27 7C 02
            03 28 62 03 1B 3A A0 5B 5B FA 38 01 81 8E 00 14 EA B7 B1 03 25 7C
            03 7B 02 0E 12 5D 0F 12 A0 5C 5C 1D 08 A0 5C 5C 78 8E 04 FF B9 F9
            1C FF BD AC F0 F1 AF 03 29 7C 02 A3 5C 78 A4 5B 5C 78 61 04 14 7B
            02 0E 12 5D 0F 12 AE 84 05 03 2A 10 2B 03 2A 10 2C 00 10 2D 00 10
            0D 04 0F 5B 5C 78 B9 C2 BB 2D 04 2E 12 04 83 04 1B FD EC 93 04 0C
            65 2F 6F 0A 65 30 6F 0A B6 2D 03 0C 16 05 9E 1F 11 65 31 B1 65 32
            AF 7B 02 7B 03 0E 33 5D 0F 33 19 06 19 06)
      COMMON-LISP::&ALLOW-OTHER-KEYS COMMON-LISP::&AUX SYSTEM::ANALYZE-AUX
      COMMON-LISP::&ENVIRONMENT COMMON-LISP::&WHOLE COMMON-LISP::&OPTIONAL
      COMMON-LISP::&REST COMMON-LISP::&BODY COMMON-LISP::&KEY
      "It will be ignored." SYSTEM::TEXT
      "The lambda list of macro ~S contains a badly placed ~S."
      COMMON-LISP::CERROR SYSTEM::%DEFAULT-FORM 1. SYSTEM::*KEYWORD-PACKAGE*
      COMMON-LISP::GETF (COMMON-LISP::NIL) SYSTEM::%LET-LIST
      "It will be ignored."
      "The lambda list of macro ~S contains the invalid element ~S"
      (SYSTEM::MACRO-MISSING-VALUE) COMMON-LISP::IF COMMON-LISP::EQ
      (SYSTEM::MACRO-MISSING-VALUE) COMMON-LISP::PROGN COMMON-LISP::SETQ
      (COMMON-LISP::NIL) (COMMON-LISP::T) (SYSTEM::MACRO-MISSING-VALUE)
      "~0*It will be ignored."
      "The lambda list of macro ~S contains an invalid keyword specification ~S"
      (SYSTEM::MACRO-MISSING-VALUE) (SYSTEM::MACRO-MISSING-VALUE)
      (COMMON-LISP::NIL) (COMMON-LISP::T) (SYSTEM::MACRO-MISSING-VALUE)
      (SYSTEM::MACRO-MISSING-VALUE) (SYSTEM::MACRO-MISSING-VALUE)
      (COMMON-LISP::NIL) (COMMON-LISP::T) (SYSTEM::MACRO-MISSING-VALUE) 0.
      SYSTEM::%MIN-ARGS SYSTEM::%ARG-COUNT SYSTEM::%RESTP SYSTEM::ANALYZE1
      "The rest of the lambda list will be ignored."
      "The lambda list of macro ~S contains a dot after &KEY."
      SYSTEM::KEYWORD-TEST COMMON-LISP::QUOTE SYSTEM::%KEYWORD-TESTS))
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::ANALYZE-REST
   #Y(SYSTEM::ANALYZE-REST
      #136Y(00 00 00 00 03 00 00 00 00 04 A0 20 80 40 94 03 95 04 02 0F 03 AD
            8E 04 3D 9E 20 80 44 CB 10 07 CB 10 08 00 10 03 B6 BA BA BC 2D 04
            09 12 03 9D 59 1E 80 52 9D 20 33 94 00 24 0D 3A 94 00 24 0F 3E EB
            6F 02 EC 6F 02 B1 AF 2D 04 0C 19 06 DA DB 6F 02 AF 33 01 1F AD B1
            7B 02 0E 04 5D 0F 04 1B 4E DA DF 6F 02 B1 B0 33 02 1F E4 6F 02 E5
            6F 02 B1 2D 03 0C 19 06 95 00 AE B1 2D 03 0E 19 06 95 00 B0 30 10
            19 06 19 06)
      SYSTEM::SOURCE-PROGRAM-ERROR
      "The lambda list of macro ~S is missing a variable after &REST/&BODY."
      SYSTEM::TEXT SYSTEM::%RESTP SYSTEM::%LET-LIST
      "The lambda list of macro ~S contains an illegal variable after &REST/&BODY: ~S"
      0. SYSTEM::%MIN-ARGS SYSTEM::%ARG-COUNT SYSTEM::ANALYZE1
      "The rest of the lambda list will be ignored."
      "The lambda list of macro ~S contains a misplaced dot."
      COMMON-LISP::CERROR COMMON-LISP::&KEY SYSTEM::ANALYZE-KEY
      COMMON-LISP::&AUX SYSTEM::ANALYZE-AUX "They will be ignored."
      "The lambda list of macro ~S contains superfluous elements: ~S"))
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::CONS-CAR
   #Y(SYSTEM::CONS-CAR
      #37Y(00 00 00 00 01 00 00 00 00 02 63 9F 20 0A 94 02 DA 38 03 80 B9 00 1C
           06 DB AF 61 02 19 03 95 00 A0 5C 5D 19 03)
      ((COMMON-LISP::CAR . COMMON-LISP::CAAR)
       (COMMON-LISP::CDR . COMMON-LISP::CADR)
       (COMMON-LISP::CAAR . COMMON-LISP::CAAAR)
       (COMMON-LISP::CADR . COMMON-LISP::CAADR)
       (COMMON-LISP::CDAR . COMMON-LISP::CADAR)
       (COMMON-LISP::CDDR . COMMON-LISP::CADDR)
       (COMMON-LISP::CAAAR . COMMON-LISP::CAAAAR)
       (COMMON-LISP::CAADR . COMMON-LISP::CAAADR)
       (COMMON-LISP::CADAR . COMMON-LISP::CAADAR)
       (COMMON-LISP::CADDR . COMMON-LISP::CAADDR)
       (COMMON-LISP::CDAAR . COMMON-LISP::CADAAR)
       (COMMON-LISP::CDADR . COMMON-LISP::CADADR)
       (COMMON-LISP::CDDAR . COMMON-LISP::CADDAR)
       (COMMON-LISP::CDDDR . COMMON-LISP::CADDDR)
       (COMMON-LISP::CDDDDR . COMMON-LISP::FIFTH))
      COMMON-LISP::CAR))
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::CONS-CDR
   #Y(SYSTEM::CONS-CDR
      #37Y(00 00 00 00 01 00 00 00 00 02 63 9F 20 0A 94 02 DA 38 03 80 B9 00 1C
           06 DB AF 61 02 19 03 95 00 A0 5C 5D 19 03)
      ((COMMON-LISP::CAR . COMMON-LISP::CDAR)
       (COMMON-LISP::CDR . COMMON-LISP::CDDR)
       (COMMON-LISP::CAAR . COMMON-LISP::CDAAR)
       (COMMON-LISP::CADR . COMMON-LISP::CDADR)
       (COMMON-LISP::CDAR . COMMON-LISP::CDDAR)
       (COMMON-LISP::CDDR . COMMON-LISP::CDDDR)
       (COMMON-LISP::CAAAR . COMMON-LISP::CDAAAR)
       (COMMON-LISP::CAADR . COMMON-LISP::CDAADR)
       (COMMON-LISP::CADAR . COMMON-LISP::CDADAR)
       (COMMON-LISP::CADDR . COMMON-LISP::CDADDR)
       (COMMON-LISP::CDAAR . COMMON-LISP::CDDAAR)
       (COMMON-LISP::CDADR . COMMON-LISP::CDDADR)
       (COMMON-LISP::CDDAR . COMMON-LISP::CDDDAR)
       (COMMON-LISP::CDDDR . COMMON-LISP::CDDDDR))
      COMMON-LISP::CDR))
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::ANALYZE1
   #Y(SYSTEM::ANALYZE1
      #495Y(00 00 00 00 04 00 00 00 00 05 B0 01 03 A0 20 81 BB 87 03 01 14 24
            00 80 4C AD 24 05 80 64 AD 24 09 80 72 AD 24 0A 80 6D AD 24 0C 80
            71 AD 24 0F 80 86 AD 24 12 80 87 AD 24 15 80 91 92 02 80 EE 6B 21
            32 95 0F 21 6B 17 32 95 0F 17 AD 8F 04 81 4D AD B4 2F 1A 14 7B 02
            0E 01 5D 0F 01 1B 81 63 DC C8 1B 81 71 93 05 78 A0 5C 1D 74 A0 5C
            78 8F 04 6E A0 5C 78 B2 7B 02 0E 01 5D 0F 01 83 03 1B 81 45 93 02
            0B E0 6F 04 E1 6F 04 B4 B0 2D 04 08 7E 02 1B 81 32 95 03 B4 B4 2D
            03 0B 19 09 38 01 81 8E 00 02 0F 0D AC B4 7B 02 0E 01 5D 0F 01 95
            03 AD B4 2D 03 0E 19 09 EA 6F 04 D6 1B 04 ED 6F 04 D9 14 6F 04 B4
            B0 2D 04 08 1B 80 FA 95 03 B3 30 16 19 09 9E 1B 80 70 DC 03 1B 1B
            80 C6 A2 5C 5B 1B 18 DC F7 6F 04 B4 A1 5C 5C 5B 1B 80 EC 94 01 F6
            B5 B6 6F 1A A2 5C 21 64 00 14 7B 04 7B 02 0E 01 5D 0F 01 9E 5C 20
            80 B9 9E 5C 5C 20 80 B3 9E 5C 5C 78 8F 04 4C 9E 5C 5C 78 65 1E 03
            1F 1B 80 73 F6 B5 B6 6F 1A A2 5C 78 61 04 1B 3D 6B 17 32 95 0F 17
            0E 18 1D 16 AD 8E 04 FF 97 9E 20 0E AD 72 45 25 19 08 9E 5B 14 6B
            18 61 02 F9 AD 8E 04 FE FE 9E 20 FF 81 94 01 8E 04 FF 92 38 01 81
            8E 00 14 9F 5C 21 FF BA B4 2F 1A 14 7B 02 0E 01 5D 0F 01 03 20 10
            21 03 20 10 17 00 10 0D 94 0A B6 BD B8 2D 04 22 12 03 9E 5C 5C 20
            36 9E 5C 5C 78 65 1E 03 1F 14 B6 7B 02 61 02 1B FE B7 9E 21 0A DC
            03 1B 14 6F 04 B4 A1 1B 30 03 20 10 21 03 20 10 17 00 10 0D B6 BD
            6F 1A BD BF 6F 1A 2D 04 22 12 03 B3 2F 23 FF 83 03 1B FE 41 A0 1F
            1E 14 8E 04 0C DC 03 24 14 6F 04 B4 A3 14 33 02 1F AF B4 7B 02 0E
            01 5D 0F 01 02 0F 0D 19 09 19 09)
      COMMON-LISP::&WHOLE SYSTEM::%LET-LIST SYSTEM::SOURCE-PROGRAM-ERROR
      "The lambda list of macro ~S contains an invalid &WHOLE: ~S" SYSTEM::TEXT
      COMMON-LISP::&OPTIONAL "It will be ignored."
      "The lambda list of macro ~S contains a superfluous ~S."
      COMMON-LISP::CERROR COMMON-LISP::&REST COMMON-LISP::&BODY
      SYSTEM::ANALYZE-REST COMMON-LISP::&KEY SYSTEM::%RESTP SYSTEM::ANALYZE-KEY
      COMMON-LISP::&ALLOW-OTHER-KEYS "It will be ignored."
      "The lambda list of macro ~S contains ~S before &KEY."
      COMMON-LISP::&ENVIRONMENT "It will be ignored."
      "The lambda list of macro ~S contains ~S which is illegal here."
      COMMON-LISP::&AUX SYSTEM::ANALYZE-AUX SYSTEM::%ARG-COUNT
      SYSTEM::%DEFAULT-FORM 1. SYSTEM::CONS-CAR
      "The lambda list of macro ~S contains an invalid element ~S"
      COMMON-LISP::IF
      "The lambda list of macro ~S contains an invalid supplied-variable ~S"
      COMMON-LISP::NOT COMMON-LISP::NULL 0. SYSTEM::%MIN-ARGS SYSTEM::ANALYZE1
      SYSTEM::CONS-CDR
      "The lambda list of macro ~S contains an illegal &REST variable: ~S"))
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::REMOVE-ENV-ARG
   #Y(SYSTEM::REMOVE-ENV-ARG
      #85Y(00 00 00 00 02 00 00 00 00 03 AE 1B 3E AF 63 1B 08 95 01 94 02 84 01
           6A 01 94 01 25 00 73 AC 9F 5C 79 31 A1 16 01 F8 9E 5C 5B 1B 24 9D 5C
           20 0B 9D 5C 78 8F 04 05 9D 5C 5B 1C 52 DB DC 6F 03 B0 B2 33 02 1F 94
           00 24 00 63 83 00 9D 21 76 AF 00 14 40 02 19 04)
      COMMON-LISP::&ENVIRONMENT SYSTEM::SOURCE-PROGRAM-ERROR
      "In the lambda list of macro ~S, &ENVIRONMENT must be followed by a non-NIL symbol: ~S"
      SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::MAKE-LENGTH-TEST
   #Y(SYSTEM::MAKE-LENGTH-TEST
      #99Y(00 00 00 00 01 00 01 00 00 08 3B 01 02 C5 F9 6B 01 8F 90 04 0E 02 1C
           22 6B 01 8E 90 20 0E 02 1C 26 6B 01 6B 05 91 01 2E 22 E1 C9 14 B0 7B
           02 AF 0E 01 14 73 02 36 61 03 19 03 00 19 03 DD DE B0 7B 02 AF 0E 05
           1B 6B E0 C9 1B 60 E2 E3 AF 6B 01 73 02 36 DE B2 7B 02 B1 6B 05 73 02
           36 7B 04 61 02 19 03)
      1. SYSTEM::%MIN-ARGS SYSTEM::%RESTP COMMON-LISP::> COMMON-LISP::LENGTH
      SYSTEM::%ARG-COUNT COMMON-LISP::< COMMON-LISP::/= COMMON-LISP::NOT
      COMMON-LISP::<=))
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::MAKE-MACRO-EXPANSION
   #Y(SYSTEM::MAKE-MACRO-EXPANSION
      #213Y(00 00 00 00 01 00 01 00 00 08 3D 01 9F 20 14 94 02 8F 04 16 9F 5C
            21 1B DA C9 14 6F 02 A1 5B 14 33 01 1F DA DB 6F 02 A1 1B 75 DA C8
            1B 6C 04 1C 1B 80 73 94 02 A0 5C 78 A1 5C 79 AC 64 38 01 31 5E 42
            03 93 01 06 DF 9F 7A 61 01 F9 B0 B2 30 06 42 02 CC 10 08 CC 10 09
            00 10 0A 00 10 0B 00 10 0C 00 10 0D BF E8 66 1B E9 2D 04 10 E9 6F
            11 EC 6B 0B 72 47 C4 6B 0C 72 47 ED 66 1F 04 1D 7C 02 7B 01 33 03
            23 7C 02 93 01 07 EE AE EF AF 61 04 F8 F0 66 1C F1 E9 F2 92 19 02
            03 19 14 7B 03 F4 92 19 FF 8A 03 1B 14 93 1C 03 14 61 01 14 93 24
            0B F6 E9 66 26 03 1D 7A 7B 03 61 01 14 B4 7B 01 33 04 23 7C 03 7B
            03 66 1C 66 1C 66 19 40 04 16 02 12 06 19 0B)
      SYSTEM::SOURCE-PROGRAM-ERROR "Cannot define a macro from that: ~S"
      SYSTEM::TEXT "The name of a macro must be a symbol, not ~S"
      "Macro ~S is missing a lambda list." COMMON-LISP::DECLARE
      SYSTEM::REMOVE-ENV-ARG 0. SYSTEM::%ARG-COUNT SYSTEM::%MIN-ARGS
      SYSTEM::%RESTP SYSTEM::%LET-LIST SYSTEM::%KEYWORD-TESTS
      SYSTEM::%DEFAULT-FORM (COMMON-LISP::CDR SYSTEM::<MACRO-FORM>)
      SYSTEM::<MACRO-FORM> SYSTEM::ANALYZE1 SYSTEM::MAKE-LENGTH-TEST
      COMMON-LISP::LET* COMMON-LISP::BLOCK COMMON-LISP::IF
      (SYSTEM::MACRO-CALL-ERROR SYSTEM::<MACRO-FORM>) COMMON-LISP::FUNCTION
      COMMON-LISP::LAMBDA COMMON-LISP::&OPTIONAL SYSTEM::<ENV-ARG>
      (COMMON-LISP::DECLARE (COMMON-LISP::CONS SYSTEM::<MACRO-FORM>))
      ((COMMON-LISP::DECLARE (COMMON-LISP::IGNORE SYSTEM::<ENV-ARG>)))
      COMMON-LISP::SETQ (SYSTEM::<MACRO-FORM>)))
#Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 80 19 01)
   SYSTEM::MAKE-MACRO-EXPANDER
   #Y(SYSTEM::MAKE-MACRO-EXPANDER
      #19Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 71 5A 2F 01 19 02)
      SYSTEM::MAKE-MACRO-EXPANSION SYSTEM::MAKE-MACRO))
