(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)
   (THE-ENVIRONMENT EVAL-ENV WITH-KEYBOARD *KEYBOARD-INPUT*)
  )
#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
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *COMPILING*) *COMPILING*
  )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   %THE-ENVIRONMENT REMOVE-OLD-DEFINITIONS
   #Y(%THE-ENVIRONMENT
      #19Y(02 00 00 00 00 03 AB C3 5E 14 C4 5E 14 AC C3 5F 9C 19 03) 0. 2.
  )  )
#Y(#:TOP-LEVEL-FORM-6
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) THE-ENVIRONMENT
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(THE-ENVIRONMENT
      #37Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 30 07 0E 02 1B 08 CC 19 03 AC 2E
           01 19 03 DB DC DD DE 6D 03 07 E0 32 01 1F
          )
      1. MACRO-CALL-ERROR *COMPILING* PROGRAM-ERROR
      "~S is impossible in compiled code"
      "~S ist in compiliertem Code unmöglich."
      "~S est impossible dans du code compilé." LANGUAGE THE-ENVIRONMENT
      (LET ((*EVALHOOK* #'%THE-ENVIRONMENT)) 0.)
  )  )
#Y(#:TOP-LEVEL-FORM-7
   #18Y(00 00 00 00 00 01 D8 30 5B D9 DA 70 5C 30 53 C4 19 01)
   (SPECIAL *TOPLEVEL-ENVIRONMENT*) *TOPLEVEL-ENVIRONMENT* (THE-ENVIRONMENT)
  )
#Y(#:TOP-LEVEL-FORM-8
   #20Y(00 00 00 00 00 01 D8 30 5B D9 6A 02 C6 5E 14 30 53 C4 19 01)
   (SPECIAL *TOPLEVEL-DENV*) *TOPLEVEL-DENV* *TOPLEVEL-ENVIRONMENT* 4.
  )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   EVAL-ENV REMOVE-OLD-DEFINITIONS
   #Y(EVAL-ENV
      #20Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 AC 01 02 AE 30 5D 19 03)
      *TOPLEVEL-ENVIRONMENT*
  )  )
#Y(#:TOP-LEVEL-FORM-10
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 DA 30 53 C4 19 01)
   (SPECIAL *BREAK-COUNT*) *BREAK-COUNT* 0.
  )
#Y(#:TOP-LEVEL-FORM-11
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *KEY-BINDINGS*) *KEY-BINDINGS*
  )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   HELP REMOVE-OLD-DEFINITIONS
   #Y(HELP
      #35Y(00 00 00 00 00 01 D8 6A 01 37 05 71 4E 71 46 62 1A 0A 86 01 00 14 37
           03 30 8B 82 01 AB 8C 94 72 00 19 03
          )
      #.#'STRINGP *KEY-BINDINGS*
  )  )
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *DEBUG-FRAME*) *DEBUG-FRAME*
  )
#Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D8 30 5B C4 19 01)
   (SPECIAL *DEBUG-MODE*) *DEBUG-MODE*
  )
#Y(#:TOP-LEVEL-FORM-15
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *FRAME-LIMIT1*) *FRAME-LIMIT1*
  )
#Y(#:TOP-LEVEL-FORM-16
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *FRAME-LIMIT2*) *FRAME-LIMIT2*
  )
#Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FRAME-LIMIT1 REMOVE-OLD-DEFINITIONS
   #Y(FRAME-LIMIT1
      #38Y(01 00 00 00 00 02 2D 00 14 00 10 01 00 10 02 DB 1A 07 B1 DC 2F 05 FD
           84 00 AA B4 90 01 32 73 16 01 12 02 15 19 02
          )
      THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 0. 1. FRAME-UP-1
  )  )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   FRAME-LIMIT2 REMOVE-OLD-DEFINITIONS
   #Y(FRAME-LIMIT2
      #58Y(00 00 00 00 00 01 2D 00 14 00 10 01 00 10 02 1A 04 9B FD 16 01 B0 DB
           6F 04 AA A3 21 04 AA 88 05 70 16 01 DE 1A 07 B1 DB 2F 08 FD 84 00 AA
           DF 90 01 32 73 16 01 12 02 15 19 01
          )
      THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 1. FRAME-UP-1 DRIVER-FRAME-P 0.
      2. FRAME-DOWN-1
  )  )
#Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-HELP REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-HELP #11Y(00 00 00 00 00 01 2D 00 D9 C5 51) HELP DEBUG CONTINUE)
  )
#Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-UNWIND REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-UNWIND #9Y(00 00 00 00 00 01 D8 C4 51) DEBUG UNWIND)
  )
#Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-MODE-1 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-1 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 1. *DEBUG-MODE*
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-MODE-2 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-2 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 2. *DEBUG-MODE*
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-MODE-3 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-3 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 3. *DEBUG-MODE*
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-MODE-4 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-4 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 4. *DEBUG-MODE*
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-MODE-5 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-MODE-5 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 5. *DEBUG-MODE*
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-WHERE REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-WHERE #15Y(00 00 00 00 00 01 6A 00 6A 01 2F 02 DB C7 51)
      *STANDARD-OUTPUT* *DEBUG-FRAME* DESCRIBE-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-UP REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-UP
      #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP-1 DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-TOP REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-TOP
      #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-DOWN REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-DOWN
      #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN-1 DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BOTTOM REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BOTTOM
      #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
      *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN DESCRIBE-FRAME
      DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BACKTRACE REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE
      #38Y(00 00 01 00 00 07 3A 01 03 0E 00 F7 6A 01 AC 6F 02 AC 6F 03 6A 04 AB
           2F 05 AA AB AE 2F 02 F7 22 73 16 01 DE CA 51
          )
      *DEBUG-MODE* *FRAME-LIMIT1* FRAME-UP-1 FRAME-DOWN-1 *STANDARD-OUTPUT*
      DESCRIBE-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BACKTRACE-1 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-1 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 1.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BACKTRACE-2 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-2 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 2.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BACKTRACE-3 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-3 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 3.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BACKTRACE-4 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-4 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 4.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-BACKTRACE-5 REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-BACKTRACE-5 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 5.
      DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-TRAP-ON REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-TRAP-ON #14Y(00 00 00 00 00 01 6A 00 63 2F 01 DA C6 51)
      *DEBUG-FRAME* TRAP-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-TRAP-OFF REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-TRAP-OFF #14Y(00 00 00 00 00 01 6A 00 62 2F 01 DA C6 51)
      *DEBUG-FRAME* TRAP-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-REDO REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-REDO #13Y(00 00 00 00 00 01 6A 00 2E 01 DA C6 51) *DEBUG-FRAME*
      REDO-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-RETURN REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-RETURN
      #21Y(00 00 00 00 00 01 6A 00 D9 DA DB 6D 03 04 6E 05 2F 06 DF CB 51)
      *DEBUG-FRAME* "values: " "Werte: " "Valeurs : " LANGUAGE READ-FORM
      RETURN-FROM-EVAL-FRAME DEBUG CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   DEBUG-CONTINUE REMOVE-OLD-DEFINITIONS
   #Y(DEBUG-CONTINUE #9Y(00 00 00 00 00 01 D8 C4 51) DEBUG QUIT)
  )
#Y(#:TOP-LEVEL-FORM-42-1 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   COMMANDS0 REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS0
      #20Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 97 05 79 60 02 19 01)
      "
Help = this list
Use the usual editing capabilities."
      "
Help = diese Liste
Benutzen Sie die üblichen Editiermöglichkeiten."
      "
Help = cette liste
Éditez de la façon habituelle."
      LANGUAGE "Help" DEBUG-HELP
  )  )
#Y(#:TOP-LEVEL-FORM-42-2 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   COMMANDS1 REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS1
      #102Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 97 05 79 DE 97 05 79 DF 97
            08 79 E1 97 08 79 E2 97 0B 79 E4 97 0D 79 E6 97 0F 79 E8 97 11 79
            EA 97 13 79 EC 97 15 79 EE 97 17 79 F0 97 19 79 F2 97 1B 79 F4 97
            1D 79 64 1E 97 1F 79 64 20 97 21 79 64 22 97 23 79 64 24 97 25 79
            64 26 97 27 79 64 28 97 29 79 60 15 19 01
           )
      "
