(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)
   (RESTART CONDITION SERIOUS-CONDITION ERROR PROGRAM-ERROR CONTROL-ERROR
    ARITHMETIC-ERROR DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW
    FLOATING-POINT-UNDERFLOW CELL-ERROR UNBOUND-VARIABLE UNDEFINED-FUNCTION
    TYPE-ERROR PACKAGE-ERROR STREAM-ERROR END-OF-FILE FILE-ERROR
    STORAGE-CONDITION WARNING SIMPLE-CONDITION SIMPLE-ERROR SIMPLE-TYPE-ERROR
    SIMPLE-WARNING DEFINE-CONDITION HANDLER-BIND IGNORE-ERRORS HANDLER-CASE
    WITH-CONDITION-RESTARTS RESTART-BIND RESTART-CASE WITH-RESTARTS
    WITH-SIMPLE-RESTART CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE
    MAKE-CONDITION ARITHMETIC-ERROR-OPERATION ARITHMETIC-ERROR-OPERANDS
    CELL-ERROR-NAME TYPE-ERROR-DATUM TYPE-ERROR-EXPECTED-TYPE
    PACKAGE-ERROR-PACKAGE STREAM-ERROR-STREAM FILE-ERROR-PATHNAME
    SIMPLE-CONDITION-FORMAT-STRING SIMPLE-CONDITION-FORMAT-ARGUMENTS SIGNAL
    RESTART-NAME COMPUTE-RESTARTS FIND-RESTART INVOKE-RESTART
    INVOKE-RESTART-INTERACTIVELY INVOKE-DEBUGGER BREAK ERROR CERROR WARN ABORT
    CONTINUE MUFFLE-WARNING STORE-VALUE USE-VALUE *BREAK-ON-SIGNALS*
    *DEBUGGER-HOOK*
  ))
#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
   #21Y(00 00 00 00 00 01 D8 D9 62 DA 62 2C 05 03 D8 37 02 31 29 19 01)
   CONDITION :DIRECT-SUPERCLASSES :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-5
   #38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 29 63 37 02 71 29
        7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01
       )
   PRINT-CONDITION (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-5-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-5-1-1
         #21Y(02 00 00 00 00 03 AB D8 D9 DA 6D 03 03 AE 71 27 2C 03 04 19 03)
         "Condition of type ~S." "Ausnahmefall vom Typ ~S."
         "Condition exceptionnelle de type ~S." LANGUAGE FORMAT
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CONDITION :QUALIFIERS
   :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
   CLOS::DO-DEFGENERIC
  )
#Y(#:TOP-LEVEL-FORM-6
   #35Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 29 63 37 02 71 29 7A 02
        DE 62 DF E0 6D 0A 09 2F 0A 19 01
       )
   CLOS:PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-6-1
      #21Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 C4 5C 19 03)
      #Y(#:TOP-LEVEL-FORM-6-1-1
         #40Y(03 00 00 00 00 04 0E 01 1B 11 0E 02 1B 0D AC AC 2F 04 19 04 14 AD
              AD 35 02 19 04 91 03 76 68 00 01 AD AD 2C 03 03 19 04
             )
         NIL *PRINT-ESCAPE* *PRINT-READABLY* CLOS::%NO-NEXT-METHOD
         PRINT-CONDITION
        )
      (NIL)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CONDITION :QUALIFIERS
   :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
   CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-7
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) DEFINE-CONDITION
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(DEFINE-CONDITION
      #254Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 31 9D 5B 77 9E 5B 5B 77 9F
            5B 5B 5B 77 A0 5B 5B 5B 78 AD 8E 06 21 AC 8E 0B 28 E0 AD 90 00 28
            22 AB 8D 0B 80 43 DA E4 E5 E6 6D 03 06 DF 9F 14 32 02 1F AC 2E 01
            19 03 DA DB DC DD 6D 03 06 DF A1 1A 6C DA E1 E2 E3 6D 03 06 DF A0
            1A 61 9C FA 16 01 1A 80 50 DA EA EB EC 6D 03 06 DF B5 A0 5A 1A 23
            DA ED EE 03 17 1A 15 01 02 AC 62 AB 8B 94 80 6A 86 01 00 14 8D 0B
            10 DA F0 F1 03 1A 14 6D 03 06 DF B4 9F 14 32 03 1F 93 00 8E 83 54
            AA 71 45 24 0F 4E 93 00 AA 23 10 FF B3 AA 24 11 FF B5 9C 5B F9 16
            01 82 01 1A 44 14 60 01 1A 3C 64 22 93 07 03 23 61 02 1A 1D F5 AB
            64 1E 64 1F 64 20 B5 7A 02 03 21 79 93 06 8D 07 63 64 24 64 25 A3
            79 03 26 61 02 14 7A 04 60 03 19 0A 16 02 F3 B0 B0 F4 72 02 23 B0
            91 05 40 00 7B 04 91 01 49 15 19 09
           )
      4. MACRO-CALL-ERROR PROGRAM-ERROR
      "~S: the name of a condition must be a symbol, not ~S"
      "~S: Der Name einer Condition muß ein Symbol sein, nicht: ~S"
      "~S : Le nom d'une condition exceptionnelle doit être un symbole et non ~S"
      LANGUAGE DEFINE-CONDITION #.#'SYMBOLP
      "~S: the parent-type list must be a list of symbols, not ~S"
      "~S: Die Liste der Obertypen muß eine Liste von Symbolen sein, nicht: ~S"
      "~S : La liste des types doit être une liste de symboles et non ~S"
      "~S: the slot description list must be a list, not ~S"
      "~S: Die Liste der Slot-Beschreibungen muß eine Liste sein, nicht: ~S"
      "~S : La liste des descriptions de «slots» doit être une listeet non ~S"
      2. :DOCUMENTATION :REPORT "~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" CLOS:DEFCLASS (CONDITION)
      PROGN CLOS:DEFMETHOD PRINT-CONDITION CONDITION (STREAM) WRITE-STRING
      (STREAM) FUNCALL FUNCTION (CONDITION STREAM)
  )  )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-CONDITION REMOVE-OLD-DEFINITIONS
   #Y(MAKE-CONDITION
      #31Y(01 00 00 00 01 17 AC D8 8A 01 07 98 08 AD 9E 9A 01 03 DA DB DC DD 6D
           03 06 DF AF D8 32 03 1F
          )
      CONDITION SUBTYPEP ERROR "~S: type ~S is not a subtype of ~S"
      "~S: Typ ~S ist kein Untertyp von ~S."
      "~S : Le type ~S n'est pas un sous-type de ~S." LANGUAGE MAKE-CONDITION
      CLOS:MAKE-INSTANCE
  )  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COERCE-TO-CONDITION REMOVE-OLD-DEFINITIONS
   #Y(COERCE-TO-CONDITION
      #78Y(04 00 00 00 01 1A AF 71 28 D8 89 01 29 AF 8D 06 2B AF 8D 07 2E DA DB
           B1 DC E5 E6 E7 E8 6D 03 09 B3 B6 32 06 1F DA DB B0 DC DD DE DF E0 6D
           03 09 B3 B6 B6 32 07 1F 91 04 6C A0 19 06 98 0A B0 A1 9A 01 06 98 0A
           AD E3 B2 E4 B3 A2 9A 05 06
          )
      #.(CLOS:FIND-CLASS 'CONDITION) CLOS::SUBCLASSP TYPE-ERROR :DATUM
      :EXPECTED-TYPE NULL "~S ~S: superfluous arguments ~S"
      "~S ~S: Überflüssige Argumente ~S"
      "~S ~S : Les arguments ~S sont superflus." LANGUAGE MAKE-CONDITION
      :FORMAT-STRING :FORMAT-ARGUMENTS (OR CONDITION SYMBOL STRING)
      "~S: the condition argument must be a string, a symbol or a condition, not ~S"
      "~S: Condition-Argument muß ein String, ein Symbol oder eine Condition sein, nicht ~S"
      "~S : L'argument de condition exceptionnelle doit être de type STRING, SYMBOL ou CONDITION et non ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #27Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 7A 01 DB 62 2C 05 04 D8 37 02 31
        29 19 01
       )
   SERIOUS-CONDITION :DIRECT-SUPERCLASSES CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-11
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   ERROR :DIRECT-SUPERCLASSES SERIOUS-CONDITION CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-12
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   PROGRAM-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-13
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   CONTROL-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-14
   #93Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC DD DE DF
        E0 E1 E2 7A 06 DD E3 DF E4 E1 E5 7A 06 7A 02 2C 05 0E E7 E8 E9 EA 63 EB
        D8 37 02 71 29 7A 01 EC 62 ED EE 6D 0A 17 2F 18 F1 E8 F2 EA 63 EB D8 37
        02 71 29 7A 01 EC 62 ED F3 6D 0A 17 2F 18 D8 37 02 31 29 19 01
       )
   ARITHMETIC-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME
   OPERATION :READERS (ARITHMETIC-ERROR-OPERATION) :INITARGS (:OPERATION)
   OPERANDS (ARITHMETIC-ERROR-OPERANDS) (:OPERANDS) CLOS::ENSURE-CLASS
   ARITHMETIC-ERROR-OPERATION :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-14-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-14-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         OPERATION
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
   ARITHMETIC-ERROR-OPERANDS
   #Y(#:TOP-LEVEL-FORM-14-2 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-14-2-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         OPERANDS
        )
      (T)
     )
   (1. 0. NIL NIL NIL NIL)
  )
