(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
   #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::TYPECASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::TYPECASE
      #127Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0F 9F 5C 78 A0
            5C 79 38 01 72 8E 63 AE 1B 80 49 AE 2F 01 19 03 DC DD 6F 04 DF 94
            03 33 02 1F AC CB 5A 16 01 1D 1E 64 9E 5B 5C 1C 01 CC 7A 84 01 16
            01 1B 2A 9D 5B 20 5D 9D 5B 78 AC 02 5A 1D 5F 16 01 1C 62 E2 AF E3
            A0 5B 78 7B 02 7B 03 9E 5B 5C 1C 01 CF 7A 84 01 83 00 9D 21 58 16
            01 E5 AE B1 7B 02 7B 01 E6 AF 32 47 7A 61 03 19 07)
      2. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "Invalid clause in ~S: ~S" SYSTEM::TEXT COMMON-LISP::TYPECASE
      COMMON-LISP::OTHERWISE (COMMON-LISP::NIL) COMMON-LISP::TYPEP
      COMMON-LISP::QUOTE (COMMON-LISP::NIL) COMMON-LISP::LET COMMON-LISP::COND)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TYPE-ERROR-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TYPE-ERROR-STRING
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) "~A~%The value is: ~S"
      SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CHECK-TYPE-ERROR-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CHECK-TYPE-ERROR-STRING
      #22Y(00 00 00 00 03 00 00 00 00 04 63 DA 6F 01 B1 B1 B1 2D 05 02 19 04)
      "The value of ~S should be ~:[of type ~S~;~:*~A~]." SYSTEM::TEXT
      COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-5
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::REPORT-ONE-NEW-VALUE-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REPORT-ONE-NEW-VALUE-STRING
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
      "You may input a new value." SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-6
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PROMPT-FOR-NEW-VALUE-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PROMPT-FOR-NEW-VALUE-STRING
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) "~%New ~S: "
      SYSTEM::TEXT))
#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::CHECK-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::CHECK-TYPE
      #110Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 45 DB 91 02 32 80 55 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 5C 1D 05 A1 5C 5C 5C 5B 14 38 01 72 8E 38
            01 72 8E DD AE DE DF B4 E0 B5 7B 02 7B 03 E1 B1 7B 02 7B 03 E2 E3
            E4 E5 E0 B8 7B 02 B6 E0 B9 7B 02 7B 04 B7 7B 05 E6 E7 E8 E0 B8 7B
            02 7B 04 E9 B6 D5 7C 02 E1 B4 7B 02 B3 61 08 19 08 AE 2F 02 19 03)
      3. 4. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TAGBODY COMMON-LISP::WHEN
      COMMON-LISP::TYPEP COMMON-LISP::QUOTE COMMON-LISP::GO COMMON-LISP::CERROR
      (SYSTEM::REPORT-ONE-NEW-VALUE-STRING) (SYSTEM::TYPE-ERROR-STRING)
      SYSTEM::CHECK-TYPE-ERROR-STRING COMMON-LISP::FORMAT
      COMMON-LISP::*QUERY-IO* (SYSTEM::PROMPT-FOR-NEW-VALUE-STRING)
      COMMON-LISP::SETF ((COMMON-LISP::READ COMMON-LISP::*QUERY-IO*)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-8
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::REPORT-NO-NEW-VALUE-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REPORT-NO-NEW-VALUE-STRING
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) "Retry" SYSTEM::TEXT))
#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::REPORT-NEW-VALUES-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::REPORT-NEW-VALUES-STRING
      #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01)
      "You may input new values." SYSTEM::TEXT))