Help   = this command list
Abort  = abort to the next recent input loop
Unwind = abort to the next recent input loop
Mode-1 = inspect all the stack elements
Mode-2 = inspect all the frames
Mode-3 = inspect only lexical frames
Mode-4 = inspect only EVAL and APPLY frames (default)
Mode-5 = inspect only APPLY frames
Where  = inspect this frame
Up     = go up one frame, inspect it
Top    = go to top frame, inspect it
Down   = go down one frame, inspect it
Bottom = go to bottom (most recent) frame, inspect it
Backtrace-1 = list all stack elements
Backtrace-2 = list all frames
Backtrace-3 = list all lexical frames
Backtrace-4 = list all EVAL and APPLY frames
Backtrace-5 = list all APPLY frames
Backtrace   = list stack in current mode
Break+ = set breakpoint in EVAL frame
Break- = disable breakpoint in EVAL frame
Redo   = re-evaluate form in EVAL frame
Return = leave EVAL frame, prescribing the return values"
      "
Help   = dieses Menü
Abort  = Abbruch, Rücksprung zur nächsthöheren Eingabeschleife
Unwind = Abbruch, Rücksprung zur nächsthöheren Eingabeschleife
Mode-1 = alle Stack-Elemente inspizieren
Mode-2 = alle Frames inspizieren
Mode-3 = nur lexikalische Frames inspizieren
Mode-4 = nur EVAL- und APPLY-Frames inspizieren (Default)
Mode-5 = nur APPLY-Frames inspizieren
Where  = diesen Frame inspizieren
Up     = nächsthöheren Frame inspizieren
Top    = obersten Frame inspizieren
Down   = nächstneueren Frame inspizieren
Bottom = neuesten Frame inspizieren
Backtrace-1 = alle Stack-Elemente auflisten
Backtrace-2 = alle Frames auflisten
Backtrace-3 = alle lexikalische Frames auflisten
Backtrace-4 = alle EVAL- und APPLY-Frames auflisten
Backtrace-5 = alle APPLY-Frames auflisten
Backtrace   = Stack auflisten im aktuellen Mode
Break+ = Breakpoint im EVAL-Frame setzen
Break- = Breakpoint im EVAL-Frame löschen
Redo   = Form im EVAL-Frame erneut auswerten
Return = EVAL-Frame mit gegebenen Werten verlassen"
      "
Help   = ce menu-ci
Abort  = arrêt, retour au niveau supérieur
Unwind = arrêt, retour au niveau supérieur
Mode-1 = examiner tous les éléments de la pile
Mode-2 = examiner tous les «frames»
Mode-3 = examiner uniquement les «frames» lexicaux
Mode-4 = examiner uniquement les «frames» EVAL et APPLY (par défaut)
Mode-5 = examiner uniquement les «frames» APPLY
Where  = examiner ce «frame»
Up     = examiner un «frame» supérieur
Top    = examiner le «frame» le plus élevé
Down   = examiner un prochain «frame» plus récent (inférieur)
Bottom = examiner le «frame» le plus récent (le plus bas)
Backtrace-1 = montrer tous les éléments de la pile
Backtrace-2 = montrer tous les «frames»
Backtrace-3 = montrer tous les «frames» lexicaux
Backtrace-4 = montrer tous les «frames» EVAL et APPLY
Backtrace-5 = montrer tous les «frames» APPLY
Backtrace   = montrer la pile en mode actuel
Break+ = placer un point d'interception dans le «frame» EVAL
Break- = enlever le point d'interception du «frame» EVAL
Redo   = réévaluer la forme dans le «frame» EVAL
Return = quitter le «frame» EVAL avec certaines valeurs"
      LANGUAGE "Help" DEBUG-HELP "?" "Abort" DEBUG-UNWIND "Unwind" "Mode-1"
      DEBUG-MODE-1 "Mode-2" DEBUG-MODE-2 "Mode-3" DEBUG-MODE-3 "Mode-4"
      DEBUG-MODE-4 "Mode-5" DEBUG-MODE-5 "Where" DEBUG-WHERE "Up" DEBUG-UP
      "Top" DEBUG-TOP "Down" DEBUG-DOWN "Bottom" DEBUG-BOTTOM "Backtrace-1"
      DEBUG-BACKTRACE-1 "Backtrace-2" DEBUG-BACKTRACE-2 "Backtrace-3"
      DEBUG-BACKTRACE-3 "Backtrace-4" DEBUG-BACKTRACE-4 "Backtrace-5"
      DEBUG-BACKTRACE-5 "Backtrace" DEBUG-BACKTRACE
  )  )
