(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) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 D8 19 01)
   (NTH-VALUE FUNCTION-LAMBDA-EXPRESSION DEFPACKAGE DEFINE-SYMBOL-MACRO
    PRINT-UNREADABLE-OBJECT DECLAIM
  ))
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E1 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) NTH-VALUE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(NTH-VALUE
      #115Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 1C 9D 5B 77 9E 5B 5B 77 AB
            8E 0C 07 AB DA 8F 01 32 80 46 E2 AC E3 AD 7A 02 60 03 19 05 AC 2E
            01 19 03 DC AB 60 02 19 05 AB DA 8F 01 2D 74 37 01 71 86 AA 7A 01
            62 AE 1A 0E 37 01 71 86 AA 83 03 AA 83 02 16 01 85 00 AA 8E 88 6E
            DD AD B0 DE DF A1 79 7A 02 B1 60 05 19 09 AB DB 8F 01 2F 49 E0 AB
            CC 61 02 19 05
           )
      3. MACRO-CALL-ERROR 0. 127. PROG1 MULTIPLE-VALUE-BIND DECLARE IGNORE
      PROGN (NIL) NTH MULTIPLE-VALUE-LIST
  )  )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FUNCTION-LAMBDA-EXPRESSION REMOVE-OLD-DEFINITIONS
   #Y(FUNCTION-LAMBDA-EXPRESSION
      #77Y(01 00 00 00 00 02 AB 8E 09 04 AB 8D 1C 2A AB 8E 0A 2B D8 AC D9 31 2B
           79 AC DA 71 2B AD DB 71 2B AE DC 71 2B AF DD 71 2B B0 DE 71 2B 72 05
           00 AD DF 31 2B 14 3F 03 19 02 62 63 00 1A 76 E0 E1 AD E2 E3 E4 E5 E6
           6D 03 0F E8 B2 32 06 1F
          )
      LAMBDA 1. 4. 5. 6. 7. 8. 0. TYPE-ERROR :DATUM :EXPECTED-TYPE FUNCTION
      "~S: ~S is not a function" "~S: ~S ist keine Funktion."
      "~S : ~S n'est pas une fonction." LANGUAGE FUNCTION-LAMBDA-EXPRESSION
  )  )
