(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2
   #357Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 DB DC DD 63 62 DE 72 04 00 31
         7E DB 2E 07 E0 30 5B E1 30 5B E2 2E 01 E2 E3 E4 31 7E E2 E5 31 78 E6
         30 5B E7 30 5B E8 2E 01 E8 E3 E9 31 7E E8 EA 31 78 EB 30 5B EC 30 5B
         ED 2E 01 ED E3 EE 31 7E ED EF 31 78 F0 30 5B F1 30 5B F2 2E 01 F2 E3
         F3 31 7E F2 F4 31 78 F5 30 5B 64 1E 30 5B 64 1F 2E 01 64 1F E3 64 20
         31 7E 64 1F 64 21 31 78 64 22 30 5B 64 23 30 5B 64 24 2E 01 64 24 E3
         64 25 31 7E 64 24 64 26 31 78 64 27 30 5B 64 28 30 5B 64 29 2E 01 64
         29 E3 64 2A 31 7E 64 29 64 2B 31 78 64 2C 30 5B 64 2D 30 5B 64 2E 2E
         01 64 2E E3 64 2F 31 7E 64 2E 64 30 31 78 E2 64 31 64 32 03 33 79 31
         7E E2 64 34 62 2C 03 35 E8 64 31 64 32 03 36 79 31 7E E8 64 34 62 2C
         03 35 ED 64 31 64 32 03 37 79 31 7E ED 64 34 62 2C 03 35 F2 64 31 64
         32 03 38 79 31 7E F2 64 34 62 2C 03 35 64 1F 64 31 64 32 03 39 79 31
         7E 64 1F 64 34 62 2C 03 35 64 24 64 31 64 32 03 3A 79 31 7E 64 24 64
         34 62 2C 03 35 64 29 64 31 64 32 03 3B 79 31 7E 64 29 64 34 62 2C 03
         35 64 2E 64 31 64 32 03 3C 79 31 7E 64 2E 64 34 62 2C 03 35 DB 64 3D
         62 2C 03 35 DB 64 3E 31 7F C6 19 01
        )
   MAKE-CSD REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CSD
      #61Y(00 00 00 00 00 01 D8 D9 71 30 DA AB DB DC 31 2F DA AB DD DC 31 2F DA
           AB DE 62 31 2F DA AB DF 62 31 2F DA AB E0 62 31 2F DA AB E1 62 31 2F
           DA AB E2 62 31 2F DA AB E3 62 31 2F 15 19 01
          )
      #1=(CONTROL-STRING-DIRECTIVE) 9. CONTROL-STRING-DIRECTIVE 1. 0. 2. 3. 4.
      5. 6. 7. 8.
     )
   CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION #1#
   ((TYPE 1. 0. FIXNUM NIL) (CS-INDEX 2. 0. FIXNUM NIL)
    (PARM-LIST 3. NIL LIST NIL) (V-OR-#-P 4. NIL SYMBOL NIL)
    (COLON-P 5. NIL SYMBOL NIL) (ATSIGN-P 6. NIL SYMBOL NIL)
    (DATA 7. NIL T NIL) (CLAUSE-CHAIN 8. NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS
   (FUNCTION CSD-TYPE (CONTROL-STRING-DIRECTIVE) FIXNUM) (INLINE CSD-TYPE)
   CSD-TYPE INLINE-EXPANSION
   (#2=(OBJECT) (DECLARE (IN-DEFUN CSD-TYPE))
    (BLOCK CSD-TYPE
     (THE FIXNUM (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 1.))
   ))
   #Y(CSD-TYPE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 1.
     )
   (FUNCTION CSD-CS-INDEX (CONTROL-STRING-DIRECTIVE) FIXNUM)
   (INLINE CSD-CS-INDEX) CSD-CS-INDEX
   (#2# (DECLARE (IN-DEFUN CSD-CS-INDEX))
    (BLOCK CSD-CS-INDEX
     (THE FIXNUM (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 2.))
   ))
   #Y(CSD-CS-INDEX #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 2.
     )
   (FUNCTION CSD-PARM-LIST (CONTROL-STRING-DIRECTIVE) LIST)
   (INLINE CSD-PARM-LIST) CSD-PARM-LIST
   (#2# (DECLARE (IN-DEFUN CSD-PARM-LIST))
    (BLOCK CSD-PARM-LIST
     (THE LIST (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 3.))
   ))
   #Y(CSD-PARM-LIST #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 3.
     )
   (FUNCTION CSD-V-OR-#-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
   (INLINE CSD-V-OR-#-P) CSD-V-OR-#-P
   (#2# (DECLARE (IN-DEFUN CSD-V-OR-#-P))
    (BLOCK CSD-V-OR-#-P
     (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 4.))
   ))
   #Y(CSD-V-OR-#-P #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 4.
     )
   (FUNCTION CSD-COLON-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
   (INLINE CSD-COLON-P) CSD-COLON-P
   (#2# (DECLARE (IN-DEFUN CSD-COLON-P))
    (BLOCK CSD-COLON-P
     (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 5.))
   ))
   #Y(CSD-COLON-P #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 5.
     )
   (FUNCTION CSD-ATSIGN-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
   (INLINE CSD-ATSIGN-P) CSD-ATSIGN-P
   (#2# (DECLARE (IN-DEFUN CSD-ATSIGN-P))
    (BLOCK CSD-ATSIGN-P
     (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 6.))
   ))
   #Y(CSD-ATSIGN-P #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 6.
     )
   (FUNCTION CSD-DATA (CONTROL-STRING-DIRECTIVE) T) (INLINE CSD-DATA) CSD-DATA
   (#2# (DECLARE (IN-DEFUN CSD-DATA))
    (BLOCK CSD-DATA
     (THE T (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 7.))
   ))
   #Y(CSD-DATA #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 7.
     )
   (FUNCTION CSD-CLAUSE-CHAIN (CONTROL-STRING-DIRECTIVE) T)
   (INLINE CSD-CLAUSE-CHAIN) CSD-CLAUSE-CHAIN
   (#2# (DECLARE (IN-DEFUN CSD-CLAUSE-CHAIN))
    (BLOCK CSD-CLAUSE-CHAIN
     (THE T (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 8.))
   ))
   #Y(CSD-CLAUSE-CHAIN #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      CONTROL-STRING-DIRECTIVE 8.
     )
   SETF-EXPANDER -1.
   #Y(SETF-CSD-TYPE
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 1. THE FIXNUM
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-CSD-CS-INDEX
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 2. THE FIXNUM
     )
   #Y(SETF-CSD-PARM-LIST
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 3. THE LIST
     )
   #Y(SETF-CSD-V-OR-#-P
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 4. THE SYMBOL
     )
   #Y(SETF-CSD-COLON-P
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 5. THE SYMBOL
     )
   #Y(SETF-CSD-ATSIGN-P
      #22Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 6. THE SYMBOL
     )
   #Y(SETF-CSD-DATA #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 7.
     )
   #Y(SETF-CSD-CLAUSE-CHAIN
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 8.
     )
   STRUCTURE STRUCTURE-PRINT
  )
#Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D8 D9 31 7F 19 01)
   CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION
  )
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   WHITESPACEP REMOVE-OLD-DEFINITIONS
   #Y(WHITESPACEP #14Y(01 00 00 00 00 02 AB D8 37 03 30 B5 19 02)
      (#\Space #\Newline #\Newline #\Tab #\Return #\Page)
  )  )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-PARSE-CS REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-PARSE-CS
      #658Y(04 00 00 00 00 05 AD 01 03 93 06 1A 82 63 B3 80 45 04 14 DA AD DD
            AD 31 2F 16 01 92 06 82 6D 1A 82 5B B3 AF 7F 33 03 14 23 00 27 B1
            2D 01 F8 14 7A 01 7F AC 07 DA AC DB DB 31 2F DA AC DC B1 31 2F D8
            B4 37 06 A7 FA 80 5D 04 1C 42 DA AC DD B1 31 2F B1 2D 01 F8 14 7A
            01 7F AC 07 DA AC DB DC 31 2F DA AC DC B1 31 2F DA AC DE 62 31 2F
            DA AC DF 62 31 2F DA AC E0 62 31 2F DA AC E1 62 31 2F DA AC DD 62
            31 2F DA AC E2 62 31 2F 1A 35 9E 25 0D 80 E7 D2 1A 05 AD 23 0E 79
            D3 14 AA DA AE DE 31 2E 79 DA AE DE AD 31 2F 16 02 DA AC DF 63 31
            2F 1A 80 7B 62 DA AD DE 31 2E 79 DA AD DE AD 31 2F 16 01 84 04 14
            B4 71 45 8F 01 32 80 96 B3 AF 7F 33 03 14 37 01 8C 22 FF B4 B3 AF
            37 02 63 30 81 41 02 69 05 69 02 1B 0C B3 AF E9 EA EB 6D 03 14 B0
            2C 04 0C AC DA AD DE 31 2E 79 DA AD DE AD 31 2F 16 01 1A 2B B3 AF
            ED EE EF 2C 03 14 1A 80 56 84 04 14 B4 71 45 8F 01 32 6B B3 AF 7F
            33 03 14 DA AD DE 31 2E 79 DA AD DE AD 31 2F 16 01 84 04 AE B4 71
            45 8F 01 32 2B B3 AF 7F 33 03 25 18 39 DA AC CB 1A 10 B3 AF 7F 33
            03 14 23 19 72 AD 24 1A 27 DA AC CC 14 63 31 2F 84 04 14 B4 71 45
            90 01 32 62 B3 AF CE 14 2C 03 0C 92 06 81 1D 1A 81 0B DA AD DD AD
            31 2F 1A 27 DA AC DE 71 2E 71 47 DA AD DE AD 31 2F 16 01 AD 70 2A
            F3 37 03 30 BC 78 91 00 5D B4 B0 F4 F5 64 1E 6D 03 14 2C 03 0C 16
            01 84 04 9E 25 1F 80 C7 B3 AF B3 A1 25 20 10 03 21 1A 0D 03 22 1A
            09 03 23 1A 05 03 24 1A 01 00 14 27 FE 40 41 02 69 08 69 04 1A 80
            A2 91 06 0F B3 AF 64 25 64 26 64 27 6D 03 14 B0 2C 04 0C AD B1 8D
            01 10 B3 AF 64 28 64 29 64 2A 6D 03 14 B0 B4 2C 05 0C DA AB E2 B4
            31 2F 1A 80 8D B0 23 22 12 B0 23 24 0E B3 AF 64 2B 64 2C 64 2D 6D
            03 14 2C 03 0C DA AB E2 B4 31 2F 9C F6 1A 80 51 DA AC E1 8E 2E 80
            4A B3 AF 64 2F 64 30 64 31 6D 03 14 2C 03 0C 1A 3A B3 80 45 04 1A
            34 DA AC DB 64 2E 31 2F DA AC E0 8D 2E 56 DA AC E1 8E 2E 16 DA AC
            DB DB 31 2F 96 04 DA AD DC AD 31 2F 16 01 DA AC DD B1 31 2F 98 32
            B4 37 04 A5 F8 8E 5F 47 FA AE B4 71 45 90 01 32 FD A8 92 06 0F B3
            AF 64 33 64 34 64 35 6D 03 14 B3 2C 04 0C AE B2 3F 02 19 0A
           )
      #\~ MAKE-CSD CONTROL-STRING-DIRECTIVE 1. 2. 7. 3. 4. 5. 6. 8.
      "Kontrollstring endet mitten in einer Direktive." FORMAT-ERROR
      #S(HASH-TABLE EQ (#\@ . 194.) (#\: . 176.) (#\, . 35.) (#\# . 5.)
         (#\v . 5.) (#\V . 5.) (#\' . 128.) (#\- . 73.) (#\+ . 73.)
        )
      #\# :ARG-COUNT :NEXT-ARG "~A must introduce a number."
      "~A muß eine Zahl einleiten." "~A doit introduire un nombre." LANGUAGE
      "The control string terminates in the middle of a parameter."
      "Kontrollstring endet mitten in einem '-Parameter."
      "La chaîne de contrôle se termine au milieu d'un paramètre."
      #S(HASH-TABLE EQ (#\@ . 19.) (#\: . 1.) (#\, . -125.)) #\: #\@
      ((#\A . FORMAT-ASCII) (#\S . FORMAT-S-EXPRESSION) (#\W . FORMAT-WRITE)
       (#\D . FORMAT-DECIMAL) (#\B . FORMAT-BINARY) (#\O . FORMAT-OCTAL)
       (#\X . FORMAT-HEXADECIMAL) (#\R . FORMAT-RADIX) (#\P . FORMAT-PLURAL)
       (#\C . FORMAT-CHARACTER) (#\F . FORMAT-FIXED-FLOAT)
       (#\E . FORMAT-EXPONENTIAL-FLOAT) (#\G . FORMAT-GENERAL-FLOAT)
       (#\$ . FORMAT-DOLLARS-FLOAT) (#\% . FORMAT-TERPRI)
       (#\& . FORMAT-FRESH-LINE) (#\Newline . #\Newline) (#\| . FORMAT-PAGE)
       (#\~ . FORMAT-TILDE) (#\T . FORMAT-TABULATE) (#\* . FORMAT-GOTO)
       (#\? . FORMAT-INDIRECTION) (#\( . FORMAT-CASE-CONVERSION)
       (#\) . FORMAT-CASE-CONVERSION-END) (#\[ . FORMAT-CONDITIONAL)
       (#\] . FORMAT-CONDITIONAL-END) (#\{ . FORMAT-ITERATION)
       (#\} . FORMAT-ITERATION-END) (#\< . FORMAT-JUSTIFICATION)
       (#\> . FORMAT-JUSTIFICATION-END) (#\^ . FORMAT-UP-AND-OUT)
       (#\; . FORMAT-SEPARATOR)
      )
      "Non-existent directive" "Diese Direktive gibt es nicht."
      "Directive non reconnue."
      #S(HASH-TABLE EQ (#\Newline . 149.) (#\; . 87.) (#\> . 39.) (#\} . 39.)
         (#\] . 39.) (#\) . 39.) (#\< . 2.) (#\{ . 2.) (#\[ . 2.) (#\( . 2.)
        )
      #S(HASH-TABLE EQ (#\< . 13.) (#\{ . 9.) (#\[ . 5.) (#\( . 1.)) #\) #\]
      #\} #\>
      "The closing directive '~A' does not have a corresponding opening one."
      "Schließende Klammer '~A' ohne vorherige öffnende Klammer"
      "Parenthèse fermante '~A' sans parenthèse ouvrante correspondante."
      "The closing directive '~A' does not match the corresponding opening one. It should read '~A'."
      "Schließende Klammer '~A' paßt nicht; sollte '~A' lauten."
      "La parenthèse fermante '~A' ne correspond pas à celle ouvrante. Il devrait y avoir '~A'."
      "The ~~; directive is not allowed at this point."
      "Hier ist keine ~~;-Direktive möglich."
      "La directive ~~; n'est pas permise ici." 0.
      "The ~~newline directive cannot take both modifiers."
      "Die ~~Newline-Direktive ist mit : und @ sinnlos."
      "La directive ~~Newline est insensée avec les deux qualificateurs : et @."
      WHITESPACEP "An opening directive is never closed; expecting '~A'."
      "Schließende Klammer '~A' fehlt." "Il manque la borne fermante '~A'."
  )  )
#Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FORMAT-CS*) *FORMAT-CS*
  )
#Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FORMAT-CSDL*) *FORMAT-CSDL*
  )
#Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FORMAT-ARG-LIST*) *FORMAT-ARG-LIST*
  )
#Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *FORMAT-NEXT-ARG*) *FORMAT-NEXT-ARG*
  )
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *FORMAT-UP-AND-OUT*) *FORMAT-UP-AND-OUT*
  )
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-ERROR REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-ERROR
      #118Y(03 00 00 00 01 19 91 03 0B 0E 00 77 D9 AB DA 31 2E 16 01 F9 AC DB
            DC DD 6D 03 06 81 02 13 02 DF DF 1A 04 AA 80 8D 01 E0 B1 37 06 A4
            FA 8D 5D 03 B0 31 45 F6 AE E1 81 02 13 04 AD B1 AD AD 70 4E 7A 01
            81 02 24 03 AB B0 AC 90 02 31 17 AE E2 E3 81 03 13 04 AD DA B1 AE
            72 01 36 72 02 35 7A 01 81 02 24 03 AA B1 71 45 90 01 2D FF B6 16
            02 E4 E5 AE 9F 9A 02 05
           )
      *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 2.
      "~%Current point in control string:" "~%Stelle im Kontrollstring:"
      "~%Position dans la chaîne de contrôle :" LANGUAGE 0. #\Newline "~%  ~A"
      "~%~VT" "|" #.#'ERROR-OF-TYPE ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT
      #139Y(02 00 00 00 01 18 AC 8E 07 3D AC 7A 01 AD E0 AC 62 2C 04 09 9B 5A
            10 0A 9E 5B 10 0B A3 10 0C 0E 0C 10 0D 00 10 0E 92 13 2C BD 02 21
            36 BD 8D 16 36 BD 8D 07 80 44 D8 D9 BF DA ED EE EF F0 6D 03 07 04
            19 14 32 05 1F D8 D9 AE DA DB DC DD DE 6D 03 07 A3 1A 6E 37 01 71
            6D AA 2E 0F AA 31 6E 16 01 1A 24 0E 10 1A 02 04 13 14 2E 0F 00 1A
            18 E9 EA EB EC 6D 03 07 BF 32 01 1F BD 8C 13 71 BD 71 6F AA 2E 0F
            16 01 00 12 05 19 05
           )
      TYPE-ERROR :DATUM :EXPECTED-TYPE STRING
      "The control-string must be a string, not ~S"
      "Kontrollstring muß ein String sein, nicht ~S"
      "La chaîne de contrôle doit être une chaîne et non ~S" LANGUAGE 0.
      FORMAT-PARSE-CS *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST*
      *FORMAT-NEXT-ARG* *FORMAT-UP-AND-OUT* FORMAT-INTERPRET *STANDARD-OUTPUT*
      ERROR "The destination string ~S should have a fill pointer."
      "String zum Vollschreiben ~S hat keinen Fill-Pointer."
      "La chaîne destination n'a pas de pointeur de remplissage."
      (OR (MEMBER NIL T) STREAM STRING)
      "The destination argument ~S is invalid (not NIL or T or a stream or a string)."
      "Das ist weder NIL noch T noch ein Stream noch ein String: ~S"
      "L'argument de destination n'est ni NIL, ni T, ni un «stream» ni une chaîne : ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   NEXT-ARG REMOVE-OLD-DEFINITIONS
   #Y(NEXT-ARG
      #35Y(00 00 00 00 00 01 0E 00 1F 0B 0E 00 77 0E 00 5B 0F 00 15 19 01 6A 01
           62 DA DB DC 6D 03 05 2C 03 06 19 01
          )
      *FORMAT-NEXT-ARG* *FORMAT-CS*
      "There are not enough arguments left for this directive."
      "Nicht genügend Argumente für diese Direktive übrig."
      "Il ne reste pas assez d'arguments pour cette directive." LANGUAGE
      FORMAT-ERROR
  )  )
#Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-INTERPRET REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-INTERPRET
      #107Y(01 00 01 00 00 08 3A 01 08 7C 01 0E 00 1C 06 1A 09 0E 00 1B 05 6A
            01 8C 94 03 00 19 03 0E 01 77 DA AB DB 31 2E 25 04 34 6A 05 AE DA
            AD DE 71 2E DA AE DF 71 2E 30 8B 1A 23 DA AB DF 71 2E AA 9F 21 04
            AA 24 08 03 00 19 05 AA AF DA AE E1 71 2E DA AF E2 71 2E AF 2E 0B
            36 03 16 01 16 01 0E 01 5B 0F 01 0E 00 1C FF AD 1A FF AF
           )
      *FORMAT-UP-AND-OUT* *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 1.
      #S(HASH-TABLE EQ (2. . 18.) (1. . 1.) (0. . 53.)) *FORMAT-CS* 2. 7.
      FORMAT-SEPARATOR 5. 6. FORMAT-RESOLVE-PARMS
  )  )
#Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-RESOLVE-PARMS REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-RESOLVE-PARMS
      #62Y(01 00 00 00 00 02 D8 AC D9 71 2E D8 AD DA 8D 2E 03 15 19 02 62 AB 1A
           1C 2D 04 1A 11 6A 06 30 95 1A 0B 93 00 AA 23 03 70 AA 23 05 70 9B 14
           83 02 16 01 82 00 9B 20 6B 16 01 AA 30 A5 19 04
          )
      CONTROL-STRING-DIRECTIVE 3. 4. :NEXT-ARG NEXT-ARG :ARG-COUNT
      *FORMAT-NEXT-ARG*
  )  )
#Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-GOTO-NEW-ARG REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-GOTO-NEW-ARG
      #39Y(02 00 00 00 00 03 91 02 0A AB 0E 01 14 30 9D 0F 01 19 03 6A 00 70 95
           6A 01 70 95 AD 72 02 36 DA 72 01 33 0E 00 1A 65
          )
      *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 0.
  )  )
#Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-OLD-ROMAN REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-OLD-ROMAN
      #79Y(02 00 00 00 00 03 AC 8E 0C 07 D8 AD D9 8F 02 31 0D 6A 02 62 DB DC DD
           6D 03 06 AF 2C 04 07 E0 E1 AE 1A 25 94 02 94 02 AC 93 04 31 AA 41 02
           E2 1A 07 93 07 B4 30 8A 84 00 AA AD 90 01 32 73 16 01 15 16 01 F8 69
           02 69 02 AA 8E 88 57 00 19 06
          )
      1. 4999. *FORMAT-CS*
      "The ~~:@R directive requires an integer in the range 1 - 4999, not ~S"
      "Die ~~:@R-Direktive erwartet ein Integer zwischen 1 und 4999, nicht ~S"
      "La directive ~~:@R requiert un entier compris entre 1 et 4999 et non ~S"
      LANGUAGE FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
      (1000. 500. 100. 50. 10. 5. 1.) 0.
  )  )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-NEW-ROMAN REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-NEW-ROMAN
      #121Y(02 00 00 00 00 03 AC 8E 0C 07 D8 AD D9 8F 02 31 0D 6A 02 62 DB DC
            DD 6D 03 06 AF 2C 04 07 E0 E1 E2 E3 B0 1A 80 4B 94 04 94 04 94 04
            94 04 AE 93 08 31 AA 41 02 E4 1A 18 93 09 B8 30 8A 93 0B B8 30 8A
            AB AB 32 01 36 1A 1D 93 0B B8 30 8A 84 00 AA AD 90 01 32 73 16 01
            93 09 93 08 72 01 36 AB AB 8F 01 32 53 9C 16 03 FA 69 04 69 04 69
            04 69 04 AA 8E 88 FF B0 00 19 08
           )
      1. 3999. *FORMAT-CS*
      "The ~~@R directive requires an integer in the range 1 - 3999, not ~S"
      "Die ~~@R-Direktive erwartet ein Integer zwischen 1 und 3999, nicht ~S"
      "La directive ~~@R requiert un entier compris entre 1 et 3999 et non ~S"
      LANGUAGE FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
      (1000. 500. 100. 50. 10. 5. 1.) (#\C #\C #\X #\X #\I #\I)
      (100. 100. 10. 10. 1. 1. 0.) 0.
  )  )
#Y(#:TOP-LEVEL-FORM-19
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   FORMAT-CARDINAL-ONES
   #1=#(NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine"
        "ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen"
        "seventeen" "eighteen" "nineteen"
       )
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT FORMAT-CARDINAL-ONES '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-20
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   FORMAT-CARDINAL-TENS
   #1=#(NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty"
        "ninety"
       )
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT FORMAT-CARDINAL-TENS '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-SMALL-CARDINAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-SMALL-CARDINAL
      #103Y(02 00 00 00 00 03 AC D8 31 AC 41 02 AB D9 90 01 30 0F DA 9D 5E 14
            AE 37 02 30 8B DB AE 37 02 30 8B AA D9 90 01 30 3D AB D9 90 01 30
            06 DC AE 37 02 30 8B AA DD 31 AC 41 02 AB DE 8F 01 2F 1E DF 9D 5E
            14 B0 37 02 30 8B AA D9 90 01 30 13 E0 B0 30 8A DA 9C 5E 14 B0 37
            02 30 8B 19 07 DA 9E 1A 73 00 19 07 00 19 05
           )
      100. 0. #.FORMAT-CARDINAL-ONES " hundred" " and " 10. 2.
      #.FORMAT-CARDINAL-TENS #\-
  )  )
#Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-CARDINAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-CARDINAL
      #54Y(02 00 00 00 00 03 00 2A 01 7E 02 00 00 AD 8D 88 1B AD 8E 8A 0D D9 67
           01 00 37 02 30 8B AD 81 00 36 03 AA 6C 02 01 DB AF 9D 33 19 05 D8 67
           01 00 37 02 30 8B 19 04
          )
      "zero" "minus "
      #Y(FORMAT-CARDINAL-BLOCKS1000
         #84Y(02 00 00 00 00 03 92 02 24 1A 2E AB E0 90 01 30 08 E1 68 00 01 37
              02 30 8B AA 68 00 01 2F 0A 93 04 68 00 01 37 02 30 8B 19 05 91 02
              0C 6A 01 62 DA DB DC 6D 03 05 2C 03 06 AB DF 31 AC 41 02 AB E0 90
              01 30 05 94 04 AC 27 60 AA E0 8F 01 30 FF BA 00 19 05
             )
         NIL *FORMAT-CS* "The argument for the ~~R directive is too large."
         "Zu großes Argument für ~~R-Direktive."
         "L'argument pour la directive ~~R est trop grand." LANGUAGE
         FORMAT-ERROR 1000. 0. ", " FORMAT-SMALL-CARDINAL
        )
      ("" " thousand" " million" " billion" " trillion" " quadrillion"
       " quintillion" " sextillion" " septillion" " octillion" " nonillion"
       " decillion" " undecillion" " duodecillion" " tredecillion"
       " quattuordecillion" " quindecillion" " sexdecillion" " septendecillion"
       " octodecillion" " novemdecillion" " vigintillion"
  )  ))
#Y(#:TOP-LEVEL-FORM-23
   #38Y(00 00 00 00 00 01 D8 8C 5F 15 D9 D8 70 4F 8D 01 0E DA DB DC 6D 03 05 DE
        D8 D8 70 4F 2C 04 07 D8 D9 31 79 C3 19 01
       )
   FORMAT-ORDINAL-ONES
   #1=#(NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh"
        "eighth" "ninth" "tenth" "eleventh" "twelfth" "thirteenth" "fourteenth"
        "fifteenth" "sixteenth" "seventeenth" "eighteenth" "nineteenth"
       )
   "~S redefines the constant ~S. Its old value was ~S."
   "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
   "~S redéfinit la constante ~S. Son ancienne valeur était ~S." LANGUAGE
   (DEFCONSTANT FORMAT-ORDINAL-ONES '#1#) WARN
  )
#Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-ORDINAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-ORDINAL
      #124Y(02 00 00 00 00 03 AC 8D 88 80 59 AC 8E 8A 0B D9 AC 37 02 30 8B AC
            81 00 36 02 AC DA 31 AA 41 02 AB DB 90 01 30 08 AB DA 72 02 37 AE
            2F 04 AA 8D 88 3A AA DE 31 AA 41 02 AD DB 90 01 30 04 DF B0 30 8A
            AB E0 8F 01 2F 2C AA 8D 88 2C E3 9D 5E 14 B0 37 02 30 8B E4 B0 30
            8A E1 9C 5E 14 B0 37 02 30 8B 19 07 D8 AC 37 02 30 8B 19 03 DD AE
            37 02 30 8B 19 05 E1 9E 1A 63 E2 9D 1A 5F
           )
      "zeroth" "minus " 100. 0. FORMAT-CARDINAL "th" 10. #\Space 2.
      #.FORMAT-ORDINAL-ONES
      #(NIL "tenth" "twentieth" "thirtieth" "fortieth" "fiftieth" "sixtieth"
        "seventieth" "eightieth" "ninetieth"
       )
      #.FORMAT-CARDINAL-TENS #\-
  )  )
#Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-PADDING REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-PADDING
      #24Y(03 00 00 00 00 04 D8 1A 06 AD AD 30 8A 84 00 AA AF 90 01 32 74 00 19
           05
          )
      0.
  )  )
#Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-PADDED-STRING REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-PADDED-STRING
      #68Y(07 00 00 00 00 00 AC 71 45 B0 72 02 35 AA B3 8F 01 2F 1B C3 14 91 05
           06 AE AE 37 02 30 8B B1 AB 72 02 35 B1 AF 2C 03 01 91 05 11 00 19 0A
           B2 AB 72 01 36 B2 71 AB B2 32 02 37 1A 58 AE AE 37 02 30 8B 19 0A
          )
      0. FORMAT-PADDING
  )  )
#Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-INTEGER REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-INTEGER
      #175Y(08 00 00 00 00 00 A3 10 00 00 10 01 00 10 02 BA 8E 88 06 91 0D 03
            92 0C 36 B5 70 89 AA 71 45 B7 8D 8A 33 9B 14 91 10 33 C7 14 92 10
            05 B9 DC 32 01 30 14 91 00 2C C7 14 AE AD 72 03 35 AA 37 01 70 44
            92 02 05 AA DC DE 30 35 AF AC 1A 80 43 B5 B5 30 86 1A 80 55 AA 31
            8E 1A 49 96 00 DB 31 AA 1A 47 C8 1A 52 AA BC 37 02 30 8B 16 07 1A
            3C 85 00 AC AB B4 AE 70 33 30 35 AF 8E 89 15 B1 AC 72 01 36 DB 71
            AE 8E 88 0A 85 00 AC AB 65 19 30 35 85 05 85 01 14 8E 8A 57 16 02
            C1 8D 88 47 C1 DD DC 65 19 63 AF C1 2C 07 07 16 07 12 03 19 09
           )
      *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY* 3. 0. 1. #\+
      FORMAT-PADDED-STRING
  )  )
#Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-ASCII-DECIMAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-ASCII-DECIMAL
      #23Y(02 00 00 00 00 03 C3 10 01 00 10 02 00 10 03 B5 B5 30 86 12 03 19 03
          )
      10. *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY*
  )  )
#Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-BASE REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-BASE
      #76Y(07 00 00 00 00 00 92 03 26 92 02 28 91 01 02 C5 F7 2D 03 14 AE 8E 88
           06 91 06 03 92 05 1D AA 8E 0C 19 B2 AF AF AF B4 B4 B0 B8 2C 08 07 19
           09 C3 F9 91 02 58 C4 F8 92 01 56 1A 56 A3 10 04 00 10 05 00 10 06 B3
           BB 30 86 12 03 19 09
          )
      0. #\Space #\, NEXT-ARG *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY*
      FORMAT-INTEGER
  )  )
#Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-SCALE-EXPONENT-AUX REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-SCALE-EXPONENT-AUX
      #94Y(06 00 00 00 00 00 B0 31 B4 41 02 B2 8D 88 16 AA AE 72 02 37 37 01 71
           AC B3 B1 AC 71 91 72 01 38 B1 AB AD 1A 14 B1 D8 3F 02 19 09 AD AD 81
           01 38 01 84 00 AC B5 81 02 37 02 AB B6 90 01 2F 6C B4 AC AC 1A 0E AB
           AD 81 02 37 01 85 00 AC B8 81 02 37 02 AB B7 90 01 32 6C AB AB 3F 02
           19 11
          )
      0.
  )  )
#Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-SCALE-EXPONENT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-SCALE-EXPONENT
      #72Y(01 00 00 00 00 02 AB 8D 10 11 AB 8D 11 14 AB 8E 12 17 AB E2 E3 E4 D0
           14 C7 1A 24 AB D8 D9 DA C6 1A 75 AB DE DF E0 CC 1A 6E AB 8E 13 18 AB
           E6 AD 71 A5 E7 AE 71 A5 E8 AF 71 A5 E9 B0 71 A5 D5 14 2C 06 05 19 02
           00 19 02
          )
      0.0s0 1.0s0 10.0s0 0.1s0 0.30103s0 FORMAT-SCALE-EXPONENT-AUX 0.0f0 1.0f0
      10.0f0 0.1f0 0.0d0 1.0d0 10.0d0 0.1d0 0. 1. 10. #10r1/10 0.30102999566d0
  )  )
