(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)
   "EXT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (EXT::MAPCAP EXT::MAPLAP EXT::FCASE))
#Y(#:TOP-LEVEL-FORM-3 #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-4
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DEFMACRO-SPECIAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEFMACRO-SPECIAL
      #28Y(00 00 00 00 01 00 01 00 00 08 95 02 AC 2F 00 42 02 DB DC AE 7B 02 DD
           B0 61 04 19 06)
      SYSTEM::MAKE-MACRO-EXPANSION SYSTEM::%PUT COMMON-LISP::QUOTE 'EXT::MACRO)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-5
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DEFVAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFVAR
      #142Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 45 DB 91 02 32 2C 9F 5C 78
            A0 5C 5C 1D 04 A0 5C 5C 5B 14 A1 5C 5C 59 59 14 A2 5C 5C 5C 78 AF
            8F 04 15 AF 38 01 8D 5D 16 DD E1 6F 05 CB 14 B2 33 02 1F AE 2F 02
            19 03 DD DE 6F 05 CB 1B 6F E2 63 E3 E4 E5 B4 7B 02 7B 02 7B 02 93
            04 14 E6 E7 E4 B5 7B 02 7B 02 E8 E4 B6 7B 02 B5 7B 03 7B 03 61 01
            14 93 04 0E E9 E4 B5 7B 02 EA E4 B4 7B 02 7B 04 61 01 14 E4 B5 7B
            02 7B 01 33 03 23 62 03 19 07)
      2. 4. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: non-symbol ~S cannot be a variable" SYSTEM::TEXT COMMON-LISP::DEFVAR
      "~S: the constant ~S must not be redefined to be a variable"
      COMMON-LISP::LET COMMON-LISP::PROCLAIM COMMON-LISP::QUOTE
      COMMON-LISP::SPECIAL COMMON-LISP::UNLESS COMMON-LISP::BOUNDP
      SYSTEM::SET-SYMBOL-VALUE SYSTEM::%SET-DOCUMENTATION
      'COMMON-LISP::VARIABLE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-6
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DEFPARAMETER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFPARAMETER
      #114Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 45 DB 91 02 32 20 9F 5C 78
            A0 5C 5C 78 A1 5C 5C 5C 78 AE 8F 04 15 AE 38 01 8D 5D 16 DD E1 6F
            05 CB 14 B1 33 02 1F AE 2F 02 19 03 DD DE 6F 05 CB 1B 6F E2 63 E3
            E4 E5 B3 7B 02 7B 02 7B 02 E6 E4 B3 7B 02 B2 7B 03 93 04 0E E7 E4
            B4 7B 02 E8 E4 B4 7B 02 7B 04 61 01 14 E4 B4 7B 02 7B 01 33 02 23
            62 04 19 06)
      3. 4. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: non-symbol ~S cannot be a variable" SYSTEM::TEXT
      COMMON-LISP::DEFPARAMETER
      "~S: the constant ~S must not be redefined to be a variable"
      COMMON-LISP::LET COMMON-LISP::PROCLAIM COMMON-LISP::QUOTE
      COMMON-LISP::SPECIAL SYSTEM::SET-SYMBOL-VALUE SYSTEM::%SET-DOCUMENTATION
      'COMMON-LISP::VARIABLE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-7
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DEFCONSTANT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFCONSTANT
      #155Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 45 DB 91 02 32 80 79 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 5C 78 AE 8F 04 80 6D 38 01 72 8E E1 63 E2
            E3 E4 B4 7B 02 E4 B4 7B 02 7B 03 7B 02 E1 B0 B3 7B 02 7B 01 E5 E6
            E4 B7 7B 02 7B 02 E7 E8 B7 B6 E9 E4 BC 7B 02 7B 02 7B 04 EA E4 BA
            7B 02 E4 BE 7B 02 7B 03 7B 03 7B 03 EB E4 B7 7B 02 B4 7B 03 93 08
            0E EC E4 B8 7B 02 ED E4 B8 7B 02 7B 04 61 01 14 E4 B8 7B 02 7B 01
            33 02 23 7C 04 61 04 19 07 AE 2F 02 19 03 DD DE 6F 05 E0 B1 33 02
            1F)
      3. 4. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: non-symbol ~S cannot be defined constant" SYSTEM::TEXT
      COMMON-LISP::DEFCONSTANT COMMON-LISP::LET SYSTEM::EVAL-WHEN-COMPILE
      SYSTEM::C-PROCLAIM-CONSTANT COMMON-LISP::QUOTE COMMON-LISP::IF
      COMMON-LISP::CONSTANTP COMMON-LISP::UNLESS SYSTEM::CONSTANT-EQL
      COMMON-LISP::SYMBOL-VALUE SYSTEM::CONSTANT-WARNING
      SYSTEM::%PROCLAIM-CONSTANT SYSTEM::%SET-DOCUMENTATION
      'COMMON-LISP::VARIABLE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-8
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::CONSTANT-EQL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CONSTANT-EQL
      #39Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 10 9F 5C 5C 78 A0
           5C 5C 5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03)
      4. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::EQL)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::LOOSE-CONSTANT-EQL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LOOSE-CONSTANT-EQL
      #28Y(00 00 00 00 02 00 00 00 00 03 AE 72 25 AE 72 25 32 00 1F 06 AE AE 32
           00 19 03 19 03)))
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CONSTANT-WARNING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CONSTANT-WARNING
      #23Y(00 00 00 00 02 00 00 00 00 03 DA 6F 01 AE B0 B1 71 4D 2D 04 02 19
           03)
      "~S redefines the constant ~S. Its old value was ~S." SYSTEM::TEXT
      COMMON-LISP::WARN))
