(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYSTEM" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2
   #548Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 63 E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 31 59 E5 2F 05 E5 E6 E7 32 86 E5
         E8 32 80 E5 E9 DA 32 86 EA 31 59 EB 31 59 EC 2F 05 EC E6 ED 32 86 EC
         EE 32 80 EC E9 DA 32 86 EF 31 59 F0 31 59 F1 2F 05 F1 E6 F2 32 86 F1
         F3 32 80 F1 E9 DA 32 86 F4 31 59 F5 31 59 F6 2F 05 F6 E6 F7 32 86 F6
         65 1E 32 80 F6 E9 DA 32 86 65 1F 31 59 65 20 31 59 65 21 2F 05 65 21
         E6 65 22 32 86 65 21 65 23 32 80 65 21 E9 DA 32 86 65 24 31 59 65 25
         31 59 65 26 2F 05 65 26 E6 65 27 32 86 65 26 65 28 32 80 65 26 E9 DA
         32 86 65 29 31 59 65 2A 31 59 65 2B 2F 05 65 2B E6 65 2C 32 86 65 2B
         65 2D 32 80 65 2B E9 DA 32 86 65 2E 31 59 65 2F 31 59 65 30 2F 05 65
         30 E6 65 31 32 86 65 30 65 32 32 80 65 30 E9 DA 32 86 E5 65 33 32 87
         E5 65 34 65 35 65 36 03 37 7C 02 32 86 E5 65 38 63 2D 03 39 E5 65 33
         DA 32 86 EC 65 33 32 87 EC 65 34 65 35 65 36 03 3A 7C 02 32 86 EC 65
         38 63 2D 03 39 EC 65 33 DA 32 86 F1 65 33 32 87 F1 65 34 65 35 65 36
         03 3B 7C 02 32 86 F1 65 38 63 2D 03 39 F1 65 33 DA 32 86 F6 65 33 32
         87 F6 65 34 65 35 65 36 03 3C 7C 02 32 86 F6 65 38 63 2D 03 39 F6 65
         33 DA 32 86 65 21 65 33 32 87 65 21 65 34 65 35 65 36 03 3D 7C 02 32
         86 65 21 65 38 63 2D 03 39 65 21 65 33 DA 32 86 65 26 65 33 32 87 65
         26 65 34 65 35 65 36 03 3E 7C 02 32 86 65 26 65 38 63 2D 03 39 65 26
         65 33 DA 32 86 65 2B 65 33 32 87 65 2B 65 34 65 35 65 36 03 3F 7C 02
         32 86 65 2B 65 38 63 2D 03 39 65 2B 65 33 DA 32 86 65 30 65 33 32 87
         65 30 65 34 65 35 65 36 03 40 7C 02 32 86 65 30 65 38 63 2D 03 39 65
         30 65 33 DA 32 86 DA 65 41 63 2D 03 39 DA 2F 42 C5 19 01)
   SYSTEM::CONTROL-STRING-DIRECTIVE COMMON-LISP::STRUCTURE-OBJECT
   SYSTEM::DEFSTRUCT-DESCRIPTION 0. SYSTEM::MAKE-CSD
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-CSD
      #67Y(00 00 00 00 00 00 00 00 00 01 69 00 01 DB 72 2E DC AD DD DE 32 2D DC
           AD DF DE 32 2D DC AD E0 63 32 2D DC AD E1 63 32 2D DC AD E2 63 32 2D
           DC AD E3 63 32 2D DC AD E4 63 32 2D DC AD E5 63 32 2D 15 19 01)
      COMMON-LISP::NIL 9. SYSTEM::CONTROL-STRING-DIRECTIVE 1. 0. 2. 3. 4. 5. 6.
      7. 8.)
   (#(COMMON-LISP::TYPE (:TYPE) 1. (COMMON-LISP::NIL . 0.) 0.
      COMMON-LISP::FIXNUM COMMON-LISP::NIL)
    #(SYSTEM::CS-INDEX (:CS-INDEX) 2. (COMMON-LISP::NIL . 0.) 0.
      COMMON-LISP::FIXNUM COMMON-LISP::NIL)
    #(SYSTEM::PARM-LIST (:PARM-LIST) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::LIST COMMON-LISP::NIL)
    #(SYSTEM::V-OR-#-P (:V-OR-#-P) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::SYMBOL COMMON-LISP::NIL)
    #(SYSTEM::COLON-P (:COLON-P) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::SYMBOL COMMON-LISP::NIL)
    #(SYSTEM::ATSIGN-P (:ATSIGN-P) 6. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::SYMBOL COMMON-LISP::NIL)
    #(SYSTEM::DATA (:DATA) 7. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::T COMMON-LISP::NIL)
    #(SYSTEM::CLAUSE-CHAIN (:CLAUSE-CHAIN) 8. (COMMON-LISP::NIL)
      COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS
   (COMMON-LISP::FUNCTION SYSTEM::CSD-TYPE (SYSTEM::CONTROL-STRING-DIRECTIVE)
    COMMON-LISP::FIXNUM)
   (COMMON-LISP::INLINE SYSTEM::CSD-TYPE) SYSTEM::CSD-TYPE
   SYSTEM::INLINE-EXPANSION
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-TYPE))
    (COMMON-LISP::BLOCK SYSTEM::CSD-TYPE
     (COMMON-LISP::THE COMMON-LISP::FIXNUM
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       1.))))
   #Y(SYSTEM::CSD-TYPE #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::CSD-CS-INDEX
    (SYSTEM::CONTROL-STRING-DIRECTIVE) COMMON-LISP::FIXNUM)
   (COMMON-LISP::INLINE SYSTEM::CSD-CS-INDEX) SYSTEM::CSD-CS-INDEX
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-CS-INDEX))
    (COMMON-LISP::BLOCK SYSTEM::CSD-CS-INDEX
     (COMMON-LISP::THE COMMON-LISP::FIXNUM
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       2.))))
   #Y(SYSTEM::CSD-CS-INDEX
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 2.)
   (COMMON-LISP::FUNCTION SYSTEM::CSD-PARM-LIST
    (SYSTEM::CONTROL-STRING-DIRECTIVE) COMMON-LISP::LIST)
   (COMMON-LISP::INLINE SYSTEM::CSD-PARM-LIST) SYSTEM::CSD-PARM-LIST
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-PARM-LIST))
    (COMMON-LISP::BLOCK SYSTEM::CSD-PARM-LIST
     (COMMON-LISP::THE COMMON-LISP::LIST
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       3.))))
   #Y(SYSTEM::CSD-PARM-LIST
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 3.)
   (COMMON-LISP::FUNCTION SYSTEM::CSD-V-OR-#-P
    (SYSTEM::CONTROL-STRING-DIRECTIVE) COMMON-LISP::SYMBOL)
   (COMMON-LISP::INLINE SYSTEM::CSD-V-OR-#-P) SYSTEM::CSD-V-OR-#-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-V-OR-#-P))
    (COMMON-LISP::BLOCK SYSTEM::CSD-V-OR-#-P
     (COMMON-LISP::THE COMMON-LISP::SYMBOL
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       4.))))
   #Y(SYSTEM::CSD-V-OR-#-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 4.)
   (COMMON-LISP::FUNCTION SYSTEM::CSD-COLON-P
    (SYSTEM::CONTROL-STRING-DIRECTIVE) COMMON-LISP::SYMBOL)
   (COMMON-LISP::INLINE SYSTEM::CSD-COLON-P) SYSTEM::CSD-COLON-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-COLON-P))
    (COMMON-LISP::BLOCK SYSTEM::CSD-COLON-P
     (COMMON-LISP::THE COMMON-LISP::SYMBOL
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       5.))))
   #Y(SYSTEM::CSD-COLON-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 5.)
   (COMMON-LISP::FUNCTION SYSTEM::CSD-ATSIGN-P
    (SYSTEM::CONTROL-STRING-DIRECTIVE) COMMON-LISP::SYMBOL)
   (COMMON-LISP::INLINE SYSTEM::CSD-ATSIGN-P) SYSTEM::CSD-ATSIGN-P
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-ATSIGN-P))
    (COMMON-LISP::BLOCK SYSTEM::CSD-ATSIGN-P
     (COMMON-LISP::THE COMMON-LISP::SYMBOL
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       6.))))
   #Y(SYSTEM::CSD-ATSIGN-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 6.)
   (COMMON-LISP::FUNCTION SYSTEM::CSD-DATA (SYSTEM::CONTROL-STRING-DIRECTIVE)
    COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::CSD-DATA) SYSTEM::CSD-DATA
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-DATA))
    (COMMON-LISP::BLOCK SYSTEM::CSD-DATA
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       7.))))
   #Y(SYSTEM::CSD-DATA #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 7.)
   (COMMON-LISP::FUNCTION SYSTEM::CSD-CLAUSE-CHAIN
    (SYSTEM::CONTROL-STRING-DIRECTIVE) COMMON-LISP::T)
   (COMMON-LISP::INLINE SYSTEM::CSD-CLAUSE-CHAIN) SYSTEM::CSD-CLAUSE-CHAIN
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::CSD-CLAUSE-CHAIN))
    (COMMON-LISP::BLOCK SYSTEM::CSD-CLAUSE-CHAIN
     (COMMON-LISP::THE COMMON-LISP::T
      (SYSTEM::%STRUCTURE-REF 'SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::OBJECT
       8.))))
   #Y(SYSTEM::CSD-CLAUSE-CHAIN
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      SYSTEM::CONTROL-STRING-DIRECTIVE 8.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-CSD-TYPE
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 1.
      COMMON-LISP::THE COMMON-LISP::FIXNUM)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-CSD-CS-INDEX
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 2.
      COMMON-LISP::THE COMMON-LISP::FIXNUM)
   #Y(SYSTEM::SETF-CSD-PARM-LIST
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 3.
      COMMON-LISP::THE COMMON-LISP::LIST)
   #Y(SYSTEM::SETF-CSD-V-OR-#-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 4.
      COMMON-LISP::THE COMMON-LISP::SYMBOL)
   #Y(SYSTEM::SETF-CSD-COLON-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 5.
      COMMON-LISP::THE COMMON-LISP::SYMBOL)
   #Y(SYSTEM::SETF-CSD-ATSIGN-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 6.
      COMMON-LISP::THE COMMON-LISP::SYMBOL)
   #Y(SYSTEM::SETF-CSD-DATA
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 7.)
   #Y(SYSTEM::SETF-CSD-CLAUSE-CHAIN
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'SYSTEM::CONTROL-STRING-DIRECTIVE 8.)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 19 01)
   SYSTEM::CONTROL-STRING-DIRECTIVE SYSTEM::DEFSTRUCT-DESCRIPTION)
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PARSE-CS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PARSE-CS
      #759Y(00 00 00 00 04 00 00 00 00 05 AF 01 03 94 06 1B 82 C9 B5 81 45 04
            14 DC AF DF AF 32 2D 16 01 93 06 82 CE 1B 82 C1 B5 B1 80 31 03 14
            24 00 27 B3 2E 01 FA 14 7B 01 80 A9 07 DC AE DD DD 32 2D DC AE DE
            B3 32 2D DA B6 38 06 A9 FC 81 5D 04 1D 42 DC AE DF B3 32 2D B3 2E
            01 FA 14 7B 01 80 A9 07 DC AE DD DE 32 2D DC AE DE B3 32 2D DC AE
            E0 63 32 2D DC AE E1 63 32 2D DC AE E2 63 32 2D DC AE E3 63 32 2D
            DC AE DF 63 32 2D DC AE E4 63 32 2D 1B 37 B5 B1 D0 1B 80 D3 A0 26
            0D 80 E1 D4 1B 05 AF 24 0E 79 D5 14 AE 6F 11 DC B0 E0 B0 A1 7A 32
            2D 16 02 DC AE E1 64 32 2D 1B 80 76 AD 6F 11 DC AF E0 63 A1 7A 32
            2D 16 01 85 04 14 B6 72 45 90 01 33 FF BE B5 B1 80 31 03 14 38 01
            8D 25 FF B8 B5 B1 38 02 64 31 7E 42 02 6A 05 6A 02 1C 09 B5 B1 EC
            6F 13 B2 2D 04 0C AD 6F 11 DC AF E0 B2 A1 7A 32 2D 16 01 1B 2D B5
            B1 EE 2F 13 1B 80 5C B5 B1 03 15 1B 80 55 85 04 14 B6 72 45 90 01
            33 67 B5 B1 80 31 03 AD 6F 11 DC AF E0 B3 A1 7A 32 2D 16 01 85 04
            B0 B6 72 45 90 01 33 53 B5 B1 80 31 03 26 16 3A DC AE CD 1B 10 B5
            B1 80 31 03 14 24 18 72 AF 25 19 28 DC AE CE 14 64 32 2D 85 04 14
            B6 72 45 91 01 33 62 B5 B1 03 17 14 2D 03 0C 93 06 81 7E 1B 81 71
            DC AF DF AF 32 2D 1B 21 AD 6F 11 72 47 DC AF E0 AF 32 2D 16 01 AF
            71 2A F4 38 03 31 B9 79 92 00 5F B6 B2 F5 6F 13 2D 03 0C 16 01 85
            04 A0 26 1C 81 33 DE AE 33 02 36 1B 80 54 F2 BA 96 03 71 30 90 01
            07 6E AD 32 95 1B 80 44 BA B6 65 1F 6F 13 AF 2D 04 0C 16 01 1B 80
            42 B9 B0 AF 72 43 38 02 71 45 AC 8D CA 64 16 01 1B 31 B0 F7 B7 38
            06 A5 FC 8E 5D 09 B6 B2 65 1E 6F 13 2D 03 0C 14 F2 B8 38 06 A6 FC
            A5 FB 72 5D B8 92 01 FF AD A0 14 AF 72 43 38 02 71 45 92 01 40 0E
            20 14 AD AD 71 D2 7B 01 B3 6F 11 DC B5 E0 B0 A1 7A 32 2D 16 02 AF
            81 95 09 16 05 1B 80 AD B5 B1 B5 A3 26 21 10 03 22 1B 0D 03 23 1B
            09 03 24 1B 05 03 25 1B 01 00 14 28 FD C0 42 02 6A 08 6A 04 1B 80
            88 92 06 0A B5 B1 65 26 6F 13 B2 2D 04 0C AF B3 8C FF 0B B5 B1 65
            27 6F 13 B2 B6 2D 05 0C DC AD E4 B6 32 2D 1B 80 78 B2 24 23 0D B2
            24 25 09 B5 B1 65 28 6F 13 2D 03 0C DC AD E4 B6 32 2D 9E F8 1B 80
            46 AD 89 2B 80 41 B5 B1 65 2C 6F 13 2D 03 0C 1B 36 B5 81 45 04 1B
            30 DC AE DD 65 29 32 2D AD 88 2A 5F AD 89 2B 16 DC AE DD DD 32 2D
            97 04 DC AF DE AF 32 2D 16 01 DC AE DF B3 32 2D 65 2D B6 38 04 A7
            FA 8F 5F 4B FC B0 B6 72 45 91 01 33 FD 42 93 06 0A B5 B1 65 2E 6F
            13 B5 2D 04 0C B0 B4 40 02 19 0A)
      #\~ SYSTEM::MAKE-CSD SYSTEM::CONTROL-STRING-DIRECTIVE 1. 2. 7. 3. 4. 5.
      6. 8. "The control string terminates within a directive."
      SYSTEM::FORMAT-ERROR
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (#\@ . 187.) (#\: . 169.)
         (#\, . 33.) (#\# . 5.) (#\v . 5.) (#\V . 5.) (#\' . 123.) (#\- . 69.)
         (#\+ . 69.))
      #\# :ARG-COUNT :NEXT-ARG SYSTEM::CSD-PARM-LIST
      "~A must introduce a number." SYSTEM::TEXT
      "The control string terminates in the middle of a parameter."
      "The control string terminates within a directive."
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (#\@ . 19.) (#\: . 1.)
         (#\, . -122.))
      "The control string terminates within a directive." #\: #\@
      ((#\A . SYSTEM::FORMAT-ASCII) (#\S . SYSTEM::FORMAT-S-EXPRESSION)
       (#\W . SYSTEM::FORMAT-WRITE) (#\D . SYSTEM::FORMAT-DECIMAL)
       (#\B . SYSTEM::FORMAT-BINARY) (#\O . SYSTEM::FORMAT-OCTAL)
       (#\X . SYSTEM::FORMAT-HEXADECIMAL) (#\R . SYSTEM::FORMAT-RADIX)
       (#\P . SYSTEM::FORMAT-PLURAL) (#\C . SYSTEM::FORMAT-CHARACTER)
       (#\F . SYSTEM::FORMAT-FIXED-FLOAT)
       (#\E . SYSTEM::FORMAT-EXPONENTIAL-FLOAT)
       (#\G . SYSTEM::FORMAT-GENERAL-FLOAT)
       (#\$ . SYSTEM::FORMAT-DOLLARS-FLOAT) (#\% . SYSTEM::FORMAT-TERPRI)
       (#\_ . SYSTEM::FORMAT-PPRINT-NEWLINE)
       (#\I . SYSTEM::FORMAT-PPRINT-INDENT) (#\& . SYSTEM::FORMAT-FRESH-LINE)
       (#\Newline . #\Newline) (#\| . SYSTEM::FORMAT-PAGE)
       (#\~ . SYSTEM::FORMAT-TILDE) (#\T . SYSTEM::FORMAT-TABULATE)
       (#\* . SYSTEM::FORMAT-GOTO) (#\? . SYSTEM::FORMAT-INDIRECTION)
       (#\/ . SYSTEM::FORMAT-CALL-USER-FUNCTION)
       (#\( . SYSTEM::FORMAT-CASE-CONVERSION)
       (#\) . SYSTEM::FORMAT-CASE-CONVERSION-END)
       (#\[ . SYSTEM::FORMAT-CONDITIONAL)
       (#\] . SYSTEM::FORMAT-CONDITIONAL-END) (#\{ . SYSTEM::FORMAT-ITERATION)
       (#\} . SYSTEM::FORMAT-ITERATION-END)
       (#\< . SYSTEM::FORMAT-JUSTIFICATION)
       (#\> . SYSTEM::FORMAT-JUSTIFICATION-END)
       (#\^ . SYSTEM::FORMAT-UP-AND-OUT) (#\; . SYSTEM::FORMAT-SEPARATOR)
       (#\! . SYSTEM::FORMAT-CALL))
      "Non-existent directive"
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (#\Newline . 261.)
         (#\; . 211.) (#\> . 173.) (#\} . 173.) (#\] . 173.) (#\) . 173.)
         (#\< . 136.) (#\{ . 136.) (#\[ . 136.) (#\( . 136.) (#\/ . 58.))
      #\/ "Closing '/' is missing" "There is no package with name ~S"
      SYSTEM::*COMMON-LISP-USER-PACKAGE*
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (#\< . 13.) (#\{ . 9.)
         (#\[ . 5.) (#\( . 1.))
      #\) #\] #\} #\>
      "The closing directive '~A' does not have a corresponding opening one."
      "The closing directive '~A' does not match the corresponding opening one. It should read '~A'."
      "The ~~; directive is not allowed at this point." 0. SYSTEM::CSD-COLON-P
      SYSTEM::CSD-ATSIGN-P
      "The ~~newline directive cannot take both modifiers."
      #.#'SYSTEM::WHITESPACEP
      "An opening directive is never closed; expecting '~A'."))
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-CS*) SYSTEM::*FORMAT-CS*)
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-CSDL*) SYSTEM::*FORMAT-CSDL*)
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-ARG-LIST*) SYSTEM::*FORMAT-ARG-LIST*)
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-NEXT-ARG*) SYSTEM::*FORMAT-NEXT-ARG*)
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-NEXT-ARGLIST*)
   SYSTEM::*FORMAT-NEXT-ARGLIST*)
#Y(#:TOP-LEVEL-FORM-10
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-UP-AND-OUT*)
   SYSTEM::*FORMAT-UP-AND-OUT*)
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-ERROR
      #118Y(00 00 00 00 03 00 00 00 01 19 93 04 80 61 92 03 06 0E 00 78 2F 01
            FB AE DC 6F 03 82 02 13 02 DE DE 1B 04 AC 81 95 01 DF B3 38 06 A6
            FC 8E 5D 03 B2 32 45 F8 B0 E0 82 02 13 04 AF B3 AF AF 71 4C 7B 01
            82 02 24 03 AD B2 AE 91 02 32 17 B0 E1 E2 82 03 13 04 AF E3 B3 B0
            73 01 37 73 02 36 7B 01 82 02 24 03 AC B3 72 45 91 01 2E FF B6 16
            02 E4 E5 B0 A1 9B 02 05)
      SYSTEM::*FORMAT-CSDL* SYSTEM::CSD-CS-INDEX
      "~%Current point in control string:" SYSTEM::TEXT 0. #\Newline "~%  ~A"
      "~%~VT" "|" 2. #.#'SYSTEM::ERROR-OF-TYPE COMMON-LISP::ERROR))
#Y(#:TOP-LEVEL-FORM-12
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::FORMAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::FORMAT
      #105Y(00 00 00 00 02 00 00 00 01 18 AE 8E 05 04 AE 8F 1B 14 93 03 17 AF
            02 22 22 AF 8F 14 2A A0 14 AF AF 2D 03 01 1B 34 AE 2F 00 92 03 69
            38 02 72 73 AC B0 B0 2D 03 01 AC 32 74 19 05 0E 02 1B 5F DD DE 6F
            05 B1 33 01 1F AF 8F 05 12 AF 8D 16 70 AF 72 75 AC B0 B0 2D 03 01
            16 01 00 19 04 E0 E1 B1 E2 E3 E4 6F 05 B5 33 05 1F)
      SYSTEM::FORMAT-CS-ERROR SYSTEM::FORMAT-APPLY
      COMMON-LISP::*STANDARD-OUTPUT* COMMON-LISP::ERROR
      "The destination string ~S should have a fill pointer." SYSTEM::TEXT
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::OR COMMON-LISP::BOOLEAN COMMON-LISP::STREAM
       COMMON-LISP::STRING)
      "The destination argument ~S is invalid (not NIL or T or a stream or a string)."))
#Y(#:TOP-LEVEL-FORM-13
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-APPLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-APPLY
      #78Y(00 00 00 00 03 00 01 00 00 0A 3B 01 02 9F F9 AF 8E 05 09 AF 8E 1B 2C
           AF 2F 09 19 05 AF 7B 01 B0 DA AE 63 2D 04 01 9D 5B 10 02 A0 5C 10 03
           A5 10 04 A9 10 05 00 10 06 00 10 07 C3 2F 08 0E 05 12 06 19 06 00 10
           02 B2 B4 A4 37 01 11 19 05)
      0. SYSTEM::FORMAT-PARSE-CS SYSTEM::*FORMAT-CS* SYSTEM::*FORMAT-CSDL*
      SYSTEM::*FORMAT-ARG-LIST* SYSTEM::*FORMAT-NEXT-ARG*
      SYSTEM::*FORMAT-NEXT-ARGLIST* SYSTEM::*FORMAT-UP-AND-OUT*
      SYSTEM::FORMAT-INTERPRET SYSTEM::FORMAT-CS-ERROR))
#Y(#:TOP-LEVEL-FORM-14
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CS-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CS-ERROR
      #23Y(00 00 00 00 01 00 00 00 00 02 DA DB AF DC DD DE 6F 05 E0 B4 33 06
           1F)
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::OR COMMON-LISP::STRING COMMON-LISP::FUNCTION)
      "~S: The control-string must be a string, not ~S" SYSTEM::TEXT
      COMMON-LISP::FORMAT))
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NEXT-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NEXT-ARG
      #36Y(00 00 00 00 00 00 00 00 00 01 0E 00 20 0B 0E 00 78 0E 00 5C 0F 00 15
           19 01 6B 01 63 DC 6F 03 2D 03 04 19 01)
      SYSTEM::*FORMAT-NEXT-ARG* SYSTEM::*FORMAT-CS*
      "There are not enough arguments left for this directive." SYSTEM::TEXT
      SYSTEM::FORMAT-ERROR))
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-INTERPRET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-INTERPRET
      #99Y(00 00 00 00 01 00 01 00 00 08 3B 01 08 7D 01 0E 00 1D 06 1B 09 0E 00
           1C 05 6B 01 8D 91 03 00 19 03 0E 01 78 AC 2F 02 26 03 2A 6B 04 B0 AE
           6F 05 AF 6F 06 31 88 1B 1D AC 6F 06 AC A1 22 04 AC 25 07 03 00 19 05
           AC B1 AF 6F 08 B0 6F 09 B1 2F 0A 37 03 16 01 16 01 0E 01 5C 0F 01 0E
           00 1D FF B9 1B FF BB)
      SYSTEM::*FORMAT-UP-AND-OUT* SYSTEM::*FORMAT-CSDL* SYSTEM::CSD-TYPE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (2. . 14.) (1. . 1.)
         (0. . 43.))
      SYSTEM::*FORMAT-CS* SYSTEM::CSD-CS-INDEX SYSTEM::CSD-DATA
      SYSTEM::FORMAT-SEPARATOR SYSTEM::CSD-COLON-P SYSTEM::CSD-ATSIGN-P
      SYSTEM::FORMAT-RESOLVE-PARMS))
#Y(#:TOP-LEVEL-FORM-17
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-RESOLVE-PARMS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-RESOLVE-PARMS
      #62Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 AE 88 01 03 15 19 02 63 AD 1B
           1C 2E 03 1B 11 6B 05 31 92 1B 0B 94 00 AC 24 02 70 AC 24 04 70 9D 14
           84 02 16 01 83 00 9D 21 6B 16 01 AC 31 A2 19 04)
      SYSTEM::CSD-PARM-LIST SYSTEM::CSD-V-OR-#-P :NEXT-ARG SYSTEM::NEXT-ARG
      :ARG-COUNT SYSTEM::*FORMAT-NEXT-ARG*))
