/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / debug.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 34 31 3a 31 | 30 20 31 39 39 33 0a 3b | 22:41:1|0 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 64 65 62 | 75 67 2e 65 6c 0a 3b 3b |lisp/deb|ug.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 31 35 2e 31 36 | 2e 0a 3b 3b 3b 20 62 79 |19.15.16|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001c0| 64 65 66 76 61 72 20 64 | 65 62 75 67 2d 66 75 6e |defvar d|ebug-fun|
|000001d0| 63 74 69 6f 6e 2d 6c 69 | 73 74 20 6e 69 6c 20 22 |ction-li|st nil "|
|000001e0| 5c 0a 4c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 |\.List o|f functi|
|000001f0| 6f 6e 73 20 63 75 72 72 | 65 6e 74 6c 79 20 73 65 |ons curr|ently se|
|00000200| 74 20 66 6f 72 20 64 65 | 62 75 67 20 6f 6e 20 65 |t for de|bug on e|
|00000210| 6e 74 72 79 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ntry.").|(byte-co|
|00000220| 64 65 20 22 c0 11 c0 87 | 22 20 5b 64 65 62 75 67 |de "....|" [debug|
|00000230| 20 64 65 62 75 67 67 65 | 72 5d 20 31 29 0a 28 64 | debugge|r] 1).(d|
|00000240| 65 66 61 6c 69 61 73 20 | 27 64 65 62 75 67 20 23 |efalias |'debug #|
|00000250| 5b 28 26 72 65 73 74 20 | 64 65 62 75 67 67 65 72 |[(&rest |debugger|
|00000260| 2d 61 72 67 73 29 20 22 | c0 c1 21 88 c2 c3 20 c2 |-args) "|..!... .|
|00000270| 89 c4 1d c6 c7 21 29 70 | c2 89 89 1e 08 1e 09 1e |.....!)p|........|
|00000280| 5c 6e 1e 0b 1e 0c 1e 0d | 1e 0e 1e 0f 1e 10 d1 8e |\n......|........|
|00000290| 8a d2 8b 88 2a 0e 5c 6e | 16 13 0e 10 2e 09 87 22 |....*.\n|......."|
|000002a0| 20 5b 6d 65 73 73 61 67 | 65 20 22 45 6e 74 65 72 | [messag|e "Enter|
|000002b0| 69 6e 67 20 64 65 62 75 | 67 67 65 72 2e 2e 2e 22 |ing debu|gger..."|
|000002c0| 20 6e 69 6c 20 6d 61 74 | 63 68 2d 64 61 74 61 20 | nil mat|ch-data |
|000002d0| 66 75 6e 64 61 6d 65 6e | 74 61 6c 2d 6d 6f 64 65 |fundamen|tal-mode|
|000002e0| 20 64 65 66 61 75 6c 74 | 2d 6d 61 6a 6f 72 2d 6d | default|-major-m|
|000002f0| 6f 64 65 20 67 65 6e 65 | 72 61 74 65 2d 6e 65 77 |ode gene|rate-new|
|00000300| 2d 62 75 66 66 65 72 20 | 22 2a 42 61 63 6b 74 72 |-buffer |"*Backtr|
|00000310| 61 63 65 2a 22 20 63 75 | 72 73 6f 72 2d 69 6e 2d |ace*" cu|rsor-in-|
|00000320| 65 63 68 6f 2d 61 72 65 | 61 20 65 78 65 63 75 74 |echo-are|a execut|
|00000330| 69 6e 67 2d 6d 61 63 72 | 6f 20 64 65 62 75 67 67 |ing-macr|o debugg|
|00000340| 65 72 2d 73 74 65 70 2d | 61 66 74 65 72 2d 65 78 |er-step-|after-ex|
|00000350| 69 74 20 64 65 62 75 67 | 67 65 72 2d 6f 6c 64 2d |it debug|ger-old-|
|00000360| 62 75 66 66 65 72 20 64 | 65 62 75 67 67 65 72 2d |buffer d|ebugger-|
|00000370| 62 75 66 66 65 72 20 64 | 65 62 75 67 2d 6f 6e 2d |buffer d|ebug-on-|
|00000380| 71 75 69 74 20 64 65 62 | 75 67 2d 6f 6e 2d 65 72 |quit deb|ug-on-er|
|00000390| 72 6f 72 20 64 65 62 75 | 67 67 65 72 2d 6d 61 74 |ror debu|gger-mat|
|000003a0| 63 68 2d 64 61 74 61 20 | 64 65 62 75 67 67 65 72 |ch-data |debugger|
|000003b0| 2d 76 61 6c 75 65 20 28 | 28 62 79 74 65 2d 63 6f |-value (|(byte-co|
|000003c0| 64 65 20 22 c0 09 21 88 | c2 0b 21 87 22 20 5b 6b |de "..!.|..!." [k|
|000003d0| 69 6c 6c 2d 62 75 66 66 | 65 72 20 64 65 62 75 67 |ill-buff|er debug|
|000003e0| 67 65 72 2d 62 75 66 66 | 65 72 20 73 74 6f 72 65 |ger-buff|er store|
|000003f0| 2d 6d 61 74 63 68 2d 64 | 61 74 61 20 64 65 62 75 |-match-d|ata debu|
|00000400| 67 67 65 72 2d 6d 61 74 | 63 68 2d 64 61 74 61 5d |gger-mat|ch-data]|
|00000410| 20 32 29 29 20 28 28 62 | 79 74 65 2d 63 6f 64 65 | 2)) ((b|yte-code|
|00000420| 20 22 c0 09 21 88 c2 20 | 88 70 c3 c4 1d 1e 06 1e | "..!.. |.p......|
|00000430| 07 c8 20 88 2b 65 62 88 | c9 20 88 60 ca cb 21 88 |.. .+eb.|. .`..!.|
|00000440| cc 79 88 60 7c 88 cd 20 | 88 0e 0e 40 cf 3e 83 4c |.y.`|.. |...@.>.L|
|00000450| 00 d0 63 88 0e 0e 40 d1 | 3d 83 b1 00 d2 d3 c3 5c |..c...@.|=......\|
|00000460| 22 88 d4 cc 21 88 d5 63 | 88 d6 79 88 82 b1 00 0e |"...!..c|..y.....|
|00000470| 0e 40 d7 3d 83 73 00 d8 | 63 88 0e 0e 41 40 16 19 |.@.=.s..|c...A@..|
|00000480| da 0e 19 70 5c 22 88 db | 63 88 d4 cc 21 88 dc 63 |...p\"..|c...!..c|
|00000490| 88 d6 79 88 82 b1 00 0e | 0e 40 dd 3d 83 8c 00 de |..y.....|.@.=....|
|000004a0| 63 88 da 0e 0e 41 40 70 | 5c 22 88 db 63 88 82 b1 |c....A@p|\"..c...|
|000004b0| 00 0e 0e 40 c3 3d 83 9a | 00 df 63 88 82 b1 00 da |...@.=..|..c.....|
|000004c0| 0e 0e 40 e0 3d 83 a9 00 | 0e 0e 41 82 ab 00 0e 0e |..@.=...|..A.....|
|000004d0| 70 5c 22 88 db 63 88 e1 | e2 21 88 c3 e0 c3 1e 23 |p\"..c..|.!.....#|
|000004e0| 1e 07 1e 24 e1 e2 21 88 | e5 20 88 2b e0 87 22 20 |...$..!.|. .+.." |
|000004f0| 5b 70 6f 70 2d 74 6f 2d | 62 75 66 66 65 72 20 64 |[pop-to-|buffer d|
|00000500| 65 62 75 67 67 65 72 2d | 62 75 66 66 65 72 20 65 |ebugger-|buffer e|
|00000510| 72 61 73 65 2d 62 75 66 | 66 65 72 20 74 20 35 30 |rase-buf|fer t 50|
|00000520| 20 70 72 69 6e 74 2d 6c | 65 6e 67 74 68 20 70 72 | print-l|ength pr|
|00000530| 69 6e 74 2d 65 73 63 61 | 70 65 2d 6e 65 77 6c 69 |int-esca|pe-newli|
|00000540| 6e 65 73 20 73 74 61 6e | 64 61 72 64 2d 6f 75 74 |nes stan|dard-out|
|00000550| 70 75 74 20 62 61 63 6b | 74 72 61 63 65 20 64 65 |put back|trace de|
|00000560| 62 75 67 67 65 72 2d 6d | 6f 64 65 20 73 65 61 72 |bugger-m|ode sear|
|00000570| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 6e 20 20 |ch-forwa|rd "\n  |
|00000580| 64 65 62 75 67 28 22 20 | 31 20 64 65 62 75 67 67 |debug(" |1 debugg|
|00000590| 65 72 2d 72 65 65 6e 61 | 62 6c 65 20 64 65 62 75 |er-reena|ble debu|
|000005a0| 67 67 65 72 2d 61 72 67 | 73 20 28 6c 61 6d 62 64 |gger-arg|s (lambd|
|000005b0| 61 20 64 65 62 75 67 29 | 20 22 45 6e 74 65 72 69 |a debug)| "Enteri|
|000005c0| 6e 67 3a 5c 6e 22 20 64 | 65 62 75 67 20 62 61 63 |ng:\n" d|ebug bac|
|000005d0| 6b 74 72 61 63 65 2d 64 | 65 62 75 67 20 34 20 64 |ktrace-d|ebug 4 d|
|000005e0| 65 6c 65 74 65 2d 63 68 | 61 72 20 34 32 20 30 20 |elete-ch|ar 42 0 |
|000005f0| 65 78 69 74 20 22 52 65 | 74 75 72 6e 20 76 61 6c |exit "Re|turn val|
|00000600| 75 65 3a 20 22 20 64 65 | 62 75 67 67 65 72 2d 76 |ue: " de|bugger-v|
|00000610| 61 6c 75 65 20 70 72 69 | 6e 31 20 31 30 20 33 32 |alue pri|n1 10 32|
|00000620| 20 65 72 72 6f 72 20 22 | 53 69 67 6e 61 6c 6c 69 | error "|Signalli|
|00000630| 6e 67 3a 20 22 20 22 42 | 65 67 69 6e 6e 69 6e 67 |ng: " "B|eginning|
|00000640| 20 65 76 61 6c 75 61 74 | 69 6f 6e 20 6f 66 20 66 | evaluat|ion of f|
|00000650| 75 6e 63 74 69 6f 6e 20 | 63 61 6c 6c 20 66 6f 72 |unction |call for|
|00000660| 6d 3a 5c 6e 22 20 6e 69 | 6c 20 6d 65 73 73 61 67 |m:\n" ni|l messag|
|00000670| 65 20 22 22 20 62 75 66 | 66 65 72 2d 72 65 61 64 |e "" buf|fer-read|
|00000680| 2d 6f 6e 6c 79 20 69 6e | 68 69 62 69 74 2d 74 72 |-only in|hibit-tr|
|00000690| 61 63 65 20 72 65 63 75 | 72 73 69 76 65 2d 65 64 |ace recu|rsive-ed|
|000006a0| 69 74 5d 20 33 29 29 20 | 64 65 62 75 67 2d 6f 6e |it] 3)) |debug-on|
|000006b0| 2d 6e 65 78 74 2d 63 61 | 6c 6c 5d 20 39 20 22 5c |-next-ca|ll] 9 "\|
|000006c0| 0a 45 6e 74 65 72 20 64 | 65 62 75 67 67 65 72 2e |.Enter d|ebugger.|
|000006d0| 20 20 52 65 74 75 72 6e | 73 20 69 66 20 75 73 65 |  Return|s if use|
|000006e0| 72 20 73 61 79 73 20 5c | 22 63 6f 6e 74 69 6e 75 |r says \|"continu|
|000006f0| 65 5c 22 2e 0a 41 72 67 | 75 6d 65 6e 74 73 20 61 |e\"..Arg|uments a|
|00000700| 72 65 20 6d 61 69 6e 6c | 79 20 66 6f 72 20 75 73 |re mainl|y for us|
|00000710| 65 20 77 68 65 6e 20 74 | 68 69 73 20 69 73 20 63 |e when t|his is c|
|00000720| 61 6c 6c 65 64 20 66 72 | 6f 6d 20 74 68 65 20 69 |alled fr|om the i|
|00000730| 6e 74 65 72 6e 61 6c 73 | 0a 6f 66 20 74 68 65 20 |nternals|.of the |
|00000740| 65 76 61 6c 75 61 74 6f | 72 2e 0a 0a 59 6f 75 20 |evaluato|r...You |
|00000750| 6d 61 79 20 63 61 6c 6c | 20 77 69 74 68 20 6e 6f |may call| with no|
|00000760| 20 61 72 67 73 2c 20 6f | 72 20 79 6f 75 20 6d 61 | args, o|r you ma|
|00000770| 79 20 70 61 73 73 20 6e | 69 6c 20 61 73 20 74 68 |y pass n|il as th|
|00000780| 65 20 66 69 72 73 74 20 | 61 72 67 20 61 6e 64 0a |e first |arg and.|
|00000790| 61 6e 79 20 6f 74 68 65 | 72 20 61 72 67 73 20 79 |any othe|r args y|
|000007a0| 6f 75 20 6c 69 6b 65 2e | 20 20 49 6e 20 74 68 61 |ou like.|  In tha|
|000007b0| 74 20 63 61 73 65 2c 20 | 74 68 65 20 6c 69 73 74 |t case, |the list|
|000007c0| 20 6f 66 20 61 72 67 73 | 20 61 66 74 65 72 20 74 | of args| after t|
|000007d0| 68 65 0a 66 69 72 73 74 | 20 77 69 6c 6c 20 62 65 |he.first| will be|
|000007e0| 20 70 72 69 6e 74 65 64 | 20 69 6e 74 6f 20 74 68 | printed| into th|
|000007f0| 65 20 62 61 63 6b 74 72 | 61 63 65 20 62 75 66 66 |e backtr|ace buff|
|00000800| 65 72 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |er."]).(|defalias|
|00000810| 20 27 64 65 62 75 67 67 | 65 72 2d 73 74 65 70 2d | 'debugg|er-step-|
|00000820| 74 68 72 6f 75 67 68 20 | 23 5b 6e 69 6c 20 22 c0 |through |#[nil ".|
|00000830| 11 c2 c3 21 88 c4 20 87 | 22 20 5b 74 20 64 65 62 |...!.. .|" [t deb|
|00000840| 75 67 67 65 72 2d 73 74 | 65 70 2d 61 66 74 65 72 |ugger-st|ep-after|
|00000850| 2d 65 78 69 74 20 6d 65 | 73 73 61 67 65 20 22 50 |-exit me|ssage "P|
|00000860| 72 6f 63 65 65 64 69 6e | 67 2c 20 77 69 6c 6c 20 |roceedin|g, will |
|00000870| 64 65 62 75 67 20 6f 6e | 20 6e 65 78 74 20 65 76 |debug on| next ev|
|00000880| 61 6c 20 6f 72 20 63 61 | 6c 6c 2e 22 20 65 78 69 |al or ca|ll." exi|
|00000890| 74 2d 72 65 63 75 72 73 | 69 76 65 2d 65 64 69 74 |t-recurs|ive-edit|
|000008a0| 5d 20 32 20 22 5c 0a 50 | 72 6f 63 65 65 64 2c 20 |] 2 "\.P|roceed, |
|000008b0| 73 74 65 70 70 69 6e 67 | 20 74 68 72 6f 75 67 68 |stepping| through|
|000008c0| 20 73 75 62 65 78 70 72 | 65 73 73 69 6f 6e 73 20 | subexpr|essions |
|000008d0| 6f 66 20 74 68 69 73 20 | 65 78 70 72 65 73 73 69 |of this |expressi|
|000008e0| 6f 6e 2e 0a 45 6e 74 65 | 72 20 61 6e 6f 74 68 65 |on..Ente|r anothe|
|000008f0| 72 20 64 65 62 75 67 67 | 65 72 20 6f 6e 20 6e 65 |r debugg|er on ne|
|00000900| 78 74 20 65 6e 74 72 79 | 20 74 6f 20 65 76 61 6c |xt entry| to eval|
|00000910| 2c 20 61 70 70 6c 79 20 | 6f 72 20 66 75 6e 63 61 |, apply |or funca|
|00000920| 6c 6c 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |ll." nil|]).(defa|
|00000930| 6c 69 61 73 20 27 64 65 | 62 75 67 67 65 72 2d 63 |lias 'de|bugger-c|
|00000940| 6f 6e 74 69 6e 75 65 20 | 23 5b 6e 69 6c 20 22 c0 |ontinue |#[nil ".|
|00000950| c1 21 88 c2 20 87 22 20 | 5b 6d 65 73 73 61 67 65 |.!.. ." |[message|
|00000960| 20 22 43 6f 6e 74 69 6e | 75 69 6e 67 2e 22 20 65 | "Contin|uing." e|
|00000970| 78 69 74 2d 72 65 63 75 | 72 73 69 76 65 2d 65 64 |xit-recu|rsive-ed|
|00000980| 69 74 5d 20 32 20 22 5c | 0a 43 6f 6e 74 69 6e 75 |it] 2 "\|.Continu|
|00000990| 65 2c 20 65 76 61 6c 75 | 61 74 69 6e 67 20 74 68 |e, evalu|ating th|
|000009a0| 69 73 20 65 78 70 72 65 | 73 73 69 6f 6e 20 77 69 |is expre|ssion wi|
|000009b0| 74 68 6f 75 74 20 73 74 | 6f 70 70 69 6e 67 2e 22 |thout st|opping."|
|000009c0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000009d0| 20 27 64 65 62 75 67 67 | 65 72 2d 72 65 74 75 72 | 'debugg|er-retur|
|000009e0| 6e 2d 76 61 6c 75 65 20 | 23 5b 28 76 61 6c 29 20 |n-value |#[(val) |
|000009f0| 22 08 11 c2 c3 c4 5c 22 | 88 c5 09 21 88 c6 20 87 |".....\"|...!.. .|
|00000a00| 22 20 5b 76 61 6c 20 64 | 65 62 75 67 67 65 72 2d |" [val d|ebugger-|
|00000a10| 76 61 6c 75 65 20 70 72 | 69 6e 63 20 22 52 65 74 |value pr|inc "Ret|
|00000a20| 75 72 6e 69 6e 67 20 22 | 20 74 20 70 72 69 6e 31 |urning "| t prin1|
|00000a30| 20 65 78 69 74 2d 72 65 | 63 75 72 73 69 76 65 2d | exit-re|cursive-|
|00000a40| 65 64 69 74 5d 20 33 20 | 22 5c 0a 43 6f 6e 74 69 |edit] 3 |"\.Conti|
|00000a50| 6e 75 65 2c 20 73 70 65 | 63 69 66 79 69 6e 67 20 |nue, spe|cifying |
|00000a60| 76 61 6c 75 65 20 74 6f | 20 72 65 74 75 72 6e 2e |value to| return.|
|00000a70| 0a 54 68 69 73 20 69 73 | 20 6f 6e 6c 79 20 75 73 |.This is| only us|
|00000a80| 65 66 75 6c 20 77 68 65 | 6e 20 74 68 65 20 76 61 |eful whe|n the va|
|00000a90| 6c 75 65 20 72 65 74 75 | 72 6e 65 64 20 66 72 6f |lue retu|rned fro|
|00000aa0| 6d 20 74 68 65 20 64 65 | 62 75 67 67 65 72 0a 77 |m the de|bugger.w|
|00000ab0| 69 6c 6c 20 62 65 20 75 | 73 65 64 2c 20 73 75 63 |ill be u|sed, suc|
|00000ac0| 68 20 61 73 20 69 6e 20 | 61 20 64 65 62 75 67 20 |h as in |a debug |
|00000ad0| 6f 6e 20 65 78 69 74 20 | 66 72 6f 6d 20 61 20 66 |on exit |from a f|
|00000ae0| 72 61 6d 65 2e 22 20 22 | 58 52 65 74 75 72 6e 20 |rame." "|XReturn |
|00000af0| 76 61 6c 75 65 20 28 65 | 76 61 6c 75 61 74 65 64 |value (e|valuated|
|00000b00| 29 3a 20 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |): "]).(|defalias|
|00000b10| 20 27 64 65 62 75 67 67 | 65 72 2d 6a 75 6d 70 20 | 'debugg|er-jump |
|00000b20| 23 5b 6e 69 6c 20 22 08 | c1 5c 5c 18 c2 20 88 29 |#[nil ".|.\\.. .)|
|00000b30| 0b 89 1c 83 21 00 0c 40 | c5 0c 40 0c 40 4b c6 23 |....!..@|..@.@K.#|
|00000b40| 4d 88 0c 41 89 14 84 0e | 00 29 c7 c8 21 88 c9 20 |M..A....|.)..!.. |
|00000b50| 87 22 20 5b 64 65 62 75 | 67 67 65 72 2d 66 72 61 |." [debu|gger-fra|
|00000b60| 6d 65 2d 6f 66 66 73 65 | 74 20 32 20 64 65 62 75 |me-offse|t 2 debu|
|00000b70| 67 67 65 72 2d 66 72 61 | 6d 65 20 64 65 62 75 67 |gger-fra|me debug|
|00000b80| 2d 66 75 6e 63 74 69 6f | 6e 2d 6c 69 73 74 20 6c |-functio|n-list l|
|00000b90| 69 73 74 20 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |ist debu|g-on-ent|
|00000ba0| 72 79 2d 31 20 6e 69 6c | 20 6d 65 73 73 61 67 65 |ry-1 nil| message|
|00000bb0| 20 22 43 6f 6e 74 69 6e | 75 69 6e 67 20 74 68 72 | "Contin|uing thr|
|00000bc0| 6f 75 67 68 20 74 68 69 | 73 20 66 72 61 6d 65 22 |ough thi|s frame"|
|00000bd0| 20 65 78 69 74 2d 72 65 | 63 75 72 73 69 76 65 2d | exit-re|cursive-|
|00000be0| 65 64 69 74 5d 20 36 20 | 22 5c 0a 43 6f 6e 74 69 |edit] 6 |"\.Conti|
|00000bf0| 6e 75 65 20 74 6f 20 65 | 78 69 74 20 66 72 6f 6d |nue to e|xit from|
|00000c00| 20 74 68 69 73 20 66 72 | 61 6d 65 2c 20 77 69 74 | this fr|ame, wit|
|00000c10| 68 20 61 6c 6c 20 64 65 | 62 75 67 2d 6f 6e 2d 65 |h all de|bug-on-e|
|00000c20| 6e 74 72 79 20 73 75 73 | 70 65 6e 64 65 64 2e 22 |ntry sus|pended."|
|00000c30| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00000c40| 20 27 64 65 62 75 67 67 | 65 72 2d 72 65 65 6e 61 | 'debugg|er-reena|
|00000c50| 62 6c 65 20 23 5b 6e 69 | 6c 20 22 08 89 19 85 26 |ble #[ni|l "....&|
|00000c60| 00 09 40 4b 3a 84 12 00 | c2 09 40 21 88 09 40 c3 |..@K:...|..@!..@.|
|00000c70| 09 40 09 40 4b c4 23 4d | 88 09 41 89 11 84 06 00 |.@.@K.#M|..A.....|
|00000c80| c5 29 87 22 20 5b 64 65 | 62 75 67 2d 66 75 6e 63 |.)." [de|bug-func|
|00000c90| 74 69 6f 6e 2d 6c 69 73 | 74 20 6c 69 73 74 20 64 |tion-lis|t list d|
|00000ca0| 65 62 75 67 2d 63 6f 6e | 76 65 72 74 2d 62 79 74 |ebug-con|vert-byt|
|00000cb0| 65 2d 63 6f 64 65 20 64 | 65 62 75 67 2d 6f 6e 2d |e-code d|ebug-on-|
|00000cc0| 65 6e 74 72 79 2d 31 20 | 74 20 6e 69 6c 5d 20 36 |entry-1 |t nil] 6|
|00000cd0| 20 22 5c 0a 54 75 72 6e | 20 61 6c 6c 20 64 65 62 | "\.Turn| all deb|
|00000ce0| 75 67 2d 6f 6e 2d 65 6e | 74 72 79 20 66 75 6e 63 |ug-on-en|try func|
|00000cf0| 74 69 6f 6e 73 20 62 61 | 63 6b 20 6f 6e 2e 22 5d |tions ba|ck on."]|
|00000d00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 65 62 |).(defal|ias 'deb|
|00000d10| 75 67 67 65 72 2d 66 72 | 61 6d 65 2d 6e 75 6d 62 |ugger-fr|ame-numb|
|00000d20| 65 72 20 23 5b 6e 69 6c | 20 22 8a c0 79 88 60 c0 |er #[nil| "..y.`.|
|00000d30| 19 1a 65 62 88 60 60 c3 | 5c 5c 7b c4 9a 84 1f 00 |..eb.``.|\\{.....|
|00000d40| 60 60 c3 5c 5c 7b c5 9a | 83 27 00 c6 c7 21 88 c8 |``.\\{..|.'...!..|
|00000d50| c9 21 88 c9 79 88 ca 75 | 88 67 cb 55 83 3a 00 c8 |.!..y..u|.g.U.:..|
|00000d60| c9 21 88 82 3e 00 c8 ca | 21 88 c9 79 88 60 5c 6e |.!..>...|!..y.`\n|
|00000d70| 58 83 4d 00 09 54 11 82 | 2a 00 09 2b 87 22 20 5b |X.M..T..|*..+." [|
|00000d80| 30 20 63 6f 75 6e 74 20 | 6f 70 6f 69 6e 74 20 36 |0 count |opoint 6|
|00000d90| 20 22 53 69 67 6e 61 6c | 22 20 22 52 65 74 75 72 | "Signal|" "Retur|
|00000da0| 6e 22 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |n" searc|h-forwar|
|00000db0| 64 20 22 3a 22 20 66 6f | 72 77 61 72 64 2d 73 65 |d ":" fo|rward-se|
|00000dc0| 78 70 20 31 20 32 20 34 | 30 5d 20 33 20 22 5c 0a |xp 1 2 4|0] 3 "\.|
|00000dd0| 52 65 74 75 72 6e 20 6e | 75 6d 62 65 72 20 6f 66 |Return n|umber of|
|00000de0| 20 66 72 61 6d 65 73 20 | 69 6e 20 62 61 63 6b 74 | frames |in backt|
|00000df0| 72 61 63 65 20 62 65 66 | 6f 72 65 20 74 68 65 20 |race bef|ore the |
|00000e00| 6f 6e 65 20 70 6f 69 6e | 74 20 70 6f 69 6e 74 73 |one poin|t points|
|00000e10| 20 61 74 2e 22 5d 29 0a | 28 64 65 66 63 6f 6e 73 | at."]).|(defcons|
|00000e20| 74 20 64 65 62 75 67 67 | 65 72 2d 66 72 61 6d 65 |t debugg|er-frame|
|00000e30| 2d 6f 66 66 73 65 74 20 | 38 20 22 5c 0a 22 29 0a |-offset |8 "\.").|
|00000e40| 28 64 65 66 61 6c 69 61 | 73 20 27 64 65 62 75 67 |(defalia|s 'debug|
|00000e50| 67 65 72 2d 66 72 61 6d | 65 20 23 5b 6e 69 6c 20 |ger-fram|e #[nil |
|00000e60| 22 c0 79 88 c1 20 1a c3 | 5c 6e 0c 5c 5c c5 5c 22 |".y.. ..|\n.\\.\"|
|00000e70| 88 29 67 c6 55 83 1f 00 | c7 1e 08 c9 ca 21 88 cb |.)g.U...|.....!..|
|00000e80| 63 88 29 c0 79 88 c7 87 | 22 20 5b 30 20 64 65 62 |c.).y...|" [0 deb|
|00000e90| 75 67 67 65 72 2d 66 72 | 61 6d 65 2d 6e 75 6d 62 |ugger-fr|ame-numb|
|00000ea0| 65 72 20 6c 65 76 65 6c | 20 62 61 63 6b 74 72 61 |er level| backtra|
|00000eb0| 63 65 2d 64 65 62 75 67 | 20 64 65 62 75 67 67 65 |ce-debug| debugge|
|00000ec0| 72 2d 66 72 61 6d 65 2d | 6f 66 66 73 65 74 20 74 |r-frame-|offset t|
|00000ed0| 20 33 32 20 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 | 32 nil |buffer-r|
|00000ee0| 65 61 64 2d 6f 6e 6c 79 | 20 64 65 6c 65 74 65 2d |ead-only| delete-|
|00000ef0| 63 68 61 72 20 31 20 34 | 32 5d 20 33 20 22 5c 0a |char 1 4|2] 3 "\.|
|00000f00| 52 65 71 75 65 73 74 20 | 65 6e 74 72 79 20 74 6f |Request |entry to|
|00000f10| 20 64 65 62 75 67 67 65 | 72 20 77 68 65 6e 20 74 | debugge|r when t|
|00000f20| 68 69 73 20 66 72 61 6d | 65 20 65 78 69 74 73 2e |his fram|e exits.|
|00000f30| 0a 41 70 70 6c 69 65 73 | 20 74 6f 20 74 68 65 20 |.Applies| to the |
|00000f40| 66 72 61 6d 65 20 77 68 | 6f 73 65 20 6c 69 6e 65 |frame wh|ose line|
|00000f50| 20 70 6f 69 6e 74 20 69 | 73 20 6f 6e 20 69 6e 20 | point i|s on in |
|00000f60| 74 68 65 20 62 61 63 6b | 74 72 61 63 65 2e 22 20 |the back|trace." |
|00000f70| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000f80| 27 64 65 62 75 67 67 65 | 72 2d 66 72 61 6d 65 2d |'debugge|r-frame-|
|00000f90| 63 6c 65 61 72 20 23 5b | 6e 69 6c 20 22 c0 79 88 |clear #[|nil ".y.|
|00000fa0| c1 20 1a c3 5c 6e 0c 5c | 5c c5 5c 22 88 29 67 c6 |. ..\n.\|\.\".)g.|
|00000fb0| 55 83 1f 00 c5 1e 07 c8 | c9 21 88 ca 63 88 29 c0 |U.......|.!..c.).|
|00000fc0| 79 88 c5 87 22 20 5b 30 | 20 64 65 62 75 67 67 65 |y..." [0| debugge|
|00000fd0| 72 2d 66 72 61 6d 65 2d | 6e 75 6d 62 65 72 20 6c |r-frame-|number l|
|00000fe0| 65 76 65 6c 20 62 61 63 | 6b 74 72 61 63 65 2d 64 |evel bac|ktrace-d|
|00000ff0| 65 62 75 67 20 64 65 62 | 75 67 67 65 72 2d 66 72 |ebug deb|ugger-fr|
|00001000| 61 6d 65 2d 6f 66 66 73 | 65 74 20 6e 69 6c 20 34 |ame-offs|et nil 4|
|00001010| 32 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |2 buffer|-read-on|
|00001020| 6c 79 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 31 |ly delet|e-char 1|
|00001030| 20 33 32 5d 20 33 20 22 | 5c 0a 44 6f 20 6e 6f 74 | 32] 3 "|\.Do not|
|00001040| 20 65 6e 74 65 72 20 74 | 6f 20 64 65 62 75 67 67 | enter t|o debugg|
|00001050| 65 72 20 77 68 65 6e 20 | 74 68 69 73 20 66 72 61 |er when |this fra|
|00001060| 6d 65 20 65 78 69 74 73 | 2e 0a 41 70 70 6c 69 65 |me exits|..Applie|
|00001070| 73 20 74 6f 20 74 68 65 | 20 66 72 61 6d 65 20 77 |s to the| frame w|
|00001080| 68 6f 73 65 20 6c 69 6e | 65 20 70 6f 69 6e 74 20 |hose lin|e point |
|00001090| 69 73 20 6f 6e 20 69 6e | 20 74 68 65 20 62 61 63 |is on in| the bac|
|000010a0| 6b 74 72 61 63 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 |ktrace."| nil]).(|
|000010b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|000010c0| 88 c3 c4 21 84 0d 00 c5 | 14 0c 84 64 00 c6 1e 07 |...!....|...d....|
|000010d0| c8 20 14 c9 0c 21 88 ca | 0c cb cc 23 88 ca 0c cd |. ...!..|...#....|
|000010e0| ce 23 88 ca 0c cf d0 23 | 88 ca 0c d1 d2 23 88 ca |.#.....#|.....#..|
|000010f0| 0c d3 d4 23 88 ca 0c d5 | d6 23 88 ca 0c d7 d8 23 |...#....|.#.....#|
|00001100| 88 ca 0c d9 da 23 88 ca | 0c db dc 23 88 ca 0c dd |.....#..|...#....|
|00001110| de 23 88 ca 0c df c1 23 | 88 ca 0c e0 e1 23 88 29 |.#.....#|.....#.)|
|00001120| e2 e3 e4 e5 23 87 22 20 | 5b 64 65 66 61 6c 69 61 |....#." |[defalia|
|00001130| 73 20 64 65 62 75 67 67 | 65 72 2d 65 76 61 6c 2d |s debugg|er-eval-|
|00001140| 65 78 70 72 65 73 73 69 | 6f 6e 20 23 5b 28 65 78 |expressi|on #[(ex|
|00001150| 70 29 20 22 8a c0 09 21 | 84 09 00 70 11 09 71 88 |p) "...!|...p..q.|
|00001160| c2 0b 21 29 87 22 20 5b | 62 75 66 66 65 72 2d 6e |..!)." [|buffer-n|
|00001170| 61 6d 65 20 64 65 62 75 | 67 67 65 72 2d 6f 6c 64 |ame debu|gger-old|
|00001180| 2d 62 75 66 66 65 72 20 | 65 76 61 6c 2d 65 78 70 |-buffer |eval-exp|
|00001190| 72 65 73 73 69 6f 6e 20 | 65 78 70 5d 20 32 20 6e |ression |exp] 2 n|
|000011a0| 69 6c 20 22 78 45 76 61 | 6c 3a 20 22 5d 20 62 6f |il "xEva|l: "] bo|
|000011b0| 75 6e 64 70 20 64 65 62 | 75 67 67 65 72 2d 6d 6f |undp deb|ugger-mo|
|000011c0| 64 65 2d 6d 61 70 20 6e | 69 6c 20 33 32 20 6c 6f |de-map n|il 32 lo|
|000011d0| 6f 70 20 6d 61 6b 65 2d | 6b 65 79 6d 61 70 20 73 |op make-|keymap s|
|000011e0| 75 70 70 72 65 73 73 2d | 6b 65 79 6d 61 70 20 64 |uppress-|keymap d|
|000011f0| 65 66 69 6e 65 2d 6b 65 | 79 20 22 2d 22 20 6e 65 |efine-ke|y "-" ne|
|00001200| 67 61 74 69 76 65 2d 61 | 72 67 75 6d 65 6e 74 20 |gative-a|rgument |
|00001210| 22 62 22 20 64 65 62 75 | 67 67 65 72 2d 66 72 61 |"b" debu|gger-fra|
|00001220| 6d 65 20 22 63 22 20 64 | 65 62 75 67 67 65 72 2d |me "c" d|ebugger-|
|00001230| 63 6f 6e 74 69 6e 75 65 | 20 22 6a 22 20 64 65 62 |continue| "j" deb|
|00001240| 75 67 67 65 72 2d 6a 75 | 6d 70 20 22 72 22 20 64 |ugger-ju|mp "r" d|
|00001250| 65 62 75 67 67 65 72 2d | 72 65 74 75 72 6e 2d 76 |ebugger-|return-v|
|00001260| 61 6c 75 65 20 22 75 22 | 20 64 65 62 75 67 67 65 |alue "u"| debugge|
|00001270| 72 2d 66 72 61 6d 65 2d | 63 6c 65 61 72 20 22 64 |r-frame-|clear "d|
|00001280| 22 20 64 65 62 75 67 67 | 65 72 2d 73 74 65 70 2d |" debugg|er-step-|
|00001290| 74 68 72 6f 75 67 68 20 | 22 6c 22 20 64 65 62 75 |through |"l" debu|
|000012a0| 67 67 65 72 2d 6c 69 73 | 74 2d 66 75 6e 63 74 69 |gger-lis|t-functi|
|000012b0| 6f 6e 73 20 22 68 22 20 | 64 65 73 63 72 69 62 65 |ons "h" |describe|
|000012c0| 2d 6d 6f 64 65 20 22 71 | 22 20 74 6f 70 2d 6c 65 |-mode "q|" top-le|
|000012d0| 76 65 6c 20 22 65 22 20 | 22 20 22 20 6e 65 78 74 |vel "e" |" " next|
|000012e0| 2d 6c 69 6e 65 20 70 75 | 74 20 64 65 62 75 67 67 |-line pu|t debugg|
|000012f0| 65 72 2d 6d 6f 64 65 20 | 6d 6f 64 65 2d 63 6c 61 |er-mode |mode-cla|
|00001300| 73 73 20 73 70 65 63 69 | 61 6c 5d 20 34 29 0a 28 |ss speci|al] 4).(|
|00001310| 64 65 66 61 6c 69 61 73 | 20 27 64 65 62 75 67 67 |defalias| 'debugg|
|00001320| 65 72 2d 6d 6f 64 65 20 | 23 5b 6e 69 6c 20 22 c0 |er-mode |#[nil ".|
|00001330| 20 88 c1 12 c3 14 c5 16 | 06 c7 0e 08 21 88 c9 0e | .......|....!...|
|00001340| 5c 6e 21 87 22 20 5b 6b | 69 6c 6c 2d 61 6c 6c 2d |\n!." [k|ill-all-|
|00001350| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00001360| 64 65 62 75 67 67 65 72 | 2d 6d 6f 64 65 20 6d 61 |debugger|-mode ma|
|00001370| 6a 6f 72 2d 6d 6f 64 65 | 20 22 44 65 62 75 67 67 |jor-mode| "Debugg|
|00001380| 65 72 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 74 20 |er" mode|-name t |
|00001390| 74 72 75 6e 63 61 74 65 | 2d 6c 69 6e 65 73 20 73 |truncate|-lines s|
|000013a0| 65 74 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |et-synta|x-table |
|000013b0| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 2d |emacs-li|sp-mode-|
|000013c0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 75 73 65 |syntax-t|able use|
|000013d0| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 64 65 62 75 67 |-local-m|ap debug|
|000013e0| 67 65 72 2d 6d 6f 64 65 | 2d 6d 61 70 5d 20 32 20 |ger-mode|-map] 2 |
|000013f0| 22 5c 0a 4d 6f 64 65 20 | 66 6f 72 20 62 61 63 6b |"\.Mode |for back|
|00001400| 74 72 61 63 65 20 62 75 | 66 66 65 72 73 2c 20 73 |trace bu|ffers, s|
|00001410| 65 6c 65 63 74 65 64 20 | 69 6e 20 64 65 62 75 67 |elected |in debug|
|00001420| 67 65 72 2e 0a 5c 5c 3c | 64 65 62 75 67 67 65 72 |ger..\\<|debugger|
|00001430| 2d 6d 6f 64 65 2d 6d 61 | 70 3e 0a 41 20 6c 69 6e |-mode-ma|p>.A lin|
|00001440| 65 20 73 74 61 72 74 73 | 20 77 69 74 68 20 60 2a |e starts| with `*|
|00001450| 27 20 69 66 20 65 78 69 | 74 69 6e 67 20 74 68 61 |' if exi|ting tha|
|00001460| 74 20 66 72 61 6d 65 20 | 77 69 6c 6c 20 63 61 6c |t frame |will cal|
|00001470| 6c 20 74 68 65 20 64 65 | 62 75 67 67 65 72 2e 0a |l the de|bugger..|
|00001480| 54 79 70 65 20 5c 5c 5b | 64 65 62 75 67 67 65 72 |Type \\[|debugger|
|00001490| 2d 66 72 61 6d 65 5d 20 | 6f 72 20 5c 5c 5b 64 65 |-frame] |or \\[de|
|000014a0| 62 75 67 67 65 72 2d 66 | 72 61 6d 65 2d 63 6c 65 |bugger-f|rame-cle|
|000014b0| 61 72 5d 20 74 6f 20 73 | 65 74 20 6f 72 20 72 65 |ar] to s|et or re|
|000014c0| 6d 6f 76 65 20 74 68 65 | 20 60 2a 27 2e 0a 0a 57 |move the| `*'...W|
|000014d0| 68 65 6e 20 69 6e 20 64 | 65 62 75 67 67 65 72 20 |hen in d|ebugger |
|000014e0| 64 75 65 20 74 6f 20 66 | 72 61 6d 65 20 62 65 69 |due to f|rame bei|
|000014f0| 6e 67 20 65 78 69 74 65 | 64 2c 0a 75 73 65 20 74 |ng exite|d,.use t|
|00001500| 68 65 20 5c 5c 5b 64 65 | 62 75 67 67 65 72 2d 72 |he \\[de|bugger-r|
|00001510| 65 74 75 72 6e 2d 76 61 | 6c 75 65 5d 20 63 6f 6d |eturn-va|lue] com|
|00001520| 6d 61 6e 64 20 74 6f 20 | 6f 76 65 72 72 69 64 65 |mand to |override|
|00001530| 20 74 68 65 20 76 61 6c | 75 65 0a 62 65 69 6e 67 | the val|ue.being|
|00001540| 20 72 65 74 75 72 6e 65 | 64 20 66 72 6f 6d 20 74 | returne|d from t|
|00001550| 68 61 74 20 66 72 61 6d | 65 2e 0a 0a 55 73 65 20 |hat fram|e...Use |
|00001560| 5c 5c 5b 64 65 62 75 67 | 2d 6f 6e 2d 65 6e 74 72 |\\[debug|-on-entr|
|00001570| 79 5d 20 61 6e 64 20 5c | 5c 5b 63 61 6e 63 65 6c |y] and \|\[cancel|
|00001580| 2d 64 65 62 75 67 2d 6f | 6e 2d 65 6e 74 72 79 5d |-debug-o|n-entry]|
|00001590| 20 74 6f 20 63 6f 6e 74 | 72 6f 6c 0a 77 68 69 63 | to cont|rol.whic|
|000015a0| 68 20 66 75 6e 63 74 69 | 6f 6e 73 20 77 69 6c 6c |h functi|ons will|
|000015b0| 20 65 6e 74 65 72 20 74 | 68 65 20 64 65 62 75 67 | enter t|he debug|
|000015c0| 67 65 72 20 77 68 65 6e | 20 63 61 6c 6c 65 64 2e |ger when| called.|
|000015d0| 0a 0a 43 6f 6d 70 6c 65 | 74 65 20 6c 69 73 74 20 |..Comple|te list |
|000015e0| 6f 66 20 63 6f 6d 6d 61 | 6e 64 73 3a 0a 5c 5c 7b |of comma|nds:.\\{|
|000015f0| 64 65 62 75 67 67 65 72 | 2d 6d 6f 64 65 2d 6d 61 |debugger|-mode-ma|
|00001600| 70 7d 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |p}"]).(d|efalias |
|00001610| 27 64 65 62 75 67 2d 6f | 6e 2d 65 6e 74 72 79 20 |'debug-o|n-entry |
|00001620| 23 5b 28 66 75 6e 63 74 | 69 6f 6e 29 20 22 c0 20 |#[(funct|ion) ". |
|00001630| 88 c1 5c 6e 4b 21 83 0f | 00 c3 c4 5c 6e 5c 22 88 |..\nK!..|...\n\".|
|00001640| 5c 6e 4b 3a 84 19 00 c5 | 5c 6e 21 88 5c 6e 4b 3a |\nK:....|\n!.\nK:|
|00001650| 84 24 00 c3 c6 5c 6e 5c | 22 88 5c 6e c7 5c 6e 89 |.$...\n\|".\n.\n.|
|00001660| 4b c8 23 4d 88 5c 6e 0e | 09 3e 84 3a 00 5c 6e 0e |K.#M.\n.|.>.:.\n.|
|00001670| 09 42 16 09 5c 6e 87 22 | 20 5b 64 65 62 75 67 67 |.B..\n."| [debugg|
|00001680| 65 72 2d 72 65 65 6e 61 | 62 6c 65 20 73 75 62 72 |er-reena|ble subr|
|00001690| 70 20 66 75 6e 63 74 69 | 6f 6e 20 65 72 72 6f 72 |p functi|on error|
|000016a0| 20 22 46 75 6e 63 74 69 | 6f 6e 20 25 73 20 69 73 | "Functi|on %s is|
|000016b0| 20 61 20 70 72 69 6d 69 | 74 69 76 65 22 20 64 65 | a primi|tive" de|
|000016c0| 62 75 67 2d 63 6f 6e 76 | 65 72 74 2d 62 79 74 65 |bug-conv|ert-byte|
|000016d0| 2d 63 6f 64 65 20 22 44 | 65 66 69 6e 69 74 69 6f |-code "D|efinitio|
|000016e0| 6e 20 6f 66 20 25 73 20 | 69 73 20 6e 6f 74 20 61 |n of %s |is not a|
|000016f0| 20 6c 69 73 74 22 20 64 | 65 62 75 67 2d 6f 6e 2d | list" d|ebug-on-|
|00001700| 65 6e 74 72 79 2d 31 20 | 74 20 64 65 62 75 67 2d |entry-1 |t debug-|
|00001710| 66 75 6e 63 74 69 6f 6e | 2d 6c 69 73 74 5d 20 35 |function|-list] 5|
|00001720| 20 22 5c 0a 52 65 71 75 | 65 73 74 20 46 55 4e 43 | "\.Requ|est FUNC|
|00001730| 54 49 4f 4e 20 74 6f 20 | 69 6e 76 6f 6b 65 20 64 |TION to |invoke d|
|00001740| 65 62 75 67 67 65 72 20 | 65 61 63 68 20 74 69 6d |ebugger |each tim|
|00001750| 65 20 69 74 20 69 73 20 | 63 61 6c 6c 65 64 2e 0a |e it is |called..|
|00001760| 49 66 20 74 68 65 20 75 | 73 65 72 20 63 6f 6e 74 |If the u|ser cont|
|00001770| 69 6e 75 65 73 2c 20 46 | 55 4e 43 54 49 4f 4e 27 |inues, F|UNCTION'|
|00001780| 73 20 65 78 65 63 75 74 | 69 6f 6e 20 70 72 6f 63 |s execut|ion proc|
|00001790| 65 65 64 73 2e 0a 57 6f | 72 6b 73 20 62 79 20 6d |eeds..Wo|rks by m|
|000017a0| 6f 64 69 66 79 69 6e 67 | 20 74 68 65 20 64 65 66 |odifying| the def|
|000017b0| 69 6e 69 74 69 6f 6e 20 | 6f 66 20 46 55 4e 43 54 |inition |of FUNCT|
|000017c0| 49 4f 4e 2c 0a 77 68 69 | 63 68 20 6d 75 73 74 20 |ION,.whi|ch must |
|000017d0| 62 65 20 77 72 69 74 74 | 65 6e 20 69 6e 20 4c 69 |be writt|en in Li|
|000017e0| 73 70 2c 20 6e 6f 74 20 | 70 72 65 64 65 66 69 6e |sp, not |predefin|
|000017f0| 65 64 2e 0a 55 73 65 20 | 5c 5c 5b 63 61 6e 63 65 |ed..Use |\\[cance|
|00001800| 6c 2d 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |l-debug-|on-entry|
|00001810| 5d 20 74 6f 20 63 61 6e | 63 65 6c 20 74 68 65 20 |] to can|cel the |
|00001820| 65 66 66 65 63 74 20 6f | 66 20 74 68 69 73 20 63 |effect o|f this c|
|00001830| 6f 6d 6d 61 6e 64 2e 0a | 52 65 64 65 66 69 6e 69 |ommand..|Redefini|
|00001840| 6e 67 20 46 55 4e 43 54 | 49 4f 4e 20 61 6c 73 6f |ng FUNCT|ION also|
|00001850| 20 64 6f 65 73 20 74 68 | 61 74 2e 22 20 22 61 44 | does th|at." "aD|
|00001860| 65 62 75 67 20 6f 6e 20 | 65 6e 74 72 79 20 28 74 |ebug on |entry (t|
|00001870| 6f 20 66 75 6e 63 74 69 | 6f 6e 29 3a 20 22 5d 29 |o functi|on): "])|
|00001880| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 61 6e 63 |.(defali|as 'canc|
|00001890| 65 6c 2d 64 65 62 75 67 | 2d 6f 6e 2d 65 6e 74 72 |el-debug|-on-entr|
|000018a0| 79 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |y #[(&op|tional f|
|000018b0| 75 6e 63 74 69 6f 6e 29 | 20 22 c0 20 88 09 83 1f |unction)| ". ....|
|000018c0| 00 09 c2 98 84 1f 00 09 | c3 09 89 4b c4 23 4d 88 |........|...K.#M.|
|000018d0| c5 09 0e 06 5c 22 16 06 | 09 87 c7 c8 21 88 c9 ca |....\"..|....!...|
|000018e0| 0e 06 5c 22 87 22 20 5b | 64 65 62 75 67 67 65 72 |..\"." [|debugger|
|000018f0| 2d 72 65 65 6e 61 62 6c | 65 20 66 75 6e 63 74 69 |-reenabl|e functi|
|00001900| 6f 6e 20 22 22 20 64 65 | 62 75 67 2d 6f 6e 2d 65 |on "" de|bug-on-e|
|00001910| 6e 74 72 79 2d 31 20 6e | 69 6c 20 64 65 6c 71 20 |ntry-1 n|il delq |
|00001920| 64 65 62 75 67 2d 66 75 | 6e 63 74 69 6f 6e 2d 6c |debug-fu|nction-l|
|00001930| 69 73 74 20 6d 65 73 73 | 61 67 65 20 22 43 61 6e |ist mess|age "Can|
|00001940| 63 65 6c 6c 69 6e 67 20 | 64 65 62 75 67 2d 6f 6e |celling |debug-on|
|00001950| 2d 65 6e 74 72 79 20 66 | 6f 72 20 61 6c 6c 20 66 |-entry f|or all f|
|00001960| 75 6e 63 74 69 6f 6e 73 | 22 20 6d 61 70 63 61 72 |unctions|" mapcar|
|00001970| 20 63 61 6e 63 65 6c 2d | 64 65 62 75 67 2d 6f 6e | cancel-|debug-on|
|00001980| 2d 65 6e 74 72 79 5d 20 | 35 20 22 5c 0a 55 6e 64 |-entry] |5 "\.Und|
|00001990| 6f 20 65 66 66 65 63 74 | 20 6f 66 20 5c 5c 5b 64 |o effect| of \\[d|
|000019a0| 65 62 75 67 2d 6f 6e 2d | 65 6e 74 72 79 5d 20 6f |ebug-on-|entry] o|
|000019b0| 6e 20 46 55 4e 43 54 49 | 4f 4e 2e 0a 49 66 20 61 |n FUNCTI|ON..If a|
|000019c0| 72 67 75 6d 65 6e 74 20 | 69 73 20 6e 69 6c 20 6f |rgument |is nil o|
|000019d0| 72 20 61 6e 20 65 6d 70 | 74 79 20 73 74 72 69 6e |r an emp|ty strin|
|000019e0| 67 2c 20 63 61 6e 63 65 | 6c 20 66 6f 72 20 61 6c |g, cance|l for al|
|000019f0| 6c 20 66 75 6e 63 74 69 | 6f 6e 73 2e 22 20 28 6c |l functi|ons." (l|
|00001a00| 69 73 74 20 28 6c 65 74 | 20 28 28 6e 61 6d 65 20 |ist (let| ((name |
|00001a10| 28 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 |(complet|ing-read|
|00001a20| 20 22 43 61 6e 63 65 6c | 20 64 65 62 75 67 20 6f | "Cancel| debug o|
|00001a30| 6e 20 65 6e 74 72 79 20 | 28 74 6f 20 66 75 6e 63 |n entry |(to func|
|00001a40| 74 69 6f 6e 29 3a 20 22 | 20 28 6d 61 70 63 61 72 |tion): "| (mapcar|
|00001a50| 20 28 71 75 6f 74 65 20 | 6c 69 73 74 29 20 28 6d | (quote |list) (m|
|00001a60| 61 70 63 61 72 20 28 71 | 75 6f 74 65 20 73 79 6d |apcar (q|uote sym|
|00001a70| 62 6f 6c 2d 6e 61 6d 65 | 29 20 64 65 62 75 67 2d |bol-name|) debug-|
|00001a80| 66 75 6e 63 74 69 6f 6e | 2d 6c 69 73 74 29 29 20 |function|-list)) |
|00001a90| 6e 69 6c 20 74 20 6e 69 | 6c 29 29 29 20 28 69 66 |nil t ni|l))) (if|
|00001aa0| 20 6e 61 6d 65 20 28 69 | 6e 74 65 72 6e 20 6e 61 | name (i|ntern na|
|00001ab0| 6d 65 29 29 29 29 5d 29 | 0a 28 62 79 74 65 2d 63 |me))))])|.(byte-c|
|00001ac0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00001ad0| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 64 65 62 |." [defa|lias deb|
|00001ae0| 75 67 2d 63 6f 6e 76 65 | 72 74 2d 62 79 74 65 2d |ug-conve|rt-byte-|
|00001af0| 63 6f 64 65 20 23 5b 28 | 66 75 6e 63 74 69 6f 6e |code #[(|function|
|00001b00| 29 20 22 08 4b 89 19 3a | 3f 85 44 00 c2 09 c3 5c |) ".K..:|?.D....\|
|00001b10| 22 1c c5 0c 41 40 c6 0c | 38 c7 0c 38 46 43 1e 08 |"...A@..|8..8FC..|
|00001b20| c9 0c 9b 83 2c 00 ca c9 | 0c 38 44 0e 08 42 16 08 |....,...|.8D..B..|
|00001b30| cb 0c 38 83 3a 00 cb 0c | 38 0e 08 42 16 08 08 cc |..8.:...|8..B....|
|00001b40| 0c 40 0e 08 42 42 4d 2a | 29 87 22 20 5b 66 75 6e |.@..BBM*|)." [fun|
|00001b50| 63 74 69 6f 6e 20 64 65 | 66 6e 20 61 70 70 65 6e |ction de|fn appen|
|00001b60| 64 20 6e 69 6c 20 63 6f | 6e 74 65 6e 74 73 20 62 |d nil co|ntents b|
|00001b70| 79 74 65 2d 63 6f 64 65 | 20 32 20 33 20 62 6f 64 |yte-code| 2 3 bod|
|00001b80| 79 20 35 20 69 6e 74 65 | 72 61 63 74 69 76 65 20 |y 5 inte|ractive |
|00001b90| 34 20 6c 61 6d 62 64 61 | 5d 20 36 5d 20 64 65 62 |4 lambda|] 6] deb|
|00001ba0| 75 67 2d 6f 6e 2d 65 6e | 74 72 79 2d 31 20 23 5b |ug-on-en|try-1 #[|
|00001bb0| 28 66 75 6e 63 74 69 6f | 6e 20 64 65 66 6e 20 66 |(functio|n defn f|
|00001bc0| 6c 61 67 29 20 22 c0 09 | 21 83 0b 00 c2 c3 0c 5c |lag) "..|!......\|
|00001bd0| 22 87 09 40 c5 3d 83 1a | 00 c6 0c 09 41 0e 07 23 |"..@.=..|....A..#|
|00001be0| 87 09 40 c8 3d 84 26 00 | c2 c9 0c 5c 22 88 ca 89 |..@.=.&.|...\"...|
|00001bf0| 1e 0b 1e 0c 09 41 41 40 | 3b 83 48 00 cd 09 9b 16 |.....AA@|;.H.....|
|00001c00| 0c 09 40 09 41 40 09 41 | 41 40 45 16 0b 82 55 00 |..@.A@.A|A@E...U.|
|00001c10| 09 41 41 16 0c 09 40 09 | 41 40 44 16 0b 0e 07 0e |.AA...@.|A@D.....|
|00001c20| 0c 40 ce 9a 3d 83 64 00 | 09 82 79 00 0e 07 83 73 |.@..=.d.|..y....s|
|00001c30| 00 0e 0b cf 0e 0c 42 a4 | 82 79 00 0e 0b 0e 0c 41 |......B.|.y.....A|
|00001c40| a4 2a 87 22 20 5b 73 75 | 62 72 70 20 64 65 66 6e |.*." [su|brp defn|
|00001c50| 20 65 72 72 6f 72 20 22 | 25 73 20 69 73 20 61 20 | error "|%s is a |
|00001c60| 62 75 69 6c 74 2d 69 6e | 20 66 75 6e 63 74 69 6f |built-in| functio|
|00001c70| 6e 22 20 66 75 6e 63 74 | 69 6f 6e 20 6d 61 63 72 |n" funct|ion macr|
|00001c80| 6f 20 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |o debug-|on-entry|
|00001c90| 2d 31 20 66 6c 61 67 20 | 6c 61 6d 62 64 61 20 22 |-1 flag |lambda "|
|00001ca0| 25 73 20 6e 6f 74 20 75 | 73 65 72 2d 64 65 66 69 |%s not u|ser-defi|
|00001cb0| 6e 65 64 20 4c 69 73 70 | 20 66 75 6e 63 74 69 6f |ned Lisp| functio|
|00001cc0| 6e 22 20 6e 69 6c 20 70 | 72 65 63 20 74 61 69 6c |n" nil p|rec tail|
|00001cd0| 20 33 20 28 64 65 62 75 | 67 20 28 71 75 6f 74 65 | 3 (debu|g (quote|
|00001ce0| 20 64 65 62 75 67 29 29 | 20 28 64 65 62 75 67 20 | debug))| (debug |
|00001cf0| 28 71 75 6f 74 65 20 64 | 65 62 75 67 29 29 5d 20 |(quote d|ebug))] |
|00001d00| 34 5d 5d 20 33 29 0a 28 | 64 65 66 61 6c 69 61 73 |4]] 3).(|defalias|
|00001d10| 20 27 64 65 62 75 67 67 | 65 72 2d 6c 69 73 74 2d | 'debugg|er-list-|
|00001d20| 66 75 6e 63 74 69 6f 6e | 73 20 23 5b 6e 69 6c 20 |function|s #[nil |
|00001d30| 22 c0 90 09 84 0c 00 c2 | c3 21 82 2d 00 c2 c4 21 |".......|.!.-...!|
|00001d40| 88 09 89 1d 83 25 00 c6 | 0d 40 21 88 c7 20 88 0d |.....%..|.@!.. ..|
|00001d50| 41 89 15 84 16 00 29 c2 | c8 21 88 c2 c9 21 91 87 |A.....).|.!...!..|
|00001d60| 22 20 5b 22 2a 48 65 6c | 70 2a 22 20 64 65 62 75 |" ["*Hel|p*" debu|
|00001d70| 67 2d 66 75 6e 63 74 69 | 6f 6e 2d 6c 69 73 74 20 |g-functi|on-list |
|00001d80| 70 72 69 6e 63 20 22 4e | 6f 20 64 65 62 75 67 2d |princ "N|o debug-|
|00001d90| 6f 6e 2d 65 6e 74 72 79 | 20 66 75 6e 63 74 69 6f |on-entry| functio|
|00001da0| 6e 73 20 6e 6f 77 5c 6e | 22 20 22 46 75 6e 63 74 |ns now\n|" "Funct|
|00001db0| 69 6f 6e 73 20 73 65 74 | 20 74 6f 20 64 65 62 75 |ions set| to debu|
|00001dc0| 67 20 6f 6e 20 65 6e 74 | 72 79 3a 5c 6e 5c 6e 22 |g on ent|ry:\n\n"|
|00001dd0| 20 6c 69 73 74 20 70 72 | 69 6e 31 20 74 65 72 70 | list pr|in1 terp|
|00001de0| 72 69 20 22 4e 6f 74 65 | 3a 20 69 66 20 79 6f 75 |ri "Note|: if you|
|00001df0| 20 68 61 76 65 20 72 65 | 64 65 66 69 6e 65 64 20 | have re|defined |
|00001e00| 61 20 66 75 6e 63 74 69 | 6f 6e 2c 20 74 68 65 6e |a functi|on, then|
|00001e10| 20 69 74 20 6d 61 79 20 | 6e 6f 20 6c 6f 6e 67 65 | it may |no longe|
|00001e20| 72 5c 6e 22 20 22 62 65 | 20 73 65 74 20 74 6f 20 |r\n" "be| set to |
|00001e30| 64 65 62 75 67 20 6f 6e | 20 65 6e 74 72 79 2c 20 |debug on| entry, |
|00001e40| 65 76 65 6e 20 69 66 20 | 69 74 20 69 73 20 69 6e |even if |it is in|
|00001e50| 20 74 68 65 20 6c 69 73 | 74 2e 22 5d 20 34 20 22 | the lis|t."] 4 "|
|00001e60| 5c 0a 44 69 73 70 6c 61 | 79 20 61 20 6c 69 73 74 |\.Displa|y a list|
|00001e70| 20 6f 66 20 61 6c 6c 20 | 74 68 65 20 66 75 6e 63 | of all |the func|
|00001e80| 74 69 6f 6e 73 20 6e 6f | 77 20 73 65 74 20 74 6f |tions no|w set to|
|00001e90| 20 64 65 62 75 67 20 6f | 6e 20 65 6e 74 72 79 2e | debug o|n entry.|
|00001ea0| 22 20 6e 69 6c 5d 29 0a |                         |" nil]).|        |
+--------+-------------------------+-------------------------+--------+--------+