(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)
   "LISP" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (COMMON-LISP::*PRINT-PPRINT-DISPATCH* COMMON-LISP::PPRINT-DISPATCH
    COMMON-LISP::COPY-PPRINT-DISPATCH COMMON-LISP::SET-PPRINT-DISPATCH
    COMMON-LISP::PPRINT-LOGICAL-BLOCK COMMON-LISP::PPRINT-POP
    COMMON-LISP::PPRINT-EXIT-IF-LIST-EXHAUSTED COMMON-LISP::PPRINT-FILL
    COMMON-LISP::PPRINT-LINEAR COMMON-LISP::PPRINT-TABULAR)
   "LISP")
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "EXT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-4
   #28Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 6F 06 32
        80 C5 19 01)
   EXT::WITH-GENSYMS SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Bind symbols to gensyms.  First sym is a string - the GENSYM prefix.
Inspired by Paul Graham, <On Lisp>, p. 145."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::WITH-GENSYMS
      #65Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 0C 9F 5C 78 A0 5C
           79 DC 63 95 03 1B 15 AE 2F 01 19 03 94 00 AC DD 94 07 7B 02 7B 02 84
           02 16 01 83 00 9D 21 6D 16 01 AC 80 A2 00 9F 62 02 19 05)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::LET COMMON-LISP::GENSYM)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 D5 19 01)
   (EXT::WITH-GENSYMS) "EXT")
#Y(#:TOP-LEVEL-FORM-6 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYS" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-7
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::PPRINT-DISPATCH-P SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::PPRINT-DISPATCH-P
      #23Y(00 00 00 00 01 00 00 00 00 02 AD 32 02 1F 06 94 01 C5 5A 19 02 19
           02)
      COMMON-LISP::*PRINT-PPRINT-DISPATCH*))
#Y(#:TOP-LEVEL-FORM-8
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DB 7B 01 31 51 C6 19 01)
   (COMMON-LISP::SPECIAL COMMON-LISP::*PRINT-PPRINT-DISPATCH*)
   COMMON-LISP::*PRINT-PPRINT-DISPATCH*)
#Y(#:TOP-LEVEL-FORM-9
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DEFAULT-PRINT-DISPATCH-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DEFAULT-PRINT-DISPATCH-FUNCTION
      #16Y(00 00 00 00 02 00 00 00 00 03 AD AF 30 00 19 03)
      CLOS::PRINT-OBJECT))
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   COMMON-LISP::PPRINT-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PPRINT-DISPATCH
      #71Y(00 00 00 00 01 00 01 00 00 08 3B 01 03 0E 00 F9 95 01 63 B0 AE 99 01
           38 01 DC 80 B2 01 14 8D 91 11 92 00 08 99 03 00 14 40 02 19 05 5C 5C
           78 02 1B 75 93 00 0B 9E 5B 5C 78 9E 5C 78 91 01 31 03 87 01 00 83 01
           1B 4C)
      COMMON-LISP::*PRINT-PPRINT-DISPATCH* COMMON-LISP::TYPEP
      #.#'COMMON-LISP::CAR SYSTEM::DEFAULT-PRINT-DISPATCH-FUNCTION))
#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)
   COMMON-LISP::COPY-PPRINT-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::COPY-PPRINT-DISPATCH
      #46Y(00 00 00 00 00 00 01 00 00 07 3B 01 03 0E 00 F9 AD 89 01 08 92 01 12
           DA 61 01 19 02 DC DD AF DE DF E0 6F 07 E2 B4 33 06 1F 14 31 9E 19
           02)
      COMMON-LISP::*PRINT-PPRINT-DISPATCH* SYSTEM::PPRINT-DISPATCH-P
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::SATISFIES SYSTEM::PPRINT-DISPATCH-P)
      "~S: ~S is not a valid print dispatch table" SYSTEM::TEXT
      COMMON-LISP::COPY-PPRINT-DISPATCH))