#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::ASSERT-ERROR-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::ASSERT-ERROR-STRING
      #20Y(00 00 00 00 01 00 00 00 00 02 63 DA 6F 01 AF 2D 03 02 19 02)
      "~S must evaluate to a non-NIL value." SYSTEM::TEXT COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-11
   #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::ASSERT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::ASSERT
      #170Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 58 9F 5C 78
            A0 5C 5C 1D 04 A0 5C 5C 5B 14 A1 5C 5C 5C 1D 05 A1 5C 5C 5C 5B 14
            A2 5C 5C 5C 79 38 01 72 8E 38 01 72 8E DC AE DD B4 DE B1 7B 02 7B
            03 DF B4 72 45 AC 24 06 25 AC 24 08 24 CF F8 E5 92 09 01 D1 14 7B
            02 92 09 1A E7 E5 B9 7B 02 7B 02 61 01 7C 03 63 B5 1B 28 AE 2F 01
            19 03 CC 1B 5D CE 1B 5A A5 1B 6C 94 00 E8 E9 EA E5 B0 7B 02 7B 04
            EB AE D7 7C 02 7B 02 AF 80 A1 02 16 01 83 00 9D 21 63 16 01 AC 80
            A2 00 DE B3 7B 02 B2 7B 02 33 02 23 62 04 19 09)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TAGBODY COMMON-LISP::WHEN
      COMMON-LISP::GO COMMON-LISP::CERROR 0.
      (SYSTEM::REPORT-NO-NEW-VALUE-STRING) 1.
      (SYSTEM::REPORT-ONE-NEW-VALUE-STRING) (SYSTEM::REPORT-NEW-VALUES-STRING)
      COMMON-LISP::QUOTE "~A" SYSTEM::ASSERT-ERROR-STRING COMMON-LISP::FORMAT
      COMMON-LISP::*QUERY-IO* (SYSTEM::PROMPT-FOR-NEW-VALUE-STRING)
      COMMON-LISP::SETF ((COMMON-LISP::READ COMMON-LISP::*QUERY-IO*)))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TYPECASE-ERROR-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TYPECASE-ERROR-STRING
      #21Y(00 00 00 00 02 00 00 00 00 03 63 DA 6F 01 B0 B0 2D 04 02 19 03)
      "The value of ~S must be of one of the types ~{~S~^, ~}" SYSTEM::TEXT
      COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-13
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CASE-ERROR-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CASE-ERROR-STRING
      #21Y(00 00 00 00 02 00 00 00 00 03 63 DA 6F 01 B0 B0 2D 04 02 19 03)
      "The value of ~S must be one of ~{~S~^, ~}" SYSTEM::TEXT
      COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-14
   #49Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 DE 2F 01 DE DF
        6F 03 32 80 E0 2F 01 E0 E1 6F 03 32 80 E2 2F 01 E2 E3 6F 03 32 80 CD 19
        01)
   COMMON-LISP::ETYPECASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::ETYPECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TYPECASE
      #1=#Y(SYSTEM::TYPECASE-ERRORSTRING
            #28Y(00 00 00 00 02 00 00 00 00 03 DA AE 73 00 17 DB DC B1 7B 02 DC
                 AF 7B 02 61 03 19 04)
            #.#'COMMON-LISP::FIRST SYSTEM::TYPECASE-ERROR-STRING
            COMMON-LISP::QUOTE)
      #Y(SYSTEM::TYPECASE-EXPECTED-TYPE
         #19Y(00 00 00 00 01 00 00 00 00 02 DA DB AF 33 00 17 5D 19 02)
         COMMON-LISP::OR #.#'COMMON-LISP::FIRST)
      #2=#Y(SYSTEM::SIMPLY-ERROR
            #54Y(00 00 00 00 05 00 00 00 00 06 38 01 72 8E DA AD B3 7B 02 7B 01
                 B4 AF B4 C6 74 DC DD DE DF B5 E0 E1 BA 7B 02 E2 BC BA 7B 09 7B
                 02 7B 01 33 02 23 7C 02 61 03 19 07)
            COMMON-LISP::LET
            #3=#Y(SYSTEM::PARENTHESIZE-KEYS
                  #62Y(00 00 00 00 01 00 00 00 00 02 63 AE 1B 26 DB 6F 02 94 01
                       AE 2D 03 03 94 00 7B 01 9E 5C 5D 1B 0D 94 00 94 00 02 22
                       67 94 00 24 00 62 9D 14 84 02 16 01 83 00 9D 21 69 16 01
                       AC 31 A2 19 03)
                  COMMON-LISP::OTHERWISE
                  "~S used as a key in ~S, it would be better to use parentheses."
                  SYSTEM::TEXT COMMON-LISP::WARN)
            COMMON-LISP::OTHERWISE SYSTEM::ERROR-OF-TYPE
            'COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::QUOTE
            (SYSTEM::TYPE-ERROR-STRING)))
   SYSTEM::MAKE-MACRO COMMON-LISP::CTYPECASE
   #Y(COMMON-LISP::CTYPECASE
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 11 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 C9 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TYPECASE #1#
      #4=#Y(SYSTEM::RETRY-LOOP
            #72Y(00 00 00 00 04 00 00 00 00 05 38 01 72 8E 38 01 72 8E DA AE DB
                 AF DC B2 B8 B8 B8 C8 74 DE DF E0 E1 BC BF 7B 05 E2 E3 E4 E5 C0
                 7B 02 7B 04 E6 BE D2 7C 02 E8 BA 7B 02 7B 05 7B 01 33 02 23 7C
                 02 7B 03 7B 03 61 03 19 07)
            COMMON-LISP::BLOCK COMMON-LISP::TAGBODY COMMON-LISP::RETURN-FROM
            #3# COMMON-LISP::OTHERWISE COMMON-LISP::CERROR
            (SYSTEM::REPORT-ONE-NEW-VALUE-STRING) (SYSTEM::TYPE-ERROR-STRING)
            COMMON-LISP::FORMAT COMMON-LISP::*QUERY-IO*
            (SYSTEM::PROMPT-FOR-NEW-VALUE-STRING) COMMON-LISP::QUOTE
            COMMON-LISP::SETF ((COMMON-LISP::READ COMMON-LISP::*QUERY-IO*))
            COMMON-LISP::GO))
   COMMON-LISP::ECASE
   #Y(COMMON-LISP::ECASE
      #43Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 14 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 B0 C9 74 CA 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CASE
      #5=#Y(SYSTEM::CASE-ERRORSTRING
            #26Y(00 00 00 00 02 00 00 00 00 03 AD C5 74 DB DC B1 7B 02 DC AF 7B
                 02 61 03 19 04)
            #6=#Y(SYSTEM::CASE-LIST
                  #49Y(00 00 00 00 01 00 00 00 00 02 63 AE 1B 19 9D 1B 0D 94 00
                       AC 87 00 00 14 8E 09 73 AC 61 01 F8 AF 80 A0 02 16 01 83
                       00 9D 21 67 16 01 AC 31 A2 19 03))
            SYSTEM::CASE-ERROR-STRING COMMON-LISP::QUOTE)
      #Y(SYSTEM::CASE-EXPECTED-TYPE
         #17Y(00 00 00 00 01 00 00 00 00 02 DA AE C6 34 5D 19 02)
         COMMON-LISP::MEMBER #6#)
      #2#)
   COMMON-LISP::CCASE
   #Y(COMMON-LISP::CCASE
      #40Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 11 9F 5C 78 A0 5C
           79 DC AE AE B0 B0 C8 74 C9 34 19 05 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::CASE #5# #4#))