#Y(#:TOP-LEVEL-FORM-6
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DEFPACKAGE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFPACKAGE
      #617Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 80 4A 00 2A 01 9E 5B 5A 0B
            00 00 9E 5B 78 AB 6C 02 01 67 02 00 C6 33 0B 02 00 9D 2A 01 01 06
            DC 01 02 00 0B 09 00 14 B4 6C 05 01 B7 62 AB 8B 94 81 50 86 01 00
            14 8D 0B 81 0E DF F0 F1 03 1A 14 6D 03 0B E4 67 13 00 E4 AF 32 04
            1F AC 2E 01 19 03 9B 5A 25 06 80 E0 DF E0 E1 E2 6D 03 0B E4 67 13
            00 D0 1A 80 DE 91 0C 6E 7D 0C 1A 80 F9 DF E6 E7 E8 6D 03 0B E4 67
            13 00 D4 1A 80 C7 91 0B 6E 7D 0B 1A 80 E2 94 00 62 1A 0A 86 01 00
            14 C6 73 83 0C 82 01 AB 8C 94 72 16 02 1A 80 CA 94 00 62 1A 0D 86
            01 00 14 04 11 73 A0 73 83 0B 82 01 AB 8C 94 6F 16 02 1A 80 AF 9B
            5B 77 C6 73 9C 5B 78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83
            0B 82 01 AB 8C 94 6D 16 03 1A 80 8C 94 00 62 1A 0A 86 01 00 14 C6
            73 83 09 82 01 AB 8C 94 72 16 02 7C 06 1A 80 72 9B 5B 77 C6 73 9C
            5B 78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83 08 82 01 AB 8C
            94 6D 16 03 1A 80 4F 94 00 62 1A 0D 86 01 00 14 04 11 73 A0 73 83
            06 82 01 AB 8C 94 6F 16 02 1A 35 94 00 62 1A 2A DF EA EB EC 6D 03
            0B E4 67 13 00 9F 5A 14 32 03 1F 93 00 8D 83 FF 03 DF ED EE 03 17
            1A FE E9 86 01 00 14 04 11 73 83 05 82 01 AB 8C 94 71 16 02 82 01
            1A FE C1 64 21 64 1F 64 22 B6 72 00 17 7A 02 67 12 00 7A 03 60 01
            1A 80 42 16 02 7E 02 0B 00 AA AC 32 00 19 16 01 B1 80 47 07 B0 80
            47 06 AF 80 47 05 91 03 03 AE 31 47 FA AC 80 47 02 AB 80 47 01 AA
            80 47 00 F3 F4 F5 67 10 00 64 1E 64 1F B7 7A 02 03 20 7B 04 91 09
            FF A9 00 14 62 B4 1A 23 64 24 64 1F B5 7A 02 67 14 00 7A 03 60 01
            1A 20 93 00 64 23 93 01 94 02 67 17 00 7A 04 83 02 16 01 82 00 9B
            20 6A 16 01 AA 7F A5 00 91 09 51 00 14 62 B3 1A 13 93 00 64 25 93
            01 94 02 67 19 00 7A 04 83 02 16 01 82 00 9B 20 6A 16 01 AA 7F A5
            00 62 B3 1A 20 64 27 64 1F B4 7A 02 67 17 00 7A 03 60 01 1A 1D 93
            00 64 26 AB 67 19 00 7A 03 83 02 16 01 82 00 9B 20 6D 16 01 AA 7F
            A5 00 91 08 54 00 14 64 28 67 17 00 7A 02 7A 01 32 07 23 61 03 19
            11
           )
      2. MACRO-CALL-ERROR
      #Y(LISP::DEFPACKAGE-CHECK-SYMNAME
         #37Y(01 00 00 00 00 02 AB 8D 07 13 AB 8D 06 12 D9 DA DB DC 6D 03 05 DE
              68 00 01 AF 32 03 1F 9C 19 02 AB 31 82 19 02
             )
         NIL PROGRAM-ERROR
         "~S ~A: symbol name ~S should be a string or a symbol"
         "~S ~A: Symbol-Name muß ein String oder Symbol sein, nicht ~S."
         "~S ~A : Le nom d'un symbole doit être une chaîne ou un symbole et non ~S."
         LANGUAGE DEFPACKAGE
        )
      #Y(LISP::DEFPACKAGE-CHECK-PACKNAME
         #34Y(01 00 00 00 00 02 AB 8D 07 10 AB 8D 06 0F D8 D9 DA DB 6D 03 04 DD
              AE 32 02 1F 9C 19 02 AB 31 82 19 02
             )
         PROGRAM-ERROR "~S: package name ~S should be a string or a symbol"
         "~S: Package-Name muß ein String oder Symbol sein, nicht ~S."
         "~S : Le nom d'un paquetage doit être une chaîne ou un symbole et non ~S."
         LANGUAGE DEFPACKAGE
        )
      ("LISP")
      #Y(LISP::DEFPACKAGE-RECORD-SYMNAME
         #42Y(01 00 00 00 00 02 AB 68 00 01 D9 37 02 8B B5 0B AB 07 00 01 5C 0C
              00 01 9C 19 02 DA DB DC DD 6D 03 06 DF 68 01 01 AF 32 03 1F
             )
         NIL #.#'STRING= PROGRAM-ERROR
         "~S ~A: the symbol ~A must not be specified more than once"
         "~S ~A: Symbol ~A darf nur einmal aufgeführt werden."
         "~S ~A : Le symbole ~A ne peut être mentionné qu'une seule fois."
         LANGUAGE DEFPACKAGE
        )
      #S(HASH-TABLE EQ (:EXPORT . 221.) (:INTERN . 195.) (:IMPORT-FROM . 160.)
         (:USE . 134.) (:SHADOWING-IMPORT-FROM . 99.) (:SHADOW . 72.)
         (:NICKNAMES . 48.) (:DOCUMENTATION . 40.) (:SIZE . 17.)
        )
      PROGRAM-ERROR "~S ~A: the ~S option must not be given more than once"
      "~S ~A: Die Option ~S darf nur einmal angegeben werden."
      "~S ~A : L'option ~S ne doit apparaître qu'une seule fois." LANGUAGE
      DEFPACKAGE :SIZE "~S ~A: the ~S option must not be given more than once"
      "~S ~A: Die Option ~S darf nur einmal angegeben werden."
      "~S ~A : L'option ~S ne doit apparaître qu'une seule fois."
      :DOCUMENTATION "~S ~A: unknown option ~S"
      "~S ~A: Die Option ~S gibt es nicht." "~S ~A : Option ~S non reconnue."
      "~S ~A: invalid syntax in ~S option: ~S"
      "~S ~A: Falsche Syntax in ~S-Option: ~S"
      "~S ~A : Mauvaise syntaxe dans l'option ~S: ~S"
      "~S ~A: not a ~S option: ~S" "~S ~A: Das ist keine ~S-Option: ~S"
      "~S ~A : Ceci n'est pas une option ~S: ~S" EVAL-WHEN (LOAD COMPILE EVAL)
      %IN-PACKAGE :NICKNAMES QUOTE (:USE 'NIL) SHADOW #.#'MAKE-SYMBOL
      SHADOWING-IMPORT-CERROR USE-PACKAGE IMPORT-CERROR INTERN INTERN-EXPORT
      FIND-PACKAGE
  )  )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FIND-SYMBOL-CERROR REMOVE-OLD-DEFINITIONS
   #Y(FIND-SYMBOL-CERROR
      #42Y(03 00 00 00 00 04 AD AD 30 D6 41 02 91 00 18 D8 D9 DA 6D 03 03 DC DD
           DE 6D 03 03 DF B0 B2 B4 2C 06 08 AF AF 7F D5 01 9C 19 06
          )
      "This symbol will be created." "Dieses Symbol wird erzeugt."
      "Ce symbole sera créé." LANGUAGE "~S ~A: There is no symbol ~A::~A ."
      "~S ~A: Es gibt kein Symbol ~A::~A ."
      "~S ~A : Il n'y a pas de symbole ~A::~A ." DEFPACKAGE CERROR
  )  )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   SHADOWING-IMPORT-CERROR REMOVE-OLD-DEFINITIONS
   #Y(SHADOWING-IMPORT-CERROR
      #17Y(03 00 00 00 00 04 AD AD AD 6D 03 00 AC 30 DB 19 04)
      FIND-SYMBOL-CERROR
  )  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   IMPORT-CERROR REMOVE-OLD-DEFINITIONS
   #Y(IMPORT-CERROR #17Y(03 00 00 00 00 04 AD AD AD 6D 03 00 AC 30 DA 19 04)
      FIND-SYMBOL-CERROR
  )  )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INTERN-EXPORT REMOVE-OLD-DEFINITIONS
   #Y(INTERN-EXPORT
      #36Y(02 00 00 00 00 03 62 AD 1A 0C 93 00 AA AF 70 D5 83 02 16 01 82 00 9B
           20 71 16 01 AA 7F A5 00 AC 30 D8 19 03
  )  )    )