#Y(#:TOP-LEVEL-FORM-42-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 3D 19 01)
   COMMANDS2 REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS2
      #26Y(00 00 00 00 00 01 D8 97 01 79 DA 97 03 79 DC 97 05 79 DE 97 07 79 60
           04 19 01
          )
      "Break+" DEBUG-TRAP-ON "Break-" DEBUG-TRAP-OFF "Redo" DEBUG-REDO "Return"
      DEBUG-RETURN
  )  )
#Y(#:TOP-LEVEL-FORM-42-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMMANDS3 REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS3
      #20Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 97 05 79 60 02 19 01)
      "
Continue = continue evaluation"
      "
Continue = Rest weiter abarbeiten"
      "
Continue = continuer l'évaluation"
      LANGUAGE "Continue" DEBUG-CONTINUE
  )  )
#Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   MAIN-LOOP REMOVE-OLD-DEFINITIONS
   #Y(MAIN-LOOP #12Y(00 00 00 00 00 01 C3 0F 01 DA 30 56) 0. *BREAK-COUNT*
      #Y(MAIN-LOOP-1
         #28Y(00 00 00 00 00 01 C3 4F 11 D9 2D 02 14 70 A0 89 03 04 00 50 19 01
              2D 04 1A 79 19 01
             )
         DEBUG "> " COMMANDS0 READ-EVAL-PRINT EXIT
  )  )  )
#Y(#:TOP-LEVEL-FORM-44 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01) MAIN-LOOP
   *DRIVER*
  )
#Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BREAK-LOOP REMOVE-OLD-DEFINITIONS
   #Y(BREAK-LOOP
      #420Y(01 00 02 00 00 0D 00 2A 03 7E 04 00 00 3C 03 3A 02 80 CA 7C 02 06
            00 00 1C 80 C7 1A 80 CB DF 6A 06 37 02 30 8B 6A 06 30 8D 1A 80 E5
            6A 06 30 8D E2 E3 E4 6D 03 0D 6A 06 37 02 30 8B 92 04 80 F8 1A 80
            E5 6A 06 30 8D 92 00 0C E6 E7 E8 6D 03 0D 6A 06 37 02 30 8B 67 01
            01 6A 06 30 86 92 04 80 D7 1A 80 C4 EA EB D7 1A 10 92 01 17 6A 06
            30 8D 06 02 01 1B 6F ED EE 03 17 14 6D 03 0D 6A 06 37 02 30 8B F0
            9E 2A 01 AC 00 0B 01 00 1A 3C 9B 5A 0B 01 00 F1 84 03 14 71 87 72
            02 13 F2 AB F3 67 05 00 70 89 72 04 13 92 06 07 AA 6A 06 37 02 30
            8B AA 06 08 02 5C 0B 07 02 AB AE 2B 1C 01 79 06 08 02 5C 0B 07 02
            16 02 82 00 AA 8C 94 40 16 02 67 03 02 31 47 0B 03 02 16 02 1A 80
            5B 06 00 00 1B 07 92 03 04 D8 AE 2F 01 0B 00 01 6A 02 6E 03 00 0B
            01 02 92 03 2E AE DC 37 02 71 29 8A 05 25 6A 06 30 8D 06 01 01 1B
            FF 14 E0 6A 06 37 02 30 8B AE 6A 06 2F 09 06 01 01 1C 0A 06 01 00
            1C FF 22 91 00 FF 07 92 04 10 67 01 01 AF 6E 11 37 07 71 4C 91 00
            FF 33 16 01 4A 1D 80 63 80 63 A1 2A 01 6A 1E 31 8D 10 1E DA 71 68
            9B 10 1F 9E 10 20 37 01 71 6D 52 1A 6A 1E 37 0C B9 30 82 64 21 AD
            37 02 30 8B 64 22 AD 37 02 30 8B AC 31 6E 3E 53 66 00 00 37 01 31
            73 54 16 01 0B 0A 00 64 23 2E 24 10 25 2D 26 10 27 03 28 10 29 6A
            25 6A 29 6F 2A 6A 29 2F 2B 10 2C C0 65 1A 6C 2D 02 30 56 30 57 4B
            19 06
           )
      CONTINUE FIND-RESTART *DEBUG-IO* INTERACTIVE-STREAM-P CONDITION TYPEP
      *ERROR-OUTPUT* "** - Continuable Error" "*** - " PRINT-CONDITION
      "You can continue (by typing 'continue')."
      "Sie können (mit Continue) fortfahren."
      "Vous pouvez continuer (tapez «continue» pour cela)." LANGUAGE
      "If you continue (by typing 'continue'): "
      "Wenn Sie (mit Continue) fortfahren: "
      "Si vous continuez (en tapant «continue»): " COMPUTE-RESTARTS
      "The following restarts are available too:" "Weitere mögliche Optionen:"
      "D'autres rentrées possibles:" "The following restarts are available:"
      "Mögliche Optionen:" "Rentrées possibles:" 0. "R"
      "
"
      " = "
      #Y(BREAK-LOOP-1 #13Y(00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL
         INVOKE-RESTART-INTERACTIVELY
        )
      #(UNWIND QUIT) *BREAK-COUNT* *STANDARD-INPUT* *STANDARD-OUTPUT* ". Break"
      "> " 13. FRAME-LIMIT1 *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2* 4.
      *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME*
      #Y(BREAK-LOOP-2
         #49Y(00 00 00 00 00 01 C5 4F 0A 6A 03 29 14 6C 04 01 2F 05 50 14 AA 23
              06 07 AA 23 07 09 00 19 02 4D 01 00 4D 01 01 07 01 01 1B 78 68 01
              02 2E 08 19 02
             )
         NIL NIL DEBUG *DEBUG-FRAME*
         #Y(BREAK-LOOP-2-1
            #64Y(00 00 00 00 00 01 68 00 01 2D 01 14 70 A0 6A 02 87 03 15 00 14
                 07 01 02 1B 15 00 14 68 01 03 72 04 24 89 06 13 00 19 01 2D 04
                 14 30 A0 1A 65 2D 05 14 30 A0 1A 65 CB 51 DF 07 01 02 1B 78 CC
                 51
                )
            NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS3
            READ-EVAL-PRINT DEBUG QUIT UNWIND
           )
         SAME-ENV-AS UNWIND QUIT INVOKE-RESTART-INTERACTIVELY
  )  )  )
#Y(#:TOP-LEVEL-FORM-46 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01) BREAK-LOOP
   *BREAK-DRIVER*
  )
#Y(#:TOP-LEVEL-FORM-47
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 DA 30 53 C4 19 01)
   (SPECIAL *STEP-LEVEL*) *STEP-LEVEL* 0.
  )
#Y(#:TOP-LEVEL-FORM-48
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 DA 30 53 C4 19 01)
   (SPECIAL *STEP-QUIT*) *STEP-QUIT* #.MOST-POSITIVE-FIXNUM
  )
#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 *STEP-WATCH*) *STEP-WATCH*
  )