#Y(#:TOP-LEVEL-FORM-18
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DEFFORMAT-SIMPLE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEFFORMAT-SIMPLE
      #214Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE 72 45 DA 90 01 30 36 9F 5C
            78 A0 5C 5C 5B 78 A1 5C 5C 5B 5C 78 A2 5C 5C 5B 5C 5C 78 A3 5C 5C
            5B 5C 5C 79 A4 5C 5C 5C 5B 78 A5 5C 5C 5C 79 AC 63 B6 31 5E 42 02
            DC B5 70 03 63 B2 1B 16 AE 2F 01 19 03 9D 5B 1B 06 94 00 9D 21 77
            9D 14 84 02 16 01 83 00 9D 21 70 16 01 AC 80 A2 00 DE DF B8 B8 B8
            B8 E0 A4 7C 04 B1 BA BA BA B4 E1 33 02 23 7C 04 7B 04 DF B0 B9 B9
            B9 B3 B9 7B 01 33 02 23 7C 03 93 07 05 E2 A5 7A 61 01 14 63 B9 1B
            28 E3 E4 94 02 7B 02 E5 94 03 A1 5C 78 7B 03 7B 03 61 01 1B 0B 94
            00 9D 20 05 9D 5C 5B 1C 62 00 14 AF 80 A0 02 16 01 83 00 9D 21 69
            16 01 AC 80 A2 00 B6 33 03 23 7C 03 61 03 19 0E)
      4. SYSTEM::MACRO-CALL-ERROR "DO-" SYSTEM::CONCAT-PNAMES
      COMMON-LISP::PROGN COMMON-LISP::DEFUN COMMON-LISP::&OPTIONAL
      ((SYSTEM::NEXT-ARG)) COMMON-LISP::DECLARE COMMON-LISP::IF
      COMMON-LISP::NULL COMMON-LISP::SETQ)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-19
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-GOTO-NEW-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-GOTO-NEW-ARG
      #43Y(00 00 00 00 02 00 00 00 00 03 92 02 0A AD 0E 01 14 31 9A 0F 01 19 03
           6B 00 71 92 6B 01 71 92 AF 73 02 37 DC 73 01 34 0E 00 1B 65)
      SYSTEM::*FORMAT-ARG-LIST* SYSTEM::*FORMAT-NEXT-ARG* 0.))
#Y(#:TOP-LEVEL-FORM-20
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-OLD-ROMAN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-OLD-ROMAN
      #80Y(00 00 00 00 02 00 00 00 00 03 AE 8F 0A 07 DA AF DB 90 02 32 0A 6B 02
           63 DD 6F 04 B1 2D 04 05 E0 E1 B0 1B 25 95 02 95 02 AE 94 04 32 B2 42
           02 E2 1B 07 94 07 B6 31 87 85 00 AC AF 91 01 33 73 16 01 15 16 01 FA
           6A 02 6A 02 AC 8F 90 57 00 19 06)
      1. 4999. SYSTEM::*FORMAT-CS*
      "The ~~:@R directive requires an integer in the range 1 - 4999, not ~S"
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
      (1000. 500. 100. 50. 10. 5. 1.) 0.))
#Y(#:TOP-LEVEL-FORM-21
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-NEW-ROMAN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-NEW-ROMAN
      #122Y(00 00 00 00 02 00 00 00 00 03 AE 8F 0A 07 DA AF DB 90 02 32 0A 6B
            02 63 DD 6F 04 B1 2D 04 05 E0 E1 E2 E3 B2 1B 80 4B 95 04 95 04 95
            04 95 04 B0 94 08 32 B2 42 02 E4 1B 18 94 09 BA 31 87 94 0B BA 31
            87 AD AD 33 01 37 1B 1D 94 0B BA 31 87 85 00 AC AF 91 01 33 73 16
            01 94 09 94 08 73 01 37 AD AD 90 01 33 53 9E 16 03 FC 6A 04 6A 04
            6A 04 6A 04 AC 8F 90 FF B0 00 19 08)
      1. 3999. SYSTEM::*FORMAT-CS*
      "The ~~@R directive requires an integer in the range 1 - 3999, not ~S"
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR (#\M #\D #\C #\L #\X #\V #\I)
      (1000. 500. 100. 50. 10. 5. 1.) (#\C #\C #\X #\X #\I #\I)
      (100. 100. 10. 10. 1. 1. 0.) 0.))
#Y(#:TOP-LEVEL-FORM-22
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::FORMAT-CARDINAL-ONES
   #1=#(COMMON-LISP::NIL "one" "two" "three" "four" "five" "six" "seven"
        "eight" "nine" "ten" "eleven" "twelve" "thirteen" "fourteen" "fifteen"
        "sixteen" "seventeen" "eighteen" "nineteen")
   (COMMON-LISP::DEFCONSTANT SYSTEM::FORMAT-CARDINAL-ONES '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-23
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::FORMAT-CARDINAL-TENS
   #1=#(COMMON-LISP::NIL COMMON-LISP::NIL "twenty" "thirty" "forty" "fifty"
        "sixty" "seventy" "eighty" "ninety")
   (COMMON-LISP::DEFCONSTANT SYSTEM::FORMAT-CARDINAL-TENS '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-24
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-SMALL-CARDINAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-SMALL-CARDINAL
      #107Y(00 00 00 00 02 00 00 00 00 03 AE DA 32 B4 42 02 AD DB 91 01 31 0F
            DC 9F 5F 14 B0 38 02 31 88 DD B0 38 02 31 88 AC DB 33 01 31 1F 3D
            AD DB 91 01 31 06 DE B0 38 02 31 88 AC DF 32 B4 42 02 AD E0 90 01
            30 1F E1 9F 5F 14 B2 38 02 31 88 AC DB 33 01 31 1F 13 E2 B2 31 87
            DC 9E 5F 14 B2 38 02 31 88 19 07 DC A0 1B 73 19 07 19 05)
      100. 0. #.SYSTEM::FORMAT-CARDINAL-ONES " hundred" " and " 10. 2.
      #.SYSTEM::FORMAT-CARDINAL-TENS #\-))