#Y(#:TOP-LEVEL-FORM-15
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   DIVISION-BY-ZERO :DIRECT-SUPERCLASSES ARITHMETIC-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-16
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   FLOATING-POINT-OVERFLOW :DIRECT-SUPERCLASSES ARITHMETIC-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-17
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   FLOATING-POINT-UNDERFLOW :DIRECT-SUPERCLASSES ARITHMETIC-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-18
   #63Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC DD DE DF
        E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71 29 7A 01 E9
        62 EA EB 6D 0A 14 2F 15 D8 37 02 31 29 19 01
       )
   CELL-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME NAME
   :READERS (CELL-ERROR-NAME) :INITARGS (:NAME) CLOS::ENSURE-CLASS
   CELL-ERROR-NAME :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-18-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-18-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02) NAME
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-19
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   UNBOUND-VARIABLE :DIRECT-SUPERCLASSES CELL-ERROR CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-20
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   UNDEFINED-FUNCTION :DIRECT-SUPERCLASSES CELL-ERROR CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-21
   #93Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC DD DE DF
        E0 E1 E2 7A 06 DD E3 DF E4 E1 E5 7A 06 7A 02 2C 05 0E E7 E8 E9 EA 63 EB
        D8 37 02 71 29 7A 01 EC 62 ED EE 6D 0A 17 2F 18 F1 E8 F2 EA 63 EB D8 37
        02 71 29 7A 01 EC 62 ED F3 6D 0A 17 2F 18 D8 37 02 31 29 19 01
       )
   TYPE-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME DATUM
   :READERS (TYPE-ERROR-DATUM) :INITARGS (:DATUM) EXPECTED-TYPE
   (TYPE-ERROR-EXPECTED-TYPE) (:EXPECTED-TYPE) CLOS::ENSURE-CLASS
   TYPE-ERROR-DATUM :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-21-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-21-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         DATUM
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
   TYPE-ERROR-EXPECTED-TYPE
   #Y(#:TOP-LEVEL-FORM-21-2 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-21-2-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         EXPECTED-TYPE
        )
      (T)
     )
   (1. 0. NIL NIL NIL NIL)
  )
#Y(#:TOP-LEVEL-FORM-22
   #63Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC DD DE DF
        E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71 29 7A 01 E9
        62 EA EB 6D 0A 14 2F 15 D8 37 02 31 29 19 01
       )
   PACKAGE-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME
   PACKAGE :READERS (PACKAGE-ERROR-PACKAGE) :INITARGS (:PACKAGE)
   CLOS::ENSURE-CLASS PACKAGE-ERROR-PACKAGE :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-22-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-22-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         PACKAGE
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-23
   #63Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC DD DE DF
        E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71 29 7A 01 E9
        62 EA EB 6D 0A 14 2F 15 D8 37 02 31 29 19 01
       )
   STREAM-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME STREAM
   :READERS (STREAM-ERROR-STREAM) :INITARGS (:STREAM) CLOS::ENSURE-CLASS
   STREAM-ERROR-STREAM :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-23-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-23-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         STREAM
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-24
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   END-OF-FILE :DIRECT-SUPERCLASSES STREAM-ERROR CONDITION :DIRECT-SLOTS
   CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-25
   #63Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC DD DE DF
        E0 E1 E2 7A 06 7A 01 2C 05 0B E4 E5 E6 E7 63 E8 D8 37 02 71 29 7A 01 E9
        62 EA EB 6D 0A 14 2F 15 D8 37 02 31 29 19 01
       )
   FILE-ERROR :DIRECT-SUPERCLASSES ERROR CONDITION :DIRECT-SLOTS :NAME PATHNAME
   :READERS (FILE-ERROR-PATHNAME) :INITARGS (:PATHNAME) CLOS::ENSURE-CLASS
   FILE-ERROR-PATHNAME :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-25-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-25-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         PATHNAME
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-26
   #32Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 7A 02 DC 62 2C 05
        05 D8 37 02 31 29 19 01
       )
   STORAGE-CONDITION :DIRECT-SUPERCLASSES SERIOUS-CONDITION CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-27
   #27Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 7A 01 DB 62 2C 05 04 D8 37 02 31
        29 19 01
       )
   WARNING :DIRECT-SUPERCLASSES CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-28
   #96Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 7A 01 DB DC DD DE DF E0 E1 E2 62
        00 79 7A 08 DC E3 DE E4 E0 E5 E2 62 00 79 7A 08 7A 02 2C 05 0E E7 E8 E9
        EA 63 EB D8 37 02 71 29 7A 01 EC 62 ED EE 6D 0A 17 2F 18 F1 E8 F2 EA 63
        EB D8 37 02 71 29 7A 01 EC 62 ED F3 6D 0A 17 2F 18 D8 37 02 31 29 19 01
       )
   SIMPLE-CONDITION :DIRECT-SUPERCLASSES CONDITION :DIRECT-SLOTS :NAME
   FORMAT-STRING :READERS (SIMPLE-CONDITION-FORMAT-STRING) :INITARGS
   (:FORMAT-STRING) :INITER FORMAT-ARGUMENTS
   (SIMPLE-CONDITION-FORMAT-ARGUMENTS) (:FORMAT-ARGUMENTS) CLOS::ENSURE-CLASS
   SIMPLE-CONDITION-FORMAT-STRING :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-28-1 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-28-1-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         FORMAT-STRING
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
   SIMPLE-CONDITION-FORMAT-ARGUMENTS
   #Y(#:TOP-LEVEL-FORM-28-2 #11Y(01 00 00 00 00 02 D8 C4 5C 19 02)
      #Y(#:TOP-LEVEL-FORM-28-2-1 #12Y(01 00 00 00 00 02 AB D8 31 3B 19 02)
         FORMAT-ARGUMENTS
        )
      (T)
     )
   (1. 0. NIL NIL NIL NIL)
  )