#Y(#:TOP-LEVEL-FORM-50
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) STEP
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(STEP
      #29Y(01 00 01 00 00 08 AC 71 45 D8 8F 01 2E 0A 9D 5B 77 DA DB AC 60 03 19
           04 AC 2E 01 19 03
          )
      2. MACRO-CALL-ERROR LET*
      ((*STEP-LEVEL* 0.) (*STEP-QUIT* MOST-POSITIVE-FIXNUM) (*STEP-WATCH* NIL)
       (*EVALHOOK* #'STEP-HOOK-FN)
  )  ))
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   COMMANDS4 REMOVE-OLD-DEFINITIONS
   #Y(COMMANDS4
      #40Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC C8 79 DE CA 79 E0 CC 79 E2 CE
           79 E4 D0 79 E6 D2 79 E8 D4 79 EA D6 79 60 09 19 01
          )
      "
Step     = step into form: evaluate this form in single step mode
Next     = step over form: evaluate this form at once
Over     = step over this level: evaluate at once up to the next return
Continue = switch off single step mode, continue evaluation
Step-until, Next-until, Over-until, Continue-until:
           same as above, specify a condition when to stop"
      "
Step     = Step into form: diese Form im Einzelschrittmodus ausführen
Next     = Step over form: diese Form auf einmal ausführen
Over     = Step over this level: bis zum Aufrufer auf einmal ausführen
Continue = Einzelschrittmodus abschalten, Rest ausführen
Step-until, Next-until, Over-until, Continue-until:
           dito, jedoch mit Angabe einer Abbruchbedingung"
      "
Step     = step into form: évaluer cette forme petit à petit
Next     = step over form: évaluer cette forme en bloc
Over     = step over this level: évaluer tout le reste jusqu'au prochain retour
Continue = continue: évaluer tout le reste en bloc
Step-until, Next-until, Over-until, Continue-until:
           de même, avec spécification d'une condition d'arrêt"
      LANGUAGE "Step"
      #Y(COMMANDS4-1 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER INTO) "Next"
      #Y(COMMANDS4-2 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER OVER) "Over"
      #Y(COMMANDS4-3 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER OVER-THIS-LEVEL)
      "Continue"
      #Y(COMMANDS4-4 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER CONTINUE)
      "Step-until"
      #Y(COMMANDS4-5 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER INTO)
      "Next-until"
      #Y(COMMANDS4-6 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER OVER)
      "Over-until"
      #Y(COMMANDS4-7 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER
         OVER-THIS-LEVEL
        )
      "Continue-until"
      #Y(COMMANDS4-8 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER CONTINUE
  )  )  )
#Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   STEP-VALUES REMOVE-OLD-DEFINITIONS
   #Y(STEP-VALUES
      #126Y(01 00 00 00 00 02 0E 00 10 01 37 01 30 8D DA DB DC 6D 03 05 37 03
            30 8B 6A 06 37 0D 30 82 DF 37 03 30 8B AE 71 45 AA 23 08 18 AA 23
            0C 20 AF 71 45 37 0D 30 82 E8 E9 EA 6D 03 05 37 03 30 8B AF 1A 2F
            E1 E2 E3 6D 03 05 37 03 30 8B 1A 29 E5 E6 E7 6D 03 05 37 03 30 8B
            93 05 37 0D 30 82 1A 17 93 00 82 01 37 0D 30 82 AA 8B 94 05 EB 37
            03 30 8B AA 8C 94 6B 16 01 16 01 11 9C 43 19 02
           )
      *DEBUG-IO* *STANDARD-OUTPUT* "step " "Step " "Step " LANGUAGE
      *STEP-LEVEL* " ==> " 0. "no values" "Keine Werte" "Aucune valeur" 1.
      "value: " "Wert: " "Valeur : " " values: " " Werte: " " Valeurs : " ", "
  )  )
#Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   STEP-HOOK-FN REMOVE-OLD-DEFINITIONS
   #Y(STEP-HOOK-FN
      #284Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 6A 01 31 8D 10 01 6A 01 6A 02
            90 01 32 0E 0E 03 1C 80 90 14 35 00 1C 80 8A C7 0F 02 4A 05 80 EA
            80 BC 00 2A 01 DE 71 68 9B 10 07 9E 10 08 37 01 71 6D 52 18 E1 AD
            37 02 30 8B 6A 01 37 0C B9 30 82 E2 AD 37 02 30 8B AC 31 6E 3E 53
            66 00 00 37 01 31 73 54 16 01 0B 07 00 E3 2E 0C 10 0D 2D 0E 10 0F
            D3 10 11 6A 0D 6A 11 6F 12 6A 11 2F 13 10 14 37 01 30 8E ED EE EF
            6D 03 18 37 03 30 8B 6A 01 37 0D 30 82 F1 37 03 30 8B 65 1E 37 0D
            D3 09 0A 03 1A 09 0B 30 82 03 1B 4F 11 C0 65 1A 6C 1C 02 30 56 AF
            01 02 B1 30 5D 1A 80 55 41 02 92 00 1C F5 64 1E 64 1F 6D 03 18 6E
            20 6A 14 64 21 64 22 62 AE 7A 03 7A 02 2F 23 0F 03 16 01 9C 25 24
            08 16 02 12 06 16 02 1A 1C 16 02 1A FF B9 30 57 16 02 12 06 16 02
            B4 97 25 1A 0C 16 02 12 06 16 02 0E 01 0F 02 B4 00 14 62 B6 30 5D
            42 14 2E 26 4C 11 19 03 16 02 12 06 16 02 03 27 0F 02 1A 65
           )
      *TOPLEVEL-ENVIRONMENT* *STEP-LEVEL* *STEP-QUIT* *STEP-WATCH*
      #.MOST-POSITIVE-FIXNUM #(CONTINUE UNWIND) *DEBUG-IO* *STANDARD-INPUT*
      *STANDARD-OUTPUT* "Step " "> " 11. FRAME-LIMIT1 *FRAME-LIMIT1*
      FRAME-LIMIT2 *FRAME-LIMIT2* 4. *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1
      *DEBUG-FRAME* "step " "Step " "Step " LANGUAGE " --> " 3. STEPPER
      #Y(STEP-HOOK-FN-1
         #31Y(00 00 00 00 00 01 C5 4F 0B 6A 03 29 14 D9 6C 04 02 2F 05 50 14 AA
              23 06 03 00 19 02 4D 01 01
             )
         NIL NIL DEBUG *DEBUG-FRAME*
         #Y(STEP-HOOK-FN-1-1
            #45Y(00 00 00 00 00 01 68 00 01 2D 02 14 70 A0 6A 03 87 04 10 00 14
                 2D 06 14 70 A0 72 03 24 89 07 0A 00 19 01 2D 05 14 30 A0 1A 6A
                 4D 01 00
                )
            NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS4
            READ-EVAL-PRINT
           )
         SAME-ENV-AS UNWIND
        )
      "condition when to stop: " "Abbruchbedingung: " "condition d'arrêt : "
      READ-FORM FUNCTION LAMBDA EVAL-AT
      #S(HASH-TABLE EQ (CONTINUE . 52.) (OVER-THIS-LEVEL . 27.) (OVER . 1.)
         (INTO . 16.)
        )
      STEP-HOOK-FN STEP-VALUES 0.
  )  )
#Y(#:TOP-LEVEL-FORM-54
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *ERROR-HANDLER*) *ERROR-HANDLER*
  )
#Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   CERROR REMOVE-OLD-DEFINITIONS
   #Y(CERROR
      #90Y(02 00 00 00 01 18 0E 00 1B 2C 6A 01 30 8D DA 6A 01 37 02 30 8B 6A 01
           30 8D 98 03 6A 01 AE 9F 36 02 6A 01 30 8D 6A 04 87 05 15 98 03 6A 01
           A0 14 9F 36 02 00 19 04 14 91 04 01 02 14 9F 1A 70 DE DF E0 6D 03 09
           6A 01 37 02 30 8B 98 03 6A 01 AF 9F 36 02 6A 0A 63 35 01 1A 59
          )
      *ERROR-HANDLER* *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*
  )  )