#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::SET-PPRINT-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::SET-PPRINT-DISPATCH
      #117Y(00 00 00 00 02 00 02 00 00 0E 3B 02 02 C5 FA 3B 01 03 0E 01 F9 AE
            8F 12 1F B0 95 02 E3 38 01 E4 71 B2 92 00 3A 93 04 0D AE B2 B1 B3
            7B 02 95 05 31 B7 14 31 A9 00 19 06 DC DD B0 DE DF E0 6F 07 E2 DF
            B6 33 07 1F AF B1 7B 02 94 01 AD 31 A9 16 01 1B 62 AC 9E 5C 78 31
            A7 AC 9E 5C 5C 1B 53 92 04 64 9D 5C 1C 6D AE B2 95 04 38 07 CE FA
            CF FB 32 4F 1B FF BD)
      0. COMMON-LISP::*PRINT-PPRINT-DISPATCH* COMMON-LISP::TYPE-ERROR :DATUM
      :EXPECTED-TYPE COMMON-LISP::REAL "~S: priority must be a ~S, not ~S"
      SYSTEM::TEXT COMMON-LISP::SET-PPRINT-DISPATCH #.#'COMMON-LISP::EQUAL
      #.#'COMMON-LISP::CAR))
#Y(#:TOP-LEVEL-FORM-13
   #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::PPRINT-LOGICAL-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PPRINT-LOGICAL-BLOCK
      #381Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 81 5D 9F 5C 5B
            78 A0 5C 5B 5C 78 A1 5C 5B 5C 79 AC DC 63 72 83 AD DD 63 72 83 AE
            DE 63 72 83 A5 5C 79 B0 DF 31 5F B2 02 22 81 39 93 06 81 39 A3 14
            E2 72 8E E3 72 8E E4 72 8E E5 AE B5 7B 02 AE B4 7B 02 E6 B6 7B 02
            E7 E8 E9 EA EB B8 7B 02 D7 7C 02 7B 03 7B 02 D8 7C 04 EE E8 B1 03
            15 7C 02 F0 F1 F2 DC B5 03 19 7C 05 7B 03 EE E8 B2 F4 F5 B5 7B 02
            7B 02 7B 03 F6 F7 65 1E B5 65 1F 65 20 65 21 65 22 DC 65 23 BC 7B
            0B 7B 03 EE E8 B2 F4 F5 B5 7B 02 7B 02 7B 03 F6 65 24 65 1E B5 65
            1F 65 25 65 26 65 27 DE 65 28 BC 7B 0B 7B 03 65 29 65 2A 65 2B B7
            03 2C 7A E5 B8 03 2D 7A 7B 01 65 2E 65 2F 63 65 30 65 31 E8 65 32
            65 33 C1 03 34 7C 02 7B 03 65 35 65 36 C2 7B 03 03 37 7C 02 E8 65
            38 65 39 C2 7B 03 65 3A 65 3B C4 7B 03 7B 03 03 3C 7A 65 3D 65 3E
            C2 7B 02 03 3F 7C 02 64 65 35 65 40 66 19 7B 03 65 41 65 3B 65 42
            66 1B 7B 04 03 43 7C 03 7B 05 7B 02 7B 03 03 44 7A 65 45 EE BC 65
            35 BE C1 7B 03 65 46 65 47 65 39 C3 7B 04 7B 04 65 48 C0 65 49 EE
            BF 65 4A 65 4B 66 19 7B 03 65 35 C2 66 1A 7B 03 7B 04 7B 02 33 02
            23 7A 7B 05 7B 03 7B 03 BD B8 7B 04 61 07 19 0E AE 2F 01 19 03 CB
            1B FE C8 CC 1B FE C4)
      2. SYSTEM::MACRO-CALL-ERROR :PREFIX :PER-LINE-PREFIX :SUFFIX
      (:SUFFIX :PER-LINE-PREFIX :PREFIX) COMMON-LISP::*TERMINAL-IO*
      COMMON-LISP::*STANDARD-OUTPUT* "PPLB-IDX-" "PPLB-PREF-" "PPLB-SUFF-"
      COMMON-LISP::LET SYSTEM::*PRIN-LINE-PREFIX* SYSTEM::*PRIN-MISERP*
      COMMON-LISP::AND COMMON-LISP::*PRINT-MISER-WIDTH* COMMON-LISP::>
      SYSTEM::LINE-POSITION
      ((COMMON-LISP::-
        (COMMON-LISP::OR COMMON-LISP::*PRINT-RIGHT-MARGIN*
         SYSTEM::*PRIN-LINELENGTH*)
        COMMON-LISP::*PRINT-MISER-WIDTH*))
      ((SYSTEM::*PRIN-INDENTATION*
        (COMMON-LISP::IF (COMMON-LISP::BOUNDP 'SYSTEM::*PRIN-INDENTATION*)
         (COMMON-LISP::+ SYSTEM::*PRIN-INDENTATION*
          CUSTOM::*PRINT-INDENT-LISTS*)
         0.)))
      COMMON-LISP::WHEN (SYSTEM::*PRIN-LINE-PREFIX*) COMMON-LISP::ERROR
      (SYSTEM::TEXT "~S: cannot supply both ~S (~S) and ~S (~S)")
      'COMMON-LISP::PPRINT-LOGICAL-BLOCK
      (:PER-LINE-PREFIX SYSTEM::*PRIN-LINE-PREFIX*) COMMON-LISP::NOT
      COMMON-LISP::STRINGP SYSTEM::ERROR-OF-TYPE 'COMMON-LISP::TYPE-ERROR
      :DATUM :EXPECTED-TYPE 'COMMON-LISP::STRING
      (SYSTEM::TEXT "~S: ~S must be a ~S, not ~S")
      'COMMON-LISP::PPRINT-LOGICAL-BLOCK 'COMMON-LISP::STRING
      'COMMON-LISP::TYPE-ERROR 'COMMON-LISP::STRING
      (SYSTEM::TEXT "~S: ~S must be a ~S, not ~S")
      'COMMON-LISP::PPRINT-LOGICAL-BLOCK 'COMMON-LISP::STRING
      (COMMON-LISP::WHEN
       (COMMON-LISP::AND SYSTEM::*PRIN-LINE-PREFIX*
        (COMMON-LISP::NOT (COMMON-LISP::STRINGP SYSTEM::*PRIN-LINE-PREFIX*)))
       (SYSTEM::ERROR-OF-TYPE 'COMMON-LISP::TYPE-ERROR :DATUM
        SYSTEM::*PRIN-LINE-PREFIX* :EXPECTED-TYPE 'COMMON-LISP::STRING
        (SYSTEM::TEXT "~S: ~S must be a ~S, not ~S")
        'COMMON-LISP::PPRINT-LOGICAL-BLOCK :PREFIX 'COMMON-LISP::STRING
        SYSTEM::*PRIN-LINE-PREFIX*))
      SYSTEM::%PPRINT-LOGICAL-BLOCK COMMON-LISP::LAMBDA (SYSTEM::OBJ) (0.)
      COMMON-LISP::MACROLET COMMON-LISP::PPRINT-POP COMMON-LISP::QUOTE
      COMMON-LISP::COND COMMON-LISP::*PRINT-LENGTH* COMMON-LISP::>=
      (COMMON-LISP::*PRINT-LENGTH*) COMMON-LISP::WRITE-STRING "..."
      ((COMMON-LISP::GO SYSTEM::PPRINT-LOGICAL-BLOCK-END)) COMMON-LISP::/= 0.
      SYSTEM::%CIRCLEP SYSTEM::OBJ
      ((COMMON-LISP::GO SYSTEM::PPRINT-LOGICAL-BLOCK-END))
      (COMMON-LISP::LISTP SYSTEM::OBJ) COMMON-LISP::INCF
      ((COMMON-LISP::POP SYSTEM::OBJ)) ". " COMMON-LISP::WRITE :STREAM
      ((COMMON-LISP::GO SYSTEM::PPRINT-LOGICAL-BLOCK-END))
      ((COMMON-LISP::PPRINT-EXIT-IF-LIST-EXHAUSTED COMMON-LISP::NIL
        '(COMMON-LISP::UNLESS SYSTEM::OBJ
          (COMMON-LISP::GO SYSTEM::PPRINT-LOGICAL-BLOCK-END))))
      (COMMON-LISP::INCF SYSTEM::*PRIN-LEVEL*) COMMON-LISP::PPRINT-INDENT
      :CURRENT COMMON-LISP::TAGBODY SYSTEM::PPRINT-LOGICAL-BLOCK-END
      COMMON-LISP::PPRINT-NEWLINE :FILL)
   SYSTEM::MAKE-MACRO)
