(SYSTEM::VERSION '(SYSTEM::CLISP2 6. LISP:NIL 101293.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2
   #20Y(00 00 00 00 00 01 D8 D9 DA 31 7E D8 DB 62 2C 03 04 C3 19 01)
   %STRUCTURE-REF SETF-EXPANDER %STRUCTURE-STORE SETF %SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-SYMBOL-OR-ERROR REMOVE-OLD-DEFINITIONS
   #Y(DS-SYMBOL-OR-ERROR
      #25Y(01 00 00 00 00 02 AB 8E 06 03 00 19 02 D8 D9 DA DB 6D 03 04 DD AE 32
           02 1F
          )
      PROGRAM-ERROR "~S: this is not a symbol: ~S"
      "~S: Das ist kein Symbol: ~S" "~S : Ceci n'est pas un symbole: ~S"
      LANGUAGE DEFSTRUCT
  )  )
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-ARG-DEFAULT REMOVE-OLD-DEFINITIONS
   #Y(DS-ARG-DEFAULT
      #34Y(02 00 00 00 00 03 9C 5B 5B 77 AA 8B 5F 0D AD D8 AC 60 02 14 60 02 19
           04 9E 19 04 92 00 7A AD 9C 1A 71
          )
      %FUNCALL
  )  )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-CONSTRUCTOR-BODY REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-CONSTRUCTOR-BODY
      #166Y(05 00 00 00 00 06 D8 D9 B1 02 21 80 4D B1 23 03 80 50 A2 20 80 50
            C8 14 AF 60 02 14 7A 02 7A 01 62 AE 9B 1F 80 72 93 00 9B 5B 77 E0
            B6 02 21 80 43 B6 23 03 80 49 B6 23 0C 80 4C D1 14 D9 AD 60 03 14
            9E 5A 1B 80 44 DF 9F 5B 5B 77 60 02 14 60 03 F6 83 02 16 01 82 00
            1A 48 DA B0 B0 60 03 1A FF B9 C7 1A FF B1 DD AF DE DF A6 5B 77 7A
            02 60 04 1A FF A7 E1 DF B7 7A 02 D9 AE 60 04 1A 42 E2 AC CE 61 02
            1A FF BA D0 1A FF B1 E7 9F 5B 5B 5B 77 93 05 60 03 1A FF B6 16 01
            AA 7F A5 00 E8 32 02 23 61 02 19 06
           )
      LET OBJECT %MAKE-STRUCTURE LIST MAKE-LIST MAKE-ARRAY :ELEMENT-TYPE QUOTE
      SETF %STRUCTURE-REF NTH (OBJECT) VECTOR SVREF AREF THE (OBJECT)
  )  )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-ARG-WITH-DEFAULT REMOVE-OLD-DEFINITIONS
   #Y(DS-ARG-WITH-DEFAULT
      #35Y(02 00 00 00 00 03 AC 8D 0B 10 AC AC 37 06 C3 F8 C4 F7 71 5A 91 00 06
           9E 19 04 9D 19 03 AD AB 2F 02 19 04
          )
      #.#'FIRST #.#'EQ DS-ARG-DEFAULT
  )  )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-BOA-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-BOA-CONSTRUCTOR
      #293Y(06 00 00 00 00 00 93 06 A2 5B 77 D8 AB D9 37 02 8B B5 07 DA AB D9
            37 02 30 B5 14 91 00 07 16 01 62 AB 62 1A 29 DB DC DD DE 6D 03 07
            E0 B4 B0 93 05 B1 32 05 1F 9B 5A 1A 10 86 01 00 14 E1 D9 37 02 8B
            B5 08 AA 8D 0B 6D 9B 14 83 02 82 01 AB 8C 94 67 16 02 AA 80 47 00
            AB 01 02 1A 05 AB 83 00 82 02 AC 8B 94 0B 86 02 01 14 E1 D9 37 02
            8C B5 6C AA 31 47 16 02 F6 E2 AD D9 37 02 30 B5 78 01 02 1A 15 00
            16 03 1A 29 E4 9C 5B 77 60 02 1A 2D AB B3 6F 0B 83 00 82 02 AC 8B
            94 0B 86 02 01 14 E1 D9 37 02 8C B5 69 92 00 59 E2 AB 31 47 5C 16
            03 14 E4 AE D9 37 02 70 B5 91 00 4C 00 F6 E5 E5 B0 D9 37 02 30 B5
            78 01 02 92 02 16 86 02 01 14 E1 D9 37 02 8B B5 0B AB B6 6F 0B 83
            00 82 02 91 02 6A AA 31 47 16 02 F6 62 B4 62 1A 18 86 01 00 5A 1C
            10 93 00 B3 D9 37 02 8B B5 07 93 00 B7 6F 0B 83 02 82 01 AB 8C 94
            64 16 02 AA 80 47 00 32 02 23 79 72 04 23 E6 AE AC B6 B6 B6 B6 B6
            6D 05 0F 60 04 19 0B
           )
      &KEY #.#'EQ &ALLOW-OTHER-KEYS PROGRAM-ERROR
      "~S ~S: the argument list for the BOA contructor ~S must not contain ~S: ~S"
      "~S ~S: Die Argumentliste für eine keywordfreie Konstruktorfunktion ~S darf kein ~S enthalten: ~S"
      "~S ~S : La liste d'arguments pour un constructeur ~S libre de mot-clés ne peux pas contenir ~S: ~S"
      LANGUAGE DEFSTRUCT #.LAMBDA-LIST-KEYWORDS &OPTIONAL DS-ARG-WITH-DEFAULT
      &REST &AUX DEFUN DS-MAKE-CONSTRUCTOR-BODY
  )  )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-KEYWORD-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-KEYWORD-CONSTRUCTOR
      #61Y(06 00 00 00 00 00 D8 B1 D9 62 AF 1A 19 93 00 AB 6F 02 60 01 1A 07 93
           00 9B 5A 1B 71 00 14 AD 7F A3 02 16 01 82 00 9B 20 6D 16 01 AA 30 A5
           16 01 79 B2 B2 B2 B2 B2 6D 05 03 60 04 19 07
          )
      DEFUN &KEY DS-ARG-DEFAULT DS-MAKE-CONSTRUCTOR-BODY
  )  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-PRED REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-PRED
      #123Y(04 00 00 00 00 05 AD 02 21 2D 00 14 DB B0 DC B1 02 21 32 B1 23 07
            80 45 E0 E9 E5 EA B3 7A 03 E3 EB EC B5 7A 03 D9 B6 7A 02 7A 03 60
            04 14 7A 04 7A 01 32 02 23 19 05 D8 D9 DA B1 7A 02 7A 02 7A 02 60
            01 1A 46 DD D9 B2 7A 02 C9 61 02 1A 5E E3 E4 D9 B5 7A 02 7A 03 60
            01 61 02 1A 50 E0 E1 B1 23 0A 6C E5 E6 B3 7A 03 E3 E7 B4 D3 7B 02
            D9 B6 7A 02 7A 03 60 02 61 02 1A FF B2
           )
      PROCLAIM QUOTE INLINE DEFUN (OBJECT) %STRUCTURE-TYPE-P (OBJECT) LIST AND
      (CONSP OBJECT) 0. EQ (CAR OBJECT) > (LENGTH OBJECT) NTH (OBJECT)
      (SIMPLE-VECTOR-P OBJECT) (LENGTH OBJECT) SVREF OBJECT
  )  )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-COPIER REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-COPIER
      #84Y(03 00 00 00 00 04 AB 02 21 1F AB 23 00 1B 00 14 DC AF DD AF 02 21 20
           AF 23 00 1F A0 20 1F D2 14 7A 04 7A 01 32 02 23 19 04 D9 DA DB B0 7A
           02 7A 02 7A 02 60 01 1A 58 C9 1A 65 CA 1A 62 E0 E1 E2 E3 E4 E5 DA A7
           5B 77 7A 02 7A 04 7A 02 7A 02 D1 61 02 1A 4B
          )
      LIST PROCLAIM QUOTE INLINE DEFUN (STRUCTURE) (%COPY-STRUCTURE STRUCTURE)
      (COPY-LIST STRUCTURE) LET* (OBJ-LENGTH (ARRAY-TOTAL-SIZE STRUCTURE))
      OBJECT MAKE-ARRAY OBJ-LENGTH :ELEMENT-TYPE
      ((DOTIMES (I OBJ-LENGTH OBJECT) (SETF (AREF OBJECT I) (AREF STRUCTURE I))
      ))
      (LET* ((OBJ-LENGTH (LENGTH STRUCTURE)) (OBJECT (MAKE-ARRAY OBJ-LENGTH)))
       (DOTIMES (I OBJ-LENGTH OBJECT)
        (SETF (SVREF OBJECT I) (SVREF STRUCTURE I))
  )  )))
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-ACCESSORS REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-ACCESSORS
      #131Y(04 00 00 00 00 05 62 AC 9B 1F 80 70 93 00 9B 5A 1C 80 5C AF 93 01
            6F 00 9C 5B 77 9D 5B 5B 5B 77 D9 DA DB AF B8 7A 01 AF 7A 04 7A 02
            7A 02 D9 DA DC B0 7A 02 7A 02 7A 02 DD AF DE DF B0 BA 02 21 19 BA
            23 0A 20 04 10 20 23 D1 14 E1 B4 60 03 14 7A 03 7A 04 60 03 16 03
            1A 16 E0 DA BD 7A 02 E1 B5 60 04 1A 6A E3 B3 CF 61 02 1A 63 D0 1A
            5B 00 14 AD 7F A3 02 16 01 82 00 1A FF 8C 16 01 AA 30 A5 19 06
           )
      CONCAT-PNAMES PROCLAIM QUOTE FUNCTION INLINE DEFUN (OBJECT) THE
      %STRUCTURE-REF OBJECT LIST NTH (OBJECT) AREF SVREF
  )  )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DS-MAKE-DEFSETFS REMOVE-OLD-DEFINITIONS
   #Y(DS-MAKE-DEFSETFS
      #149Y(04 00 00 00 00 05 62 AC 1A 80 80 CB 1A 18 DC DD DE DE BC 7A 02 7A
            02 DF B3 B3 02 21 6E DC E1 DE B6 7A 02 CD 61 03 14 60 06 1A 80 42
            DC E3 DC E4 B3 D0 7B 03 D1 61 03 1A 35 DC E7 DC E8 DF B4 7A 04 D4
            61 03 1A 28 AF 93 01 6F 00 9C 5B 77 9D 5B 5B 5B 77 D9 AD DA DB B7
            02 21 FF B2 B7 23 04 4C A8 20 56 DC EA DC EB DF B4 7A 04 D7 61 03
            14 7A 05 60 01 16 03 1A 0B 93 00 9B 5A 1C 04 AA 8C 97 45 00 14 AD
            7F A3 02 16 01 82 00 9B 20 69 16 01 AA 30 A5 19 06
           )
      CONCAT-PNAMES DEFSETF (STRUCT) (VALUE) LIST '%STRUCTURE-STORE QUOTE
      STRUCT VALUE 'THE (VALUE) 'SETF 'NTH (STRUCT) (VALUE) 'SETF 'AREF (VALUE)
      'SETF 'SVREF (VALUE)
  )  )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CLOS::DEFINE-STRUCTURE-CLASS REMOVE-OLD-DEFINITIONS
   #Y(CLOS::DEFINE-STRUCTURE-CLASS #9Y(01 00 00 00 00 02 00 19 02))
  )
