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