#Y(#:TOP-LEVEL-FORM-25
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CARDINAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CARDINAL
      #58Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 02 00 00 AF 8E 90 1B AF 8F
           92 0D DB 68 01 00 38 02 31 88 AF 82 00 37 03 AC 6D 02 01 DD B1 9F 34
           19 05 DA 68 01 00 38 02 31 88 19 04)
      "zero" "minus "
      #Y(SYSTEM::FORMAT-CARDINAL-BLOCKS1000
         #84Y(00 00 00 00 02 00 00 00 00 03 93 02 05 1B 0C 92 02 09 6B 01 63 DC
              6F 03 2D 03 04 AD DF 32 B4 42 02 AD E0 91 01 31 05 95 04 AE 28 63
              AC E0 33 01 31 1F 1F AD E0 91 01 31 08 E1 69 00 01 38 02 31 88 AC
              69 00 01 30 08 94 04 69 00 01 38 02 31 88 19 05 19 05)
         COMMON-LISP::NIL SYSTEM::*FORMAT-CS*
         "The argument for the ~~R directive is too large." SYSTEM::TEXT
         SYSTEM::FORMAT-ERROR 1000. 0. ", " SYSTEM::FORMAT-SMALL-CARDINAL)
      ("" " thousand" " million" " billion" " trillion" " quadrillion"
       " quintillion" " sextillion" " septillion" " octillion" " nonillion"
       " decillion" " undecillion" " duodecillion" " tredecillion"
       " quattuordecillion" " quindecillion" " sexdecillion" " septendecillion"
       " octodecillion" " novemdecillion" " vigintillion")))
#Y(#:TOP-LEVEL-FORM-26
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 C5 19 01)
   SYSTEM::FORMAT-ORDINAL-ONES
   #1=#(COMMON-LISP::NIL "first" "second" "third" "fourth" "fifth" "sixth"
        "seventh" "eighth" "ninth" "tenth" "eleventh" "twelfth" "thirteenth"
        "fourteenth" "fifteenth" "sixteenth" "seventeenth" "eighteenth"
        "nineteenth")
   (COMMON-LISP::DEFCONSTANT SYSTEM::FORMAT-ORDINAL-ONES '#1#)
   SYSTEM::CONSTANT-WARNING)
#Y(#:TOP-LEVEL-FORM-27
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-ORDINAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-ORDINAL
      #128Y(00 00 00 00 02 00 00 00 00 03 AE 8E 90 80 59 AE 8F 92 0B DB AE 38
            02 31 88 AE 82 00 37 02 AE DC 32 B2 42 02 AD DD 91 01 31 08 DC AE
            73 02 38 B0 30 04 AC 8E 90 3A AC E0 32 B2 42 02 AF DD 91 01 31 04
            E1 B2 31 87 AD E2 90 01 30 2C AC 8E 90 2C E5 9F 5F 14 B2 38 02 31
            88 E6 B2 31 87 E3 9E 5F 14 B2 38 02 31 88 19 07 DA AE 38 02 31 88
            19 03 DF B0 38 02 31 88 19 05 E3 A0 1B 63 E4 9F 1B 5F)
      "zeroth" "minus " 100. 0. SYSTEM::FORMAT-CARDINAL "th" 10. #\Space 2.
      #.SYSTEM::FORMAT-ORDINAL-ONES
      #(COMMON-LISP::NIL "tenth" "twentieth" "thirtieth" "fortieth" "fiftieth"
        "sixtieth" "seventieth" "eightieth" "ninetieth")
      #.SYSTEM::FORMAT-CARDINAL-TENS #\-))
#Y(#:TOP-LEVEL-FORM-28
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PADDING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PADDING
      #28Y(00 00 00 00 03 00 00 00 00 04 DA 1B 06 AF AF 31 87 85 00 AC B1 91 01
           33 74 00 19 05)
      0.))
#Y(#:TOP-LEVEL-FORM-29
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PADDED-STRING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PADDED-STRING
      #71Y(00 00 00 00 07 00 00 00 00 00 AE 6F 00 B2 73 02 36 AC B5 90 01 30 20
           C6 14 92 05 06 B0 B0 38 02 31 88 B3 AD 73 02 36 B3 B1 2D 03 02 A2 1F
           16 B0 B0 38 02 31 88 19 0A B4 AD 73 01 37 B4 72 B3 B4 33 02 38 1B 53
           19 0A)
      EXT::STRING-WIDTH 0. SYSTEM::FORMAT-PADDING))
#Y(#:TOP-LEVEL-FORM-30
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-INTEGER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-INTEGER
      #179Y(00 00 00 00 09 00 00 00 00 00 A6 10 00 00 10 01 00 10 02 BD 8F 90
            06 92 0D 03 93 0C 36 B7 71 86 AC 72 45 B9 8E 92 33 9D 14 92 10 33
            C8 14 93 10 05 BB DD 33 01 33 14 92 00 2C C8 14 B0 AF 73 03 36 AC
            38 02 71 42 93 02 05 AC DD DF 31 33 B1 AE 1B 80 43 B7 B7 31 83 1B
            80 55 AC 32 96 1B 49 97 00 BE 32 B2 1B 47 C9 1B 52 AC BE 38 02 31
            88 16 07 1B 3C 86 00 AE AD B6 B0 71 31 31 33 B1 8F 91 15 B3 AE 73
            01 37 C4 72 B6 8F 90 0A 86 00 AE AD 66 1A 31 33 86 05 86 01 14 8F
            92 57 16 02 C4 8E 90 47 C4 DE DD 66 1A 64 B1 C3 2D 07 06 16 07 12
            03 19 0A)
      COMMON-LISP::*PRINT-BASE* COMMON-LISP::*PRINT-RADIX*
      COMMON-LISP::*PRINT-READABLY* 0. 1. #\+ SYSTEM::FORMAT-PADDED-STRING))
#Y(#:TOP-LEVEL-FORM-31
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-ASCII-DECIMAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-ASCII-DECIMAL
      #27Y(00 00 00 00 02 00 00 00 00 03 C5 10 01 00 10 02 00 10 03 B7 B7 31 83
           12 03 19 03)
      10. COMMON-LISP::*PRINT-BASE* COMMON-LISP::*PRINT-RADIX*
      COMMON-LISP::*PRINT-READABLY*))
#Y(#:TOP-LEVEL-FORM-32
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-BASE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-BASE
      #73Y(00 00 00 00 09 00 00 00 00 00 B1 8F 90 06 92 07 03 93 06 18 AD 8F 0A
           14 B5 B2 B2 B2 B2 B8 B8 B4 BC 2D 09 06 19 0A B6 BE 31 83 1B 19 A6 10
           00 00 10 01 00 10 02 B6 8E 0A 6D BA DD DE BC 64 BB 71 86 C3 2D 07 05
           12 03 19 0A)
      COMMON-LISP::*PRINT-BASE* COMMON-LISP::*PRINT-RADIX*
      COMMON-LISP::*PRINT-READABLY* 1. 0. SYSTEM::FORMAT-PADDED-STRING
      SYSTEM::FORMAT-INTEGER))
#Y(#:TOP-LEVEL-FORM-33
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-SCALE-EXPONENT-AUX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-SCALE-EXPONENT-AUX
      #98Y(00 00 00 00 06 00 00 00 00 00 B2 32 BC 42 02 B4 8E 90 16 AC B0 73 02
           38 38 01 72 B4 B5 B3 AE 72 99 73 01 39 B3 AD AF 1B 14 B3 DA 40 02 19
           09 AF AF 82 01 39 01 85 00 AE B7 82 02 38 02 AD B8 91 01 30 6C B6 AE
           AE 1B 0E B0 AF 82 02 38 01 86 00 AE BA 82 02 38 02 AD B9 91 01 33 6C
           AD AD 40 02 19 11)
      0.))
#Y(#:TOP-LEVEL-FORM-34
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-SCALE-EXPONENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-SCALE-EXPONENT
      #77Y(00 00 00 00 01 00 00 00 00 02 AD 8E 0E 24 AD 8E 0F 28 AD 8E 10 2C AD
           8F 11 30 AD E8 AF 72 AD E9 B0 72 AD EA B1 72 AD EB B2 72 AD D7 14 2D
           06 05 19 02 AD DA DB DC DD C9 1B 72 AD E0 E1 E2 E3 C9 1B 6A AD E4 E5
           E6 E7 C9 1B 62 00 19 02)
      0.0s0 1.0s0 10.0s0 0.1s0 0.30103s0 SYSTEM::FORMAT-SCALE-EXPONENT-AUX
      0.0f0 1.0f0 10.0f0 0.1f0 0.0d0 1.0d0 10.0d0 0.1d0 0. 1. 10. #10r1/10
      0.30102999566d0))
#Y(#:TOP-LEVEL-FORM-35
   #39Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA 64 38 06 C6 FD 7E 02 31 1C 0B
        00 00 DC 2F 03 DC AD 6D 04 01 32 80 C7 19 02)
   20. COMMON-LISP::CHARACTER SYSTEM::FORMAT-FLOAT-TO-STRING
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-FLOAT-TO-STRING
      #761Y(00 00 00 00 05 00 00 00 00 06 B1 8E 90 80 86 B1 32 C2 42 02 93 06
            06 14 DE 82 01 34 06 B3 38 01 72 C0 72 96 AE DF DF DF DB DB DB 01
            05 69 00 01 DB 31 18 B9 DB 90 01 31 80 8C B9 DB 91 01 30 08 DF BA
            73 00 37 81 D0 0A BA DF BA 72 D0 90 01 2E 80 83 93 11 1F 14 DB 90
            01 30 80 8F E0 BE 72 99 B8 AD 82 02 38 0C B5 AD 82 02 38 09 B6 AD
            82 02 38 0A 16 01 E0 B8 73 02 38 B7 90 01 33 80 93 86 07 E0 B8 82
            02 38 0B E0 B6 82 02 38 09 E0 B5 82 02 38 08 1B 5F 92 03 01 C6 14
            92 02 01 C6 14 73 01 34 93 05 0A AC B2 91 01 33 04 B1 81 96 00 96
            00 DC 38 01 71 42 AC DB DD 31 33 96 01 64 AF 72 90 DB 40 05 19 07
            BA BA 81 D0 0B DF BA 81 D0 09 09 08 1B FF 73 B4 DF 81 D0 08 B7 DF
            81 D0 0B B6 DF 81 D0 0A 93 11 FF 8C 1B FF 6A E0 BE 73 00 37 72 99
            B7 AD 82 02 38 0B 16 01 1B FF 77 14 33 00 37 1B 32 DF C0 33 01 37
            1B 2B E0 B7 82 02 38 0A 85 07 B7 DF 72 D0 B5 73 02 36 B7 DF 72 D0
            91 01 30 68 92 12 58 93 13 39 B3 DB 90 01 30 55 B3 C0 73 01 37 32
            95 FC 93 10 28 B0 BD 73 00 37 91 01 31 1F BC 82 00 37 04 93 12 1A
            1B 1B DB 1B 08 E0 AE 82 02 38 01 85 00 AC AF 91 01 33 72 16 01 1B
            2E 92 12 03 93 13 3C B0 B4 73 01 37 B7 AD DB 90 01 33 59 DB AE 73
            00 37 1B 0D 7E 05 16 02 1B 23 AE E0 81 B3 02 85 01 AD AD 91 01 33
            73 16 02 AC B8 82 01 34 0B AC B7 82 01 34 0A 14 AD 90 01 2E 59 16
            02 B7 DF 72 D0 B5 73 02 36 B7 DF 72 D0 91 01 30 FF 5E B3 DB 91 01
            30 80 78 A3 FD DD 69 00 01 38 01 31 1B DB B4 73 00 37 1B 80 5E B7
            DF 72 D0 B7 DF 72 D0 B6 73 01 37 33 01 33 1B 80 9A E1 AF 71 31 69
            00 01 38 01 31 1B 85 06 1B 80 44 A0 1B 80 BC A0 1B 80 B8 DB 1B 0C
            85 07 DC 69 00 01 38 01 31 1B 85 00 AC B5 91 01 33 6E 16 01 DD 69
            00 01 38 01 31 1B A3 FD 93 12 80 C9 1B 80 A6 85 08 DC 69 00 01 38
            01 31 1B 85 01 AD AD 91 01 33 6E 16 02 B3 8F 90 0A DD 69 00 01 38
            01 31 1B A3 FD 86 07 E0 B8 73 02 38 B7 32 B4 42 02 6A 0C 6A 02 E0
            B6 82 02 38 09 E0 B5 82 02 38 08 B7 DF 72 D0 B6 82 01 30 01 92 03
            FF 63 B7 DF 72 D0 B7 DF 72 D0 B6 73 01 37 33 01 31 F8 92 01 0E 92
            00 0B 93 04 FF 5B B3 B1 91 01 32 FF 54 93 04 06 B3 B1 91 01 33 27
            E2 93 02 04 93 01 FF 53 93 01 03 93 02 0A B8 DF 72 D0 B8 90 01 32
            FF 47 AF 32 95 14 71 31 69 00 01 38 01 31 1B 85 06 B3 DB 90 01 33
            FF 35 93 12 20 DB BF B4 B4 73 01 37 73 01 37 1B 0C 85 08 DC 69 00
            01 38 01 31 1B 85 01 AD AD 91 01 33 6E 16 02 69 00 01 96 07 B3 DB
            73 01 2E B4 B6 73 01 2E B5 40 05 19 15)
      COMMON-LISP::NIL 0. #\0 #\. 2. 1. 10. "0123456789" "0123456789"))
#Y(#:TOP-LEVEL-FORM-36
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-FLOAT-FOR-F SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-FLOAT-FOR-F
      #196Y(00 00 00 00 08 00 00 00 00 00 93 08 0A 92 03 80 56 AE 8E 92 80 51
            A5 14 AF AD B6 B6 DA 2D 05 01 42 04 B8 24 00 80 46 93 0D 0E B0 AF
            82 01 37 04 92 01 80 51 92 00 80 59 93 0A 08 93 0D 05 B0 8E 92 80
            5D 93 0D 0C B0 DA 91 01 31 06 B0 B6 B4 2D 03 02 B3 8E 92 80 51 93
            08 80 51 C9 14 B3 31 87 93 01 80 4F 1B 80 48 B4 32 96 1B FF AA 7D
            00 93 0D 46 1B FF B5 86 04 93 00 FF BD 1B 14 86 04 93 0A 41 1B FF
            B6 B0 DA 90 01 31 6A 7D 01 93 00 FF A7 B0 DA 90 01 31 66 7D 00 93
            0A FF A6 1B FF 9B B9 B7 B4 2D 03 02 19 0E C8 1B FF B0 93 01 04 DF
            B3 31 87 AF B3 38 02 31 88 9D 1F 06 DF B3 31 87 19 0E 19 0E)
      0. SYSTEM::FORMAT-FLOAT-TO-STRING SYSTEM::FORMAT-PADDING #\- #\+ #\0))
