(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)
   "COMMON-LISP" 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)
   (COMMON-LISP::NTH-VALUE COMMON-LISP::FUNCTION-LAMBDA-EXPRESSION
    COMMON-LISP::DEFPACKAGE COMMON-LISP::PRINT-UNREADABLE-OBJECT
    COMMON-LISP::DECLAIM COMMON-LISP::DESTRUCTURING-BIND
    COMMON-LISP::COMPLEMENT COMMON-LISP::CONSTANTLY
    COMMON-LISP::WITH-STANDARD-IO-SYNTAX COMMON-LISP::WITH-HASH-TABLE-ITERATOR
    COMMON-LISP::READ-SEQUENCE COMMON-LISP::WRITE-SEQUENCE))
#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)
   COMMON-LISP::NTH-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::NTH-VALUE
      #119Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 1C 9F 5C 78 A0
            5C 5C 78 AD 8F 0A 07 AD DC 90 01 33 80 46 E4 AE E5 AF 7B 02 61 03
            19 05 AE 2F 01 19 03 DE AD 61 02 19 05 AD DC 90 01 2E 74 38 01 72
            8E AC 7B 01 63 B0 1B 0E 38 01 72 8E AC 84 03 AC 84 02 16 01 86 00
            AC 8F 90 6E DF AF B2 E0 E1 A3 7A 7B 02 B3 61 05 19 09 AD DD 90 01
            30 49 E2 AD CE 62 02 19 05)
      3. SYSTEM::MACRO-CALL-ERROR 0. 127. COMMON-LISP::PROG1
      COMMON-LISP::MULTIPLE-VALUE-BIND COMMON-LISP::DECLARE COMMON-LISP::IGNORE
      COMMON-LISP::PROGN (COMMON-LISP::NIL) COMMON-LISP::NTH
      COMMON-LISP::MULTIPLE-VALUE-LIST)
   SYSTEM::MAKE-MACRO)
#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)
   COMMON-LISP::FUNCTION-LAMBDA-EXPRESSION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::FUNCTION-LAMBDA-EXPRESSION
      #74Y(00 00 00 00 01 00 00 00 00 02 AD 8E 07 2A AD 8F 08 2B DA AE DB 32 29
           7A AE DC 72 29 AF DD 72 29 B0 DE 72 29 B1 DF 72 29 B2 E0 72 29 73 05
           00 AF E1 32 29 14 40 03 19 02 63 64 00 1B 76 E2 E3 AF E4 E5 E6 6F 0D
           E8 B4 33 06 1F)
      COMMON-LISP::LAMBDA 1. 4. 5. 6. 7. 8. 0. COMMON-LISP::TYPE-ERROR :DATUM
      :EXPECTED-TYPE COMMON-LISP::FUNCTION "~S: ~S is not a function"
      SYSTEM::TEXT COMMON-LISP::FUNCTION-LAMBDA-EXPRESSION))