#Y(#:TOP-LEVEL-FORM-29
   #35Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 29 63 37 02 71 29 7A 02
        DE DF E0 E1 6D 0A 0A 2F 0B 19 01
       )
   PRINT-CONDITION :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-29-1
      #21Y(01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 C4 5C 19 03)
      #Y(#:TOP-LEVEL-FORM-29-1-1
         #42Y(03 00 00 00 00 04 AC 6E 01 91 00 0D 91 04 14 68 00 01 AE AE 2C 03
              04 19 05 98 02 AD AC B0 2E 03 9A 02 05 14 AE AE 35 02 19 05
             )
         NIL SIMPLE-CONDITION-FORMAT-STRING FORMAT
         SIMPLE-CONDITION-FORMAT-ARGUMENTS CLOS::%NO-NEXT-METHOD
        )
      (NIL)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SIMPLE-CONDITION :QUALIFIERS
   (:AROUND) :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
   CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-30
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-ERROR :DIRECT-SUPERCLASSES SIMPLE-CONDITION ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-31
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-TYPE-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR TYPE-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-32
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-WARNING :DIRECT-SUPERCLASSES SIMPLE-CONDITION WARNING CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-33
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-SERIOUS-CONDITION :DIRECT-SUPERCLASSES SIMPLE-CONDITION
   SERIOUS-CONDITION CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-34
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-PROGRAM-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR PROGRAM-ERROR
   CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-35
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-CONTROL-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR CONTROL-ERROR
   CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-36
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-ARITHMETIC-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR ARITHMETIC-ERROR
   CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-37
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-DIVISION-BY-ZERO :DIRECT-SUPERCLASSES SIMPLE-ERROR DIVISION-BY-ZERO
   CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-38
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-FLOATING-POINT-OVERFLOW :DIRECT-SUPERCLASSES SIMPLE-ERROR
   FLOATING-POINT-OVERFLOW CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-39
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-FLOATING-POINT-UNDERFLOW :DIRECT-SUPERCLASSES SIMPLE-ERROR
   FLOATING-POINT-UNDERFLOW CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-40
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-CELL-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR CELL-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-41
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-UNBOUND-VARIABLE :DIRECT-SUPERCLASSES SIMPLE-ERROR UNBOUND-VARIABLE
   CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-42
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-UNDEFINED-FUNCTION :DIRECT-SUPERCLASSES SIMPLE-ERROR
   UNDEFINED-FUNCTION CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-43
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-PACKAGE-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR PACKAGE-ERROR
   CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-44
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-STREAM-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR STREAM-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-45
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-END-OF-FILE :DIRECT-SUPERCLASSES SIMPLE-ERROR END-OF-FILE CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-46
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-FILE-ERROR :DIRECT-SUPERCLASSES SIMPLE-ERROR FILE-ERROR CONDITION
   :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-47
   #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 29 DB 37 02 71 29 DC 37 02 71 29 7A
        03 DD 62 2C 05 06 D8 37 02 31 29 19 01
       )
   SIMPLE-STORAGE-CONDITION :DIRECT-SUPERCLASSES SIMPLE-CONDITION
   STORAGE-CONDITION CONDITION :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-48 #11Y(00 00 00 00 00 01 D8 2E 01 19 01)
   #((CONDITION . SIMPLE-CONDITION)
     (SERIOUS-CONDITION . SIMPLE-SERIOUS-CONDITION) (ERROR . SIMPLE-ERROR)
     (PROGRAM-ERROR . SIMPLE-PROGRAM-ERROR)
     (CONTROL-ERROR . SIMPLE-CONTROL-ERROR)
     (ARITHMETIC-ERROR . SIMPLE-ARITHMETIC-ERROR)
     (DIVISION-BY-ZERO . SIMPLE-DIVISION-BY-ZERO)
     (FLOATING-POINT-OVERFLOW . SIMPLE-FLOATING-POINT-OVERFLOW)
     (FLOATING-POINT-UNDERFLOW . SIMPLE-FLOATING-POINT-UNDERFLOW)
     (CELL-ERROR . SIMPLE-CELL-ERROR)
     (UNBOUND-VARIABLE . SIMPLE-UNBOUND-VARIABLE)
     (UNDEFINED-FUNCTION . SIMPLE-UNDEFINED-FUNCTION)
     (TYPE-ERROR . SIMPLE-TYPE-ERROR) (PACKAGE-ERROR . SIMPLE-PACKAGE-ERROR)
     (STREAM-ERROR . SIMPLE-STREAM-ERROR) (END-OF-FILE . SIMPLE-END-OF-FILE)
     (FILE-ERROR . SIMPLE-FILE-ERROR)
     (STORAGE-CONDITION . SIMPLE-STORAGE-CONDITION) (WARNING . SIMPLE-WARNING)
    )
   %DEFCLCS
  )
#Y(#:TOP-LEVEL-FORM-49
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *BREAK-ON-SIGNALS*) *BREAK-ON-SIGNALS*
  )
#Y(#:TOP-LEVEL-FORM-50
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) HANDLER-BIND
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(HANDLER-BIND
      #172Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 1A 9D 5B 77 9E 5B 78 DA AC
            72 00 17 DB AD 72 00 17 AC 7A 01 72 02 23 62 AB 1A 11 AC 2E 01 19
            03 93 00 37 01 71 86 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A5 00
            DC DD AC 62 AF 1A 12 93 00 DE DF 62 E0 9F 79 7A 03 7A 02 83 02 16
            01 82 00 9B 20 6B 16 01 AA 7F A5 00 72 01 17 E1 E2 E3 62 B2 B1 1A
            25 16 03 1A 26 93 01 9C 1F 77 93 01 AB DE DF E4 E5 E5 B0 7A 02 D1
            7B 02 7A 03 7A 02 7A 02 83 04 16 02 82 01 82 00 9C 20 5C 16 02 AA
            7F A5 00 E5 B1 30 9E 77 7A 02 7A 03 7A 03 60 03 19 08
           )
      2. MACRO-CALL-ERROR #.#'FIRST #.#'REST LET #.#'LIST FUNCTION LAMBDA PROGN
      LOCALLY (DECLARE (COMPILE)) %HANDLER-BIND (CONDITION) FUNCALL (CONDITION)
  )  )
#Y(#:TOP-LEVEL-FORM-51
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) IGNORE-ERRORS
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(IGNORE-ERRORS
      #39Y(01 00 01 00 00 08 94 02 37 01 71 86 D8 AB D9 DA DB DC DD DE B2 CA 7B
           02 7A 03 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 05
          )
      BLOCK HANDLER-BIND ERROR FUNCTION LAMBDA (CONDITION) RETURN-FROM
      ((VALUES NIL CONDITION))
  )  )
#Y(#:TOP-LEVEL-FORM-52
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) HANDLER-CASE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(HANDLER-CASE
      #301Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 0B 9D 5B 77 9E 5B 78 01 02
            1A 80 5D AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF AD 32 02 1F 9B F8
            16 01 1A 80 45 DA E5 E6 E7 6D 03 06 DF AD AF 32 03 1F 93 02 82 03
            9B 1F 59 9B 5B 1F 55 9B 5B 77 8E 0B 4F 93 00 24 08 0F 92 03 53 E1
            E2 E3 6D 03 06 DF E0 AD 2C 04 0C 9B 5B 77 9B 5B 1B 47 16 01 37 01
            71 86 9C 79 83 01 16 01 AC 8C 94 44 AA 80 47 00 37 01 71 86 37 01
            71 86 E8 AC E9 AD 7A 01 EA EB B1 EC 62 B5 1A 3D 03 18 1A 25 F4 ED
            EE A9 5B 79 7A 02 AC 60 03 1A 3D 93 00 93 00 9C 5B 77 9D 5B 5B 77
            AB ED EE EF 92 04 5D F1 BD 03 1A 61 02 14 F3 B2 7A 02 7A 04 7A 02
            60 02 16 02 F6 83 02 16 01 82 00 9B 20 51 16 01 AA 7F A5 00 B8 7A
            03 91 0B FF B7 9B F6 7A 03 62 B3 1A 32 00 1A 1C 93 00 93 00 9C 5B
            5B 77 9D 5B 5B 78 AC EB B9 E9 92 05 6A AF BB 7A 01 72 02 23 60 01
            14 A0 7B 02 7A 03 60 02 16 02 F6 AD 7F A3 02 16 01 82 00 9B 20 4E
            16 01 AA 30 A5 16 01 7B 02 7A 03 60 03 19 09
           )
      2. MACRO-CALL-ERROR PROGRAM-ERROR "~S: illegal syntax of clause ~S"
      "~S: Illegale Syntax für Klausel: ~S"
      "~S : syntaxe inadmissible de la phrase ~S" LANGUAGE HANDLER-CASE
      :NO-ERROR "~S: misplaced ~S clause: ~S"
      "~S: ~S-Klausel an falscher Stelle: ~S" "~S : phrase ~S mal placée: ~S"
      WARN "~S: too many variables ~S in clause ~S"
      "~S: Zu viele Variablen ~S in Klausel ~S"
      "~S : trop de variables ~S dans la phrase ~S" BLOCK LET TAGBODY
      RETURN-FROM HANDLER-BIND FUNCTION LAMBDA (CONDITION)
      (DECLARE (IGNORE CONDITION)) SETQ (CONDITION) GO MULTIPLE-VALUE-CALL
  )  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEFAULT-RESTART-TEST REMOVE-OLD-DEFINITIONS
   #Y(DEFAULT-RESTART-TEST #9Y(01 00 00 00 00 02 02 19 02))
  )
#Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEFAULT-RESTART-INTERACTIVE REMOVE-OLD-DEFINITIONS
   #Y(DEFAULT-RESTART-INTERACTIVE #9Y(00 00 00 00 00 01 00 19 01))
  )
