home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
user1.fas
< prev
next >
Wrap
Text File
|
1996-08-07
|
31KB
|
660 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(EVAL-ENV WITH-KEYBOARD *KEYBOARD-INPUT*)
)
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4
#18Y(00 00 00 00 00 01 D8 30 5D D9 DA 70 5E 30 55 C4 19 01)
(SPECIAL *TOPLEVEL-ENVIRONMENT*) *TOPLEVEL-ENVIRONMENT* (THE-ENVIRONMENT)
)
#Y(#:TOP-LEVEL-FORM-5
#20Y(00 00 00 00 00 01 D8 30 5D D9 6A 02 C6 5E 14 30 55 C4 19 01)
(SPECIAL *TOPLEVEL-DENV*) *TOPLEVEL-DENV* *TOPLEVEL-ENVIRONMENT* 4.
)
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EVAL-ENV REMOVE-OLD-DEFINITIONS
#Y(EVAL-ENV
#20Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 AC 01 02 AE 30 5F 19 03)
*TOPLEVEL-ENVIRONMENT*
) )
#Y(#:TOP-LEVEL-FORM-7
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
(SPECIAL *BREAK-COUNT*) *BREAK-COUNT* 0.
)
#Y(#:TOP-LEVEL-FORM-8
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
(SPECIAL *RECURSE-COUNT-ERROR-OUTPUT*) *RECURSE-COUNT-ERROR-OUTPUT* 0.
)
#Y(#:TOP-LEVEL-FORM-9
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *PROMPT-WITH-PACKAGE*) *PROMPT-WITH-PACKAGE*
)
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROMPT-STRING-PACKAGE REMOVE-OLD-DEFINITIONS
#Y(PROMPT-STRING-PACKAGE
#48Y(00 00 00 00 00 01 6A 00 8E 21 05 6A 00 8B D0 13 DE DF E0 2C 03 09 19
01 DB 6A 00 70 D0 DC 32 03 13 19 01 0E 01 1B 71 DA 6A 00 8C D8 6B C8
19 01
)
*PACKAGE* *PROMPT-WITH-PACKAGE* "T" "[" "]" "" "[*package* invalid]"
"[*package* ungültig]" "[*package* invalide]" LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROMPT-STRING1 REMOVE-OLD-DEFINITIONS
#Y(PROMPT-STRING1 #9Y(00 00 00 00 00 01 C3 19 01) "")
)
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROMPT-STRING2 REMOVE-OLD-DEFINITIONS
#Y(PROMPT-STRING2 #10Y(00 00 00 00 00 01 2D 00 19 01) PROMPT-STRING-PACKAGE)
)
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PROMPT-STRING3 REMOVE-OLD-DEFINITIONS
#Y(PROMPT-STRING3 #9Y(00 00 00 00 00 01 C3 19 01) "> ")
)
#Y(#:TOP-LEVEL-FORM-14
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *KEY-BINDINGS*) *KEY-BINDINGS*
)
#Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
HELP REMOVE-OLD-DEFINITIONS
#Y(HELP
#35Y(00 00 00 00 00 01 D8 6A 01 37 05 71 51 71 49 62 1A 0A 86 01 00 14 37
03 30 8D 82 01 AB 8C 96 72 00 19 03
)
#.#'STRINGP *KEY-BINDINGS*
) )
#Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *DEBUG-FRAME*) *DEBUG-FRAME*
)
#Y(#:TOP-LEVEL-FORM-17 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *DEBUG-MODE*) *DEBUG-MODE*
)
#Y(#:TOP-LEVEL-FORM-18
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *FRAME-LIMIT1*) *FRAME-LIMIT1*
)
#Y(#:TOP-LEVEL-FORM-19
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *FRAME-LIMIT2*) *FRAME-LIMIT2*
)
#Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FRAME-LIMIT1 REMOVE-OLD-DEFINITIONS
#Y(FRAME-LIMIT1
#38Y(00 01 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-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-32 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-33 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DEBUG-BACKTRACE REMOVE-OLD-DEFINITIONS
#Y(DEBUG-BACKTRACE
#38Y(00 00 00 01 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-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-38 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-39 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-40 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-41 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-42 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-43 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-44 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-45 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 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-46 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 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-47 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 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-48 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-49 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAIN-LOOP REMOVE-OLD-DEFINITIONS
#Y(MAIN-LOOP #12Y(00 00 00 00 00 01 C3 0F 01 DA 30 58) 0. *BREAK-COUNT*
#Y(MAIN-LOOP-1
#39Y(00 00 00 00 00 01 C3 4F 1C 2D 01 14 2D 02 14 2D 03 14 72 03 13 2D
04 14 70 A2 89 05 04 00 50 19 01 2D 06 1A 79 19 01
)
DEBUG PROMPT-STRING1 PROMPT-STRING2 PROMPT-STRING3 COMMANDS0
READ-EVAL-PRINT EXIT
) ) )
#Y(#:TOP-LEVEL-FORM-50 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01) MAIN-LOOP
*DRIVER*
)
#Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BREAK-LOOP REMOVE-OLD-DEFINITIONS
#Y(BREAK-LOOP
#514Y(00 01 00 02 00 0D 00 2A 03 7E 04 00 00 3C 03 3A 02 80 E3 7C 02 06
00 00 1C 80 E0 1A 80 E4 E4 6A 06 37 02 30 8D 6A 06 30 8F 1A 81 1F
CE 0F 0E E7 E8 E9 6D 03 12 6A 06 37 02 30 8D 1A 81 20 6A 02 30 8F
ED EE EF 6D 03 12 6A 02 37 02 30 8D 92 04 81 33 1A 81 20 6A 02 30
8F 92 00 0C F0 F1 F2 6D 03 12 6A 02 37 02 30 8D 67 01 01 6A 02 30
88 92 04 81 12 1A 80 FF F4 F5 03 1E 1A 12 92 01 19 6A 02 30 8F 06
02 01 1B 6E 64 1F 64 20 03 21 14 6D 03 12 6A 02 37 02 30 8D E3 AB
62 1A 80 44 86 01 00 64 22 84 03 14 71 91 72 02 13 64 23 AB 64 24
AE 70 8B 72 04 13 92 06 07 AA 6A 02 37 02 30 8D AA 06 08 02 5C 0B
07 02 AB A3 2A 01 7E 04 00 00 AA 2B 25 01 16 01 79 06 08 02 5C 0B
07 02 16 02 82 01 AB 8C 96 FF B7 16 02 67 03 02 31 4A 0B 03 02 16
02 1A 80 8F 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 80 61 AE DC 37 02 71 2C 8A 05 80 57 DE DF 2F
08 6A 09 31 97 10 09 6A 09 E2 90 01 30 0D CE 0F 09 6A 06 37 01 31
7D DE DF 2F 08 6A 06 30 8F 11 06 01 01 1B FE DA E5 6A 06 37 02 30
8D 6A 0E 31 97 10 0E 6A 0E E2 8F 01 30 FE D3 B1 6A 06 2F 13 11 DA
EC 2F 08 06 01 01 1C 0A 06 01 00 1C FE E7 91 00 FE CC 92 04 10 67
01 01 AF 6E 1B 37 07 71 4F 91 00 FE F9 16 01 4A 26 80 74 80 74 A1
2A 01 6A 27 31 97 10 27 DA 71 6C 9B 10 28 9E 10 29 37 01 71 76 52
2B 2D 2A 14 AD 37 02 30 8D 6A 27 37 0C B9 30 84 64 2B AD 37 02 30
8D 2D 2C 14 AD 37 02 30 8D 2D 2D 14 AD 37 02 30 8D AC 31 77 3E 53
66 00 00 37 01 31 7D 54 16 01 0B 0A 00 64 2E 2E 2F 10 30 2D 31 10
32 03 33 10 34 6A 30 6A 34 6F 35 6A 34 2F 36 10 37 C0 65 1A 6C 38
02 30 58 30 59 4B 19 06
)
CONTINUE FIND-RESTART *DEBUG-IO* INTERACTIVE-STREAM-P CONDITION TYPEP
*ERROR-OUTPUT* :OUTPUT SYMBOL-STREAM *RECURSE-COUNT-ERROR-OUTPUT* 3. 0.
"** - Continuable Error" "*** - " *RECURSIVE-ERROR-COUNT*
"Unprintable error message" "Unausgebbare Fehlermeldung"
"Message inimprimable" LANGUAGE PRINT-CONDITION :IO
"You can continue (by typing 'continue')."
"Sie können (mit Continue) fortfahren."
"Vous pouvez continuer (tapez «continue» pour cela)."
"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:" "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*
PROMPT-STRING1 ". Break" PROMPT-STRING2 PROMPT-STRING3 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 A2 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 A2 1A 65 2D 05 14 30 A2 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-52 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01) BREAK-LOOP
*BREAK-DRIVER*
)
#Y(#:TOP-LEVEL-FORM-53
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
(SPECIAL *STEP-LEVEL*) *STEP-LEVEL* 0.
)
#Y(#:TOP-LEVEL-FORM-54
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 C4 19 01)
(SPECIAL *STEP-QUIT*) *STEP-QUIT* #.MOST-POSITIVE-FIXNUM
)
#Y(#:TOP-LEVEL-FORM-55
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *STEP-WATCH*) *STEP-WATCH*
)
#Y(#:TOP-LEVEL-FORM-56
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) STEP
REMOVE-OLD-DEFINITIONS MACRO
#Y(STEP
#29Y(00 01 00 01 00 08 AC 71 48 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-57 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 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-58 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STEP-VALUES REMOVE-OLD-DEFINITIONS
#Y(STEP-VALUES
#126Y(00 01 00 00 00 02 0E 00 10 01 37 01 30 8F DA DB DC 6D 03 05 37 03
30 8D 6A 06 37 0D 30 84 DF 37 03 30 8D AE 71 48 AA 23 08 18 AA 23
0C 20 AF 71 48 37 0D 30 84 E8 E9 EA 6D 03 05 37 03 30 8D AF 1A 2F
E1 E2 E3 6D 03 05 37 03 30 8D 1A 29 E5 E6 E7 6D 03 05 37 03 30 8D
93 05 37 0D 30 84 1A 17 93 00 82 01 37 0D 30 84 AA 8B 96 05 EB 37
03 30 8D AA 8C 96 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-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STEP-HOOK-FN REMOVE-OLD-DEFINITIONS
#Y(STEP-HOOK-FN
#303Y(00 01 00 01 00 08 3A 01 03 0E 00 F7 6A 01 31 97 10 01 6A 01 6A 02
90 01 32 0E 0E 03 1C 80 A2 14 35 00 1C 80 9C C7 0F 02 4A 05 80 FD
80 CF 00 2A 01 DE 71 6C 9B 10 07 9E 10 08 37 01 71 76 52 2A 2D 09
14 AD 37 02 30 8D E2 AD 37 02 30 8D 6A 01 37 0C B9 30 84 2D 0B 14
AD 37 02 30 8D 2D 0C 14 AD 37 02 30 8D AC 31 77 3E 53 66 00 00 37
01 31 7D 54 16 01 0B 07 00 E5 2E 0E 10 0F 2D 10 10 11 D5 10 13 6A
0F 6A 13 6F 14 6A 13 2F 15 10 16 37 01 30 90 EF F0 F1 6D 03 1A 37
03 30 8D 6A 01 37 0D 30 84 F3 37 03 30 8D 65 1E 37 0D D5 09 0A 03
1C 09 0B 30 84 03 1D 4F 11 C0 65 1A 6C 1E 02 30 58 AF 01 02 B1 30
5F 1A 80 56 41 02 92 00 1D 64 1F 64 20 64 21 6D 03 1A 6E 22 6A 16
64 23 64 24 62 AE 7A 03 7A 02 2F 25 0F 03 16 01 9C 25 26 08 16 02
12 06 16 02 1A 1C 16 02 1A FF B8 30 59 16 02 12 06 16 02 B4 97 27
1A 0C 16 02 12 06 16 02 0E 01 0F 02 B4 00 14 62 B6 30 5F 42 14 2E
28 4C 11 19 03 16 02 12 06 16 02 03 29 0F 02 1A 65
)
*TOPLEVEL-ENVIRONMENT* *STEP-LEVEL* *STEP-QUIT* *STEP-WATCH*
#.MOST-POSITIVE-FIXNUM #(CONTINUE UNWIND) *DEBUG-IO* *STANDARD-INPUT*
*STANDARD-OUTPUT* PROMPT-STRING1 "Step " PROMPT-STRING2 PROMPT-STRING3
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 A2 6A 03 87 04 10 00 14
2D 06 14 70 A2 72 03 24 89 07 0A 00 19 01 2D 05 14 30 A2 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-60
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *ERROR-HANDLER*) *ERROR-HANDLER*
)
#Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CERROR REMOVE-OLD-DEFINITIONS
#Y(CERROR
#90Y(00 02 00 00 01 18 0E 00 1B 2C 6A 01 30 8F DA 6A 01 37 02 30 8D 6A 01
30 8F 98 03 6A 01 AE 9F 36 02 6A 04 30 8F 6A 04 87 05 15 98 03 6A 04
A0 14 9F 36 02 00 19 04 14 91 04 01 02 14 9F 1A 70 DE DF E0 6D 03 09
6A 04 37 02 30 8D 98 03 6A 04 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-62
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL *BREAK-ON-WARNINGS*) *BREAK-ON-WARNINGS*
)
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
WARN REMOVE-OLD-DEFINITIONS
#Y(WARN
#46Y(00 01 00 00 01 17 6A 00 30 8F D9 DA DB 6D 03 04 6A 00 37 02 30 8D 6A
00 30 8F 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-64 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BREAK REMOVE-OLD-DEFINITIONS
#Y(BREAK
#31Y(00 00 00 01 01 00 3A 02 02 C3 F8 6A 01 30 8F 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-65
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) BATCHMODE-ERRORS
REMOVE-OLD-DEFINITIONS MACRO
#Y(BATCHMODE-ERRORS #17Y(00 01 00 01 00 08 94 02 D8 D9 DA 9E 79 60 03 19 04)
LET ((*ERROR-HANDLER* #'BATCHMODE-ERROR-HANDLER)) PROGN
) )
#Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BATCHMODE-ERROR-HANDLER REMOVE-OLD-DEFINITIONS
#Y(BATCHMODE-ERROR-HANDLER
#53Y(00 02 00 00 01 18 91 03 18 6A 03 30 8F DC 6A 03 37 02 30 8D 98 01 6A
03 AE 9F 36 02 63 2E 05 19 04 D8 98 01 62 AF A0 76 02 98 01 62 B1 A1
76 02 2C 03 02 19 04
)
"~A~%~A" FORMAT WARN *ERROR-OUTPUT* "*** - " EXIT
) )
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
Y-OR-N-P REMOVE-OLD-DEFINITIONS
#Y(Y-OR-N-P
#85Y(00 00 00 01 01 00 3A 02 25 7C 02 92 02 23 6A 00 30 90 98 01 6A 00 AE
9F 36 02 DA DB C7 1A 2A AA E0 70 34 30 2C 25 09 18 00 19 04 02 19 04
91 02 5D DE 6A 00 37 03 70 7B 6F 07 AA 71 48 8D 93 5F 16 01 6A 00 30
8F E2 E3 CF 14 6D 03 05 6A 00 37 02 30 8D 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-68 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
YES-OR-NO-P REMOVE-OLD-DEFINITIONS
#Y(YES-OR-NO-P
#81Y(00 00 00 01 01 00 3A 02 16 7C 02 92 02 14 6A 00 30 90 98 01 6A 00 AE
9F 36 02 DA DB C7 1A 23 91 02 6C 6A 00 30 81 DE 6A 00 37 03 70 7B 6F
07 AA E0 E1 37 02 70 BE 91 00 15 16 02 6A 00 30 8F E2 E3 CF 14 6D 03
05 6A 00 37 02 30 8D 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-69 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL *KEYBOARD-INPUT*) *KEYBOARD-INPUT*
)
#Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DO-WITH-KEYBOARD REMOVE-OLD-DEFINITIONS
#Y(DO-WITH-KEYBOARD
#25Y(00 01 00 00 00 02 52 09 6A 00 63 2F 01 AD 35 00 53 6A 00 62 2F 01 54
19 02
)
*TERMINAL-IO* TERMINAL-RAW
) )
#Y(#:TOP-LEVEL-FORM-71
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-KEYBOARD
REMOVE-OLD-DEFINITIONS MACRO
#Y(WITH-KEYBOARD
#21Y(00 01 00 01 00 08 94 02 D8 D9 DA 62 9F 7B 02 7A 02 60 02 19 04)
DO-WITH-KEYBOARD FUNCTION LAMBDA
) )