#Y(#:TOP-LEVEL-FORM-56
   #20Y(00 00 00 00 00 01 D8 30 5B D9 8B 50 04 D9 62 30 53 C4 19 01)
   (SPECIAL *BREAK-ON-WARNINGS*) *BREAK-ON-WARNINGS*
  )
#Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   WARN REMOVE-OLD-DEFINITIONS
   #Y(WARN
      #46Y(01 00 00 00 01 17 6A 00 30 8D D9 DA DB 6D 03 04 6A 00 37 02 30 8B 6A
           00 30 8D 98 05 6A 00 AE 9F 36 02 0E 06 1C 05 6A 07 63 35 01 00 19 03
          )
      *ERROR-OUTPUT* "WARNING:" "WARNUNG:" "AVERTISSEMENT :" LANGUAGE FORMAT
      *BREAK-ON-WARNINGS* *BREAK-DRIVER*
  )  )
#Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   BREAK REMOVE-OLD-DEFINITIONS
   #Y(BREAK
      #31Y(00 00 01 00 01 00 3A 02 02 C3 F8 6A 01 30 8D 98 02 6A 01 AE 9F 36 02
           6A 03 63 35 01 00 19 03
          )
      "*** - Break" *ERROR-OUTPUT* FORMAT *BREAK-DRIVER*
  )  )
#Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   Y-OR-N-P REMOVE-OLD-DEFINITIONS
   #Y(Y-OR-N-P
      #85Y(00 00 01 00 01 00 3A 02 25 7C 02 92 02 23 6A 00 30 8E 98 01 6A 00 AE
           9F 36 02 DA DB C7 1A 2A AA E0 70 32 30 2A 25 09 18 00 19 04 02 19 04
           91 02 5D DE 6A 00 37 03 70 79 6F 07 AA 71 45 8D 89 5F 16 01 6A 00 30
           8D E2 E3 CF 14 6D 03 05 6A 00 37 02 30 8B 1A 5C
          )
      *QUERY-IO* FORMAT " (y/n) " " (j/n) " " (o/n) " LANGUAGE " "
      STRING-LEFT-TRIM 0.
      #S(HASH-TABLE EQ (#\O . 4.) (#\Y . 4.) (#\J . 4.) (#\N . 1.))
      "Please answer with y or n : " "Bitte mit j oder n antworten: "
      "Répondez par o ou n : "
  )  )
#Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 78 C3 19 01)
   YES-OR-NO-P REMOVE-OLD-DEFINITIONS
   #Y(YES-OR-NO-P
      #81Y(00 00 01 00 01 00 3A 02 16 7C 02 92 02 14 6A 00 30 8E 98 01 6A 00 AE
           9F 36 02 DA DB C7 1A 23 91 02 6C 6A 00 30 7F DE 6A 00 37 03 70 79 6F
           07 AA E0 E1 37 02 70 BC 91 00 15 16 02 6A 00 30 8D E2 E3 CF 14 6D 03
           05 6A 00 37 02 30 8B 1A 54 5B 19 05
          )
      *QUERY-IO* FORMAT " (yes/no) " " (ja/nein) " " (oui/non) " LANGUAGE " "
      STRING-TRIM (("ja" . T) ("nein") ("yes" . T) ("no") ("oui" . T) ("non"))
      #.#'STRING-EQUAL "Please answer with yes or no : "
      "Bitte mit ja oder nein antworten: " "Répondez par oui ou non : "
  )  )
#Y(#:TOP-LEVEL-FORM-61-1 #12Y(00 00 00 00 00 01 D8 30 5B 3D 19 01)
   (SPECIAL *KEYBOARD-INPUT*)
  )
#Y(#:TOP-LEVEL-FORM-61-2
   #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 78 C3 19 01) WITH-KEYBOARD
   REMOVE-OLD-DEFINITIONS MACRO
   #Y(WITH-KEYBOARD
      #19Y(01 00 01 00 00 08 94 02 D8 D9 DA 9E 7B 02 C6 61 02 19 04)
      UNWIND-PROTECT PROGN (TERMINAL-RAW *TERMINAL-IO* T)
      ((TERMINAL-RAW *TERMINAL-IO* NIL))
  )  )