#Y(#:TOP-LEVEL-FORM-55
   #341Y(00 00 00 00 00 01 00 2A 02 C3 0B 00 00 C4 0B 00 01 DA 2E 03 DA AB 6C
         04 01 31 78 DD DE DF 63 DA E0 67 06 00 67 07 01 72 06 00 31 7E 16 01
         DD 2E 09 E2 30 5B E3 2E 03 E3 E4 E5 31 7E E3 E6 31 78 E7 30 5B E8 2E
         03 E8 E4 E9 31 7E E8 EA 31 78 EB 30 5B EC 30 5B ED 2E 03 ED E4 EE 31
         7E ED EF 31 78 F0 30 5B F1 30 5B F2 2E 03 F2 E4 F3 31 7E F2 F4 31 78
         F5 30 5B 64 1E 30 5B 64 1F 2E 03 64 1F E4 64 20 31 7E 64 1F 64 21 31
         78 64 22 30 5B 64 23 30 5B 64 24 2E 03 64 24 E4 64 25 31 7E 64 24 64
         26 31 78 64 27 30 5B 64 28 30 5B 64 29 2E 03 64 29 E4 64 2A 31 7E 64
         29 64 2B 31 78 64 2C 30 5B 64 2D 30 5B 64 2E 2E 03 64 2E E4 64 2F 31
         7E 64 2E 64 30 31 78 ED 64 31 64 32 03 33 79 31 7E ED 64 34 62 2C 03
         35 F2 64 31 64 32 03 36 79 31 7E F2 64 34 62 2C 03 35 64 1F 64 31 64
         32 03 37 79 31 7E 64 1F 64 34 62 2C 03 35 64 24 64 31 64 32 03 38 79
         31 7E 64 24 64 34 62 2C 03 35 64 29 64 31 64 32 03 39 79 31 7E 64 29
         64 34 62 2C 03 35 64 2E 64 31 64 32 03 3A 79 31 7E 64 2E 64 34 62 2C
         03 35 DD 64 3B 62 2C 03 35 DD 64 3C 64 3D 31 7E C8 19 01
        )
   #Y(DEFAULT-TEST #10Y(00 00 00 00 00 01 97 00 19 01) DEFAULT-RESTART-TEST)
   #Y(DEFAULT-INTERACTIVE #10Y(00 00 00 00 00 01 97 00 19 01)
      DEFAULT-RESTART-INTERACTIVE
     )
   MAKE-RESTART REMOVE-OLD-DEFINITIONS
   #Y(MAKE-RESTART
      #79Y(00 00 00 00 80 1B 06 00 01 00 3C 06 3A 05 06 68 00 01 35 00 FB 3C 04
           3C 03 3C 02 3A 01 06 68 00 02 35 00 F7 DF E0 71 30 E1 AB E2 B4 31 2F
           E1 AB E3 B3 31 2F E1 AB E4 B2 31 2F E1 AB E5 B1 31 2F E1 AB E6 B0 31
           2F E1 AB E7 AF 31 2F 15 19 07
          )
      NIL :NAME :TEST :INVOKE-TAG :INVOKE-FUNCTION :REPORT :INTERACTIVE
      #1=(RESTART) 7. RESTART 1. 2. 3. 4. 5. 6.
     )
   RESTART DEFSTRUCT-DESCRIPTION #1#
   ((NAME 1. NIL T NIL)
    (TEST 2. (SVREF (GET 'RESTART . #2=('DEFSTRUCT-DESCRIPTION)) 4.) T NIL)
    (INVOKE-TAG 3. NIL T NIL) (INVOKE-FUNCTION 4. NIL T NIL)
    (REPORT 5. NIL T NIL)
    (INTERACTIVE 6. (SVREF (GET 'RESTART . #2#) 5.) T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE RESTART-P) RESTART-P INLINE-EXPANSION
   ((OBJECT) (DECLARE (IN-DEFUN RESTART-P))
    (BLOCK RESTART-P (%STRUCTURE-TYPE-P 'RESTART OBJECT))
   )
   #Y(RESTART-P #12Y(01 00 00 00 00 02 D8 AC 31 32 19 02) RESTART)
   (INLINE COPY-RESTART) COPY-RESTART
   ((STRUCTURE) (DECLARE (IN-DEFUN COPY-RESTART))
    (BLOCK COPY-RESTART (%COPY-STRUCTURE STRUCTURE))
   )
   #Y(COPY-RESTART #11Y(01 00 00 00 00 02 AB 31 31 19 02))
   (FUNCTION RESTART-NAME (RESTART) T) (INLINE RESTART-NAME) RESTART-NAME
   (#3=(OBJECT) (DECLARE (IN-DEFUN RESTART-NAME))
    (BLOCK RESTART-NAME (THE T (%STRUCTURE-REF 'RESTART OBJECT 1.)))
   )
   #Y(RESTART-NAME #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) RESTART 1.)
   (FUNCTION RESTART-TEST (RESTART) T) (INLINE RESTART-TEST) RESTART-TEST
   (#3# (DECLARE (IN-DEFUN RESTART-TEST))
    (BLOCK RESTART-TEST (THE T (%STRUCTURE-REF 'RESTART OBJECT 2.)))
   )
   #Y(RESTART-TEST #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) RESTART 2.)
   (FUNCTION RESTART-INVOKE-TAG (RESTART) T) (INLINE RESTART-INVOKE-TAG)
   RESTART-INVOKE-TAG
   (#3# (DECLARE (IN-DEFUN RESTART-INVOKE-TAG))
    (BLOCK RESTART-INVOKE-TAG (THE T (%STRUCTURE-REF 'RESTART OBJECT 3.)))
   )
   #Y(RESTART-INVOKE-TAG #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) RESTART
      3.
     )
   (FUNCTION RESTART-INVOKE-FUNCTION (RESTART) T)
   (INLINE RESTART-INVOKE-FUNCTION) RESTART-INVOKE-FUNCTION
   (#3# (DECLARE (IN-DEFUN RESTART-INVOKE-FUNCTION))
    (BLOCK RESTART-INVOKE-FUNCTION (THE T (%STRUCTURE-REF 'RESTART OBJECT 4.)))
   )
   #Y(RESTART-INVOKE-FUNCTION #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02)
      RESTART 4.
     )
   (FUNCTION RESTART-REPORT (RESTART) T) (INLINE RESTART-REPORT) RESTART-REPORT
   (#3# (DECLARE (IN-DEFUN RESTART-REPORT))
    (BLOCK RESTART-REPORT (THE T (%STRUCTURE-REF 'RESTART OBJECT 5.)))
   )
   #Y(RESTART-REPORT #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) RESTART 5.)
   (FUNCTION RESTART-INTERACTIVE (RESTART) T) (INLINE RESTART-INTERACTIVE)
   RESTART-INTERACTIVE
   (#3# (DECLARE (IN-DEFUN RESTART-INTERACTIVE))
    (BLOCK RESTART-INTERACTIVE (THE T (%STRUCTURE-REF 'RESTART OBJECT 6.)))
   )
   #Y(RESTART-INTERACTIVE #13Y(01 00 00 00 00 02 D8 AC D9 31 2E 19 02) RESTART
      6.
     )
   SETF-EXPANDER -1.
   #Y(SETF-RESTART-NAME
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'RESTART 1.
     )
   SETF %SET-DOCUMENTATION
   #Y(SETF-RESTART-TEST
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'RESTART 2.
     )
   #Y(SETF-RESTART-INVOKE-TAG
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'RESTART 3.
     )
   #Y(SETF-RESTART-INVOKE-FUNCTION
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'RESTART 4.
     )
   #Y(SETF-RESTART-REPORT
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'RESTART 5.
     )
   #Y(SETF-RESTART-INTERACTIVE
      #18Y(02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
      %STRUCTURE-STORE 'RESTART 6.
     )
   STRUCTURE STRUCTURE-PRINT
   #Y(RESTART-PRINT-FUNCTION #14Y(03 00 00 00 00 04 AD AD AD 2C 03 00 19 04)
      PRINT-RESTART
  )  )
#Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PRINT-RESTART REMOVE-OLD-DEFINITIONS
   #Y(PRINT-RESTART
      #80Y(03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 0E 00 1B 20 0E 01
           1B 1C 67 00 00 DE AB DF 80 2E 00 91 00 23 67 01 00 DE AB E0 80 2E 00
           67 02 01 30 83 19 06 AA 6C 02 01 67 01 00 67 02 01 DB 63 DC 63 2C 07
           05 19 05 14 67 02 01 35 01 19 06
          )
      *PRINT-ESCAPE* *PRINT-READABLY*
      #Y(PRINT-RESTART-1
         #24Y(00 00 00 00 00 01 68 00 01 D9 AB DA 80 2E 00 37 0C 68 00 02 30 82
              19 01
             )
         NIL RESTART 1.
        )
      :TYPE :IDENTITY WRITE-UNREADABLE RESTART 5. 1.
  )  )
#Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAKE-RESTART-FORM REMOVE-OLD-DEFINITIONS
   #Y(MAKE-RESTART-FORM
      #71Y(06 00 00 00 00 00 D8 D9 B2 B2 DA 8E 02 21 00 14 91 08 22 00 14 DD B3
           91 09 21 00 14 B3 DF 8E 02 20 00 14 32 02 23 7B 02 32 03 23 61 03 19
           07 DB B3 60 02 1A 5A DC B3 60 02 1A 59 DE B4 60 02 1A 5A E0 B4 60 02
           1A 5B
          )
      MAKE-RESTART :NAME #'DEFAULT-RESTART-TEST :TEST :INVOKE-TAG
      :INVOKE-FUNCTION :REPORT #'DEFAULT-RESTART-INTERACTIVE :INTERACTIVE
  )  )
#Y(#:TOP-LEVEL-FORM-58
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *ACTIVE-RESTARTS*) *ACTIVE-RESTARTS*
  )
#Y(#:TOP-LEVEL-FORM-59
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *CONDITION-RESTARTS*) *CONDITION-RESTARTS*
  )
#Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ADD-CONDITION-RESTARTS REMOVE-OLD-DEFINITIONS
   #Y(ADD-CONDITION-RESTARTS
      #30Y(02 00 00 00 00 03 AB 62 1A 0D 86 01 00 AE 9C 79 0E 00 5C 0F 00 82 01
           AB 8C 94 6F 00 19 05
          )
      *CONDITION-RESTARTS*
  )  )
#Y(#:TOP-LEVEL-FORM-61
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-CONDITION-RESTARTS REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-CONDITION-RESTARTS
      #46Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 1B 9D 5B 77 9E 5B 5B 77 9F 5B
           5B 78 DA DB DC AF AF 7A 03 DA 62 A0 7B 02 60 04 19 06 AC 2E 01 19 03
          )
      3. MACRO-CALL-ERROR LET ((*CONDITION-RESTARTS* *CONDITION-RESTARTS*))
      ADD-CONDITION-RESTARTS
  )  )
#Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   APPLICABLE-RESTART-P REMOVE-OLD-DEFINITIONS
   #Y(APPLICABLE-RESTART-P
      #56Y(02 00 00 00 00 03 63 6A 00 62 1A 17 02 16 03 1E 25 1A 19 86 01 00 78
           A1 22 07 93 00 A0 21 6D 7C 02 82 01 AB 8C 94 6C 9D 16 03 1E 0A D9 AD
           DA 71 2E AC 35 01 19 03 19 03
          )
      *CONDITION-RESTARTS* RESTART 2.
  )  )
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMPUTE-RESTARTS REMOVE-OLD-DEFINITIONS
   #Y(COMPUTE-RESTARTS
      #39Y(00 00 01 00 00 07 00 2A 01 3A 02 12 00 0B 00 00 1C 11 AA 6C 00 01 6A
           01 37 05 31 4E 19 03 0B 00 00 1B 6F 0E 01 19 03
          )
      #Y(LISP::COMPUTE-RESTARTS-1
         #14Y(01 00 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL
         APPLICABLE-RESTART-P
        )
      *ACTIVE-RESTARTS*
  )  )
#Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FIND-RESTART REMOVE-OLD-DEFINITIONS
   #Y(FIND-RESTART
      #117Y(01 00 01 00 00 08 3A 01 17 7C 01 91 02 15 D8 D9 DA DB 6D 03 04 DD
            AF DE 32 03 1F 6A 07 62 1A 3E 92 02 6B AC 8D 06 74 E0 AD 8E 32 39
            6A 07 62 AB 8B 94 2F 86 01 00 14 A0 22 0B 92 03 05 AA AE 8A 0A 03
            15 19 04 82 01 1A 66 86 01 00 E0 AB E1 71 2E A0 22 08 92 03 6B AA
            AE 89 0A 66 82 01 AB 8C 94 67 00 19 05 E3 E4 AE E5 E6 E7 E8 E9 6D
            03 04 DD B3 32 06 1F
           )
      ERROR "~S: ~S is not a valid restart name here. Use ~S instead."
      "~S: ~S ist als Restart-Name hier nicht zulässig. Verwenden Sie ~S."
      "~S : ~S n'est pas valable comme nom de «restart» ici. Utilisez ~S."
      LANGUAGE FIND-RESTART COMPUTE-RESTARTS *ACTIVE-RESTARTS* RESTART 1.
      APPLICABLE-RESTART-P TYPE-ERROR :DATUM :EXPECTED-TYPE (OR SYMBOL RESTART)
      "~S: invalid restart name ~S" "~S: Ungültiger Restart-Name: ~S"
      "~S : Nom inadmissible pour un «restart»: ~S"
  )  )
#Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   RESTART-NOT-FOUND REMOVE-OLD-DEFINITIONS
   #Y(RESTART-NOT-FOUND
      #18Y(01 00 00 00 00 02 D8 D9 DA DB 6D 03 04 DD AE 32 02 1F) CONTROL-ERROR
      "~S: No restart named ~S is visible."
      "~S: Ein Restart mit Namen ~S ist nicht sichtbar."
      "~S : Un «restart» de nom ~S n'est pas visible." LANGUAGE INVOKE-RESTART
  )  )
#Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   %INVOKE-RESTART REMOVE-OLD-DEFINITIONS
   #Y(%INVOKE-RESTART
      #28Y(02 00 00 00 00 03 D8 AD D9 8D 2E 09 D8 AD DA 71 2E 9D 9A 00 03 D8 AD
           D9 71 2E 9D 51
          )
      RESTART 3. 4.
  )  )
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INVOKE-RESTART REMOVE-OLD-DEFINITIONS
   #Y(INVOKE-RESTART
      #21Y(01 00 00 00 01 17 AC 6E 00 91 00 03 AD 2E 01 AA AD 2F 02 19 04)
      FIND-RESTART RESTART-NOT-FOUND %INVOKE-RESTART
  )  )
#Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INVOKE-RESTART-CONDITION REMOVE-OLD-DEFINITIONS
   #Y(INVOKE-RESTART-CONDITION
      #22Y(02 00 00 00 01 18 AD AD 6F 00 91 00 03 AE 2E 01 AA AD 2F 02 19 05)
      FIND-RESTART RESTART-NOT-FOUND %INVOKE-RESTART
  )  )
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INVOKE-RESTART-CONDITION-IF-EXISTS REMOVE-OLD-DEFINITIONS
   #Y(INVOKE-RESTART-CONDITION-IF-EXISTS
      #22Y(02 00 00 00 01 18 AD AD 6F 00 91 00 03 00 19 05 14 AD 2F 01 19 05)
      FIND-RESTART %INVOKE-RESTART
  )  )
#Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   INVOKE-RESTART-INTERACTIVELY REMOVE-OLD-DEFINITIONS
   #Y(INVOKE-RESTART-INTERACTIVELY
      #28Y(01 00 00 00 00 02 AB 6E 00 91 00 03 AC 2E 01 DA AB DB 71 2E 75 00 AB
           AB 2F 04 19 04
          )
      FIND-RESTART RESTART-NOT-FOUND RESTART 6. %INVOKE-RESTART
  )  )
#Y(#:TOP-LEVEL-FORM-71
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) RESTART-BIND
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(RESTART-BIND
      #140Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 80 43 9D 5B 77 9E 5B 78 DA
            83 00 AB 8E 0B 3B 92 01 80 69 E1 E2 E3 62 AF 9B 1F 80 4C 93 00 00
            2A 01 7E 01 00 00 14 8E 0B 0D 06 00 00 5B 1F 07 06 00 00 77 8D 06
            1F DB E4 E5 E6 6D 03 07 E0 06 03 00 14 32 02 1F AC 2E 01 19 03 DB
            DC DD DE 6D 03 07 E0 9F 1A 6C AA 6C 0F 01 06 01 00 36 00 F6 83 02
            16 01 82 00 1A FF B0 16 01 AA 7F A5 00 E8 32 02 23 79 7A 02 7A 01
            AC 60 03 19 05 15 19 04
           )
      2. MACRO-CALL-ERROR PROGN PROGRAM-ERROR "~S: not a list: ~S"
      "~S: Das ist keine Liste: ~S" "~S : ceci n'est pas une liste: ~S"
      LANGUAGE RESTART-BIND LET *ACTIVE-RESTARTS* LIST*
      "~S: invalid restart specification ~S"
      "~S: Ungültige Restart-Spezifikation: ~S"
      "~S : spécification inadmissible d'un «restart»: ~S"
      #Y(LISP::RESTART-BIND-1
         #65Y(02 00 00 00 80 1D 03 00 01 00 3A 03 02 C7 F9 3A 02 02 C8 F8 3A 01
              16 7C 01 92 05 14 1A 15 DE DF E0 E1 6D 03 0A E3 DB 68 00 01 32 03
              1F 91 05 03 92 01 6B E4 B0 7A 02 AE 62 B1 AF B1 2C 06 0D 19 06
             )
         NIL :TEST-FUNCTION :INTERACTIVE-FUNCTION :REPORT-FUNCTION
         #'DEFAULT-RESTART-TEST #'DEFAULT-RESTART-INTERACTIVE PROGRAM-ERROR
         "~S: unnamed restarts require ~S to be specified: ~S"
         "~S: Bei unbenannten Restarts muß ~S angegeben werden: ~S"
         "~S : Il faut spécifier ~S pour des «restarts» anonymes: ~S" LANGUAGE
         RESTART-BIND QUOTE MAKE-RESTART-FORM
        )
      (*ACTIVE-RESTARTS*)
  )  )
#Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EXPAND-RESTART-CASE REMOVE-OLD-DEFINITIONS
   #Y(EXPAND-RESTART-CASE
      #522Y(03 00 00 00 00 04 AC 8E 0B 05 62 AD 1A 80 BE D8 D9 DA DB 6D 03 04
            AF A0 1A 80 62 D8 DD DE DF 6D 03 04 B3 9E 1A 80 56 93 00 AA 9B 1F
            6E 9B 5B 1F 6A 93 00 8E 06 65 93 00 82 01 01 04 1A 1B 93 05 82 06
            69 01 7D 03 92 00 10 7D 02 1A 0C 93 05 82 06 83 00 93 05 82 06 83
            00 AF 8B 94 14 91 03 05 93 05 8D 0B 59 91 02 09 A0 5B 1F 05 93 05
            8D 83 5C 91 03 1A D8 E0 E1 E2 6D 03 04 B8 A3 14 32 02 1F D8 E5 E6
            E7 6D 03 04 BB E8 B7 32 03 1F E3 AB 31 47 36 00 41 03 91 07 04 AA
            23 0C 64 9F 1F 18 93 04 E9 37 03 8B B5 10 AB 24 12 0C EB EC ED 6D
            03 04 BA EE B6 2C 04 17 37 01 71 86 B2 AE AE AE B3 A9 61 06 16 08
            F6 83 02 16 01 82 00 9B 20 FF 56 16 01 AA 7F A5 00 37 01 71 86 37
            01 71 86 AE 8E 04 0C 9F 5A 25 18 00 00 1A 04 37 01 31 86 14 F1 AD
            F2 AE 7A 01 F3 62 B3 1A 80 9E 00 1A 80 89 64 1E 64 23 64 24 B2 03
            25 7B 02 60 03 1A 80 76 14 64 29 9F 79 7A 02 64 2A 64 2B B5 03 2C
            7B 02 7A 02 03 2D 61 02 1A 80 96 64 30 64 31 F5 64 1E 64 32 64 33
            64 31 BA 7A 03 03 34 7B 03 7A 02 7A 02 7A 01 AE 60 03 1A 80 7C 93
            00 93 00 9C 5B 77 9D 5B 5B 77 9E 5B 5B 5B 77 AE 70 97 F4 AE 7A 02
            F5 AE 7A 02 62 F5 64 1E 64 1F 64 20 BF 03 21 7B 02 64 22 B6 7A 02
            7A 04 7A 02 AE 23 0C FF 7D F5 AF 8D 07 FF 7B A0 14 60 02 14 F5 B1
            7A 02 2C 06 26 16 04 F6 83 02 16 01 82 00 9B 20 FF AB 16 01 AA 7F
            A5 00 64 27 B3 B7 7A 03 64 28 91 08 FF 60 64 2A 64 2E AE 64 2F 32
            02 23 79 7A 02 60 01 14 91 09 FF 65 9D 14 60 03 16 01 F6 62 B4 1A
            29 93 00 93 00 9C 5B 5B 5B 5B 78 AB 64 27 B9 64 35 F5 64 1E A1 79
            7A 02 BB 7A 03 7A 03 60 02 16 01 F6 AD 7F A3 02 16 01 82 00 9B 20
            54 16 01 AA 30 A5 16 01 7B 02 7A 03 60 03 19 08
           )
      PROGRAM-ERROR "~S: not a list: ~S" "~S: Das ist keine Liste: ~S"
      "~S : ceci n'est pas une liste: ~S" LANGUAGE
      "~S: invalid restart specification ~S"
      "~S: Ungültige Restart-Spezifikation: ~S"
      "~S : spécification inadmissible d'un «restart»: ~S"
      "~S: missing lambda list in restart specification ~S"
      "~S: Restart-Spezifikation ohne Lambda-Liste: ~S"
      "~S : il faut une liste lambda dans la spécification d'un «restart»: ~S"
      #Y(EXPAND-RESTART-CASE-1
         #32Y(00 00 00 00 80 1B 03 00 00 00 3A 03 02 C6 F9 3A 02 02 C7 F8 3A 01
              02 C8 F7 AD AD AD 3F 03 19 04
             )
         :TEST :INTERACTIVE :REPORT DEFAULT-RESTART-TEST
         DEFAULT-RESTART-INTERACTIVE DEFAULT-RESTART-REPORT
        )
      DEFAULT-RESTART-REPORT
      "~S: unnamed restarts require ~S to be specified: ~S"
      "~S: Bei unbenannten Restarts muß ~S angegeben werden: ~S"
      "~S : Il faut spécifier ~S pour des «restarts» anonymes: ~S" :REPORT
      #.LAMBDA-LIST-KEYWORDS DEFAULT-RESTART-INTERACTIVE
      "~S: restart cannot be invoked interactively because it is missing a ~S option: ~S"
      "~S: Restart kann nicht interaktiv aufgerufen werden, weil ~S fehlt: ~S"
      "~S : Ce «restart» ne peut prendre le contrôle en dialogue car il manque un ~S : ~S"
      :INTERACTIVE WARN
      #S(HASH-TABLE EQ (WARN . 4.) (CERROR . 4.) (ERROR . 4.) (SIGNAL . 4.))
      BLOCK LET TAGBODY QUOTE FUNCTION LAMBDA (&REST ARGUMENTS) SETQ
      (ARGUMENTS) GO (STREAM) WRITE-STRING (STREAM) MAKE-RESTART-FORM
      RETURN-FROM LET* LIST *ACTIVE-RESTARTS* APPEND (*ACTIVE-RESTARTS*)
      ((*CONDITION-RESTARTS* *CONDITION-RESTARTS*)) LIST* (*ACTIVE-RESTARTS*)
      HANDLER-BIND CONDITION (CONDITION) ADD-CONDITION-RESTARTS
      ((SIGNAL CONDITION)) APPLY
  )  )
#Y(#:TOP-LEVEL-FORM-73
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) RESTART-CASE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(RESTART-CASE
      #33Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 0E 9D 5B 77 9E 5B 78 DA AB AD
           2C 03 03 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR RESTART-CASE EXPAND-RESTART-CASE
  )  )
#Y(#:TOP-LEVEL-FORM-74
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) WITH-RESTARTS
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-RESTARTS
      #35Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 10 9D 5B 77 9E 5B 78 DA AC DB
           9E 79 2C 03 04 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR WITH-RESTARTS PROGN EXPAND-RESTART-CASE
  )  )
#Y(#:TOP-LEVEL-FORM-75
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01)
   WITH-SIMPLE-RESTART REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-SIMPLE-RESTART
      #141Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 80 62 9D 5B 5A 77 9E 5B 5A
            5B 77 9F 5B 5A 5B 78 A0 5B 78 91 01 80 52 AC 8C 5F 80 4D 37 01 71
            86 37 01 71 86 E1 AC E2 E3 AE 7A 02 E4 E5 E6 E7 E8 E9 E3 BA 7A 02
            EA E3 B7 7A 02 DB EB DC EC DE DF C1 7A 03 7A 03 7A 02 7A 07 7A 02
            03 15 7B 02 7A 02 7A 01 EE B2 EF A6 79 7A 03 7A 03 03 18 7B 03 60
            03 19 09 AC 2E 01 19 03 DA AE DB DC DD DE DF B3 A4 7B 03 7A 03 CB
            7B 03 7A 01 9D 61 02 19 07
           )
      2. MACRO-CALL-ERROR WITH-RESTARTS :REPORT LAMBDA (STREAM) FORMAT STREAM
      (NIL (VALUES NIL T)) BLOCK CATCH QUOTE LET *ACTIVE-RESTARTS* CONS
      LOAD-TIME-VALUE MAKE-RESTART :NAME :INVOKE-TAG FUNCTION (STREAM)
      (*ACTIVE-RESTARTS*) RETURN-FROM PROGN ((VALUES NIL T))
  )  )
#Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   ABORT REMOVE-OLD-DEFINITIONS
   #Y(ABORT #14Y(00 00 01 00 00 07 3C 01 D8 AC 2F 01 19 02) ABORT
      INVOKE-RESTART-CONDITION
  )  )
#Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CONTINUE REMOVE-OLD-DEFINITIONS
   #Y(CONTINUE #14Y(00 00 01 00 00 07 3C 01 D8 AC 2F 01 19 02) CONTINUE
      INVOKE-RESTART-CONDITION-IF-EXISTS
  )  )
#Y(#:TOP-LEVEL-FORM-78 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MUFFLE-WARNING REMOVE-OLD-DEFINITIONS
   #Y(MUFFLE-WARNING #14Y(00 00 01 00 00 07 3C 01 D8 AC 2F 01 19 02)
      MUFFLE-WARNING INVOKE-RESTART-CONDITION
  )  )
#Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   STORE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(STORE-VALUE #16Y(01 00 01 00 00 08 3C 01 D8 AC AE 2C 03 01 19 03)
      STORE-VALUE INVOKE-RESTART-CONDITION-IF-EXISTS
  )  )
#Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   USE-VALUE REMOVE-OLD-DEFINITIONS
   #Y(USE-VALUE #16Y(01 00 01 00 00 08 3C 01 D8 AC AE 2C 03 01 19 03) USE-VALUE
      INVOKE-RESTART-CONDITION-IF-EXISTS
  )  )
#Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REPORT-NEW-VALUE REMOVE-OLD-DEFINITIONS
   #Y(REPORT-NEW-VALUE
      #19Y(01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 37 02 30 8B 19 02)
      "You may input a new value." "Sie dürfen einen neuen Wert eingeben."
      "Vous avez l'occasion d'entrer une nouvelle valeur." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   PROMPT-FOR-NEW-VALUE REMOVE-OLD-DEFINITIONS
   #Y(PROMPT-FOR-NEW-VALUE
      #26Y(01 00 00 00 00 02 6A 00 D9 DA DB 6D 03 04 AD 2C 03 05 6A 00 37 03 30
           76 19 02
          )
      *QUERY-IO* "~%New ~S: " "~%Neues ~S: " "~%Nouveau ~S : " LANGUAGE FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-83
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) CHECK-TYPE
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(CHECK-TYPE
      #167Y(01 00 01 00 00 08 D8 AD 71 45 D9 90 02 31 80 8A 9D 5B 77 9E 5B 5B
            77 9F 5B 5B 5B 1B 80 81 00 14 37 01 71 86 37 01 71 86 37 01 71 86
            DB AD DC AD B3 7A 02 7A 01 DD DE B0 DF B6 7A 02 7A 03 E0 B2 7A 02
            7A 03 E1 E2 E3 E4 B3 E5 DF BA 7A 02 E6 E7 62 E8 BF BE C0 6D 05 11
            EA 62 EB C1 C0 C2 6D 05 11 EC 62 ED 65 19 C2 65 1A 6D 05 11 7A 06
            B8 7A 09 EE EF F0 F1 F2 62 F3 F4 DF BF 7A 02 7A 02 7A 02 7A 03 F5
            64 1E BD 03 1F 7B 02 7A 07 7A 03 7A 04 E0 B0 7A 02 AF 60 05 19 09
            AC 2E 02 19 03 9F 5B 5B 5B 5A 1A FF 78
           )
      3. 4. MACRO-CALL-ERROR TAGBODY LET WHEN TYPEP QUOTE GO RESTART-CASE
      ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE
      (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S" FRANCAIS
       "~A~%La valeur est : ~S"
      )
      DEUTSCH "Der Wert von ~S sollte ~:[vom Typ ~S~;~:*~A~] sein." FORMAT
      ENGLISH "The value of ~S should be ~:[of type ~S~;~:*~A~]." FRANCAIS
      "La valeur de ~S devrait être ~:[de type ~S~;~:*~A~]." STORE-VALUE
      :REPORT REPORT-NEW-VALUE :INTERACTIVE LAMBDA LIST PROMPT-FOR-NEW-VALUE
      (NEW-VALUE) SETF (NEW-VALUE)
  )  )
#Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REPORT-NO-NEW-VALUE REMOVE-OLD-DEFINITIONS
   #Y(REPORT-NO-NEW-VALUE
      #19Y(01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 37 02 30 8B 19 02) "Retry"
      "Neuer Anlauf" "Reéssayer" LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   REPORT-NEW-VALUES REMOVE-OLD-DEFINITIONS
   #Y(REPORT-NEW-VALUES
      #19Y(01 00 00 00 00 02 D8 D9 DA 6D 03 03 AC 37 02 30 8B 19 02)
      "You may input new values." "Sie dürfen neue Werte eingeben."
      "Vous pouvez entrer de nouvelles valeurs." LANGUAGE
  )  )
#Y(#:TOP-LEVEL-FORM-86
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) ASSERT
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(ASSERT
      #259Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 80 67 9D 5B 77 9E 5B 5B 1B
            80 63 00 14 9F 5B 5B 5B 1B 80 61 00 14 A0 5B 5B 5B 78 37 01 71 86
            37 01 71 86 DA AC DB B2 DC AF 7A 02 7A 03 DD DE DF 91 09 80 49 E0
            E1 62 E2 B9 6D 03 0B E4 62 E5 BB 6D 03 0B E6 62 E7 BD 6D 03 0B 7A
            06 60 02 79 7A 02 E8 E9 B5 71 45 AA 23 12 28 AA 23 14 27 03 16 F6
            EF F0 62 F1 62 BB 1A 2F AC 2E 01 19 03 9E 5B 5B 5A 1A FF 97 9F 5B
            5B 5B 5A 1A FF 98 14 A4 5C 1A 4C D6 1A 5B 03 15 1A 57 93 00 F2 F3
            AC 7A 02 7A 02 83 02 16 01 82 00 9B 20 6E 16 01 AA 30 A5 16 01 79
            7A 03 62 B9 1A 0C 93 00 37 01 71 86 83 02 16 01 82 00 9B 20 71 16
            01 AA 7F A5 00 AA 62 BB AD 1A 18 16 03 1A 19 93 01 9C 1F 77 93 01
            F4 AC AC 7A 03 83 04 16 02 82 01 82 00 9C 20 69 16 02 AA 30 A5 16
            01 5C 16 01 7B 05 7A 03 DC B0 7A 02 AF 60 06 19 09
           )
      2. MACRO-CALL-ERROR TAGBODY WHEN GO RESTART-CASE PROGN ERROR "~A" DEUTSCH
      "Der Wert von ~S darf nicht NIL sein." FORMAT ENGLISH
      "~S must evaluate to a non-NIL value." FRANCAIS
      "La valeur de ~S ne peut pas être NIL." CONTINUE :REPORT 0.
      REPORT-NO-NEW-VALUE 1. REPORT-NEW-VALUE REPORT-NEW-VALUES :INTERACTIVE
      LAMBDA LIST PROMPT-FOR-NEW-VALUE QUOTE SETF
  )  )
#Y(#:TOP-LEVEL-FORM-87
   #45Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 DC 2E 01 DC DA C8 79 31 78
        DE 2E 01 DE DA CA 79 31 78 E0 2E 01 E0 DA CC 79 31 78 CB 19 01
       )
   ETYPECASE REMOVE-OLD-DEFINITIONS MACRO
   #Y(ETYPECASE
      #39Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 14 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR TYPECASE
      #1=#Y(TYPECASE-ERRORSTRING
            #39Y(02 00 00 00 00 03 D8 AC 72 00 17 D9 62 DA B0 AE 6D 04 03 DC 62
                 DD B2 B0 6D 04 03 DE 62 DF B4 B2 6D 04 03 60 06 19 04
                )
            #.#'FIRST DEUTSCH
            "Der Wert von ~S muß einem der Typen ~{~S~^, ~} angehören." FORMAT
            ENGLISH "The value of ~S must be of one of the types ~{~S~^, ~}"
            FRANCAIS
            "La valeur de ~S doit appartenir à l'un des types ~{~S~^, ~}."
           )
      #Y(TYPECASE-EXPECTED-TYPE
         #15Y(01 00 00 00 00 02 D8 D9 AD 32 00 17 5C 19 02) OR #.#'FIRST
        )
      #2=#Y(SIMPLY-ERROR
            #48Y(05 00 00 00 00 06 37 01 71 86 D8 AB B1 7A 02 7A 01 B2 AD B2 D9
                 DA DB DC B3 DD DE B8 7A 02 DF BA B8 7A 09 7A 02 7A 01 32 02 23
                 7B 02 60 03 19 07
                )
            LET OTHERWISE ERROR-OF-TYPE 'TYPE-ERROR :DATUM :EXPECTED-TYPE QUOTE
            (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
             FRANCAIS "~A~%La valeur est : ~S"
     )     ))
   CTYPECASE
   #Y(CTYPECASE
      #36Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 11 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR TYPECASE #1#
      #3=#Y(RETRY-LOOP
            #84Y(04 00 00 00 00 05 37 01 71 86 37 01 71 86 D8 AC D9 AD DA B0 B6
                 B6 B6 DB DC DD DE DF BB BE 7A 04 7A 02 E0 E1 E2 E3 E4 62 E5 E6
                 E7 65 1A 7A 02 7A 02 7A 02 7A 03 E8 E9 C2 D5 7B 02 7A 07 7A 03
                 EB B6 7A 02 7A 03 7A 01 32 02 23 7B 02 7A 03 7A 03 60 03 19 07
                )
            BLOCK TAGBODY RETURN-FROM OTHERWISE RESTART-CASE PROGN ERROR
            (DEUTSCH "~A~%Der Wert ist: ~S" ENGLISH "~A~%The value is: ~S"
             FRANCAIS "~A~%La valeur est : ~S"
            )
            STORE-VALUE :REPORT REPORT-NEW-VALUE :INTERACTIVE LAMBDA LIST
            PROMPT-FOR-NEW-VALUE QUOTE (NEW-VALUE) SETF (NEW-VALUE) GO
     )     )
   ECASE
   #Y(ECASE
      #39Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 14 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 AE C7 73 C8 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR CASE
      #4=#Y(CASE-ERRORSTRING
            #72Y(02 00 00 00 00 03 62 AC 1A 19 9B 1A 0D 93 00 AA 86 00 00 14 8D
                 0B 73 AA 60 01 F6 AD 7F A3 02 16 01 82 00 9B 20 67 16 01 AA 7F
                 A5 00 D8 62 D9 B0 AE 6D 04 02 DB 62 DC B2 B0 6D 04 02 DD 62 DE
                 B4 B2 6D 04 02 60 06 19 04
                )
            DEUTSCH "Der Wert von ~S muß einer der folgenden sein: ~{~S~^, ~}"
            FORMAT ENGLISH "The value of ~S must be one of ~{~S~^, ~}" FRANCAIS
            "La valeur de ~S doit être l'une des suivantes : ~{~S~^, ~}"
           )
      #Y(CASE-EXPECTED-TYPE
         #49Y(01 00 00 00 00 02 D8 62 AD 1A 19 9B 1A 0D 93 00 AA 86 00 00 14 8D
              0B 73 AA 60 01 F6 AD 7F A3 02 16 01 82 00 9B 20 67 16 01 AA 30 A5
              16 01 5C 19 02
             )
         MEMBER
        )
      #2#
     )
   CCASE
   #Y(CCASE
      #36Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2F 11 9D 5B 77 9E 5B 78 DA AC AC
           AE AE C6 73 C7 33 19 05 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR CASE #4# #3#
  )  )