#Y(#:TOP-LEVEL-FORM-11 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::AND EXT::MACRO
   #Y(COMMON-LISP::AND
      #74Y(00 00 00 00 01 00 01 00 00 08 95 02 93 00 08 9D 5C 1D 07 63 AD 1B 15
           02 19 04 9D 5B 19 04 94 00 DA AD 7B 02 C6 7A 84 02 16 01 83 00 9D 21
           6F 16 01 AC 80 A2 00 AC 38 01 71 9B 64 AF 38 01 31 9B 78 7B 02 31 A6
           DC 9E 5D 19 05)
      COMMON-LISP::NOT (COMMON-LISP::NIL) COMMON-LISP::COND))
#Y(#:TOP-LEVEL-FORM-12 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::OR EXT::MACRO
   #Y(COMMON-LISP::OR
      #52Y(00 00 00 00 01 00 01 00 00 08 95 02 93 00 1E 9D 5C 1D 1D DA AD 73 00
           17 AC 38 01 71 9B 64 AF 38 01 31 9B 78 7B 02 31 A6 DB 9E 5D 19 05 00
           19 04 9D 5B 19 04)
      #.#'COMMON-LISP::LIST COMMON-LISP::COND))
#Y(#:TOP-LEVEL-FORM-13 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::PROG1 EXT::MACRO
   #Y(COMMON-LISP::PROG1
      #51Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 1C 9F 5C 78 A0 5C
           79 38 01 72 8E DC AD B0 7B 02 7B 01 AF AF 7B 01 33 02 23 62 02 19 06
           AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET))
#Y(#:TOP-LEVEL-FORM-14 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::PROG2 EXT::MACRO
   #Y(COMMON-LISP::PROG2
      #64Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 29 9F 5C 78 A0 5C
           5C 78 A1 5C 5C 79 38 01 72 8E DC 63 DD B2 DC B1 B4 7B 02 7B 01 B3 B3
           7B 01 33 02 23 7C 02 7B 03 61 03 19 07 AE 2F 01 19 03)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-15 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::WHEN EXT::MACRO
   #Y(COMMON-LISP::WHEN
      #38Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0F 9F 5C 78 A0 5C
           79 DC AE DD A0 7A 61 03 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::IF COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-16 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::UNLESS EXT::MACRO
   #Y(COMMON-LISP::UNLESS
      #41Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 12 9F 5C 78 A0 5C
           79 DC DD AF 7B 02 DE A0 7A 61 03 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::IF COMMON-LISP::NOT
      COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-17
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::RETURN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::RETURN
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 31 0A 9F 5C 78 DC 63
           AE 61 03 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::RETURN-FROM)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-18
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::LOOP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::LOOP
      #36Y(00 00 00 00 01 00 01 00 00 08 95 02 38 01 72 8E DA 63 DB AF B1 DC B2
           7B 02 7B 01 33 02 23 7C 02 61 03 19 05)
      COMMON-LISP::BLOCK COMMON-LISP::TAGBODY COMMON-LISP::GO)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-19
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO/DO*-EXPAND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO/DO*-EXPAND
      #207Y(00 00 00 00 07 00 00 00 00 00 00 2B 01 7F 04 00 00 A4 20 80 46 AC
            6D 03 01 01 02 38 01 72 8E 38 01 72 8E B7 63 B8 31 5E 42 03 93 01
            06 DE 9F 7A 61 01 F9 04 10 21 07 93 10 80 5C BC A5 34 94 10 83 11
            9D 20 20 9D 5C 1D 1F 9D 5C 20 80 41 9D 5C 5C 1C 31 9D 14 84 07 16
            01 1B 58 DA DB 6F 02 68 02 00 33 01 1F 9D 1B 6C 9D 5B 1B 68 94 00
            9E 5C 78 7B 02 84 07 9D 5C 5C 78 94 01 A5 62 02 FE 16 01 1B FF AF
            9D 5C 5C 20 06 9D 5C 5C 5C 1D 5D AC A6 34 16 01 1B FF 9C DF 63 B9
            B5 72 47 B1 E0 B6 E1 94 17 E2 B9 7B 02 7B 03 B6 BF BB 32 47 7A E2
            BB 7B 02 BA E3 63 E4 04 1E 5C 7A 7B 03 7B 04 33 02 23 7C 03 7B 01
            33 02 23 7C 02 61 03 19 11)
      SYSTEM::SOURCE-PROGRAM-ERROR "exit clause in ~S must be a list"
      SYSTEM::TEXT
      #Y(SYSTEM::DO/DO*-EXPAND-BAD-SYNTAX
         #21Y(00 00 00 00 01 00 00 00 00 02 DB DC 6F 03 69 00 01 B0 33 02 1F)
         COMMON-LISP::NIL SYSTEM::SOURCE-PROGRAM-ERROR
         "Invalid syntax in ~S form: ~S." SYSTEM::TEXT)
      COMMON-LISP::DECLARE COMMON-LISP::BLOCK COMMON-LISP::TAGBODY
      COMMON-LISP::IF COMMON-LISP::GO COMMON-LISP::RETURN-FROM
      COMMON-LISP::PROGN))
