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