#Y(#:TOP-LEVEL-FORM-15
   #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::DEFTYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFTYPE
      #217Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 26 9F 5C
            78 A0 5C 5C 78 A1 5C 5C 79 AE 8F 04 1C AE DF 38 01 8E 82 07 AE E0
            38 01 8F 82 12 DC CC 14 6F 04 B0 33 01 1F AE 2F 01 19 03 DC C8 1B
            70 AC 64 B2 31 5E 42 03 93 01 06 E2 9F 7A 61 01 F9 CE 10 0A CE 10
            0B 00 10 0C 00 10 0D 00 10 0E D4 10 10 C2 EB 66 19 EC 2D 04 13 EC
            6F 14 EF 6B 0D 72 47 C2 6B 0E 72 47 F0 66 1D 04 1B 7C 02 7B 01 33
            03 23 7C 02 93 01 07 F1 AE F2 AF 61 04 F8 F3 F4 F5 63 F6 F7 66 1F
            7B 02 65 1E 65 1F 65 20 66 22 71 4A 73 02 13 71 C9 65 21 65 22 B7
            7B 03 7B 03 7B 04 65 23 65 24 F7 66 21 7B 02 03 25 7C 02 F7 66 1C
            7B 02 7B 03 F7 66 20 7B 02 7B 05 61 03 16 02 12 06 19 09)
      3. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "type name should be a symbol, not ~S" SYSTEM::TEXT SYSTEM::TYPE-SYMBOL
      SYSTEM::TYPE-LIST "~S is a built-in type and may not be redefined."
      COMMON-LISP::DECLARE 0. SYSTEM::%ARG-COUNT SYSTEM::%MIN-ARGS
      SYSTEM::%RESTP SYSTEM::%LET-LIST SYSTEM::%KEYWORD-TESTS 'COMMON-LISP::*
      SYSTEM::%DEFAULT-FORM (COMMON-LISP::CDR SYSTEM::<DEFTYPE-FORM>)
      SYSTEM::<DEFTYPE-FORM> SYSTEM::ANALYZE1 SYSTEM::MAKE-LENGTH-TEST
      COMMON-LISP::LET* COMMON-LISP::BLOCK COMMON-LISP::IF
      (SYSTEM::TYPE-CALL-ERROR SYSTEM::<DEFTYPE-FORM>) COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::COMPILE COMMON-LISP::LOAD COMMON-LISP::EVAL)
      COMMON-LISP::LET SYSTEM::%PUT COMMON-LISP::QUOTE
      'SYSTEM::DEFTYPE-EXPANDER COMMON-LISP::FUNCTION "DEFTYPE-"
      COMMON-LISP::LAMBDA (SYSTEM::<DEFTYPE-FORM>) COMMON-LISP::SETF
      COMMON-LISP::DOCUMENTATION ('COMMON-LISP::TYPE))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::TYPE-CALL-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TYPE-CALL-ERROR
      #24Y(00 00 00 00 01 00 00 00 00 02 DA DB 6F 02 94 03 B0 72 45 72 96 33 02
           1F)
      COMMON-LISP::ERROR
      "The deftype expander for ~S may not be called with ~S arguments."
      SYSTEM::TEXT))