#Y(#:TOP-LEVEL-FORM-37
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-FLOAT-FOR-E SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-FLOAT-FOR-E
      #392Y(00 00 00 00 0A 00 00 00 00 00 AE 72 9D 2F 00 42 02 B0 8E 90 80 A1
            AC B6 33 01 37 14 AC 72 9D 38 10 C7 09 09 7D 0A FC 71 84 92 0C 80
            8E AC 32 45 14 93 0E 08 B8 DB 90 01 31 80 8A AB 14 B9 8F 92 05 DD
            BA 33 01 37 14 93 11 06 14 DE B0 33 02 37 14 93 0E 0D 93 12 0A 93
            10 07 AF BD 90 01 31 80 6E 93 12 09 92 0B 04 B6 8F 92 02 86 00 B3
            AD B0 BE B1 2D 05 06 42 04 93 16 0E B0 AF 82 01 37 04 92 00 80 64
            92 01 80 6F 93 12 08 93 16 05 B0 8E 92 80 73 93 16 0C B0 DB 91 01
            31 06 B0 BE BB 2D 03 05 BA 8E 92 80 67 93 0F 80 83 CD 14 BA 31 87
            93 01 80 81 1B 80 7A C6 1B FF 60 AC 72 45 B9 33 01 34 1B FF 6B BA
            B9 73 01 37 32 95 1B FF 6D BE BB B7 2D 03 05 19 13 86 04 93 01 FF
            AB 1B 18 86 04 93 12 FF AE 1B FF A3 93 06 6C B2 DB 90 01 31 66 7D
            00 93 01 FF 91 B0 DB 90 01 31 62 7D 01 93 12 FF 90 1B FF 85 C2 BF
            BB 2D 03 05 19 17 CC 1B FF 9A E3 BA 31 87 93 10 28 1B 80 40 D2 1B
            3D D3 1B 3A D4 1B 37 D5 1B 34 D6 1B 31 CC 1B 37 93 01 04 E3 BA 31
            87 AF BA 38 02 31 88 92 00 54 92 10 1B 0E 0A 1C 06 BA 6B 0B 8A 0C
            51 BA 8E 0E 50 BA 8E 0F 4F BA 8E 10 4E BA 8E 11 4D 00 14 BA 31 87
            B5 8E 92 47 CD 14 BA 31 87 93 14 14 14 B5 72 45 91 01 31 0C C0 B5
            72 45 73 01 37 E3 BB 2D 03 05 B4 BA 38 02 31 88 19 17)
      SYSTEM::FORMAT-SCALE-EXPONENT 0. 10. 1. 2. SYSTEM::FORMAT-PADDING
      SYSTEM::FORMAT-FLOAT-TO-STRING #\- #\+ #\0 COMMON-LISP::*PRINT-READABLY*
      COMMON-LISP::*READ-DEFAULT-FLOAT-FORMAT* COMMON-LISP::TYPEP #\E #\s #\f
      #\d #\L))
#Y(#:TOP-LEVEL-FORM-38
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-SKIP-TO-END SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-SKIP-TO-END
      #28Y(00 00 00 00 00 00 00 00 00 01 1B 07 0E 00 78 2F 01 0F 00 0E 00 78 88
           01 73 00 19 01)
      SYSTEM::*FORMAT-CSDL* SYSTEM::CSD-CLAUSE-CHAIN))
#Y(#:TOP-LEVEL-FORM-39
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-JUSTIFIED-SEGMENTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-JUSTIFIED-SEGMENTS
      #183Y(00 00 00 00 06 00 00 00 00 00 DA DA AF 63 1B 24 C7 1B 39 C7 1B 3B
            C5 1B 80 58 63 AD C5 60 93 0B 80 6D 1B 80 6E 87 01 00 85 03 AE AD
            6F 01 82 02 36 02 83 01 AD 8D 91 6D 16 02 92 05 08 AD DC 91 01 2E
            02 A1 59 14 DD AF 92 02 45 C5 14 92 08 43 C5 14 73 04 36 AE AD B6
            73 02 38 73 02 36 B7 AD B9 90 01 32 FF B0 AD B9 73 01 37 B8 72 B3
            B8 33 02 38 14 73 02 36 AC B1 73 01 37 AF 32 B2 42 02 96 07 38 07
            A6 FC 71 1C 93 06 FF 8E 92 0B 04 63 AD A7 60 DA 1B 15 AD 9E 5F 1D
            0E AD 9E 5F 14 72 95 AC AF A0 60 16 01 86 02 85 00 AE 8F 90 67 16
            01 AC B0 40 02 19 10)
      0. EXT::STRING-WIDTH 1. -1.))
#Y(#:TOP-LEVEL-FORM-40-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-ASCII SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-ASCII
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-ASCII))
#Y(#:TOP-LEVEL-FORM-40-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-ASCII SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-ASCII
      #80Y(00 00 00 00 08 00 00 00 00 00 93 05 27 93 04 29 93 03 2B 93 02 2D 93
           07 05 92 01 02 C8 F9 B1 8F 90 04 AF 8E 90 24 B1 B1 B1 B1 B6 B2 71 86
           BA 2D 07 04 19 09 C5 FD 92 04 57 C6 FC 92 03 55 C5 FB 92 02 53 C7 FA
           93 07 56 1B 4F AD B5 31 83 19 09)
      0. 1. #\Space "()" SYSTEM::FORMAT-PADDED-STRING))
#Y(#:TOP-LEVEL-FORM-41-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-S-EXPRESSION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-S-EXPRESSION
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-S-EXPRESSION))
#Y(#:TOP-LEVEL-FORM-41-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-S-EXPRESSION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-S-EXPRESSION
      #93Y(00 00 00 00 08 00 00 00 00 00 93 05 28 93 04 2A 93 03 2C 92 02 02 C7
           FA B1 8F 90 04 AF 8E 90 2E B1 B1 B1 B1 B6 93 0C 03 93 06 2F B2 31 85
           14 BA 2D 07 05 19 09 C5 FD 92 04 56 C6 FC 92 03 54 C5 FB 93 02 52 1B
           52 DD B5 38 02 31 88 19 09 93 07 03 93 01 72 AD B5 31 80 19 09 C9 1B
           51)
      0. 1. #\Space "()" "()" SYSTEM::FORMAT-PADDED-STRING))
#Y(#:TOP-LEVEL-FORM-42-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-WRITE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-WRITE
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-WRITE))
#Y(#:TOP-LEVEL-FORM-42-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-WRITE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-WRITE
      #74Y(00 00 00 00 08 00 00 00 00 00 93 05 23 93 04 25 93 03 27 92 02 02 C7
           FA B1 8F 90 04 AF 8E 90 21 B1 B1 B1 B1 B6 B2 38 10 71 84 BA 2D 07 03
           19 09 C5 FD 92 04 5B C6 FC 92 03 59 C5 FB 93 02 57 1B 57 AD 38 10 66
           19 31 7F 19 09)
      0. 1. #\Space SYSTEM::FORMAT-PADDED-STRING))
#Y(#:TOP-LEVEL-FORM-43-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-DECIMAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-DECIMAL
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-DECIMAL))
#Y(#:TOP-LEVEL-FORM-43-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-DECIMAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-DECIMAL
      #55Y(00 00 00 00 08 00 00 00 00 00 93 05 19 93 04 1B 93 03 1D 92 02 02 C8
           FA DE B5 B5 B5 B5 B5 B5 B5 B5 2D 09 05 19 09 C5 FD 92 04 65 C6 FC 92
           03 63 C7 FB 93 02 61 1B 61)
      0. #\Space #\, 3. 10. SYSTEM::FORMAT-BASE))
#Y(#:TOP-LEVEL-FORM-44-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-BINARY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-BINARY
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-BINARY))
#Y(#:TOP-LEVEL-FORM-44-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-BINARY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-BINARY
      #55Y(00 00 00 00 08 00 00 00 00 00 93 05 19 93 04 1B 93 03 1D 92 02 02 C8
           FA DE B5 B5 B5 B5 B5 B5 B5 B5 2D 09 05 19 09 C5 FD 92 04 65 C6 FC 92
           03 63 C7 FB 93 02 61 1B 61)
      0. #\Space #\, 3. 2. SYSTEM::FORMAT-BASE))
#Y(#:TOP-LEVEL-FORM-45-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-OCTAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-OCTAL
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-OCTAL))
#Y(#:TOP-LEVEL-FORM-45-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-OCTAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-OCTAL
      #55Y(00 00 00 00 08 00 00 00 00 00 93 05 19 93 04 1B 93 03 1D 92 02 02 C8
           FA DE B5 B5 B5 B5 B5 B5 B5 B5 2D 09 05 19 09 C5 FD 92 04 65 C6 FC 92
           03 63 C7 FB 93 02 61 1B 61)
      0. #\Space #\, 3. 8. SYSTEM::FORMAT-BASE))
#Y(#:TOP-LEVEL-FORM-46-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-HEXADECIMAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-HEXADECIMAL
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-HEXADECIMAL))
#Y(#:TOP-LEVEL-FORM-46-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-HEXADECIMAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-HEXADECIMAL
      #55Y(00 00 00 00 08 00 00 00 00 00 93 05 19 93 04 1B 93 03 1D 92 02 02 C8
           FA DE B5 B5 B5 B5 B5 B5 B5 B5 2D 09 05 19 09 C5 FD 92 04 65 C6 FC 92
           03 63 C7 FB 93 02 61 1B 61)
      0. #\Space #\, 3. 16. SYSTEM::FORMAT-BASE))
#Y(#:TOP-LEVEL-FORM-47-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-RADIX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-RADIX
      #36Y(00 00 00 00 03 00 05 00 00 00 3D 05 3D 04 3D 03 3D 02 3D 01 B4 B4 B4
           B4 B4 B4 B4 B4 2E 00 14 2D 09 01 19 09)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-RADIX))
#Y(#:TOP-LEVEL-FORM-47-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-RADIX SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-RADIX
      #109Y(00 00 00 00 09 00 00 00 00 00 93 05 19 93 04 1B 93 03 1D 93 02 1F
            92 06 21 92 07 3B 92 08 80 47 AD B6 30 0C 19 0A C5 FD 92 04 65 C6
            FC 92 03 63 C7 FB 92 02 61 C8 FA 93 06 5F 14 B2 B2 B2 B2 B9 B9 B4
            BD 2D 09 04 19 0A AD B6 30 05 19 0A 92 08 77 AD B6 30 06 19 0A AD
            8E 0A 73 6B 07 63 E2 6F 09 B0 2D 04 0A 19 0A AD B6 30 0B 19 0A)
      0. #\Space #\, 3. SYSTEM::FORMAT-INTEGER SYSTEM::FORMAT-OLD-ROMAN
      SYSTEM::FORMAT-NEW-ROMAN SYSTEM::*FORMAT-CS*
      "The ~~R and ~~:R directives require an integer argument, not ~S"
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR SYSTEM::FORMAT-ORDINAL
      SYSTEM::FORMAT-CARDINAL))
#Y(#:TOP-LEVEL-FORM-48
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PLURAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PLURAL
      #53Y(00 00 00 00 03 00 00 00 00 04 93 02 04 64 DA 30 01 2E 02 14 C5 5A 14
           92 02 0C 92 00 15 DF B1 31 87 19 05 C8 1B 04 92 00 7A C9 14 B1 38 02
           31 88 19 05 00 19 05)
      1. SYSTEM::FORMAT-GOTO-NEW-ARG SYSTEM::NEXT-ARG "y" "ies" #\s))
#Y(#:TOP-LEVEL-FORM-49-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-CHARACTER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CHARACTER
      #21Y(00 00 00 00 03 00 00 00 00 04 AF AF AF 2E 00 14 2D 04 01 19 04)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-CHARACTER))
#Y(#:TOP-LEVEL-FORM-49-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-CHARACTER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-CHARACTER
      #77Y(00 00 00 00 04 00 00 00 00 05 AD 8F 1A 11 93 03 1B AD 8D 1F 2C AD 24
           04 28 AD B1 31 87 19 05 6B 00 63 DB 6F 02 B0 2D 04 03 92 03 65 93 02
           6A AD B1 31 80 19 05 14 38 02 71 49 B2 38 02 31 88 19 06 AD 71 2F 92
           00 6E AE B2 31 87 19 06)
      SYSTEM::*FORMAT-CS*
      "The ~~C directive requires a character argument, not ~S" SYSTEM::TEXT
      SYSTEM::FORMAT-ERROR #\Space))
#Y(#:TOP-LEVEL-FORM-50-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-FIXED-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-FIXED-FLOAT
      #36Y(00 00 00 00 03 00 05 00 00 00 3D 05 3D 04 3D 03 3D 02 3D 01 B4 B4 B4
           B4 B4 B4 B4 B4 2E 00 14 2D 09 01 19 09)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-FIXED-FLOAT))
#Y(#:TOP-LEVEL-FORM-50-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-FIXED-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-FIXED-FLOAT
      #75Y(00 00 00 00 09 00 00 00 00 00 93 04 1C 92 02 02 C6 FA AD 8F 0C 06 AD
           38 01 81 AD 01 AD 8E 0D 10 92 06 1A AD B6 30 05 19 0A C5 FC 93 02 62
           1B 62 B2 B2 B2 B2 B2 B8 B3 BC 2D 08 02 19 0A 14 DD DA B1 64 B2 71 86
           BB 2D 07 04 19 0A)
      0. #\Space SYSTEM::FORMAT-FLOAT-FOR-F 1. SYSTEM::FORMAT-PADDED-STRING
      SYSTEM::FORMAT-ASCII-DECIMAL))
#Y(#:TOP-LEVEL-FORM-51-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-EXPONENTIAL-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-EXPONENTIAL-FLOAT
      #42Y(00 00 00 00 03 00 07 00 00 00 3D 07 3D 06 3D 05 3D 04 3D 03 3D 02 3D
           01 B6 B6 B6 B6 B6 B6 B6 B6 B6 B6 2E 00 14 2D 0B 01 19 0B)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-EXPONENTIAL-FLOAT))
#Y(#:TOP-LEVEL-FORM-51-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-EXPONENTIAL-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-EXPONENTIAL-FLOAT
      #77Y(00 00 00 00 0B 00 00 00 00 00 93 05 1C 92 03 02 C6 FB AD 8F 0C 06 AD
           38 01 81 AD 01 AD 8E 0D 10 92 08 1C AD B8 30 05 19 0C C5 FD 93 03 62
           1B 62 B4 B4 B4 B4 B4 B4 B4 BC B5 C0 2D 0A 02 19 0C 14 DA DD B2 64 B2
           71 86 BD 2D 07 04 19 0C)
      1. #\Space SYSTEM::FORMAT-FLOAT-FOR-E 0. SYSTEM::FORMAT-PADDED-STRING
      SYSTEM::FORMAT-ASCII-DECIMAL))
#Y(#:TOP-LEVEL-FORM-52-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-GENERAL-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-GENERAL-FLOAT
      #42Y(00 00 00 00 03 00 07 00 00 00 3D 07 3D 06 3D 05 3D 04 3D 03 3D 02 3D
           01 B6 B6 B6 B6 B6 B6 B6 B6 B6 B6 2E 00 14 2D 0B 01 19 0B)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-GENERAL-FLOAT))
#Y(#:TOP-LEVEL-FORM-52-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-GENERAL-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-GENERAL-FLOAT
      #172Y(00 00 00 00 0B 00 00 00 00 00 93 05 1E 92 03 02 C6 FB AD 8F 0C 06
            AD 38 01 81 AD 01 AD 8E 0D 80 52 92 08 80 79 AD B8 30 0C 19 0C C5
            FD 93 03 60 1B 60 AF 72 9D 01 04 2D 05 03 42 02 97 00 DA 73 01 34
            AF DE 73 01 35 33 01 34 16 02 09 09 93 08 30 DF B5 33 02 36 1B 2A
            93 0C 05 14 AE 33 01 37 14 AD E1 B7 B7 BE B7 C2 2D 08 08 AD DB BD
            2D 03 09 19 10 AD 72 9D 2F 02 42 02 93 09 FF B4 92 08 50 CB 14 B6
            AE 73 01 37 E1 AD B9 90 02 32 49 B8 B8 B8 B8 B8 B8 B8 C0 B9 C4 2D
            0A 0A 19 10 14 DA E1 B2 64 B2 71 86 BD 2D 07 0B 19 0C)
      1. #\Space SYSTEM::FORMAT-SCALE-EXPONENT SYSTEM::FORMAT-FLOAT-TO-STRING
      7. 2. 4. 0. SYSTEM::FORMAT-FLOAT-FOR-F SYSTEM::FORMAT-PADDING
      SYSTEM::FORMAT-FLOAT-FOR-E SYSTEM::FORMAT-PADDED-STRING
      SYSTEM::FORMAT-ASCII-DECIMAL))
#Y(#:TOP-LEVEL-FORM-53-1
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01)
   SYSTEM::FORMAT-DOLLARS-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-DOLLARS-FLOAT
      #33Y(00 00 00 00 03 00 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B3 B3 B3 B3 B3
           B3 B3 2E 00 14 2D 08 01 19 08)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-DOLLARS-FLOAT))