#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::DEFPACKAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFPACKAGE
      #668Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 80 46 00 2B 01
            A0 5C 5B 0B 00 00 A0 5C 79 AD 6D 02 01 68 02 00 C8 34 0B 02 00 9F
            2B 01 01 06 DE 01 03 00 0B 0A 00 14 B7 6D 05 01 BA 63 AD 8C 91 81
            77 87 01 00 14 8E 09 81 51 E1 EC 6F 09 E4 68 14 00 CF 14 B1 33 04
            1F AE 2F 01 19 03 9D 5B 26 06 81 2A E1 E2 6F 09 E4 68 14 00 D0 1B
            81 28 92 0D 71 7E 0D 1B 81 3D E1 E6 6F 09 E4 68 14 00 D2 1B 81 14
            92 0C 71 7E 0C 1B 81 29 95 00 63 1B 0A 87 01 00 14 C8 74 84 0D 83
            01 AD 8D 91 72 16 02 1B 81 11 95 00 63 1B 18 87 01 00 14 04 12 34
            F8 14 B9 E8 38 02 8C B2 06 AC 84 0C AC A2 34 83 01 AD 8D 91 64 16
            02 1B 80 EB 9D 5C 78 C8 74 9E 5C 79 63 1B 1D 87 01 00 14 04 13 34
            F8 14 A0 7A AC BA E9 38 02 8C B2 06 AC 84 0D AD A4 34 16 01 83 01
            AD 8D 91 5F 16 03 1B 80 BA 95 00 63 1B 0A 87 01 00 14 C8 74 84 0A
            83 01 AD 8D 91 72 16 02 7D 07 1B 80 A0 9D 5C 78 C8 74 9E 5C 79 63
            1B 1D 87 01 00 14 04 13 34 F8 14 A0 7A AC B6 E9 38 02 8C B2 06 AC
            84 09 AD A4 34 16 01 83 01 AD 8D 91 5F 16 03 1B 80 6F 95 00 63 1B
            18 87 01 00 14 04 12 34 F8 14 B3 E8 38 02 8C B2 06 AC 84 06 AC A2
            34 83 01 AD 8D 91 64 16 02 1B 80 49 95 00 63 1B 15 87 01 00 14 04
            12 34 F8 14 B2 E8 38 02 8C B2 03 AC 84 05 83 01 AD 8D 91 67 16 02
            1B 27 E1 EA 6F 09 E4 68 14 00 A1 5B 14 33 03 1F 94 00 8E 8B FE BC
            E1 EB 6F 09 E4 68 14 00 CF 1B FE A6 9D 5C 5B 1D 02 7E 06 83 01 1B
            FE 84 16 02 7F 02 0C 00 AC AE 33 00 19 16 01 B4 81 47 08 B3 81 47
            07 B2 81 47 06 92 04 03 B1 32 47 FD AE 81 47 02 AD 81 47 01 AC 81
            47 00 ED EE EF 68 11 00 F0 F1 BA 7B 02 F2 F3 93 0B 02 03 1A 7C 06
            93 0A 10 F5 F1 F6 B9 73 00 17 7B 02 68 13 00 7B 03 61 01 14 63 B7
            1B 12 94 00 F7 94 01 95 02 68 18 00 7B 04 84 02 16 01 83 00 9D 21
            6B 16 01 AC 80 A2 00 93 0A 0D 65 1E F1 B8 7B 02 68 15 00 7B 03 61
            01 14 63 B5 1B 13 94 00 65 1F 94 01 95 02 68 1A 00 7B 04 84 02 16
            01 83 00 9D 21 6A 16 01 AC 80 A2 00 63 B5 1B 10 94 00 65 20 AD 68
            1A 00 7B 03 84 02 16 01 83 00 9D 21 6D 16 01 AC 80 A2 00 93 08 0D
            65 21 F1 B6 7B 02 68 18 00 7B 03 61 01 14 65 22 68 18 00 7B 02 7B
            01 33 07 23 62 03 19 12)
      2. SYSTEM::MACRO-CALL-ERROR
      #Y(COMMON-LISP::DEFPACKAGE-CHECK-SYMNAME
         #38Y(00 00 00 00 01 00 00 00 00 02 AD 8E 05 10 AD 8E 04 0F DB DC 6F 03
              DE 69 00 01 B1 33 03 1F 9E 19 02 AD 32 8A 19 02)
         COMMON-LISP::NIL SYSTEM::SOURCE-PROGRAM-ERROR
         "~S ~A: symbol name ~S should be a string or a symbol" SYSTEM::TEXT
         COMMON-LISP::DEFPACKAGE)
      #Y(COMMON-LISP::DEFPACKAGE-CHECK-PACKNAME
         #35Y(00 00 00 00 01 00 00 00 00 02 AD 8E 05 0D AD 8E 04 0C DA DB 6F 02
              DD B0 33 02 1F 9E 19 02 AD 32 8A 19 02)
         SYSTEM::SOURCE-PROGRAM-ERROR
         "~S: package name ~S should be a string or a symbol" SYSTEM::TEXT
         COMMON-LISP::DEFPACKAGE)
      ("COMMON-LISP")
      #Y(COMMON-LISP::DEFPACKAGE-RECORD-SYMNAME
         #42Y(00 00 00 00 01 00 00 00 00 02 AD 69 00 01 DB 38 02 8C B2 0A AD 07
              00 01 5D 0C 00 01 19 02 DC DD 6F 04 DF 69 01 01 B1 33 03 1F)
         COMMON-LISP::NIL #.#'COMMON-LISP::STRING= SYSTEM::SOURCE-PROGRAM-ERROR
         "~S ~A: the symbol ~A must not be specified more than once"
         SYSTEM::TEXT COMMON-LISP::DEFPACKAGE)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:CASE-SENSITIVE . 332.)
         (:EXPORT . 266.) (:INTERN . 228.) (:IMPORT-FROM . 179.) (:USE . 153.)
         (:SHADOWING-IMPORT-FROM . 104.) (:SHADOW . 66.) (:NICKNAMES . 42.)
         (:DOCUMENTATION . 34.) (:SIZE . 14.))
      SYSTEM::SOURCE-PROGRAM-ERROR
      "~S ~A: the ~S option must not be given more than once" SYSTEM::TEXT
      COMMON-LISP::DEFPACKAGE :SIZE
      "~S ~A: the ~S option must not be given more than once" :DOCUMENTATION
      #.#'COMMON-LISP::STRING= #.#'COMMON-LISP::EQUAL
      "~S ~A: unknown option ~S" "~S ~A: invalid syntax in ~S option: ~S"
      "~S ~A: not a ~S option: ~S" COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::LOAD COMMON-LISP::COMPILE COMMON-LISP::EVAL)
      SYSTEM::%IN-PACKAGE :NICKNAMES COMMON-LISP::QUOTE :USE 'COMMON-LISP::NIL
      (:CASE-SENSITIVE COMMON-LISP::T) COMMON-LISP::SHADOW
      #.#'COMMON-LISP::MAKE-SYMBOL SYSTEM::SHADOWING-IMPORT-CERROR
      COMMON-LISP::USE-PACKAGE SYSTEM::IMPORT-CERROR COMMON-LISP::INTERN
      SYSTEM::INTERN-EXPORT COMMON-LISP::FIND-PACKAGE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FIND-SYMBOL-CERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FIND-SYMBOL-CERROR
      #40Y(00 00 00 00 03 00 00 00 00 04 AF AF 31 D3 42 02 92 00 12 DA 6F 01 DC
           6F 01 DD B2 B4 B6 2D 06 04 B1 B1 80 D2 01 9E 19 06)
      "This symbol will be created." SYSTEM::TEXT
      "~S ~A: There is no symbol ~A::~A ." COMMON-LISP::DEFPACKAGE
      COMMON-LISP::CERROR))