#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::DEFINE-SYMBOL-MACRO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFINE-SYMBOL-MACRO
      #85Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 35 9F 5C 78 A0 5C
           5C 78 AD 8F 04 2F E0 63 E1 E2 E3 E4 B3 7B 02 7B 02 E5 E4 B4 7B 02 7B
           02 E6 E4 B5 7B 02 E7 E4 B6 7B 02 7B 02 7B 03 7B 05 E4 B1 7B 02 61 04
           19 05 AE 2F 01 19 03 DC DD 6F 04 DF B0 33 02 1F)
      3. SYSTEM::MACRO-CALL-ERROR SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: the name of a symbol macro must be a symbol, not ~S" SYSTEM::TEXT
      COMMON-LISP::DEFINE-SYMBOL-MACRO COMMON-LISP::LET COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::COMPILE COMMON-LISP::LOAD COMMON-LISP::EVAL)
      SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P COMMON-LISP::QUOTE
      COMMON-LISP::MAKUNBOUND SYSTEM::SET-SYMBOL-VALUE
      SYSTEM::MAKE-SYMBOL-MACRO)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::CHECK-NOT-SPECIAL-VARIABLE-P
      #26Y(00 00 00 00 01 00 00 00 00 02 AD 32 8D 1F 09 DA DB 6F 02 DD B0 33 02
           1F 19 02)
      COMMON-LISP::PROGRAM-ERROR "~S: the symbol ~S names a global variable"
      SYSTEM::TEXT COMMON-LISP::DEFINE-SYMBOL-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::GENSYM-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::GENSYM-LIST
      #30Y(00 00 00 00 01 00 00 00 00 02 AD 8E 06 0D AD 32 45 14 38 01 71 9C DA
           30 01 19 02 9E 1B 73)
      #.#'COMMON-LISP::GENSYM COMMON-LISP::MAP-INTO))
#Y(#:TOP-LEVEL-FORM-20
   #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::TIME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::TIME
      #46Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 17 9F 5C 78 DC 6F
           03 DE AD DF E0 B1 E1 E2 E3 A5 7C 03 7B 03 61 04 19 05 AE 2F 01 19
           03)
      2. SYSTEM::MACRO-CALL-ERROR 9. SYSTEM::GENSYM-LIST
      COMMON-LISP::MULTIPLE-VALUE-BIND (SYSTEM::%%TIME)
      COMMON-LISP::UNWIND-PROTECT COMMON-LISP::MULTIPLE-VALUE-CALL
      #'SYSTEM::%TIME (SYSTEM::%%TIME))
   SYSTEM::MAKE-MACRO)