#Y(#:TOP-LEVEL-FORM-53-2
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-DOLLARS-FLOAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-DOLLARS-FLOAT
      #186Y(00 00 00 00 08 00 00 00 00 00 93 05 80 5E 93 04 80 60 93 03 80 62
            92 02 02 C8 FA AD 8F 0C 06 AD 38 01 81 AD 01 AD 8F 0D 80 87 AD 63
            B3 DC 63 2D 05 04 42 05 AC B6 73 01 34 DB 92 0D 80 43 B4 8E 92 3F
            C7 14 AE BA 73 04 36 B6 AD 73 01 37 DC 73 01 34 92 0F 06 AC B7 BE
            2D 03 05 B5 8E 92 26 93 0E 26 CC 14 BD 31 87 93 0F 27 1B 1F C5 FD
            92 04 FF A0 C6 FC 92 03 FF 9E C7 FB 93 02 FF 9B 1B FF 9A C6 1B FF
            BE CB 1B 5B 93 0F 06 AC B7 BE 2D 03 05 AE B0 73 01 37 E2 BE 2D 03
            05 B3 BD 38 02 31 88 19 11 14 DB DC B1 64 B2 71 86 BA 2D 07 09 19
            09 92 05 6F AD B5 30 0A 19 09)
      2. 1. 0. #\Space SYSTEM::FORMAT-FLOAT-TO-STRING SYSTEM::FORMAT-PADDING
      #\- #\+ #\0 SYSTEM::FORMAT-PADDED-STRING SYSTEM::FORMAT-ASCII-DECIMAL))
#Y(#:TOP-LEVEL-FORM-54
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-TERPRI SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-TERPRI
      #42Y(00 00 00 00 03 00 01 00 00 0A 3B 01 07 C5 F9 93 01 05 1B 05 92 01 02
           C5 F9 DB 1B 05 B1 31 8A 85 00 AC AF 91 01 33 75 00 19 06)
      1. 0.))
#Y(#:TOP-LEVEL-FORM-55
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PPRINT-NEWLINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PPRINT-NEWLINE
      #35Y(00 00 00 00 03 00 00 00 00 04 92 02 0D 92 01 10 C8 14 B0 30 04 19 04
           C5 1B 77 92 01 7A C6 1B 71 C7 1B 6E)
      :MANDATORY :FILL :MISER :LINEAR COMMON-LISP::PPRINT-NEWLINE))
#Y(#:TOP-LEVEL-FORM-56
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PPRINT-INDENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PPRINT-INDENT
      #37Y(00 00 00 00 03 00 01 00 00 0A 3B 01 08 C5 F9 93 03 06 C6 1B 04 92 03
           7A C7 14 92 02 01 C5 14 B2 2D 03 03 19 05)
      1. :CURRENT :BLOCK COMMON-LISP::PPRINT-INDENT))
#Y(#:TOP-LEVEL-FORM-57
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-FRESH-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-FRESH-LINE
      #54Y(00 00 00 00 03 00 01 00 00 0A 3B 01 07 C5 F9 93 01 05 1B 05 92 01 02
           C5 F9 AD 32 91 1F 16 B0 31 8B DB 97 02 1B 05 B2 31 8A 85 01 AD AD 91
           01 33 75 00 19 07 19 05)
      1. 0.))
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-PAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-PAGE
      #43Y(00 00 00 00 03 00 01 00 00 0A 3B 01 07 C5 F9 93 01 05 1B 05 92 01 02
           C5 F9 DB 1B 06 DC B2 31 87 85 00 AC AF 91 01 33 74 00 19 06)
      1. 0. #\Page))
#Y(#:TOP-LEVEL-FORM-59
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-TILDE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-TILDE
      #43Y(00 00 00 00 03 00 01 00 00 0A 3B 01 07 C5 F9 93 01 05 1B 05 92 01 02
           C5 F9 DB 1B 06 DC B2 31 87 85 00 AC AF 91 01 33 74 00 19 06)
      1. 0. #\~))
#Y(#:TOP-LEVEL-FORM-60
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-GOTO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-GOTO
      #44Y(00 00 00 00 03 00 01 00 00 0A 3B 01 12 7D 01 93 02 10 92 01 01 C5 14
           6B 01 31 9A 0F 02 19 05 92 02 70 AF 92 02 01 C8 14 30 04 19 05)
      0. SYSTEM::*FORMAT-ARG-LIST* SYSTEM::*FORMAT-NEXT-ARG* 1.
      SYSTEM::FORMAT-GOTO-NEW-ARG))
#Y(#:TOP-LEVEL-FORM-61
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-INDIRECTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-INDIRECTION
      #67Y(00 00 00 00 03 00 00 00 00 04 2E 00 14 AC 6F 01 92 03 1F 2E 00 14 B2
           AE AE AF 2D 04 07 19 07 94 00 9E 5C 10 02 00 10 03 A3 10 04 BB 2F 05
           12 03 19 07 9D 21 6A 00 10 04 AF B5 0E 06 37 01 11 0F 06 19 06)
      SYSTEM::NEXT-ARG SYSTEM::DO-FORMAT-INDIRECTION-1 SYSTEM::*FORMAT-CSDL*
      SYSTEM::*FORMAT-UP-AND-OUT* SYSTEM::*FORMAT-CS* SYSTEM::FORMAT-INTERPRET
      SYSTEM::*FORMAT-NEXT-ARG* SYSTEM::DO-FORMAT-INDIRECTION-2))
#Y(#:TOP-LEVEL-FORM-62
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-INDIRECTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-INDIRECTION
      #36Y(00 00 00 00 03 00 00 00 00 04 AE 8E 05 07 AE 8E 1B 03 AE 2F 00 AD 8E
           09 03 AD 2F 01 AF AF AF 2D 03 02 19 04)
      SYSTEM::FORMAT-INDIRECTION-CSERROR SYSTEM::FORMAT-INDIRECTION-LERROR
      SYSTEM::FORMAT-APPLY))
#Y(#:TOP-LEVEL-FORM-63
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-INDIRECTION-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-INDIRECTION-1
      #39Y(00 00 00 00 01 00 00 00 00 02 AD 8E 05 09 AD 8E 1B 12 AD 2F 02 19 02
           AD 7B 01 AE DA AE 63 2D 04 01 15 19 02 9E 19 02)
      0. SYSTEM::FORMAT-PARSE-CS SYSTEM::FORMAT-INDIRECTION-CSERROR))
#Y(#:TOP-LEVEL-FORM-64
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-INDIRECTION-2 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-INDIRECTION-2
      #60Y(00 00 00 00 04 00 00 00 00 05 AE 8E 09 03 AE 2F 00 A0 21 0B 00 10 01
           B2 B4 A4 37 01 11 19 05 A0 5B 10 01 A3 5C 10 02 A4 10 03 A8 10 04 00
           10 05 00 10 06 C2 2F 07 0E 04 12 05 1B 60)
      SYSTEM::FORMAT-INDIRECTION-LERROR SYSTEM::*FORMAT-CS*
      SYSTEM::*FORMAT-CSDL* SYSTEM::*FORMAT-ARG-LIST* SYSTEM::*FORMAT-NEXT-ARG*
      SYSTEM::*FORMAT-NEXT-ARGLIST* SYSTEM::*FORMAT-UP-AND-OUT*
      SYSTEM::FORMAT-INTERPRET))
#Y(#:TOP-LEVEL-FORM-65
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-INDIRECTION-CSERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-INDIRECTION-CSERROR
      #22Y(00 00 00 00 01 00 00 00 00 02 6B 00 63 DB 6F 02 B0 2D 04 03 19 02)
      SYSTEM::*FORMAT-CS*
      "The control string argument for the ~~? directive is invalid: ~S"
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR))
#Y(#:TOP-LEVEL-FORM-66
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-INDIRECTION-LERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-INDIRECTION-LERROR
      #22Y(00 00 00 00 01 00 00 00 00 02 6B 00 63 DB 6F 02 B0 2D 04 03 19 02)
      SYSTEM::*FORMAT-CS*
      "The argument list argument for the ~~? directive is invalid: ~S"
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR))
#Y(#:TOP-LEVEL-FORM-67
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CALL-USER-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CALL-USER-FUNCTION
      #22Y(00 00 00 00 04 00 00 00 01 1A 94 02 B2 2E 00 14 B3 B3 A3 9B 04 06)
      SYSTEM::NEXT-ARG))
#Y(#:TOP-LEVEL-FORM-68
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CASE-CONVERSION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CASE-CONVERSION
      #71Y(00 00 00 00 03 00 00 00 00 04 0E 00 5C 0F 00 38 01 B0 71 8F 72 73 AC
           DB 30 02 AC 81 74 00 92 03 17 92 02 1E AC 38 02 31 46 14 B1 38 02 31
           88 19 05 AC 38 02 31 44 1B 71 92 02 76 AC 38 02 31 48 1B 67 AC 2F 03
           1B 62)
      SYSTEM::*FORMAT-CSDL* SYSTEM::FORMAT-CASE-CONVERSION-END
      SYSTEM::FORMAT-INTERPRET SYSTEM::NSTRING-CAPITALIZE1))
#Y(#:TOP-LEVEL-FORM-69
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::NSTRING-CAPITALIZE1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::NSTRING-CAPITALIZE1
      #52Y(00 00 00 00 01 00 00 00 00 02 AD 38 02 80 46 01 DA AE 72 45 1B 02 85
           01 AD AD 90 01 33 11 AF AE 71 31 8D 24 71 AF AE B1 B0 71 31 71 2A 31
           33 16 02 9E 19 02)
      0.))
#Y(#:TOP-LEVEL-FORM-70
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CONDITIONAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CONDITIONAL
      #187Y(00 00 00 00 03 00 01 00 00 0A 3B 01 80 4E 7D 01 93 03 80 4C 92 02
            17 2E 01 1D 07 0E 02 78 2F 03 0F 02 0E 02 5C 0F 02 B0 DE 30 05 1B
            80 89 2E 00 1B 80 84 2E 01 1D 80 7F 64 E0 30 07 0E 02 5C 0F 02 B0
            DE 30 05 0E 02 78 89 03 80 6B 6B 08 63 E3 6F 0A 2D 03 0B 1B 80 5F
            E8 1B 80 40 92 03 FF B4 92 02 50 92 01 02 2E 01 14 AC 8E 0A 0A 6B
            08 63 E6 6F 0A AF 2D 04 0B E7 AD 8E 92 5C AD 1B 1D 16 02 1B 21 16
            02 1B 1D 0E 02 78 6F 0F 24 04 70 0E 02 78 2F 03 0F 02 78 88 10 69
            85 01 AD AD 91 01 33 65 16 02 0E 02 78 6F 0F 24 04 05 0E 02 5C 0F
            02 B1 DE 30 05 16 01 2E 11 19 05)
      SYSTEM::FORMAT-CONDITIONAL-ERROR SYSTEM::NEXT-ARG SYSTEM::*FORMAT-CSDL*
      SYSTEM::CSD-CLAUSE-CHAIN SYSTEM::FORMAT-CONDITIONAL-END
      SYSTEM::FORMAT-INTERPRET 1. SYSTEM::FORMAT-GOTO-NEW-ARG
      SYSTEM::*FORMAT-CS* "The ~~; directive is not allowed at this point."
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR
      "The ~~[ parameter must be an integer, not ~S" 0.
      #.COMMON-LISP::MOST-POSITIVE-FIXNUM SYSTEM::CSD-DATA SYSTEM::CSD-COLON-P
      SYSTEM::FORMAT-SKIP-TO-END))
#Y(#:TOP-LEVEL-FORM-71
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CONDITIONAL-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CONDITIONAL-ERROR
      #21Y(00 00 00 00 00 00 00 00 00 01 6B 00 63 DB 6F 02 2D 03 03 19 01)
      SYSTEM::*FORMAT-CS* "The ~~[ directive cannot take both modifiers."
      SYSTEM::TEXT SYSTEM::FORMAT-ERROR))
#Y(#:TOP-LEVEL-FORM-72
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-ITERATION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-ITERATION
      #353Y(00 00 00 00 03 00 01 00 00 0A 3D 01 6B 00 2E 01 0E 00 78 6F 02 95
            01 0E 00 22 80 71 0E 04 14 AC 8F 05 09 95 02 0E 00 22 80 68 9F 5C
            14 A3 59 1D 09 2E 03 14 AC 8F 09 80 6A 15 14 DF 93 07 07 AC B4 90
            01 33 81 18 92 08 80 67 9E 14 93 05 81 0A AD 8E 91 80 61 16 01 1C
            81 04 AF 8F 05 80 EB 92 09 80 7D 92 08 80 63 9E 10 0B 0E 0B 10 0A
            A6 10 04 A8 10 00 00 10 0D 66 19 E8 30 0F 0E 0A 09 10 6B 0D 25 10
            80 83 00 12 02 12 03 19 0B 2E 03 1B FF 8C AC 7B 01 AD DF AE 63 2D
            04 06 9D 5C 16 01 1B FF 89 6B 04 63 E1 6F 08 AF 2D 04 09 15 1B FF
            89 0E 0A 1B FF 95 15 1D 80 A4 1B FF 9D 2E 03 1B 27 0E 0A 1B 29 00
            11 1B FF BD A0 10 04 A2 10 00 00 10 0D BF E8 30 0F 6B 0D 25 10 2F
            00 1B FF A9 92 08 5A 94 01 83 02 15 10 0B 92 0B 54 A1 10 0C 0E 0B
            10 0A A9 10 04 AB 10 00 00 10 0D 66 1C E8 30 0F 6B 0D 24 10 FF BD
            11 12 02 12 03 1B 80 41 2E 03 1B 08 92 08 79 94 01 83 02 15 14 00
            10 04 B3 BB A2 37 01 11 16 01 1B 27 00 10 04 B2 BA 0E 0A 37 01 11
            0F 0A 1B 19 92 09 59 92 08 6C 00 10 04 B2 BA A3 37 01 11 F9 1B 07
            AF 8E 1B 6A AF 2F 11 85 00 93 07 FE EF 1B FE E5 15 1C FE FC 00 19
            0B)
      SYSTEM::*FORMAT-CSDL* SYSTEM::FORMAT-SKIP-TO-END SYSTEM::CSD-COLON-P
      SYSTEM::NEXT-ARG SYSTEM::*FORMAT-CS* 0. SYSTEM::FORMAT-PARSE-CS
      "The ~~{ directive requires a list argument, not ~S" SYSTEM::TEXT
      SYSTEM::FORMAT-ERROR SYSTEM::*FORMAT-NEXT-ARG* SYSTEM::*FORMAT-ARG-LIST*
      SYSTEM::*FORMAT-NEXT-ARGLIST* SYSTEM::*FORMAT-UP-AND-OUT*
      SYSTEM::FORMAT-ITERATION-END SYSTEM::FORMAT-INTERPRET :TERMINATE-ALL
      SYSTEM::FORMAT-INDIRECTION-CSERROR))
#Y(#:TOP-LEVEL-FORM-73
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-JUSTIFICATION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-JUSTIFICATION
      #162Y(00 00 00 00 03 00 04 00 00 00 3B 04 02 C5 FC 3B 03 02 C6 FB 3B 02
            02 C5 FA 3B 01 02 C7 F9 6B 03 B4 71 8F 38 01 AD 72 73 01 04 64 1B
            80 4A 0E 03 78 2F 0A 44 42 02 6A 06 6A 06 0E 06 1D 32 A7 0F 03 2E
            0B 11 16 01 1B 3A A9 5C 1B 80 4F 0E 03 5C 0F 03 00 10 06 B4 DF 30
            07 93 03 10 0E 03 78 6F 04 25 08 08 0E 03 78 2F 09 FF 1C 42 0E 06
            1C 4E B4 72 74 84 04 11 7D 00 0E 03 78 6F 04 25 05 4D 16 01 AC 81
            47 00 BA BA BA BA BA BA BA B8 B7 93 0C 02 A6 5B 14 B8 B8 92 0F FF
            AD A9 14 2D 0D 0C 19 0F)
      0. 1. #\Space SYSTEM::*FORMAT-CSDL* SYSTEM::CSD-DATA
      SYSTEM::FORMAT-JUSTIFICATION-END SYSTEM::*FORMAT-UP-AND-OUT*
      SYSTEM::FORMAT-INTERPRET SYSTEM::FORMAT-SEPARATOR SYSTEM::CSD-COLON-P
      SYSTEM::FORMAT-RESOLVE-PARMS SYSTEM::FORMAT-SKIP-TO-END
      SYSTEM::DO-FORMAT-JUSTIFICATION))
