(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
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 87 DA DC DD 32 86 DA DE 63 2D 03
        05 C5 19 01)
   SYSTEM::%STRUCTURE-REF SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SYSTEM::%STRUCTURE-STORE COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION)
#Y(#:TOP-LEVEL-FORM-3
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::MAKE-DS-SLOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-DS-SLOT
      #22Y(00 00 00 00 07 00 00 00 00 00 B3 B3 B3 B3 B3 B3 B3 33 07 00 19 08)))
#Y(#:TOP-LEVEL-FORM-4 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (COMMON-LISP::INLINE SYSTEM::DS-SLOT-NAME))
#Y(#:TOP-LEVEL-FORM-5
   #25Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 32 86 DA DE 32 80 C5 19
        01)
   SYSTEM::DS-SLOT-NAME SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::INLINE-EXPANSION
   ((SYSTEM::SLOT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::DS-SLOT-NAME))
    (COMMON-LISP::BLOCK SYSTEM::DS-SLOT-NAME
     (COMMON-LISP::SVREF SYSTEM::SLOT 0.)))
   #Y(SYSTEM::DS-SLOT-NAME #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5F 19 02)
      0.))
#Y(#:TOP-LEVEL-FORM-6
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DS-SLOT-OFFSET SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-SLOT-OFFSET
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC AD
           C8 62 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::SVREF (2.))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-7
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DS-SLOT-INITER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-SLOT-INITER
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC AD
           C8 62 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::SVREF (3.))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-8
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DS-SLOT-DEFAULT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-SLOT-DEFAULT
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC AD
           C8 62 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::SVREF (4.))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-9
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DS-SLOT-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-SLOT-TYPE
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC AD
           C8 62 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::SVREF (5.))
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-10
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   SYSTEM::DS-SLOT-READONLY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-SLOT-READONLY
      #33Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 0A 9F 5C 78 DC AD
           C8 62 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::SVREF (6.))
   SYSTEM::MAKE-MACRO)
#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::COPY-DS-SLOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::COPY-DS-SLOT #15Y(00 00 00 00 01 00 00 00 00 02 AD 31 02 19 02)))
#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)
   SYSTEM::DS-SYMBOL-OR-ERROR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-SYMBOL-OR-ERROR
      #26Y(00 00 00 00 01 00 00 00 00 02 AD 8F 04 03 00 19 02 DA DB 6F 02 DD B0
           33 02 1F)
      SYSTEM::SOURCE-PROGRAM-ERROR "~S: this is not a symbol: ~S" SYSTEM::TEXT
      COMMON-LISP::DEFSTRUCT))
#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::DS-ARG-DEFAULT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-ARG-DEFAULT
      #34Y(00 00 00 00 02 00 00 00 00 03 AD C5 5F 14 AC 38 01 8C 5D 0A AF DB AE
           61 02 14 61 02 19 04 AF 9E 1B 77)
      4. SYSTEM::%FUNCALL))
#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::DS-MAKE-CONSTRUCTOR-BODY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-CONSTRUCTOR-BODY
      #253Y(00 00 00 00 05 00 00 00 00 06 B1 25 00 80 8C AD DB 92 01 80 7C 16
            02 DA 63 AF 1B 20 DE AD CA 5F 14 AE 6F 03 61 03 1B 0D 94 00 AC 88
            03 6E E0 AD CC 5F 14 61 02 14 84 02 16 01 83 00 9D 21 69 16 01 AC
            31 A2 16 01 5D 19 06 E4 B2 B2 61 03 1B 80 5F D1 1B 80 57 E7 B1 E8
            E0 A8 5C 78 7B 02 61 04 1B 80 4D EA E0 B9 7B 02 E3 B0 61 04 1B 80
            67 EB AE D7 62 02 1B 80 5F ED CE 1B 80 56 DE B0 CA 5F 14 B1 6F 03
            61 03 1B 80 5A 83 01 85 00 93 01 FF 84 94 01 C7 5F 14 9E 22 70 16
            02 E2 E3 B3 02 22 FF A7 B3 24 0B FF AA A4 21 FF AA D2 14 B1 61 02
            14 7B 02 7B 01 63 B0 9D 20 35 94 00 AC C7 5F 14 E9 B8 02 22 FF 9D
            B8 24 0B FF A4 B8 24 00 FF A7 EE CE 14 AF 61 03 14 AF 88 03 FF A0
            E0 B0 CC 5F 14 61 02 14 61 03 F8 84 02 16 01 83 00 1B 48 16 01 AC
            80 A2 00 EF 33 02 23 62 02 19 06)
      COMMON-LISP::VECTOR 0. 2. SYSTEM::DS-SLOT-NAME COMMON-LISP::THE 5.
      COMMON-LISP::QUOTE 4. COMMON-LISP::LET SYSTEM::OBJECT
      SYSTEM::%MAKE-STRUCTURE COMMON-LISP::LIST COMMON-LISP::MAKE-LIST
      COMMON-LISP::MAKE-ARRAY :ELEMENT-TYPE COMMON-LISP::SETF
      SYSTEM::%STRUCTURE-REF COMMON-LISP::NTH (SYSTEM::OBJECT)
      COMMON-LISP::SVREF COMMON-LISP::AREF (SYSTEM::OBJECT)))
