(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::CHAR-BITS EXT::CHAR-FONT EXT::CHAR-FONT-LIMIT EXT::CHAR-BITS-LIMIT
    EXT::CHAR-CONTROL-BIT EXT::CHAR-META-BIT EXT::CHAR-SUPER-BIT
    EXT::CHAR-HYPER-BIT EXT::MAKE-CHAR EXT::CHAR-BIT EXT::SET-CHAR-BIT))
#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
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   EXT::CHAR-FONT-LIMIT 16. (COMMON-LISP::DEFCONSTANT EXT::CHAR-FONT-LIMIT 16.)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-5
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   EXT::CHAR-BITS-LIMIT 16. (COMMON-LISP::DEFCONSTANT EXT::CHAR-BITS-LIMIT 16.)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-6
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::CHAR-INT-LIMIT 16777216.
   (COMMON-LISP::DEFCONSTANT SYSTEM::CHAR-INT-LIMIT
    (COMMON-LISP::* COMMON-LISP::CHAR-CODE-LIMIT EXT::CHAR-FONT-LIMIT
     EXT::CHAR-BITS-LIMIT))
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-7
   #336Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 2F 05 E9 E5 EA 32 86 E9 EB 32 80 EC 31 59 ED 31 59 EE 2F
         05 EE E5 EF 32 86 EE F0 32 80 EE F1 DA 32 86 F2 31 59 F3 31 59 F4 2F
         05 F4 E5 F5 32 86 F4 F6 32 80 F4 F1 DA 32 86 F7 31 59 65 1E 31 59 65
         1F 2F 05 65 1F E5 65 20 32 86 65 1F 65 21 32 80 65 1F F1 DA 32 86 65
         22 31 59 65 23 31 59 65 24 2F 05 65 24 E5 65 25 32 86 65 24 65 26 32
         80 65 24 F1 DA 32 86 EE 65 27 32 87 EE 65 28 65 29 65 2A 03 2B 7C 02
         32 86 EE 65 2C 63 2D 03 2D EE 65 27 DA 32 86 F4 65 27 32 87 F4 65 28
         65 29 65 2A 03 2E 7C 02 32 86 F4 65 2C 63 2D 03 2D F4 65 27 DA 32 86
         65 1F 65 27 32 87 65 1F 65 28 65 29 65 2A 03 2F 7C 02 32 86 65 1F 65
         2C 63 2D 03 2D 65 1F 65 27 DA 32 86 65 24 65 27 32 87 65 24 65 28 65
         29 65 2A 03 30 7C 02 32 86 65 24 65 2C 63 2D 03 2D 65 24 65 27 DA 32
         86 DA 65 31 63 2D 03 2D DA 2F 32 C5 19 01)
   SYSTEM::INPUT-CHARACTER COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0. SYSTEM::MAKE-INPUT-CHARACTER
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-INPUT-CHARACTER
      #61Y(00 00 00 00 00 00 00 00 80 1B 04 00 01 00 3D 04 3B 03 02 CA FB 3B 02
           02 CA FA 3D 01 69 00 01 E0 72 2E E1 AD E2 B4 32 2D E1 AD E3 B3 32 2D
           E1 AD E4 B2 32 2D E1 AD E5 B1 32 2D 15 19 05)
      COMMON-LISP::NIL :CHAR :BITS :FONT :KEY 0. 5. SYSTEM::INPUT-CHARACTER 1.
      2. 3. 4.)
   (#(COMMON-LISP::CHAR (:CHAR) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      (COMMON-LISP::OR COMMON-LISP::NULL COMMON-LISP::CHARACTER)
      COMMON-LISP::NIL)
    #(SYSTEM::BITS (:BITS) 2. (COMMON-LISP::NIL . 0.) 0.
      (COMMON-LISP::INTEGER 0. 15.) COMMON-LISP::NIL)
    #(SYSTEM::FONT (:FONT) 3. (COMMON-LISP::NIL . 0.) 0.
      (COMMON-LISP::INTEGER 0. 15.) COMMON-LISP::NIL)
    #(SYSTEM::KEY (:KEY) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      (COMMON-LISP::OR COMMON-LISP::NULL COMMON-LISP::CHARACTER
       COMMON-LISP::SYMBOL)
      COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE SYSTEM::INPUT-CHARACTER-P)
   SYSTEM::INPUT-CHARACTER-P SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::INPUT-CHARACTER-P))
    (COMMON-LISP::BLOCK SYSTEM::INPUT-CHARACTER-P
     (SYSTEM::%STRUCTURE-TYPE-P 'SYSTEM::INPUT-CHARACTER SYSTEM::OBJECT)))
   #Y(SYSTEM::INPUT-CHARACTER-P
      #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      SYSTEM::INPUT-CHARACTER)
   (COMMON-LISP::INLINE SYSTEM::COPY-INPUT-CHARACTER)
   SYSTEM::COPY-INPUT-CHARACTER
   ((COMMON-LISP::STRUCTURE)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::COPY-INPUT-CHARACTER))
    (COMMON-LISP::BLOCK SYSTEM::COPY-INPUT-CHARACTER
     (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)))
   #Y(SYSTEM::COPY-INPUT-CHARACTER
      #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (COMMON-LISP::FUNCTION SYSTEM::INPUT-CHARACTER-CHAR
    (SYSTEM::INPUT-CHARACTER)
    #1=(COMMON-LISP::OR COMMON-LISP::NULL COMMON-LISP::CHARACTER))
   (COMMON-LISP::INLINE SYSTEM::INPUT-CHARACTER-CHAR)
   SYSTEM::INPUT-CHARACTER-CHAR
   (#2=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::INPUT-CHARACTER-CHAR))
    (COMMON-LISP::BLOCK SYSTEM::INPUT-CHARACTER-CHAR
     (COMMON-LISP::THE #1#
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::INPUT-CHARACTER SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::INPUT-CHARACTER-CHAR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::INPUT-CHARACTER 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::INPUT-CHARACTER-BITS
    (SYSTEM::INPUT-CHARACTER) #3=(COMMON-LISP::INTEGER 0. 15.))
   (COMMON-LISP::INLINE SYSTEM::INPUT-CHARACTER-BITS)
   SYSTEM::INPUT-CHARACTER-BITS
   (#2# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::INPUT-CHARACTER-BITS))
    (COMMON-LISP::BLOCK SYSTEM::INPUT-CHARACTER-BITS
     (COMMON-LISP::THE #3#
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::INPUT-CHARACTER SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::INPUT-CHARACTER-BITS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::INPUT-CHARACTER 2.)
   (COMMON-LISP::FUNCTION SYSTEM::INPUT-CHARACTER-FONT
    (SYSTEM::INPUT-CHARACTER) #4=(COMMON-LISP::INTEGER 0. 15.))
   (COMMON-LISP::INLINE SYSTEM::INPUT-CHARACTER-FONT)
   SYSTEM::INPUT-CHARACTER-FONT
   (#2# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::INPUT-CHARACTER-FONT))
    (COMMON-LISP::BLOCK SYSTEM::INPUT-CHARACTER-FONT
     (COMMON-LISP::THE #4#
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::INPUT-CHARACTER SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::INPUT-CHARACTER-FONT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::INPUT-CHARACTER 3.)
   (COMMON-LISP::FUNCTION SYSTEM::INPUT-CHARACTER-KEY (SYSTEM::INPUT-CHARACTER)
    #5=(COMMON-LISP::OR COMMON-LISP::NULL COMMON-LISP::CHARACTER
        COMMON-LISP::SYMBOL))
   (COMMON-LISP::INLINE SYSTEM::INPUT-CHARACTER-KEY)
   SYSTEM::INPUT-CHARACTER-KEY
   (#2# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::INPUT-CHARACTER-KEY))
    (COMMON-LISP::BLOCK SYSTEM::INPUT-CHARACTER-KEY
     (COMMON-LISP::THE #5#
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::INPUT-CHARACTER SYSTEM::OBJECT 4.))))
   #Y(SYSTEM::INPUT-CHARACTER-KEY
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::INPUT-CHARACTER 4.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-INPUT-CHARACTER-CHAR
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::INPUT-CHARACTER 1. COMMON-LISP::THE
      #1#)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-INPUT-CHARACTER-BITS
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::INPUT-CHARACTER 2. COMMON-LISP::THE
      #3#)
   #Y(SYSTEM::SETF-INPUT-CHARACTER-FONT
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::INPUT-CHARACTER 3. COMMON-LISP::THE
      #4#)
   #Y(SYSTEM::SETF-INPUT-CHARACTER-KEY
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::INPUT-CHARACTER 4. COMMON-LISP::THE
      #5#)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-8
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   EXT::CHAR-CONTROL-BIT 1. (COMMON-LISP::DEFCONSTANT EXT::CHAR-CONTROL-BIT 1.)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-9
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   EXT::CHAR-META-BIT 2. (COMMON-LISP::DEFCONSTANT EXT::CHAR-META-BIT 2.)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-10
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   EXT::CHAR-SUPER-BIT 4. (COMMON-LISP::DEFCONSTANT EXT::CHAR-SUPER-BIT 4.)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-11
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   EXT::CHAR-HYPER-BIT 8. (COMMON-LISP::DEFCONSTANT EXT::CHAR-HYPER-BIT 8.)
   SYSTEM::CONSTANT-WARNING)
#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::FEHLER-CHAR-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FEHLER-CHAR-ARG
      #23Y(00 00 00 00 02 00 00 00 00 03 DA DB B0 DC DD DE 6F 05 B3 B5 33 06
           1F)
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::CHARACTER
      "~: argument ~S is not a character" SYSTEM::TEXT))
#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)
   EXT::CHAR-BITS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::CHAR-BITS
      #32Y(00 00 00 00 01 00 00 00 00 02 AD 8E 1A 0A AD 88 01 09 AD DD 30 04 19
           02 C5 19 02 AD 2F 02 19 02)
      0. SYSTEM::INPUT-CHARACTER-P SYSTEM::INPUT-CHARACTER-BITS EXT::CHAR-BITS
      SYSTEM::FEHLER-CHAR-ARG))