#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::SHADOWING-IMPORT-CERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::SHADOWING-IMPORT-CERROR
      #21Y(00 00 00 00 03 00 00 00 00 04 AF AF AF 6E 03 00 AE 31 D8 19 04)
      SYSTEM::FIND-SYMBOL-CERROR))
#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::IMPORT-CERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::IMPORT-CERROR
      #21Y(00 00 00 00 03 00 00 00 00 04 AF AF AF 6E 03 00 AE 31 D7 19 04)
      SYSTEM::FIND-SYMBOL-CERROR))
#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::INTERN-EXPORT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::INTERN-EXPORT
      #40Y(00 00 00 00 02 00 00 00 00 03 63 AF 1B 0C 94 00 AC B1 71 D2 84 02 16
           01 83 00 9D 21 71 16 01 AC 80 A2 00 AE 31 D5 19 03)))
#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::PRINT-UNREADABLE-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PRINT-UNREADABLE-OBJECT
      #59Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 1A 9F 5C 78 A0 5C
           5B 5C 79 A1 5C 79 AD DC 31 5F DD 92 01 0C 00 14 A1 62 02 19 06 AE 2F
           01 19 03 DE DF 63 A1 7C 02 61 02 1B 6B)
      2. SYSTEM::MACRO-CALL-ERROR (:IDENTITY :TYPE) SYSTEM::WRITE-UNREADABLE
      COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-12
   #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::DECLAIM SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DECLAIM
      #45Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 63 AE 1B 0F 94 00 DB DC AE 7B
           02 7B 02 84 02 16 01 83 00 9D 21 6E 16 01 AC 31 A2 16 01 5D 19 04)
      COMMON-LISP::PROGN COMMON-LISP::PROCLAIM COMMON-LISP::QUOTE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-13
   #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::DESTRUCTURING-BIND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DESTRUCTURING-BIND
      #143Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 80 72 9F
            5C 78 A0 5C 5C 78 A1 5C 5C 79 AC 63 B2 31 5E 42 02 93 00 06 DC 9E
            7A 61 01 F8 C8 10 04 C8 10 05 00 10 06 00 10 07 00 10 08 00 10 09
            C2 E4 E5 E4 2D 04 0C E4 DD 70 0D E8 6B 07 72 47 C1 6B 08 72 47 C4
            33 03 23 7C 02 93 01 16 E9 AE EA E4 EB 6B 05 0E 06 1C 21 0E 04 7A
            7B 02 7B 03 AF 61 04 F8 EC E4 66 19 7B 02 7B 01 AE 61 03 16 02 12
            06 19 08 AE 2F 01 19 03 00 1B 5E)
      3. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::DECLARE 0. SYSTEM::%ARG-COUNT
      SYSTEM::%MIN-ARGS SYSTEM::%RESTP SYSTEM::%LET-LIST SYSTEM::%KEYWORD-TESTS
      SYSTEM::%DEFAULT-FORM SYSTEM::<DESTRUCTURING-FORM>
      COMMON-LISP::DESTRUCTURING-BIND SYSTEM::ANALYZE1 SYSTEM::MAKE-LENGTH-TEST
      COMMON-LISP::LET* COMMON-LISP::IF SYSTEM::DESTRUCTURING-ERROR
      COMMON-LISP::QUOTE COMMON-LISP::LET)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DESTRUCTURING-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DESTRUCTURING-ERROR
      #29Y(00 00 00 00 02 00 00 00 00 03 94 01 95 02 DA DB 6F 02 AE B0 B0 71 FF
           B1 B1 B6 33 05 1F)
      COMMON-LISP::ERROR
      "The object to be destructured should be a list with ~:[at least ~*~S~;~:[from ~S to ~S~;~S~]~] elements, not ~4@*~S."
      SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::COMPLEMENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::COMPLEMENT
      #23Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 AC 2C 00 01 19
           03)
      #Y(COMMON-LISP::COMPLEMENT-1
         #19Y(00 00 00 00 00 00 00 00 01 16 69 00 01 9F 37 00 59 19 02)
         COMMON-LISP::NIL)))