#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::DS-ARG-WITH-DEFAULT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-ARG-WITH-DEFAULT
      #63Y(00 00 00 00 02 00 00 00 00 03 AE 8F 09 04 9F 5C 21 1B AE 8E 09 1A 9F
           14 9D 21 19 9D 14 AF 38 06 9A 00 02 C6 F9 72 5A 92 00 0F A1 19 05 9F
           19 03 9F 5B 1B 63 9D 5C 5B 1B 63 AD AD 30 02 19 05)
      SYSTEM::DS-SLOT-NAME #.#'COMMON-LISP::EQ SYSTEM::DS-ARG-DEFAULT))
#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::DS-MAKE-BOA-CONSTRUCTOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-BOA-CONSTRUCTOR
      #346Y(00 00 00 00 06 00 00 00 00 00 94 06 A4 5C 78 63 AD 63 1B 25 9D 5B
            1B 15 9D 5C 5B 1B 15 87 01 00 14 DA DB 38 02 8C B2 0F AC 8E 09 68
            9D 14 9D 21 67 9D 14 84 03 16 01 83 01 AD 8D 91 60 16 02 AC 81 47
            00 AD 01 02 1B 05 AD 84 00 83 02 AE 8C 91 0B 87 02 01 14 DA DB 38
            02 8D B2 6C AC 32 47 16 02 F8 DC AF DB 38 02 31 B2 79 01 02 1B 15
            00 16 03 1B 29 DE 9E 5C 78 61 02 1B 2D AD B5 70 03 84 00 83 02 AE
            8C 91 0B 87 02 01 14 DA DB 38 02 8D B2 69 93 00 59 DC AD 32 47 5D
            16 03 14 DE B0 DB 38 02 71 B2 92 00 4C 00 F8 DF B1 DB 38 02 31 B2
            79 01 02 1B 17 83 02 DF AD E1 33 02 23 1B 2D 00 16 03 1B 2B AD B7
            70 03 84 00 83 02 AE 8C 91 0B 87 02 01 14 DA DB 38 02 8D B2 69 AC
            81 47 00 9F 20 05 94 02 24 06 4E 93 00 55 DF 9E 5D 16 03 14 E2 E2
            B3 DB 38 02 31 B2 79 01 02 93 02 16 87 02 01 14 DA DB 38 02 8C B2
            0B AD B9 70 03 84 00 83 02 92 02 6A AC 32 47 16 02 F8 63 B7 63 1B
            1B 87 01 00 14 89 09 12 AC 6F 09 B6 DB 38 02 8C B2 08 AC 6F 09 BA
            70 03 84 02 83 01 AD 8D 91 61 16 02 AC 81 47 00 33 02 23 7A 73 05
            23 E4 B0 AE B8 B8 B8 B8 B8 6E 05 0B 61 04 19 0B)
      #.COMMON-LISP::LAMBDA-LIST-KEYWORDS #.#'COMMON-LISP::EQ
      COMMON-LISP::&OPTIONAL SYSTEM::DS-ARG-WITH-DEFAULT COMMON-LISP::&REST
      COMMON-LISP::&KEY COMMON-LISP::&ALLOW-OTHER-KEYS
      (COMMON-LISP::&ALLOW-OTHER-KEYS) COMMON-LISP::&AUX SYSTEM::DS-SLOT-NAME
      COMMON-LISP::DEFUN SYSTEM::DS-MAKE-CONSTRUCTOR-BODY))