#Y(#:TOP-LEVEL-FORM-20 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 53 19 01)
   COMMON-LISP::DO)
#Y(#:TOP-LEVEL-FORM-21
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DO
      #48Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 17 9F 5C 78
           A0 5C 5C 78 A1 5C 5C 79 AE AE AE B3 DC DD DE 2D 07 05 19 06 AE 2F 01
           19 03)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DO COMMON-LISP::LET
      COMMON-LISP::PSETQ SYSTEM::DO/DO*-EXPAND)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-22
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DO* SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DO*
      #48Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 17 9F 5C 78
           A0 5C 5C 78 A1 5C 5C 79 AE AE AE B3 DC DD DE 2D 07 05 19 06 AE 2F 01
           19 03)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DO* COMMON-LISP::LET*
      COMMON-LISP::SETQ SYSTEM::DO/DO*-EXPAND)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-23
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DOLIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DOLIST
      #123Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 80 5E 9F
            5C 5B 78 A0 5C 5B 5C 78 A1 5C 5B 5C 5C 78 A2 5C 79 AC 63 B3 31 5E
            42 02 38 01 72 8E DC AD B3 DD B0 7B 02 7B 03 B4 C9 7A 7B 02 DF AF
            7B 02 B3 38 01 8C 5D 2E E0 B6 CC 7A 7B 01 E2 E3 B9 7B 02 A5 7C 02
            B6 61 04 14 7B 02 E2 E4 B1 7B 02 A3 7C 02 E5 B7 E6 B3 7B 02 7B 03
            A4 62 05 19 0A AE 2F 01 19 03 A4 1B 60)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DO* COMMON-LISP::CDR
      (COMMON-LISP::NIL) COMMON-LISP::ENDP COMMON-LISP::LET (COMMON-LISP::NIL)
      COMMON-LISP::DECLARE COMMON-LISP::IGNORABLE COMMON-LISP::LIST
      COMMON-LISP::SETQ COMMON-LISP::CAR)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-24 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 53 19 01)
   COMMON-LISP::DOTIMES)