#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)
   COMMON-LISP::CONSTANTLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::CONSTANTLY
      #23Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 AC 2C 00 01 19
           03)
      #Y(COMMON-LISP::CONSTANTLY-1
         #15Y(00 00 00 00 00 00 00 00 01 16 07 00 01 19 02) COMMON-LISP::NIL)))
#Y(#:TOP-LEVEL-FORM-17
   #37Y(00 00 00 00 00 00 00 00 00 01 DA 71 CA DB 38 01 8D 5D 0B AC DB 71 4D 8C
        FF 04 DB DC 30 03 DB AD 32 81 C6 19 02)
   #1="COMMON-LISP-USER" SYSTEM::*COMMON-LISP-USER-PACKAGE*
   (COMMON-LISP::DEFCONSTANT SYSTEM::*COMMON-LISP-USER-PACKAGE*
    (COMMON-LISP::FIND-PACKAGE #1#))
   SYSTEM::CONSTANT-WARNING)
#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::WITH-STANDARD-IO-SYNTAX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-STANDARD-IO-SYNTAX
      #40Y(00 00 00 00 01 00 01 00 00 08 3D 01 95 02 AC 63 B0 31 5E 42 02 DA DB
           93 02 05 DC A0 7A 61 01 14 B0 33 02 23 62 02 19 06)
      COMMON-LISP::LET
      ((COMMON-LISP::*PACKAGE* SYSTEM::*COMMON-LISP-USER-PACKAGE*)
       (COMMON-LISP::*PRINT-ARRAY* COMMON-LISP::T)
       (COMMON-LISP::*PRINT-BASE* 10.) (COMMON-LISP::*PRINT-CASE* ':UPCASE)
       (COMMON-LISP::*PRINT-CIRCLE* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-ESCAPE* COMMON-LISP::T)
       (COMMON-LISP::*PRINT-GENSYM* COMMON-LISP::T)
       (COMMON-LISP::*PRINT-LENGTH* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-LEVEL* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-LINES* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-MISER-WIDTH* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-PPRINT-DISPATCH* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-PRETTY* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-RADIX* COMMON-LISP::NIL)
       (COMMON-LISP::*PRINT-READABLY* COMMON-LISP::T)
       (COMMON-LISP::*PRINT-RIGHT-MARGIN* COMMON-LISP::NIL)
       (CUSTOM::*PRINT-CLOSURE* COMMON-LISP::NIL)
       (CUSTOM::*PRINT-RPARS* COMMON-LISP::NIL)
       (CUSTOM::*PRINT-INDENT-LISTS* 1.)
       (SYSTEM::*PRIN-STREAM* COMMON-LISP::NIL) (SYSTEM::*PRIN-LINELENGTH* 79.)
       (SYSTEM::*PRIN-LINE-PREFIX* COMMON-LISP::NIL)
       (COMMON-LISP::*READ-BASE* 10.)
       (COMMON-LISP::*READ-DEFAULT-FLOAT-FORMAT* 'COMMON-LISP::SINGLE-FLOAT)
       (COMMON-LISP::*READ-EVAL* COMMON-LISP::T)
       (COMMON-LISP::*READ-SUPPRESS* COMMON-LISP::NIL)
       (COMMON-LISP::*READTABLE*
        (COMMON-LISP::COPY-READTABLE COMMON-LISP::NIL)))
      COMMON-LISP::DECLARE)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-19
   #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-HASH-TABLE-ITERATOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WITH-HASH-TABLE-ITERATOR
      #82Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 33 9F 5C 5B 78 A0
           5C 5B 5C 78 A1 5C 79 AE 8F 04 28 38 01 72 8E DF AD E0 B1 7B 02 7B 02
           7B 01 E1 B2 63 E2 E3 B3 7B 02 7B 02 7B 03 7B 01 A2 7C 02 61 03 19 07
           AE 2F 01 19 03 DC 6F 03 DE B0 33 02 1E)
      2. SYSTEM::MACRO-CALL-ERROR "~S: macro name should be a symbol, not ~S"
      SYSTEM::TEXT COMMON-LISP::WITH-HASH-TABLE-ITERATOR COMMON-LISP::LET
      SYSTEM::HASH-TABLE-ITERATOR COMMON-LISP::MACROLET COMMON-LISP::QUOTE
      SYSTEM::HASH-TABLE-ITERATE)
   SYSTEM::MAKE-MACRO)