#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::DS-MAKE-KEYWORD-CONSTRUCTOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-KEYWORD-CONSTRUCTOR
      #66Y(00 00 00 00 06 00 00 00 00 00 DA B3 DB 63 B1 1B 1A AC 6F 02 AD 70 03
           61 01 1B 07 94 00 AC 88 02 70 00 14 AF 80 A0 02 16 01 83 00 9D 21 6D
           16 01 AC 31 A2 16 01 7A B4 B4 B4 B4 B4 6E 05 04 61 04 19 07)
      COMMON-LISP::DEFUN COMMON-LISP::&KEY SYSTEM::DS-SLOT-NAME
      SYSTEM::DS-ARG-DEFAULT SYSTEM::DS-MAKE-CONSTRUCTOR-BODY))
#Y(#:TOP-LEVEL-FORM-18
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SYSTEM::DS-MAKE-PRED SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-PRED
      #127Y(00 00 00 00 04 00 00 00 00 05 AF 02 22 2D 00 14 DD B2 DE B3 02 22
            32 B3 24 07 80 45 E2 EB E7 EC B5 7B 03 E5 ED EE B7 7B 03 DB B8 7B
            02 7B 03 61 04 14 7B 04 7B 01 33 02 23 19 05 DA DB DC B3 7B 02 7B
            02 7B 02 61 01 1B 46 DF DB B4 7B 02 CB 62 02 1B 5E E5 E6 DB B7 7B
            02 7B 03 61 01 62 02 1B 50 E2 E3 B3 24 0A 6C E7 E8 B5 7B 03 E5 E9
            B6 D5 7C 02 DB B8 7B 02 7B 03 61 02 62 02 1B FF B2)
      COMMON-LISP::PROCLAIM COMMON-LISP::QUOTE COMMON-LISP::INLINE
      COMMON-LISP::DEFUN (SYSTEM::OBJECT) SYSTEM::%STRUCTURE-TYPE-P
      (SYSTEM::OBJECT) COMMON-LISP::LIST COMMON-LISP::AND
      (COMMON-LISP::CONSP SYSTEM::OBJECT) 0. COMMON-LISP::EQ
      (COMMON-LISP::CAR SYSTEM::OBJECT) COMMON-LISP::>
      (COMMON-LISP::LENGTH SYSTEM::OBJECT) COMMON-LISP::NTH (SYSTEM::OBJECT)
      (COMMON-LISP::SIMPLE-VECTOR-P SYSTEM::OBJECT)
      (COMMON-LISP::LENGTH SYSTEM::OBJECT) COMMON-LISP::SVREF SYSTEM::OBJECT))
#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::DS-MAKE-COPIER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-COPIER
      #88Y(00 00 00 00 03 00 00 00 00 04 AD 02 22 1F AD 24 00 1B 00 14 DE B1 DF
           B1 02 22 20 B1 24 00 1F A2 21 1F D4 14 7B 04 7B 01 33 02 23 19 04 DB
           DC DD B2 7B 02 7B 02 7B 02 61 01 1B 58 CB 1B 65 CC 1B 62 E2 E3 E4 E5
           E6 E7 DC A9 5C 78 7B 02 7B 04 7B 02 7B 02 D3 62 02 1B 4B)
      COMMON-LISP::LIST COMMON-LISP::PROCLAIM COMMON-LISP::QUOTE
      COMMON-LISP::INLINE COMMON-LISP::DEFUN (COMMON-LISP::STRUCTURE)
      (COMMON-LISP::COPY-STRUCTURE COMMON-LISP::STRUCTURE)
      (COMMON-LISP::COPY-LIST COMMON-LISP::STRUCTURE) COMMON-LISP::LET*
      (SYSTEM::OBJ-LENGTH
       (COMMON-LISP::ARRAY-TOTAL-SIZE COMMON-LISP::STRUCTURE))
      SYSTEM::OBJECT COMMON-LISP::MAKE-ARRAY SYSTEM::OBJ-LENGTH :ELEMENT-TYPE
      ((COMMON-LISP::DOTIMES (SYSTEM::I SYSTEM::OBJ-LENGTH SYSTEM::OBJECT)
        (COMMON-LISP::SETF (COMMON-LISP::AREF SYSTEM::OBJECT SYSTEM::I)
         (COMMON-LISP::AREF COMMON-LISP::STRUCTURE SYSTEM::I))))
      (SYSTEM::%COPY-SIMPLE-VECTOR COMMON-LISP::STRUCTURE)))