#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)
   EXT::CHAR-FONT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::CHAR-FONT
      #32Y(00 00 00 00 01 00 00 00 00 02 AD 8E 1A 0A AD 88 01 09 AD DD 30 04 19
           02 C5 19 02 AD 2F 02 19 02)
      0. SYSTEM::INPUT-CHARACTER-P SYSTEM::INPUT-CHARACTER-FONT EXT::CHAR-FONT
      SYSTEM::FEHLER-CHAR-ARG))
#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)
   SYSTEM::TEST-FONT-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TEST-FONT-ARG
      #30Y(00 00 00 00 02 00 00 00 00 03 AE 8F 0A 03 9F 19 03 DA DB B0 DC DD DE
           6F 05 B3 B5 33 06 1F)
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::INTEGER
      "~S: the font argument should be an integer, not ~S" SYSTEM::TEXT))
#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::TEST-BITS-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TEST-BITS-ARG
      #30Y(00 00 00 00 02 00 00 00 00 03 AE 8F 0A 03 9F 19 03 DA DB B0 DC DD DE
           6F 05 B3 B5 33 06 1F)
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::INTEGER
      "~S: the bits argument should be an integer, not ~S" SYSTEM::TEXT))
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::MAKE-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::MAKE-CHAR
      #77Y(00 00 00 00 01 00 02 00 00 0D 3B 02 02 C5 FA 3B 01 02 C5 F9 AD DB 30
           02 AE DB 30 03 AF 8E 1A 04 AF DB 30 04 DA AF 33 01 32 1F 20 AE DF 33
           01 30 1F 19 DA AE 33 01 32 1F 12 AD DF 33 01 30 1F 0B E0 B0 E1 B1 E2
           B2 2D 06 09 19 04 19 04)
      0. EXT::MAKE-CHAR SYSTEM::TEST-FONT-ARG SYSTEM::TEST-BITS-ARG
      SYSTEM::FEHLER-CHAR-ARG #.EXT::CHAR-BITS-LIMIT :CHAR :BITS :FONT
      SYSTEM::MAKE-INPUT-CHARACTER))