#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::SPACE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::SPACE
      #125Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 80 65 9F 5C 78
            38 01 72 8E 38 01 72 8E 38 01 72 8E 38 01 72 8E DC 6F 03 DC 6F 03
            DE DF AF CB 7C 02 E1 B5 DF B1 CD 7C 02 7B 03 61 03 FE E3 B2 B2 B2
            B2 B2 B2 33 02 23 7C 04 E4 E1 E5 E6 E1 E7 B7 E8 BC 7B 02 7B 03 E7
            B7 D4 7C 02 7B 03 7B 03 EA B7 B7 B7 B7 7B 05 EB B3 B5 33 02 23 7A
            7B 04 EC B4 7B 02 61 05 19 0A AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR 9. SYSTEM::GENSYM-LIST COMMON-LISP::PROGN
      COMMON-LISP::MULTIPLE-VALUE-SETQ ((SYSTEM::%%TIME))
      COMMON-LISP::UNWIND-PROTECT ((SYSTEM::%%TIME))
      COMMON-LISP::MULTIPLE-VALUE-BIND (SYSTEM::%SPACE1) COMMON-LISP::LET
      ((SYSTEM::*GC-STATISTICS*
        (COMMON-LISP::1+ (COMMON-LISP::MAX SYSTEM::*GC-STATISTICS* 0.))))
      COMMON-LISP::SETQ COMMON-LISP::MULTIPLE-VALUE-LIST ((SYSTEM::%SPACE2))
      SYSTEM::%SPACE SYSTEM::%TIME COMMON-LISP::VALUES-LIST)
   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::WITH-INPUT-FROM-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-INPUT-FROM-STRING
      #192Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 80 79 9F
            5C 5B 78 A0 5C 5B 5C 78 A1 5C 5B 5C 79 AC DC 6B 03 72 83 AC 0E 03
            22 80 64 02 14 AE DE 6B 03 72 83 AC 0E 03 22 80 5B 02 14 B0 E0 6B
            03 72 83 AC 0E 03 22 80 53 02 14 A8 5C 79 B3 E1 31 5F AC 63 B9 31
            5E 42 02 E2 B8 E3 B9 92 09 80 47 92 07 80 43 00 7C 02 7B 02 7B 01
            E4 E5 BB 7B 02 A1 7C 02 E6 E7 A3 7A 92 0C 36 00 14 EA BE 7B 02 7B
            01 33 02 23 7C 02 61 04 19 0F AE 2F 01 19 03 7D 00 1B FF 98 CA F8
            00 1B FF A0 7D 00 1B FF A9 B5 61 01 5D 1B FF BE B6 92 08 75 00 5D
            1B FF B5 E8 BA E9 BF 7B 02 7B 03 61 01 1B FF BE)
      2. SYSTEM::MACRO-CALL-ERROR :INDEX SYSTEM::MACRO-MISSING-VALUE :START 0.
      :END (:END :START :INDEX) COMMON-LISP::LET
      COMMON-LISP::MAKE-STRING-INPUT-STREAM COMMON-LISP::DECLARE
      SYSTEM::READ-ONLY COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN
      COMMON-LISP::SETF SYSTEM::STRING-INPUT-STREAM-INDEX COMMON-LISP::CLOSE)
   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::WITH-OPEN-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-OPEN-FILE
      #91Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 80 41 9F 5C
           5B 78 A0 5C 5B 79 A1 5C 79 AC 63 B2 31 5E 42 02 DC B1 DD A3 7A 7B 02
           7B 01 DE DF B4 7B 02 A1 7C 02 E0 E1 E2 A4 7A E3 B7 E4 B9 7B 02 7B 03
           7B 03 E3 B6 E4 B8 D0 7C 02 7B 03 7B 03 61 04 19 08 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET COMMON-LISP::OPEN
      COMMON-LISP::DECLARE SYSTEM::READ-ONLY COMMON-LISP::UNWIND-PROTECT
      COMMON-LISP::MULTIPLE-VALUE-PROG1 COMMON-LISP::PROGN COMMON-LISP::WHEN
      COMMON-LISP::CLOSE (:ABORT COMMON-LISP::T))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-24
   #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::WITH-OPEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-OPEN-STREAM
      #81Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 38 9F 5C 5B
           78 A0 5C 5B 5C 78 A1 5C 79 AC 63 B2 31 5E 42 02 DC B1 B1 7B 02 7B 01
           DD DE B4 7B 02 A1 7C 02 DF E0 E1 A4 7A E2 B7 7B 02 7B 03 E2 B6 CE 7C
           02 7B 03 61 04 19 08 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET COMMON-LISP::DECLARE
      SYSTEM::READ-ONLY COMMON-LISP::UNWIND-PROTECT
      COMMON-LISP::MULTIPLE-VALUE-PROG1 COMMON-LISP::PROGN COMMON-LISP::CLOSE
      (:ABORT COMMON-LISP::T))
   SYSTEM::MAKE-MACRO)