#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)
   COMMON-LISP::PPRINT-TAB SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PPRINT-TAB
      #70Y(00 00 00 00 03 00 01 00 00 0A 3D 01 AD A2 26 00 03 00 1B 10 DB DC B3
           DD DE 2E 05 14 E0 E1 70 08 A9 1B 16 02 14 A3 26 09 03 00 1B 12 DB DC
           B4 DD E4 2E 05 14 E0 E5 70 08 AA 14 33 06 1F 02 14 B2 B2 2D 05 0C 19
           05)
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:SECTION-RELATIVE . 19.)
         (:SECTION . 19.) (:LINE-RELATIVE . 1.) (:LINE . 1.))
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::MEMBER :LINE :LINE-RELATIVE :SECTION :SECTION-RELATIVE)
      SYSTEM::TYPE-ERROR-STRING SYSTEM::KIND
      (:LINE :LINE-RELATIVE :SECTION :SECTION-RELATIVE)
      SYSTEM::CASE-ERROR-STRING
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:SECTION-RELATIVE . 21.)
         (:LINE-RELATIVE . 21.) (:SECTION . 1.) (:LINE . 1.))
      (COMMON-LISP::MEMBER :LINE :SECTION :LINE-RELATIVE :SECTION-RELATIVE)
      (:LINE :SECTION :LINE-RELATIVE :SECTION-RELATIVE)
      SYSTEM::FORMAT-TABULATE))
