home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / format.fas < prev    next >
Text File  |  1996-08-07  |  86KB  |  1,664 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #357Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 62 DE 72 04 00 31
  5.          88 DB 2E 07 E0 30 5D E1 30 5D E2 2E 01 E2 E3 E4 31 88 E2 E5 31 82 E6
  6.          30 5D E7 30 5D E8 2E 01 E8 E3 E9 31 88 E8 EA 31 82 EB 30 5D EC 30 5D
  7.          ED 2E 01 ED E3 EE 31 88 ED EF 31 82 F0 30 5D F1 30 5D F2 2E 01 F2 E3
  8.          F3 31 88 F2 F4 31 82 F5 30 5D 64 1E 30 5D 64 1F 2E 01 64 1F E3 64 20
  9.          31 88 64 1F 64 21 31 82 64 22 30 5D 64 23 30 5D 64 24 2E 01 64 24 E3
  10.          64 25 31 88 64 24 64 26 31 82 64 27 30 5D 64 28 30 5D 64 29 2E 01 64
  11.          29 E3 64 2A 31 88 64 29 64 2B 31 82 64 2C 30 5D 64 2D 30 5D 64 2E 2E
  12.          01 64 2E E3 64 2F 31 88 64 2E 64 30 31 82 E2 64 31 64 32 03 33 79 31
  13.          88 E2 64 34 62 2C 03 35 E8 64 31 64 32 03 36 79 31 88 E8 64 34 62 2C
  14.          03 35 ED 64 31 64 32 03 37 79 31 88 ED 64 34 62 2C 03 35 F2 64 31 64
  15.          32 03 38 79 31 88 F2 64 34 62 2C 03 35 64 1F 64 31 64 32 03 39 79 31
  16.          88 64 1F 64 34 62 2C 03 35 64 24 64 31 64 32 03 3A 79 31 88 64 24 64
  17.          34 62 2C 03 35 64 29 64 31 64 32 03 3B 79 31 88 64 29 64 34 62 2C 03
  18.          35 64 2E 64 31 64 32 03 3C 79 31 88 64 2E 64 34 62 2C 03 35 DB 64 3D
  19.          62 2C 03 35 DB 64 3E 31 89 C6 19 01
  20.         )
  21.    MAKE-CSD REMOVE-OLD-DEFINITIONS
  22.    #Y(MAKE-CSD
  23.       #61Y(00 00 00 00 00 01 D8 D9 71 33 DA AB DB DC 31 32 DA AB DD DC 31 32 DA
  24.            AB DE 62 31 32 DA AB DF 62 31 32 DA AB E0 62 31 32 DA AB E1 62 31 32
  25.            DA AB E2 62 31 32 DA AB E3 62 31 32 15 19 01
  26.           )
  27.       #1=(CONTROL-STRING-DIRECTIVE) 9. CONTROL-STRING-DIRECTIVE 1. 0. 2. 3. 4.
  28.       5. 6. 7. 8.
  29.      )
  30.    CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION #1#
  31.    ((TYPE 1. 0. FIXNUM NIL) (CS-INDEX 2. 0. FIXNUM NIL)
  32.      (PARM-LIST 3. NIL LIST NIL) (V-OR-#-P 4. NIL SYMBOL NIL)
  33.      (COLON-P 5. NIL SYMBOL NIL) (ATSIGN-P 6. NIL SYMBOL NIL)
  34.      (DATA 7. NIL T NIL) (CLAUSE-CHAIN 8. NIL T NIL)
  35.    )
  36.    CLOS::DEFINE-STRUCTURE-CLASS
  37.    (FUNCTION CSD-TYPE (CONTROL-STRING-DIRECTIVE) FIXNUM) (INLINE CSD-TYPE)
  38.    CSD-TYPE INLINE-EXPANSION
  39.    (#2=(OBJECT) (DECLARE (IN-DEFUN CSD-TYPE))
  40.      (BLOCK CSD-TYPE
  41.        (THE FIXNUM (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 1.))
  42.    ) )
  43.    #Y(CSD-TYPE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  44.       CONTROL-STRING-DIRECTIVE 1.
  45.      )
  46.    (FUNCTION CSD-CS-INDEX (CONTROL-STRING-DIRECTIVE) FIXNUM)
  47.    (INLINE CSD-CS-INDEX) CSD-CS-INDEX
  48.    (#2# (DECLARE (IN-DEFUN CSD-CS-INDEX))
  49.      (BLOCK CSD-CS-INDEX
  50.        (THE FIXNUM (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 2.))
  51.    ) )
  52.    #Y(CSD-CS-INDEX #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  53.       CONTROL-STRING-DIRECTIVE 2.
  54.      )
  55.    (FUNCTION CSD-PARM-LIST (CONTROL-STRING-DIRECTIVE) LIST)
  56.    (INLINE CSD-PARM-LIST) CSD-PARM-LIST
  57.    (#2# (DECLARE (IN-DEFUN CSD-PARM-LIST))
  58.      (BLOCK CSD-PARM-LIST
  59.        (THE LIST (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 3.))
  60.    ) )
  61.    #Y(CSD-PARM-LIST #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  62.       CONTROL-STRING-DIRECTIVE 3.
  63.      )
  64.    (FUNCTION CSD-V-OR-#-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  65.    (INLINE CSD-V-OR-#-P) CSD-V-OR-#-P
  66.    (#2# (DECLARE (IN-DEFUN CSD-V-OR-#-P))
  67.      (BLOCK CSD-V-OR-#-P
  68.        (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 4.))
  69.    ) )
  70.    #Y(CSD-V-OR-#-P #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  71.       CONTROL-STRING-DIRECTIVE 4.
  72.      )
  73.    (FUNCTION CSD-COLON-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  74.    (INLINE CSD-COLON-P) CSD-COLON-P
  75.    (#2# (DECLARE (IN-DEFUN CSD-COLON-P))
  76.      (BLOCK CSD-COLON-P
  77.        (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 5.))
  78.    ) )
  79.    #Y(CSD-COLON-P #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  80.       CONTROL-STRING-DIRECTIVE 5.
  81.      )
  82.    (FUNCTION CSD-ATSIGN-P (CONTROL-STRING-DIRECTIVE) SYMBOL)
  83.    (INLINE CSD-ATSIGN-P) CSD-ATSIGN-P
  84.    (#2# (DECLARE (IN-DEFUN CSD-ATSIGN-P))
  85.      (BLOCK CSD-ATSIGN-P
  86.        (THE SYMBOL (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 6.))
  87.    ) )
  88.    #Y(CSD-ATSIGN-P #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  89.       CONTROL-STRING-DIRECTIVE 6.
  90.      )
  91.    (FUNCTION CSD-DATA (CONTROL-STRING-DIRECTIVE) T) (INLINE CSD-DATA) CSD-DATA
  92.    (#2# (DECLARE (IN-DEFUN CSD-DATA))
  93.      (BLOCK CSD-DATA
  94.        (THE T (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 7.))
  95.    ) )
  96.    #Y(CSD-DATA #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  97.       CONTROL-STRING-DIRECTIVE 7.
  98.      )
  99.    (FUNCTION CSD-CLAUSE-CHAIN (CONTROL-STRING-DIRECTIVE) T)
  100.    (INLINE CSD-CLAUSE-CHAIN) CSD-CLAUSE-CHAIN
  101.    (#2# (DECLARE (IN-DEFUN CSD-CLAUSE-CHAIN))
  102.      (BLOCK CSD-CLAUSE-CHAIN
  103.        (THE T (%STRUCTURE-REF 'CONTROL-STRING-DIRECTIVE OBJECT 8.))
  104.    ) )
  105.    #Y(CSD-CLAUSE-CHAIN #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  106.       CONTROL-STRING-DIRECTIVE 8.
  107.      )
  108.    SETF-EXPANDER -1.
  109.    #Y(SETF-CSD-TYPE
  110.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
  111.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 1. THE FIXNUM
  112.      )
  113.    SETF %SET-DOCUMENTATION
  114.    #Y(SETF-CSD-CS-INDEX
  115.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
  116.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 2. THE FIXNUM
  117.      )
  118.    #Y(SETF-CSD-PARM-LIST
  119.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
  120.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 3. THE LIST
  121.      )
  122.    #Y(SETF-CSD-V-OR-#-P
  123.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
  124.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 4. THE SYMBOL
  125.      )
  126.    #Y(SETF-CSD-COLON-P
  127.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
  128.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 5. THE SYMBOL
  129.      )
  130.    #Y(SETF-CSD-ATSIGN-P
  131.       #22Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04)
  132.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 6. THE SYMBOL
  133.      )
  134.    #Y(SETF-CSD-DATA #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  135.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 7.
  136.      )
  137.    #Y(SETF-CSD-CLAUSE-CHAIN
  138.       #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  139.       %STRUCTURE-STORE 'CONTROL-STRING-DIRECTIVE 8.
  140.      )
  141.    STRUCTURE STRUCTURE-PRINT
  142.   )
  143. #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D8 D9 31 89 19 01)
  144.    CONTROL-STRING-DIRECTIVE DEFSTRUCT-DESCRIPTION
  145.   )
  146. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  147.    WHITESPACEP REMOVE-OLD-DEFINITIONS
  148.    #Y(WHITESPACEP #14Y(00 01 00 00 00 02 AB D8 37 03 30 B7 19 02)
  149.       (#\Space #\Newline #\Newline #\Tab #\Return #\Page)
  150.   )  )
  151. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  152.    FORMAT-PARSE-CS REMOVE-OLD-DEFINITIONS
  153.    #Y(FORMAT-PARSE-CS
  154.       #670Y(00 04 00 00 00 05 AD 01 03 93 06 1A 82 6F B3 80 48 04 14 DA AD DD
  155.             AD 31 32 16 01 92 06 82 79 1A 82 67 B3 AF 7F 35 03 14 23 00 27 B1
  156.             2D 01 F8 14 7A 01 7F AE 07 DA AC DB DB 31 32 DA AC DC B1 31 32 D8
  157.             B4 37 06 A7 FA 80 60 04 1C 42 DA AC DD B1 31 32 B1 2D 01 F8 14 7A
  158.             01 7F AE 07 DA AC DB DC 31 32 DA AC DC B1 31 32 DA AC DE 62 31 32
  159.             DA AC DF 62 31 32 DA AC E0 62 31 32 DA AC E1 62 31 32 DA AC DD 62
  160.             31 32 DA AC E2 62 31 32 1A 3B B3 AF CE 1A 80 DF 9E 25 0D 80 ED D2
  161.             1A 05 AD 23 0E 79 D3 14 AA DA AE DE 31 31 79 DA AE DE AD 31 32 16
  162.             02 DA AC DF 63 31 32 1A 80 81 62 DA AD DE 31 31 79 DA AD DE AD 31
  163.             32 16 01 84 04 14 B4 71 48 8F 01 32 FF BA B3 AF 7F 35 03 14 37 01
  164.             8C 24 FF B4 B3 AF 37 02 63 30 83 41 02 69 05 69 02 1B 0C B3 AF E9
  165.             EA EB 6D 03 14 B0 2C 04 0C AC DA AD DE 31 31 79 DA AD DE AD 31 32
  166.             16 01 1A 31 B3 AF ED EE EF 2C 03 14 1A 80 5C B3 AF CE 1A 80 56 84
  167.             04 14 B4 71 48 8F 01 32 65 B3 AF 7F 35 03 14 DA AD DE 31 31 79 DA
  168.             AD DE AD 31 32 16 01 84 04 AE B4 71 48 8F 01 32 52 B3 AF 7F 35 03
  169.             25 18 39 DA AC CB 1A 10 B3 AF 7F 35 03 14 23 19 72 AD 24 1A 27 DA
  170.             AC CC 14 63 31 32 84 04 14 B4 71 48 90 01 32 62 B3 AF CE 14 2C 03
  171.             0C 92 06 81 1D 1A 81 0B DA AD DD AD 31 32 1A 27 DA AC DE 71 31 71
  172.             4A DA AD DE AD 31 32 16 01 AD 70 2C F3 37 03 30 BE 78 91 00 5D B4
  173.             B0 F4 F5 64 1E 6D 03 14 2C 03 0C 16 01 84 04 9E 25 1F 80 C7 B3 AF
  174.             B3 A1 25 20 10 03 21 1A 0D 03 22 1A 09 03 23 1A 05 03 24 1A 01 00
  175.             14 27 FE 34 41 02 69 08 69 04 1A 80 A2 91 06 0F B3 AF 64 25 64 26
  176.             64 27 6D 03 14 B0 2C 04 0C AD B1 8D 03 10 B3 AF 64 28 64 29 64 2A
  177.             6D 03 14 B0 B4 2C 05 0C DA AB E2 B4 31 32 1A 80 8D B0 23 22 12 B0
  178.             23 24 0E B3 AF 64 2B 64 2C 64 2D 6D 03 14 2C 03 0C DA AB E2 B4 31
  179.             32 9C F6 1A 80 51 DA AC E1 8E 31 80 4A B3 AF 64 2F 64 30 64 31 6D
  180.             03 14 2C 03 0C 1A 3A B3 80 48 04 1A 34 DA AC DB 64 2E 31 32 DA AC
  181.             E0 8D 31 56 DA AC E1 8E 31 16 DA AC DB DB 31 32 96 04 DA AD DC AD
  182.             31 32 16 01 DA AC DD B1 31 32 98 32 B4 37 04 A5 F8 8E 62 47 FA AE
  183.             B4 71 48 90 01 32 FD 9C 92 06 0F B3 AF 64 33 64 34 64 35 6D 03 14
  184.             B3 2C 04 0C AE B2 3F 02 19 0A
  185.            )
  186.       #\~ MAKE-CSD CONTROL-STRING-DIRECTIVE 1. 2. 7. 3. 4. 5. 6. 8.
  187.       "Kontrollstring endet mitten in einer Direktive." FORMAT-ERROR
  188.       #S(HASH-TABLE EQ (#\@ . 200.) (#\: . 182.) (#\, . 35.) (#\# . 5.)
  189.          (#\v . 5.) (#\V . 5.) (#\' . 134.) (#\- . 73.) (#\+ . 73.)
  190.         )
  191.       #\# :ARG-COUNT :NEXT-ARG "~A must introduce a number."
  192.       "~A muß eine Zahl einleiten." "~A doit introduire un nombre." LANGUAGE
  193.       "The control string terminates in the middle of a parameter."
  194.       "Kontrollstring endet mitten in einem '-Parameter."
  195.       "La chaîne de contrôle se termine au milieu d'un paramètre."
  196.       #S(HASH-TABLE EQ (#\@ . 19.) (#\: . 1.) (#\, . -131.)) #\: #\@
  197.       ((#\A . FORMAT-ASCII) (#\S . FORMAT-S-EXPRESSION) (#\W . FORMAT-WRITE)
  198.         (#\D . FORMAT-DECIMAL) (#\B . FORMAT-BINARY) (#\O . FORMAT-OCTAL)
  199.         (#\X . FORMAT-HEXADECIMAL) (#\R . FORMAT-RADIX) (#\P . FORMAT-PLURAL)
  200.         (#\C . FORMAT-CHARACTER) (#\F . FORMAT-FIXED-FLOAT)
  201.         (#\E . FORMAT-EXPONENTIAL-FLOAT) (#\G . FORMAT-GENERAL-FLOAT)
  202.         (#\$ . FORMAT-DOLLARS-FLOAT) (#\% . FORMAT-TERPRI)
  203.         (#\& . FORMAT-FRESH-LINE) (#\Newline . #\Newline) (#\| . FORMAT-PAGE)
  204.         (#\~ . FORMAT-TILDE) (#\T . FORMAT-TABULATE) (#\* . FORMAT-GOTO)
  205.         (#\? . FORMAT-INDIRECTION) (#\( . FORMAT-CASE-CONVERSION)
  206.         (#\) . FORMAT-CASE-CONVERSION-END) (#\[ . FORMAT-CONDITIONAL)
  207.         (#\] . FORMAT-CONDITIONAL-END) (#\{ . FORMAT-ITERATION)
  208.         (#\} . FORMAT-ITERATION-END) (#\< . FORMAT-JUSTIFICATION)
  209.         (#\> . FORMAT-JUSTIFICATION-END) (#\^ . FORMAT-UP-AND-OUT)
  210.         (#\; . FORMAT-SEPARATOR)
  211.       )
  212.       "Non-existent directive" "Diese Direktive gibt es nicht."
  213.       "Directive non reconnue."
  214.       #S(HASH-TABLE EQ (#\Newline . 149.) (#\; . 87.) (#\> . 39.) (#\} . 39.)
  215.          (#\] . 39.) (#\) . 39.) (#\< . 2.) (#\{ . 2.) (#\[ . 2.) (#\( . 2.)
  216.         )
  217.       #S(HASH-TABLE EQ (#\< . 13.) (#\{ . 9.) (#\[ . 5.) (#\( . 1.)) #\) #\]
  218.       #\} #\>
  219.       "The closing directive '~A' does not have a corresponding opening one."
  220.       "Schließende Klammer '~A' ohne vorherige öffnende Klammer"
  221.       "Parenthèse fermante '~A' sans parenthèse ouvrante correspondante."
  222.       "The closing directive '~A' does not match the corresponding opening one. It should read '~A'."
  223.       "Schließende Klammer '~A' paßt nicht; sollte '~A' lauten."
  224.       "La parenthèse fermante '~A' ne correspond pas à celle ouvrante. Il devrait y avoir '~A'."
  225.       "The ~~; directive is not allowed at this point."
  226.       "Hier ist keine ~~;-Direktive möglich."
  227.       "La directive ~~; n'est pas permise ici." 0.
  228.       "The ~~newline directive cannot take both modifiers."
  229.       "Die ~~Newline-Direktive ist mit : und @ sinnlos."
  230.       "La directive ~~Newline est insensée avec les deux qualificateurs : et @."
  231.       WHITESPACEP "An opening directive is never closed; expecting '~A'."
  232.       "Schließende Klammer '~A' fehlt." "Il manque la borne fermante '~A'."
  233.   )  )
  234. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  235.    (SPECIAL *FORMAT-CS*) *FORMAT-CS*
  236.   )
  237. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  238.    (SPECIAL *FORMAT-CSDL*) *FORMAT-CSDL*
  239.   )
  240. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  241.    (SPECIAL *FORMAT-ARG-LIST*) *FORMAT-ARG-LIST*
  242.   )
  243. #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  244.    (SPECIAL *FORMAT-NEXT-ARG*) *FORMAT-NEXT-ARG*
  245.   )
  246. #Y(#:TOP-LEVEL-FORM-10 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  247.    (SPECIAL *FORMAT-NEXT-ARGLIST*) *FORMAT-NEXT-ARGLIST*
  248.   )
  249. #Y(#:TOP-LEVEL-FORM-11
  250.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  251.    (SPECIAL *FORMAT-UP-AND-OUT*) *FORMAT-UP-AND-OUT*
  252.   )
  253. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  254.    FORMAT-ERROR REMOVE-OLD-DEFINITIONS
  255.    #Y(FORMAT-ERROR
  256.       #122Y(00 03 00 00 01 19 92 04 80 69 91 03 0B 0E 00 77 D9 AB DA 31 31 16
  257.             01 F9 AC DB DC DD 6D 03 06 81 02 13 02 DF DF 1A 04 AA 80 97 01 E0
  258.             B1 37 06 A4 FA 8D 60 03 B0 31 48 F6 AE E1 81 02 13 04 AD B1 AD AD
  259.             70 50 7A 01 81 02 24 03 AB B0 AC 90 02 31 17 AE E2 E3 81 03 13 04
  260.             AD DA B1 AE 72 01 36 72 02 35 7A 01 81 02 24 03 AA B1 71 48 90 01
  261.             2D FF B6 16 02 E4 E5 AE 9F 9A 02 05
  262.            )
  263.       *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 2.
  264.       "~%Current point in control string:" "~%Stelle im Kontrollstring:"
  265.       "~%Position dans la chaîne de contrôle :" LANGUAGE 0. #\Newline "~%  ~A"
  266.       "~%~VT" "|" #.#'ERROR-OF-TYPE ERROR
  267.   )  )
  268. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  269.    FORMAT REMOVE-OLD-DEFINITIONS
  270.    #Y(FORMAT
  271.       #107Y(00 02 00 00 01 18 AC 8D 09 04 AC 8E 1F 14 92 03 17 AD 02 21 22 AD
  272.             8E 18 2D 9E 14 AD AD 2C 03 01 1A 37 AC 2E 00 91 03 69 37 01 71 76
  273.             AA AE AE 2C 03 01 AA 31 77 19 05 0E 02 1A 5F DB DC DD DE 6D 03 07
  274.             AF 32 01 1F AD 8E 09 12 AD 8C 15 6D AD 71 78 AA AE AE 2C 03 01 16
  275.             01 00 19 04 E0 E1 AF E2 E3 E4 E5 E6 6D 03 07 B3 32 05 1F
  276.            )
  277.       FORMAT-CS-ERROR FORMAT-APPLY *STANDARD-OUTPUT* ERROR
  278.       "The destination string ~S should have a fill pointer."
  279.       "String zum Vollschreiben ~S hat keinen Fill-Pointer."
  280.       "La chaîne destination n'a pas de pointeur de remplissage." LANGUAGE
  281.       TYPE-ERROR :DATUM :EXPECTED-TYPE (OR (MEMBER NIL T) STREAM STRING)
  282.       "The destination argument ~S is invalid (not NIL or T or a stream or a string)."
  283.       "Das ist weder NIL noch T noch ein Stream noch ein String: ~S"
  284.       "L'argument de destination n'est ni NIL, ni T, ni un «stream» ni une chaîne : ~S"
  285.   )  )
  286. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  287.    FORMAT-APPLY REMOVE-OLD-DEFINITIONS
  288.    #Y(FORMAT-APPLY
  289.       #74Y(00 03 00 01 00 0A 3A 01 02 9D F7 AD 8D 09 09 AD 8D 1F 2C AD 2E 09 19
  290.            05 AD 7A 01 AE D8 AC 62 2C 04 01 9B 5A 10 02 9E 5B 10 03 A3 10 04 A7
  291.            10 05 00 10 06 00 10 07 C1 2E 08 0E 05 12 06 19 06 00 10 02 B0 B2 A2
  292.            36 01 11 19 05
  293.           )
  294.       0. FORMAT-PARSE-CS *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST*
  295.       *FORMAT-NEXT-ARG* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT*
  296.       FORMAT-INTERPRET FORMAT-CS-ERROR
  297.   )  )
  298. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  299.    FORMAT-CS-ERROR REMOVE-OLD-DEFINITIONS
  300.    #Y(FORMAT-CS-ERROR
  301.       #22Y(00 01 00 00 00 02 D8 D9 AD DA DB DC DD DE 6D 03 07 E0 B2 32 06 1F)
  302.       TYPE-ERROR :DATUM :EXPECTED-TYPE (OR STRING FUNCTION)
  303.       "~S: The control-string must be a string, not ~S"
  304.       "~S: Kontrollstring muß ein String sein, nicht ~S"
  305.       "~S : La chaîne de contrôle doit être une chaîne et non ~S" LANGUAGE
  306.       FORMAT
  307.   )  )
  308. #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  309.    NEXT-ARG REMOVE-OLD-DEFINITIONS
  310.    #Y(NEXT-ARG
  311.       #35Y(00 00 00 00 00 01 0E 00 1F 0B 0E 00 77 0E 00 5B 0F 00 15 19 01 6A 01
  312.            62 DA DB DC 6D 03 05 2C 03 06 19 01
  313.           )
  314.       *FORMAT-NEXT-ARG* *FORMAT-CS*
  315.       "There are not enough arguments left for this directive."
  316.       "Nicht genügend Argumente für diese Direktive übrig."
  317.       "Il ne reste pas assez d'arguments pour cette directive." LANGUAGE
  318.       FORMAT-ERROR
  319.   )  )
  320. #Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  321.    FORMAT-INTERPRET REMOVE-OLD-DEFINITIONS
  322.    #Y(FORMAT-INTERPRET
  323.       #107Y(00 01 00 01 00 08 3A 01 08 7C 01 0E 00 1C 06 1A 09 0E 00 1B 05 6A
  324.             01 8C 96 03 00 19 03 0E 01 77 DA AB DB 31 31 25 04 34 6A 05 AE DA
  325.             AD DE 71 31 DA AE DF 71 31 30 8D 1A 23 DA AB DF 71 31 AA 9F 21 04
  326.             AA 24 08 03 00 19 05 AA AF DA AE E1 71 31 DA AF E2 71 31 AF 2E 0B
  327.             36 03 16 01 16 01 0E 01 5B 0F 01 0E 00 1C FF AD 1A FF AF
  328.            )
  329.       *FORMAT-UP-AND-OUT* *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 1.
  330.       #S(HASH-TABLE EQ (2. . 18.) (1. . 1.) (0. . 53.)) *FORMAT-CS* 2. 7.
  331.       FORMAT-SEPARATOR 5. 6. FORMAT-RESOLVE-PARMS
  332.   )  )
  333. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  334.    FORMAT-RESOLVE-PARMS REMOVE-OLD-DEFINITIONS
  335.    #Y(FORMAT-RESOLVE-PARMS
  336.       #62Y(00 01 00 00 00 02 D8 AC D9 71 31 D8 AD DA 8D 31 03 15 19 02 62 AB 1A
  337.            1C 2D 04 1A 11 6A 06 30 97 1A 0B 93 00 AA 23 03 70 AA 23 05 70 9B 14
  338.            83 02 16 01 82 00 9B 20 6B 16 01 AA 30 A7 19 04
  339.           )
  340.       CONTROL-STRING-DIRECTIVE 3. 4. :NEXT-ARG NEXT-ARG :ARG-COUNT
  341.       *FORMAT-NEXT-ARG*
  342.   )  )
  343. #Y(#:TOP-LEVEL-FORM-19
  344.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFFORMAT-SIMPLE
  345.    REMOVE-OLD-DEFINITIONS MACRO
  346.    #Y(DEFFORMAT-SIMPLE
  347.       #215Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 36 9D 5B 77 9E 5B 5B
  348.             5A 77 9F 5B 5B 5A 5B 77 A0 5B 5B 5A 5B 5B 77 A1 5B 5B 5A 5B 5B 78
  349.             A2 5B 5B 5B 5A 77 A3 5B 5B 5B 78 AA 62 B4 30 62 41 02 DA B3 6F 03
  350.             62 B0 1A 1E AC 2E 01 19 03 9B 5A 1A 0E E0 A3 79 60 01 1A 80 40 93
  351.             00 9B 20 6F 9B 14 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A7 00 DC
  352.             DD B6 B6 B6 B6 DE A2 7B 04 AF B8 B8 B8 B2 DF 32 02 23 7B 04 7A 04
  353.             DD AE B7 B7 B7 B1 B7 7A 01 32 02 23 7B 03 91 07 FF B9 00 14 62 B7
  354.             1A 28 E1 E2 93 02 7A 02 E3 93 03 9F 5B 77 7A 03 7A 03 60 01 1A 0B
  355.             93 00 9B 1F 05 9B 5B 5A 1B 62 00 14 AD 7F A5 02 16 01 82 00 9B 20
  356.             69 16 01 AA 7F A7 00 B4 32 03 23 7B 03 60 03 19 0E
  357.            )
  358.       4. MACRO-CALL-ERROR "DO-" CONCAT-PNAMES PROGN DEFUN &OPTIONAL
  359.       ((NEXT-ARG)) DECLARE IF NULL SETQ
  360.   )  )
  361. #Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  362.    FORMAT-GOTO-NEW-ARG REMOVE-OLD-DEFINITIONS
  363.    #Y(FORMAT-GOTO-NEW-ARG
  364.       #39Y(00 02 00 00 00 03 91 02 0A AB 0E 01 14 30 9F 0F 01 19 03 6A 00 70 97
  365.            6A 01 70 97 AD 72 02 36 DA 72 01 33 0E 00 1A 65
  366.           )
  367.       *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 0.
  368.   )  )
  369. #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  370.    FORMAT-OLD-ROMAN REMOVE-OLD-DEFINITIONS
  371.    #Y(FORMAT-OLD-ROMAN
  372.       #79Y(00 02 00 00 00 03 AC 8E 0E 07 D8 AD D9 8F 02 31 0D 6A 02 62 DB DC DD
  373.            6D 03 06 AF 2C 04 07 E0 E1 AE 1A 25 94 02 94 02 AC 93 04 31 B4 41 02
  374.            E2 1A 07 93 07 B4 30 8C 84 00 AA AD 90 01 32 73 16 01 15 16 01 F8 69
  375.            02 69 02 AA 8E 92 57 00 19 06
  376.           )
  377.       1. 4999. *FORMAT-CS*
  378.       "The ~~:@R directive requires an integer in the range 1 - 4999, not ~S"
  379.       "Die ~~:@R-Direktive erwartet ein Integer zwischen 1 und 4999, nicht ~S"
  380.       "La directive ~~:@R requiert un entier compris entre 1 et 4999 et non ~S"
  381.       LANGUAGE FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
  382.       (1000. 500. 100. 50. 10. 5. 1.) 0.
  383.   )  )
  384. #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  385.    FORMAT-NEW-ROMAN REMOVE-OLD-DEFINITIONS
  386.    #Y(FORMAT-NEW-ROMAN
  387.       #121Y(00 02 00 00 00 03 AC 8E 0E 07 D8 AD D9 8F 02 31 0D 6A 02 62 DB DC
  388.             DD 6D 03 06 AF 2C 04 07 E0 E1 E2 E3 B0 1A 80 4B 94 04 94 04 94 04
  389.             94 04 AE 93 08 31 B4 41 02 E4 1A 18 93 09 B8 30 8C 93 0B B8 30 8C
  390.             AB AB 32 01 36 1A 1D 93 0B B8 30 8C 84 00 AA AD 90 01 32 73 16 01
  391.             93 09 93 08 72 01 36 AB AB 8F 01 32 53 9C 16 03 FA 69 04 69 04 69
  392.             04 69 04 AA 8E 92 FF B0 00 19 08
  393.            )
  394.       1. 3999. *FORMAT-CS*
  395.       "The ~~@R directive requires an integer in the range 1 - 3999, not ~S"
  396.       "Die ~~@R-Direktive erwartet ein Integer zwischen 1 und 3999, nicht ~S"
  397.       "La directive ~~@R requiert un entier compris entre 1 et 3999 et non ~S"
  398.       LANGUAGE FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
  399.       (1000. 500. 100. 50. 10. 5. 1.) (#\C #\C #\X #\X #\I #\I)
  400.       (100. 100. 10. 10. 1. 1. 0.) 0.
  401.   )  )
  402. #Y(#:TOP-LEVEL-FORM-23
  403.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  404.         83 C3 19 01
  405.        )
  406.    FORMAT-CARDINAL-ONES
  407.    #1=#(NIL "one" "two" "three" "four" "five" "six" "seven" "eight" "nine"
  408.         "ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen" "sixteen"
  409.         "seventeen" "eighteen" "nineteen"
  410.        )
  411.    (DEFCONSTANT FORMAT-CARDINAL-ONES '#1#) CONSTANT-WARNING
  412.   )
  413. #Y(#:TOP-LEVEL-FORM-24
  414.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  415.         83 C3 19 01
  416.        )
  417.    FORMAT-CARDINAL-TENS
  418.    #1=#(NIL NIL "twenty" "thirty" "forty" "fifty" "sixty" "seventy" "eighty"
  419.         "ninety"
  420.        )
  421.    (DEFCONSTANT FORMAT-CARDINAL-TENS '#1#) CONSTANT-WARNING
  422.   )
  423. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  424.    FORMAT-SMALL-CARDINAL REMOVE-OLD-DEFINITIONS
  425.    #Y(FORMAT-SMALL-CARDINAL
  426.       #103Y(00 02 00 00 00 03 AC D8 31 B6 41 02 AB D9 90 01 30 0F DA 9D 5E 14
  427.             AE 37 02 30 8D DB AE 37 02 30 8D AA D9 90 01 30 3D AB D9 90 01 30
  428.             06 DC AE 37 02 30 8D AA DD 31 B6 41 02 AB DE 8F 01 2F 1E DF 9D 5E
  429.             14 B0 37 02 30 8D AA D9 90 01 30 13 E0 B0 30 8C DA 9C 5E 14 B0 37
  430.             02 30 8D 19 07 DA 9E 1A 73 00 19 07 00 19 05
  431.            )
  432.       100. 0. #.FORMAT-CARDINAL-ONES " hundred" " and " 10. 2.
  433.       #.FORMAT-CARDINAL-TENS #\-
  434.   )  )
  435. #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  436.    FORMAT-CARDINAL REMOVE-OLD-DEFINITIONS
  437.    #Y(FORMAT-CARDINAL
  438.       #54Y(00 02 00 00 00 03 00 2A 01 7E 02 00 00 AD 8D 92 1B AD 8E 94 0D D9 67
  439.            01 00 37 02 30 8D AD 81 00 36 03 AA 6C 02 01 DB AF 9D 33 19 05 D8 67
  440.            01 00 37 02 30 8D 19 04
  441.           )
  442.       "zero" "minus "
  443.       #Y(FORMAT-CARDINAL-BLOCKS1000
  444.          #84Y(00 02 00 00 00 03 92 02 24 1A 2E AB E0 90 01 30 08 E1 68 00 01 37
  445.               02 30 8D AA 68 00 01 2F 0A 93 04 68 00 01 37 02 30 8D 19 05 91 02
  446.               0C 6A 01 62 DA DB DC 6D 03 05 2C 03 06 AB DF 31 B6 41 02 AB E0 90
  447.               01 30 05 94 04 AC 27 60 AA E0 8F 01 30 FF BA 00 19 05
  448.              )
  449.          NIL *FORMAT-CS* "The argument for the ~~R directive is too large."
  450.          "Zu großes Argument für ~~R-Direktive."
  451.          "L'argument pour la directive ~~R est trop grand." LANGUAGE
  452.          FORMAT-ERROR 1000. 0. ", " FORMAT-SMALL-CARDINAL
  453.         )
  454.       ("" " thousand" " million" " billion" " trillion" " quadrillion"
  455.         " quintillion" " sextillion" " septillion" " octillion" " nonillion"
  456.         " decillion" " undecillion" " duodecillion" " tredecillion"
  457.         " quattuordecillion" " quindecillion" " sexdecillion"
  458.         " septendecillion" " octodecillion" " novemdecillion" " vigintillion"
  459.   )  ))
  460. #Y(#:TOP-LEVEL-FORM-27
  461.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  462.         83 C3 19 01
  463.        )
  464.    FORMAT-ORDINAL-ONES
  465.    #1=#(NIL "first" "second" "third" "fourth" "fifth" "sixth" "seventh"
  466.         "eighth" "ninth" "tenth" "eleventh" "twelfth" "thirteenth" "fourteenth"
  467.         "fifteenth" "sixteenth" "seventeenth" "eighteenth" "nineteenth"
  468.        )
  469.    (DEFCONSTANT FORMAT-ORDINAL-ONES '#1#) CONSTANT-WARNING
  470.   )
  471. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  472.    FORMAT-ORDINAL REMOVE-OLD-DEFINITIONS
  473.    #Y(FORMAT-ORDINAL
  474.       #124Y(00 02 00 00 00 03 AC 8D 92 80 59 AC 8E 94 0B D9 AC 37 02 30 8D AC
  475.             81 00 36 02 AC DA 31 B4 41 02 AB DB 90 01 30 08 AB DA 72 02 37 AE
  476.             2F 04 AA 8D 92 3A AA DE 31 B4 41 02 AD DB 90 01 30 04 DF B0 30 8C
  477.             AB E0 8F 01 2F 2C AA 8D 92 2C E3 9D 5E 14 B0 37 02 30 8D E4 B0 30
  478.             8C E1 9C 5E 14 B0 37 02 30 8D 19 07 D8 AC 37 02 30 8D 19 03 DD AE
  479.             37 02 30 8D 19 05 E1 9E 1A 63 E2 9D 1A 5F
  480.            )
  481.       "zeroth" "minus " 100. 0. FORMAT-CARDINAL "th" 10. #\Space 2.
  482.       #.FORMAT-ORDINAL-ONES
  483.       #(NIL "tenth" "twentieth" "thirtieth" "fortieth" "fiftieth" "sixtieth"
  484.         "seventieth" "eightieth" "ninetieth"
  485.        )
  486.       #.FORMAT-CARDINAL-TENS #\-
  487.   )  )
  488. #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  489.    FORMAT-PADDING REMOVE-OLD-DEFINITIONS
  490.    #Y(FORMAT-PADDING
  491.       #24Y(00 03 00 00 00 04 D8 1A 06 AD AD 30 8C 84 00 AA AF 90 01 32 74 00 19
  492.            05
  493.           )
  494.       0.
  495.   )  )
  496. #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  497.    FORMAT-PADDED-STRING REMOVE-OLD-DEFINITIONS
  498.    #Y(FORMAT-PADDED-STRING
  499.       #68Y(00 07 00 00 00 00 AC 71 48 B0 72 02 35 AA B3 8F 01 2F 1B C3 14 91 05
  500.            06 AE AE 37 02 30 8D B1 AB 72 02 35 B1 AF 2C 03 01 91 05 11 00 19 0A
  501.            B2 AB 72 01 36 B2 71 B5 B2 32 02 37 1A 58 AE AE 37 02 30 8D 19 0A
  502.           )
  503.       0. FORMAT-PADDING
  504.   )  )
  505. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  506.    FORMAT-INTEGER REMOVE-OLD-DEFINITIONS
  507.    #Y(FORMAT-INTEGER
  508.       #175Y(00 09 00 00 00 00 A4 10 00 00 10 01 00 10 02 BB 8E 92 06 91 0D 03
  509.             92 0C 36 B5 70 8B AA 71 48 B7 8D 94 33 9B 14 91 10 33 C6 14 92 10
  510.             05 B9 DB 32 01 30 14 91 00 2C C6 14 AE AD 72 03 35 AA 37 01 70 46
  511.             92 02 05 AA DB DD 30 37 AF AC 1A 80 43 B5 B5 30 88 1A 80 55 AA 31
  512.             98 1A 49 96 00 BC 31 B4 1A 47 C7 1A 52 AA BC 37 02 30 8D 16 07 1A
  513.             3C 85 00 AC AB B4 AE 70 35 30 37 AF 8E 93 15 B1 AC 72 01 36 C2 71
  514.             B8 8E 92 0A 85 00 AC AB 65 1A 30 37 85 05 85 01 14 8E 94 57 16 02
  515.             C2 8D 92 47 C2 DC DB 65 1A 63 AF C1 2C 07 06 16 07 12 03 19 0A
  516.            )
  517.       *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY* 0. 1. #\+
  518.       FORMAT-PADDED-STRING
  519.   )  )
  520. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  521.    FORMAT-ASCII-DECIMAL REMOVE-OLD-DEFINITIONS
  522.    #Y(FORMAT-ASCII-DECIMAL
  523.       #23Y(00 02 00 00 00 03 C3 10 01 00 10 02 00 10 03 B5 B5 30 88 12 03 19 03
  524.           )
  525.       10. *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY*
  526.   )  )
  527. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  528.    FORMAT-BASE REMOVE-OLD-DEFINITIONS
  529.    #Y(FORMAT-BASE
  530.       #51Y(00 09 00 00 00 00 AF 8E 92 06 91 07 03 92 06 12 AB 8E 0E 0E B3 B0 B0
  531.            B0 B0 B6 B6 B2 BA 2C 09 03 19 0A A4 10 00 00 10 01 00 10 02 B4 BC 30
  532.            88 12 03 19 0A
  533.           )
  534.       *PRINT-BASE* *PRINT-RADIX* *PRINT-READABLY* FORMAT-INTEGER
  535.   )  )
  536. #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  537.    FORMAT-SCALE-EXPONENT-AUX REMOVE-OLD-DEFINITIONS
  538.    #Y(FORMAT-SCALE-EXPONENT-AUX
  539.       #94Y(00 06 00 00 00 00 B0 31 BE 41 02 B2 8D 92 16 AA AE 72 02 37 37 01 71
  540.            B6 B3 B1 AC 71 9B 72 01 38 B1 AB AD 1A 14 B1 D8 3F 02 19 09 AD AD 81
  541.            01 38 01 84 00 AC B5 81 02 37 02 AB B6 90 01 2F 6C B4 AC AC 1A 0E AE
  542.            AD 81 02 37 01 85 00 AC B8 81 02 37 02 AB B7 90 01 32 6C AB AB 3F 02
  543.            19 11
  544.           )
  545.       0.
  546.   )  )
  547. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  548.    FORMAT-SCALE-EXPONENT REMOVE-OLD-DEFINITIONS
  549.    #Y(FORMAT-SCALE-EXPONENT
  550.       #73Y(00 01 00 00 00 02 AB 8D 12 24 AB 8D 13 28 AB 8D 14 2C AB 8E 15 30 AB
  551.            E6 AD 71 AF E7 AE 71 AF E8 AF 71 AF E9 B0 71 AF D5 14 2C 06 05 19 02
  552.            AB D8 D9 DA DB C7 1A 72 AB DE DF E0 E1 C7 1A 6A AB E2 E3 E4 E5 C7 1A
  553.            62 00 19 02
  554.           )
  555.       0.0s0 1.0s0 10.0s0 0.1s0 0.30103s0 FORMAT-SCALE-EXPONENT-AUX 0.0f0 1.0f0
  556.       10.0f0 0.1f0 0.0d0 1.0d0 10.0d0 0.1d0 0. 1. 10. #10r1/10 0.30102999566d0
  557.   )  )
  558. #Y(#:TOP-LEVEL-FORM-36
  559.    #35Y(00 00 00 00 00 01 00 2A 01 D8 63 37 06 C4 FB 7D 02 30 1B 0B 00 00 DA 2E
  560.         03 DA AB 6C 04 01 31 82 C5 19 02
  561.        )
  562.    20. STRING-CHAR FORMAT-FLOAT-TO-STRING REMOVE-OLD-DEFINITIONS
  563.    #Y(FORMAT-FLOAT-TO-STRING
  564.       #745Y(00 05 00 00 00 06 AF 8D 92 80 7D AF 31 C4 41 02 B1 37 01 71 C2 71
  565.             98 AC DC DC DC D9 D9 D9 01 05 68 00 01 D9 30 17 B7 D9 8F 01 30 80
  566.             8A B7 D9 90 01 2F 08 DC B8 72 00 36 80 D2 0A B8 DC B8 71 D2 8F 01
  567.             2D 80 80 92 11 1F 14 D9 8F 01 2F 80 8C DD BC 71 9B B6 AB 81 02 37
  568.             0C B3 AB 81 02 37 09 B4 AB 81 02 37 0A 16 01 B5 DD 72 02 37 B5 8F
  569.             01 32 80 90 85 07 B5 DD 81 02 37 0B B3 DD 81 02 37 09 B2 DD 81 02
  570.             37 08 1A 5F 91 03 01 C4 14 91 02 01 C4 14 72 01 33 92 05 0A AA B0
  571.             90 01 32 04 AF 80 98 00 95 00 DA 70 46 AA D9 DB 30 37 95 01 63 AD
  572.             71 92 D9 3F 05 19 07 B8 B8 80 D2 0B DC B8 80 D2 09 FE 1A FF 76 B2
  573.             DC 80 D2 08 B5 DC 80 D2 0B B4 DC 80 D2 0A 92 11 FF 8F 1A FF 6D DD
  574.             BC 72 00 36 71 9B B5 AB 81 02 37 0B 16 01 1A FF 7A 14 32 00 36 1A
  575.             32 DC BE 32 01 36 1A 2B B4 DD 81 02 37 0A 84 07 B5 DC 71 D2 B3 72
  576.             02 35 B5 DC 71 D2 90 01 2F 68 91 12 58 92 13 39 B1 D9 8F 01 2F 55
  577.             B1 BE 72 01 36 31 97 FA 92 10 28 AE BB 72 00 36 90 01 30 1F BA 81
  578.             00 36 04 92 12 1A 1A 1B D9 1A 08 AB DD 81 02 37 01 84 00 AA AD 90
  579.             01 32 72 16 01 1A 2E 91 12 03 92 13 3C AE B2 72 01 36 B5 AB D9 8F
  580.             01 32 59 D9 AC 72 00 36 1A 0D 7D 05 16 02 1A 23 AC DD 80 B5 02 84
  581.             01 AB AB 90 01 32 73 16 02 AA B6 81 01 33 0B AA B5 81 01 33 0A 14
  582.             AB 8F 01 2D 59 16 02 B5 DC 71 D2 B3 72 02 35 B5 DC 71 D2 90 01 2F
  583.             FF 5E B1 D9 90 01 2F 80 78 A1 FB DB 68 00 01 37 01 30 1A D9 B2 72
  584.             00 36 1A 80 5E B5 DC 71 D2 B5 DC 71 D2 B4 72 01 36 32 01 32 1A 80
  585.             9A DE AD 70 35 68 00 01 37 01 30 1A 84 06 1A 80 44 9E 1A 80 BC 9E
  586.             1A 80 B8 D9 1A 0C 84 07 DA 68 00 01 37 01 30 1A 84 00 AA B3 90 01
  587.             32 6E 16 01 DB 68 00 01 37 01 30 1A A1 FB 92 12 80 C9 1A 80 A6 84
  588.             08 DA 68 00 01 37 01 30 1A 84 01 AB AB 90 01 32 6E 16 02 B1 8E 92
  589.             0A DB 68 00 01 37 01 30 1A A1 FB 85 07 B5 DD 72 02 37 B5 31 B6 41
  590.             02 69 0C 69 02 B3 DD 81 02 37 09 B2 DD 81 02 37 08 B5 DC 71 D2 B4
  591.             81 01 2F 01 91 03 FF 63 B5 DC 71 D2 B5 DC 71 D2 B4 72 01 36 32 01
  592.             30 F6 91 01 0E 91 00 0B 92 04 FF 5B B1 AF 90 01 31 FF 54 92 04 06
  593.             B1 AF 90 01 32 27 DF 92 02 04 92 01 FF 53 92 01 03 92 02 0A B6 DC
  594.             71 D2 B6 8F 01 31 FF 47 AD 31 97 14 70 35 68 00 01 37 01 30 1A 84
  595.             06 B1 D9 8F 01 32 FF 35 92 12 20 D9 BD B2 B2 72 01 36 72 01 36 1A
  596.             0C 84 08 DA 68 00 01 37 01 30 1A 84 01 AB AB 90 01 32 6E 16 02 68
  597.             00 01 95 07 B1 D9 72 01 2D B2 B4 72 01 2D B3 3F 05 19 15
  598.            )
  599.       NIL 0. #\0 #\. 1. 10. "0123456789" "0123456789"
  600.   )  )
  601. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  602.    FORMAT-FLOAT-FOR-F REMOVE-OLD-DEFINITIONS
  603.    #Y(FORMAT-FLOAT-FOR-F
  604.       #198Y(00 08 00 00 00 00 91 08 80 57 00 14 AD AB B4 B4 62 2C 05 00 41 04
  605.             B6 23 01 80 51 92 0D 0E AE AD 81 01 36 04 91 01 80 5E 91 00 80 66
  606.             92 0A 08 92 0D 05 AE 8D 94 80 6A 92 0D 0C AE D9 90 01 30 06 AE B4
  607.             B2 2C 03 02 B1 8D 94 80 5E 92 08 80 64 C7 14 B1 30 8C 92 01 80 62
  608.             1A 80 5B B2 31 98 1A FF AA 91 03 77 AC 8D 94 73 A3 1A FF 9F 7C 00
  609.             92 0D FF BA 1A FF A9 85 04 92 00 FF B1 1A 15 85 04 92 0A FF B4 1A
  610.             FF A9 AE D9 8F 01 30 69 7C 01 92 00 FF 9A AE D9 8F 01 30 65 7C 00
  611.             92 0A FF 99 1A FF 8E B7 B5 B2 2C 03 02 19 0E C6 1A FF A3 DD B1 30
  612.             8C 19 0E 92 01 04 DD B1 30 8C AD B1 37 02 30 8D 91 00 6A 00 19 0E
  613.            )
  614.       FORMAT-FLOAT-TO-STRING 0. FORMAT-PADDING #\- #\+ #\0
  615.   )  )
  616. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  617.    FORMAT-FLOAT-FOR-E REMOVE-OLD-DEFINITIONS
  618.    #Y(FORMAT-FLOAT-FOR-E
  619.       #401Y(00 0A 00 00 00 00 AC 71 9F 2E 00 41 02 AE 8D 92 80 93 AA B4 32 01
  620.             36 14 AA 71 9F 37 0B C5 FA 7C 05 14 70 89 91 0C 80 81 AA 31 48 14
  621.             91 0E 80 8D 00 14 B7 8D 94 80 90 00 14 91 11 80 92 00 14 92 0E 0D
  622.             92 12 0A 92 10 07 AD BB 8F 01 30 80 89 92 12 09 91 0B 04 B4 8E 94
  623.             02 85 00 B1 AB AE BC AF 2C 05 06 41 04 92 16 0E AE AD 81 01 36 04
  624.             91 00 80 7F 91 01 80 8A 92 12 08 92 16 05 AE 8D 94 80 8E 92 16 0C
  625.             AE D9 90 01 30 06 AE BC B9 2C 03 05 B8 8D 94 80 82 92 0F 80 9E CB
  626.             14 B8 30 8C 92 01 80 9C 1A 80 95 C4 1A FF 6E AA 71 48 B7 32 01 33
  627.             1A FF 78 B8 B7 72 01 36 31 97 1A FF 74 B6 D9 8F 01 30 70 A9 1A FF
  628.             6A DB B8 32 01 36 1A FF 69 14 DC AE 32 02 36 1A FF 66 BC B9 B5 2C
  629.             03 05 19 13 85 04 92 01 FF 90 1A 18 85 04 92 12 FF 93 1A FF 88 92
  630.             06 6C B0 D9 8F 01 30 66 7C 00 92 01 FF 76 AE D9 8F 01 30 62 7C 01
  631.             92 12 FF 75 1A FF 6A C0 BD B9 2C 03 05 19 17 CA 1A FF 7F E1 B8 30
  632.             8C 92 10 28 1A 80 40 D0 1A 3D D1 1A 3A D2 1A 37 D3 1A 34 D4 1A 31
  633.             CA 1A 37 92 01 04 E1 B8 30 8C AD B8 37 02 30 8D 91 00 54 91 10 1B
  634.             0E 0A 1B 06 B8 6A 0B 89 0C 51 B8 8D 12 50 B8 8D 13 4F B8 8D 14 4E
  635.             B8 8D 15 4D 00 14 B8 30 8C B3 8D 94 47 CB 14 B8 30 8C 92 14 14 14
  636.             B3 71 48 90 01 30 0C BE B3 71 48 72 01 36 E1 B9 2C 03 05 B2 B8 37
  637.             02 30 8D 19 17
  638.            )
  639.       FORMAT-SCALE-EXPONENT 0. 10. 1. 2. FORMAT-PADDING FORMAT-FLOAT-TO-STRING
  640.       #\- #\+ #\0 *PRINT-READABLY* *READ-DEFAULT-FLOAT-FORMAT* TYPEP #\E #\s
  641.       #\f #\d #\L
  642.   )  )
  643. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  644.    FORMAT-SKIP-TO-END REMOVE-OLD-DEFINITIONS
  645.    #Y(FORMAT-SKIP-TO-END
  646.       #35Y(00 00 00 00 00 01 1A 0C 0E 00 77 D9 AB DA 31 31 16 01 0F 00 0E 00 77
  647.            D9 AB DA 31 31 16 01 1B 68 00 19 01
  648.           )
  649.       *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 8.
  650.   )  )
  651. #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  652.    FORMAT-JUSTIFIED-SEGMENTS REMOVE-OLD-DEFINITIONS
  653.    #Y(FORMAT-JUSTIFIED-SEGMENTS
  654.       #179Y(00 06 00 00 00 00 D8 D8 AD 62 1A 24 C4 1A 39 C4 1A 3B C3 1A 80 58
  655.             62 AB C3 5F 92 0B 80 6D 1A 80 6E 86 01 00 84 03 AC AB 71 48 81 02
  656.             35 02 82 01 AB 8C 96 6D 16 02 91 05 08 AB D9 90 01 2D 02 9F 58 14
  657.             DA AD 91 02 45 C3 14 91 08 43 C3 14 72 04 35 AC AB B4 72 02 37 72
  658.             02 35 B5 AB B7 8F 01 31 FF B0 AB B7 72 01 36 B6 71 B5 B6 32 02 37
  659.             14 72 02 35 AA AF 72 01 36 AD 31 B4 41 02 95 07 37 07 A4 FA 70 1B
  660.             92 06 FF 8E 91 0B 04 62 AB A5 5F D8 1A 15 AB 9C 5E 1C 0E AB 9C 5E
  661.             14 71 97 AA AD 9E 5F 16 01 85 02 84 00 AC 8E 92 67 16 01 AA AE 3F
  662.             02 19 10
  663.            )
  664.       0. 1. -1.
  665.   )  )
  666. #Y(#:TOP-LEVEL-FORM-41-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  667.    FORMAT-ASCII REMOVE-OLD-DEFINITIONS
  668.    #Y(FORMAT-ASCII
  669.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  670.            14 2C 08 01 19 08
  671.           )
  672.       NEXT-ARG DO-FORMAT-ASCII
  673.   )  )
  674. #Y(#:TOP-LEVEL-FORM-41-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  675.    DO-FORMAT-ASCII REMOVE-OLD-DEFINITIONS
  676.    #Y(DO-FORMAT-ASCII
  677.       #76Y(00 08 00 00 00 00 92 05 27 92 04 29 92 03 2B 92 02 2D 92 07 05 91 01
  678.            02 C6 F7 AF 8E 92 04 AD 8D 92 24 AF AF AF AF B4 B0 70 8B B8 2C 07 04
  679.            19 09 C3 FB 91 04 57 C4 FA 91 03 55 C3 F9 91 02 53 C5 F8 92 07 56 1A
  680.            4F AB B3 30 88 19 09
  681.           )
  682.       0. 1. #\Space "()" FORMAT-PADDED-STRING
  683.   )  )
  684. #Y(#:TOP-LEVEL-FORM-42-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  685.    FORMAT-S-EXPRESSION REMOVE-OLD-DEFINITIONS
  686.    #Y(FORMAT-S-EXPRESSION
  687.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  688.            14 2C 08 01 19 08
  689.           )
  690.       NEXT-ARG DO-FORMAT-S-EXPRESSION
  691.   )  )
  692. #Y(#:TOP-LEVEL-FORM-42-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  693.    DO-FORMAT-S-EXPRESSION REMOVE-OLD-DEFINITIONS
  694.    #Y(DO-FORMAT-S-EXPRESSION
  695.       #89Y(00 08 00 00 00 00 92 05 28 92 04 2A 92 03 2C 91 02 02 C5 F8 AF 8E 92
  696.            04 AD 8D 92 2E AF AF AF AF B4 92 0C 03 92 06 2F B0 30 8A 14 B8 2C 07
  697.            05 19 09 C3 FB 91 04 56 C4 FA 91 03 54 C3 F9 92 02 52 1A 52 DB B3 37
  698.            02 30 8D 19 09 92 07 03 92 01 72 AB B3 30 85 19 09 C7 1A 51
  699.           )
  700.       0. 1. #\Space "()" "()" FORMAT-PADDED-STRING
  701.   )  )
  702. #Y(#:TOP-LEVEL-FORM-43-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  703.    FORMAT-WRITE REMOVE-OLD-DEFINITIONS
  704.    #Y(FORMAT-WRITE
  705.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  706.            14 2C 08 01 19 08
  707.           )
  708.       NEXT-ARG DO-FORMAT-WRITE
  709.   )  )
  710. #Y(#:TOP-LEVEL-FORM-43-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  711.    DO-FORMAT-WRITE REMOVE-OLD-DEFINITIONS
  712.    #Y(DO-FORMAT-WRITE
  713.       #69Y(00 08 00 00 00 00 92 05 23 92 04 25 92 03 27 91 02 02 C5 F8 AF 8E 92
  714.            04 AD 8D 92 21 AF AF AF AF B4 B0 37 0C 70 89 B8 2C 07 03 19 09 C3 FB
  715.            91 04 5B C4 FA 91 03 59 C3 F9 92 02 57 1A 57 AB 37 0C BF 30 84 19 09
  716.           )
  717.       0. 1. #\Space FORMAT-PADDED-STRING
  718.   )  )
  719. #Y(#:TOP-LEVEL-FORM-44-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  720.    FORMAT-DECIMAL REMOVE-OLD-DEFINITIONS
  721.    #Y(FORMAT-DECIMAL
  722.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  723.            14 2C 08 01 19 08
  724.           )
  725.       NEXT-ARG DO-FORMAT-DECIMAL
  726.   )  )
  727. #Y(#:TOP-LEVEL-FORM-44-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  728.    DO-FORMAT-DECIMAL REMOVE-OLD-DEFINITIONS
  729.    #Y(DO-FORMAT-DECIMAL
  730.       #51Y(00 08 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3
  731.            B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9
  732.            92 02 61 1A 61
  733.           )
  734.       0. #\Space #\, 3. 10. FORMAT-BASE
  735.   )  )
  736. #Y(#:TOP-LEVEL-FORM-45-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  737.    FORMAT-BINARY REMOVE-OLD-DEFINITIONS
  738.    #Y(FORMAT-BINARY
  739.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  740.            14 2C 08 01 19 08
  741.           )
  742.       NEXT-ARG DO-FORMAT-BINARY
  743.   )  )
  744. #Y(#:TOP-LEVEL-FORM-45-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  745.    DO-FORMAT-BINARY REMOVE-OLD-DEFINITIONS
  746.    #Y(DO-FORMAT-BINARY
  747.       #51Y(00 08 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3
  748.            B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9
  749.            92 02 61 1A 61
  750.           )
  751.       0. #\Space #\, 3. 2. FORMAT-BASE
  752.   )  )
  753. #Y(#:TOP-LEVEL-FORM-46-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  754.    FORMAT-OCTAL REMOVE-OLD-DEFINITIONS
  755.    #Y(FORMAT-OCTAL
  756.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  757.            14 2C 08 01 19 08
  758.           )
  759.       NEXT-ARG DO-FORMAT-OCTAL
  760.   )  )
  761. #Y(#:TOP-LEVEL-FORM-46-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  762.    DO-FORMAT-OCTAL REMOVE-OLD-DEFINITIONS
  763.    #Y(DO-FORMAT-OCTAL
  764.       #51Y(00 08 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3
  765.            B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9
  766.            92 02 61 1A 61
  767.           )
  768.       0. #\Space #\, 3. 8. FORMAT-BASE
  769.   )  )
  770. #Y(#:TOP-LEVEL-FORM-47-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  771.    FORMAT-HEXADECIMAL REMOVE-OLD-DEFINITIONS
  772.    #Y(FORMAT-HEXADECIMAL
  773.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  774.            14 2C 08 01 19 08
  775.           )
  776.       NEXT-ARG DO-FORMAT-HEXADECIMAL
  777.   )  )
  778. #Y(#:TOP-LEVEL-FORM-47-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  779.    DO-FORMAT-HEXADECIMAL REMOVE-OLD-DEFINITIONS
  780.    #Y(DO-FORMAT-HEXADECIMAL
  781.       #51Y(00 08 00 00 00 00 92 05 19 92 04 1B 92 03 1D 91 02 02 C6 F8 DC B3 B3
  782.            B3 B3 B3 B3 B3 B3 2C 09 05 19 09 C3 FB 91 04 65 C4 FA 91 03 63 C5 F9
  783.            92 02 61 1A 61
  784.           )
  785.       0. #\Space #\, 3. 16. FORMAT-BASE
  786.   )  )
  787. #Y(#:TOP-LEVEL-FORM-48-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  788.    FORMAT-RADIX REMOVE-OLD-DEFINITIONS
  789.    #Y(FORMAT-RADIX
  790.       #32Y(00 03 00 05 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 B2 B2 B2 B2 B2 B2 B2
  791.            B2 2D 00 14 2C 09 01 19 09
  792.           )
  793.       NEXT-ARG DO-FORMAT-RADIX
  794.   )  )
  795. #Y(#:TOP-LEVEL-FORM-48-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  796.    DO-FORMAT-RADIX REMOVE-OLD-DEFINITIONS
  797.    #Y(DO-FORMAT-RADIX
  798.       #108Y(00 09 00 00 00 00 92 05 19 92 04 1B 92 03 1D 92 02 1F 91 06 21 91
  799.             07 3B 91 08 80 4A AB B4 2F 0E 19 0A C3 FB 91 04 65 C4 FA 91 03 63
  800.             C5 F9 91 02 61 C6 F8 92 06 5F 14 B0 B0 B0 B0 B7 B7 B2 BB 2C 09 04
  801.             19 0A AB B4 2F 05 19 0A 91 08 77 AB B4 2F 06 19 0A AB 8D 0E 73 6A
  802.             07 62 E0 E1 E2 6D 03 0B AE 2C 04 0C 19 0A AB B4 2F 0D 19 0A
  803.            )
  804.       0. #\Space #\, 3. FORMAT-INTEGER FORMAT-OLD-ROMAN FORMAT-NEW-ROMAN
  805.       *FORMAT-CS*
  806.       "The ~~R and ~~:R directives require an integer argument, not ~S"
  807.       "Die ~~R- und ~~:R-Direktiven erwarten ein Integer als Argument, nicht ~S"
  808.       "Les directives ~~R et ~~:R nécessitent un argument de type entier et non ~S"
  809.       LANGUAGE FORMAT-ERROR FORMAT-ORDINAL FORMAT-CARDINAL
  810.   )  )
  811. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  812.    FORMAT-PLURAL REMOVE-OLD-DEFINITIONS
  813.    #Y(FORMAT-PLURAL
  814.       #49Y(00 03 00 00 00 04 92 02 04 63 D8 2F 01 2D 02 14 C3 59 14 91 02 0C 91
  815.            00 15 DD AF 30 8C 19 05 C6 1A 04 91 00 7A C7 14 AF 37 02 30 8D 19 05
  816.            00 19 05
  817.           )
  818.       1. FORMAT-GOTO-NEW-ARG NEXT-ARG "y" "ies" #\s
  819.   )  )
  820. #Y(#:TOP-LEVEL-FORM-50-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  821.    FORMAT-CHARACTER REMOVE-OLD-DEFINITIONS
  822.    #Y(FORMAT-CHARACTER #17Y(00 03 00 00 00 04 AD AD AD 2D 00 14 2C 04 01 19 04)
  823.       NEXT-ARG DO-FORMAT-CHARACTER
  824.   )  )
  825. #Y(#:TOP-LEVEL-FORM-50-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  826.    DO-FORMAT-CHARACTER REMOVE-OLD-DEFINITIONS
  827.    #Y(DO-FORMAT-CHARACTER
  828.       #210Y(00 04 00 00 00 05 00 2A 01 7E 05 00 00 AC 8D 1E 0D 6A 00 62 D9 DA
  829.             DB 6D 03 04 AF 2C 04 05 AA 6C 06 01 92 04 0A 92 05 80 50 E3 E4 62
  830.             1A 80 77 DF 62 1A 34 00 1A 26 AD E2 AF 70 28 70 2A 67 02 00 30 8C
  831.             19 07 86 01 00 AF AB 8C 32 19 AA 71 8C 37 02 70 4D 67 04 00 37 01
  832.             91 0A 58 CB 14 30 8D E1 67 04 00 30 8C 82 01 AB 8C 96 59 16 02 92
  833.             05 46 AD 37 02 70 2A 9C 33 19 07 AD 67 02 00 30 85 19 07 78 67 03
  834.             00 37 02 30 8D 19 08 86 01 00 B0 AB 8C 32 0F 93 02 67 05 00 37 02
  835.             30 8D B0 AB 62 7F 33 06 82 02 82 01 AB 8C 96 61 16 03 AD E5 37 03
  836.             70 BE 91 00 4C AE E6 8C 32 13 E7 E8 E9 6D 03 04 67 03 00 37 02 30
  837.             8D AE E6 62 7F 33 04 AE 9D 33 19 08
  838.            )
  839.       *FORMAT-CS* "The ~~C directive requires a character argument, not ~S"
  840.       "Die ~~C-Direktive erwartet ein Character, nicht ~S"
  841.       "La directive ~~C requiert un caractère et non ~S" LANGUAGE FORMAT-ERROR
  842.       #Y(DO-FORMAT-CHARACTER-WRITE-CHARNAME
  843.          #34Y(00 01 00 00 00 02 AB 70 31 91 00 08 AC 68 00 01 30 8C 19 03 14 37
  844.               02 70 4D 68 00 01 37 02 30 8D 19 03
  845.              )
  846.          NIL
  847.         )
  848.       (:CONTROL :META :SUPER :HYPER) 1. #\- 0.
  849.       ("Shift-" "Control-" "Alternate-") (:SUPER :CONTROL :META)
  850.       ((#\HYPER-Code18 . "Down") (#\HYPER-Code20 . "Left")
  851.         (#\HYPER-Code22 . "Right") (#\HYPER-Code24 . "Up")
  852.         (#\HYPER-Code28 . "Help") (#\HYPER-A . "F1") (#\HYPER-B . "F2")
  853.         (#\HYPER-C . "F3") (#\HYPER-D . "F4") (#\HYPER-E . "F5")
  854.         (#\HYPER-F . "F6") (#\HYPER-G . "F7") (#\HYPER-H . "F8")
  855.         (#\HYPER-I . "F9") (#\HYPER-J . "F10")
  856.       )
  857.       :HYPER "Keypad-" "Ziffernblock-" "bloc numérique "
  858.   )  )
  859. #Y(#:TOP-LEVEL-FORM-51-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  860.    FORMAT-FIXED-FLOAT REMOVE-OLD-DEFINITIONS
  861.    #Y(FORMAT-FIXED-FLOAT
  862.       #32Y(00 03 00 05 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 B2 B2 B2 B2 B2 B2 B2
  863.            B2 2D 00 14 2C 09 01 19 09
  864.           )
  865.       NEXT-ARG DO-FORMAT-FIXED-FLOAT
  866.   )  )
  867. #Y(#:TOP-LEVEL-FORM-51-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  868.    DO-FORMAT-FIXED-FLOAT REMOVE-OLD-DEFINITIONS
  869.    #Y(DO-FORMAT-FIXED-FLOAT
  870.       #54Y(00 09 00 00 00 00 92 04 19 91 02 02 C4 F8 AB 8E 10 06 AB 37 01 80 AF
  871.            01 AB 8D 11 0D AB B4 2F 03 19 0A C3 FA 92 02 65 1A 65 B0 B0 B0 B0 B0
  872.            B6 B1 BA 2C 08 02 19 0A
  873.           )
  874.       0. #\Space FORMAT-FLOAT-FOR-F FORMAT-ASCII-DECIMAL
  875.   )  )
  876. #Y(#:TOP-LEVEL-FORM-52-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  877.    FORMAT-EXPONENTIAL-FLOAT REMOVE-OLD-DEFINITIONS
  878.    #Y(FORMAT-EXPONENTIAL-FLOAT
  879.       #38Y(00 03 00 07 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 B4 B4 B4
  880.            B4 B4 B4 B4 B4 B4 B4 2D 00 14 2C 0B 01 19 0B
  881.           )
  882.       NEXT-ARG DO-FORMAT-EXPONENTIAL-FLOAT
  883.   )  )
  884. #Y(#:TOP-LEVEL-FORM-52-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  885.    DO-FORMAT-EXPONENTIAL-FLOAT REMOVE-OLD-DEFINITIONS
  886.    #Y(DO-FORMAT-EXPONENTIAL-FLOAT
  887.       #56Y(00 0B 00 00 00 00 92 05 19 91 03 02 C4 F9 AB 8E 10 06 AB 37 01 80 AF
  888.            01 AB 8D 11 0D AB B6 2F 03 19 0C C3 FB 92 03 65 1A 65 B2 B2 B2 B2 B2
  889.            B2 B2 BA B3 BE 2C 0A 02 19 0C
  890.           )
  891.       1. #\Space FORMAT-FLOAT-FOR-E FORMAT-ASCII-DECIMAL
  892.   )  )
  893. #Y(#:TOP-LEVEL-FORM-53-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  894.    FORMAT-GENERAL-FLOAT REMOVE-OLD-DEFINITIONS
  895.    #Y(FORMAT-GENERAL-FLOAT
  896.       #38Y(00 03 00 07 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 B4 B4 B4
  897.            B4 B4 B4 B4 B4 B4 B4 2D 00 14 2C 0B 01 19 0B
  898.           )
  899.       NEXT-ARG DO-FORMAT-GENERAL-FLOAT
  900.   )  )
  901. #Y(#:TOP-LEVEL-FORM-53-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  902.    DO-FORMAT-GENERAL-FLOAT REMOVE-OLD-DEFINITIONS
  903.    #Y(DO-FORMAT-GENERAL-FLOAT
  904.       #152Y(00 0B 00 00 00 00 92 05 1A 91 03 02 C4 F9 AB 8E 10 06 AB 37 01 80
  905.             AF 01 AB 8D 11 80 50 AB B6 2F 0B 19 0C C3 FB 92 03 64 1A 64 AD 71
  906.             9F 01 04 2C 05 03 41 02 96 00 D8 72 01 33 AD DC 72 01 34 32 01 33
  907.             16 02 FF 92 08 33 DD B3 32 02 35 1A 2D 14 AC 32 01 36 1A 04 91 0C
  908.             76 00 14 AB DF B5 B5 BC B5 C0 2C 08 08 AB D9 BB 2C 03 09 19 10 AB
  909.             71 9F 2E 02 41 02 92 09 FF B2 91 08 4D C9 14 B4 AC 72 01 36 DF AB
  910.             B7 8F 02 31 4D B6 B6 B6 B6 B6 B6 B6 BE B7 C2 2C 0A 0A 19 10
  911.            )
  912.       1. #\Space FORMAT-SCALE-EXPONENT FORMAT-FLOAT-TO-STRING 7. 2. 4. 0.
  913.       FORMAT-FLOAT-FOR-F FORMAT-PADDING FORMAT-FLOAT-FOR-E FORMAT-ASCII-DECIMAL
  914.   )  )
  915. #Y(#:TOP-LEVEL-FORM-54-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  916.    FORMAT-DOLLARS-FLOAT REMOVE-OLD-DEFINITIONS
  917.    #Y(FORMAT-DOLLARS-FLOAT
  918.       #29Y(00 03 00 04 00 00 3C 04 3C 03 3C 02 3C 01 B1 B1 B1 B1 B1 B1 B1 2D 00
  919.            14 2C 08 01 19 08
  920.           )
  921.       NEXT-ARG DO-FORMAT-DOLLARS-FLOAT
  922.   )  )
  923. #Y(#:TOP-LEVEL-FORM-54-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  924.    DO-FORMAT-DOLLARS-FLOAT REMOVE-OLD-DEFINITIONS
  925.    #Y(DO-FORMAT-DOLLARS-FLOAT
  926.       #165Y(00 08 00 00 00 00 92 05 80 5E 92 04 80 60 92 03 80 62 91 02 02 C6
  927.             F8 AB 8E 10 06 AB 37 01 80 AF 01 AB 8E 11 80 79 AB 62 B1 DA 62 2C
  928.             05 04 41 05 AA B4 72 01 33 D9 91 0D 80 43 B2 8D 94 3F C5 14 AC B8
  929.             72 04 35 B4 AB 72 01 36 DA 72 01 33 91 0F 06 AA B5 BC 2C 03 05 B3
  930.             8D 94 26 92 0E 26 CA 14 BB 30 8C 92 0F 27 1A 1F C3 FB 91 04 FF A0
  931.             C4 FA 91 03 FF 9E C5 F9 92 02 FF 9B 1A FF 9A C4 1A FF BE C9 1A 5B
  932.             92 0F 06 AA B5 BC 2C 03 05 AC AE 72 01 36 E0 BC 2C 03 05 B1 BB 37
  933.             02 30 8D 19 11 AB B3 2F 09 19 09
  934.            )
  935.       2. 1. 0. #\Space FORMAT-FLOAT-TO-STRING FORMAT-PADDING #\- #\+ #\0
  936.       FORMAT-ASCII-DECIMAL
  937.   )  )
  938. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  939.    FORMAT-TERPRI REMOVE-OLD-DEFINITIONS
  940.    #Y(FORMAT-TERPRI
  941.       #38Y(00 03 00 01 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A
  942.            05 AF 30 8F 84 00 AA AD 90 01 32 75 00 19 06
  943.           )
  944.       1. 0.
  945.   )  )
  946. #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  947.    FORMAT-FRESH-LINE REMOVE-OLD-DEFINITIONS
  948.    #Y(FORMAT-FRESH-LINE
  949.       #50Y(00 03 00 01 00 0A 3A 01 1D C3 F7 92 01 1B 1A 1B AE 30 90 D9 96 02 1A
  950.            05 B0 30 8F 84 01 AB AB 90 01 32 75 00 19 07 91 01 02 C3 F7 AB 8D 93
  951.            61 00 19 05
  952.           )
  953.       1. 0.
  954.   )  )
  955. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  956.    FORMAT-PAGE REMOVE-OLD-DEFINITIONS
  957.    #Y(FORMAT-PAGE
  958.       #39Y(00 03 00 01 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A
  959.            06 DA B0 30 8C 84 00 AA AD 90 01 32 74 00 19 06
  960.           )
  961.       1. 0. #\Page
  962.   )  )
  963. #Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  964.    FORMAT-TILDE REMOVE-OLD-DEFINITIONS
  965.    #Y(FORMAT-TILDE
  966.       #39Y(00 03 00 01 00 0A 3A 01 07 C3 F7 92 01 05 1A 05 91 01 02 C3 F7 D9 1A
  967.            06 DA B0 30 8C 84 00 AA AD 90 01 32 74 00 19 06
  968.           )
  969.       1. 0. #\~
  970.   )  )
  971. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  972.    FORMAT-TABULATE REMOVE-OLD-DEFINITIONS
  973.    #Y(FORMAT-TABULATE
  974.       #112Y(00 03 00 02 00 0F 3A 02 02 C3 F8 3A 01 29 C3 F7 91 02 27 C3 F8 92
  975.             01 25 1A 25 AC AB AE 72 02 35 72 00 36 AD 71 B8 72 02 35 C5 1A 3D
  976.             AC AB 72 01 36 C5 1A 35 00 19 09 92 02 59 91 01 02 C3 F7 AC D9 72
  977.             01 33 AC D8 72 01 33 B1 70 94 91 06 4B AA AD 8F 01 2F 57 AE 8D 92
  978.             5B AE AD AC 72 01 36 B0 72 00 36 71 B8 72 02 35 C5 14 B4 2C 03 03
  979.             19 09
  980.            )
  981.       1. 0. #\Space FORMAT-PADDING
  982.   )  )
  983. #Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  984.    FORMAT-GOTO REMOVE-OLD-DEFINITIONS
  985.    #Y(FORMAT-GOTO
  986.       #40Y(00 03 00 01 00 0A 3A 01 12 7C 01 92 02 10 91 01 01 C3 14 6A 01 30 9F
  987.            0F 02 19 05 91 02 70 AD 91 02 01 C6 14 2F 04 19 05
  988.           )
  989.       0. *FORMAT-ARG-LIST* *FORMAT-NEXT-ARG* 1. FORMAT-GOTO-NEW-ARG
  990.   )  )
  991. #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  992.    FORMAT-INDIRECTION REMOVE-OLD-DEFINITIONS
  993.    #Y(FORMAT-INDIRECTION
  994.       #63Y(00 03 00 00 00 04 2D 00 14 AA 6E 01 91 03 1F 2D 00 14 B0 AC AC AD 2C
  995.            04 07 19 07 93 00 9C 5B 10 02 00 10 03 A1 10 04 B9 2E 05 12 03 19 07
  996.            9B 20 6A 00 10 04 AD B3 0E 06 36 01 11 0F 06 19 06
  997.           )
  998.       NEXT-ARG DO-FORMAT-INDIRECTION-1 *FORMAT-CSDL* *FORMAT-UP-AND-OUT*
  999.       *FORMAT-CS* FORMAT-INTERPRET *FORMAT-NEXT-ARG* DO-FORMAT-INDIRECTION-2
  1000.   )  )
  1001. #Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1002.    DO-FORMAT-INDIRECTION REMOVE-OLD-DEFINITIONS
  1003.    #Y(DO-FORMAT-INDIRECTION
  1004.       #32Y(00 03 00 00 00 04 AC 8D 09 07 AC 8D 1F 03 AC 2E 00 AB 8D 0D 03 AB 2E
  1005.            01 AD AD AD 2C 03 02 19 04
  1006.           )
  1007.       FORMAT-INDIRECTION-CSERROR FORMAT-INDIRECTION-LERROR FORMAT-APPLY
  1008.   )  )
  1009. #Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1010.    DO-FORMAT-INDIRECTION-1 REMOVE-OLD-DEFINITIONS
  1011.    #Y(DO-FORMAT-INDIRECTION-1
  1012.       #35Y(00 01 00 00 00 02 AB 8D 09 09 AB 8D 1F 12 AB 2E 02 19 02 AB 7A 01 AC
  1013.            D8 AC 62 2C 04 01 15 19 02 9C 19 02
  1014.           )
  1015.       0. FORMAT-PARSE-CS FORMAT-INDIRECTION-CSERROR
  1016.   )  )
  1017. #Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1018.    DO-FORMAT-INDIRECTION-2 REMOVE-OLD-DEFINITIONS
  1019.    #Y(DO-FORMAT-INDIRECTION-2
  1020.       #56Y(00 04 00 00 00 05 AC 8D 0D 03 AC 2E 00 9E 20 0B 00 10 01 B0 B2 A2 36
  1021.            01 11 19 05 9E 5A 10 01 A1 5B 10 02 A2 10 03 A6 10 04 00 10 05 00 10
  1022.            06 C0 2E 07 0E 04 12 05 1A 60
  1023.           )
  1024.       FORMAT-INDIRECTION-LERROR *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST*
  1025.       *FORMAT-NEXT-ARG* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT*
  1026.       FORMAT-INTERPRET
  1027.   )  )
  1028. #Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1029.    FORMAT-INDIRECTION-CSERROR REMOVE-OLD-DEFINITIONS
  1030.    #Y(FORMAT-INDIRECTION-CSERROR
  1031.       #21Y(00 01 00 00 00 02 6A 00 62 D9 DA DB 6D 03 04 AE 2C 04 05 19 02)
  1032.       *FORMAT-CS*
  1033.       "The control string argument for the ~~? directive is invalid: ~S"
  1034.       "Als Kontrollstring für ~~? ist das untauglich: ~S"
  1035.       "~S ne convient pas comme chaîne de contrôle pour ~~?." LANGUAGE
  1036.       FORMAT-ERROR
  1037.   )  )
  1038. #Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1039.    FORMAT-INDIRECTION-LERROR REMOVE-OLD-DEFINITIONS
  1040.    #Y(FORMAT-INDIRECTION-LERROR
  1041.       #21Y(00 01 00 00 00 02 6A 00 62 D9 DA DB 6D 03 04 AE 2C 04 05 19 02)
  1042.       *FORMAT-CS*
  1043.       "The argument list argument for the ~~? directive is invalid: ~S"
  1044.       "Das ist keine passende Argumentliste für die ~~?-Direktive: ~S"
  1045.       "Ceci n'est pas une liste d'arguments convenable pour la directive ~~? : ~S"
  1046.       LANGUAGE FORMAT-ERROR
  1047.   )  )
  1048. #Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1049.    FORMAT-CASE-CONVERSION REMOVE-OLD-DEFINITIONS
  1050.    #Y(FORMAT-CASE-CONVERSION
  1051.       #65Y(00 03 00 00 00 04 0E 00 5B 0F 00 AD 70 94 71 76 AA D9 2F 02 AA 80 77
  1052.            00 91 03 17 91 02 1E AA 37 02 30 4A 14 AF 37 02 30 8D 19 05 AA 37 02
  1053.            30 48 1A 71 91 02 76 AA 37 02 30 4C 1A 67 AA 2E 03 1A 62
  1054.           )
  1055.       *FORMAT-CSDL* FORMAT-CASE-CONVERSION-END FORMAT-INTERPRET
  1056.       NSTRING-CAPITALIZE1
  1057.   )  )
  1058. #Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1059.    NSTRING-CAPITALIZE1 REMOVE-OLD-DEFINITIONS
  1060.    #Y(NSTRING-CAPITALIZE1
  1061.       #48Y(00 01 00 00 00 02 AB 37 02 7F 4A 01 D8 AC 71 48 1A 02 84 01 AB AB 8F
  1062.            01 32 11 AD AC 70 35 8C 23 71 AD AC AF AE 70 35 70 2C 30 37 16 02 9C
  1063.            19 02
  1064.           )
  1065.       0.
  1066.   )  )
  1067. #Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1068.    FORMAT-CONDITIONAL REMOVE-OLD-DEFINITIONS
  1069.    #Y(FORMAT-CONDITIONAL
  1070.       #219Y(00 03 00 01 00 0A 3A 01 80 5C 7C 01 92 03 80 5A 91 02 1C 2D 01 1C
  1071.             0C 0E 02 77 DB AB DC 31 31 16 01 0F 02 0E 02 5B 0F 02 AE DD 2F 06
  1072.             1A 80 A8 2D 00 1A 80 A3 2D 01 1C 80 9E 63 DF 2F 08 0E 02 5B 0F 02
  1073.             AE DD 2F 06 0E 02 77 DB AB DC 31 31 16 01 1C 80 84 6A 09 62 E2 E3
  1074.             E4 6D 03 0D 2C 03 0E 1A 80 75 EB 1A 80 52 91 03 FF A6 91 02 47 91
  1075.             01 02 2D 01 14 AA 8D 0E 0D 6A 09 62 E7 E8 E9 6D 03 0D AD 2C 04 0E
  1076.             EA AB 8D 94 59 AB 1A 2C 16 02 1A 30 16 02 1A 2C 0E 02 77 DB AB EC
  1077.             80 31 00 23 05 6C 0E 02 77 DB AB DC 31 31 16 01 0F 02 77 DB AB ED
  1078.             31 31 16 01 1B 5A 84 01 AB AB 90 01 32 56 16 02 0E 02 77 DB AB EC
  1079.             80 31 00 23 05 05 0E 02 5B 0F 02 AF DD 2F 06 16 01 2D 16 19 05
  1080.            )
  1081.       FORMAT-CONDITIONAL-ERROR NEXT-ARG *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE
  1082.       8. FORMAT-CONDITIONAL-END FORMAT-INTERPRET 1. FORMAT-GOTO-NEW-ARG
  1083.       *FORMAT-CS* "The ~~; directive is not allowed at this point."
  1084.       "Hier ist keine ~~;-Direktive möglich."
  1085.       "La directive ~~; n'est pas permise ici." LANGUAGE FORMAT-ERROR
  1086.       "The ~~[ parameter must be an integer, not ~S"
  1087.       "Argument für ~~[ muß ein Integer sein, nicht ~S"
  1088.       "L'argument pour ~~[ doit être un entier et non ~S" 0.
  1089.       #.MOST-POSITIVE-FIXNUM 7. 5. FORMAT-SKIP-TO-END
  1090.   )  )
  1091. #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1092.    FORMAT-CONDITIONAL-ERROR REMOVE-OLD-DEFINITIONS
  1093.    #Y(FORMAT-CONDITIONAL-ERROR
  1094.       #20Y(00 00 00 00 00 01 6A 00 62 D9 DA DB 6D 03 04 2C 03 05 19 01)
  1095.       *FORMAT-CS* "The ~~[ directive cannot take both modifiers."
  1096.       "~~[ geht nicht mit : und @ gleichzeitig."
  1097.       "La directive ~~[ ne peut pas accepter les deux qualificateurs : et @ en même temps."
  1098.       LANGUAGE FORMAT-ERROR
  1099.   )  )
  1100. #Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1101.    FORMAT-ITERATION REMOVE-OLD-DEFINITIONS
  1102.    #Y(FORMAT-ITERATION
  1103.       #363Y(00 03 00 01 00 0A 3C 01 6A 00 2D 01 0E 00 77 DA AB DB 80 31 00 94
  1104.             01 0E 00 21 80 62 0E 05 14 AA 8D 09 80 70 00 14 92 06 80 86 00 14
  1105.             DE 92 07 07 AA B2 8F 01 32 81 31 91 08 80 80 9C 14 92 05 81 23 AB
  1106.             8D 93 80 7A 16 01 1B 81 1D AD 8E 09 81 04 91 09 80 96 91 08 80 7C
  1107.             9C 10 0E 0E 0E 10 0D A4 10 05 A6 10 00 00 10 10 65 19 E9 2F 12 0E
  1108.             0D 09 10 6A 10 24 13 80 9C 00 12 02 12 03 19 0B 2D 04 1A FF 9B AA
  1109.             7A 01 AB DE AC 62 2C 04 07 9B 5B 16 01 1A FF 91 94 02 0E 00 21 69
  1110.             9D 5B 1A FF 86 6A 05 62 E0 E1 E2 6D 03 0B AD 2C 04 0C 15 1A FF 7B
  1111.             2D 04 14 AA 8E 0D 68 15 1A FF 70 0E 0D 1A FF 7C 15 1C 80 A4 1A FF
  1112.             84 2D 04 1A 27 0E 0D 1A 29 00 11 1A FF A4 9E 10 05 A0 10 00 00 10
  1113.             10 BD E9 2F 12 6A 10 24 13 2F 00 1A FF 90 91 08 5A 93 01 82 02 15
  1114.             10 0E 91 0B 54 9F 10 0F 0E 0E 10 0D A7 10 05 A9 10 00 00 10 10 65
  1115.             1C E9 2F 12 6A 10 23 13 FF BD 11 12 02 12 03 1A 80 41 2D 04 1A 08
  1116.             91 08 79 93 01 82 02 15 14 00 10 05 B1 B9 A0 36 01 11 16 01 1A 27
  1117.             00 10 05 B0 B8 0E 0D 36 01 11 0F 0D 1A 19 91 09 59 91 08 6C 00 10
  1118.             05 B0 B8 A1 36 01 11 F7 1A 07 AD 8D 1F 6A AD 2E 14 84 00 92 07 FE
  1119.             D6 1A FE CC 15 1B FE E3 00 19 0B
  1120.            )
  1121.       *FORMAT-CSDL* FORMAT-SKIP-TO-END CONTROL-STRING-DIRECTIVE 5. NEXT-ARG
  1122.       *FORMAT-CS* 0. FORMAT-PARSE-CS
  1123.       "The ~~{ directive requires a list argument, not ~S"
  1124.       "Das Argument zu ~~{ muß eine Liste sein, nicht ~S"
  1125.       "L'argument de ~~{ doit être une liste et non ~S" LANGUAGE FORMAT-ERROR
  1126.       *FORMAT-NEXT-ARG* *FORMAT-ARG-LIST* *FORMAT-NEXT-ARGLIST*
  1127.       *FORMAT-UP-AND-OUT* FORMAT-ITERATION-END FORMAT-INTERPRET :TERMINATE-ALL
  1128.       FORMAT-INDIRECTION-CSERROR
  1129.   )  )
  1130. #Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1131.    FORMAT-JUSTIFICATION REMOVE-OLD-DEFINITIONS
  1132.    #Y(FORMAT-JUSTIFICATION
  1133.       #179Y(00 03 00 04 00 00 3A 04 02 C3 FA 3A 03 02 C4 F9 3A 02 02 C3 F8 3A
  1134.             01 02 C5 F7 6A 03 B2 70 94 AA 71 76 01 04 63 1A 80 5C 0E 03 77 2E
  1135.             0B 43 41 02 69 06 69 06 0E 07 1C 80 43 A5 0F 03 2D 0C 11 16 01 1A
  1136.             80 4F A4 5A 1A 80 5C A7 5B 1A 80 5F 0E 03 5B 0F 03 00 10 07 B2 DE
  1137.             2F 08 92 03 1A 0E 03 77 DC AB DD 80 31 00 24 09 0E 0E 03 77 DC AB
  1138.             E2 31 31 16 01 FD 1B FF B1 0E 07 1B FF BD B2 71 77 83 04 11 7C 00
  1139.             0E 03 77 DC AB DD 80 31 00 24 06 FF BD 16 01 AA 80 4A 00 B8 B8 B8
  1140.             B8 B8 B8 B8 B6 B5 91 0C FF A0 00 14 B6 B6 91 0F FF 9D A7 14 2C 0D
  1141.             0D 19 0F
  1142.            )
  1143.       0. 1. #\Space *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 7.
  1144.       FORMAT-JUSTIFICATION-END *FORMAT-UP-AND-OUT* FORMAT-INTERPRET
  1145.       FORMAT-SEPARATOR 5. FORMAT-RESOLVE-PARMS FORMAT-SKIP-TO-END
  1146.       DO-FORMAT-JUSTIFICATION
  1147.   )  )
  1148. #Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1149.    DO-FORMAT-JUSTIFICATION REMOVE-OLD-DEFINITIONS
  1150.    #Y(DO-FORMAT-JUSTIFICATION
  1151.       #126Y(00 0D 00 00 00 00 92 0A 14 92 09 17 92 08 19 92 07 1B 91 01 1D B4
  1152.             B2 B9 2C 03 05 19 0E C3 09 0A 91 09 69 C4 FF 91 08 67 C3 FE 91 07
  1153.             65 C5 FD 92 01 63 B4 B4 B4 B9 B9 B0 2C 06 03 41 02 92 07 19 B2 AB
  1154.             91 07 01 C3 14 72 03 35 91 05 01 C7 14 90 01 30 06 B0 BA 37 02 30
  1155.             8D D8 1A 17 AC 9C 5E 14 B5 BC 2C 03 05 92 04 13 93 04 82 05 BB 37
  1156.             02 30 8D 84 00 AC 9C 5E 1B 64 91 04 6D 00 19 11
  1157.            )
  1158.       0. 1. #\Space FORMAT-JUSTIFIED-SEGMENTS 72. FORMAT-PADDING
  1159.   )  )
  1160. #Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1161.    FORMAT-UP-AND-OUT REMOVE-OLD-DEFINITIONS
  1162.    #Y(FORMAT-UP-AND-OUT
  1163.       #44Y(00 03 00 03 00 00 3C 03 3C 02 3C 01 AD AD AD 91 08 10 0E 01 14 2C 04
  1164.            02 1C 0F 91 05 09 C7 0F 05 19 07 0E 00 1A 6E C6 1A 75 00 19 07
  1165.           )
  1166.       *FORMAT-NEXT-ARGLIST* *FORMAT-NEXT-ARG* UP-AND-OUT-P :TERMINATE-ALL
  1167.       :TERMINATE *FORMAT-UP-AND-OUT*
  1168.   )  )
  1169. #Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1170.    UP-AND-OUT-P REMOVE-OLD-DEFINITIONS
  1171.    #Y(UP-AND-OUT-P
  1172.       #92Y(00 03 00 01 00 0A 3A 01 26 7C 01 92 04 24 1A 28 9C 58 19 05 AE C3 59
  1173.            19 05 AE AE 31 03 19 05 AE AE AE 32 02 31 19 05 AE AE AE 32 02 0B 19
  1174.            05 91 04 06 91 03 03 92 02 58 91 03 03 92 02 56 92 02 58 AE 8E 0E 08
  1175.            AD 8E 0E 04 AC 8D 0E 52 AE 8E 1E 08 AD 8E 1E 04 AC 8D 1E 4E 00 19 05
  1176.           )
  1177.       0.
  1178.   )  )
  1179. #Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1180.    FORMATTER-HAIRY REMOVE-OLD-DEFINITIONS
  1181.    #Y(FORMATTER-HAIRY
  1182.       #19Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03)
  1183.       #Y(FORMATTER-HAIRY-1
  1184.          #50Y(00 01 00 00 01 17 68 00 01 7A 01 68 00 01 D9 AC 62 2C 04 02 9B 5A
  1185.               10 03 9E 5B 10 04 A3 10 05 0E 05 10 06 00 10 07 00 10 08 BF 2E 09
  1186.               0E 06 12 06 19 04
  1187.              )
  1188.          NIL 0. FORMAT-PARSE-CS *FORMAT-CS* *FORMAT-CSDL* *FORMAT-ARG-LIST*
  1189.          *FORMAT-NEXT-ARG* *FORMAT-NEXT-ARGLIST* *FORMAT-UP-AND-OUT*
  1190.          FORMAT-INTERPRET
  1191.   )  )  )
  1192. #Y(#:TOP-LEVEL-FORM-77 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1193.    (SPECIAL *FORMAT-TERMINATE*) *FORMAT-TERMINATE*
  1194.   )
  1195. #Y(#:TOP-LEVEL-FORM-78 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1196.    (SPECIAL *FORMAT-TERMINATE-ALL*) *FORMAT-TERMINATE-ALL*
  1197.   )
  1198. #Y(#:TOP-LEVEL-FORM-79 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1199.    (SPECIAL *FORMAT-UWPS*) *FORMAT-UWPS*
  1200.   )
  1201. #Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1202.    FORMATTER-BLOCK REMOVE-OLD-DEFINITIONS
  1203.    #Y(FORMATTER-BLOCK
  1204.       #21Y(00 01 00 00 00 02 AB 71 90 6A 00 AB D9 AC 31 88 16 01 15 19 02)
  1205.       *FORMAT-UWPS* UWPS
  1206.   )  )
  1207. #Y(#:TOP-LEVEL-FORM-81
  1208.    #23Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB 2E 01 DB DC 31 82 C6 19 01)
  1209.    FORMATTER-TERMINATE REMOVE-OLD-DEFINITIONS
  1210.    #Y(FORMATTER-TERMINATE #12Y(00 00 00 00 00 01 6A 00 C4 33 19 01)
  1211.       *FORMAT-TERMINATE*
  1212.       #1=#Y(MARK-USED
  1213.             #36Y(00 01 00 00 00 02 AB D8 63 31 88 6A 01 AC DA 37 01 71 84 1A 06
  1214.                  AB 63 30 AC 82 01 AB 9C 22 76 16 02 9C 19 02
  1215.                 )
  1216.             USED *FORMAT-UWPS* UWPS
  1217.      )     )
  1218.    FORMATTER-TERMINATE-ALL
  1219.    #Y(FORMATTER-TERMINATE-ALL #12Y(00 00 00 00 00 01 6A 00 C4 33 19 01)
  1220.       *FORMAT-TERMINATE-ALL* #1#
  1221.   )  )
  1222. #Y(#:TOP-LEVEL-FORM-82
  1223.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  1224.    FORMATTER-BIND-TERMINATOR REMOVE-OLD-DEFINITIONS MACRO
  1225.    #Y(FORMATTER-BIND-TERMINATOR
  1226.       #20Y(00 01 00 01 00 08 94 02 D8 D9 DA DB 9F 79 7A 02 60 03 19 04) LET
  1227.       ((*FORMAT-TERMINATE* (FORMATTER-BLOCK "TERMINATE-")))
  1228.       FORMATTER-BIND-TERMINATOR-1 PROGN
  1229.   )  )
  1230. #Y(#:TOP-LEVEL-FORM-83 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1231.    FORMATTER-BIND-TERMINATOR-1 REMOVE-OLD-DEFINITIONS
  1232.    #Y(FORMATTER-BIND-TERMINATOR-1
  1233.       #26Y(00 01 00 00 00 02 6A 00 D9 37 01 8E 84 09 DA 6A 00 9E 7B 02 60 01 F7
  1234.            9C 19 02
  1235.           )
  1236.       *FORMAT-TERMINATE* USED BLOCK
  1237.   )  )
  1238. #Y(#:TOP-LEVEL-FORM-84
  1239.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  1240.    FORMATTER-BIND-TERMINATORS REMOVE-OLD-DEFINITIONS MACRO
  1241.    #Y(FORMATTER-BIND-TERMINATORS
  1242.       #20Y(00 01 00 01 00 08 94 02 D8 D9 DA DB 9F 79 7A 02 60 03 19 04) LET
  1243.       ((*FORMAT-TERMINATE* (FORMATTER-BLOCK "TERMINATE-"))
  1244.         (*FORMAT-TERMINATE-ALL* (FORMATTER-BLOCK "TERMINATE-ALL-"))
  1245.       )
  1246.       FORMATTER-BIND-TERMINATORS-1 PROGN
  1247.   )  )
  1248. #Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1249.    FORMATTER-BIND-TERMINATORS-1 REMOVE-OLD-DEFINITIONS
  1250.    #Y(FORMATTER-BIND-TERMINATORS-1
  1251.       #43Y(00 01 00 00 00 02 6A 00 D9 37 01 8E 84 09 DA 6A 00 9E 7B 02 60 01 F7
  1252.            6A 03 D9 37 01 8E 84 09 DA 6A 03 9E 7B 02 60 01 F7 9C 19 02
  1253.           )
  1254.       *FORMAT-TERMINATE* USED BLOCK *FORMAT-TERMINATE-ALL*
  1255.   )  )
  1256. #Y(#:TOP-LEVEL-FORM-86 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1257.    (SPECIAL *FORMAT-CASE*) *FORMAT-CASE*
  1258.   )
  1259. #Y(#:TOP-LEVEL-FORM-87 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1260.    (SPECIAL *ARGS*) *ARGS*
  1261.   )
  1262. #Y(#:TOP-LEVEL-FORM-88 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1263.    (SPECIAL *ITERARGS*) *ITERARGS*
  1264.   )
  1265. #Y(#:TOP-LEVEL-FORM-89 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1266.    (SPECIAL *FORMATTER-LINEAR-ARGS*) *FORMATTER-LINEAR-ARGS*
  1267.   )
  1268. #Y(#:TOP-LEVEL-FORM-90 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1269.    (SPECIAL *FORMATTER-LINEAR-ARGCOUNT*) *FORMATTER-LINEAR-ARGCOUNT*
  1270.   )
  1271. #Y(#:TOP-LEVEL-FORM-91 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1272.    (SPECIAL *FORMATTER-LINEAR-POSITION*) *FORMATTER-LINEAR-POSITION*
  1273.   )
  1274. #Y(#:TOP-LEVEL-FORM-92 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  1275.    (SPECIAL *FORMATTER-WHOLE-ARGS*) *FORMATTER-WHOLE-ARGS*
  1276.   )
  1277. #Y(#:TOP-LEVEL-FORM-93
  1278.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  1279.    FORMATTER-BIND-ARGS REMOVE-OLD-DEFINITIONS MACRO
  1280.    #Y(FORMATTER-BIND-ARGS
  1281.       #20Y(00 01 00 01 00 08 94 02 D8 D9 DA DB 9F 79 7A 02 60 03 19 04) LET
  1282.       ((*ARGS* (GENSYM "ARGS")) (*FORMATTER-LINEAR-ARGS* T)
  1283.         (*FORMATTER-LINEAR-ARGCOUNT* 0.) (*FORMATTER-LINEAR-POSITION* 0.)
  1284.         (*FORMATTER-WHOLE-ARGS* NIL)
  1285.       )
  1286.       FORMATTER-BIND-ARGS-1 PROGN
  1287.   )  )
  1288. #Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1289.    FORMATTER-BIND-ARGS-1 REMOVE-OLD-DEFINITIONS
  1290.    #Y(FORMATTER-BIND-ARGS-1
  1291.       #130Y(00 01 00 00 00 02 0E 00 1C 06 D9 DA AD 2C 03 03 00 2A 01 00 0B 00
  1292.             00 DC 6A 05 1A 0C DE 71 90 06 03 00 5C 0B 02 00 84 01 AB AB 90 01
  1293.             32 6E 16 02 67 00 00 31 4A 0B 00 00 AA 6C 07 01 E0 AE 2C 03 03 F8
  1294.             E1 E2 AE 2C 03 03 F8 0E 00 1C 15 E3 E4 AE 2C 03 03 F8 E5 E6 6A 0F
  1295.             7A 02 7A 01 9F 7B 02 60 01 F8 67 00 00 E8 6A 0F 7A 02 72 02 23 E9
  1296.             EA 67 03 00 6A 0F 7A 01 32 02 23 79 7A 02 9F 79 3F 02 19 03
  1297.            )
  1298.       *FORMATTER-WHOLE-ARGS*
  1299.       #Y(FORMATTER-BIND-ARGS-1-1
  1300.          #18Y(00 01 00 00 00 02 6A 00 9D 5B 77 32 01 34 0F 00 19 02)
  1301.          *FORMATTER-LINEAR-ARGCOUNT*
  1302.         )
  1303.       #Y(FORMATTER-BIND-ARGS-1-2
  1304.          #38Y(00 01 00 00 00 02 AB 31 06 1E 19 93 01 C3 59 1E 13 94 01 31 06 1E
  1305.               0D 9C 5B 77 31 0A 1E 06 9C 5B 5B 58 19 02 19 02
  1306.              )
  1307.          WHOLE-ARGS
  1308.         )
  1309.       SUBST-IF-THEN 0. *FORMATTER-LINEAR-ARGCOUNT* "ARG"
  1310.       #Y(FORMATTER-BIND-ARGS-1-3
  1311.          #32Y(00 01 00 00 00 02 9C 5B 77 6A 01 8F 01 2F 07 DA 6A 03 60 02 19 02
  1312.               9C 5B 77 68 00 01 30 98 19 02
  1313.              )
  1314.          NIL *FORMATTER-LINEAR-ARGCOUNT* POP *ARGS*
  1315.         )
  1316.       #Y(FORMATTER-BIND-ARGS-1-4
  1317.          #31Y(00 01 00 00 00 02 AB 31 06 1E 12 93 01 C3 59 1E 0C 94 01 31 06 1E
  1318.               06 9C 5B 5B 58 19 02 19 02
  1319.              )
  1320.          ARG
  1321.         )
  1322.       #Y(FORMATTER-BIND-ARGS-1-5
  1323.          #66Y(00 01 00 00 00 02 9C 5B 77 9D 5B 5B 77 AB 6A 00 8F 01 31 17 02 0F
  1324.               05 DA 6A 03 DE AD 6A 00 72 01 33 60 02 14 60 03 19 04 C4 19 04 AA
  1325.               6A 00 8F 01 31 76 DA 6A 03 DC AD 6A 00 72 01 36 6A 03 60 03 1A 61
  1326.              )
  1327.          *FORMATTER-LINEAR-ARGCOUNT* (PROGN) SETQ *ARGS* NTHCDR
  1328.          *FORMATTER-WHOLE-ARGS* WHOLE-ARGS
  1329.         )
  1330.       #Y(FORMATTER-BIND-ARGS-1-6
  1331.          #39Y(00 01 00 00 00 02 AB 31 06 1E 1A 93 01 C3 59 1E 14 94 01 31 06 1E
  1332.               0E 9C 5B 78 31 06 1E 07 9C 5B 5B 5B 58 19 02 19 02
  1333.              )
  1334.          SETQ-ARGS-WHOLE-ARGS
  1335.         )
  1336.       #Y(FORMATTER-BIND-ARGS-1-7
  1337.          #28Y(00 01 00 00 00 02 9C 5B 77 6A 00 72 01 36 AA 8D 92 07 DA AB C6 61
  1338.               02 19 03 C4 19 03
  1339.              )
  1340.          *FORMATTER-LINEAR-ARGCOUNT* WHOLE-ARGS NTHCDR (WHOLE-ARGS)
  1341.         )
  1342.       #Y(FORMATTER-BIND-ARGS-1-8
  1343.          #38Y(00 01 00 00 00 02 AB 31 06 1E 19 93 01 C3 59 1E 13 94 01 31 06 1E
  1344.               0D 9C 5B 77 31 0A 1E 06 9C 5B 5B 58 19 02 19 02
  1345.              )
  1346.          WHOLE-ARGS
  1347.         )
  1348.       LET WHOLE-ARGS *ARGS* &REST DECLARE IGNORABLE
  1349.   )  )
  1350. #Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1351.    FORMATTER-STOP-LINEAR REMOVE-OLD-DEFINITIONS
  1352.    #Y(FORMATTER-STOP-LINEAR
  1353.       #27Y(00 00 00 00 00 01 0E 00 1B 03 00 19 01 6A 01 6A 02 32 01 34 0F 01 00
  1354.            0F 00 19 01
  1355.           )
  1356.       *FORMATTER-LINEAR-ARGS* *FORMATTER-LINEAR-ARGCOUNT*
  1357.       *FORMATTER-LINEAR-POSITION*
  1358.   )  )
  1359. #Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1360.    FORMATTER-LENGTH-ARGS REMOVE-OLD-DEFINITIONS
  1361.    #Y(FORMATTER-LENGTH-ARGS #15Y(00 00 00 00 00 01 2D 00 D9 6A 02 60 02 19 01)
  1362.       FORMATTER-STOP-LINEAR LENGTH *ARGS*
  1363.   )  )
  1364. #Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1365.    FORMATTER-NEXT-ARG REMOVE-OLD-DEFINITIONS
  1366.    #Y(FORMATTER-NEXT-ARG
  1367.       #40Y(00 00 00 00 00 01 0E 00 1B 07 DC 6A 05 60 02 19 01 D9 6A 02 7A 02 6A
  1368.            02 31 97 0F 02 6A 03 6A 02 32 01 33 0F 03 15 19 01
  1369.           )
  1370.       *FORMATTER-LINEAR-ARGS* ARG *FORMATTER-LINEAR-POSITION*
  1371.       *FORMATTER-LINEAR-ARGCOUNT* POP *ARGS*
  1372.   )  )
  1373. #Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1374.    FORMATTER-WHOLE-ARGS REMOVE-OLD-DEFINITIONS
  1375.    #Y(FORMATTER-WHOLE-ARGS
  1376.       #17Y(00 01 00 00 00 02 2D 00 02 0F 01 DA AC 60 02 19 02)
  1377.       FORMATTER-STOP-LINEAR *FORMATTER-WHOLE-ARGS* WHOLE-ARGS
  1378.   )  )
  1379. #Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1380.    FORMATTER-GOTO-ARG REMOVE-OLD-DEFINITIONS
  1381.    #Y(FORMATTER-GOTO-ARG
  1382.       #195Y(00 03 00 00 00 04 92 03 80 51 AB 8D 0A 27 2D 04 DD 6A 06 E0 AE C3
  1383.             1A 80 63 DB 6A 02 AD 7A 03 7A 01 9D 0F 02 15 19 04 AB 6A 02 8F 01
  1384.             2F 6B 01 02 AD 0E 02 1A 1A AB D8 81 01 33 01 0E 01 1B 68 2D 04 DD
  1385.             6A 06 AD 2E 07 1A 80 72 63 62 6A 02 9F 14 72 01 36 28 03 07 00 91
  1386.             03 FF AF 92 02 80 43 AB 8E 0A 04 0E 01 1B 63 2D 04 DD 6A 06 0E 01
  1387.             1C 11 E0 E1 E2 6A 02 B1 7A 03 CE 7B 02 C3 14 2E 07 1A 38 E4 AE D8
  1388.             6E 07 6A 06 60 04 1A 30 62 D8 1A 07 2D 0E 14 83 01 84 00 AA AE 90
  1389.             01 32 73 AB 31 4A 19 06 AB 8E 0A 0A AB E5 90 01 31 04 0E 01 1B 5C
  1390.             2D 04 DD 6A 06 E0 AE 0E 06 14 60 03 14 7A 03 60 01 19 04
  1391.            )
  1392.       0. *FORMATTER-LINEAR-ARGS* *FORMATTER-LINEAR-POSITION*
  1393.       SETQ-ARGS-WHOLE-ARGS FORMATTER-STOP-LINEAR SETQ *ARGS*
  1394.       FORMATTER-WHOLE-ARGS NTHCDR MAX - (0.) LIST-BACKWARD 100.
  1395.       FORMATTER-NEXT-ARG
  1396.   )  )
  1397. #Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1398.    LIST-BACKWARD REMOVE-OLD-DEFINITIONS
  1399.    #Y(LIST-BACKWARD
  1400.       #25Y(00 03 00 00 00 04 AC 71 48 AC 71 48 AF 72 02 36 D8 72 01 33 AD 30 9F
  1401.            19 04
  1402.           )
  1403.       0.
  1404.   )  )
  1405. #Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1406.    FORMATTER-ARG REMOVE-OLD-DEFINITIONS
  1407.    #Y(FORMATTER-ARG
  1408.       #25Y(00 01 00 00 00 02 AB 23 00 07 AB 23 02 07 9C 19 02 2D 01 19 02 2D 03
  1409.            19 02
  1410.           )
  1411.       :NEXT-ARG FORMATTER-NEXT-ARG :ARG-COUNT FORMATTER-LENGTH-ARGS
  1412.   )  )
  1413. #Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1414.    FORMATTER-MAIN-1 REMOVE-OLD-DEFINITIONS
  1415.    #Y(FORMATTER-MAIN-1
  1416.       #1751Y(00 00 00 01 00 07 3C 01 00 2A 01 00 0B 00 00 6A 00 8B 96 86 8B 0E
  1417.              00 77 D9 AB DA 31 31 25 03 86 5C 6A 04 D9 AC DD 71 31 D9 AD DE 71
  1418.              31 71 46 06 02 00 5C 0B 01 00 1A 86 44 16 02 1A 86 62 9B 2A 03 D9
  1419.              AD E0 31 31 0B 00 00 D9 AD E1 31 31 0B 00 01 98 0A D9 AE E3 71 31
  1420.              32 00 17 0B 00 02 9B 2A 03 AA 2B 0C 01 0B 00 00 AA 2B 0D 01 0B 00
  1421.              01 AA 6C 0E 01 AB 2B 0F 01 0B 01 02 AB 6C 10 01 06 04 00 25 11 85
  1422.              AD EE 2D 17 14 03 18 61 02 1A 18 62 67 04 02 37 07 71 4F 67 07 00
  1423.              30 A5 0B 06 00 ED 06 04 00 1B 60 2D 17 14 03 19 61 02 1A 83 34 EA
  1424.              06 03 00 33 06 03 02 77 EB 37 03 8C B7 0C 06 03 02 5B 5B 77 EC 37
  1425.              03 8B B7 45 06 02 02 1A 81 97 62 67 04 02 37 07 71 4F 67 07 00 30
  1426.              A5 0B 06 00 F4 2D 17 14 03 1D 61 02 1A 82 F8 EA 06 03 00 33 06 03
  1427.              02 77 F2 37 03 8C B7 11 06 03 02 5B 5B 77 F3 37 03 8C B7 05 06 03
  1428.              00 1C 45 06 02 02 1A 81 56 62 67 04 02 37 07 71 4F 67 07 00 30 A5
  1429.              0B 06 00 64 20 2D 17 14 03 21 61 02 1A 82 B6 EA 06 03 00 33 06 03
  1430.              02 77 64 1E 37 03 8C B7 0D 06 03 02 5B 5B 77 64 1F 37 03 8B B7 47
  1431.              06 02 02 1A 81 17 D5 1A 80 A3 D5 1A 80 9F D5 1A 80 9B D5 1A 80 97
  1432.              03 22 1A 17 62 67 04 02 37 07 71 4F 67 07 00 30 A5 0B 06 00 06 03
  1433.              00 1B 67 03 23 14 2D 17 14 03 24 61 02 1A 82 5D E0 06 03 00 33 06
  1434.              03 02 5A 1B 05 06 03 01 1C 4E 06 02 02 1A 80 CB 62 63 DA 6D 03 26
  1435.              67 07 00 30 A5 0B 06 00 06 03 01 1C 28 64 27 64 28 64 29 2D 17 14
  1436.              03 2A 7B 02 03 2B 7B 02 03 2C 61 02 1A 82 1C 64 25 06 03 00 33 06
  1437.              03 00 1B 4A 06 03 01 1B 58 64 2D 64 29 2D 17 14 03 2E 7B 02 03 2F
  1438.              61 02 1A 81 FA 03 25 1A 0A CB 1A 07 C9 1A 04 C9 1A 01 D5 14 9C 1A
  1439.              80 6B 03 31 1A 81 E2 DA 06 03 00 33 06 03 02 77 64 30 37 03 8B B7
  1440.              6B 06 02 01 1A 80 50 03 33 1A 81 C7 DA 06 03 00 33 06 03 02 77 64
  1441.              32 37 03 8B B7 6B 06 02 01 1A 36 03 35 1A 81 AD DA 06 03 00 33 06
  1442.              03 02 77 64 34 37 03 8B B7 6B 06 02 01 1A 1C 03 37 1A 81 93 DA 06
  1443.              03 00 33 06 03 02 77 64 36 37 03 8B B7 6B 06 02 01 1A 02 DD 9D 33
  1444.              16 05 1A 84 10 03 25 1A 17 DA 06 03 00 33 67 03 01 67 04 00 06 05
  1445.              02 5A 1B 06 06 05 01 1B 66 C5 14 6D 03 26 67 07 00 30 A5 1A 81 54
  1446.              64 38 6A 39 64 3A 64 3B 2D 17 14 2D 3C 6A 39 7A 04 60 03 1A 81 39
  1447.              64 25 06 03 00 33 06 03 01 1B 5F 64 3A 64 3B 2D 17 14 2D 17 1A 80
  1448.              BC 64 3E 6B FD 40 AA 67 08 00 30 A5 1A 83 5B 03 43 1A 80 4F 06 0A
  1449.              01 1B 76 03 44 1A 80 45 03 45 1A 80 40 64 49 64 4A 9E 79 9D 7B 02
  1450.              60 01 1A 80 47 64 25 06 03 00 33 0E 00 5B 0F 00 0E 3D 1B 41 64 3F
  1451.              64 40 62 0E 41 5C 10 41 02 10 3D 64 3E 2E 42 11 14 64 27 06 0A 00
  1452.              1B FF B9 06 0A 01 1B FF BD 03 46 14 03 47 79 03 48 7B 02 7A 01 0E
  1453.              41 5A 1B FF B0 AB AB 32 02 23 16 02 11 61 02 1A 80 A3 2D 4B 16 05
  1454.              1A 83 36 06 03 00 1C 82 E9 06 03 01 1B 6E 64 25 06 03 00 33 64 28
  1455.              64 4C 2D 17 14 7A 02 64 4A 2D 3C 0E 00 5B 0F 00 64 4D 2E 42 79 64
  1456.              4A 2D 3C 0E 00 5B 0F 00 64 4D 2E 42 5C 14 60 04 1A 80 60 6A 04 62
  1457.              64 51 64 52 64 53 6D 03 54 2C 03 55 16 05 1A 82 E6 DA 06 03 00 33
  1458.              64 56 06 04 02 5A 1B 02 2D 17 14 64 25 62 2D 3C 1A 02 84 01 0E 00
  1459.              77 D9 AB 64 50 31 31 16 01 1C 1F 0E 00 77 D9 AB E0 31 31 16 01 1C
  1460.              02 7D 01 0E 00 5B 0F 00 AB 64 4D 2E 42 79 83 00 AB 02 22 52 AA 31
  1461.              4A 16 02 61 02 14 06 07 00 5C 0B 06 00 16 05 1A 82 8D 64 3F 64 5D
  1462.              06 0B 02 77 7A 02 03 5E 79 9D 33 7B 02 60 01 1A 80 6D DA 06 03 00
  1463.              33 0E 00 5B 0F 00 9D 2A 03 06 04 02 5A 0B 00 00 D9 B1 64 50 31 31
  1464.              77 D9 AB E0 31 31 16 01 0B 00 01 D9 B1 64 50 71 31 0E 00 59 0B 00
  1465.              02 9B 2A 01 AB 2B 57 01 0B 00 00 9B 2A 01 AB 2B 58 01 0B 00 00 9B
  1466.              2A 01 AB 2B 59 01 0B 00 00 9B 2A 01 AB 2B 5A 01 0B 00 00 AA 6C 5B
  1467.              01 06 05 00 1C 09 14 64 5C 37 03 8C B7 FF 7F 9B 33 14 AA 67 0E 00
  1468.              30 A5 0B 0D 00 16 0C 1A 81 FB 0E 00 5B 0F 00 64 4A 64 61 6E 42 64
  1469.              62 32 02 23 5C 1A 80 43 D9 B3 E3 31 31 77 2E 0A 1A 3F D9 B4 E3 31
  1470.              31 5B 77 2E 0A 1A 3A EA 06 03 00 33 D9 B0 64 50 31 31 77 D9 AB DE
  1471.              71 31 CA 59 1C 05 D9 AB E0 31 31 14 64 5F 67 06 00 67 07 01 67 08
  1472.              02 64 60 AF 91 06 FF AA 00 14 91 07 FF B8 00 14 91 08 FF BC 00 14
  1473.              7A 05 32 02 23 7B 03 62 0E 41 5C 10 41 62 1A 80 47 64 63 64 64 64
  1474.              65 64 66 A3 79 7A 02 03 67 79 72 02 23 64 49 64 4A 62 AF 1A 10 93
  1475.              00 AA 64 68 72 02 23 AD 7F A5 02 16 01 82 00 9B 20 6D 16 01 AA 30
  1476.              A7 16 01 79 03 69 61 02 1A 80 51 0E 00 5B 0F 00 64 61 6E 42 83 00
  1477.              0E 00 77 D9 AB 64 50 31 31 16 01 1B 68 AA 80 4A 00 0E 41 5A 1B FF
  1478.              A2 64 63 64 64 64 6A B1 64 66 62 B0 1A 11 93 00 64 4A AB 64 6B 32
  1479.              02 23 79 83 02 16 01 82 00 9B 20 6C 16 01 AA 30 A7 16 01 79 7A 01
  1480.              32 02 23 5C 14 7A 03 06 0E 00 5C 0B 0D 00 16 01 11 16 08 1A 80 E7
  1481.              0E 6C 1A 80 52 64 6E 06 06 02 5C 1A 80 72 64 6F 9E 1A 14 06 05 02
  1482.              77 92 00 74 9B 1F 12 93 00 24 70 0D 64 6F 9C 5B 5A 14 60 02 16 01
  1483.              1A 80 51 64 56 AB 64 71 64 6F B0 7A 02 7A 02 03 72 61 03 16 01 1A
  1484.              3D 2D 74 1A 80 43 E3 06 03 00 33 2D 3C 06 03 00 1B FF AB 0E 39 14
  1485.              64 28 64 6D 67 06 02 8F 00 27 FF A1 06 05 02 5B 5A 1B 09 06 05 02
  1486.              5B 5B 5A 1C FF 9F 64 6E 67 06 02 AD 7A 01 32 02 23 5C 14 64 73 06
  1487.              07 00 1B FF BA 2D 75 14 7A 02 7A 03 06 08 00 5C 0B 07 00 16 06 1A
  1488.              80 4B 64 76 00 51 06 03 01 1C FD 5B 64 25 06 03 00 33 2D 3C 64 28
  1489.              64 4E 6A 39 7A 02 64 4A 0E 00 5B 0F 00 64 4D 2E 42 79 64 38 6A 39
  1490.              64 4F 6A 39 7A 02 7A 03 7A 04 06 07 00 5C 0B 06 00 0E 00 77 D9 AB
  1491.              64 50 31 31 16 01 1B FD 08 16 05 16 01 0E 00 5B 0F 00 1A F9 88 9C
  1492.              2A 01 D9 AC DE 31 31 0B 00 00 14 A0 21 F9 A2 67 00 00 24 07 F9 A0
  1493.              16 02 62 67 01 00 62 1A 27 AC AB 93 04 72 02 13 30 AC 1A 1A 86 01
  1494.              00 14 8E 1E 04 AA 7F 4E 00 9D 1F 09 93 02 8E 09 04 AA 8D 09 5E AA
  1495.              83 02 82 01 AB 8C 96 60 16 02 15 19 03
  1496.             )
  1497.       *FORMAT-CSDL* CONTROL-STRING-DIRECTIVE 1.
  1498.       #S(HASH-TABLE EQ (2. . 1640.) (1. . 2.) (0. . 1630.)) *FORMAT-CS* 2. 7.
  1499.       FORMAT-SEPARATOR 5. 6. FORMATTER-ARG 3.
  1500.       #Y(FORMATTER-MAIN-1-SIMPLE-ARGLIST
  1501.          #51Y(00 01 00 00 00 02 68 01 03 71 48 AC 8F 01 31 0C 6A 01 62 DA DB DC
  1502.               6D 03 05 2C 03 06 68 01 03 AC 68 01 03 71 48 72 01 36 62 70 A1 32
  1503.               02 23 0C 01 03 19 02
  1504.              )
  1505.          NIL *FORMAT-CS* "Too many arguments for this directive"
  1506.          "Zu viele Argumente für diese Direktive."
  1507.          "Trop d'arguments pour cette directive." LANGUAGE FORMAT-ERROR
  1508.         )
  1509.       #Y(FORMATTER-MAIN-1-TRIVIAL-CALL
  1510.          #30Y(00 00 00 00 00 01 68 02 01 D9 68 01 01 68 01 02 07 01 03 7B 04 07
  1511.               03 01 5C 0C 03 01 19 01
  1512.              )
  1513.          NIL STREAM
  1514.         )
  1515.       #Y(FORMATTER-MAIN-1-TRIVIAL
  1516.          #17Y(00 01 00 00 00 02 AB 07 00 01 33 07 00 02 33 19 02) NIL
  1517.         )
  1518.       #Y(FORMATTER-MAIN-1-SIMPLE-CALL
  1519.          #49Y(00 00 00 00 00 01 D9 68 02 01 70 4E 72 02 13 DA 70 CF 70 D7 DB 68
  1520.               01 01 68 01 02 68 01 03 2D 04 14 7A 01 32 02 23 7B 04 07 03 01 5C
  1521.               0C 03 01 19 01
  1522.              )
  1523.          NIL "DO-" "SYSTEM" STREAM FORMATTER-NEXT-ARG
  1524.         )
  1525.       #Y(FORMATTER-MAIN-1-SIMPLE
  1526.          #17Y(00 01 00 00 00 02 AB 07 00 01 33 07 00 03 33 19 02) NIL
  1527.         )
  1528.       #S(HASH-TABLE EQ (FORMAT-UP-AND-OUT . 1371.)
  1529.          (FORMAT-JUSTIFICATION . 1064.) (FORMAT-ITERATION . 899.)
  1530.          (FORMAT-CONDITIONAL . 708.) (FORMAT-CASE-CONVERSION . 622.)
  1531.          (FORMAT-INDIRECTION . 551.) (FORMAT-GOTO . 494.)
  1532.          (FORMAT-TABULATE . 482.) (FORMAT-TILDE . 461.) (FORMAT-PAGE . 435.)
  1533.          (FORMAT-FRESH-LINE . 409.) (FORMAT-TERPRI . 382.)
  1534.          (FORMAT-DOLLARS-FLOAT . 371.) (FORMAT-GENERAL-FLOAT . 368.)
  1535.          (FORMAT-EXPONENTIAL-FLOAT . 365.) (FORMAT-FIXED-FLOAT . 362.)
  1536.          (FORMAT-CHARACTER . 358.) (FORMAT-PLURAL . 324.) (FORMAT-RADIX . 259.)
  1537.          (FORMAT-HEXADECIMAL . 217.) (FORMAT-OCTAL . 213.)
  1538.          (FORMAT-BINARY . 209.) (FORMAT-DECIMAL . 205.) (FORMAT-WRITE . 170.)
  1539.          (FORMAT-S-EXPRESSION . 104.) (FORMAT-ASCII . 44.)
  1540.         )
  1541.       4. (NIL 0.) (NIL 0.) PRINC OR FORMATTER-NEXT-ARG ("()") (STREAM) (NIL 0.)
  1542.       (NIL 0.) PRIN1 (STREAM) (NIL 0.) (NIL 0.) WRITE (:STREAM STREAM)
  1543.       FORMAT-ORDINAL FORMAT-CARDINAL (STREAM) 0. FORMATTER-GOTO-ARG
  1544.       WRITE-STRING IF EQL (1.) ("y" "ies") (STREAM) UNLESS (1.)
  1545.       ((WRITE-CHAR #\s STREAM)) (NIL 1.) #\Newline (NIL 1.) (FRESH-LINE STREAM)
  1546.       (NIL 1.) #\Page (NIL 1.) #\~ SETQ *ARGS* DO-FORMAT-INDIRECTION STREAM
  1547.       FORMATTER-STOP-LINEAR *FORMAT-CASE* FORMAT-CASE-CONVERSION-END LET
  1548.       ((ORIG-STREAM STREAM)
  1549.         (STREAM (MAKE-STRING-OUTPUT-STREAM (LINE-POSITION STREAM)))
  1550.       )
  1551.       *FORMAT-UWPS* FORMATTER-MAIN NSTRING-UPCASE NSTRING-CAPITALIZE
  1552.       NSTRING-CAPITALIZE1 NSTRING-DOWNCASE ((GET-OUTPUT-STREAM-STRING STREAM))
  1553.       (ORIG-STREAM) UNWIND-PROTECT PROGN FORMAT-CONDITIONAL-ERROR NOT
  1554.       FORMAT-CONDITIONAL-END CAR CDR 8.
  1555.       "The ~~; directive is not allowed at this point."
  1556.       "Hier ist keine ~~;-Direktive möglich."
  1557.       "La directive ~~; n'est pas permise ici." LANGUAGE FORMAT-ERROR CASE
  1558.       #Y(FORMATTER-MAIN-1-COMPUTE-INNERMOST
  1559.          #37Y(00 00 00 00 00 01 07 00 03 1B 05 E1 2E 0A 19 01 2D 01 DA 6A 03 DC
  1560.               DD DE 6A 03 DF 6E 08 7A 05 7A 03 60 01 19 01
  1561.              )
  1562.          NIL FORMATTER-STOP-LINEAR SETQ *ARGS* DO-FORMAT-INDIRECTION-2 STREAM
  1563.          NODE 0. FORMATTER-WHOLE-ARGS FORMAT-ITERATION-END FORMATTER-MAIN
  1564.         )
  1565.       #Y(FORMATTER-MAIN-1-COMPUTE-INNER
  1566.          #81Y(00 00 00 00 00 01 07 03 01 1B 0A 00 10 02 07 00 01 33 11 19 01 0E
  1567.               01 10 02 DB 2E 04 10 05 DE 31 90 10 01 02 10 07 CB 10 09 CB 10 0A
  1568.               00 10 0B 07 00 01 73 2E 0C 12 05 41 02 E5 E6 E7 AE 9F 7B 02 7A 02
  1569.               2D 10 14 7A 03 60 01 16 01 F6 2E 11 11 1A 41
  1570.              )
  1571.          NIL *ARGS* *ITERARGS* "TERMINATE-" FORMATTER-BLOCK *FORMAT-TERMINATE*
  1572.          #1="ARGS" *FORMATTER-LINEAR-ARGS* 0. *FORMATTER-LINEAR-ARGCOUNT*
  1573.          *FORMATTER-LINEAR-POSITION* *FORMATTER-WHOLE-ARGS*
  1574.          FORMATTER-BIND-ARGS-1 APPLY FUNCTION LAMBDA FORMATTER-NEXT-ARG
  1575.          FORMATTER-BIND-TERMINATOR-1
  1576.         )
  1577.       #Y(FORMATTER-MAIN-1-COMPUTE-MIDDLE
  1578.          #132Y(00 00 00 00 00 01 68 02 01 23 01 3D 68 02 01 24 02 05 07 02 02
  1579.                1B 02 2D 03 68 02 01 23 02 33 DF 62 E0 E1 07 02 01 1B 3D 00 14
  1580.                07 02 02 1C 39 00 14 07 00 01 73 07 02 02 1B 3C 00 14 E6 32 05
  1581.                23 7B 02 60 03 14 60 01 19 01 00 19 01 07 00 01 33 19 01 07 02
  1582.                02 1B 75 DC DD 6A 06 7A 02 07 00 01 33 61 02 1A 5F CD 1A 41 E3
  1583.                DD 6A 06 7A 02 CF 7B 02 60 01 1A FF BA E3 DD 6A 06 7A 02 D0 7B
  1584.                02 60 01 1A FF B7
  1585.               )
  1586.          NIL 0. 1. FORMATTER-STOP-LINEAR UNLESS ENDP *ARGS* BLOCK TAGBODY L
  1587.          ((WHEN (>= I N) (RETURN)) (INCF I)) WHEN ((RETURN)) ((RETURN))
  1588.          ((GO L))
  1589.         )
  1590.       #Y(FORMATTER-MAIN-1-COMPUTE-OUTER
  1591.          #80Y(00 00 00 00 00 01 D9 6E 02 DB 2E 02 10 04 9E 10 05 07 05 02 1B 34
  1592.               DE 31 90 10 07 02 10 08 CC 10 0A CC 10 0B 00 10 0C 07 00 01 73 2E
  1593.               0D 12 05 41 02 E6 E7 E8 AE 9F 7B 02 7A 02 2D 11 14 7A 03 60 01 16
  1594.               02 14 2E 12 12 02 19 02 07 00 01 33 1A 73
  1595.              )
  1596.          NIL "TERMINATE-" FORMATTER-BLOCK "TERMINATE-ALL-"
  1597.          *FORMAT-TERMINATE-ALL* *FORMAT-TERMINATE* #1# *ARGS*
  1598.          *FORMATTER-LINEAR-ARGS* 0. *FORMATTER-LINEAR-ARGCOUNT*
  1599.          *FORMATTER-LINEAR-POSITION* *FORMATTER-WHOLE-ARGS*
  1600.          FORMATTER-BIND-ARGS-1 APPLY FUNCTION LAMBDA FORMATTER-NEXT-ARG
  1601.          FORMATTER-BIND-TERMINATORS-1
  1602.         )
  1603.       #Y(FORMATTER-MAIN-1-COMPUTE-OUTERMOST
  1604.          #39Y(00 00 00 00 00 01 07 04 03 1B 06 07 00 01 33 19 01 D9 DA DB 2D 04
  1605.               14 7A 02 7A 02 7A 01 07 00 01 33 7B 02 60 01 19 01
  1606.              )
  1607.          NIL LET NODE DO-FORMAT-INDIRECTION-1 FORMATTER-NEXT-ARG
  1608.         )
  1609.       (0. 1.) N ((I 0.)) ORIG-STREAM POS FORMAT-JUSTIFICATION-END
  1610.       ((GET-OUTPUT-STREAM-STRING STREAM)) LET*
  1611.       ((POS (LINE-POSITION STREAM)) (ORIG-STREAM STREAM)
  1612.         (STREAM (MAKE-STRING-OUTPUT-STREAM POS))
  1613.       )
  1614.       JARGS LIST ((PIECES 'NIL))
  1615.       ((PUSH (GET-OUTPUT-STREAM-STRING STREAM) PIECES))
  1616.       ((APPLY #'DO-FORMAT-JUSTIFICATION
  1617.           (NCONC JARGS (LIST (LIST-NREVERSE PIECES)))
  1618.       ))
  1619.       DO-FORMAT-JUSTIFICATION ((GET-OUTPUT-STREAM-STRING STREAM)) *ITERARGS*
  1620.       #Y(FORMATTER-MAIN-1-1
  1621.          #16Y(00 01 00 00 00 02 AB 30 61 1E 03 9C 19 02 19 02)
  1622.         )
  1623.       UP-AND-OUT-P ENDP LENGTH (NIL) (((0.) T) (T NIL)) RETURN-FROM
  1624.       FORMATTER-TERMINATE-ALL FORMATTER-TERMINATE FORMATTER-HAIRY
  1625.   )  )
  1626. #Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  1627.    FORMATTER-MAIN REMOVE-OLD-DEFINITIONS
  1628.    #Y(FORMATTER-MAIN
  1629.       #93Y(00 00 00 01 00 07 3C 01 AB 6E 00 62 AB 9B 1F 80 45 93 00 AA AA 8E 09
  1630.            2F AA 71 48 AA 23 01 10 AA 23 02 14 DF AC CB 61 02 14 60 01 16 01 1A
  1631.            1B 00 16 01 1A 16 C7 1A 71 AB D9 7F 34 01 14 23 03 74 DD AC C9 61 02
  1632.            1A 61 AA 60 01 F6 AD 7F A5 02 16 01 82 00 1A FF B7 16 01 AA 30 A7 19
  1633.            04
  1634.           )
  1635.       FORMATTER-MAIN-1 0. 1. #\Newline (TERPRI STREAM) WRITE-CHAR (STREAM)
  1636.       WRITE-STRING (STREAM)
  1637.   )  )
  1638. #Y(#:TOP-LEVEL-FORM-104
  1639.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) FORMATTER
  1640.    REMOVE-OLD-DEFINITIONS MACRO
  1641.    #Y(FORMATTER
  1642.       #165Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 80 74 9D 5B 77 AA 8E 09 80
  1643.             71 CD 4F 80 7C AD 7A 01 AE E3 AC 62 2C 04 0C 93 00 9C 5B 10 0D 00
  1644.             10 0E 00 10 0F 00 10 10 A7 10 11 EA 31 90 10 13 02 10 14 CE 10 15
  1645.             CE 10 16 00 10 17 F0 6E 19 F2 2E 19 10 1B 9E 10 1C 2D 1D 14 2E 1E
  1646.             12 02 F6 2D 1F 6A 13 7A 01 72 02 23 2E 20 12 05 41 02 64 21 64 22
  1647.             64 23 9F 79 64 24 9F 7B 03 60 02 16 02 12 05 16 02 50 3E 19 04 AC
  1648.             2E 01 19 03 DA DB AC DC DD DE DF E0 6D 03 09 B0 32 05 1F 1D 0A E2
  1649.             AB 64 25 71 2D 60 02 19 04 19 04
  1650.            )
  1651.       2. MACRO-CALL-ERROR TYPE-ERROR :DATUM :EXPECTED-TYPE STRING
  1652.       "The control-string must be a string, not ~S"
  1653.       "Kontrollstring muß ein String sein, nicht ~S"
  1654.       "La chaîne de contrôle doit être une chaîne et non ~S" LANGUAGE
  1655.       FORMATTER-HAIRY 0. FORMAT-PARSE-CS *FORMAT-CSDL* *FORMAT-CASE*
  1656.       *FORMAT-UWPS* *ITERARGS* *FORMAT-CS* "ARGS" *ARGS*
  1657.       *FORMATTER-LINEAR-ARGS* *FORMATTER-LINEAR-ARGCOUNT*
  1658.       *FORMATTER-LINEAR-POSITION* *FORMATTER-WHOLE-ARGS* "TERMINATE-"
  1659.       FORMATTER-BLOCK "TERMINATE-ALL-" *FORMAT-TERMINATE-ALL*
  1660.       *FORMAT-TERMINATE* FORMATTER-MAIN FORMATTER-BIND-TERMINATORS-1
  1661.       FORMATTER-STOP-LINEAR FORMATTER-BIND-ARGS-1 FUNCTION LAMBDA STREAM
  1662.       (DECLARE (IGNORABLE STREAM)) SIMPLE-STRING
  1663.   )  )
  1664.