#Y(#:TOP-LEVEL-FORM-88
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *DEBUGGER-HOOK*) *DEBUGGER-HOOK*
  )
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BREAK REMOVE-OLD-DEFINITIONS
   #Y(BREAK
      #74Y(00 00 01 00 01 00 3A 02 02 C3 F8 D9 DA AE DB AF 6D 05 04 00 2A 01 00
           0B 00 00 4A 05 21 DE DF E0 B1 B0 6C 09 02 E2 E3 6D 06 0C 0E 0D 5C 10
           0D 0E 0E 10 0E B5 DF 6E 0F 7A 01 2F 10 B5 30 63 06 04 00 38 00 00 4C
           16 02 00 19 03
          )
      "Break" SIMPLE-CONDITION :FORMAT-STRING :FORMAT-ARGUMENTS MAKE-CONDITION
      #(NIL) :NAME CONTINUE :INVOKE-FUNCTION
      #Y(LISP::BREAK-1 #13Y(00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL NIL)
      :REPORT
      #Y(LISP::BREAK-2
         #19Y(01 00 00 00 00 02 AB D8 D9 DA 6D 03 03 DC 2C 03 05 19 02)
         "Return from ~S loop" "~S-Schleife beenden." "Quitter le cycle de ~S."
         LANGUAGE BREAK FORMAT
        )
      MAKE-RESTART *ACTIVE-RESTARTS* *CONDITION-RESTARTS* FIND-RESTART
      ADD-CONDITION-RESTARTS
  )  )
#Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CERROR REMOVE-OLD-DEFINITIONS
   #Y(CERROR
      #189Y(02 00 00 00 01 18 00 2A 02 7E 04 00 00 7E 02 00 01 0E 00 1B 37 0E
            01 1B 80 5D 6A 02 30 8D DB 6A 02 37 02 30 8B 6A 02 30 8D 98 04 6A
            02 AF 06 03 01 36 02 6A 02 30 8D 6A 05 87 06 1B 98 04 6A 02 06 02
            00 14 06 03 01 36 02 1A 80 6E 14 06 01 00 1B 01 02 14 A0 1A 6C DF
            E0 E1 6D 03 0A 6A 02 37 02 30 8B 98 04 6A 02 67 02 00 06 03 01 36
            02 6A 0B 63 35 01 1A 80 43 AD 67 01 01 E4 E5 6D 04 0E 9C 2A 01 00
            0B 00 00 4A 0F 27 E8 E9 EA B1 B0 6C 13 02 EC B3 6C 15 01 6D 06 16
            0E 17 5C 10 17 0E 18 10 18 B5 E9 6E 19 7A 01 2F 1A B5 2E 1B B5 30
            63 06 04 00 38 00 00 4C 16 02 00 19 05
           )
      *ERROR-HANDLER* *USE-CLCS* *ERROR-OUTPUT* "** - Continuable Error" FORMAT
      *DEBUG-IO* INTERACTIVE-STREAM-P
      "If you continue (by typing 'continue'): "
      "Wenn Sie (mit Continue) fortfahren: "
      "Si vous continuez (en tapant 'continue'): " LANGUAGE *BREAK-DRIVER*
      CERROR SIMPLE-ERROR COERCE-TO-CONDITION #(NIL) :NAME CONTINUE
      :INVOKE-FUNCTION
      #Y(LISP::CERROR-1 #13Y(00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL NIL)
      :REPORT
      #Y(LISP::CERROR-2
         #18Y(01 00 00 00 00 02 98 01 AC 68 01 01 07 01 02 9A 02 02) NIL FORMAT
        )
      MAKE-RESTART *ACTIVE-RESTARTS* *CONDITION-RESTARTS* FIND-RESTART
      ADD-CONDITION-RESTARTS SIGNAL
  )  )
#Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   WARN REMOVE-OLD-DEFINITIONS
   #Y(WARN
      #235Y(01 00 00 00 01 17 0E 00 1C 80 9B AC AC E1 E2 6D 04 0B AA 71 28 E4
            8A 0D 80 B3 00 2A 01 00 0B 00 00 4A 15 80 B8 EE EF F0 B1 B0 6C 19
            02 6D 04 1A 0E 1B 5C 10 1B 0E 1C 10 1C B5 EF 6E 1D 7A 01 2F 1E B5
            2E 1F 12 02 4C 16 01 6A 01 30 8D 64 20 64 21 64 22 6D 03 05 6A 01
            37 02 30 8B 6A 01 30 8D AA 6A 01 2F 23 0E 07 1C 80 7C 00 2A 01 00
            0B 00 00 4A 24 80 68 EE 64 25 F0 B1 B0 6C 26 02 64 27 64 28 6D 06
            1A 0E 1B 5C 10 1B 0E 1C 10 1C B5 64 25 6E 1D 7A 01 2F 1E 6A 08 62
            B7 62 35 03 12 02 4C 16 02 1A 80 42 6A 01 30 8D DA DB DC 6D 03 05
            6A 01 37 02 30 8B 6A 01 30 8D 98 06 6A 01 AE 9F 36 02 0E 07 1C 22
            6A 08 63 35 01 1A 1B E6 E7 AC E8 E9 EA EB EC 6D 03 05 E1 B1 32 06
            1F 06 04 00 38 00 00 1A FF BA 16 01 00 19 03
           )
      *USE-CLCS* *ERROR-OUTPUT* "WARNING:" "WARNUNG:" "AVERTISSEMENT :"
      LANGUAGE FORMAT *BREAK-ON-WARNINGS* *BREAK-DRIVER* WARN SIMPLE-WARNING
      COERCE-TO-CONDITION #.(CLOS:FIND-CLASS 'WARNING) CLOS::SUBCLASSP
      TYPE-ERROR :DATUM :EXPECTED-TYPE WARNING
      "~S: This is more serious than a warning: ~A"
      "~S: Das ist ernster als eine Warnung: ~A"
      "~S : C'est plus sérieux qu'un avertissement: ~A" #(NIL) :NAME
      MUFFLE-WARNING :INVOKE-FUNCTION
      #Y(LISP::WARN-1 #13Y(00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL NIL)
      MAKE-RESTART *ACTIVE-RESTARTS* *CONDITION-RESTARTS* FIND-RESTART
      ADD-CONDITION-RESTARTS SIGNAL "WARNING:" "WARNUNG:" "AVERTISSEMENT :"
      PRINT-CONDITION #(NIL) CONTINUE
      #Y(LISP::WARN-2 #13Y(00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL NIL)
      :REPORT
      #Y(LISP::WARN-3
         #19Y(01 00 00 00 00 02 AB D8 D9 DA 6D 03 03 DC 2C 03 05 19 02)
         "Return from ~S loop" "~S-Schleife beenden." "Quitter le cycle de ~S."
         LANGUAGE BREAK FORMAT
  )  )  )
#Y(#:TOP-LEVEL-FORM-92 #11Y(00 00 00 00 00 01 02 0F 00 19 01) *USE-CLCS*)