#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)
   COMMON-LISP::PPRINT-FILL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PPRINT-FILL
      #212Y(00 00 00 00 02 00 02 00 00 0E 3B 02 02 7E 02 00 2B 02 92 03 80 6C
            C6 0B 00 00 92 03 80 68 C8 0B 00 01 63 0E 04 1D 12 B2 71 8F 0E 05
            1C 02 0E 06 14 6B 04 73 01 37 33 01 31 14 E1 8C 4E 80 4B CE 10 07
            A1 10 0A A3 10 0B 06 0B 00 1D 05 0E 0A 1C 80 42 06 0B 00 1D 05 14
            8F 05 80 46 06 0B 01 1D 05 14 8F 05 80 4E 0E 0A 1D 80 5C 14 8E 05
            80 57 EB EC 6B 0A ED EE F2 6F 0D E8 E9 EE 0E 0A 14 33 08 1F C5 1B
            FF 91 C7 1B FF 95 6B 07 6B 08 33 02 36 1B FF AC E6 6F 0D E8 E9 68
            0E 00 EA 6B 0A 33 05 1E EB EC 68 0D 00 ED EE EF 6F 0D E8 E9 EE 06
            14 00 1B 4A EB EC 68 0D 01 ED EE F0 6F 0D E8 F1 EE 06 14 01 1B FF
            B7 B7 6D 19 01 BC BE 2D 03 1A 12 03 19 08)
      "(" "" ")" "" COMMON-LISP::*PRINT-MISER-WIDTH*
      COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH*
      SYSTEM::*PRIN-INDENTATION* CUSTOM::*PRINT-INDENT-LISTS* 0.
      SYSTEM::*PRIN-LINE-PREFIX* SYSTEM::*PRIN-MISERP*
      "~S: cannot supply both ~S (~S) and ~S (~S)" SYSTEM::TEXT
      COMMON-LISP::PPRINT-LOGICAL-BLOCK :PREFIX :PER-LINE-PREFIX
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::STRING
      "~S: ~S must be a ~S, not ~S" "~S: ~S must be a ~S, not ~S" :SUFFIX
      "~S: ~S must be a ~S, not ~S"
      #Y(COMMON-LISP::PPRINT-FILL-1
         #152Y(00 00 00 00 02 00 00 00 00 03 DB 6B 02 32 95 0F 02 07 00 01 1C
               20 93 02 80 6A 0E 05 1D 80 48 AC 6B 05 91 01 33 80 40 E0 B0 38
               02 31 88 07 00 02 1D 80 62 1B 80 53 14 B0 38 02 31 88 DD DB B1
               2D 03 04 93 02 3F 1B 53 E2 B0 38 02 31 88 AE 38 10 C0 31 7F 07
               00 02 1D 3D 1B 2F E3 B0 31 87 E4 B0 30 0B 0E 05 1C FF B8 DB AD
               91 01 2F 05 AE B0 8A 07 12 AE 8F 09 51 85 00 94 02 83 03 38 10
               C0 31 7F 92 02 56 07 00 02 1D 0C E4 B0 30 0B 69 00 02 B0 38 02
               31 88 00 19 04)
         COMMON-LISP::NIL 0. SYSTEM::*PRIN-LEVEL* :CURRENT
         COMMON-LISP::PPRINT-INDENT COMMON-LISP::*PRINT-LENGTH* "..."
         SYSTEM::%CIRCLEP ". " #\Space :FILL COMMON-LISP::PPRINT-NEWLINE)
      SYSTEM::%PPRINT-LOGICAL-BLOCK))