#Y(#:TOP-LEVEL-FORM-14
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DEFSTRUCT
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFSTRUCT
      #1606Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 34 9D 5B 77 9E 5B 78 AB 62
             63 01 02 63 DA 01 05 63 DA DA DA 62 BB 62 DA DA 01 04 65 1A 8E 0B
             08 86 1A 18 04 1A 5B 09 17 C2 8E 06 0E C2 8D 83 0A C1 62 1A 81 41
             AC 2E 01 19 03 DB DC DD DE 6D 03 07 E0 04 1D 1A 81 56 9B 5A 25 09
             80 DD CD 09 18 1A 81 21 9B 5B 5A 1C 75 09 18 1A 81 17 E3 65 1B 6F
             0C 83 17 1A 81 0D 9B 1A 29 DB E6 E7 E8 6D 03 07 E0 65 1E A0 5B 5B
             5A 1A 84 40 9B 5B 1F 5E 9B 5B 77 AA 2E 0D 9C 5B 5B 1F 5D 9C 5B 5B
             77 8E 0B 59 9C 5B 14 83 18 16 01 1A 80 D9 9B 5B 1F 80 D4 9B 5B 77
             AA 2E 0D 9B 09 16 16 01 1A 80 C6 9B 5B 1F 80 C1 9B 5B 77 AA 2E 0D
             9B 09 15 16 01 1A 80 B3 DB E9 EA EB 6D 03 07 E0 65 1D 04 1D 1A 83
             EB 91 13 6E 9B 09 13 1A 80 9B EC 65 1C F1 6F 0C F2 F3 AE 03 1C 79
             7A 03 60 03 1A 25 9B 5B 77 9B 1F 17 93 00 24 14 12 ED EE EF 6D 03
             07 E0 9D 5B 77 AD 2C 04 18 9B 5B 5A F6 AA 8D 06 4D EC AB 60 02 09
             10 16 01 1A 80 5D 9B 5B 5A 09 0E 1A 80 55 7D 0D 1A 80 50 C5 09 0C
             1A 80 4A DB F5 64 1E 64 1F 6D 03 07 E0 65 1D 9F 5A 1A 83 80 93 00
             8D 83 FF 06 DB 64 20 64 21 03 22 1A 16 86 01 00 14 8E 83 04 AA 60
             01 F6 AA 8D 0B 62 DB 64 23 64 24 03 25 14 6D 03 07 E0 65 1D E0 A0
             1A 81 3C 9B 5B 5A 1C FF B2 09 0C 82 01 AB 8C 94 50 16 02 B6 02 59
             1C 82 2C 09 0B 1B 82 2F BC 23 02 82 35 92 12 82 31 DB 64 27 64 28
             64 29 6D 03 07 E0 04 1B 14 32 02 1F C2 70 4C 64 2A 81 02 13 16 91
             15 82 1C 64 2B 65 19 6F 0C 60 01 09 15 1A 82 16 DB 64 2F 64 30 03
             31 1A 81 B9 DB 64 32 64 33 64 34 6D 03 07 E0 65 1B A9 1A 82 E5 DB
             64 35 64 36 64 37 6D 03 07 E0 65 1B 04 1B 1A 82 D3 DB 64 3A 64 3B
             64 3C 6D 03 07 E0 04 1E 1A 82 C1 DB 64 44 64 45 64 46 6D 03 07 E0
             65 1E AF 04 14 1A 80 9D 9B 1A 80 7A 86 19 08 04 19 5B FD 92 11 81
             FF 78 93 00 AA 64 39 37 01 71 7A 92 00 41 65 1B AB C5 5E 5C 09 13
             37 01 80 86 12 14 64 3D 64 3E 65 1E 7A 02 64 3F 64 40 64 41 64 3E
             B2 7A 02 03 42 7B 02 03 43 7B 02 7A 02 7A 03 7A 02 60 01 09 11 AA
             03 38 5E 14 BA 8E 03 FF 94 64 47 AB 03 48 5E 14 72 00 17 80 47 06
             1C 06 5A 5B 77 80 8D 08 94 02 62 AB 8B 94 80 E2 86 01 00 1F FF 84
             9B 5A 14 AA B4 37 06 03 49 F8 03 4A F7 71 5A 91 00 1C DB 64 4B 64
             4C 64 4D 6D 03 07 E0 65 22 B3 A1 14 32 04 1F 9B 5B 78 62 30 AA 1A
             80 A7 9D 1F 74 9D 5B 77 AA 8B 5F 17 EC 64 4E AE 6F 0C F2 62 AE 7A
             03 7A 03 83 09 37 01 80 86 00 14 83 0A 9C 5B 78 AB 30 AA 16 01 9D
             5B 78 1A 80 72 9E 5B 5B 5B 78 02 1A 80 60 DB 64 50 64 51 64 52 6D
             03 07 E0 65 25 B2 B7 65 28 32 05 1F 91 00 60 AD 8B 97 65 9E 5B 5B
             5B 78 00 1A 3D DB 64 55 64 56 64 57 6D 03 07 E0 65 25 AE B3 B8 A5
             5B 5B 5B 77 32 06 1F DB 64 58 64 59 03 5A 1A 81 80 93 00 9C 5B 77
             AB 23 4F 46 AB 24 53 69 AA 9F 5B 5B 5B 77 8A 54 48 9E 5B 5B 78 9C
             14 30 AA 16 02 9B 5B 5B F6 AA 8C 94 58 16 01 16 02 82 01 1A FF 19
             16 02 93 14 24 5B 04 B0 80 45 07 16 03 92 0B 80 BF 1A 80 B1 DB 64
             5D 64 5E 03 5F 14 6D 03 07 E0 65 1B 04 10 1A 81 31 9D F7 7C 00 1A
             80 D7 DB 64 62 64 63 64 64 6D 03 07 E0 04 20 1A 81 18 7D 03 1A 81
             1B 91 00 78 7C 03 1A 81 13 B5 02 59 09 0B 1C FD D1 BC 24 02 07 C2
             64 26 2F 0C 09 12 C0 02 21 FD DB 92 15 FD E4 62 C0 37 07 80 4C 15
             BD 02 22 08 64 2C 65 19 2F 0C 09 13 B6 02 21 12 B6 23 2D 0E B6 23
             2E 0A A7 1F FD CE 93 0C 24 2D FD C8 B4 8E 0C FD CD B4 DA 90 01 32
             FD C6 B4 8E 89 05 B6 02 21 FD CE B6 02 22 03 03 38 FB 93 19 8D 07
             FD FA 91 11 FE 01 C2 60 01 09 10 64 3E BB 60 02 09 0F 92 0B 0B A7
             1F 08 BA A8 5B 77 8A 5C FF 44 AF B5 81 02 35 09 B6 02 21 13 92 0B
             10 62 A5 09 0B 14 65 1A 64 60 63 7A 05 83 03 84 09 B3 B2 62 AB 8B
             94 80 85 86 01 00 01 02 9D 1F FF 29 86 02 01 9D 5B 5A F6 AA 8B 5F
             17 EC 64 61 AD 6F 0C F2 62 AE 7A 03 7A 03 83 06 37 01 80 86 00 14
             83 07 AB B3 37 06 03 49 F8 03 4A F7 8D 5A FF 00 63 62 9F 1F 35 9F
             5B 78 AA 8B 94 2C 93 00 9C 5B 77 AB 23 4F FE FF AB 23 53 14 DB 64
             65 64 66 03 67 14 6D 03 07 E0 04 25 14 A0 14 32 03 1F 9B FA 16 02
             9B 5B 5B F6 1A 50 16 01 AD B1 AE AE AE 7A 05 83 0A 16 04 84 02 82
             01 1A FF 76 16 02 9B FD 16 01 AD 80 47 03 AB 80 47 01 AC 80 47 02
             62 C0 1A 28 AA BA 65 1D BF B7 B5 2C 06 68 1A 15 93 00 9B 20 6F 91
             17 03 9B 09 17 AA BA 65 1D BF B7 B5 2C 06 69 14 83 02 16 01 82 00
             9B 20 61 16 01 AA 30 A5 16 01 F6 64 6A AD 62 1A 80 61 64 73 64 3E
             65 1F 7A 02 7A 02 60 01 1A 80 9F C2 BD 65 20 BD 2C 04 74 1A 80 9E
             14 65 20 BF 2C 03 75 1A 80 9A 64 71 64 3E 65 24 7A 02 64 7B 65 1A
             60 04 1A 80 C5 86 01 00 14 B1 37 06 03 6B F8 03 4A F7 71 5A 64 40
             64 41 64 3E 65 1F 7A 02 03 6C 7B 02 AF 7A 03 9C 5B 78 AB 30 AA 16
             02 84 02 82 01 AB 8C 94 50 16 03 64 6D 64 6E 64 6F 62 64 6F BD 64
             70 B3 B3 72 01 17 72 02 23 B0 64 71 64 3E 65 21 7A 02 64 72 64 2D
             65 1A 64 3E 65 19 7A 02 64 3E 65 22 7A 02 64 3E BC 7A 02 04 11 7B
             05 7A 04 7A 01 32 02 23 7B 02 BB 02 21 FF 53 00 14 92 11 80 04 91
             18 FF 58 00 14 91 1A FF 5D 00 14 B6 B6 70 9D 65 21 C0 65 21 AD 6D
             04 76 65 22 C1 65 22 AE 6D 04 77 81 02 23 00 64 78 64 79 64 3E 65
             24 7A 02 03 7A 7B 02 BD 7A 03 91 17 FF 36 64 7C 64 3E 65 24 7A 02
             03 7D 61 02 14 64 3E 65 24 7A 02 7A 03 32 05 23 7B 03 60 03 19 1E
            )
      2. MACRO-CALL-ERROR 0. PROGRAM-ERROR
      "~S: invalid syntax for name and options: ~S"
      "~S: Falsche Syntax für Name und Optionen: ~S"
      "~S : Mauvaise syntaxe pour un nom et des options: ~S" LANGUAGE DEFSTRUCT
      #S(HASH-TABLE EQ (:INITIAL-OFFSET . 289.) (:NAMED . 212.) (:TYPE . 204.)
         (:PRINT-FUNCTION . 160.) (:INHERIT . 133.) (:INCLUDE . 133.)
         (:PREDICATE . 99.) (:COPIER . 80.) (:CONSTRUCTOR . 48.)
         (:CONC-NAME . 8.)
        )
      "" "MAKE-" CONCAT-PNAMES DS-SYMBOL-OR-ERROR
      "~S ~S: argument list should be a list: ~S"
      "~S ~S: Argumentliste muß eine Liste sein: ~S"
      "~S ~S : La liste d'arguments doit être une liste: ~S"
      "~S ~S: At most one :INCLUDE argument may be specified: ~S"
      "~S ~S: Es darf nur ein :INCLUDE-Argument geben: ~S"
      "~S ~S : Il ne peut y avoir qu'un argument :INCLUDE: ~S" FUNCTION
      "~S: Use of :PRINT-FUNCTION implicitly applies FUNCTION.~@
                                   Therefore using ~S instead of ~S."
      "~S: Bei :PRINT-FUNCTION ist FUNCTION bereits implizit.~@
                                   Verwende daher ~S statt ~S."
      "~S : FUNCTION est déjà implicite avec :PRINT-FUNCTION.~@
                                    C'est pourquoi ~S est utilisé au lieu de ~S."
      WARN "-PRINT-FUNCTION" LAMBDA (STRUCT STREAM DEPTH) (STRUCT STREAM DEPTH)
      "~S ~S: unknown option ~S" "~S ~S: Die Option ~S gibt es nicht."
      "~S ~S : Option ~S non reconnue."
      "~S ~S: invalid syntax in ~S option: ~S"
      "~S ~S: Falsche Syntax in ~S-Option: ~S"
      "~S ~S : Mauvaise syntaxe dans l'option ~S: ~S"
      "~S ~S: not a ~S option: ~S" "~S ~S: Das ist keine ~S-Option: ~S"
      "~S ~S : Ceci n'est pas une option ~S: ~S" "-P"
      "~S ~S: There is no :PREDICATE on unnamed structures."
      "~S ~S: Bei unbenannten Structures kann es kein :PREDICATE geben."
      "~S ~S : Il ne peut pas y avoir de :PREDICATE avec des structures anonymes."
      "-" "MAKE-" "COPY-" VECTOR LIST "~S ~S: invalid :TYPE option ~S"
      "~S ~S: Unzulässige :TYPE-Option ~S"
      "~S ~S : Option :TYPE inadmissible: ~S"
      "~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
      "~S ~S: Der :INITIAL-OFFSET muß ein Integer >=0 sein, nicht ~S"
      "~S ~S : :INITIAL-OFFSET doit être un entier positif ou zéro et non ~S"
      "~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S"
      "~S ~S: :INITIAL-OFFSET darf nur zusammen mit :TYPE angegeben werden: ~S"
      "~S ~S : :INITIAL-OFFSET ne peut être précisé qu'ensemble avec :TYPE: ~S"
      1. DEFSTRUCT-DESCRIPTION
      "~S ~S: included structure ~S has not been defined."
      "~S ~S: Teilstruktur ~S ist nicht definiert."
      "~S ~S : La structure incluse ~S n'est pas définie." CONS QUOTE
      LOAD-TIME-VALUE SVREF GET ('DEFSTRUCT-DESCRIPTION) (0.)
      "~S ~S: included structure ~S must be of the same type ~S."
      "~S ~S: Teilstruktur ~S muß vom selben Typ ~S sein."
      "~S ~S : La structure incluse ~S doit être du même type ~S."
      #.#'COPY-LIST 3. #.#'FIRST #.#'EQ
      "~S ~S: included structure ~S has no component with name ~S."
      "~S ~S: Teilstruktur ~S hat keine Komponente namens ~S."
      "~S ~S : La structure incluse ~S n'a pas de composante de nom ~S."
      "DEFAULT-" :READ-ONLY
      "~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
      "~S ~S: Der READ-ONLY-Slot ~S von Teilstruktur ~S muß auch in ~S READ-ONLY bleiben."
      "~S ~S : Le composant READ-ONLY ~S de la structure incluse ~S doit rester READ-ONLY dans ~S."
      :TYPE 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: Der Typ ~S von Slot ~S muß ein Untertyp des in Teilstruktur ~S definierten Typs ~S sein."
      "~S ~S : Le type ~S du composant ~S doit être un sous-type du type défini dans la structure incluse ~S, c'est-à-dire ~S."
      "~S ~S: ~S is not a slot option." "~S ~S: ~S ist keine Slot-Option."
      "~S ~S : ~S n'est pas un option de composant." :INHERIT TYPEP
      "~S ~S: structure of type ~S can't hold the name."
      "~S ~S: Structure vom Typ ~S kann den Namen nicht enthalten."
      "~S ~S : Une structure de type ~S ne peut pas contenir le nom." SYMBOL
      "DEFAULT-" "~S ~S: There may be only one slot with the name ~S."
      "~S ~S: Es kann nicht mehrere Slots mit demselben Namen ~S geben."
      "~S ~S : Il ne peut pas y avoir plusieurs composants avec le même nom ~S."
      "~S ~S: ~S is not a slot option." "~S ~S: ~S ist keine Slot-Option."
      "~S ~S : ~S n'est pas une option de composant." DS-MAKE-BOA-CONSTRUCTOR
      DS-MAKE-KEYWORD-CONSTRUCTOR 4. #.#'THIRD ('DEFSTRUCT-DESCRIPTION)
      EVAL-WHEN (LOAD COMPILE EVAL) LET #.#'LIST %PUT 'DEFSTRUCT-DESCRIPTION
      CLOS::DEFINE-STRUCTURE-CLASS DS-MAKE-PRED DS-MAKE-COPIER
      DS-MAKE-ACCESSORS DS-MAKE-DEFSETFS SETF DOCUMENTATION ('STRUCTURE)
      'STRUCTURE-PRINT REMPROP ('STRUCTURE-PRINT)
  )  )