#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::TEST-BITNAME-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::TEST-BITNAME-ARG
      #43Y(00 00 00 00 02 00 00 00 00 03 9F 26 00 0C C6 19 03 C7 19 03 C8 19 03
           C9 19 03 DF E0 B0 E1 E2 E3 6F 0A B3 E5 E6 E7 E8 B9 33 0A 1F)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:HYPER . 10.) (:SUPER . 7.)
         (:META . 4.) (:CONTROL . 1.))
      #.EXT::CHAR-CONTROL-BIT #.EXT::CHAR-META-BIT #.EXT::CHAR-SUPER-BIT
      #.EXT::CHAR-HYPER-BIT COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::MEMBER :CONTROL :META :SUPER :HYPER)
      "~S: the only bit names are ~S, ~S, ~S, ~S, not ~S" SYSTEM::TEXT :CONTROL
      :META :SUPER :HYPER))
#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)
   EXT::CHAR-BIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::CHAR-BIT
      #43Y(00 00 00 00 02 00 00 00 00 03 AD DA 70 01 AF 8E 1A 0A AF 88 02 09 AF
           DA 30 04 19 04 00 19 04 AF 6F 03 AD 73 02 3E 32 90 59 19 04)
      EXT::CHAR-BIT SYSTEM::TEST-BITNAME-ARG SYSTEM::INPUT-CHARACTER-P
      SYSTEM::INPUT-CHARACTER-BITS SYSTEM::FEHLER-CHAR-ARG))
#Y(#:TOP-LEVEL-FORM-20
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   EXT::SET-CHAR-BIT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(EXT::SET-CHAR-BIT
      #74Y(00 00 00 00 03 00 00 00 00 04 AE DA 70 01 B0 8E 1A 21 B0 88 04 23 B0
           E0 30 07 14 92 03 20 AC 6F 08 AE 72 CD 73 02 3E E3 AE CF 14 AF 32 2D
           16 01 15 19 05 DC B1 30 03 1B 61 B0 2F 05 1B 5C AC 6F 08 AE 73 02 3C
           E3 AE CF 1B 60)
      EXT::CHAR-BIT SYSTEM::TEST-BITNAME-ARG :CHAR SYSTEM::MAKE-INPUT-CHARACTER
      SYSTEM::INPUT-CHARACTER-P SYSTEM::COPY-INPUT-CHARACTER EXT::SET-CHAR-BIT
      SYSTEM::FEHLER-CHAR-ARG SYSTEM::INPUT-CHARACTER-BITS
      SYSTEM::INPUT-CHARACTER 2.))