#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::LAMBDA SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::LAMBDA
      #29Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 06 DC AF 61 02 19
           03 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::FUNCTION)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-21
   #40Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA 63 6D 02 01 32 80 DD 1B 02 85
        00 99 00 AD 72 29 25 04 76 99 00 AD 30 05 19 02)
   SYSTEM::DISPATCH-READER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DISPATCH-READER
      #139Y(00 00 00 00 02 00 00 00 00 03 DB 01 02 B1 01 02 38 01 71 77 93 00
            11 AC 8E 1A 3E E1 DD B4 E2 6F 05 CB 14 B7 B7 33 05 1F DC DD B4 DE
            6F 05 CB 1B 71 E5 B0 73 02 38 AD 38 01 71 25 82 02 36 03 7E 01 16
            01 1B 48 E7 AD 31 27 5F 1B 33 E1 DD B4 E8 6F 05 E0 B7 B7 B5 33 06
            1F E3 AD E4 90 02 0B 51 9D FA 16 01 92 00 02 7D 02 16 01 AC 71 2A
            AC 71 27 E6 90 01 30 4F AC E7 D1 5F 14 38 01 31 62 14 93 00 49 AC
            B3 B0 B2 36 03 19 07)
      COMMON-LISP::NIL 0. COMMON-LISP::END-OF-FILE :STREAM
      "~S: input stream ~S ends within read macro beginning to ~S" SYSTEM::TEXT
      COMMON-LISP::READ COMMON-LISP::STREAM-ERROR
      "~S from ~S: character read should be a character: ~S" #\0 #\9 10. 256.
      #1=#()
      "~S from ~S: After ~S is ~S an undefined dispatch macro character")
   0. #1# SYSTEM::%DEFIO)
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::STREAM-INPUT-ELEMENT-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::STREAM-INPUT-ELEMENT-TYPE
      #50Y(00 00 00 00 01 00 00 00 00 02 AD AC 8E 6A 10 AC 8E 70 13 AC 8F 6E 14
           AE 2F 02 FA 16 01 1B 6B AE 6F 00 31 4D 1B 74 AE 2F 01 1B 6F 16 01 AD
           2F 03 19 02)
      COMMON-LISP::SYNONYM-STREAM-SYMBOL COMMON-LISP::ECHO-STREAM-INPUT-STREAM
      COMMON-LISP::TWO-WAY-STREAM-INPUT-STREAM
      COMMON-LISP::STREAM-ELEMENT-TYPE))