#Y(#:TOP-LEVEL-FORM-74
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DO-FORMAT-JUSTIFICATION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DO-FORMAT-JUSTIFICATION
      #136Y(00 00 00 00 0D 00 00 00 00 00 93 0A 14 93 09 17 93 08 1A 93 07 1D
            92 01 1F B6 B4 BB 2D 03 05 19 0E C5 09 0A 92 09 69 C6 09 09 92 08
            66 C5 09 08 92 07 63 C7 FF 93 01 61 B6 B6 B6 BB BB B2 2D 06 03 42
            02 93 07 1D 92 08 01 C5 14 AD 92 07 01 C5 14 73 03 36 92 05 01 C9
            14 91 01 31 06 B2 BC 38 02 31 88 DA 1B 17 AE 9E 5F 14 B7 BE 2D 03
            05 93 04 13 94 04 83 05 BD 38 02 31 88 85 00 AE 9E 5F 1C 64 92 04
            6D 00 19 11)
      0. 1. #\Space SYSTEM::FORMAT-JUSTIFIED-SEGMENTS 72.
      SYSTEM::FORMAT-PADDING))
#Y(#:TOP-LEVEL-FORM-75
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-UP-AND-OUT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-UP-AND-OUT
      #47Y(00 00 00 00 03 00 03 00 00 00 3D 03 3D 02 3D 01 AF AF AF 92 08 10 0E
           01 14 2D 04 02 1F 0F 92 05 09 C9 0F 05 19 07 0E 00 1B 6E C8 1B 75 19
           07)
      SYSTEM::*FORMAT-NEXT-ARGLIST* SYSTEM::*FORMAT-NEXT-ARG*
      SYSTEM::UP-AND-OUT-P :TERMINATE-ALL :TERMINATE
      SYSTEM::*FORMAT-UP-AND-OUT*))
#Y(#:TOP-LEVEL-FORM-76
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::UP-AND-OUT-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::UP-AND-OUT-P
      #96Y(00 00 00 00 03 00 01 00 00 0A 3B 01 26 7D 01 93 04 24 1B 28 9E 59 19
           05 B0 C5 5A 19 05 B0 B0 31 FF 19 05 B0 B0 B0 33 02 32 19 05 B0 B0 B0
           33 02 0B 19 05 92 04 06 92 03 03 93 02 58 92 03 03 93 02 56 93 02 58
           B0 8F 0A 08 AF 8F 0A 04 AE 8E 0A 52 B0 8F 1A 08 AF 8F 1A 04 AE 8E 1A
           4E 00 19 05)
      0.))
#Y(#:TOP-LEVEL-FORM-77
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMAT-CALL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMAT-CALL
      #23Y(00 00 00 00 03 00 00 00 01 19 2E 00 14 B1 2E 00 14 B2 B2 A3 9B 04
           05)
      SYSTEM::NEXT-ARG))
#Y(#:TOP-LEVEL-FORM-78
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-HAIRY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-HAIRY
      #23Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 AC 2C 00 01 19
           03)
      #Y(SYSTEM::FORMATTER-HAIRY-1
         #54Y(00 00 00 00 01 00 00 00 01 17 69 00 01 7B 01 69 00 01 DB AE 63 2D
              04 02 9D 5B 10 03 A0 5C 10 04 A5 10 05 0E 05 10 06 00 10 07 00 10
              08 C1 2F 09 0E 06 12 06 19 04)
         COMMON-LISP::NIL 0. SYSTEM::FORMAT-PARSE-CS SYSTEM::*FORMAT-CS*
         SYSTEM::*FORMAT-CSDL* SYSTEM::*FORMAT-ARG-LIST*
         SYSTEM::*FORMAT-NEXT-ARG* SYSTEM::*FORMAT-NEXT-ARGLIST*
         SYSTEM::*FORMAT-UP-AND-OUT* SYSTEM::FORMAT-INTERPRET)))
#Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-TERMINATE*)
   SYSTEM::*FORMAT-TERMINATE*)
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-TERMINATE-ALL*)
   SYSTEM::*FORMAT-TERMINATE-ALL*)
#Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-UWPS*) SYSTEM::*FORMAT-UWPS*)
#Y(#:TOP-LEVEL-FORM-82
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BLOCK
      #25Y(00 00 00 00 01 00 00 00 00 02 AD 72 8E 6B 00 AD DB AE 32 86 16 01 15
           19 02)
      SYSTEM::*FORMAT-UWPS* SYSTEM::UWPS))
#Y(#:TOP-LEVEL-FORM-83
   #27Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 DD 2F 01 DD DE 32 80
        C8 19 01)
   SYSTEM::FORMATTER-TERMINATE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-TERMINATE
      #16Y(00 00 00 00 00 00 00 00 00 01 6B 00 C6 34 19 01)
      SYSTEM::*FORMAT-TERMINATE*
      #1=#Y(SYSTEM::MARK-USED
            #40Y(00 00 00 00 01 00 00 00 00 02 AD DA 64 32 86 6B 01 AE DC 38 01
                 72 82 1B 06 AD 64 31 A7 83 01 AD 9E 23 76 16 02 9E 19 02)
            SYSTEM::USED SYSTEM::*FORMAT-UWPS* SYSTEM::UWPS))
   SYSTEM::FORMATTER-TERMINATE-ALL
   #Y(SYSTEM::FORMATTER-TERMINATE-ALL
      #16Y(00 00 00 00 00 00 00 00 00 01 6B 00 C6 34 19 01)
      SYSTEM::*FORMAT-TERMINATE-ALL* #1#))
#Y(#:TOP-LEVEL-FORM-84
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::FORMATTER-BIND-TERMINATOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BIND-TERMINATOR
      #24Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC DD A1 7A 7B 02 61 03 19
           04)
      COMMON-LISP::LET
      ((SYSTEM::*FORMAT-TERMINATE* (SYSTEM::FORMATTER-BLOCK "TERMINATE-")))
      SYSTEM::FORMATTER-BIND-TERMINATOR-1 COMMON-LISP::PROGN)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-85
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-BIND-TERMINATOR-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BIND-TERMINATOR-1
      #30Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB 38 01 8F 82 09 DC 6B 00 A0 7C
           02 61 01 F9 9E 19 02)
      SYSTEM::*FORMAT-TERMINATE* SYSTEM::USED COMMON-LISP::BLOCK))
#Y(#:TOP-LEVEL-FORM-86
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::FORMATTER-BIND-TERMINATORS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BIND-TERMINATORS
      #24Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC DD A1 7A 7B 02 61 03 19
           04)
      COMMON-LISP::LET
      ((SYSTEM::*FORMAT-TERMINATE* (SYSTEM::FORMATTER-BLOCK "TERMINATE-"))
       (SYSTEM::*FORMAT-TERMINATE-ALL*
        (SYSTEM::FORMATTER-BLOCK "TERMINATE-ALL-")))
      SYSTEM::FORMATTER-BIND-TERMINATORS-1 COMMON-LISP::PROGN)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-87
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-BIND-TERMINATORS-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BIND-TERMINATORS-1
      #47Y(00 00 00 00 01 00 00 00 00 02 6B 00 DB 38 01 8F 82 09 DC 6B 00 A0 7C
           02 61 01 F9 6B 03 DB 38 01 8F 82 09 DC 6B 03 A0 7C 02 61 01 F9 9E 19
           02)
      SYSTEM::*FORMAT-TERMINATE* SYSTEM::USED COMMON-LISP::BLOCK
      SYSTEM::*FORMAT-TERMINATE-ALL*))
#Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMAT-CASE*) SYSTEM::*FORMAT-CASE*)
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL EXT::*ARGS*) EXT::*ARGS*)
#Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*ITERARGS*) SYSTEM::*ITERARGS*)
#Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMATTER-LINEAR-ARGS*)
   SYSTEM::*FORMATTER-LINEAR-ARGS*)
#Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*)
   SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*)
#Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMATTER-LINEAR-POSITION*)
   SYSTEM::*FORMATTER-LINEAR-POSITION*)
#Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*FORMATTER-WHOLE-ARGS*)
   SYSTEM::*FORMATTER-WHOLE-ARGS*)
#Y(#:TOP-LEVEL-FORM-95
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::FORMATTER-BIND-ARGS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BIND-ARGS
      #24Y(00 00 00 00 01 00 01 00 00 08 95 02 DA DB DC DD A1 7A 7B 02 61 03 19
           04)
      COMMON-LISP::LET
      ((EXT::*ARGS* (COMMON-LISP::GENSYM "ARGS"))
       (SYSTEM::*FORMATTER-LINEAR-ARGS* COMMON-LISP::T)
       (SYSTEM::*FORMATTER-LINEAR-ARGCOUNT* 0.)
       (SYSTEM::*FORMATTER-LINEAR-POSITION* 0.)
       (SYSTEM::*FORMATTER-WHOLE-ARGS* COMMON-LISP::NIL))
      SYSTEM::FORMATTER-BIND-ARGS-1 COMMON-LISP::PROGN)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-96
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-BIND-ARGS-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-BIND-ARGS-1
      #134Y(00 00 00 00 01 00 00 00 00 02 0E 00 1D 06 DB DC AF 2D 03 03 00 2B
            01 00 0B 00 00 DE 6B 05 1B 0C E0 72 8E 06 03 00 5D 0B 02 00 85 01
            AD AD 91 01 33 6E 16 02 68 00 00 32 47 0B 00 00 AC 6D 07 01 E2 B0
            2D 03 03 FA E3 E4 B0 2D 03 03 FA 0E 00 1D 15 E5 E6 B0 2D 03 03 FA
            E7 E8 6B 0F 7B 02 7B 01 A1 7C 02 61 01 FA 68 00 00 EA 6B 0F 7B 02
            73 02 23 EB EC 68 03 00 6B 0F 7B 01 33 02 23 7A 7B 02 A1 7A 40 02
            19 03)
      SYSTEM::*FORMATTER-WHOLE-ARGS*
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-1
         #22Y(00 00 00 00 01 00 00 00 00 02 6B 00 9F 5C 78 33 01 35 0F 00 19
              02)
         SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*)
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-2
         #42Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 19 94 01 C5 5A 1F 13 95
              01 32 02 1F 0D 9E 5C 78 32 06 1F 06 9E 5C 5C 59 19 02 19 02)
         SYSTEM::WHOLE-ARGS)
      SYSTEM::SUBST-IF-THEN 0. SYSTEM::*FORMATTER-LINEAR-ARGCOUNT* "ARG"
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-3
         #36Y(00 00 00 00 01 00 00 00 00 02 9E 5C 78 6B 01 90 01 30 07 DC 6B 03
              61 02 19 02 9E 5C 78 69 00 01 31 93 19 02)
         COMMON-LISP::NIL SYSTEM::*FORMATTER-LINEAR-ARGCOUNT* COMMON-LISP::POP
         EXT::*ARGS*)
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-4
         #35Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 12 94 01 C5 5A 1F 0C 95
              01 32 02 1F 06 9E 5C 5C 59 19 02 19 02)
         SYSTEM::ARG)
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-5
         #70Y(00 00 00 00 01 00 00 00 00 02 9E 5C 78 9F 5C 5C 78 AD 6B 00 90 01
              32 17 02 0F 05 DC 6B 03 E0 AF 6B 00 73 01 34 61 02 14 61 03 19 04
              C6 19 04 AC 6B 00 90 01 32 76 DC 6B 03 DE AF 6B 00 73 01 37 6B 03
              61 03 1B 61)
         SYSTEM::*FORMATTER-LINEAR-ARGCOUNT* (COMMON-LISP::PROGN)
         COMMON-LISP::SETQ EXT::*ARGS* COMMON-LISP::NTHCDR
         SYSTEM::*FORMATTER-WHOLE-ARGS* SYSTEM::WHOLE-ARGS)
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-6
         #43Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 1A 94 01 C5 5A 1F 14 95
              01 32 02 1F 0E 9E 5C 79 32 02 1F 07 9E 5C 5C 5C 59 19 02 19 02)
         SYSTEM::SETQ-ARGS-WHOLE-ARGS)
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-7
         #32Y(00 00 00 00 01 00 00 00 00 02 9E 5C 78 6B 00 73 01 37 AC 8E 90 07
              DC AD C8 62 02 19 03 C6 19 03)
         SYSTEM::*FORMATTER-LINEAR-ARGCOUNT* SYSTEM::WHOLE-ARGS
         COMMON-LISP::NTHCDR (SYSTEM::WHOLE-ARGS))
      #Y(SYSTEM::FORMATTER-BIND-ARGS-1-8
         #42Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 19 94 01 C5 5A 1F 13 95
              01 32 02 1F 0D 9E 5C 78 32 06 1F 06 9E 5C 5C 59 19 02 19 02)
         SYSTEM::WHOLE-ARGS)
      COMMON-LISP::LET SYSTEM::WHOLE-ARGS EXT::*ARGS* COMMON-LISP::&REST
      COMMON-LISP::DECLARE COMMON-LISP::IGNORABLE))
#Y(#:TOP-LEVEL-FORM-97
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-STOP-LINEAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-STOP-LINEAR
      #30Y(00 00 00 00 00 00 00 00 00 01 0E 00 1F 0E 6B 01 6B 02 33 01 35 0F 01
           00 0F 00 19 01 19 01)
      SYSTEM::*FORMATTER-LINEAR-ARGS* SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*
      SYSTEM::*FORMATTER-LINEAR-POSITION*))
#Y(#:TOP-LEVEL-FORM-98
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-LENGTH-ARGS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-LENGTH-ARGS
      #19Y(00 00 00 00 00 00 00 00 00 01 2E 00 DB 6B 02 61 02 19 01)
      SYSTEM::FORMATTER-STOP-LINEAR COMMON-LISP::LENGTH EXT::*ARGS*))
#Y(#:TOP-LEVEL-FORM-99
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-NEXT-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-NEXT-ARG
      #44Y(00 00 00 00 00 00 00 00 00 01 0E 00 1C 07 DE 6B 05 61 02 19 01 DB 6B
           02 7B 02 6B 02 32 95 0F 02 6B 03 6B 02 33 01 34 0F 03 15 19 01)
      SYSTEM::*FORMATTER-LINEAR-ARGS* SYSTEM::ARG
      SYSTEM::*FORMATTER-LINEAR-POSITION* SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*
      COMMON-LISP::POP EXT::*ARGS*))
#Y(#:TOP-LEVEL-FORM-100
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-WHOLE-ARGS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-WHOLE-ARGS
      #21Y(00 00 00 00 01 00 00 00 00 02 2E 00 02 0F 01 DC AE 61 02 19 02)
      SYSTEM::FORMATTER-STOP-LINEAR SYSTEM::*FORMATTER-WHOLE-ARGS*
      SYSTEM::WHOLE-ARGS))
#Y(#:TOP-LEVEL-FORM-101
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-GOTO-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-GOTO-ARG
      #199Y(00 00 00 00 03 00 00 00 00 04 93 03 80 51 AD 8E 06 27 2E 04 DF 6B
            06 E2 B0 C5 1B 80 63 DD 6B 02 AF 7B 03 7B 01 9F 0F 02 15 19 04 AD
            6B 02 90 01 30 6B 01 02 AF 0E 02 1B 1A AD DA 82 01 34 01 0E 01 1C
            68 2E 04 DF 6B 06 AF 2F 07 1B 80 72 64 63 6B 02 A1 14 73 01 37 29
            03 07 00 92 03 FF AF 93 02 80 43 AD 8F 06 04 0E 01 1C 63 2E 04 DF
            6B 06 0E 01 1D 11 E2 E3 E4 6B 02 B3 7B 03 D0 7C 02 C5 14 2F 07 1B
            38 E6 B0 DA 6F 07 6B 06 61 04 1B 30 63 DA 1B 07 2E 0E 14 84 01 85
            00 AC B0 91 01 33 73 AD 32 47 19 06 AD 8F 06 0A AD E7 91 01 32 04
            0E 01 1C 5C 2E 04 DF 6B 06 E2 B0 0E 06 14 61 03 14 7B 03 61 01 19
            04)
      0. SYSTEM::*FORMATTER-LINEAR-ARGS* SYSTEM::*FORMATTER-LINEAR-POSITION*
      SYSTEM::SETQ-ARGS-WHOLE-ARGS SYSTEM::FORMATTER-STOP-LINEAR
      COMMON-LISP::SETQ EXT::*ARGS* SYSTEM::FORMATTER-WHOLE-ARGS
      COMMON-LISP::NTHCDR COMMON-LISP::MAX COMMON-LISP::- (0.)
      SYSTEM::LIST-BACKWARD 100. SYSTEM::FORMATTER-NEXT-ARG))