#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::DS-MAKE-ACCESSORS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-ACCESSORS
      #168Y(00 00 00 00 05 00 00 00 00 06 63 AE 9D 20 80 91 94 00 AC 89 00 80
            7D B1 AD 6F 00 70 01 AD C7 5F 14 AE C8 5F 14 AE DE B9 72 82 95 0B
            DF 38 02 8C B2 80 46 E0 E1 E2 B1 BB 7B 01 B1 7B 04 7B 02 7B 02 E0
            E1 E3 B2 7B 02 7B 02 7B 02 E4 B1 E5 E6 B2 BC 02 22 2A BC 24 0F 31
            04 10 21 34 ED D3 14 B6 61 03 14 7B 03 7B 04 EE E1 B3 7B 02 EF E1
            BE 7B 02 7B 04 61 04 16 03 1B 1C 00 16 03 1B 17 E7 E1 C0 7B 02 E8
            B7 61 04 1B 59 EA B5 D6 62 02 1B 52 EC D3 1B 4A 00 14 AF 80 A0 02
            16 01 83 00 1B FF 6B 16 01 AC 31 A2 19 07)
      SYSTEM::DS-SLOT-NAME SYSTEM::CONCAT-PNAMES 2. 5. SYSTEM::DEFSTRUCT-READER
      #.#'COMMON-LISP::EQ COMMON-LISP::PROCLAIM COMMON-LISP::QUOTE
      COMMON-LISP::FUNCTION COMMON-LISP::INLINE COMMON-LISP::DEFUN
      (SYSTEM::OBJECT) COMMON-LISP::THE SYSTEM::%STRUCTURE-REF SYSTEM::OBJECT
      COMMON-LISP::LIST COMMON-LISP::NTH (SYSTEM::OBJECT) COMMON-LISP::AREF
      COMMON-LISP::SVREF SYSTEM::%PUT 'SYSTEM::DEFSTRUCT-READER))
#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::DS-MAKE-DEFSETFS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::DS-MAKE-DEFSETFS
      #194Y(00 00 00 00 05 00 00 00 00 06 63 AE 1B 80 A8 00 16 03 1B 80 99 D3
            1B 18 E4 E5 E6 E6 BF 7B 02 7B 02 E7 B5 B5 02 22 6E E4 E9 E6 B8 7B
            02 D5 62 03 14 61 06 1B 80 65 E4 EB E4 EC B5 D8 7C 03 D9 62 03 1B
            80 57 E4 EF E4 F0 E7 B6 7B 04 03 17 62 03 1B 80 48 94 00 AC 89 00
            80 54 AC C6 5F 59 1D 80 4D B1 AD 6F 00 70 02 AD C8 5F 14 AE C9 5F
            14 AE DF B9 72 82 95 0B E0 38 02 8C B2 FF 92 E1 AF E2 E3 B9 02 22
            FF 92 B9 24 0A FF AB AA 21 FF B5 E4 F2 E4 F3 E7 B6 7B 04 03 1A 62
            03 14 7B 05 F5 E6 B1 7B 02 F6 E6 BC 7B 02 7B 04 61 02 16 03 14 AF
            80 A0 02 16 01 83 00 9D 21 FF 98 16 01 AC 31 A2 19 07)
      SYSTEM::DS-SLOT-NAME 6. SYSTEM::CONCAT-PNAMES 2. 5.
      SYSTEM::DEFSTRUCT-WRITER #.#'COMMON-LISP::EQ COMMON-LISP::DEFSETF
      (SYSTEM::STRUCT) (SYSTEM::VALUE) COMMON-LISP::LIST
      'SYSTEM::%STRUCTURE-STORE COMMON-LISP::QUOTE SYSTEM::STRUCT SYSTEM::VALUE
      'COMMON-LISP::THE (SYSTEM::VALUE) 'COMMON-LISP::SETF 'COMMON-LISP::NTH
      (SYSTEM::STRUCT) (SYSTEM::VALUE) 'COMMON-LISP::SETF 'COMMON-LISP::AREF
      (SYSTEM::VALUE) 'COMMON-LISP::SETF 'COMMON-LISP::SVREF (SYSTEM::VALUE)
      SYSTEM::%PUT 'SYSTEM::DEFSTRUCT-WRITER))