#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::WITH-OUTPUT-TO-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-OUTPUT-TO-STRING
      #146Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 80 53 9F
            5C 5B 78 A0 5C 5B 5C 1D 05 A0 5C 5B 5C 5B 14 A1 5C 5B 5C 79 AC DC
            63 72 83 A3 5C 79 AE DD 31 5F AC 63 B4 31 5E 42 02 92 05 2D DE B3
            E6 DC B3 7B 03 7B 02 7B 01 AE E2 E3 B2 E7 B9 7B 02 7B 01 33 02 23
            7A E5 B8 7B 02 7B 03 7B 01 33 02 23 62 02 19 0A AE 2F 01 19 03 DE
            B3 DF B4 7B 02 7B 02 7B 01 E0 E1 B6 7B 02 A1 7C 02 E2 E3 B4 92 07
            01 CF 7C 02 E5 B8 7B 02 7B 03 61 04 19 0A)
      2. SYSTEM::MACRO-CALL-ERROR :ELEMENT-TYPE (:ELEMENT-TYPE)
      COMMON-LISP::LET SYSTEM::MAKE-STRING-PUSH-STREAM COMMON-LISP::DECLARE
      SYSTEM::READ-ONLY COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN
      (COMMON-LISP::NIL) COMMON-LISP::CLOSE
      COMMON-LISP::MAKE-STRING-OUTPUT-STREAM
      COMMON-LISP::GET-OUTPUT-STREAM-STRING)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-26 #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-27 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (COMMON-LISP::SPACE EXT::WITH-OUTPUT-TO-PRINTER))
#Y(#:TOP-LEVEL-FORM-28 #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-29
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   EXT::WITH-OUTPUT-TO-PRINTER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::WITH-OUTPUT-TO-PRINTER
      #85Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 3C 9F 5C 5B
           78 A0 5C 5B 79 A1 5C 79 AD DC 31 5F AC 63 B2 31 5E 42 02 93 00 06 DD
           9E 7A 61 01 F8 DE B1 DF A3 7A 7B 02 7B 01 AE E0 E1 A3 7A E2 B6 7B 02
           7B 03 7B 01 33 02 23 62 02 19 08 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR (:EXTERNAL-FORMAT) COMMON-LISP::DECLARE
      COMMON-LISP::LET SYSTEM::MAKE-PRINTER-STREAM COMMON-LISP::UNWIND-PROTECT
      COMMON-LISP::PROGN COMMON-LISP::CLOSE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-30
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-PRINTER-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-PRINTER-STREAM
      #27Y(00 00 00 00 00 00 00 00 80 1B 01 00 00 00 3B 01 02 C6 F9 DC DA AF 2D
           03 03 19 02)
      :EXTERNAL-FORMAT :DEFAULT "lpr" EXT::MAKE-PIPE-OUTPUT-STREAM))
#Y(#:TOP-LEVEL-FORM-31 #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-32 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   EXT::WITHOUT-FLOATING-POINT-UNDERFLOW)
#Y(#:TOP-LEVEL-FORM-33 #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-34
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   EXT::WITHOUT-FLOATING-POINT-UNDERFLOW SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::WITHOUT-FLOATING-POINT-UNDERFLOW
      #21Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC A0 7A 61 03 19 04)
      COMMON-LISP::LET
      ((SYSTEM::*INHIBIT-FLOATING-POINT-UNDERFLOW* COMMON-LISP::T))
      COMMON-LISP::PROGN)
   SYSTEM::MAKE-MACRO)