#Y(#:TOP-LEVEL-FORM-102
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::LIST-BACKWARD SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::LIST-BACKWARD
      #29Y(00 00 00 00 03 00 00 00 00 04 AE 72 45 AE 72 45 B1 73 02 37 DA 73 01
           34 AF 31 9A 19 04)
      0.))
#Y(#:TOP-LEVEL-FORM-103
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-ARG
      #29Y(00 00 00 00 01 00 00 00 00 02 AD 24 00 07 AD 24 02 07 9E 19 02 2E 01
           19 02 2E 03 19 02)
      :NEXT-ARG SYSTEM::FORMATTER-NEXT-ARG :ARG-COUNT
      SYSTEM::FORMATTER-LENGTH-ARGS))
#Y(#:TOP-LEVEL-FORM-104
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-MAIN-1 SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-MAIN-1
      #1898Y(00 00 00 00 00 00 01 00 00 07 3D 01 00 2B 01 00 0B 00 00 6B 00 8C
             91 87 1A 0E 00 78 AC 2F 01 26 02 86 EF 6B 03 AD 6F 04 AE 6F 05 72
             43 06 02 00 5D 0B 01 00 1B 86 DB 16 02 1B 86 F7 9D 2B 03 AE 2F 07
             0B 00 00 AE 2F 08 0B 00 01 99 09 AF 6F 0A 33 00 17 0B 00 02 9D 2B
             03 AC 2C 0B 01 0B 00 00 AC 2C 0C 01 0B 00 01 AC 6D 0D 01 AD 2C 0E
             01 0B 01 02 AD 6D 0F 01 06 04 00 26 10 86 50 EF 2E 16 14 03 17 62
             02 1B 18 63 68 04 02 38 07 72 4C 68 07 00 31 A0 0B 06 00 EE 06 04
             00 1C 60 2E 16 14 03 18 62 02 1B 83 C0 EB 06 03 00 34 06 03 02 78
             EC 38 03 8D B2 0C 06 03 02 5C 5C 78 ED 38 03 8C B2 45 06 02 02 1B
             81 F0 63 68 04 02 38 07 72 4C 68 07 00 31 A0 0B 06 00 F5 2E 16 14
             03 1C 62 02 1B 83 84 EB 06 03 00 34 06 03 02 78 F3 38 03 8D B2 11
             06 03 02 5C 5C 78 F4 38 03 8D B2 05 06 03 00 1D 45 06 02 02 1B 81
             AF 63 68 04 02 38 07 72 4C 68 07 00 31 A0 0B 06 00 65 1F 2E 16 14
             03 20 62 02 1B 83 42 EB 06 03 00 34 06 03 02 78 F7 38 03 8D B2 0D
             06 03 02 5C 5C 78 65 1E 38 03 8C B2 48 06 02 02 1B 81 71 D6 1B 80
             A8 D6 1B 80 A4 D6 1B 80 A0 D6 1B 80 9C 03 22 1B 17 63 68 04 02 38
             07 72 4C 68 07 00 31 A0 0B 06 00 06 03 00 1C 67 03 23 14 2E 16 14
             03 24 62 02 1B 82 EA 65 21 06 03 00 34 06 03 02 5B 1C 05 06 03 01
             1D 4D 06 02 02 1B 81 24 63 64 65 26 6E 03 27 68 07 00 31 A0 0B 06
             00 06 03 01 1D 28 65 28 65 29 65 2A 2E 16 14 03 2B 7C 02 03 2C 7C
             02 03 2D 62 02 1B 82 A7 65 25 06 03 00 34 06 03 00 1C 49 06 03 01
             1C 58 65 2E 65 2A 2E 16 14 03 2F 7C 02 03 30 62 02 1B 82 85 03 25
             1B 0D 03 21 1B 09 03 31 1B 05 03 31 1B 01 D6 14 9E 1B 80 C0 03 33
             1B 82 6A 65 26 06 03 00 34 06 03 02 78 65 32 38 03 8C B2 6A 06 02
             01 1B 80 A4 03 35 1B 21 06 04 01 1C 77 03 36 1B 18 03 37 1B 14 65
             25 06 03 00 34 65 34 06 04 00 1C 66 06 04 01 1C 6A 03 38 14 03 39
             62 02 1B 82 26 03 3B 1B 0F 65 26 06 03 00 34 65 3A 06 04 00 1C 6F
             03 3C 14 EF 2E 16 14 03 3D 7C 02 03 3E 62 03 1B 82 03 03 40 1B 81
             FE 65 26 06 03 00 34 06 03 02 78 65 3F 38 03 8C B2 6A 06 02 01 1B
             39 03 42 1B 81 E3 65 26 06 03 00 34 06 03 02 78 65 41 38 03 8C B2
             6A 06 02 01 1B 1E 03 44 1B 81 C8 65 26 06 03 00 34 06 03 02 78 65
             43 38 03 8C B2 6A 06 02 01 1B 03 65 45 9F 34 16 05 1B 84 54 03 25
             1B 19 65 26 06 03 00 34 68 03 01 68 04 00 06 05 02 5B 1C 07 06 05
             01 1C 65 03 26 14 6E 03 27 68 07 00 31 A0 1B 81 85 65 46 6B 47 65
             48 65 49 2E 16 14 2E 4A 6B 47 7B 04 61 03 1B 81 6A 65 25 06 03 00
             34 06 03 01 1C 5F 65 48 65 49 2E 16 14 2E 16 1B 80 FE 65 4C 65 4D
             AF 68 09 02 73 01 17 AE 61 03 1B 25 06 03 02 78 06 04 02 5C 0B 04
             02 15 78 68 04 02 6F 4B AD 65 49 2E 16 14 68 08 00 68 09 01 A2 7C
             05 92 01 4C 9D 14 06 0A 00 5D 0B 09 00 16 08 1B 83 BC 65 4F 6C FC
             AF AC 68 08 00 31 A0 1B 83 27 03 53 1B 80 4F 06 0A 01 1C 76 03 54
             1B 80 45 03 55 1B 80 40 65 59 65 5A A0 7A 9F 7C 02 61 01 1B 80 47
             65 25 06 03 00 34 0E 00 5C 0F 00 0E 4E 1C 41 65 4C 65 50 63 0E 51
             5D 10 51 02 10 4E 65 4F 2F 52 11 14 65 28 06 0A 00 1C FF B9 06 0A
             01 1C FF BD 03 56 14 03 57 7A 03 58 7C 02 7B 01 0E 51 5B 1C FF B0
             AD AD 33 02 23 16 02 11 62 02 1B 80 92 2E 5B 16 05 1B 83 36 06 03
             00 1D 82 F0 06 03 01 1C 6E 65 25 06 03 00 34 65 29 65 5C 2E 16 14
             7B 02 65 5A 2E 4A 0E 00 5C 0F 00 65 5D 2F 52 7A 65 5A 2E 4A 0E 00
             5C 0F 00 65 5D 2F 52 5D 14 61 04 1B 80 4F 6B 03 63 65 61 6F 62 2D
             03 63 16 05 1B 82 EB 65 26 06 03 00 34 65 64 06 04 02 5B 1C 02 2E
             16 14 65 25 63 2E 4A 1B 02 85 01 0E 00 78 89 60 19 0E 00 78 89 07
             02 7E 01 0E 00 5C 0F 00 AD 65 5D 2F 52 7A 84 00 AD 02 23 5F AC 32
             47 16 02 62 02 14 06 07 00 5D 0B 06 00 16 05 1B 82 9E 65 4C 65 6B
             06 0B 02 78 7B 02 03 6C 7A 9F 34 7C 02 61 01 1B 80 63 65 26 06 03
             00 34 0E 00 5C 0F 00 9F 2B 03 06 04 02 5B 0B 00 00 B2 2F 60 78 2F
             07 0B 00 01 B2 6F 60 0E 00 5A 0B 00 02 9D 2B 01 AD 2C 65 01 0B 00
             00 9D 2B 01 AD 2C 66 01 0B 00 00 9D 2B 01 AD 2C 67 01 0B 00 00 9D
             2B 01 AD 2C 68 01 0B 00 00 AC 6D 69 01 06 05 00 1D 09 14 65 6A 38
             03 8D B2 FF 89 9D 34 14 AC 68 0E 00 31 A0 0B 0D 00 16 0C 1B 82 16
             EB 06 03 00 34 B1 2F 60 78 AC 6F 05 CB 5A 1D 03 AC 2F 07 14 65 6D
             68 06 00 68 07 01 68 08 02 65 6E B1 93 06 11 0E 00 5C 0F 00 65 5A
             65 6F 6F 52 65 70 33 02 23 5D 14 93 07 06 B4 2F 0A 78 2F 09 14 93
             08 07 B5 2F 0A 5C 78 2F 09 14 7B 05 33 02 23 7C 03 63 0E 51 5D 10
             51 63 1B 80 47 65 71 65 72 65 73 65 74 A5 7A 7B 02 03 75 7A 73 02
             23 65 59 65 5A 63 B1 1B 10 94 00 AC 65 76 73 02 23 AF 80 A0 02 16
             01 83 00 9D 21 6D 16 01 AC 31 A2 16 01 7A 03 77 62 02 1B 80 4A 0E
             00 5C 0F 00 65 6F 6F 52 84 00 0E 00 78 88 60 6F AC 81 47 00 0E 51
             5B 1C FF A9 65 71 65 72 65 78 B3 65 74 63 B2 1B 11 94 00 65 5A AD
             65 79 33 02 23 7A 84 02 16 01 83 00 9D 21 6C 16 01 AC 31 A2 16 01
             7A 7B 01 33 02 23 5D 14 7B 03 06 0E 00 5D 0B 0D 00 16 01 11 16 08
             1B 81 21 0E 7B 1B 80 56 65 7D 06 06 02 5D 1B 80 76 65 7E A0 1B 14
             06 05 02 78 93 00 74 9D 20 12 94 00 25 7F 0D 65 7E 9E 5C 5B 14 61
             02 16 01 1B 80 55 65 64 AD 65 80 80 65 7E B2 7B 02 7B 02 03 80 81
             62 03 16 01 1B 3F 2E 80 83 1B 80 46 65 7A 06 03 00 34 2E 4A 06 03
             00 1C FF A7 0E 47 14 65 29 65 7C 68 06 02 90 00 28 FF 9D 06 05 02
             5C 5B 1C 09 06 05 02 5C 5C 5B 1D FF 9B 65 7D 68 06 02 AF 7B 01 33
             02 23 5D 14 65 80 82 06 07 00 1C FF B7 2E 80 84 14 7B 02 7B 03 06
             08 00 5D 0B 07 00 16 06 1B 80 7F 65 4C 65 4D AF 68 08 02 73 01 17
             AE 61 03 1B 1D 68 03 02 6F 4B 65 80 85 2E 16 14 65 49 2E 16 14 68
             08 00 68 09 01 A3 7C 06 92 01 54 9D 14 06 09 00 5D 0B 08 00 16 07
             1B 80 45 65 80 86 00 52 06 03 01 1D FD 4F 65 25 06 03 00 34 2E 4A
             65 29 65 5E 6B 47 7B 02 65 5A 0E 00 5C 0F 00 65 5D 2F 52 7A 65 46
             6B 47 65 5F 6B 47 7B 02 7B 03 7B 04 06 07 00 5D 0B 06 00 0E 00 78
             88 60 FD 08 16 05 16 01 0E 00 5C 0F 00 1B F8 F7 9E 2B 01 AD 2F 05
             0B 00 00 14 A2 22 F9 0D 68 00 00 25 06 F9 0B 16 02 63 68 01 00 63
             1B 27 AE AD 94 04 73 02 13 31 A7 1B 1A 87 01 00 14 8F 1A 04 AC 80
             4A 00 9F 20 09 94 02 8F 05 04 AC 8E 05 5E AC 84 02 83 01 AD 8D 91
             60 16 02 15 19 03)
      SYSTEM::*FORMAT-CSDL* SYSTEM::CSD-TYPE
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (2. . 1787.) (1. . 2.)
         (0. . 1777.))
      SYSTEM::*FORMAT-CS* SYSTEM::CSD-CS-INDEX SYSTEM::CSD-DATA
      SYSTEM::FORMAT-SEPARATOR SYSTEM::CSD-COLON-P SYSTEM::CSD-ATSIGN-P
      SYSTEM::FORMATTER-ARG SYSTEM::CSD-PARM-LIST
      #Y(SYSTEM::FORMATTER-MAIN-1-SIMPLE-ARGLIST
         #52Y(00 00 00 00 01 00 00 00 00 02 69 01 03 72 45 AE 90 01 32 09 6B 01
              63 DC 6F 03 2D 03 04 69 01 03 AE 69 01 03 72 45 73 01 37 63 71 9C
              33 02 23 0C 01 03 19 02)
         COMMON-LISP::NIL SYSTEM::*FORMAT-CS*
         "Too many arguments for this directive" SYSTEM::TEXT
         SYSTEM::FORMAT-ERROR)
      #Y(SYSTEM::FORMATTER-MAIN-1-TRIVIAL-CALL
         #34Y(00 00 00 00 00 00 00 00 00 01 69 02 01 DB 69 01 01 69 01 02 07 01
              03 7C 04 07 03 01 5D 0C 03 01 19 01)
         COMMON-LISP::NIL COMMON-LISP::STREAM)
      #Y(SYSTEM::FORMATTER-MAIN-1-TRIVIAL
         #21Y(00 00 00 00 01 00 00 00 00 02 AD 07 00 01 34 07 00 02 34 19 02)
         COMMON-LISP::NIL)
      #Y(SYSTEM::FORMATTER-MAIN-1-SIMPLE-CALL
         #53Y(00 00 00 00 00 00 00 00 00 01 DB 69 02 01 71 4A 73 02 13 DC 71 CA
              71 D2 DD 69 01 01 69 01 02 69 01 03 2E 04 14 7B 01 33 02 23 7C 04
              07 03 01 5D 0C 03 01 19 01)
         COMMON-LISP::NIL "DO-" "SYSTEM" COMMON-LISP::STREAM
         SYSTEM::FORMATTER-NEXT-ARG)
      #Y(SYSTEM::FORMATTER-MAIN-1-SIMPLE
         #21Y(00 00 00 00 01 00 00 00 00 02 AD 07 00 01 34 07 00 03 34 19 02)
         COMMON-LISP::NIL)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (SYSTEM::FORMAT-CALL . 1576.)
         (SYSTEM::FORMAT-UP-AND-OUT . 1473.)
         (SYSTEM::FORMAT-JUSTIFICATION . 1153.)
         (SYSTEM::FORMAT-ITERATION . 1039.) (SYSTEM::FORMAT-CONDITIONAL . 865.)
         (SYSTEM::FORMAT-CASE-CONVERSION . 779.)
         (SYSTEM::FORMAT-CALL-USER-FUNCTION . 681.)
         (SYSTEM::FORMAT-INDIRECTION . 642.) (SYSTEM::FORMAT-GOTO . 583.)
         (SYSTEM::FORMAT-TABULATE . 570.) (SYSTEM::FORMAT-TILDE . 548.)
         (SYSTEM::FORMAT-PAGE . 521.) (SYSTEM::FORMAT-FRESH-LINE . 494.)
         (SYSTEM::FORMAT-PPRINT-INDENT . 458.)
         (SYSTEM::FORMAT-PPRINT-NEWLINE . 426.) (SYSTEM::FORMAT-TERPRI . 386.)
         (SYSTEM::FORMAT-DOLLARS-FLOAT . 375.)
         (SYSTEM::FORMAT-GENERAL-FLOAT . 371.)
         (SYSTEM::FORMAT-EXPONENTIAL-FLOAT . 367.)
         (SYSTEM::FORMAT-FIXED-FLOAT . 363.) (SYSTEM::FORMAT-CHARACTER . 359.)
         (SYSTEM::FORMAT-PLURAL . 325.) (SYSTEM::FORMAT-RADIX . 258.)
         (SYSTEM::FORMAT-HEXADECIMAL . 216.) (SYSTEM::FORMAT-OCTAL . 212.)
         (SYSTEM::FORMAT-BINARY . 208.) (SYSTEM::FORMAT-DECIMAL . 204.)
         (SYSTEM::FORMAT-WRITE . 170.) (SYSTEM::FORMAT-S-EXPRESSION . 104.)
         (SYSTEM::FORMAT-ASCII . 44.))
      4. (COMMON-LISP::NIL 0.) (COMMON-LISP::NIL 0.) COMMON-LISP::PRINC
      COMMON-LISP::OR SYSTEM::FORMATTER-NEXT-ARG ("()") (COMMON-LISP::STREAM)
      (COMMON-LISP::NIL 0.) (COMMON-LISP::NIL 0.) COMMON-LISP::PRIN1
      (COMMON-LISP::STREAM) (COMMON-LISP::NIL 0.) (COMMON-LISP::NIL 0.)
      COMMON-LISP::WRITE (:STREAM COMMON-LISP::STREAM) 5.
      SYSTEM::FORMAT-ORDINAL SYSTEM::FORMAT-CARDINAL (COMMON-LISP::STREAM) 0.
      1. SYSTEM::FORMATTER-GOTO-ARG COMMON-LISP::WRITE-STRING COMMON-LISP::IF
      COMMON-LISP::EQL (1.) ("y" "ies") (COMMON-LISP::STREAM)
      COMMON-LISP::UNLESS (1.)
      ((COMMON-LISP::WRITE-CHAR #\s COMMON-LISP::STREAM)) 7.
      (COMMON-LISP::NIL 1.) #\Newline COMMON-LISP::PPRINT-NEWLINE :MANDATORY
      :FILL :MISER :LINEAR (COMMON-LISP::STREAM) COMMON-LISP::PPRINT-INDENT
      :CURRENT :BLOCK (1.) (COMMON-LISP::STREAM) (COMMON-LISP::NIL 1.)
      (COMMON-LISP::FRESH-LINE COMMON-LISP::STREAM) (COMMON-LISP::NIL 1.)
      #\Page (COMMON-LISP::NIL 1.) #\~ 2. COMMON-LISP::SETQ EXT::*ARGS*
      SYSTEM::DO-FORMAT-INDIRECTION COMMON-LISP::STREAM
      SYSTEM::FORMATTER-STOP-LINEAR SYSTEM::GENSYM-LIST COMMON-LISP::LET
      #.#'COMMON-LISP::LIST SYSTEM::*FORMAT-CASE*
      SYSTEM::FORMAT-CASE-CONVERSION-END
      ((SYSTEM::ORIG-STREAM COMMON-LISP::STREAM)
       (COMMON-LISP::STREAM
        (COMMON-LISP::MAKE-STRING-OUTPUT-STREAM :LINE-POSITION
         (SYSTEM::LINE-POSITION COMMON-LISP::STREAM))))
      SYSTEM::*FORMAT-UWPS* SYSTEM::FORMATTER-MAIN COMMON-LISP::NSTRING-UPCASE
      COMMON-LISP::NSTRING-CAPITALIZE SYSTEM::NSTRING-CAPITALIZE1
      COMMON-LISP::NSTRING-DOWNCASE
      ((COMMON-LISP::GET-OUTPUT-STREAM-STRING COMMON-LISP::STREAM))
      (SYSTEM::ORIG-STREAM) COMMON-LISP::UNWIND-PROTECT COMMON-LISP::PROGN
      SYSTEM::FORMAT-CONDITIONAL-ERROR COMMON-LISP::NOT
      SYSTEM::FORMAT-CONDITIONAL-END COMMON-LISP::CAR COMMON-LISP::CDR
      SYSTEM::CSD-CLAUSE-CHAIN
      "The ~~; directive is not allowed at this point." SYSTEM::TEXT
      SYSTEM::FORMAT-ERROR COMMON-LISP::CASE
      #Y(SYSTEM::FORMATTER-MAIN-1-COMPUTE-INNERMOST
         #41Y(00 00 00 00 00 00 00 00 00 01 07 00 03 1C 05 E3 2F 0A 19 01 2E 01
              DC 6B 03 DE DF E0 6B 03 E1 6F 08 7B 05 7B 03 61 01 19 01)
         COMMON-LISP::NIL SYSTEM::FORMATTER-STOP-LINEAR COMMON-LISP::SETQ
         EXT::*ARGS* SYSTEM::DO-FORMAT-INDIRECTION-2 COMMON-LISP::STREAM
         SYSTEM::NODE 0. SYSTEM::FORMATTER-WHOLE-ARGS
         SYSTEM::FORMAT-ITERATION-END SYSTEM::FORMATTER-MAIN)
      #Y(SYSTEM::FORMATTER-MAIN-1-COMPUTE-INNER
         #85Y(00 00 00 00 00 00 00 00 00 01 07 03 01 1C 0A 00 10 02 07 00 01 34
              11 19 01 0E 01 10 02 DD 2F 04 10 05 E0 32 8E 10 01 02 10 07 CD 10
              09 CD 10 0A 00 10 0B 07 00 01 74 2F 0C 12 05 42 02 E7 E8 E9 B0 A1
              7C 02 7B 02 2E 10 14 7B 03 61 01 16 01 F8 2F 11 11 1B 41)
         COMMON-LISP::NIL EXT::*ARGS* SYSTEM::*ITERARGS* "TERMINATE-"
         SYSTEM::FORMATTER-BLOCK SYSTEM::*FORMAT-TERMINATE* #1="ARGS"
         SYSTEM::*FORMATTER-LINEAR-ARGS* 0. SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*
         SYSTEM::*FORMATTER-LINEAR-POSITION* SYSTEM::*FORMATTER-WHOLE-ARGS*
         SYSTEM::FORMATTER-BIND-ARGS-1 COMMON-LISP::APPLY COMMON-LISP::FUNCTION
         COMMON-LISP::LAMBDA SYSTEM::FORMATTER-NEXT-ARG
         SYSTEM::FORMATTER-BIND-TERMINATOR-1)
      #Y(SYSTEM::FORMATTER-MAIN-1-COMPUTE-MIDDLE
         #128Y(00 00 00 00 00 00 00 00 00 01 69 02 01 24 01 80 53 69 02 01 25
               02 05 07 02 02 1C 02 2E 03 69 02 01 24 02 80 48 E1 63 E2 E3 07
               02 01 1D 01 CF 14 07 02 02 59 1D 0B E5 DF 6B 06 7B 02 D1 7C 02
               61 01 14 07 00 01 74 07 02 02 1D 0B E5 DF 6B 06 7B 02 D2 7C 02
               61 01 14 E8 33 05 23 7C 02 61 03 14 61 01 19 01 00 19 01 07 00
               01 34 19 01 07 02 02 1C 75 DE DF 6B 06 7B 02 07 00 01 34 62 02
               1B 5F)
         COMMON-LISP::NIL 0. 1. SYSTEM::FORMATTER-STOP-LINEAR
         COMMON-LISP::UNLESS COMMON-LISP::ENDP EXT::*ARGS* COMMON-LISP::BLOCK
         COMMON-LISP::TAGBODY SYSTEM::L
         ((COMMON-LISP::WHEN (COMMON-LISP::>= SYSTEM::I SYSTEM::N)
           (COMMON-LISP::RETURN))
          (COMMON-LISP::INCF SYSTEM::I))
         COMMON-LISP::WHEN ((COMMON-LISP::RETURN)) ((COMMON-LISP::RETURN))
         ((COMMON-LISP::GO SYSTEM::L)))
      #Y(SYSTEM::FORMATTER-MAIN-1-COMPUTE-OUTER
         #84Y(00 00 00 00 00 00 00 00 00 01 DB 6F 02 DD 2F 02 10 04 A0 10 05 07
              05 02 1C 34 E0 32 8E 10 07 02 10 08 CE 10 0A CE 10 0B 00 10 0C 07
              00 01 74 2F 0D 12 05 42 02 E8 E9 EA B0 A1 7C 02 7B 02 2E 11 14 7B
              03 61 01 16 02 14 2F 12 12 02 19 02 07 00 01 34 1B 73)
         COMMON-LISP::NIL "TERMINATE-" SYSTEM::FORMATTER-BLOCK "TERMINATE-ALL-"
         SYSTEM::*FORMAT-TERMINATE-ALL* SYSTEM::*FORMAT-TERMINATE* #1#
         EXT::*ARGS* SYSTEM::*FORMATTER-LINEAR-ARGS* 0.
         SYSTEM::*FORMATTER-LINEAR-ARGCOUNT*
         SYSTEM::*FORMATTER-LINEAR-POSITION* SYSTEM::*FORMATTER-WHOLE-ARGS*
         SYSTEM::FORMATTER-BIND-ARGS-1 COMMON-LISP::APPLY COMMON-LISP::FUNCTION
         COMMON-LISP::LAMBDA SYSTEM::FORMATTER-NEXT-ARG
         SYSTEM::FORMATTER-BIND-TERMINATORS-1)
      #Y(SYSTEM::FORMATTER-MAIN-1-COMPUTE-OUTERMOST
         #43Y(00 00 00 00 00 00 00 00 00 01 07 04 03 1C 06 07 00 01 34 19 01 DB
              DC DD 2E 04 14 7B 02 7B 02 7B 01 07 00 01 34 7C 02 61 01 19 01)
         COMMON-LISP::NIL COMMON-LISP::LET SYSTEM::NODE
         SYSTEM::DO-FORMAT-INDIRECTION-1 SYSTEM::FORMATTER-NEXT-ARG)
      (0. 1.) SYSTEM::N ((SYSTEM::I 0.)) SYSTEM::ORIG-STREAM SYSTEM::POS
      SYSTEM::FORMAT-JUSTIFICATION-END
      ((COMMON-LISP::GET-OUTPUT-STREAM-STRING COMMON-LISP::STREAM))
      COMMON-LISP::LET*
      ((SYSTEM::POS (SYSTEM::LINE-POSITION COMMON-LISP::STREAM))
       (SYSTEM::ORIG-STREAM COMMON-LISP::STREAM)
       (COMMON-LISP::STREAM
        (COMMON-LISP::MAKE-STRING-OUTPUT-STREAM :LINE-POSITION SYSTEM::POS)))
      SYSTEM::JARGS COMMON-LISP::LIST ((SYSTEM::PIECES 'COMMON-LISP::NIL))
      ((COMMON-LISP::PUSH
        (COMMON-LISP::GET-OUTPUT-STREAM-STRING COMMON-LISP::STREAM)
        SYSTEM::PIECES))
      ((COMMON-LISP::APPLY #'SYSTEM::DO-FORMAT-JUSTIFICATION
        (COMMON-LISP::NCONC SYSTEM::JARGS
         (COMMON-LISP::LIST (SYSTEM::LIST-NREVERSE SYSTEM::PIECES)))))
      SYSTEM::DO-FORMAT-JUSTIFICATION
      ((COMMON-LISP::GET-OUTPUT-STREAM-STRING COMMON-LISP::STREAM)) 3.
      SYSTEM::*ITERARGS*
      #Y(SYSTEM::FORMATTER-MAIN-1-1
         #22Y(00 00 00 00 01 00 00 00 00 02 AD 38 01 31 5D 1F 03 9E 19 02 19
              02))
      SYSTEM::UP-AND-OUT-P COMMON-LISP::ENDP COMMON-LISP::LENGTH
      (COMMON-LISP::NIL)
      (((0.) COMMON-LISP::T) (COMMON-LISP::T COMMON-LISP::NIL))
      COMMON-LISP::RETURN-FROM SYSTEM::FORMATTER-TERMINATE-ALL
      SYSTEM::FORMATTER-TERMINATE COMMON-LISP::FUNCALL
      SYSTEM::FORMATTER-HAIRY))