#Y(#:TOP-LEVEL-FORM-22
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   CLOS::DEFINE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CLOS::DEFINE-STRUCTURE-CLASS
      #14Y(00 00 00 00 01 00 00 00 00 02 2E 00 19 02)
      SYSTEM::NOTE-NEW-STRUCTURE-CLASS))
#Y(#:TOP-LEVEL-FORM-23
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
      #13Y(00 00 00 00 01 00 00 00 00 02 00 19 02)))
#Y(#:TOP-LEVEL-FORM-24
   #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::DEFSTRUCT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COMMON-LISP::DEFSTRUCT
      #1685Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 30 34 9F 5C 78 A0
             5C 79 AD 63 64 01 02 64 DC 01 05 64 DC DC DC 63 BD 63 DC DC 01 04
             66 1A 8F 09 08 87 1A 18 04 1A 5C 09 17 C4 8F 04 0E C4 8E 8B 0A C3
             63 1B 81 2C AE 2F 01 19 03 DD DE 6F 05 E0 04 1D 1B 81 3E 9D 5B 26
             07 80 D5 CD 09 18 1B 81 0F 9D 5C 5B 1D 75 09 18 1B 81 05 E3 66 1B
             70 0A 84 17 1B 80 FB 9D 1B 26 DD E6 6F 05 E0 66 1E A2 5C 5C 5B 1B
             84 6C 9D 5C 20 61 9D 5C 78 AC 2F 0B 9E 5C 5C 20 60 9E 5C 5C 78 8F
             09 5C 9E 5C 14 84 18 16 01 1B 80 CA 9D 5C 20 80 C5 9D 5C 78 AC 2F
             0B 9D 09 16 16 01 1B 80 B7 9D 5C 20 80 B2 9D 5C 78 AC 2F 0B 9D 09
             15 16 01 1B 80 A4 DD E7 6F 05 E0 66 1D 04 1D 1B 84 1A 92 13 71 9D
             09 13 1B 80 8F D3 09 0F 1B 80 89 03 15 1B 29 9D 5C 1D 72 9D 5C 78
             9D 20 16 94 00 25 0F 11 EA 6F 05 E0 94 03 A0 5C 78 B0 2D 05 11 9D
             5C 5B F8 AC EC ED 94 04 24 14 54 00 62 03 09 10 16 01 1B 80 53 9D
             5C 5B 09 0E 1B 80 4B 7E 0D 1B 80 46 C7 09 0C 1B 80 40 DD F0 6F 05
             E0 66 1D A1 5B 1B 83 B6 94 00 8E 8B FF 13 DD F1 6F 05 E0 66 1D CB
             1B 17 87 01 00 14 8F 8B 04 AC 61 01 F8 AC 8E 09 61 DD F2 6F 05 E0
             66 1D CB 14 A2 1B 81 3F 9D 5C 5B 1D FF BC 09 0C 83 01 AD 8D 91 56
             16 02 B8 02 5A 1D 82 2E 09 0B 1C 82 31 BE 24 02 82 36 93 12 82 32
             DD F4 6F 05 E0 04 1B 14 33 02 1F C4 71 4A F5 82 02 13 16 92 15 82
             24 F6 66 19 70 0A 61 01 09 15 1B 82 1F DD 65 20 6F 05 CB 1B 81 CE
             DD 65 21 6F 05 E0 66 1B AB 1B 83 2E DD 65 22 6F 05 E0 66 1B 04 1B
             1B 83 21 DD 65 25 6F 05 E0 04 1E 1B 83 14 DD 65 2C 6F 05 E0 66 1E
             B1 04 14 1B 80 BD 87 19 08 04 19 5C FF 93 11 82 20 79 94 00 AC 65
             24 38 01 72 82 93 00 4F 66 1B AD C7 5F 5D 09 13 38 01 81 8E 12 14
             65 26 65 27 66 1E 7B 02 65 28 65 29 65 27 B3 7B 02 03 2A 7C 02 03
             2B 7C 02 7B 03 7B 02 61 01 09 11 AC 03 23 5F 14 BC 8F 01 FF A1 63
             AD 03 2D 5F 14 1B 25 9D 1B 80 46 94 00 AC AC 2F 2E F8 14 03 2D 5F
             5B 1D 0D AC 03 2F 5F 14 6F 30 00 7A AD 03 2D 60 84 02 16 01 83 00
             9D 21 5C 16 01 AC 80 A2 00 81 47 06 1D 07 78 C5 5F 14 81 95 08 95
             02 63 AD 8C 91 80 D4 87 01 00 20 FF B8 9D 5B 14 AC B6 38 06 9A 31
             02 03 32 F9 72 5A 92 00 16 DD 65 33 6F 05 E0 66 22 B5 A3 14 33 04
             1F 63 AD 03 2F 60 1B 80 9F 9F 20 75 9F 5C 78 AC 38 01 8C 5D 18 E9
             65 34 B0 70 0A 65 35 63 B0 7B 03 7B 03 84 09 38 01 81 8E 00 14 84
             0A AC AE 03 2F 60 16 01 9F 5C 79 1B 80 68 64 B0 03 37 60 1B 80 5A
             DD 65 38 6F 05 E0 66 25 B4 B9 66 28 33 05 1F 92 00 66 AF 03 37 5F
             1C 68 63 B0 03 37 60 1B 3B DD 65 3D 6F 05 E0 66 25 B0 B5 BA B6 03
             3B 5F 14 33 06 1F DD 65 3E 6F 05 CB 1B 81 C6 94 00 9E 5C 78 AD 24
             36 4B AD 25 39 6A AC 6F 3A B0 03 3B 5F 14 6F 3A 8B 3C 4A AC B0 03
             3B 60 16 02 9D 5C 5C F8 AC 8D 91 57 16 01 16 02 83 01 1B FF 27 16
             02 94 14 25 3F 04 B2 81 45 07 16 03 93 0B 80 E6 1B 80 D6 C4 61 01
             09 10 65 27 BD 61 02 09 0F 93 0B 80 D3 1B 80 C3 DD 65 43 6F 05 CB
             14 66 1B 04 10 1B 81 64 9F F9 7D 00 1B 80 F6 DD 65 49 6F 05 E0 04
             20 1B 81 50 7E 03 1B 81 53 92 00 78 FB 1B 81 4C B7 02 5A 09 0B 1D
             FD CF BE 25 02 06 C4 F3 30 0A 09 12 C2 02 22 FD D4 93 15 FD DC 63
             C2 38 07 81 4C 15 BF 02 23 07 F7 66 19 30 0A 09 13 B8 02 22 12 B8
             24 1E 0E B8 24 1F 0A A9 20 FD C6 94 0C 25 1E FD C0 B6 8F 0A FD C4
             B6 DC 91 01 33 FD BD B6 8F 91 05 B8 02 22 FD C0 B8 02 23 03 03 23
             FD 94 19 8E 05 FD D9 92 11 FD E0 C4 24 40 FF 53 C4 65 40 65 24 38
             01 72 82 C7 5F 5D 09 10 38 01 81 8E 0F 14 65 26 65 27 66 1B 7B 02
             03 41 7C 02 7B 02 61 01 09 0E 93 0B 0D A9 20 0A BC AA 5C 78 6F 3A
             8B 42 FF 30 B1 B7 82 02 36 09 B8 02 22 19 93 0B 16 01 02 A8 09 0C
             14 63 04 1C 7A 66 1C 65 44 64 6E 07 45 84 03 85 09 B5 B4 63 AD 8C
             91 80 BD 87 01 00 01 02 9F 20 FF 0A 87 02 01 9F 5C 5B F8 AC 38 01
             8C 5D 18 E9 65 46 AF 70 0A 65 35 63 B0 7B 03 7B 03 84 06 38 01 81
             8E 00 14 84 07 AD 72 8A B5 38 06 03 47 FA 03 48 F9 8E 5A FE DC 65
             4A AE 38 04 8D 34 0B 65 4B 6F 05 E0 66 1F B0 2D 04 11 64 63 A1 20
             80 42 A1 5C 79 AC 8C 91 39 94 00 9E 5C 78 AD 24 36 FE C2 AD 24 39
             0F DD 65 4C 6F 05 CB 14 04 25 14 A2 14 33 03 1F 9D FC 16 02 9D 5C
             5C F8 1B 55 14 72 8A 6B 4D 71 D2 61 01 1B 0E 63 B2 31 5A 5D 1B 14
             16 01 AF 92 04 68 00 14 B4 B1 38 01 8C 5D 6A B1 6F 30 00 5D 14 B2
             B2 B2 6E 07 45 84 0A 16 04 85 02 83 01 1B FF 3E 16 02 9D FF 16 01
             AF 81 47 03 AD 81 47 01 AE 81 47 02 63 C2 1B 28 AC BC 66 1D C1 B9
             B7 2D 06 4E 1B 15 94 00 9D 21 6F 92 17 03 9D 09 17 AC BC 66 1D C1
             B9 B7 2D 06 4F 14 84 02 16 01 83 00 9D 21 61 16 01 AC 31 A2 16 01
             F8 65 2F AF 63 1B 80 41 65 61 65 62 EC 66 25 7B 02 03 63 7A 65 64
             66 1B 7B 02 61 04 1B 80 DD 87 01 00 14 B3 38 06 03 50 FA 03 32 F9
             72 5A 65 28 65 29 65 27 66 1F 7B 02 03 51 7C 02 B1 7B 03 AD 03 2F
             60 16 01 85 02 83 01 AD 8D 91 52 16 03 65 52 65 53 65 54 63 65 54
             BF 65 55 B5 B5 73 01 17 73 02 23 B2 65 56 65 27 66 21 7B 02 65 57
             65 1E 66 1A 65 27 66 19 7B 02 65 27 66 22 7B 02 BD 6F 58 04 11 7C
             05 7B 04 7B 01 33 02 23 7C 02 BD 02 5A 1D 0C 65 59 65 27 66 1F 7B
             02 7B 02 61 01 14 93 11 0B 93 18 08 C4 BF 66 20 BF 2D 04 5A 14 93
             1A 07 14 66 20 C1 2D 03 5B 14 B8 B8 71 9A 66 21 66 1A C3 66 22 B0
             6E 05 5C 66 22 66 1B C4 66 23 B1 6E 05 5D 82 02 23 00 65 5E 65 5F
             65 27 66 24 7B 02 03 60 7C 02 BF 7B 03 C2 02 5A 1D 11 92 17 FF 16
             65 65 65 27 66 24 7B 02 61 02 14 61 01 14 65 27 66 24 7B 02 7B 01
             33 02 23 7A 33 05 23 7C 03 61 03 19 1E)
      2. SYSTEM::MACRO-CALL-ERROR 0. SYSTEM::SOURCE-PROGRAM-ERROR
      "~S: invalid syntax for name and options: ~S" SYSTEM::TEXT
      COMMON-LISP::DEFSTRUCT
      #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (:INITIAL-OFFSET . 271.)
         (:NAMED . 204.) (:TYPE . 196.) (:PRINT-OBJECT . 146.)
         (:PRINT-FUNCTION . 146.) (:INHERIT . 127.) (:INCLUDE . 127.)
         (:PREDICATE . 96.) (:COPIER . 77.) (:CONSTRUCTOR . 45.)
         (:CONC-NAME . 8.))
      "" "MAKE-" SYSTEM::CONCAT-PNAMES SYSTEM::DS-SYMBOL-OR-ERROR
      "~S ~S: argument list should be a list: ~S"
      "~S ~S: At most one :INCLUDE argument may be specified: ~S"
      (SYSTEM::PRINT-STRUCTURE SYSTEM::STRUCT COMMON-LISP::STREAM)
      COMMON-LISP::FUNCTION
      "~S: Use of ~S implicitly applies FUNCTION.~@
                                     Therefore using ~S instead of ~S."
      COMMON-LISP::WARN SYSTEM::STRUCT COMMON-LISP::STREAM :PRINT-FUNCTION
      (SYSTEM::*PRIN-LEVEL*) "~S ~S: unknown option ~S"
      "~S ~S: invalid syntax in ~S option: ~S" "~S ~S: not a ~S option: ~S"
      "-P" "~S ~S: There is no :PREDICATE on unnamed structures." "-" "MAKE-"
      "COPY-" COMMON-LISP::VECTOR COMMON-LISP::LIST
      "~S ~S: invalid :TYPE option ~S"
      "~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
      "~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S" 1.
      SYSTEM::DEFSTRUCT-DESCRIPTION
      "~S ~S: included structure ~S has not been defined." COMMON-LISP::CONS
      COMMON-LISP::QUOTE COMMON-LISP::SVREF COMMON-LISP::GET
      ('SYSTEM::DEFSTRUCT-DESCRIPTION) (0.)
      "~S ~S: included structure ~S must be of the same type ~S." 3.
      SYSTEM::COPY-DS-SLOT 4. SYSTEM::ADD-UNQUOTE SYSTEM::DS-SLOT-NAME
      #.#'COMMON-LISP::EQ
      "~S ~S: included structure ~S has no component with name ~S." "DEFAULT-"
      COMMON-LISP::LAMBDA :READ-ONLY 6.
      "~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
      :TYPE SYSTEM::TYPE-FOR-DISCRIMINATION 5. COMMON-LISP::SUBTYPEP
      "~S ~S: The type ~S of slot ~S should be a subtype of the type defined for the included strucure ~S, namely ~S."
      "~S ~S: ~S is not a slot option." :INHERIT COMMON-LISP::STRUCTURE-OBJECT
      ((COMMON-LISP::SVREF
        (COMMON-LISP::GET 'COMMON-LISP::STRUCTURE-OBJECT
         'SYSTEM::DEFSTRUCT-DESCRIPTION)
        0.))
      COMMON-LISP::TYPEP "~S ~S: structure of type ~S cannot hold the name."
      COMMON-LISP::SYMBOL SYSTEM::MAKE-DS-SLOT "DEFAULT-"
      #Y(COMMON-LISP::DEFSTRUCT-1
         #17Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 32 8A 19 02)
         SYSTEM::DS-SLOT-NAME)
      #.#'COMMON-LISP::STRING=
      "~S ~S: There may be only one slot with the name ~S." "P"
      "~S ~S: Slot ~S accessor will shadow the predicate."
      "~S ~S: ~S is not a slot option." SYSTEM::*KEYWORD-PACKAGE*
      SYSTEM::DS-MAKE-BOA-CONSTRUCTOR SYSTEM::DS-MAKE-KEYWORD-CONSTRUCTOR
      #Y(COMMON-LISP::DEFSTRUCT-2
         #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5F 19 02) 4.)
      ('SYSTEM::DEFSTRUCT-DESCRIPTION) COMMON-LISP::EVAL-WHEN
      (COMMON-LISP::LOAD COMMON-LISP::COMPILE COMMON-LISP::EVAL)
      COMMON-LISP::LET #.#'COMMON-LISP::LIST SYSTEM::%PUT
      'SYSTEM::DEFSTRUCT-DESCRIPTION SYSTEM::ADD-BACKQUOTE
      CLOS::DEFINE-STRUCTURE-CLASS SYSTEM::DS-MAKE-PRED SYSTEM::DS-MAKE-COPIER
      SYSTEM::DS-MAKE-ACCESSORS SYSTEM::DS-MAKE-DEFSETFS COMMON-LISP::SETF
      COMMON-LISP::DOCUMENTATION ('COMMON-LISP::STRUCTURE) CLOS::DEFMETHOD
      CLOS::PRINT-OBJECT (COMMON-LISP::STREAM) COMMON-LISP::PROGN
      CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
   SYSTEM::MAKE-MACRO)
#Y(#:TOP-LEVEL-FORM-25
   #36Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 64 01 02 73 04 00 32 86 DA 2F 03
        DA DE 63 2D 03 05 DA 2F 06 C5 19 01)
   COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION
   (COMMON-LISP::STRUCTURE-OBJECT) CLOS::DEFINE-STRUCTURE-CLASS
   COMMON-LISP::STRUCTURE SYSTEM::%SET-DOCUMENTATION
   CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