#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)
   COMMON-LISP::PPRINT-LINEAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PPRINT-LINEAR
      #212Y(00 00 00 00 02 00 02 00 00 0E 3B 02 02 7E 02 00 2B 02 92 03 80 6C
            C6 0B 00 00 92 03 80 68 C8 0B 00 01 63 0E 04 1D 12 B2 71 8F 0E 05
            1C 02 0E 06 14 6B 04 73 01 37 33 01 31 14 E1 8C 4E 80 4B CE 10 07
            A1 10 0A A3 10 0B 06 0B 00 1D 05 0E 0A 1C 80 42 06 0B 00 1D 05 14
            8F 05 80 46 06 0B 01 1D 05 14 8F 05 80 4E 0E 0A 1D 80 5C 14 8E 05
            80 57 EB EC 6B 0A ED EE F2 6F 0D E8 E9 EE 0E 0A 14 33 08 1F C5 1B
            FF 91 C7 1B FF 95 6B 07 6B 08 33 02 36 1B FF AC E6 6F 0D E8 E9 68
            0E 00 EA 6B 0A 33 05 1E EB EC 68 0D 00 ED EE EF 6F 0D E8 E9 EE 06
            14 00 1B 4A EB EC 68 0D 01 ED EE F0 6F 0D E8 F1 EE 06 14 01 1B FF
            B7 B7 6D 19 01 BC BE 2D 03 1A 12 03 19 08)
      "(" "" ")" "" COMMON-LISP::*PRINT-MISER-WIDTH*
      COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH*
      SYSTEM::*PRIN-INDENTATION* CUSTOM::*PRINT-INDENT-LISTS* 0.
      SYSTEM::*PRIN-LINE-PREFIX* SYSTEM::*PRIN-MISERP*
      "~S: cannot supply both ~S (~S) and ~S (~S)" SYSTEM::TEXT
      COMMON-LISP::PPRINT-LOGICAL-BLOCK :PREFIX :PER-LINE-PREFIX
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::STRING
      "~S: ~S must be a ~S, not ~S" "~S: ~S must be a ~S, not ~S" :SUFFIX
      "~S: ~S must be a ~S, not ~S"
      #Y(COMMON-LISP::PPRINT-LINEAR-1
         #152Y(00 00 00 00 02 00 00 00 00 03 DB 6B 02 32 95 0F 02 07 00 01 1C
               20 93 02 80 6A 0E 05 1D 80 48 AC 6B 05 91 01 33 80 40 E0 B0 38
               02 31 88 07 00 02 1D 80 62 1B 80 53 14 B0 38 02 31 88 DD DB B1
               2D 03 04 93 02 3F 1B 53 E2 B0 38 02 31 88 AE 38 10 C0 31 7F 07
               00 02 1D 3D 1B 2F E3 B0 31 87 E4 B0 30 0B 0E 05 1C FF B8 DB AD
               91 01 2F 05 AE B0 8A 07 12 AE 8F 09 51 85 00 94 02 83 03 38 10
               C0 31 7F 92 02 56 07 00 02 1D 0C E6 B0 30 0B 69 00 02 B0 38 02
               31 88 00 19 04)
         COMMON-LISP::NIL 0. SYSTEM::*PRIN-LEVEL* :CURRENT
         COMMON-LISP::PPRINT-INDENT COMMON-LISP::*PRINT-LENGTH* "..."
         SYSTEM::%CIRCLEP ". " #\Space :LINEAR COMMON-LISP::PPRINT-NEWLINE
         :FILL)
      SYSTEM::%PPRINT-LOGICAL-BLOCK))