#Y(#:TOP-LEVEL-FORM-32
   #35Y(00 00 00 00 00 01 00 2A 01 D8 63 37 06 C4 FB 7D 02 30 19 0B 00 00 DA 2E
        03 DA AB 6C 04 01 31 78 C5 19 02
       )
   20. STRING-CHAR FORMAT-FLOAT-TO-STRING REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-FLOAT-TO-STRING
      #745Y(05 00 00 00 00 06 AF 8D 88 80 7D AF 31 BA 41 02 B1 37 01 71 B8 71
            8E AC DC DC DC D9 D9 D9 01 05 68 00 01 D9 30 15 B7 D9 8F 01 30 80
            8A B7 D9 90 01 2F 08 DC B8 72 00 36 80 C8 0A B8 DC B8 71 C8 8F 01
            2D 80 80 92 11 1F 14 D9 8F 01 2F 80 8C DD BC 71 91 B6 AB 81 02 37
            0C B3 AB 81 02 37 09 B4 AB 81 02 37 0A 16 01 B5 DD 72 02 37 B5 8F
            01 32 80 90 85 07 B5 DD 81 02 37 0B B3 DD 81 02 37 09 B2 DD 81 02
            37 08 1A 5F 91 03 01 C4 14 91 02 01 C4 14 72 01 33 92 05 0A AA B0
            90 01 32 04 AF 80 8E 00 95 00 DA 70 44 AA D9 DB 30 35 95 01 63 AD
            71 88 D9 3F 05 19 07 B8 B8 80 C8 0B DC B8 80 C8 09 FE 1A FF 76 B2
            DC 80 C8 08 B5 DC 80 C8 0B B4 DC 80 C8 0A 92 11 FF 8F 1A FF 6D DD
            BC 72 00 36 71 91 B5 AB 81 02 37 0B 16 01 1A FF 7A 14 32 00 36 1A
            32 DC BE 32 01 36 1A 2B B4 DD 81 02 37 0A 84 07 B5 DC 71 C8 B3 72
            02 35 B5 DC 71 C8 90 01 2F 68 91 12 58 92 13 39 B1 D9 8F 01 2F 55
            B1 BE 72 01 36 31 8D FA 92 10 28 AE BB 72 00 36 90 01 30 1F BA 81
            00 36 04 92 12 1A 1A 1B D9 1A 08 AB DD 81 02 37 01 84 00 AA AD 90
            01 32 72 16 01 1A 2E 91 12 03 92 13 3C AE B2 72 01 36 B5 AB D9 8F
            01 32 59 D9 AC 72 00 36 1A 0D 7D 05 16 02 1A 23 AC DD 80 AB 02 84
            01 AB AB 90 01 32 73 16 02 AA B6 81 01 33 0B AA B5 81 01 33 0A 14
            AB 8F 01 2D 59 16 02 B5 DC 71 C8 B3 72 02 35 B5 DC 71 C8 90 01 2F
            FF 5E B1 D9 90 01 2F 80 78 A1 FB DB 68 00 01 37 01 30 18 D9 B2 72
            00 36 1A 80 5E B5 DC 71 C8 B5 DC 71 C8 B4 72 01 36 32 01 32 1A 80
            9A DE AD 70 33 68 00 01 37 01 30 18 84 06 1A 80 44 9E 1A 80 BC 9E
            1A 80 B8 D9 1A 0C 84 07 DA 68 00 01 37 01 30 18 84 00 AA B3 90 01
            32 6E 16 01 DB 68 00 01 37 01 30 18 A1 FB 92 12 80 C9 1A 80 A6 84
            08 DA 68 00 01 37 01 30 18 84 01 AB AB 90 01 32 6E 16 02 B1 8E 88
            0A DB 68 00 01 37 01 30 18 A1 FB 85 07 B5 DD 72 02 37 B5 31 AC 41
            02 69 0C 69 02 B3 DD 81 02 37 09 B2 DD 81 02 37 08 B5 DC 71 C8 B4
            81 01 2F 01 91 03 FF 63 B5 DC 71 C8 B5 DC 71 C8 B4 72 01 36 32 01
            30 F6 91 01 0E 91 00 0B 92 04 FF 5B B1 AF 90 01 31 FF 54 92 04 06
            B1 AF 90 01 32 27 DF 92 02 04 92 01 FF 53 92 01 03 92 02 0A B6 DC
            71 C8 B6 8F 01 31 FF 47 AD 31 8D 14 70 33 68 00 01 37 01 30 18 84
            06 B1 D9 8F 01 32 FF 35 92 12 20 D9 BD B2 B2 72 01 36 72 01 36 1A
            0C 84 08 DA 68 00 01 37 01 30 18 84 01 AB AB 90 01 32 6E 16 02 68
            00 01 95 07 B1 D9 72 01 2D B2 B4 72 01 2D B3 3F 05 19 15
           )
      NIL 0. #\0 #\. 1. 10. "0123456789" "0123456789"
  )  )
#Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-FLOAT-FOR-F REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-FLOAT-FOR-F
      #198Y(08 00 00 00 00 00 91 08 80 57 00 14 AD AB B4 B4 62 2C 05 00 41 04
            B6 23 01 80 51 92 0D 0E AE AD 81 01 36 04 91 01 80 5E 91 00 80 66
            92 0A 08 92 0D 05 AE 8D 8A 80 6A 92 0D 0C AE D9 90 01 30 06 AE B4
            B2 2C 03 02 B1 8D 8A 80 5E 92 08 80 64 C7 14 B1 30 8A 92 01 80 62
            1A 80 5B B2 31 8E 1A FF AA 91 03 77 AC 8D 8A 73 A3 1A FF 9F 7C 00
            92 0D FF BA 1A FF A9 85 04 92 00 FF B1 1A 15 85 04 92 0A FF B4 1A
            FF A9 AE D9 8F 01 30 69 7C 01 92 00 FF 9A AE D9 8F 01 30 65 7C 00
            92 0A FF 99 1A FF 8E B7 B5 B2 2C 03 02 19 0E C6 1A FF A3 DD B1 30
            8A 19 0E 92 01 04 DD B1 30 8A AD B1 37 02 30 8B 91 00 6A 00 19 0E
           )
      FORMAT-FLOAT-TO-STRING 0. FORMAT-PADDING #\- #\+ #\0
  )  )
#Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-FLOAT-FOR-E REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-FLOAT-FOR-E
      #401Y(0A 00 00 00 00 00 AC 71 95 2E 00 41 02 AE 8D 88 80 93 AA B4 32 01
            36 14 AA 71 95 37 0B C5 FA 7C 05 14 70 87 91 0C 80 81 AA 31 45 14
            91 0E 80 8D 00 14 B7 8D 8A 80 90 00 14 91 11 80 92 00 14 92 0E 0D
            92 12 0A 92 10 07 AD BB 8F 01 30 80 89 92 12 09 91 0B 04 B4 8E 8A
            02 85 00 B1 AB AE BC AF 2C 05 06 41 04 92 16 0E AE AD 81 01 36 04
            91 00 80 7F 91 01 80 8A 92 12 08 92 16 05 AE 8D 8A 80 8E 92 16 0C
            AE D9 90 01 30 06 AE BC B9 2C 03 05 B8 8D 8A 80 82 92 0F 80 9E CB
            14 B8 30 8A 92 01 80 9C 1A 80 95 C4 1A FF 6E AA 71 45 B7 32 01 33
            1A FF 78 B8 B7 72 01 36 31 8D 1A FF 74 B6 D9 8F 01 30 70 A9 1A FF
            6A DB B8 32 01 36 1A FF 69 14 DC AE 32 02 36 1A FF 66 BC B9 B5 2C
            03 05 19 13 85 04 92 01 FF 90 1A 18 85 04 92 12 FF 93 1A FF 88 92
            06 6C B0 D9 8F 01 30 66 7C 00 92 01 FF 76 AE D9 8F 01 30 62 7C 01
            92 12 FF 75 1A FF 6A C0 BD B9 2C 03 05 19 17 CA 1A FF 7F E1 B8 30
            8A 92 10 28 1A 80 40 D0 1A 3D D1 1A 3A D2 1A 37 D3 1A 34 D4 1A 31
            CA 1A 37 92 01 04 E1 B8 30 8A AD B8 37 02 30 8B 91 00 54 91 10 1B
            0E 0A 1B 06 B8 6A 0B 89 0C 51 B8 8D 10 50 B8 8D 11 4F B8 8D 12 4E
            B8 8D 13 4D 00 14 B8 30 8A B3 8D 8A 47 CB 14 B8 30 8A 92 14 14 14
            B3 71 45 90 01 30 0C BE B3 71 45 72 01 36 E1 B9 2C 03 05 B2 B8 37
            02 30 8B 19 17
           )
      FORMAT-SCALE-EXPONENT 0. 10. 1. 2. FORMAT-PADDING FORMAT-FLOAT-TO-STRING
      #\- #\+ #\0 *PRINT-READABLY* *READ-DEFAULT-FLOAT-FORMAT* TYPEP #\E #\s
      #\f #\d #\L
  )  )
#Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-SKIP-TO-END REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-SKIP-TO-END
      #35Y(00 00 00 00 00 01 1A 0C 0E 00 77 D9 AB DA 31 2E 16 01 0F 00 0E 00 77
           D9 AB DA 31 2E 16 01 1B 68 00 19 01
          )
      *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8.
  )  )
#Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-JUSTIFIED-SEGMENTS REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-JUSTIFIED-SEGMENTS
      #179Y(06 00 00 00 00 00 D8 D8 AD 62 1A 24 C4 1A 39 C4 1A 3B C3 1A 80 58
            62 AB C3 5F 92 0B 80 6D 1A 80 6E 86 01 00 84 03 AC AB 71 45 81 02
            35 02 82 01 AB 8C 94 6D 16 02 91 05 08 AB D9 90 01 2D 02 9F 58 14
            DA AD 91 02 45 C3 14 91 08 43 C3 14 72 04 35 AC AB B4 72 02 37 72
            02 35 B5 AB B7 8F 01 31 FF B0 AB B7 72 01 36 B6 71 AB B6 32 02 37
            14 72 02 35 AA AF 72 01 36 AD 31 AA 41 02 95 07 37 07 A4 FA 70 19
            92 06 FF 8E 91 0B 04 62 AB A5 5F D8 1A 15 AB 9C 5E 1C 0E AB 9C 5E
            14 71 8D AA AD 9E 5F 16 01 85 02 84 00 AC 8E 88 67 16 01 AA AE 3F
            02 19 10
           )
      0. 1. -1.
  )  )
#Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-ASCII REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-ASCII
      #99Y(03 00 04 00 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C3 F8 3A 01
           1C C5 F7 91 04 1A C3 FA 91 03 18 C4 F9 91 02 16 C3 F8 92 01 14 1A 14
           AA B3 30 86 19 09 92 04 66 92 03 68 92 02 6A 91 01 02 C5 F7 2D 03 14
           92 07 05 91 00 02 C7 F6 AF 8E 88 04 AD 8D 88 59 AF AF AF AF B4 AF 70
           89 B8 2C 07 05 19 09
          )
      0. 1. #\Space NEXT-ARG "()" FORMAT-PADDED-STRING
  )  )
#Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-S-EXPRESSION REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-S-EXPRESSION
      #115Y(03 00 04 00 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C3 F8 3A
            01 2D C5 F7 91 04 2B C3 FA 91 03 29 C4 F9 91 02 27 C3 F8 92 01 25
            1A 25 DC B3 37 02 30 8B 19 09 92 07 03 92 00 72 AA B3 30 83 19 09
            C8 1A 27 92 04 55 92 03 57 92 02 59 91 01 02 C5 F7 2D 03 14 AF 8E
            88 04 AD 8D 88 58 AF AF AF AF B4 92 0C 03 92 05 59 AF 30 88 14 B8
            2C 07 06 19 09
           )
      0. 1. #\Space NEXT-ARG "()" "()" FORMAT-PADDED-STRING
  )  )
#Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-WRITE REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-WRITE
      #95Y(03 00 04 00 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C3 F8 3A 01
           1E C5 F7 91 04 1C C3 FA 91 03 1A C4 F9 91 02 18 C3 F8 92 01 16 1A 16
           AA 37 0C BF 30 82 19 09 92 04 64 92 03 66 92 02 68 91 01 02 C5 F7 2D
           03 14 AF 8E 88 04 AD 8D 88 5F AF AF AF AF B4 AF 37 0C 70 87 B8 2C 07
           04 19 09
          )
      0. 1. #\Space NEXT-ARG FORMAT-PADDED-STRING
  )  )
#Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-DECIMAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-DECIMAL
      #33Y(03 00 03 00 00 00 3A 03 02 C3 F9 3A 02 02 C4 F8 3A 01 02 C5 F7 DB B1
           B1 B1 B1 B1 B1 2C 07 04 19 07
          )
      0. #\Space #\, 10. FORMAT-BASE
  )  )
#Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-BINARY REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-BINARY
      #33Y(03 00 03 00 00 00 3A 03 02 C3 F9 3A 02 02 C4 F8 3A 01 02 C5 F7 DB B1
           B1 B1 B1 B1 B1 2C 07 04 19 07
          )
      0. #\Space #\, 2. FORMAT-BASE
  )  )
#Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-OCTAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-OCTAL
      #33Y(03 00 03 00 00 00 3A 03 02 C3 F9 3A 02 02 C4 F8 3A 01 02 C5 F7 DB B1
           B1 B1 B1 B1 B1 2C 07 04 19 07
          )
      0. #\Space #\, 8. FORMAT-BASE
  )  )
#Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-HEXADECIMAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-HEXADECIMAL
      #33Y(03 00 03 00 00 00 3A 03 02 C3 F9 3A 02 02 C4 F8 3A 01 02 C5 F7 DB B1
           B1 B1 B1 B1 B1 2C 07 04 19 07
          )
      0. #\Space #\, 16. FORMAT-BASE
  )  )
#Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-RADIX REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-RADIX
      #128Y(03 00 04 00 00 00 3C 04 3A 03 02 C3 F9 3A 02 02 C4 F8 3A 01 80 4A
            C5 F7 91 03 80 48 C3 F9 91 02 80 46 C4 F8 92 01 80 43 1A 80 42 14
            AF AF AF B5 B5 B0 B9 2C 08 04 19 09 AA B3 2F 05 19 09 91 07 77 AA
            B3 2F 06 19 09 AA 8D 0C 73 6A 07 62 E0 E1 E2 6D 03 0B AD 2C 04 0C
            19 09 AA B3 2F 0D 19 09 92 03 FF B8 92 02 FF BA 91 01 02 C5 F7 2D
            03 14 91 05 FF B7 91 06 50 91 07 60 AA B3 2F 0E 19 09
           )
      0. #\Space #\, NEXT-ARG FORMAT-INTEGER FORMAT-OLD-ROMAN FORMAT-NEW-ROMAN
      *FORMAT-CS*
      "The ~~R and ~~:R directives require an integer argument, not ~S"
      "Die ~~R- und ~~:R-Direktiven erwarten ein Integer als Argument, nicht ~S"
      "Les directives ~~R et ~~:R nécessitent un argument de type entier et non ~S"
      LANGUAGE FORMAT-ERROR FORMAT-ORDINAL FORMAT-CARDINAL
  )  )
#Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-PLURAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-PLURAL
      #49Y(03 00 00 00 00 04 92 02 04 63 D8 2F 01 2D 02 14 C3 59 14 91 02 0C 91
           00 15 DD AF 30 8A 19 05 C6 1A 04 91 00 7A C7 14 AF 37 02 30 8B 19 05
           00 19 05
          )
      1. FORMAT-GOTO-NEW-ARG NEXT-ARG "y" "ies" #\s
  )  )
#Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-CHARACTER REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-CHARACTER
      #195Y(03 00 00 00 00 04 00 2A 01 7E 04 00 00 2D 00 14 AA 8D 1B 0D 6A 01
            62 DA DB DC 6D 03 05 AD 2C 04 06 AB 6C 07 01 92 04 09 92 05 3F E3
            E4 62 1A 80 66 E0 62 1A 26 00 1A 18 86 01 00 AD AB 8C 30 19 AA 71
            82 37 02 70 4B 67 05 00 37 01 91 0A 66 CC 14 30 8B E2 67 05 00 30
            8A 82 01 AB 8C 94 59 16 02 AB 37 02 70 28 9C 33 19 07 AB 67 03 00
            30 83 19 07 78 67 04 00 37 02 30 8B 19 08 86 01 00 AE AB 8C 30 0F
            93 02 67 06 00 37 02 30 8B AE AB 62 7F 31 04 82 02 82 01 AB 8C 94
            61 16 03 AB E5 37 03 70 BC 91 00 4C AC E6 8C 30 13 E7 E8 E9 6D 03
            05 67 04 00 37 02 30 8B AC E6 62 7F 31 02 AC 9D 33 19 08
           )
      NEXT-ARG *FORMAT-CS*
      "The ~~C directive requires a character argument, not ~S"
      "Die ~~C-Direktive erwartet ein Character, nicht ~S"
      "La directive ~~C requiert un caractère et non ~S" LANGUAGE FORMAT-ERROR
      #Y(FORMAT-CHARACTER-WRITE-CHARNAME
         #34Y(01 00 00 00 00 02 AB 70 2F 91 00 08 AC 68 00 01 30 8A 19 03 14 37
              02 70 4B 68 00 01 37 02 30 8B 19 03
             )
         NIL
        )
      (:CONTROL :META :SUPER :HYPER) 1. #\- ("Shift-" "Control-" "Alternate-")
      (:SUPER :CONTROL :META)
      ((#\HYPER-Dle . "Insert") (#\HYPER-Dc1 . "End") (#\HYPER-Dc2 . "Down")
       (#\HYPER-Dc3 . "PgDn") (#\HYPER-Dc4 . "Left") (#\HYPER-Nak . "Center")
       (#\HYPER-Syn . "Right") (#\HYPER-Etb . "Home") (#\HYPER-Can . "Up")
       (#\HYPER-Em . "PgUp") (#\HYPER-A . "F1") (#\HYPER-B . "F2")
       (#\HYPER-C . "F3") (#\HYPER-D . "F4") (#\HYPER-E . "F5")
       (#\HYPER-F . "F6") (#\HYPER-G . "F7") (#\HYPER-H . "F8")
       (#\HYPER-I . "F9") (#\HYPER-J . "F10") (#\HYPER-K . "F11")
       (#\HYPER-L . "F12")
      )
      :HYPER "Keypad-" "Ziffernblock-" "Keypad-"
  )  )
#Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-FIXED-FLOAT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-FIXED-FLOAT
      #76Y(03 00 05 00 00 00 3C 05 3C 04 3A 03 02 C3 F9 3C 02 3A 01 19 C4 F7 91
           03 17 C3 F9 92 01 15 1A 15 B0 B0 B0 B0 B0 B6 B0 BA 2C 08 03 19 0A 92
           03 69 91 01 02 C4 F7 2D 02 14 AA 8E 0E 06 AA 37 01 80 A5 00 AA 8D 0F
           5A AA B4 2F 04 19 0A
          )
      0. #\Space NEXT-ARG FORMAT-FLOAT-FOR-F FORMAT-ASCII-DECIMAL
  )  )
#Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-EXPONENTIAL-FLOAT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-EXPONENTIAL-FLOAT
      #85Y(03 00 07 00 00 00 3C 07 3C 06 3C 05 3A 04 02 C3 FA 3C 03 3A 02 02 C4
           F8 3A 01 1B 7C 01 91 04 19 C3 FA 92 02 17 1A 17 B2 B2 B2 B2 B2 B2 B2
           BA B2 BE 2C 0A 03 19 0C 92 04 67 91 02 02 C4 F8 2D 02 14 AA 8E 0E 06
           AA 37 01 80 A5 00 AA 8D 0F 58 AA B6 2F 04 19 0C
          )
      1. #\Space NEXT-ARG FORMAT-FLOAT-FOR-E FORMAT-ASCII-DECIMAL
  )  )
#Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-GENERAL-FLOAT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-GENERAL-FLOAT
      #186Y(03 00 07 00 00 00 3C 07 3C 06 3C 05 3A 04 02 C3 FA 3C 03 3A 02 02
            C4 F8 3A 01 80 7D 7C 01 91 04 80 7B C3 FA 92 02 80 78 1A 80 77 AC
            71 95 01 04 2C 05 04 41 02 96 00 D8 72 01 33 AD DD 72 01 34 32 01
            33 16 02 FF 92 08 33 DE B3 32 02 35 1A 2D 14 AC 32 01 36 1A 04 91
            0C 76 00 14 AB E0 B5 B5 BC B4 C0 2C 08 09 AB D9 BB 2C 03 0A 19 10
            AA 71 95 2E 03 41 02 92 09 FF B2 91 08 4D CA 14 B4 AC 72 01 36 E0
            AB B7 8F 02 31 4D B6 B6 B6 B6 B6 B6 B6 BE B6 C2 2C 0A 0B 19 10 92
            04 FF 85 91 02 02 C4 F8 2D 02 14 AA 8E 0E 06 AA 37 01 80 A5 00 AA
            8D 0F FF BA AA B6 2F 0C 19 0C
           )
      1. #\Space NEXT-ARG FORMAT-SCALE-EXPONENT FORMAT-FLOAT-TO-STRING 7. 2. 4.
      0. FORMAT-FLOAT-FOR-F FORMAT-PADDING FORMAT-FLOAT-FOR-E
      FORMAT-ASCII-DECIMAL
  )  )
#Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-DOLLARS-FLOAT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-DOLLARS-FLOAT
      #184Y(03 00 04 00 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C5 F8 3A
            01 1D C6 F7 91 04 1B C3 FA 91 03 19 C4 F9 91 02 17 C5 F8 92 01 15
            1A 15 C4 1A 3C CA 1A 80 59 92 04 65 92 03 67 92 02 69 91 01 02 C6
            F7 2D 04 14 AA 8E 0E 06 AA 37 01 80 A5 00 AA 8E 0F 80 5D AA 62 B1
            DA 62 2C 05 05 41 05 AA B4 72 01 33 D9 91 0D 46 B1 8D 8A 42 C5 14
            AC B8 72 04 35 B4 AB 72 01 36 DA 72 01 33 91 0F 06 AA B5 BC 2C 03
            06 B2 8D 8A FF A7 92 0E 0A CB 14 BB 30 8A 92 0F 0B 1A 03 92 0F 06
            AA B5 BC 2C 03 06 AC AE 72 01 36 E1 BC 2C 03 06 B1 BB 37 02 30 8B
            19 11 AA B3 2F 0A 19 09
           )
      2. 1. 0. #\Space NEXT-ARG FORMAT-FLOAT-TO-STRING FORMAT-PADDING #\- #\+
      #\0 FORMAT-ASCII-DECIMAL
  )  )
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-TERPRI REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-TERPRI
      #38Y(03 00 01 00 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A
           05 AF 30 8D 84 00 AA AD 90 01 32 75 00 19 06
          )
      1. 0.
  )  )
#Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-FRESH-LINE REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-FRESH-LINE
      #50Y(03 00 01 00 00 0A 3A 01 1D C3 F7 92 01 1B 1A 1B AE 30 8E D9 96 02 1A
           05 B0 30 8D 84 01 AB AB 90 01 32 75 00 19 07 91 01 02 C3 F7 AB 8D 89
           61 00 19 05
          )
      1. 0.
  )  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-PAGE REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-PAGE
      #39Y(03 00 01 00 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A
           06 DA B0 30 8A 84 00 AA AD 90 01 32 74 00 19 06
          )
      1. 0. #\Page
  )  )
#Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-TILDE REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-TILDE
      #39Y(03 00 01 00 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A
           06 DA B0 30 8A 84 00 AA AD 90 01 32 74 00 19 06
          )
      1. 0. #\~
  )  )
#Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-TABULATE REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-TABULATE
      #106Y(03 00 02 00 00 0F 3A 02 02 C3 F8 3A 01 22 C3 F7 91 02 20 C3 F8 92
            01 1E 1A 1E AC AB AE 72 02 35 72 00 36 9E 1A 36 AC AB 32 01 36 1A
            35 00 19 09 92 02 60 91 01 02 C3 F7 AC D9 72 01 33 AC D8 72 01 33
            B1 70 92 91 06 52 AA AD 8F 01 2F 58 AE 8D 88 5B AE AD AC 72 01 36
            B0 32 00 36 14 71 AE 32 02 35 14 DA B4 2C 03 03 19 09
           )
      1. 0. #\Space FORMAT-PADDING
  )  )
#Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-GOTO REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-GOTO
      #40Y(03 00 01 00 00 0A 3A 01 12 7C 01 92 02 10 91 01 01 C3 14 6A 01 30 9D
           0F 02 19 05 91 02 70 AD 91 02 01 C6 14 2F 04 19 05
          )
      0. *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 1. FORMAT-GOTO-NEW-ARG
  )  )
#Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-INDIRECTION REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-INDIRECTION
      #99Y(03 00 00 00 00 04 2D 00 14 AA 8D 07 0D 6A 01 62 DA DB DC 6D 03 05 AD
           2C 04 06 AA 7A 01 AB DF AC 62 2C 04 08 91 03 2B 2D 00 14 AA 8D 0B 0D
           6A 01 62 E4 E5 E6 6D 03 05 AD 2C 04 06 9C 5A 10 01 9F 5B 10 09 A1 10
           0F 0E 0F 10 10 BC 2E 0B 11 12 03 19 07 93 00 9C 5B 10 09 00 10 0A A1
           10 01 B9 2E 0B 1A 6B
          )
      NEXT-ARG *FORMAT-CS*
      "The control string argument for the ~~? directive is invalid: ~S"
      "Als Kontrollstring für ~~? ist das untauglich: ~S"
      "~S ne convient pas comme chaîne de contrôle pour ~~?." LANGUAGE
      FORMAT-ERROR 0. FORMAT-PARSE-CS *FORMAT-CSDL* *FORMAT-UP-AND-OUT*
      FORMAT-INTERPRET
      "The argument list argument for the ~~? directive is invalid: ~S"
      "Das ist keine passende Argumentliste für die ~~?-Direktive: ~S"
      "Ceci n'est pas une liste d'arguments convenable pour la directive ~~? : ~S"
      *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG*
  )  )
#Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-CASE-CONVERSION REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-CASE-CONVERSION
      #103Y(03 00 00 00 00 04 0E 00 5B 0F 00 AD 70 92 71 6D AA D9 2F 02 AA 80
            6E 00 91 03 17 91 02 1E AA 37 02 30 48 14 AF 37 02 30 8B 19 05 AA
            37 02 30 46 1A 71 91 02 76 AA 37 02 30 4A 1A 67 AA 37 02 7F 48 00
            DB AB 71 45 1A 02 84 01 AB AB 8F 01 32 11 AC AC 70 33 8C 21 71 AC
            AC AE AE 70 33 70 2A 30 35 16 02 9B 1A FF BC
           )
      *FORMAT-CSDL* FORMAT-CASE-CONVERSION-END FORMAT-INTERPRET 0.
  )  )
#Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-CONDITIONAL REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-CONDITIONAL
      #191Y(03 00 01 00 00 0A 3A 01 29 7C 01 92 03 27 91 02 12 2D 06 1C 2C 0E
            07 77 E0 AB E1 31 2E 16 01 0F 07 1A 1E 6A 00 62 D9 DA DB 6D 03 04
            2C 03 05 1A 80 89 91 03 59 92 02 19 2D 06 1C 80 7E 63 E4 2F 0D 0E
            07 5B 0F 07 AE E2 2F 0B 1A 80 6E EA 1A 80 4B 91 01 02 2D 06 14 AA
            8D 0C 0D 6A 00 62 E6 E7 E8 6D 03 04 AD 2C 04 05 E9 AB 8D 8A 60 AB
            1A 2C 16 02 1A 30 16 02 1A 2C 0E 07 77 E0 AB EB 80 2E 00 23 0A 6C
            0E 07 77 E0 AB E1 31 2E 16 01 0F 07 77 E0 AB EC 31 2E 16 01 1B 5A
            84 01 AB AB 90 01 32 56 16 02 0E 07 77 E0 AB EB 80 2E 00 23 0A 05
            0E 07 5B 0F 07 AF E2 2F 0B 16 01 2D 15 19 05
           )
      *FORMAT-CS* "The ~~[ directive cannot take both modifiers."
      "~~[ geht nicht mit : und @ gleichzeitig."
      "La directive ~~[ ne peut pas accepter les deux qualificateurs : et @ en même temps."
      LANGUAGE FORMAT-ERROR NEXT-ARG *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8.
      FORMAT-CONDITIONAL-END FORMAT-INTERPRET 1. FORMAT-GOTO-NEW-ARG
      "The ~~[ parameter must be an integer, not ~S"
      "Argument für ~~[ muß ein Integer sein, nicht ~S"
      "L'argument pour ~~[ doit être un entier et non ~S" 0.
      #.MOST-POSITIVE-FIXNUM 7. 5. FORMAT-SKIP-TO-END
  )  )
#Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-ITERATION REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-ITERATION
      #263Y(03 00 01 00 00 0A 3C 01 6A 00 2D 01 0E 00 77 DA AB DB 80 2E 00 94
            01 0E 00 21 80 60 0E 05 14 94 02 0E 00 21 80 5B 9D 5B 14 92 06 80
            76 00 14 DE 92 07 07 AA B2 8F 01 32 80 CA 91 08 80 70 9C 14 92 05
            80 BC AB 8D 89 80 6A 16 01 1B 80 B6 91 09 80 6C 91 08 80 87 9C 10
            0E 0E 0E 10 0D A4 10 05 A6 10 00 00 10 0F 65 19 E8 2F 11 0E 0D 09
            10 6A 0F 24 12 80 7E 00 12 02 12 03 19 0B 2D 04 1A FF 9D AA 7A 01
            AB DE AC 62 2C 04 07 9B 5B 16 01 1A FF 96 6A 05 62 E0 E1 E2 6D 03
            0B AD 2C 04 0C 15 1A FF 8B 2D 04 14 AA 8E 0B 68 15 1A FF 80 0E 0D
            1A FF 8C 15 1C 80 4D 1A FF 94 2D 04 1A 08 91 08 79 93 01 82 02 15
            10 0E 0E 0E 10 0D A4 10 05 A6 10 00 00 10 0F 65 19 E8 2F 11 1A FF
            92 9E 10 05 A0 10 00 00 10 0F BD E8 2F 11 6A 0F 24 12 06 00 1A FF
            85 12 02 12 03 84 00 92 07 FF 3D 1A FF 33 15 1B FF 4A 00 19 0B
           )
      *FORMAT-CSDL* FORMAT-SKIP-TO-END CONTROL-STRING-DIRECTIVE 5. NEXT-ARG
      *FORMAT-CS* 0. FORMAT-PARSE-CS
      "The ~~{ directive requires a list argument, not ~S"
      "Das Argument zu ~~{ muß eine Liste sein, nicht ~S"
      "L'argument de ~~{ doit être une liste et non ~S" LANGUAGE FORMAT-ERROR
      *FORMAT-NEXT-ARG* *FORMAT-ARG-LIST* *FORMAT-UP-AND-OUT*
      FORMAT-ITERATION-END FORMAT-INTERPRET :TERMINATE-ALL
  )  )
#Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-JUSTIFICATION REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-JUSTIFICATION
      #275Y(03 00 04 00 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C3 F8 3A
            01 16 C5 F7 91 04 14 C3 FA 91 03 12 C4 F9 91 02 10 C3 F8 92 01 0E
            1A 0E 92 04 6C 92 03 6E 92 02 70 91 01 02 C5 F7 6A 03 B2 70 92 AA
            71 6D 01 04 63 1A 80 A4 0E 03 77 2E 0B 43 41 02 69 06 69 06 0E 07
            1C 80 8B A5 0F 03 2D 0C 11 16 01 1A 80 97 9B 5B 1A 80 9B B6 B6 B6
            BB BB AF 2C 06 0D 41 02 92 06 1A B2 AB 91 07 01 C3 14 72 03 35 91
            05 01 D1 14 90 01 30 07 93 03 BC 37 02 30 8B D8 1A 17 AC 9C 5E 14
            B7 BE 2C 03 0F 92 03 13 93 03 82 04 BD 37 02 30 8B 84 00 AC 9C 5E
            1B 64 91 03 6D 00 19 13 0E 03 5B 0F 03 00 10 07 B2 DE 2F 08 92 03
            1A 0E 03 77 DC AB DD 80 2E 00 24 09 0E 0E 03 77 DC AB E2 31 2E 16
            01 FD 1B FF 69 0E 07 1B FF 75 B2 71 6E 83 04 11 7C 00 0E 03 77 DC
            AB DD 80 2E 00 24 06 FF BD 16 01 AA 80 47 00 91 03 FF 61 9B 14 91
            00 FF 60 B6 B4 BB 2C 03 0F 19 10
           )
      0. 1. #\Space *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 7.
      FORMAT-JUSTIFICATION-END *FORMAT-UP-AND-OUT* FORMAT-INTERPRET
      FORMAT-SEPARATOR 5. FORMAT-RESOLVE-PARMS FORMAT-SKIP-TO-END
      FORMAT-JUSTIFIED-SEGMENTS 72. FORMAT-PADDING
  )  )
#Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FORMAT-UP-AND-OUT REMOVE-OLD-DEFINITIONS
   #Y(FORMAT-UP-AND-OUT
      #113Y(03 00 03 00 00 00 3C 03 3C 02 3A 01 21 7C 01 92 03 1F 1A 23 0E 00
            1C 80 46 1A 80 52 AD 24 01 80 4D 1A 3C AD AD 8E 01 80 45 1A 34 C5
            1A 35 91 03 06 91 02 03 92 01 5D 91 02 03 92 01 5F 92 01 63 AD 8E
            0C 08 AC 8E 0C 04 AB 8D 0C 1B AD 8E 1B 1E AC 8E 1B 1A AB 8E 1B 16
            AD AD AD 90 02 0B 0F 91 05 49 C6 0F 04 19 07 AD AD AD 8F 02 31 71
            00 19 07
           )
      *FORMAT-NEXT-ARG* 0. :TERMINATE-ALL :TERMINATE *FORMAT-UP-AND-OUT*
  )  )