#Y(#:TOP-LEVEL-FORM-25
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::DOTIMES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DOTIMES
      #130Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 80 4C 9F
            5C 5B 78 A0 5C 5B 5C 78 A1 5C 5B 5C 5C 78 A2 5C 79 AC 63 B3 31 5E
            42 02 93 00 06 DC 9E 7A 61 01 F8 B0 38 01 8C 5D 29 38 01 72 8E DD
            B3 DE DF B6 7B 02 7B 03 AE B4 7B 02 7B 02 E0 B5 B0 7B 03 B3 7B 02
            B0 B2 33 02 23 62 03 19 0A AE 2F 01 19 03 DD B2 DE DF B5 7B 02 7B
            03 7B 01 E0 B4 B4 7B 03 B2 7B 02 AF B1 33 02 23 62 03 19 09)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DECLARE COMMON-LISP::DO 0.
      COMMON-LISP::1+ COMMON-LISP::>=)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-26 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::PSETQ EXT::MACRO
   #Y(COMMON-LISP::PSETQ
      #74Y(00 00 00 00 01 00 01 00 00 08 95 02 01 02 AE 93 00 21 9D 5C 1D 2B 38
           01 72 8E DE 94 02 AE 7B 03 84 03 AC 9F 5C 78 7B 02 84 02 16 01 9D 5C
           5C F8 92 00 5F 63 84 02 DF AE 72 47 B0 32 47 5D 5D 19 07 DA DB 6F 02
           DD B5 33 02 1F)
      SYSTEM::SOURCE-PROGRAM-ERROR
      "~S called with an odd number of arguments: ~S" SYSTEM::TEXT
      COMMON-LISP::PSETQ COMMON-LISP::SETQ COMMON-LISP::LET))
#Y(#:TOP-LEVEL-FORM-27 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::MULTIPLE-VALUE-LIST EXT::MACRO
   #Y(COMMON-LISP::MULTIPLE-VALUE-LIST
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC DD
           AE 61 03 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::MULTIPLE-VALUE-CALL
      #'COMMON-LISP::LIST))
#Y(#:TOP-LEVEL-FORM-28 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::MULTIPLE-VALUE-BIND EXT::MACRO
   #Y(COMMON-LISP::MULTIPLE-VALUE-BIND
      #80Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           5C 78 A1 5C 5C 79 38 01 72 8E 63 B0 63 1B 13 AE 2F 01 19 03 87 01 00
           14 DC B1 7B 02 7B 02 84 02 83 01 AD 8D 91 6E 16 02 DD AE DE B2 7B 02
           7B 02 AE 32 47 7A A1 62 02 19 08)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::POP COMMON-LISP::LET*
      COMMON-LISP::MULTIPLE-VALUE-LIST))
#Y(#:TOP-LEVEL-FORM-29 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::MULTIPLE-VALUE-SETQ EXT::MACRO
   #Y(COMMON-LISP::MULTIPLE-VALUE-SETQ
      #83Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 10 9F 5C 78 A0 5C
           5C 78 38 01 72 8E 63 AF 63 1B 14 AE 2F 01 19 03 87 01 00 DC AD DD B2
           7B 02 7B 03 84 02 83 01 AD 8D 91 6D 16 02 DE AE DF B1 7B 02 7B 02 7B
           01 93 02 05 E0 AF 32 47 5D 14 61 03 19 07)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::SETQ COMMON-LISP::POP
      COMMON-LISP::LET* COMMON-LISP::MULTIPLE-VALUE-LIST COMMON-LISP::PROG1))
#Y(#:TOP-LEVEL-FORM-30 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::LOCALLY EXT::MACRO
   #Y(COMMON-LISP::LOCALLY
      #19Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 63 9F 62 02 19 04)
      COMMON-LISP::LET))
#Y(#:TOP-LEVEL-FORM-31
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CASE-EXPAND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CASE-EXPAND
      #143Y(00 00 00 00 04 00 00 00 00 05 63 DA B2 6E 03 01 72 8E DC AD B1 7B
            02 7B 01 DD 63 B2 1B 80 61 DE DF 6F 06 BA 33 01 1F DE E2 6F 06 BB
            AF 33 02 1F 92 01 74 02 1B 3F E3 63 AE 1B 10 94 00 BC B9 E4 AF 7B
            02 7B 03 84 02 16 01 83 00 9D 21 6D 16 01 AC 31 A2 16 01 5D 1B 1D
            94 00 95 01 9E 20 40 94 01 AC 02 22 4B AC 24 07 47 AC 8E 09 49 B8
            B5 E4 AF 7B 02 61 03 14 A0 5C 5D 16 02 F8 84 01 83 00 9D 21 55 16
            01 AC 31 A2 16 01 7A 61 03 19 06)
      #Y(SYSTEM::CASE-EXPAND-1
         #23Y(00 00 00 00 02 00 00 00 01 18 AE B0 31 83 DA B0 38 02 31 88 9E 19
              04)
         "-KEY-")
      COMMON-LISP::FORMAT COMMON-LISP::LET COMMON-LISP::COND
      SYSTEM::SOURCE-PROGRAM-ERROR "~S: missing key list" SYSTEM::TEXT
      COMMON-LISP::OTHERWISE "~S: the ~S clause must be the last one"
      COMMON-LISP::OR COMMON-LISP::QUOTE))