#Y(#:TOP-LEVEL-FORM-105
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::FORMATTER-MAIN SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::FORMATTER-MAIN
      #97Y(00 00 00 00 00 00 01 00 00 07 3D 01 AD 6F 00 63 AD 9D 20 80 45 94 00
           AC AC 8F 05 2F AC 72 45 AC 24 01 10 AC 24 02 14 E1 AE CD 62 02 14 61
           01 16 01 1B 1B 00 16 01 1B 16 C9 1B 71 AD DB 80 30 01 14 24 03 74 DF
           AE CB 62 02 1B 61 AC 61 01 F8 AF 80 A0 02 16 01 83 00 1B FF B7 16 01
           AC 31 A2 19 04)
      SYSTEM::FORMATTER-MAIN-1 0. 1. #\Newline
      (COMMON-LISP::TERPRI COMMON-LISP::STREAM) COMMON-LISP::WRITE-CHAR
      (COMMON-LISP::STREAM) COMMON-LISP::WRITE-STRING (COMMON-LISP::STREAM)))
#Y(#:TOP-LEVEL-FORM-106
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   COMMON-LISP::FORMATTER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::FORMATTER
      #167Y(02 00 01 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 80 74 9F 5C 78
            AC 8F 05 80 71 CE 50 80 7A AF 7B 01 B0 E4 AE 63 2D 04 0B 94 00 9E
            5C 10 0C 00 10 0D 00 10 0E 00 10 0F A9 10 10 EB 32 8E 10 12 02 10
            13 CF 10 14 CF 10 15 00 10 16 F1 6F 18 F3 2F 18 10 1A A0 10 1B 2E
            1C 14 2F 1D 12 02 F8 2E 1E 6B 12 7B 01 73 02 23 2F 1F 12 05 42 02
            65 20 65 21 65 22 A1 7A 65 23 A1 7C 03 61 02 16 02 12 05 16 02 51
            3F 19 04 AE 2F 01 19 03 DC DD AE DE DF E0 6F 07 E2 B3 33 06 1F 1E
            0A E3 AD 65 24 72 28 61 02 19 04 19 04)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      COMMON-LISP::STRING "~S: The control-string must be a string, not ~S"
      SYSTEM::TEXT COMMON-LISP::FORMATTER SYSTEM::FORMATTER-HAIRY 0.
      SYSTEM::FORMAT-PARSE-CS SYSTEM::*FORMAT-CSDL* SYSTEM::*FORMAT-CASE*
      SYSTEM::*FORMAT-UWPS* SYSTEM::*ITERARGS* SYSTEM::*FORMAT-CS* "ARGS"
      EXT::*ARGS* SYSTEM::*FORMATTER-LINEAR-ARGS*
      SYSTEM::*FORMATTER-LINEAR-ARGCOUNT* SYSTEM::*FORMATTER-LINEAR-POSITION*
      SYSTEM::*FORMATTER-WHOLE-ARGS* "TERMINATE-" SYSTEM::FORMATTER-BLOCK
      "TERMINATE-ALL-" SYSTEM::*FORMAT-TERMINATE-ALL*
      SYSTEM::*FORMAT-TERMINATE* SYSTEM::FORMATTER-MAIN
      SYSTEM::FORMATTER-BIND-TERMINATORS-1 SYSTEM::FORMATTER-STOP-LINEAR
      SYSTEM::FORMATTER-BIND-ARGS-1 COMMON-LISP::FUNCTION COMMON-LISP::LAMBDA
      COMMON-LISP::STREAM
      (COMMON-LISP::DECLARE (COMMON-LISP::IGNORABLE COMMON-LISP::STREAM))
      COMMON-LISP::SIMPLE-STRING)
   SYSTEM::MAKE-MACRO)