#Y(#:TOP-LEVEL-FORM-23
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::STREAM-OUTPUT-ELEMENT-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::STREAM-OUTPUT-ELEMENT-TYPE
      #50Y(00 00 00 00 01 00 00 00 00 02 AD AC 8E 6A 10 AC 8E 70 13 AC 8F 6E 14
           AE 2F 02 FA 16 01 1B 6B AE 6F 00 31 4D 1B 74 AE 2F 01 1B 6F 16 01 AD
           2F 03 19 02)
      COMMON-LISP::SYNONYM-STREAM-SYMBOL COMMON-LISP::ECHO-STREAM-OUTPUT-STREAM
      COMMON-LISP::TWO-WAY-STREAM-OUTPUT-STREAM
      COMMON-LISP::STREAM-ELEMENT-TYPE))
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::READ-SEQUENCE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::READ-SEQUENCE
      #51Y(00 00 00 00 02 00 00 00 81 00 02 00 00 00 B0 6F 02 93 00 11 AC 24 03
           0D AC DF 8B 06 0B CC 14 B3 B3 A4 9B 02 07 C9 1B 76 E2 6F 09 E4 E5 B4
           E6 E7 33 05 1E)
      :START :END SYSTEM::STREAM-INPUT-ELEMENT-TYPE COMMON-LISP::CHARACTER
      #.#'EXT::READ-CHAR-SEQUENCE COMMON-LISP::INTEGER COMMON-LISP::SUBTYPEP
      #.#'EXT::READ-BYTE-SEQUENCE
      "~S: ~S of ~S is ambiguous. Please use ~S or ~S." SYSTEM::TEXT
      COMMON-LISP::READ-SEQUENCE COMMON-LISP::STREAM-ELEMENT-TYPE
      EXT::READ-CHAR-SEQUENCE EXT::READ-BYTE-SEQUENCE))
#Y(#:TOP-LEVEL-FORM-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::WRITE-SEQUENCE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::WRITE-SEQUENCE
      #51Y(00 00 00 00 02 00 00 00 81 00 02 00 00 00 B0 6F 02 93 00 11 AC 24 03
           0D AC DF 8B 06 0B CC 14 B3 B3 A4 9B 02 07 C9 1B 76 E2 6F 09 E4 E5 B4
           E6 E7 33 05 1E)
      :START :END SYSTEM::STREAM-OUTPUT-ELEMENT-TYPE COMMON-LISP::CHARACTER
      #.#'EXT::WRITE-CHAR-SEQUENCE COMMON-LISP::INTEGER COMMON-LISP::SUBTYPEP
      #.#'EXT::WRITE-BYTE-SEQUENCE
      "~S: ~S of ~S is ambiguous. Please use ~S or ~S." SYSTEM::TEXT
      COMMON-LISP::WRITE-SEQUENCE COMMON-LISP::STREAM-ELEMENT-TYPE
      EXT::WRITE-CHAR-SEQUENCE EXT::WRITE-BYTE-SEQUENCE))