#Y(#:TOP-LEVEL-FORM-11
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   DEFINE-SYMBOL-MACRO REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-SYMBOL-MACRO
      #77Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 2E 9D 5B 77 9E 5B 5B 77 AB 8E
           06 28 E0 62 E1 E2 E3 E4 B1 7A 02 7A 02 E5 E4 B2 7A 02 E6 E4 B3 7A 02
           7A 02 7A 03 7A 04 E4 AF 7A 02 60 04 19 05 AC 2E 01 19 03 DA DB DC DD
           6D 03 06 DF AE 32 02 1F
          )
      3. MACRO-CALL-ERROR PROGRAM-ERROR
      "~S: the name of a symbol macro must be a symbol, not ~S"
      "~S: Der Name eines Symbol-Macros muß ein Symbol sein, nicht: ~S"
      "~S : Le nom d'un macro symbole doit être un symbole et non ~S" LANGUAGE
      DEFINE-SYMBOL-MACRO LET EVAL-WHEN (COMPILE LOAD EVAL)
      CHECK-NOT-SPECIAL-VARIABLE-P QUOTE SET MAKE-SYMBOL-MACRO
  )  )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CHECK-NOT-SPECIAL-VARIABLE-P REMOVE-OLD-DEFINITIONS
   #Y(CHECK-NOT-SPECIAL-VARIABLE-P
      #25Y(01 00 00 00 00 02 AB 8D 85 03 00 19 02 D8 D9 DA DB 6D 03 04 DD AE 32
           02 1F
          )
      ERROR "~S: the symbol ~S names a global variable"
      "~S: Das Symbol ~S benennt eine globale Variable."
      "~S : Le symbole ~S est le nom d'une variable globale." LANGUAGE
      DEFINE-SYMBOL-MACRO
  )  )
#Y(#:TOP-LEVEL-FORM-13
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   PRINT-UNREADABLE-OBJECT REMOVE-OLD-DEFINITIONS MACRO
   #Y(PRINT-UNREADABLE-OBJECT
      #55Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 1A 9D 5B 77 9E 5B 5A 5B 78 9F
           5B 78 AB DA 30 61 DB 91 01 0C 00 14 9F 61 02 19 06 AC 2E 01 19 03 DC
           DD 62 9F 7B 02 60 02 1A 6B
          )
      2. MACRO-CALL-ERROR (:IDENTITY :TYPE) WRITE-UNREADABLE FUNCTION LAMBDA
  )  )
#Y(#:TOP-LEVEL-FORM-14
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DECLAIM
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DECLAIM
      #41Y(01 00 01 00 00 08 94 02 D8 62 AC 1A 0F 93 00 D9 DA AC 7A 02 7A 02 83
           02 16 01 82 00 9B 20 6E 16 01 AA 30 A5 16 01 5C 19 04
          )
      PROGN PROCLAIM QUOTE
  )  )