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