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