|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: d
Length: 6190 (0x182e)
Names: »debug.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/debug.elc«
0x0000…0020 0a 28 73 65 74 71 20 64 65 62 75 67 67 65 72 20 28 71 75 6f 74 65 20 64 65 62 75 67 29 29 0a 0a ┆ (setq debugger (quote debug)) ┆
0x0020…0040 28 64 65 66 75 6e 20 64 65 62 75 67 20 28 26 72 65 73 74 20 64 65 62 75 67 67 65 72 2d 61 72 67 ┆(defun debug (&rest debugger-arg┆
0x0040…0060 73 29 20 22 5c 0a 45 6e 74 65 72 20 64 65 62 75 67 67 65 72 2e 20 20 52 65 74 75 72 6e 73 20 69 ┆s) "\ Enter debugger. Returns i┆
0x0060…0080 66 20 75 73 65 72 20 73 61 79 73 20 5c 22 63 6f 6e 74 69 6e 75 65 5c 22 2e 0a 41 72 67 75 6d 65 ┆f user says \"continue\". Argume┆
0x0080…00a0 6e 74 73 20 61 72 65 20 6d 61 69 6e 6c 79 20 66 6f 72 20 75 73 65 20 77 68 65 6e 20 74 68 69 73 ┆nts are mainly for use when this┆
0x00a0…00c0 20 69 73 20 63 61 6c 6c 65 64 0a 20 66 72 6f 6d 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 73 20 6f ┆ is called from the internals o┆
0x00c0…00e0 66 20 74 68 65 20 65 76 61 6c 75 61 74 6f 72 2e 0a 59 6f 75 20 6d 61 79 20 63 61 6c 6c 20 77 69 ┆f the evaluator. You may call wi┆
0x00e0…0100 74 68 20 6e 6f 20 61 72 67 73 2c 20 6f 72 20 79 6f 75 20 6d 61 79 0a 20 70 61 73 73 20 6e 69 6c ┆th no args, or you may pass nil┆
0x0100…0120 20 61 73 20 74 68 65 20 66 69 72 73 74 20 61 72 67 20 61 6e 64 20 61 6e 79 20 6f 74 68 65 72 20 ┆ as the first arg and any other ┆
0x0120…0140 61 72 67 73 20 79 6f 75 20 6c 69 6b 65 2e 0a 20 49 6e 20 74 68 61 74 20 63 61 73 65 2c 20 74 68 ┆args you like. In that case, th┆
0x0140…0160 65 20 6c 69 73 74 20 6f 66 20 61 72 67 73 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 77 ┆e list of args after the first w┆
0x0160…0180 69 6c 6c 20 0a 20 62 65 20 70 72 69 6e 74 65 64 20 69 6e 74 6f 20 74 68 65 20 62 61 63 6b 74 72 ┆ill be printed into the backtr┆
0x0180…01a0 61 63 65 20 62 75 66 66 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 d3 d4 21 88 c3 d5 20 ┆ace buffer." (byte-code " ! ┆
0x01a0…01c0 c3 c3 d6 1e 06 d7 d8 21 29 70 c3 c3 c3 1e 0a 1e 09 1e 08 1e 07 1d 1c 1a 19 18 d9 8e 8a da 8b 29 ┆ !)p )┆
0x01c0…01e0 29 88 0e 08 89 16 12 88 08 2e 09 87 22 20 5b 64 65 62 75 67 67 65 72 2d 76 61 6c 75 65 20 64 65 ┆) . " [debugger-value de┆
0x01e0…0200 62 75 67 67 65 72 2d 6d 61 74 63 68 2d 64 61 74 61 20 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 ┆bugger-match-data debug-on-error┆
0x0200…0220 20 6e 69 6c 20 64 65 62 75 67 2d 6f 6e 2d 71 75 69 74 20 64 65 62 75 67 67 65 72 2d 62 75 66 66 ┆ nil debug-on-quit debugger-buff┆
0x0220…0240 65 72 20 64 65 66 61 75 6c 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 64 65 62 75 67 67 65 72 2d 6f ┆er default-major-mode debugger-o┆
0x0240…0260 6c 64 2d 62 75 66 66 65 72 20 64 65 62 75 67 67 65 72 2d 73 74 65 70 2d 61 66 74 65 72 2d 65 78 ┆ld-buffer debugger-step-after-ex┆
0x0260…0280 69 74 20 65 78 65 63 75 74 69 6e 67 2d 6d 61 63 72 6f 20 63 75 72 73 6f 72 2d 69 6e 2d 65 63 68 ┆it executing-macro cursor-in-ech┆
0x0280…02a0 6f 2d 61 72 65 61 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 70 72 69 6e 74 2d 65 73 63 ┆o-area standard-output print-esc┆
0x02a0…02c0 61 70 65 2d 6e 65 77 6c 69 6e 65 73 20 74 20 70 72 69 6e 74 2d 6c 65 6e 67 74 68 20 64 65 62 75 ┆ape-newlines t print-length debu┆
0x02c0…02e0 67 67 65 72 2d 61 72 67 73 20 69 6e 68 69 62 69 74 2d 74 72 61 63 65 20 62 75 66 66 65 72 2d 72 ┆gger-args inhibit-trace buffer-r┆
0x02e0…0300 65 61 64 2d 6f 6e 6c 79 20 64 65 62 75 67 2d 6f 6e 2d 6e 65 78 74 2d 63 61 6c 6c 20 6d 65 73 73 ┆ead-only debug-on-next-call mess┆
0x0300…0320 61 67 65 20 22 45 6e 74 65 72 69 6e 67 20 64 65 62 75 67 67 65 72 2e 2e 2e 22 20 6d 61 74 63 68 ┆age "Entering debugger..." match┆
0x0320…0340 2d 64 61 74 61 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 67 65 6e 65 72 61 74 65 2d ┆-data fundamental-mode generate-┆
0x0340…0360 6e 65 77 2d 62 75 66 66 65 72 20 22 2a 42 61 63 6b 74 72 61 63 65 2a 22 20 28 28 62 79 74 65 2d ┆new-buffer "*Backtrace*" ((byte-┆
0x0360…0380 63 6f 64 65 20 22 c1 08 21 88 c2 c3 8d 87 22 20 5b 64 65 62 75 67 67 65 72 2d 62 75 66 66 65 72 ┆code " ! " [debugger-buffer┆
0x0380…03a0 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 66 6f 6f 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18 08 ┆ kill-buffer foo (byte-code " ┆
0x03a0…03c0 85 20 00 08 40 85 17 00 c3 08 40 21 3f 85 17 00 c4 c5 c2 5c 22 88 08 41 89 10 88 82 02 00 88 c6 ┆ @ @!? \" A ┆
0x03c0…03e0 09 21 29 87 22 20 5b 64 20 64 65 62 75 67 67 65 72 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c ┆ !) " [d debugger-match-data nil┆
0x03e0…0400 20 6d 61 72 6b 65 72 2d 62 75 66 66 65 72 20 74 68 72 6f 77 20 66 6f 6f 20 73 74 6f 72 65 2d 6d ┆ marker-buffer throw foo store-m┆
0x0400…0420 61 74 63 68 2d 64 61 74 61 5d 20 35 29 5d 20 33 29 29 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆atch-data] 5)] 3)) ((byte-code "┆
0x0420…0440 ca 08 21 88 cb 20 88 70 c3 cc 1c 1a 19 cd 20 2b 88 65 62 88 ce 20 88 cf 60 d0 d1 21 88 d2 d3 21 ┆ ! p + eb ` ! !┆
0x0440…0460 88 60 5c 22 88 0d 40 d4 3e 83 46 00 d5 63 88 0d 40 d6 3d 85 43 00 d7 d8 c3 5c 22 88 d9 d3 21 88 ┆ `\" @ > F c @ = C \" ! ┆
0x0460…0480 da 63 88 db 20 82 a1 00 0d 40 dc 3d 83 6c 00 dd 63 88 d3 0d 38 89 16 06 88 de 0e 06 70 5c 22 88 ┆ c @ = l c 8 p\" ┆
0x0480…04a0 df 63 88 d9 d3 21 88 e0 63 88 db 20 82 a1 00 0d 40 e1 3d 83 82 00 e2 63 88 de d3 0d 38 70 5c 22 ┆ c ! c @ = c 8p\"┆
0x04a0…04c0 88 df 63 82 a1 00 0d 40 c3 3d 83 8e 00 e3 63 82 a1 00 de 0d 40 c8 3d 83 9b 00 0d 41 82 9c 00 0d ┆ c @ = c @ = A ┆
0x04c0…04e0 70 5c 22 88 df 63 88 e4 e5 21 88 c3 c8 c3 1e 09 19 1e 07 e4 e5 21 88 e6 20 2b 87 22 20 5b 64 65 ┆p\" c ! ! + " [de┆
0x04e0…0500 62 75 67 67 65 72 2d 62 75 66 66 65 72 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 70 72 ┆bugger-buffer standard-output pr┆
0x0500…0520 69 6e 74 2d 65 73 63 61 70 65 2d 6e 65 77 6c 69 6e 65 73 20 74 20 70 72 69 6e 74 2d 6c 65 6e 67 ┆int-escape-newlines t print-leng┆
0x0520…0540 74 68 20 64 65 62 75 67 67 65 72 2d 61 72 67 73 20 64 65 62 75 67 67 65 72 2d 76 61 6c 75 65 20 ┆th debugger-args debugger-value ┆
0x0540…0560 69 6e 68 69 62 69 74 2d 74 72 61 63 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e ┆inhibit-trace nil buffer-read-on┆
0x0560…0580 6c 79 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 35 30 ┆ly pop-to-buffer erase-buffer 50┆
0x0580…05a0 20 62 61 63 6b 74 72 61 63 65 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 64 65 6c 65 74 65 2d ┆ backtrace debugger-mode delete-┆
0x05a0…05c0 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 38 20 66 6f 72 77 61 72 64 2d 6c 69 ┆region forward-sexp 8 forward-li┆
0x05c0…05e0 6e 65 20 31 20 28 6c 61 6d 62 64 61 20 64 65 62 75 67 29 20 22 45 6e 74 65 72 69 6e 67 3a 0a 22 ┆ne 1 (lambda debug) "Entering: "┆
0x05e0…0600 20 64 65 62 75 67 20 62 61 63 6b 74 72 61 63 65 2d 64 65 62 75 67 20 34 20 64 65 6c 65 74 65 2d ┆ debug backtrace-debug 4 delete-┆
0x0600…0620 63 68 61 72 20 34 32 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 65 78 69 74 20 22 ┆char 42 beginning-of-line exit "┆
0x0620…0640 52 65 74 75 72 6e 20 76 61 6c 75 65 3a 20 22 20 70 72 69 6e 31 20 31 30 20 33 32 20 65 72 72 6f ┆Return value: " prin1 10 32 erro┆
0x0640…0660 72 20 22 53 69 67 6e 61 6c 6c 69 6e 67 3a 20 22 20 22 42 65 67 69 6e 6e 69 6e 67 20 65 76 61 6c ┆r "Signalling: " "Beginning eval┆
0x0660…0680 75 61 74 69 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 20 66 6f 72 6d 3a 0a 22 20 ┆uation of function call form: " ┆
0x0680…06a0 6d 65 73 73 61 67 65 20 22 22 20 72 65 63 75 72 73 69 76 65 2d 65 64 69 74 5d 20 31 39 29 29 5d ┆message "" recursive-edit] 19))]┆
0x06a0…06c0 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d 73 74 65 70 2d 74 68 72 6f ┆ 12)) (defun debugger-step-thro┆
0x06c0…06e0 75 67 68 20 6e 69 6c 20 22 5c 0a 50 72 6f 63 65 65 64 2c 20 73 74 65 70 70 69 6e 67 20 74 68 72 ┆ugh nil "\ Proceed, stepping thr┆
0x06e0…0700 6f 75 67 68 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 73 20 6f 66 20 74 68 69 73 20 65 78 70 72 ┆ough subexpressions of this expr┆
0x0700…0720 65 73 73 69 6f 6e 2e 0a 45 6e 74 65 72 20 61 6e 6f 74 68 65 72 20 64 65 62 75 67 67 65 72 20 6f ┆ession. Enter another debugger o┆
0x0720…0740 6e 20 6e 65 78 74 20 65 6e 74 72 79 20 74 6f 20 65 76 61 6c 2c 20 61 70 70 6c 79 20 6f 72 20 66 ┆n next entry to eval, apply or f┆
0x0740…0760 75 6e 63 61 6c 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 ┆uncall." (interactive) (byte-cod┆
0x0760…0780 65 20 22 c2 88 c1 89 10 88 c3 c4 21 88 c5 20 87 22 20 5b 64 65 62 75 67 67 65 72 2d 73 74 65 70 ┆e " ! " [debugger-step┆
0x0780…07a0 2d 61 66 74 65 72 2d 65 78 69 74 20 74 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 50 72 6f 63 65 ┆-after-exit t nil message "Proce┆
0x07a0…07c0 64 69 6e 67 2c 20 77 69 6c 6c 20 64 65 62 75 67 20 6f 6e 20 6e 65 78 74 20 65 76 61 6c 20 6f 72 ┆ding, will debug on next eval or┆
0x07c0…07e0 20 63 61 6c 6c 2e 22 20 65 78 69 74 2d 72 65 63 75 72 73 69 76 65 2d 65 64 69 74 5d 20 33 29 29 ┆ call." exit-recursive-edit] 3))┆
0x07e0…0800 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d 63 6f 6e 74 69 6e 75 65 20 6e 69 6c 20 22 ┆ (defun debugger-continue nil "┆
0x0800…0820 5c 0a 43 6f 6e 74 69 6e 75 65 2c 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 69 73 20 65 78 70 72 ┆\ Continue, evaluating this expr┆
0x0820…0840 65 73 73 69 6f 6e 20 77 69 74 68 6f 75 74 20 73 74 6f 70 70 69 6e 67 2e 22 20 28 69 6e 74 65 72 ┆ession without stopping." (inter┆
0x0840…0860 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 88 c3 20 87 22 20 5b ┆active) (byte-code " ! " [┆
0x0860…0880 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 43 6f 6e 74 69 6e 75 69 6e 67 2e 22 20 65 78 69 74 2d 72 ┆nil message "Continuing." exit-r┆
0x0880…08a0 65 63 75 72 73 69 76 65 2d 65 64 69 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 ┆ecursive-edit] 3)) (defun debug┆
0x08a0…08c0 67 65 72 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 20 28 76 61 6c 29 20 22 5c 0a 43 6f 6e 74 69 6e ┆ger-return-value (val) "\ Contin┆
0x08c0…08e0 75 65 2c 20 73 70 65 63 69 66 79 69 6e 67 20 76 61 6c 75 65 20 74 6f 20 72 65 74 75 72 6e 2e 0a ┆ue, specifying value to return. ┆
0x08e0…0900 54 68 69 73 20 69 73 20 6f 6e 6c 79 20 75 73 65 66 75 6c 20 77 68 65 6e 20 74 68 65 20 76 61 6c ┆This is only useful when the val┆
0x0900…0920 75 65 20 72 65 74 75 72 6e 65 64 20 66 72 6f 6d 20 74 68 65 20 64 65 62 75 67 67 65 72 0a 77 69 ┆ue returned from the debugger wi┆
0x0920…0940 6c 6c 20 62 65 20 75 73 65 64 2c 20 73 75 63 68 20 61 73 20 69 6e 20 61 20 64 65 62 75 67 20 6f ┆ll be used, such as in a debug o┆
0x0940…0960 6e 20 65 78 69 74 20 66 72 6f 6d 20 61 20 66 72 61 6d 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆n exit from a frame." (interacti┆
0x0960…0980 76 65 20 22 58 52 65 74 75 72 6e 20 76 61 6c 75 65 20 28 65 76 61 6c 75 61 74 65 64 29 3a 20 22 ┆ve "XReturn value (evaluated): "┆
0x0980…09a0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 09 89 10 88 c4 c5 c2 5c 22 88 c6 08 21 88 c7 20 ┆) (byte-code " \" ! ┆
0x09a0…09c0 87 22 20 5b 64 65 62 75 67 67 65 72 2d 76 61 6c 75 65 20 76 61 6c 20 74 20 6e 69 6c 20 70 72 69 ┆ " [debugger-value val t nil pri┆
0x09c0…09e0 6e 63 20 22 52 65 74 75 72 6e 69 6e 67 20 22 20 70 72 69 6e 31 20 65 78 69 74 2d 72 65 63 75 72 ┆nc "Returning " prin1 exit-recur┆
0x09e0…0a00 73 69 76 65 2d 65 64 69 74 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d ┆sive-edit] 4)) (defun debugger-┆
0x0a00…0a20 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 6e 75 6d 62 65 ┆frame-number nil "\ Return numbe┆
0x0a20…0a40 72 20 6f 66 20 66 72 61 6d 65 73 20 69 6e 20 62 61 63 6b 74 72 61 63 65 20 62 65 66 6f 72 65 20 ┆r of frames in backtrace before ┆
0x0a40…0a60 74 68 65 20 6f 6e 65 20 70 6f 69 6e 74 20 70 6f 69 6e 74 73 20 61 74 2e 22 20 28 62 79 74 65 2d ┆the one point points at." (byte-┆
0x0a60…0a80 63 6f 64 65 20 22 8a c2 20 88 60 c3 19 18 65 62 88 c4 c5 60 60 c6 5c 5c 5c 22 c7 5c 22 86 20 00 ┆code " ` eb `` \\\" \" ┆
0x0a80…0aa0 c4 c5 60 60 c6 5c 5c 5c 22 c8 5c 22 85 2a 00 c9 ca 21 88 cb cc 21 88 cd cc 21 88 ce cf 21 88 67 ┆ `` \\\" \" * ! ! ! ! g┆
0x0aa0…0ac0 d0 55 83 3f 00 cb cc 21 82 42 00 cb cf 21 88 cd cc 21 88 60 08 58 85 55 00 09 54 89 11 88 82 2f ┆ U ? ! B ! ! ` X U T /┆
0x0ac0…0ae0 00 88 09 2a 29 87 22 20 5b 6f 70 6f 69 6e 74 20 63 6f 75 6e 74 20 62 65 67 69 6e 6e 69 6e 67 2d ┆ *) " [opoint count beginning-┆
0x0ae0…0b00 6f 66 2d 6c 69 6e 65 20 30 20 65 71 75 61 6c 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 ┆of-line 0 equal buffer-substring┆
0x0b00…0b20 20 36 20 22 53 69 67 6e 61 6c 22 20 22 52 65 74 75 72 6e 22 20 73 65 61 72 63 68 2d 66 6f 72 77 ┆ 6 "Signal" "Return" search-forw┆
0x0b20…0b40 61 72 64 20 22 3a 22 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 66 6f 72 77 61 72 64 2d 6c ┆ard ":" forward-sexp 1 forward-l┆
0x0b40…0b60 69 6e 65 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 32 20 34 30 5d 20 31 35 29 29 0a 0a 28 64 65 ┆ine forward-char 2 40] 15)) (de┆
0x0b60…0b80 66 63 6f 6e 73 74 20 64 65 62 75 67 67 65 72 2d 66 72 61 6d 65 2d 6f 66 66 73 65 74 20 38 20 22 ┆fconst debugger-frame-offset 8 "┆
0x0b80…0ba0 5c 0a 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d 66 72 61 6d 65 20 6e 69 6c 20 ┆\ ") (defun debugger-frame nil ┆
0x0ba0…0bc0 22 5c 0a 52 65 71 75 65 73 74 20 65 6e 74 72 79 20 74 6f 20 64 65 62 75 67 67 65 72 20 77 68 65 ┆"\ Request entry to debugger whe┆
0x0bc0…0be0 6e 20 74 68 69 73 20 66 72 61 6d 65 20 65 78 69 74 73 2e 0a 41 70 70 6c 69 65 73 20 74 6f 20 74 ┆n this frame exits. Applies to t┆
0x0be0…0c00 68 65 20 66 72 61 6d 65 20 77 68 6f 73 65 20 6c 69 6e 65 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 ┆he frame whose line point is on ┆
0x0c00…0c20 69 6e 20 74 68 65 20 62 61 63 6b 74 72 61 63 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ┆in the backtrace." (interactive)┆
0x0c20…0c40 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 20 88 c6 20 18 c7 08 09 5c 5c c2 5c 22 29 88 67 ┆ (byte-code " \\ \") g┆
0x0c40…0c60 c8 55 85 1f 00 c4 1b c9 ca 21 88 cb 63 29 88 c5 20 87 22 20 5b 6c 65 76 65 6c 20 64 65 62 75 67 ┆ U ! c) " [level debug┆
0x0c60…0c80 67 65 72 2d 66 72 61 6d 65 2d 6f 66 66 73 65 74 20 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f ┆ger-frame-offset t buffer-read-o┆
0x0c80…0ca0 6e 6c 79 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 64 65 62 75 67 67 ┆nly nil beginning-of-line debugg┆
0x0ca0…0cc0 65 72 2d 66 72 61 6d 65 2d 6e 75 6d 62 65 72 20 62 61 63 6b 74 72 61 63 65 2d 64 65 62 75 67 20 ┆er-frame-number backtrace-debug ┆
0x0cc0…0ce0 33 32 20 64 65 6c 65 74 65 2d 63 68 61 72 20 31 20 34 32 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e ┆32 delete-char 1 42] 6)) (defun┆
0x0ce0…0d00 20 64 65 62 75 67 67 65 72 2d 66 72 61 6d 65 2d 63 6c 65 61 72 20 6e 69 6c 20 22 5c 0a 44 6f 20 ┆ debugger-frame-clear nil "\ Do ┆
0x0d00…0d20 6e 6f 74 20 65 6e 74 65 72 20 74 6f 20 64 65 62 75 67 67 65 72 20 77 68 65 6e 20 74 68 69 73 20 ┆not enter to debugger when this ┆
0x0d20…0d40 66 72 61 6d 65 20 65 78 69 74 73 2e 0a 41 70 70 6c 69 65 73 20 74 6f 20 74 68 65 20 66 72 61 6d ┆frame exits. Applies to the fram┆
0x0d40…0d60 65 20 77 68 6f 73 65 20 6c 69 6e 65 20 70 6f 69 6e 74 20 69 73 20 6f 6e 20 69 6e 20 74 68 65 20 ┆e whose line point is on in the ┆
0x0d60…0d80 62 61 63 6b 74 72 61 63 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d ┆backtrace." (interactive) (byte-┆
0x0d80…0da0 63 6f 64 65 20 22 c2 88 c4 20 88 c5 20 18 c6 08 09 5c 5c c2 5c 22 29 88 67 c7 55 85 1f 00 c2 1b ┆code " \\ \") g U ┆
0x0da0…0dc0 c8 c9 21 88 ca 63 29 88 c4 20 87 22 20 5b 6c 65 76 65 6c 20 64 65 62 75 67 67 65 72 2d 66 72 61 ┆ ! c) " [level debugger-fra┆
0x0dc0…0de0 6d 65 2d 6f 66 66 73 65 74 20 6e 69 6c 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 62 ┆me-offset nil buffer-read-only b┆
0x0de0…0e00 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 64 65 62 75 67 67 65 72 2d 66 72 61 6d 65 2d ┆eginning-of-line debugger-frame-┆
0x0e00…0e20 6e 75 6d 62 65 72 20 62 61 63 6b 74 72 61 63 65 2d 64 65 62 75 67 20 34 32 20 64 65 6c 65 74 65 ┆number backtrace-debug 42 delete┆
0x0e20…0e40 2d 63 68 61 72 20 31 20 33 32 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 ┆-char 1 32] 6)) (defun debugger┆
0x0e40…0e60 2d 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 65 78 70 29 20 28 69 6e 74 65 72 61 63 74 ┆-eval-expression (exp) (interact┆
0x0e60…0e80 69 76 65 20 22 78 45 76 61 6c 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 8a c3 08 ┆ive "xEval: ") (byte-code " ┆
0x0e80…0ea0 21 3f 85 0d 00 70 89 10 88 08 71 88 c4 09 21 29 87 22 20 5b 64 65 62 75 67 67 65 72 2d 6f 6c 64 ┆!? p q !) " [debugger-old┆
0x0ea0…0ec0 2d 62 75 66 66 65 72 20 65 78 70 20 6e 69 6c 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 65 76 61 6c ┆-buffer exp nil buffer-name eval┆
0x0ec0…0ee0 2d 65 78 70 72 65 73 73 69 6f 6e 5d 20 33 29 29 0a 0a 28 64 65 66 76 61 72 20 64 65 62 75 67 67 ┆-expression] 3)) (defvar debugg┆
0x0ee0…0f00 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 64 65 62 75 67 67 65 72 2d 6d ┆er-mode-map nil) (if debugger-m┆
0x0f00…0f20 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 6c 65 74 20 28 28 6c 6f 6f 70 20 33 32 29 29 20 28 73 65 ┆ode-map nil (let ((loop 32)) (se┆
0x0f20…0f40 74 71 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 ┆tq debugger-mode-map (make-keyma┆
0x0f40…0f60 70 29 29 20 28 73 75 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 20 64 65 62 75 67 67 65 72 2d 6d 6f ┆p)) (suppress-keymap debugger-mo┆
0x0f60…0f80 64 65 2d 6d 61 70 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 ┆de-map) (define-key debugger-mod┆
0x0f80…0fa0 65 2d 6d 61 70 20 22 2d 22 20 28 71 75 6f 74 65 20 6e 65 67 61 74 69 76 65 2d 61 72 67 75 6d 65 ┆e-map "-" (quote negative-argume┆
0x0fa0…0fc0 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d ┆nt)) (define-key debugger-mode-m┆
0x0fc0…0fe0 61 70 20 22 62 22 20 28 71 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 66 72 61 6d 65 29 29 20 28 ┆ap "b" (quote debugger-frame)) (┆
0x0fe0…1000 64 65 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 63 22 ┆define-key debugger-mode-map "c"┆
0x1000…1020 20 28 71 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 63 6f 6e 74 69 6e 75 65 29 29 20 28 64 65 66 ┆ (quote debugger-continue)) (def┆
0x1020…1040 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 72 22 20 28 71 ┆ine-key debugger-mode-map "r" (q┆
0x1040…1060 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 72 65 74 75 72 6e 2d 76 61 6c 75 65 29 29 20 28 64 65 ┆uote debugger-return-value)) (de┆
0x1060…1080 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 75 22 20 28 ┆fine-key debugger-mode-map "u" (┆
0x1080…10a0 71 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 66 72 61 6d 65 2d 63 6c 65 61 72 29 29 20 28 64 65 ┆quote debugger-frame-clear)) (de┆
0x10a0…10c0 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 64 22 20 28 ┆fine-key debugger-mode-map "d" (┆
0x10c0…10e0 71 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 73 74 65 70 2d 74 68 72 6f 75 67 68 29 29 20 28 64 ┆quote debugger-step-through)) (d┆
0x10e0…1100 65 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 68 22 20 ┆efine-key debugger-mode-map "h" ┆
0x1100…1120 28 71 75 6f 74 65 20 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 29 29 20 28 64 65 66 69 6e 65 2d 6b ┆(quote describe-mode)) (define-k┆
0x1120…1140 65 79 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 71 22 20 28 71 75 6f 74 65 20 ┆ey debugger-mode-map "q" (quote ┆
0x1140…1160 74 6f 70 2d 6c 65 76 65 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 67 67 65 72 ┆top-level)) (define-key debugger┆
0x1160…1180 2d 6d 6f 64 65 2d 6d 61 70 20 22 65 22 20 28 71 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 65 76 ┆-mode-map "e" (quote debugger-ev┆
0x1180…11a0 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 65 62 75 ┆al-expression)) (define-key debu┆
0x11a0…11c0 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 22 20 22 20 28 71 75 6f 74 65 20 6e 65 78 74 2d 6c 69 ┆gger-mode-map " " (quote next-li┆
0x11c0…11e0 6e 65 29 29 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 ┆ne)))) (put (quote debugger-mod┆
0x11e0…1200 65 29 20 28 71 75 6f 74 65 20 6d 6f 64 65 2d 63 6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 ┆e) (quote mode-class) (quote spe┆
0x1200…1220 63 69 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 6e 69 6c ┆cial)) (defun debugger-mode nil┆
0x1220…1240 20 22 5c 0a 4d 6f 64 65 20 66 6f 72 20 62 61 63 6b 74 72 61 63 65 20 62 75 66 66 65 72 73 2c 20 ┆ "\ Mode for backtrace buffers, ┆
0x1240…1260 73 65 6c 65 63 74 65 64 20 69 6e 20 64 65 62 75 67 67 65 72 2e 0a 5c 5c 7b 64 65 62 75 67 67 65 ┆selected in debugger. \\{debugge┆
0x1260…1280 72 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 46 6f 72 20 74 68 65 20 72 20 63 6f 6d 6d 61 6e 64 2c 20 77 ┆r-mode-map} For the r command, w┆
0x1280…12a0 68 65 6e 20 69 6e 20 64 65 62 75 67 67 65 72 20 64 75 65 20 74 6f 20 66 72 61 6d 65 20 62 65 69 ┆hen in debugger due to frame bei┆
0x12a0…12c0 6e 67 20 65 78 69 74 65 64 2c 0a 20 20 20 20 74 68 65 20 76 61 6c 75 65 20 73 70 65 63 69 66 69 ┆ng exited, the value specifi┆
0x12c0…12e0 65 64 20 68 65 72 65 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 61 73 20 74 68 65 20 76 61 6c 75 ┆ed here will be used as the valu┆
0x12e0…1300 65 20 6f 66 20 74 68 61 74 20 66 72 61 6d 65 2e 0a 0a 4e 6f 74 65 20 6c 69 6e 65 73 20 73 74 61 ┆e of that frame. Note lines sta┆
0x1300…1320 72 74 69 6e 67 20 77 69 74 68 20 2a 20 61 72 65 20 66 72 61 6d 65 73 20 74 68 61 74 20 77 69 6c ┆rting with * are frames that wil┆
0x1320…1340 6c 0a 20 65 6e 74 65 72 20 64 65 62 75 67 67 65 72 20 77 68 65 6e 20 65 78 69 74 65 64 2e 22 20 ┆l enter debugger when exited." ┆
0x1340…1360 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 20 88 c7 89 10 88 c8 89 11 88 c3 89 12 88 c9 0c 21 88 ca ┆(byte-code " ! ┆
0x1360…1380 0d 21 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 74 72 75 6e 63 ┆ ! " [major-mode mode-name trunc┆
0x1380…13a0 61 74 65 2d 6c 69 6e 65 73 20 74 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 ┆ate-lines t emacs-lisp-mode-synt┆
0x13a0…13c0 61 78 2d 74 61 62 6c 65 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 6b 69 6c 6c 2d ┆ax-table debugger-mode-map kill-┆
0x13c0…13e0 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 64 65 62 75 67 67 65 72 2d 6d 6f 64 ┆all-local-variables debugger-mod┆
0x13e0…1400 65 20 22 44 65 62 75 67 67 65 72 22 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 75 73 ┆e "Debugger" set-syntax-table us┆
0x1400…1420 65 2d 6c 6f 63 61 6c 2d 6d 61 70 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d 6f ┆e-local-map] 4)) (defun debug-o┆
0x1420…1440 6e 2d 65 6e 74 72 79 20 28 66 75 6e 63 74 69 6f 6e 29 20 22 5c 0a 52 65 71 75 65 73 74 20 46 55 ┆n-entry (function) "\ Request FU┆
0x1440…1460 4e 43 54 49 4f 4e 20 74 6f 20 69 6e 76 6f 6b 65 20 64 65 62 75 67 67 65 72 20 65 61 63 68 20 74 ┆NCTION to invoke debugger each t┆
0x1460…1480 69 6d 65 20 69 74 20 69 73 20 63 61 6c 6c 65 64 2e 0a 49 66 20 74 68 65 20 75 73 65 72 20 63 6f ┆ime it is called. If the user co┆
0x1480…14a0 6e 74 69 6e 75 65 73 2c 20 46 55 4e 43 54 49 4f 4e 27 73 20 65 78 65 63 75 74 69 6f 6e 20 70 72 ┆ntinues, FUNCTION's execution pr┆
0x14a0…14c0 6f 63 65 65 64 73 2e 0a 57 6f 72 6b 73 20 62 79 20 6d 6f 64 69 66 79 69 6e 67 20 74 68 65 20 64 ┆oceeds. Works by modifying the d┆
0x14c0…14e0 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 46 55 4e 43 54 49 4f 4e 2c 0a 77 68 69 63 68 20 6d 75 73 ┆efinition of FUNCTION, which mus┆
0x14e0…1500 74 20 62 65 20 77 72 69 74 74 65 6e 20 69 6e 20 4c 69 73 70 2c 20 6e 6f 74 20 70 72 65 64 65 66 ┆t be written in Lisp, not predef┆
0x1500…1520 69 6e 65 64 2e 0a 55 73 65 20 60 63 61 6e 63 65 6c 2d 64 65 62 75 67 2d 6f 6e 2d 65 6e 74 72 79 ┆ined. Use `cancel-debug-on-entry┆
0x1520…1540 27 20 74 6f 20 63 61 6e 63 65 6c 20 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 74 68 69 73 20 63 ┆' to cancel the effect of this c┆
0x1540…1560 6f 6d 6d 61 6e 64 2e 0a 52 65 64 65 66 69 6e 69 6e 67 20 46 55 4e 43 54 49 4f 4e 20 61 6c 73 6f ┆ommand. Redefining FUNCTION also┆
0x1560…1580 20 64 6f 65 73 20 74 68 61 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 61 44 65 62 75 ┆ does that." (interactive "aDebu┆
0x1580…15a0 67 20 6f 6e 20 65 6e 74 72 79 20 28 74 6f 20 66 75 6e 63 74 69 6f 6e 29 3a 20 22 29 20 28 62 79 ┆g on entry (to function): ") (by┆
0x15a0…15c0 74 65 2d 63 6f 64 65 20 22 c3 88 09 4b 18 08 40 c4 3d 83 19 00 09 c4 c5 09 08 41 c2 23 42 4d 82 ┆te-code " K @ = A #BM ┆
0x15c0…15e0 20 00 09 c5 09 08 c2 23 4d 29 88 09 87 22 20 5b 64 65 66 6e 20 66 75 6e 63 74 69 6f 6e 20 74 20 ┆ #M) " [defn function t ┆
0x15e0…1600 6e 69 6c 20 6d 61 63 72 6f 20 64 65 62 75 67 2d 6f 6e 2d 65 6e 74 72 79 2d 31 5d 20 36 29 29 0a ┆nil macro debug-on-entry-1] 6)) ┆
0x1600…1620 0a 28 64 65 66 75 6e 20 63 61 6e 63 65 6c 2d 64 65 62 75 67 2d 6f 6e 2d 65 6e 74 72 79 20 28 66 ┆ (defun cancel-debug-on-entry (f┆
0x1620…1640 75 6e 63 74 69 6f 6e 29 20 22 5c 0a 55 6e 64 6f 65 73 20 65 66 66 65 63 74 20 6f 66 20 64 65 62 ┆unction) "\ Undoes effect of deb┆
0x1640…1660 75 67 2d 6f 6e 2d 65 6e 74 72 79 20 6f 6e 20 46 55 4e 43 54 49 4f 4e 2e 22 20 28 69 6e 74 65 72 ┆ug-on-entry on FUNCTION." (inter┆
0x1660…1680 61 63 74 69 76 65 20 22 61 43 61 6e 63 65 6c 20 64 65 62 75 67 20 6f 6e 20 65 6e 74 72 79 20 28 ┆active "aCancel debug on entry (┆
0x1680…16a0 74 6f 20 66 75 6e 63 74 69 6f 6e 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 09 ┆to function): ") (byte-code " ┆
0x16a0…16c0 4b 18 08 40 c3 3d 83 19 00 09 c3 c4 09 08 41 c2 23 42 4d 82 20 00 09 c4 09 08 c2 23 4d 29 88 09 ┆K @ = A #BM #M) ┆
0x16c0…16e0 87 22 20 5b 64 65 66 6e 20 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 6d 61 63 72 6f 20 64 65 62 75 ┆ " [defn function nil macro debu┆
0x16e0…1700 67 2d 6f 6e 2d 65 6e 74 72 79 2d 31 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 62 75 67 2d ┆g-on-entry-1] 6)) (defun debug-┆
0x1700…1720 6f 6e 2d 65 6e 74 72 79 2d 31 20 28 66 75 6e 63 74 69 6f 6e 20 64 65 66 6e 20 66 6c 61 67 29 20 ┆on-entry-1 (function defn flag) ┆
0x1720…1740 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 c6 3d 86 0b 00 c7 c8 09 5c 22 88 c5 c5 1b 1a c9 ca 08 ┆(byte-code " @ = \" ┆
0x1740…1760 5c 22 40 3b 83 2d 00 c9 cb 08 5c 22 12 08 40 08 41 40 08 41 41 40 45 89 13 82 3a 00 c9 ca 08 5c ┆\"@; - \" @ A@ AA@E : \┆
0x1760…1780 22 12 08 40 08 41 40 44 89 13 88 0c cc 0a 40 cd 5c 22 3d 83 49 00 c5 82 5b 00 0c 83 56 00 ce 0b ┆" @ A@D @ \"= I [ V ┆
0x1780…17a0 cf 0a 42 5c 22 82 5b 00 ce 0b 0a 41 5c 22 2a 87 22 20 5b 64 65 66 6e 20 66 75 6e 63 74 69 6f 6e ┆ B\" [ A\"* " [defn function┆
0x17a0…17c0 20 74 61 69 6c 20 70 72 65 63 20 66 6c 61 67 20 6e 69 6c 20 6c 61 6d 62 64 61 20 65 72 72 6f 72 ┆ tail prec flag nil lambda error┆
0x17c0…17e0 20 22 25 73 20 6e 6f 74 20 75 73 65 72 2d 64 65 66 69 6e 65 64 20 4c 69 73 70 20 66 75 6e 63 74 ┆ "%s not user-defined Lisp funct┆
0x17e0…1800 69 6f 6e 2e 22 20 6e 74 68 63 64 72 20 32 20 33 20 65 71 75 61 6c 20 28 64 65 62 75 67 20 28 71 ┆ion." nthcdr 2 3 equal (debug (q┆
0x1800…1820 75 6f 74 65 20 64 65 62 75 67 29 29 20 6e 63 6f 6e 63 20 28 64 65 62 75 67 20 28 71 75 6f 74 65 ┆uote debug)) nconc (debug (quote┆
0x1820…182e 20 64 65 62 75 67 29 29 5d 20 39 29 29 0a ┆ debug))] 9)) ┆