#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)
   COMMON-LISP::PPRINT-TABULAR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::PPRINT-TABULAR
      #236Y(00 00 00 00 02 00 03 00 00 12 00 2B 01 3B 04 02 7E 04 3B 02 80 7B
            00 0B 00 00 C5 0B 00 00 9D 2B 02 92 05 80 75 C7 0B 00 00 92 05 80
            71 C9 0B 00 01 63 0E 05 1D 12 B4 71 8F 0E 06 1C 02 0E 07 14 6B 05
            73 01 37 33 01 31 14 E2 8C 4E 80 54 CF 10 08 A1 10 0B A3 10 0C 06
            0B 00 1D 05 0E 0B 1C 80 4B 06 0B 00 1D 05 14 8F 05 80 4F 06 0B 01
            1D 05 14 8F 05 80 57 0E 0B 1D 80 65 14 8E 05 80 60 EC ED 6B 0B EE
            EF F3 6F 0E E9 EA EF 0E 0B 14 33 08 1F 0B 00 00 1D FF 83 1B FF 84
            C6 1B FF 88 C8 1B FF 8C 6B 08 6B 09 33 02 36 1B FF A3 E7 6F 0E E9
            EA 68 0E 00 EB 6B 0B 33 05 1E EC ED 68 0D 00 EE EF F0 6F 0E E9 EA
            EF 06 14 00 1B 41 EC ED 68 0D 01 EE EF F1 6F 0E E9 F2 EF 06 14 01
            1B FF AE B7 6D 1A 01 BE C0 2D 03 1B 12 03 19 0A)
      16. "(" "" ")" "" COMMON-LISP::*PRINT-MISER-WIDTH*
      COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH*
      SYSTEM::*PRIN-INDENTATION* CUSTOM::*PRINT-INDENT-LISTS* 0.
      SYSTEM::*PRIN-LINE-PREFIX* SYSTEM::*PRIN-MISERP*
      "~S: cannot supply both ~S (~S) and ~S (~S)" SYSTEM::TEXT
      COMMON-LISP::PPRINT-LOGICAL-BLOCK :PREFIX :PER-LINE-PREFIX
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE COMMON-LISP::STRING
      "~S: ~S must be a ~S, not ~S" "~S: ~S must be a ~S, not ~S" :SUFFIX
      "~S: ~S must be a ~S, not ~S"
      #Y(COMMON-LISP::PPRINT-TABULAR-1
         #163Y(00 00 00 00 02 00 00 00 00 03 DB 6B 02 32 95 0F 02 07 00 01 1C
               20 93 02 80 75 0E 05 1D 80 53 AC 6B 05 91 01 33 80 4B E0 B0 38
               02 31 88 07 00 02 1D 80 6D 1B 80 5E 14 B0 38 02 31 88 DD DB B1
               2D 03 04 93 02 80 49 1B 52 E2 B0 38 02 31 88 AE 38 10 C0 31 7F
               07 00 02 1D 80 46 1B 38 E3 B0 31 87 E4 DB 69 01 01 B2 2D 04 0B
               E6 B0 30 0D 0E 05 1C FF AD DB AD 91 01 2F 05 AE B0 8A 07 12 AE
               8F 09 47 85 00 94 02 83 03 38 10 C0 31 7F 92 02 4D 07 00 02 1D
               0C E6 B0 30 0D 69 00 02 B0 38 02 31 88 00 19 04)
         COMMON-LISP::NIL 0. SYSTEM::*PRIN-LEVEL* :CURRENT
         COMMON-LISP::PPRINT-INDENT COMMON-LISP::*PRINT-LENGTH* "..."
         SYSTEM::%CIRCLEP ". " #\Space :SECTION-RELATIVE
         COMMON-LISP::PPRINT-TAB :FILL COMMON-LISP::PPRINT-NEWLINE)
      SYSTEM::%PPRINT-LOGICAL-BLOCK))