#Y(#:TOP-LEVEL-FORM-32
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   EXT::FCASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::FCASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           5C 78 A1 5C 5C 79 DC AF AF AF 2D 04 03 19 06 AE 2F 01 19 03)
      3. SYSTEM::MACRO-CALL-ERROR EXT::FCASE SYSTEM::CASE-EXPAND)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-33 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::CASE EXT::MACRO
   #Y(COMMON-LISP::CASE
      #38Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0F 9F 5C 78 A0 5C
           79 DC DD AF AF 2D 04 04 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CASE COMMON-LISP::EQL
      SYSTEM::CASE-EXPAND))
#Y(#:TOP-LEVEL-FORM-34
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::PROG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PROG
      #66Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 29 9F 5C 78
           A0 5C 79 AC 63 B1 31 5E 42 02 93 00 06 DC 9E 7A 61 01 F8 DD 63 DE B2
           B0 DF A4 7A 7B 01 33 02 23 7C 02 61 03 19 07 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DECLARE COMMON-LISP::BLOCK
      COMMON-LISP::LET COMMON-LISP::TAGBODY)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-35
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::PROG* SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PROG*
      #66Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 29 9F 5C 78
           A0 5C 79 AC 63 B1 31 5E 42 02 93 00 06 DC 9E 7A 61 01 F8 DD 63 DE B2
           B0 DF A4 7A 7B 01 33 02 23 7C 02 61 03 19 07 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DECLARE COMMON-LISP::BLOCK
      COMMON-LISP::LET* COMMON-LISP::TAGBODY)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-36 #17Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 19 01)
   COMMON-LISP::COND EXT::MACRO
   #Y(COMMON-LISP::COND
      #37Y(00 00 00 00 01 00 01 00 00 08 95 02 38 01 72 8E AD AD 30 00 42 02 92
           00 03 9E 19 07 DB AF 7B 01 AF 61 03 19 07)
      SYSTEM::IFIFY COMMON-LISP::LET))
#Y(#:TOP-LEVEL-FORM-37
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::IFIFY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::IFIFY
      #183Y(00 00 00 00 02 00 00 00 00 03 92 02 10 01 02 40 02 19 03 DA DB 6F
            02 A1 1B 11 93 02 70 9F 20 73 9F 5B 21 80 57 DA DD 6F 02 A1 5B 14
            33 01 1F DE A2 5B 5C 5D 1B 3F A1 5B 5C 5C 1C 73 A1 5B 5C 5B 1B 33
            A1 5B 78 8C 5A 6E 9E 1B 80 55 DE A4 5B 5C 5D 1B 80 49 A1 5B 78 38
            01 8C 5D 66 DF A2 5B 78 A3 5B 5C 5C 1C 66 A3 5B 5C 5B 1B 31 A1 5B
            78 8D 5A 07 A1 5B 5B 14 00 1B 39 9E 1B 25 95 02 AE 28 FF 98 42 02
            A1 5B 5C 1C 4B A1 5B 78 38 01 8C 5D 5B A1 5B 5B 21 0F DF A2 5B 78
            A3 5B 5B 14 B0 61 04 14 9E 1B 0D DF E0 B1 A4 5B 78 7B 03 B1 B0 7B
            04 02 14 40 02 19 05)
      SYSTEM::SOURCE-PROGRAM-ERROR "Not a list of COND clauses: ~S"
      SYSTEM::TEXT "The atom ~S must not be used as a COND clause."
      COMMON-LISP::PROGN COMMON-LISP::IF COMMON-LISP::SETQ))
#Y(#:TOP-LEVEL-FORM-38
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::MAPCAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::MAPCAP
      #63Y(00 00 00 00 01 00 00 00 01 17 63 AF 63 B0 1B 21 16 01 AC 31 A2 16 01
           77 00 72 46 AD 82 02 24 00 1B 69 94 00 94 00 AE 95 02 31 A7 6A 00 84
           01 83 00 9D 20 5C 9D 5B 21 6A 16 03 AC 31 A2 19 04)))
#Y(#:TOP-LEVEL-FORM-39
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::MAPLAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::MAPLAP
      #60Y(00 00 00 00 01 00 00 00 01 17 63 AF 63 B0 1B 1E 16 01 AC 31 A2 16 01
           77 00 72 46 AD 82 02 24 00 1B 69 94 00 AD 9F 5B 79 31 A7 84 01 83 00
           9D 20 5F 9D 5B 21 6D 16 03 AC 31 A2 19 04)))