#Y(#:TOP-LEVEL-FORM-26
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 DA DD 63 2D 03 04 C5 19
        01)
   EXT::DESIGNATOR SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-DESIGNATOR
      #248Y(01 00 01 00 01 00 00 00 00 02 AD 72 45 DA 90 01 2F 2B 9E 5C 78 AC
            8F 04 80 D4 AC 24 02 24 AC 25 09 32 DD E3 2E 04 59 1D 0A DF E0 6B
            0A 72 96 7B 03 61 01 14 D0 14 33 02 23 62 02 19 03 AD 2F 01 19 02
            DD DC 2E 04 59 1D 07 DF E0 E1 7B 03 61 01 14 CD 1B 61 15 19 02 00
            2B 01 9F 5C 5B 0B 00 00 1B 3C E0 AD 33 01 32 16 01 1C 3F 9D 2B 01
            00 0B 00 00 4B 0D 20 E8 E9 EA B3 B2 6D 11 02 EC 99 13 EE EF 6E 08
            16 0E 17 5D 10 17 F2 F3 6F 1A 33 01 1E 03 20 1B 35 06 04 00 39 00
            00 4D 16 01 68 00 00 AC 8E 0A FF BC 16 01 1D 41 63 F5 68 02 00 6E
            03 1C F7 71 CA 71 D2 AC 8C 4F 07 AC AE 6D 1E 01 32 80 DD 68 02 00
            24 1F 48 00 14 E6 68 04 00 7B 02 65 21 65 22 65 23 B2 7B 02 7B 03
            7B 02 33 02 23 5D 19 06 94 00 AC 24 0C FF 6C 9E 19 04 9D 21 73 65
            24 AD 30 25 19 03)
      2. SYSTEM::TYPE-CALL-ERROR COMMON-LISP::CHARACTER COMMON-LISP::OR
      SYSTEM::ANSI COMMON-LISP::INTEGER 0. 65535.
      ((EXT::DESIGNATOR (COMMON-LISP::STRING 1.))) COMMON-LISP::BASE-CHAR
      EXT::BASE-CHAR-CODE-LIMIT ((EXT::DESIGNATOR (COMMON-LISP::STRING 1.)))
      COMMON-LISP::STRING #(COMMON-LISP::NIL) :NAME COMMON-LISP::CONTINUE
      :INVOKE-FUNCTION
      #Y(#:DEFTYPE-DESIGNATOR-1
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      :REPORT SYSTEM::REPORT-NO-NEW-VALUE :INTERACTIVE
      #Y(#:DEFTYPE-DESIGNATOR-2
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~A"
      (COMMON-LISP::TYPEP SYSTEM::N '(COMMON-LISP::INTEGER 0. COMMON-LISP::*))
      SYSTEM::ASSERT-ERROR-STRING
      #Y(#:DEFTYPE-DESIGNATOR-3
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 9E 19 04)
         "SYMBOL-OF-LENGTH-" SYSTEM::DO-FORMAT-DECIMAL)
      COMMON-LISP::FORMAT "SYSTEM"
      #Y(#:DEFTYPE-DESIGNATOR-4
         #29Y(00 00 00 00 01 00 00 00 00 02 AD 32 04 1F 0C AD 72 8A 72 45 69 00
              01 31 FF 19 02 19 02)
         COMMON-LISP::NIL)
      1. (COMMON-LISP::CHARACTER) COMMON-LISP::AND COMMON-LISP::SYMBOL
      COMMON-LISP::SATISFIES EXT::DESIGNATOR SYSTEM::TYPESPEC-ERROR)
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-27
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::RECOGNIZABLE-SEQUENCE-TYPE-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::RECOGNIZABLE-SEQUENCE-TYPE-P
      #24Y(00 00 00 00 01 00 00 00 00 02 AD DA 30 01 1E 06 AD DC 30 01 19 02 19
           02)
      COMMON-LISP::LIST COMMON-LISP::SUBTYPEP COMMON-LISP::VECTOR))
