home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / user1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-08-07  |  29.9 KB  |  660 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  4.    (EVAL-ENV WITH-KEYBOARD *KEYBOARD-INPUT*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4
  8.    #18Y(00 00 00 00 00 01 D8 30 5D D9 DA 70 5E 30 55 C4 19 01)
  9.    (SPECIAL *TOPLEVEL-ENVIRONMENT*) *TOPLEVEL-ENVIRONMENT* (THE-ENVIRONMENT)
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-5
  12.    #20Y(00 00 00 00 00 01 D8 30 5D D9 6A 02 C6 5E 14 30 55 C4 19 01)
  13.    (SPECIAL *TOPLEVEL-DENV*) *TOPLEVEL-DENV* *TOPLEVEL-ENVIRONMENT* 4.
  14.   )
  15. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  16.    EVAL-ENV REMOVE-OLD-DEFINITIONS
  17.    #Y(EVAL-ENV
  18.       #20Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC 01 02 AE 30 5F 19 03)
  19.       *TOPLEVEL-ENVIRONMENT*
  20.   )  )
  21. #Y(#:TOP-LEVEL-FORM-7
  22.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
  23.    (SPECIAL *BREAK-COUNT*) *BREAK-COUNT* 0.
  24.   )
  25. #Y(#:TOP-LEVEL-FORM-8
  26.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
  27.    (SPECIAL *RECURSE-COUNT-ERROR-OUTPUT*) *RECURSE-COUNT-ERROR-OUTPUT* 0.
  28.   )
  29. #Y(#:TOP-LEVEL-FORM-9
  30.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  31.    (SPECIAL *PROMPT-WITH-PACKAGE*) *PROMPT-WITH-PACKAGE*
  32.   )
  33. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  34.    PROMPT-STRING-PACKAGE REMOVE-OLD-DEFINITIONS
  35.    #Y(PROMPT-STRING-PACKAGE
  36.       #48Y(00 00 00 00 00 01 6A 00 8E 21 05 6A 00 8B D0 13 DE DF E0 2C 03 09 19
  37.            01 DB 6A 00 70 D0 DC 32 03 13 19 01 0E 01 1B 71 DA 6A 00 8C D8 6B C8
  38.            19 01
  39.           )
  40.       *PACKAGE* *PROMPT-WITH-PACKAGE* "T" "[" "]" "" "[*package* invalid]"
  41.       "[*package* ungültig]" "[*package* invalide]" LANGUAGE
  42.   )  )
  43. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  44.    PROMPT-STRING1 REMOVE-OLD-DEFINITIONS
  45.    #Y(PROMPT-STRING1 #9Y(00 00 00 00 00 01 C3 19 01) "")
  46.   )
  47. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  48.    PROMPT-STRING2 REMOVE-OLD-DEFINITIONS
  49.    #Y(PROMPT-STRING2 #10Y(00 00 00 00 00 01 2D 00 19 01) PROMPT-STRING-PACKAGE)
  50.   )
  51. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  52.    PROMPT-STRING3 REMOVE-OLD-DEFINITIONS
  53.    #Y(PROMPT-STRING3 #9Y(00 00 00 00 00 01 C3 19 01) "> ")
  54.   )
  55. #Y(#:TOP-LEVEL-FORM-14
  56.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  57.    (SPECIAL *KEY-BINDINGS*) *KEY-BINDINGS*
  58.   )
  59. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  60.    HELP REMOVE-OLD-DEFINITIONS
  61.    #Y(HELP
  62.       #35Y(00 00 00 00 00 01 D8 6A 01 37 05 71 51 71 49 62 1A 0A 86 01 00 14 37
  63.            03 30 8D 82 01 AB 8C 96 72 00 19 03
  64.           )
  65.       #.#'STRINGP *KEY-BINDINGS*
  66.   )  )
  67. #Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  68.    (SPECIAL *DEBUG-FRAME*) *DEBUG-FRAME*
  69.   )
  70. #Y(#:TOP-LEVEL-FORM-17 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  71.    (SPECIAL *DEBUG-MODE*) *DEBUG-MODE*
  72.   )
  73. #Y(#:TOP-LEVEL-FORM-18
  74.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  75.    (SPECIAL *FRAME-LIMIT1*) *FRAME-LIMIT1*
  76.   )
  77. #Y(#:TOP-LEVEL-FORM-19
  78.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  79.    (SPECIAL *FRAME-LIMIT2*) *FRAME-LIMIT2*
  80.   )
  81. #Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  82.    FRAME-LIMIT1 REMOVE-OLD-DEFINITIONS
  83.    #Y(FRAME-LIMIT1
  84.       #38Y(00 01 00 00 00 02 2D 00 14 00 10 01 00 10 02 DB 1A 07 B1 DC 2F 05 FD
  85.            84 00 AA B4 90 01 32 73 16 01 12 02 15 19 02
  86.           )
  87.       THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 0. 1. FRAME-UP-1
  88.   )  )
  89. #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  90.    FRAME-LIMIT2 REMOVE-OLD-DEFINITIONS
  91.    #Y(FRAME-LIMIT2
  92.       #58Y(00 00 00 00 00 01 2D 00 14 00 10 01 00 10 02 1A 04 9B FD 16 01 B0 DB
  93.            6F 04 AA A3 21 04 AA 88 05 70 16 01 DE 1A 07 B1 DB 2F 08 FD 84 00 AA
  94.            DF 90 01 32 73 16 01 12 02 15 19 01
  95.           )
  96.       THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 1. FRAME-UP-1 DRIVER-FRAME-P 0.
  97.       2. FRAME-DOWN-1
  98.   )  )
  99. #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  100.    DEBUG-HELP REMOVE-OLD-DEFINITIONS
  101.    #Y(DEBUG-HELP #11Y(00 00 00 00 00 01 2D 00 D9 C5 51) HELP DEBUG CONTINUE)
  102.   )
  103. #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  104.    DEBUG-UNWIND REMOVE-OLD-DEFINITIONS
  105.    #Y(DEBUG-UNWIND #9Y(00 00 00 00 00 01 D8 C4 51) DEBUG UNWIND)
  106.   )
  107. #Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  108.    DEBUG-MODE-1 REMOVE-OLD-DEFINITIONS
  109.    #Y(DEBUG-MODE-1 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 1. *DEBUG-MODE*
  110.       DEBUG CONTINUE
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  113.    DEBUG-MODE-2 REMOVE-OLD-DEFINITIONS
  114.    #Y(DEBUG-MODE-2 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 2. *DEBUG-MODE*
  115.       DEBUG CONTINUE
  116.   )  )
  117. #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  118.    DEBUG-MODE-3 REMOVE-OLD-DEFINITIONS
  119.    #Y(DEBUG-MODE-3 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 3. *DEBUG-MODE*
  120.       DEBUG CONTINUE
  121.   )  )
  122. #Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  123.    DEBUG-MODE-4 REMOVE-OLD-DEFINITIONS
  124.    #Y(DEBUG-MODE-4 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 4. *DEBUG-MODE*
  125.       DEBUG CONTINUE
  126.   )  )
  127. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  128.    DEBUG-MODE-5 REMOVE-OLD-DEFINITIONS
  129.    #Y(DEBUG-MODE-5 #12Y(00 00 00 00 00 01 C3 0F 01 DA C6 51) 5. *DEBUG-MODE*
  130.       DEBUG CONTINUE
  131.   )  )
  132. #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  133.    DEBUG-WHERE REMOVE-OLD-DEFINITIONS
  134.    #Y(DEBUG-WHERE #15Y(00 00 00 00 00 01 6A 00 6A 01 2F 02 DB C7 51)
  135.       *STANDARD-OUTPUT* *DEBUG-FRAME* DESCRIBE-FRAME DEBUG CONTINUE
  136.   )  )
  137. #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  138.    DEBUG-UP REMOVE-OLD-DEFINITIONS
  139.    #Y(DEBUG-UP
  140.       #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
  141.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP-1 DESCRIBE-FRAME
  142.       DEBUG CONTINUE
  143.   )  )
  144. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  145.    DEBUG-TOP REMOVE-OLD-DEFINITIONS
  146.    #Y(DEBUG-TOP
  147.       #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
  148.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP DESCRIBE-FRAME
  149.       DEBUG CONTINUE
  150.   )  )
  151. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  152.    DEBUG-DOWN REMOVE-OLD-DEFINITIONS
  153.    #Y(DEBUG-DOWN
  154.       #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
  155.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN-1 DESCRIBE-FRAME
  156.       DEBUG CONTINUE
  157.   )  )
  158. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  159.    DEBUG-BOTTOM REMOVE-OLD-DEFINITIONS
  160.    #Y(DEBUG-BOTTOM
  161.       #22Y(00 00 00 00 00 01 6A 00 6A 01 6A 02 2F 03 0F 01 14 2F 04 DD C9 51)
  162.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN DESCRIBE-FRAME
  163.       DEBUG CONTINUE
  164.   )  )
  165. #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  166.    DEBUG-BACKTRACE REMOVE-OLD-DEFINITIONS
  167.    #Y(DEBUG-BACKTRACE
  168.       #38Y(00 00 00 01 00 07 3A 01 03 0E 00 F7 6A 01 AC 6F 02 AC 6F 03 6A 04 AB
  169.            2F 05 AA AB AE 2F 02 F7 22 73 16 01 DE CA 51
  170.           )
  171.       *DEBUG-MODE* *FRAME-LIMIT1* FRAME-UP-1 FRAME-DOWN-1 *STANDARD-OUTPUT*
  172.       DESCRIBE-FRAME DEBUG CONTINUE
  173.   )  )
  174. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  175.    DEBUG-BACKTRACE-1 REMOVE-OLD-DEFINITIONS
  176.    #Y(DEBUG-BACKTRACE-1 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 1.
  177.       DEBUG-BACKTRACE
  178.   )  )
  179. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  180.    DEBUG-BACKTRACE-2 REMOVE-OLD-DEFINITIONS
  181.    #Y(DEBUG-BACKTRACE-2 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 2.
  182.       DEBUG-BACKTRACE
  183.   )  )
  184. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  185.    DEBUG-BACKTRACE-3 REMOVE-OLD-DEFINITIONS
  186.    #Y(DEBUG-BACKTRACE-3 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 3.
  187.       DEBUG-BACKTRACE
  188.   )  )
  189. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  190.    DEBUG-BACKTRACE-4 REMOVE-OLD-DEFINITIONS
  191.    #Y(DEBUG-BACKTRACE-4 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 4.
  192.       DEBUG-BACKTRACE
  193.   )  )
  194. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  195.    DEBUG-BACKTRACE-5 REMOVE-OLD-DEFINITIONS
  196.    #Y(DEBUG-BACKTRACE-5 #11Y(00 00 00 00 00 01 D8 2E 01 19 01) 5.
  197.       DEBUG-BACKTRACE
  198.   )  )
  199. #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  200.    DEBUG-TRAP-ON REMOVE-OLD-DEFINITIONS
  201.    #Y(DEBUG-TRAP-ON #14Y(00 00 00 00 00 01 6A 00 63 2F 01 DA C6 51)
  202.       *DEBUG-FRAME* TRAP-EVAL-FRAME DEBUG CONTINUE
  203.   )  )
  204. #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  205.    DEBUG-TRAP-OFF REMOVE-OLD-DEFINITIONS
  206.    #Y(DEBUG-TRAP-OFF #14Y(00 00 00 00 00 01 6A 00 62 2F 01 DA C6 51)
  207.       *DEBUG-FRAME* TRAP-EVAL-FRAME DEBUG CONTINUE
  208.   )  )
  209. #Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  210.    DEBUG-REDO REMOVE-OLD-DEFINITIONS
  211.    #Y(DEBUG-REDO #13Y(00 00 00 00 00 01 6A 00 2E 01 DA C6 51) *DEBUG-FRAME*
  212.       REDO-EVAL-FRAME DEBUG CONTINUE
  213.   )  )
  214. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  215.    DEBUG-RETURN REMOVE-OLD-DEFINITIONS
  216.    #Y(DEBUG-RETURN
  217.       #21Y(00 00 00 00 00 01 6A 00 D9 DA DB 6D 03 04 6E 05 2F 06 DF CB 51)
  218.       *DEBUG-FRAME* "values: " "Werte: " "Valeurs : " LANGUAGE READ-FORM
  219.       RETURN-FROM-EVAL-FRAME DEBUG CONTINUE
  220.   )  )
  221. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  222.    DEBUG-CONTINUE REMOVE-OLD-DEFINITIONS
  223.    #Y(DEBUG-CONTINUE #9Y(00 00 00 00 00 01 D8 C4 51) DEBUG QUIT)
  224.   )
  225. #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  226.    COMMANDS0 REMOVE-OLD-DEFINITIONS
  227.    #Y(COMMANDS0
  228.       #20Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 97 05 79 60 02 19 01)
  229.       "
  230. Help = this list
  231. Use the usual editing capabilities."
  232.       "
  233. Help = diese Liste
  234. Benutzen Sie die üblichen Editiermöglichkeiten."
  235.       "
  236. Help = cette liste
  237. Éditez de la façon habituelle."
  238.       LANGUAGE "Help" DEBUG-HELP
  239.   )  )
  240. #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  241.    COMMANDS1 REMOVE-OLD-DEFINITIONS
  242.    #Y(COMMANDS1
  243.       #102Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 97 05 79 DE 97 05 79 DF 97
  244.             08 79 E1 97 08 79 E2 97 0B 79 E4 97 0D 79 E6 97 0F 79 E8 97 11 79
  245.             EA 97 13 79 EC 97 15 79 EE 97 17 79 F0 97 19 79 F2 97 1B 79 F4 97
  246.             1D 79 64 1E 97 1F 79 64 20 97 21 79 64 22 97 23 79 64 24 97 25 79
  247.             64 26 97 27 79 64 28 97 29 79 60 15 19 01
  248.            )
  249.       "
  250. Help   = this command list
  251. Abort  = abort to the next recent input loop
  252. Unwind = abort to the next recent input loop
  253. Mode-1 = inspect all the stack elements
  254. Mode-2 = inspect all the frames
  255. Mode-3 = inspect only lexical frames
  256. Mode-4 = inspect only EVAL and APPLY frames (default)
  257. Mode-5 = inspect only APPLY frames
  258. Where  = inspect this frame
  259. Up     = go up one frame, inspect it
  260. Top    = go to top frame, inspect it
  261. Down   = go down one frame, inspect it
  262. Bottom = go to bottom (most recent) frame, inspect it
  263. Backtrace-1 = list all stack elements
  264. Backtrace-2 = list all frames
  265. Backtrace-3 = list all lexical frames
  266. Backtrace-4 = list all EVAL and APPLY frames
  267. Backtrace-5 = list all APPLY frames
  268. Backtrace   = list stack in current mode
  269. Break+ = set breakpoint in EVAL frame
  270. Break- = disable breakpoint in EVAL frame
  271. Redo   = re-evaluate form in EVAL frame
  272. Return = leave EVAL frame, prescribing the return values"
  273.       "
  274. Help   = dieses Menü
  275. Abort  = Abbruch, Rücksprung zur nächsthöheren Eingabeschleife
  276. Unwind = Abbruch, Rücksprung zur nächsthöheren Eingabeschleife
  277. Mode-1 = alle Stack-Elemente inspizieren
  278. Mode-2 = alle Frames inspizieren
  279. Mode-3 = nur lexikalische Frames inspizieren
  280. Mode-4 = nur EVAL- und APPLY-Frames inspizieren (Default)
  281. Mode-5 = nur APPLY-Frames inspizieren
  282. Where  = diesen Frame inspizieren
  283. Up     = nächsthöheren Frame inspizieren
  284. Top    = obersten Frame inspizieren
  285. Down   = nächstneueren Frame inspizieren
  286. Bottom = neuesten Frame inspizieren
  287. Backtrace-1 = alle Stack-Elemente auflisten
  288. Backtrace-2 = alle Frames auflisten
  289. Backtrace-3 = alle lexikalische Frames auflisten
  290. Backtrace-4 = alle EVAL- und APPLY-Frames auflisten
  291. Backtrace-5 = alle APPLY-Frames auflisten
  292. Backtrace   = Stack auflisten im aktuellen Mode
  293. Break+ = Breakpoint im EVAL-Frame setzen
  294. Break- = Breakpoint im EVAL-Frame löschen
  295. Redo   = Form im EVAL-Frame erneut auswerten
  296. Return = EVAL-Frame mit gegebenen Werten verlassen"
  297.       "
  298. Help   = ce menu-ci
  299. Abort  = arrêt, retour au niveau supérieur
  300. Unwind = arrêt, retour au niveau supérieur
  301. Mode-1 = examiner tous les éléments de la pile
  302. Mode-2 = examiner tous les «frames»
  303. Mode-3 = examiner uniquement les «frames» lexicaux
  304. Mode-4 = examiner uniquement les «frames» EVAL et APPLY (par défaut)
  305. Mode-5 = examiner uniquement les «frames» APPLY
  306. Where  = examiner ce «frame»
  307. Up     = examiner un «frame» supérieur
  308. Top    = examiner le «frame» le plus élevé
  309. Down   = examiner un prochain «frame» plus récent (inférieur)
  310. Bottom = examiner le «frame» le plus récent (le plus bas)
  311. Backtrace-1 = montrer tous les éléments de la pile
  312. Backtrace-2 = montrer tous les «frames»
  313. Backtrace-3 = montrer tous les «frames» lexicaux
  314. Backtrace-4 = montrer tous les «frames» EVAL et APPLY
  315. Backtrace-5 = montrer tous les «frames» APPLY
  316. Backtrace   = montrer la pile en mode actuel
  317. Break+ = placer un point d'interception dans le «frame» EVAL
  318. Break- = enlever le point d'interception du «frame» EVAL
  319. Redo   = réévaluer la forme dans le «frame» EVAL
  320. Return = quitter le «frame» EVAL avec certaines valeurs"
  321.       LANGUAGE "Help" DEBUG-HELP "?" "Abort" DEBUG-UNWIND "Unwind" "Mode-1"
  322.       DEBUG-MODE-1 "Mode-2" DEBUG-MODE-2 "Mode-3" DEBUG-MODE-3 "Mode-4"
  323.       DEBUG-MODE-4 "Mode-5" DEBUG-MODE-5 "Where" DEBUG-WHERE "Up" DEBUG-UP
  324.       "Top" DEBUG-TOP "Down" DEBUG-DOWN "Bottom" DEBUG-BOTTOM "Backtrace-1"
  325.       DEBUG-BACKTRACE-1 "Backtrace-2" DEBUG-BACKTRACE-2 "Backtrace-3"
  326.       DEBUG-BACKTRACE-3 "Backtrace-4" DEBUG-BACKTRACE-4 "Backtrace-5"
  327.       DEBUG-BACKTRACE-5 "Backtrace" DEBUG-BACKTRACE
  328.   )  )
  329. #Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  330.    COMMANDS2 REMOVE-OLD-DEFINITIONS
  331.    #Y(COMMANDS2
  332.       #26Y(00 00 00 00 00 01 D8 97 01 79 DA 97 03 79 DC 97 05 79 DE 97 07 79 60
  333.            04 19 01
  334.           )
  335.       "Break+" DEBUG-TRAP-ON "Break-" DEBUG-TRAP-OFF "Redo" DEBUG-REDO "Return"
  336.       DEBUG-RETURN
  337.   )  )
  338. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  339.    COMMANDS3 REMOVE-OLD-DEFINITIONS
  340.    #Y(COMMANDS3
  341.       #20Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC 97 05 79 60 02 19 01)
  342.       "
  343. Continue = continue evaluation"
  344.       "
  345. Continue = Rest weiter abarbeiten"
  346.       "
  347. Continue = continuer l'évaluation"
  348.       LANGUAGE "Continue" DEBUG-CONTINUE
  349.   )  )
  350. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  351.    MAIN-LOOP REMOVE-OLD-DEFINITIONS
  352.    #Y(MAIN-LOOP #12Y(00 00 00 00 00 01 C3 0F 01 DA 30 58) 0. *BREAK-COUNT*
  353.       #Y(MAIN-LOOP-1
  354.          #39Y(00 00 00 00 00 01 C3 4F 1C 2D 01 14 2D 02 14 2D 03 14 72 03 13 2D
  355.               04 14 70 A2 89 05 04 00 50 19 01 2D 06 1A 79 19 01
  356.              )
  357.          DEBUG PROMPT-STRING1 PROMPT-STRING2 PROMPT-STRING3 COMMANDS0
  358.          READ-EVAL-PRINT EXIT
  359.   )  )  )
  360. #Y(#:TOP-LEVEL-FORM-50 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01) MAIN-LOOP
  361.    *DRIVER*
  362.   )
  363. #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  364.    BREAK-LOOP REMOVE-OLD-DEFINITIONS
  365.    #Y(BREAK-LOOP
  366.       #514Y(00 01 00 02 00 0D 00 2A 03 7E 04 00 00 3C 03 3A 02 80 E3 7C 02 06
  367.             00 00 1C 80 E0 1A 80 E4 E4 6A 06 37 02 30 8D 6A 06 30 8F 1A 81 1F
  368.             CE 0F 0E E7 E8 E9 6D 03 12 6A 06 37 02 30 8D 1A 81 20 6A 02 30 8F
  369.             ED EE EF 6D 03 12 6A 02 37 02 30 8D 92 04 81 33 1A 81 20 6A 02 30
  370.             8F 92 00 0C F0 F1 F2 6D 03 12 6A 02 37 02 30 8D 67 01 01 6A 02 30
  371.             88 92 04 81 12 1A 80 FF F4 F5 03 1E 1A 12 92 01 19 6A 02 30 8F 06
  372.             02 01 1B 6E 64 1F 64 20 03 21 14 6D 03 12 6A 02 37 02 30 8D E3 AB
  373.             62 1A 80 44 86 01 00 64 22 84 03 14 71 91 72 02 13 64 23 AB 64 24
  374.             AE 70 8B 72 04 13 92 06 07 AA 6A 02 37 02 30 8D AA 06 08 02 5C 0B
  375.             07 02 AB A3 2A 01 7E 04 00 00 AA 2B 25 01 16 01 79 06 08 02 5C 0B
  376.             07 02 16 02 82 01 AB 8C 96 FF B7 16 02 67 03 02 31 4A 0B 03 02 16
  377.             02 1A 80 8F 06 00 00 1B 07 92 03 04 D8 AE 2F 01 0B 00 01 6A 02 6E
  378.             03 00 0B 01 02 92 03 80 61 AE DC 37 02 71 2C 8A 05 80 57 DE DF 2F
  379.             08 6A 09 31 97 10 09 6A 09 E2 90 01 30 0D CE 0F 09 6A 06 37 01 31
  380.             7D DE DF 2F 08 6A 06 30 8F 11 06 01 01 1B FE DA E5 6A 06 37 02 30
  381.             8D 6A 0E 31 97 10 0E 6A 0E E2 8F 01 30 FE D3 B1 6A 06 2F 13 11 DA
  382.             EC 2F 08 06 01 01 1C 0A 06 01 00 1C FE E7 91 00 FE CC 92 04 10 67
  383.             01 01 AF 6E 1B 37 07 71 4F 91 00 FE F9 16 01 4A 26 80 74 80 74 A1
  384.             2A 01 6A 27 31 97 10 27 DA 71 6C 9B 10 28 9E 10 29 37 01 71 76 52
  385.             2B 2D 2A 14 AD 37 02 30 8D 6A 27 37 0C B9 30 84 64 2B AD 37 02 30
  386.             8D 2D 2C 14 AD 37 02 30 8D 2D 2D 14 AD 37 02 30 8D AC 31 77 3E 53
  387.             66 00 00 37 01 31 7D 54 16 01 0B 0A 00 64 2E 2E 2F 10 30 2D 31 10
  388.             32 03 33 10 34 6A 30 6A 34 6F 35 6A 34 2F 36 10 37 C0 65 1A 6C 38
  389.             02 30 58 30 59 4B 19 06
  390.            )
  391.       CONTINUE FIND-RESTART *DEBUG-IO* INTERACTIVE-STREAM-P CONDITION TYPEP
  392.       *ERROR-OUTPUT* :OUTPUT SYMBOL-STREAM *RECURSE-COUNT-ERROR-OUTPUT* 3. 0.
  393.       "** - Continuable Error" "*** - " *RECURSIVE-ERROR-COUNT*
  394.       "Unprintable error message" "Unausgebbare Fehlermeldung"
  395.       "Message inimprimable" LANGUAGE PRINT-CONDITION :IO
  396.       "You can continue (by typing 'continue')."
  397.       "Sie können (mit Continue) fortfahren."
  398.       "Vous pouvez continuer (tapez «continue» pour cela)."
  399.       "If you continue (by typing 'continue'): "
  400.       "Wenn Sie (mit Continue) fortfahren: "
  401.       "Si vous continuez (en tapant «continue»): " COMPUTE-RESTARTS
  402.       "The following restarts are available too:" "Weitere mögliche Optionen:"
  403.       "D'autres rentrées possibles:" "The following restarts are available:"
  404.       "Mögliche Optionen:" "Rentrées possibles:" "R"
  405.       "
  406. "
  407.       " = "
  408.       #Y(BREAK-LOOP-1 #13Y(00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL
  409.          INVOKE-RESTART-INTERACTIVELY
  410.         )
  411.       #(UNWIND QUIT) *BREAK-COUNT* *STANDARD-INPUT* *STANDARD-OUTPUT*
  412.       PROMPT-STRING1 ". Break" PROMPT-STRING2 PROMPT-STRING3 13. FRAME-LIMIT1
  413.       *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2* 4. *DEBUG-MODE* FRAME-UP-1
  414.       FRAME-DOWN-1 *DEBUG-FRAME*
  415.       #Y(BREAK-LOOP-2
  416.          #49Y(00 00 00 00 00 01 C5 4F 0A 6A 03 29 14 6C 04 01 2F 05 50 14 AA 23
  417.               06 07 AA 23 07 09 00 19 02 4D 01 00 4D 01 01 07 01 01 1B 78 68 01
  418.               02 2E 08 19 02
  419.              )
  420.          NIL NIL DEBUG *DEBUG-FRAME*
  421.          #Y(BREAK-LOOP-2-1
  422.             #64Y(00 00 00 00 00 01 68 00 01 2D 01 14 70 A2 6A 02 87 03 15 00 14
  423.                  07 01 02 1B 15 00 14 68 01 03 72 04 24 89 06 13 00 19 01 2D 04
  424.                  14 30 A2 1A 65 2D 05 14 30 A2 1A 65 CB 51 DF 07 01 02 1B 78 CC
  425.                  51
  426.                 )
  427.             NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS3
  428.             READ-EVAL-PRINT DEBUG QUIT UNWIND
  429.            )
  430.          SAME-ENV-AS UNWIND QUIT INVOKE-RESTART-INTERACTIVELY
  431.   )  )  )
  432. #Y(#:TOP-LEVEL-FORM-52 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01) BREAK-LOOP
  433.    *BREAK-DRIVER*
  434.   )
  435. #Y(#:TOP-LEVEL-FORM-53
  436.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
  437.    (SPECIAL *STEP-LEVEL*) *STEP-LEVEL* 0.
  438.   )
  439. #Y(#:TOP-LEVEL-FORM-54
  440.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
  441.    (SPECIAL *STEP-QUIT*) *STEP-QUIT* #.MOST-POSITIVE-FIXNUM
  442.   )
  443. #Y(#:TOP-LEVEL-FORM-55
  444.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  445.    (SPECIAL *STEP-WATCH*) *STEP-WATCH*
  446.   )
  447. #Y(#:TOP-LEVEL-FORM-56
  448.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) STEP
  449.    REMOVE-OLD-DEFINITIONS MACRO
  450.    #Y(STEP
  451.       #29Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 0A 9D 5B 77 DA DB AC 60 03 19
  452.            04 AC 2E 01 19 03
  453.           )
  454.       2. MACRO-CALL-ERROR LET*
  455.       ((*STEP-LEVEL* 0.) (*STEP-QUIT* MOST-POSITIVE-FIXNUM) (*STEP-WATCH* NIL)
  456.         (*EVALHOOK* #'STEP-HOOK-FN)
  457.   )  ))
  458. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  459.    COMMANDS4 REMOVE-OLD-DEFINITIONS
  460.    #Y(COMMANDS4
  461.       #40Y(00 00 00 00 00 01 D8 D9 DA 6D 03 03 DC C8 79 DE CA 79 E0 CC 79 E2 CE
  462.            79 E4 D0 79 E6 D2 79 E8 D4 79 EA D6 79 60 09 19 01
  463.           )
  464.       "
  465. Step     = step into form: evaluate this form in single step mode
  466. Next     = step over form: evaluate this form at once
  467. Over     = step over this level: evaluate at once up to the next return
  468. Continue = switch off single step mode, continue evaluation
  469. Step-until, Next-until, Over-until, Continue-until:
  470.            same as above, specify a condition when to stop"
  471.       "
  472. Step     = Step into form: diese Form im Einzelschrittmodus ausführen
  473. Next     = Step over form: diese Form auf einmal ausführen
  474. Over     = Step over this level: bis zum Aufrufer auf einmal ausführen
  475. Continue = Einzelschrittmodus abschalten, Rest ausführen
  476. Step-until, Next-until, Over-until, Continue-until:
  477.            dito, jedoch mit Angabe einer Abbruchbedingung"
  478.       "
  479. Step     = step into form: évaluer cette forme petit à petit
  480. Next     = step over form: évaluer cette forme en bloc
  481. Over     = step over this level: évaluer tout le reste jusqu'au prochain retour
  482. Continue = continue: évaluer tout le reste en bloc
  483. Step-until, Next-until, Over-until, Continue-until:
  484.            de même, avec spécification d'une condition d'arrêt"
  485.       LANGUAGE "Step"
  486.       #Y(COMMANDS4-1 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER INTO) "Next"
  487.       #Y(COMMANDS4-2 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER OVER) "Over"
  488.       #Y(COMMANDS4-3 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER OVER-THIS-LEVEL)
  489.       "Continue"
  490.       #Y(COMMANDS4-4 #9Y(00 00 00 00 00 01 D8 C4 51) STEPPER CONTINUE)
  491.       "Step-until"
  492.       #Y(COMMANDS4-5 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER INTO)
  493.       "Next-until"
  494.       #Y(COMMANDS4-6 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER OVER)
  495.       "Over-until"
  496.       #Y(COMMANDS4-7 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER
  497.          OVER-THIS-LEVEL
  498.         )
  499.       "Continue-until"
  500.       #Y(COMMANDS4-8 #12Y(00 00 00 00 00 01 D8 D9 63 3F 02 51) STEPPER CONTINUE
  501.   )  )  )
  502. #Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  503.    STEP-VALUES REMOVE-OLD-DEFINITIONS
  504.    #Y(STEP-VALUES
  505.       #126Y(00 01 00 00 00 02 0E 00 10 01 37 01 30 8F DA DB DC 6D 03 05 37 03
  506.             30 8D 6A 06 37 0D 30 84 DF 37 03 30 8D AE 71 48 AA 23 08 18 AA 23
  507.             0C 20 AF 71 48 37 0D 30 84 E8 E9 EA 6D 03 05 37 03 30 8D AF 1A 2F
  508.             E1 E2 E3 6D 03 05 37 03 30 8D 1A 29 E5 E6 E7 6D 03 05 37 03 30 8D
  509.             93 05 37 0D 30 84 1A 17 93 00 82 01 37 0D 30 84 AA 8B 96 05 EB 37
  510.             03 30 8D AA 8C 96 6B 16 01 16 01 11 9C 43 19 02
  511.            )
  512.       *DEBUG-IO* *STANDARD-OUTPUT* "step " "Step " "Step " LANGUAGE
  513.       *STEP-LEVEL* " ==> " 0. "no values" "Keine Werte" "Aucune valeur" 1.
  514.       "value: " "Wert: " "Valeur : " " values: " " Werte: " " Valeurs : " ", "
  515.   )  )
  516. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  517.    STEP-HOOK-FN REMOVE-OLD-DEFINITIONS
  518.    #Y(STEP-HOOK-FN
  519.       #303Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 6A 01 31 97 10 01 6A 01 6A 02
  520.             90 01 32 0E 0E 03 1C 80 A2 14 35 00 1C 80 9C C7 0F 02 4A 05 80 FD
  521.             80 CF 00 2A 01 DE 71 6C 9B 10 07 9E 10 08 37 01 71 76 52 2A 2D 09
  522.             14 AD 37 02 30 8D E2 AD 37 02 30 8D 6A 01 37 0C B9 30 84 2D 0B 14
  523.             AD 37 02 30 8D 2D 0C 14 AD 37 02 30 8D AC 31 77 3E 53 66 00 00 37
  524.             01 31 7D 54 16 01 0B 07 00 E5 2E 0E 10 0F 2D 10 10 11 D5 10 13 6A
  525.             0F 6A 13 6F 14 6A 13 2F 15 10 16 37 01 30 90 EF F0 F1 6D 03 1A 37
  526.             03 30 8D 6A 01 37 0D 30 84 F3 37 03 30 8D 65 1E 37 0D D5 09 0A 03
  527.             1C 09 0B 30 84 03 1D 4F 11 C0 65 1A 6C 1E 02 30 58 AF 01 02 B1 30
  528.             5F 1A 80 56 41 02 92 00 1D 64 1F 64 20 64 21 6D 03 1A 6E 22 6A 16
  529.             64 23 64 24 62 AE 7A 03 7A 02 2F 25 0F 03 16 01 9C 25 26 08 16 02
  530.             12 06 16 02 1A 1C 16 02 1A FF B8 30 59 16 02 12 06 16 02 B4 97 27
  531.             1A 0C 16 02 12 06 16 02 0E 01 0F 02 B4 00 14 62 B6 30 5F 42 14 2E
  532.             28 4C 11 19 03 16 02 12 06 16 02 03 29 0F 02 1A 65
  533.            )
  534.       *TOPLEVEL-ENVIRONMENT* *STEP-LEVEL* *STEP-QUIT* *STEP-WATCH*
  535.       #.MOST-POSITIVE-FIXNUM #(CONTINUE UNWIND) *DEBUG-IO* *STANDARD-INPUT*
  536.       *STANDARD-OUTPUT* PROMPT-STRING1 "Step " PROMPT-STRING2 PROMPT-STRING3
  537.       11. FRAME-LIMIT1 *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2* 4.
  538.       *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME* "step " "Step "
  539.       "Step " LANGUAGE " --> " 3. STEPPER
  540.       #Y(STEP-HOOK-FN-1
  541.          #31Y(00 00 00 00 00 01 C5 4F 0B 6A 03 29 14 D9 6C 04 02 2F 05 50 14 AA
  542.               23 06 03 00 19 02 4D 01 01
  543.              )
  544.          NIL NIL DEBUG *DEBUG-FRAME*
  545.          #Y(STEP-HOOK-FN-1-1
  546.             #45Y(00 00 00 00 00 01 68 00 01 2D 02 14 70 A2 6A 03 87 04 10 00 14
  547.                  2D 06 14 70 A2 72 03 24 89 07 0A 00 19 01 2D 05 14 30 A2 1A 6A
  548.                  4D 01 00
  549.                 )
  550.             NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS4
  551.             READ-EVAL-PRINT
  552.            )
  553.          SAME-ENV-AS UNWIND
  554.         )
  555.       "condition when to stop: " "Abbruchbedingung: " "condition d'arrêt : "
  556.       READ-FORM FUNCTION LAMBDA EVAL-AT
  557.       #S(HASH-TABLE EQ (CONTINUE . 52.) (OVER-THIS-LEVEL . 27.) (OVER . 1.)
  558.          (INTO . 16.)
  559.         )
  560.       STEP-HOOK-FN STEP-VALUES 0.
  561.   )  )
  562. #Y(#:TOP-LEVEL-FORM-60
  563.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  564.    (SPECIAL *ERROR-HANDLER*) *ERROR-HANDLER*
  565.   )
  566. #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  567.    CERROR REMOVE-OLD-DEFINITIONS
  568.    #Y(CERROR
  569.       #90Y(00 02 00 00 01 18 0E 00 1B 2C 6A 01 30 8F DA 6A 01 37 02 30 8D 6A 01
  570.            30 8F 98 03 6A 01 AE 9F 36 02 6A 04 30 8F 6A 04 87 05 15 98 03 6A 04
  571.            A0 14 9F 36 02 00 19 04 14 91 04 01 02 14 9F 1A 70 DE DF E0 6D 03 09
  572.            6A 04 37 02 30 8D 98 03 6A 04 AF 9F 36 02 6A 0A 63 35 01 1A 59
  573.           )
  574.       *ERROR-HANDLER* *ERROR-OUTPUT* "** - Continuable Error" FORMAT *DEBUG-IO*
  575.       INTERACTIVE-STREAM-P "If you continue (by typing 'continue'): "
  576.       "Wenn Sie (mit Continue) fortfahren: "
  577.       "Si vous continuez (en tapant «continue»): " LANGUAGE *BREAK-DRIVER*
  578.   )  )
  579. #Y(#:TOP-LEVEL-FORM-62
  580.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  581.    (SPECIAL *BREAK-ON-WARNINGS*) *BREAK-ON-WARNINGS*
  582.   )
  583. #Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  584.    WARN REMOVE-OLD-DEFINITIONS
  585.    #Y(WARN
  586.       #46Y(00 01 00 00 01 17 6A 00 30 8F D9 DA DB 6D 03 04 6A 00 37 02 30 8D 6A
  587.            00 30 8F 98 05 6A 00 AE 9F 36 02 0E 06 1C 05 6A 07 63 35 01 00 19 03
  588.           )
  589.       *ERROR-OUTPUT* "WARNING:" "WARNUNG:" "AVERTISSEMENT :" LANGUAGE FORMAT
  590.       *BREAK-ON-WARNINGS* *BREAK-DRIVER*
  591.   )  )
  592. #Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  593.    BREAK REMOVE-OLD-DEFINITIONS
  594.    #Y(BREAK
  595.       #31Y(00 00 00 01 01 00 3A 02 02 C3 F8 6A 01 30 8F 98 02 6A 01 AE 9F 36 02
  596.            6A 03 63 35 01 00 19 03
  597.           )
  598.       "*** - Break" *ERROR-OUTPUT* FORMAT *BREAK-DRIVER*
  599.   )  )
  600. #Y(#:TOP-LEVEL-FORM-65
  601.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) BATCHMODE-ERRORS
  602.    REMOVE-OLD-DEFINITIONS MACRO
  603.    #Y(BATCHMODE-ERRORS #17Y(00 01 00 01 00 08 94 02 D8 D9 DA 9E 79 60 03 19 04)
  604.       LET ((*ERROR-HANDLER* #'BATCHMODE-ERROR-HANDLER)) PROGN
  605.   )  )
  606. #Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  607.    BATCHMODE-ERROR-HANDLER REMOVE-OLD-DEFINITIONS
  608.    #Y(BATCHMODE-ERROR-HANDLER
  609.       #53Y(00 02 00 00 01 18 91 03 18 6A 03 30 8F DC 6A 03 37 02 30 8D 98 01 6A
  610.            03 AE 9F 36 02 63 2E 05 19 04 D8 98 01 62 AF A0 76 02 98 01 62 B1 A1
  611.            76 02 2C 03 02 19 04
  612.           )
  613.       "~A~%~A" FORMAT WARN *ERROR-OUTPUT* "*** - " EXIT
  614.   )  )
  615. #Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  616.    Y-OR-N-P REMOVE-OLD-DEFINITIONS
  617.    #Y(Y-OR-N-P
  618.       #85Y(00 00 00 01 01 00 3A 02 25 7C 02 92 02 23 6A 00 30 90 98 01 6A 00 AE
  619.            9F 36 02 DA DB C7 1A 2A AA E0 70 34 30 2C 25 09 18 00 19 04 02 19 04
  620.            91 02 5D DE 6A 00 37 03 70 7B 6F 07 AA 71 48 8D 93 5F 16 01 6A 00 30
  621.            8F E2 E3 CF 14 6D 03 05 6A 00 37 02 30 8D 1A 5C
  622.           )
  623.       *QUERY-IO* FORMAT " (y/n) " " (j/n) " " (o/n) " LANGUAGE " "
  624.       STRING-LEFT-TRIM 0.
  625.       #S(HASH-TABLE EQ (#\O . 4.) (#\Y . 4.) (#\J . 4.) (#\N . 1.))
  626.       "Please answer with y or n : " "Bitte mit j oder n antworten: "
  627.       "Répondez par o ou n : "
  628.   )  )
  629. #Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  630.    YES-OR-NO-P REMOVE-OLD-DEFINITIONS
  631.    #Y(YES-OR-NO-P
  632.       #81Y(00 00 00 01 01 00 3A 02 16 7C 02 92 02 14 6A 00 30 90 98 01 6A 00 AE
  633.            9F 36 02 DA DB C7 1A 23 91 02 6C 6A 00 30 81 DE 6A 00 37 03 70 7B 6F
  634.            07 AA E0 E1 37 02 70 BE 91 00 15 16 02 6A 00 30 8F E2 E3 CF 14 6D 03
  635.            05 6A 00 37 02 30 8D 1A 54 5B 19 05
  636.           )
  637.       *QUERY-IO* FORMAT " (yes/no) " " (ja/nein) " " (oui/non) " LANGUAGE " "
  638.       STRING-TRIM (("ja" . T) ("nein") ("yes" . T) ("no") ("oui" . T) ("non"))
  639.       #.#'STRING-EQUAL "Please answer with yes or no : "
  640.       "Bitte mit ja oder nein antworten: " "Répondez par oui ou non : "
  641.   )  )
  642. #Y(#:TOP-LEVEL-FORM-69 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
  643.    (SPECIAL *KEYBOARD-INPUT*) *KEYBOARD-INPUT*
  644.   )
  645. #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  646.    DO-WITH-KEYBOARD REMOVE-OLD-DEFINITIONS
  647.    #Y(DO-WITH-KEYBOARD
  648.       #25Y(00 01 00 00 00 02 52 09 6A 00 63 2F 01 AD 35 00 53 6A 00 62 2F 01 54
  649.            19 02
  650.           )
  651.       *TERMINAL-IO* TERMINAL-RAW
  652.   )  )
  653. #Y(#:TOP-LEVEL-FORM-71
  654.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-KEYBOARD
  655.    REMOVE-OLD-DEFINITIONS MACRO
  656.    #Y(WITH-KEYBOARD
  657.       #21Y(00 01 00 01 00 08 94 02 D8 D9 DA 62 9F 7B 02 7A 02 60 02 19 04)
  658.       DO-WITH-KEYBOARD FUNCTION LAMBDA
  659.   )  )
  660.