/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / debug.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 73 65 74 71 20 64 | 65 62 75 67 67 65 72 20 |.(setq d|ebugger |
|00000010| 28 71 75 6f 74 65 20 64 | 65 62 75 67 29 29 0a 0a |(quote d|ebug))..|
|00000020| 28 64 65 66 75 6e 20 64 | 65 62 75 67 20 28 26 72 |(defun d|ebug (&r|
|00000030| 65 73 74 20 64 65 62 75 | 67 67 65 72 2d 61 72 67 |est debu|gger-arg|
|00000040| 73 29 20 22 5c 0a 45 6e | 74 65 72 20 64 65 62 75 |s) "\.En|ter debu|
|00000050| 67 67 65 72 2e 20 20 52 | 65 74 75 72 6e 73 20 69 |gger.  R|eturns i|
|00000060| 66 20 75 73 65 72 20 73 | 61 79 73 20 5c 22 63 6f |f user s|ays \"co|
|00000070| 6e 74 69 6e 75 65 5c 22 | 2e 0a 41 72 67 75 6d 65 |ntinue\"|..Argume|
|00000080| 6e 74 73 20 61 72 65 20 | 6d 61 69 6e 6c 79 20 66 |nts are |mainly f|
|00000090| 6f 72 20 75 73 65 20 77 | 68 65 6e 20 74 68 69 73 |or use w|hen this|
|000000a0| 20 69 73 20 63 61 6c 6c | 65 64 0a 20 66 72 6f 6d | is call|ed. from|
|000000b0| 20 74 68 65 20 69 6e 74 | 65 72 6e 61 6c 73 20 6f | the int|ernals o|
|000000c0| 66 20 74 68 65 20 65 76 | 61 6c 75 61 74 6f 72 2e |f the ev|aluator.|
|000000d0| 0a 59 6f 75 20 6d 61 79 | 20 63 61 6c 6c 20 77 69 |.You may| call wi|
|000000e0| 74 68 20 6e 6f 20 61 72 | 67 73 2c 20 6f 72 20 79 |th no ar|gs, or y|
|000000f0| 6f 75 20 6d 61 79 0a 20 | 70 61 73 73 20 6e 69 6c |ou may. |pass nil|
|00000100| 20 61 73 20 74 68 65 20 | 66 69 72 73 74 20 61 72 | as the |first ar|
|00000110| 67 20 61 6e 64 20 61 6e | 79 20 6f 74 68 65 72 20 |g and an|y other |
|00000120| 61 72 67 73 20 79 6f 75 | 20 6c 69 6b 65 2e 0a 20 |args you| like.. |
|00000130| 49 6e 20 74 68 61 74 20 | 63 61 73 65 2c 20 74 68 |In that |case, th|
|00000140| 65 20 6c 69 73 74 20 6f | 66 20 61 72 67 73 20 61 |e list o|f args a|
|00000150| 66 74 65 72 20 74 68 65 | 20 66 69 72 73 74 20 77 |fter the| first w|
|00000160| 69 6c 6c 20 0a 20 62 65 | 20 70 72 69 6e 74 65 64 |ill . be| printed|
|00000170| 20 69 6e 74 6f 20 74 68 | 65 20 62 61 63 6b 74 72 | into th|e backtr|
|00000180| 61 63 65 20 62 75 66 66 | 65 72 2e 22 20 28 62 79 |ace buff|er." (by|
|00000190| 74 65 2d 63 6f 64 65 20 | 22 d3 d4 21 88 c3 d5 20 |te-code |"..!... |
|000001a0| c3 c3 d6 1e 06 d7 d8 21 | 29 70 c3 c3 c3 1e 0a 1e |.......!|)p......|
|000001b0| 09 1e 08 1e 07 1d 1c 1a | 19 18 d9 8e 8a da 8b 29 |........|.......)|
|000001c0| 29 88 0e 08 89 16 12 88 | 08 2e 09 87 22 20 5b 64 |).......|...." [d|
|000001d0| 65 62 75 67 67 65 72 2d | 76 61 6c 75 65 20 64 65 |ebugger-|value de|
|000001e0| 62 75 67 67 65 72 2d 6d | 61 74 63 68 2d 64 61 74 |bugger-m|atch-dat|
|000001f0| 61 20 64 65 62 75 67 2d | 6f 6e 2d 65 72 72 6f 72 |a debug-|on-error|
|00000200| 20 6e 69 6c 20 64 65 62 | 75 67 2d 6f 6e 2d 71 75 | nil deb|ug-on-qu|
|00000210| 69 74 20 64 65 62 75 67 | 67 65 72 2d 62 75 66 66 |it debug|ger-buff|
|00000220| 65 72 20 64 65 66 61 75 | 6c 74 2d 6d 61 6a 6f 72 |er defau|lt-major|
|00000230| 2d 6d 6f 64 65 20 64 65 | 62 75 67 67 65 72 2d 6f |-mode de|bugger-o|
|00000240| 6c 64 2d 62 75 66 66 65 | 72 20 64 65 62 75 67 67 |ld-buffe|r debugg|
|00000250| 65 72 2d 73 74 65 70 2d | 61 66 74 65 72 2d 65 78 |er-step-|after-ex|
|00000260| 69 74 20 65 78 65 63 75 | 74 69 6e 67 2d 6d 61 63 |it execu|ting-mac|
|00000270| 72 6f 20 63 75 72 73 6f | 72 2d 69 6e 2d 65 63 68 |ro curso|r-in-ech|
|00000280| 6f 2d 61 72 65 61 20 73 | 74 61 6e 64 61 72 64 2d |o-area s|tandard-|
|00000290| 6f 75 74 70 75 74 20 70 | 72 69 6e 74 2d 65 73 63 |output p|rint-esc|
|000002a0| 61 70 65 2d 6e 65 77 6c | 69 6e 65 73 20 74 20 70 |ape-newl|ines t p|
|000002b0| 72 69 6e 74 2d 6c 65 6e | 67 74 68 20 64 65 62 75 |rint-len|gth debu|
|000002c0| 67 67 65 72 2d 61 72 67 | 73 20 69 6e 68 69 62 69 |gger-arg|s inhibi|
|000002d0| 74 2d 74 72 61 63 65 20 | 62 75 66 66 65 72 2d 72 |t-trace |buffer-r|
|000002e0| 65 61 64 2d 6f 6e 6c 79 | 20 64 65 62 75 67 2d 6f |ead-only| debug-o|
|000002f0| 6e 2d 6e 65 78 74 2d 63 | 61 6c 6c 20 6d 65 73 73 |n-next-c|all mess|
|00000300| 61 67 65 20 22 45 6e 74 | 65 72 69 6e 67 20 64 65 |age "Ent|ering de|
|00000310| 62 75 67 67 65 72 2e 2e | 2e 22 20 6d 61 74 63 68 |bugger..|." match|
|00000320| 2d 64 61 74 61 20 66 75 | 6e 64 61 6d 65 6e 74 61 |-data fu|ndamenta|
|00000330| 6c 2d 6d 6f 64 65 20 67 | 65 6e 65 72 61 74 65 2d |l-mode g|enerate-|
|00000340| 6e 65 77 2d 62 75 66 66 | 65 72 20 22 2a 42 61 63 |new-buff|er "*Bac|
|00000350| 6b 74 72 61 63 65 2a 22 | 20 28 28 62 79 74 65 2d |ktrace*"| ((byte-|
|00000360| 63 6f 64 65 20 22 c2 08 | 21 88 c3 09 21 87 22 20 |code "..|!...!." |
|00000370| 5b 64 65 62 75 67 67 65 | 72 2d 62 75 66 66 65 72 |[debugge|r-buffer|
|00000380| 20 64 65 62 75 67 67 65 | 72 2d 6d 61 74 63 68 2d | debugge|r-match-|
|00000390| 64 61 74 61 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |data kil|l-buffer|
|000003a0| 20 73 74 6f 72 65 2d 6d | 61 74 63 68 2d 64 61 74 | store-m|atch-dat|
|000003b0| 61 5d 20 33 29 29 20 28 | 28 62 79 74 65 2d 63 6f |a] 3)) (|(byte-co|
|000003c0| 64 65 20 22 ca 08 21 88 | cb 20 88 70 c3 cc 1c 1a |de "..!.|. .p....|
|000003d0| 19 cd 20 2b 88 65 62 88 | ce 20 88 cf 60 d0 d1 21 |.. +.eb.|. ..`..!|
|000003e0| 88 d2 d3 21 88 60 5c 22 | 88 0d 40 d4 3e 83 46 00 |...!.`\"|..@.>.F.|
|000003f0| d5 63 88 0d 40 d6 3d 85 | 43 00 d7 d8 c3 5c 22 88 |.c..@.=.|C....\".|
|00000400| d9 d3 21 88 da 63 88 db | 20 82 a1 00 0d 40 dc 3d |..!..c..| ....@.=|
|00000410| 83 6c 00 dd 63 88 d3 0d | 38 89 16 06 88 de 0e 06 |.l..c...|8.......|
|00000420| 70 5c 22 88 df 63 88 d9 | d3 21 88 e0 63 88 db 20 |p\"..c..|.!..c.. |
|00000430| 82 a1 00 0d 40 e1 3d 83 | 82 00 e2 63 88 de d3 0d |....@.=.|...c....|
|00000440| 38 70 5c 22 88 df 63 82 | a1 00 0d 40 c3 3d 83 8e |8p\"..c.|...@.=..|
|00000450| 00 e3 63 82 a1 00 de 0d | 40 c8 3d 83 9b 00 0d 41 |..c.....|@.=....A|
|00000460| 82 9c 00 0d 70 5c 22 88 | df 63 88 e4 e5 21 88 c3 |....p\".|.c...!..|
|00000470| c8 c3 1e 09 19 1e 07 e4 | e5 21 88 e6 20 2b 87 22 |........|.!.. +."|
|00000480| 20 5b 64 65 62 75 67 67 | 65 72 2d 62 75 66 66 65 | [debugg|er-buffe|
|00000490| 72 20 73 74 61 6e 64 61 | 72 64 2d 6f 75 74 70 75 |r standa|rd-outpu|
|000004a0| 74 20 70 72 69 6e 74 2d | 65 73 63 61 70 65 2d 6e |t print-|escape-n|
|000004b0| 65 77 6c 69 6e 65 73 20 | 74 20 70 72 69 6e 74 2d |ewlines |t print-|
|000004c0| 6c 65 6e 67 74 68 20 64 | 65 62 75 67 67 65 72 2d |length d|ebugger-|
|000004d0| 61 72 67 73 20 64 65 62 | 75 67 67 65 72 2d 76 61 |args deb|ugger-va|
|000004e0| 6c 75 65 20 69 6e 68 69 | 62 69 74 2d 74 72 61 63 |lue inhi|bit-trac|
|000004f0| 65 20 6e 69 6c 20 62 75 | 66 66 65 72 2d 72 65 61 |e nil bu|ffer-rea|
|00000500| 64 2d 6f 6e 6c 79 20 70 | 6f 70 2d 74 6f 2d 62 75 |d-only p|op-to-bu|
|00000510| 66 66 65 72 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ffer era|se-buffe|
|00000520| 72 20 35 30 20 62 61 63 | 6b 74 72 61 63 65 20 64 |r 50 bac|ktrace d|
|00000530| 65 62 75 67 67 65 72 2d | 6d 6f 64 65 20 64 65 6c |ebugger-|mode del|
|00000540| 65 74 65 2d 72 65 67 69 | 6f 6e 20 66 6f 72 77 61 |ete-regi|on forwa|
|00000550| 72 64 2d 73 65 78 70 20 | 38 20 66 6f 72 77 61 72 |rd-sexp |8 forwar|
|00000560| 64 2d 6c 69 6e 65 20 31 | 20 28 6c 61 6d 62 64 61 |d-line 1| (lambda|
|00000570| 20 64 65 62 75 67 29 20 | 22 45 6e 74 65 72 69 6e | debug) |"Enterin|
|00000580| 67 3a 0a 22 20 64 65 62 | 75 67 20 62 61 63 6b 74 |g:." deb|ug backt|
|00000590| 72 61 63 65 2d 64 65 62 | 75 67 20 34 20 64 65 6c |race-deb|ug 4 del|
|000005a0| 65 74 65 2d 63 68 61 72 | 20 34 32 20 62 65 67 69 |ete-char| 42 begi|
|000005b0| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 20 65 78 |nning-of|-line ex|
|000005c0| 69 74 20 22 52 65 74 75 | 72 6e 20 76 61 6c 75 65 |it "Retu|rn value|
|000005d0| 3a 20 22 20 70 72 69 6e | 31 20 31 30 20 33 32 20 |: " prin|1 10 32 |
|000005e0| 65 72 72 6f 72 20 22 53 | 69 67 6e 61 6c 6c 69 6e |error "S|ignallin|
|000005f0| 67 3a 20 22 20 22 42 65 | 67 69 6e 6e 69 6e 67 20 |g: " "Be|ginning |
|00000600| 65 76 61 6c 75 61 74 69 | 6f 6e 20 6f 66 20 66 75 |evaluati|on of fu|
|00000610| 6e 63 74 69 6f 6e 20 63 | 61 6c 6c 20 66 6f 72 6d |nction c|all form|
|00000620| 3a 0a 22 20 6d 65 73 73 | 61 67 65 20 22 22 20 72 |:." mess|age "" r|
|00000630| 65 63 75 72 73 69 76 65 | 2d 65 64 69 74 5d 20 31 |ecursive|-edit] 1|
|00000640| 39 29 29 5d 20 31 32 29 | 29 0a 0a 28 64 65 66 75 |9))] 12)|)..(defu|
|00000650| 6e 20 64 65 62 75 67 67 | 65 72 2d 73 74 65 70 2d |n debugg|er-step-|
|00000660| 74 68 72 6f 75 67 68 20 | 6e 69 6c 20 22 5c 0a 50 |through |nil "\.P|
|00000670| 72 6f 63 65 65 64 2c 20 | 73 74 65 70 70 69 6e 67 |roceed, |stepping|
|00000680| 20 74 68 72 6f 75 67 68 | 20 73 75 62 65 78 70 72 | through| subexpr|
|00000690| 65 73 73 69 6f 6e 73 20 | 6f 66 20 74 68 69 73 20 |essions |of this |
|000006a0| 65 78 70 72 65 73 73 69 | 6f 6e 2e 0a 45 6e 74 65 |expressi|on..Ente|
|000006b0| 72 20 61 6e 6f 74 68 65 | 72 20 64 65 62 75 67 67 |r anothe|r debugg|
|000006c0| 65 72 20 6f 6e 20 6e 65 | 78 74 20 65 6e 74 72 79 |er on ne|xt entry|
|000006d0| 20 74 6f 20 65 76 61 6c | 2c 20 61 70 70 6c 79 20 | to eval|, apply |
|000006e0| 6f 72 20 66 75 6e 63 61 | 6c 6c 2e 22 20 28 69 6e |or funca|ll." (in|
|000006f0| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00000700| 2d 63 6f 64 65 20 22 c2 | 88 c1 89 10 88 c3 c4 21 |-code ".|.......!|
|00000710| 88 c5 20 87 22 20 5b 64 | 65 62 75 67 67 65 72 2d |.. ." [d|ebugger-|
|00000720| 73 74 65 70 2d 61 66 74 | 65 72 2d 65 78 69 74 20 |step-aft|er-exit |
|00000730| 74 20 6e 69 6c 20 6d 65 | 73 73 61 67 65 20 22 50 |t nil me|ssage "P|
|00000740| 72 6f 63 65 64 69 6e 67 | 2c 20 77 69 6c 6c 20 64 |roceding|, will d|
|00000750| 65 62 75 67 20 6f 6e 20 | 6e 65 78 74 20 65 76 61 |ebug on |next eva|
|00000760| 6c 20 6f 72 20 63 61 6c | 6c 2e 22 20 65 78 69 74 |l or cal|l." exit|
|00000770| 2d 72 65 63 75 72 73 69 | 76 65 2d 65 64 69 74 5d |-recursi|ve-edit]|
|00000780| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 65 62 | 3))..(d|efun deb|
|00000790| 75 67 67 65 72 2d 63 6f | 6e 74 69 6e 75 65 20 6e |ugger-co|ntinue n|
|000007a0| 69 6c 20 22 5c 0a 43 6f | 6e 74 69 6e 75 65 2c 20 |il "\.Co|ntinue, |
|000007b0| 65 76 61 6c 75 61 74 69 | 6e 67 20 74 68 69 73 20 |evaluati|ng this |
|000007c0| 65 78 70 72 65 73 73 69 | 6f 6e 20 77 69 74 68 6f |expressi|on witho|
|000007d0| 75 74 20 73 74 6f 70 70 | 69 6e 67 2e 22 20 28 69 |ut stopp|ing." (i|
|000007e0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|000007f0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 88 c3 20 |e-code "|....!.. |
|00000800| 87 22 20 5b 6e 69 6c 20 | 6d 65 73 73 61 67 65 20 |." [nil |message |
|00000810| 22 43 6f 6e 74 69 6e 75 | 69 6e 67 2e 22 20 65 78 |"Continu|ing." ex|
|00000820| 69 74 2d 72 65 63 75 72 | 73 69 76 65 2d 65 64 69 |it-recur|sive-edi|
|00000830| 74 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |t] 3))..|(defun d|
|00000840| 65 62 75 67 67 65 72 2d | 72 65 74 75 72 6e 2d 76 |ebugger-|return-v|
|00000850| 61 6c 75 65 20 28 76 61 | 6c 29 20 22 5c 0a 43 6f |alue (va|l) "\.Co|
|00000860| 6e 74 69 6e 75 65 2c 20 | 73 70 65 63 69 66 79 69 |ntinue, |specifyi|
|00000870| 6e 67 20 76 61 6c 75 65 | 20 74 6f 20 72 65 74 75 |ng value| to retu|
|00000880| 72 6e 2e 0a 54 68 69 73 | 20 69 73 20 6f 6e 6c 79 |rn..This| is only|
|00000890| 20 75 73 65 66 75 6c 20 | 77 68 65 6e 20 74 68 65 | useful |when the|
|000008a0| 20 76 61 6c 75 65 20 72 | 65 74 75 72 6e 65 64 20 | value r|eturned |
|000008b0| 66 72 6f 6d 20 74 68 65 | 20 64 65 62 75 67 67 65 |from the| debugge|
|000008c0| 72 0a 77 69 6c 6c 20 62 | 65 20 75 73 65 64 2c 20 |r.will b|e used, |
|000008d0| 73 75 63 68 20 61 73 20 | 69 6e 20 61 20 64 65 62 |such as |in a deb|
|000008e0| 75 67 20 6f 6e 20 65 78 | 69 74 20 66 72 6f 6d 20 |ug on ex|it from |
|000008f0| 61 20 66 72 61 6d 65 2e | 22 20 28 69 6e 74 65 72 |a frame.|" (inter|
|00000900| 61 63 74 69 76 65 20 22 | 58 52 65 74 75 72 6e 20 |active "|XReturn |
|00000910| 76 61 6c 75 65 20 28 65 | 76 61 6c 75 61 74 65 64 |value (e|valuated|
|00000920| 29 3a 20 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |): ") (b|yte-code|
|00000930| 20 22 c3 88 09 89 10 88 | c4 c5 c2 5c 22 88 c6 08 | "......|...\"...|
|00000940| 21 88 c7 20 87 22 20 5b | 64 65 62 75 67 67 65 72 |!.. ." [|debugger|
|00000950| 2d 76 61 6c 75 65 20 76 | 61 6c 20 74 20 6e 69 6c |-value v|al t nil|
|00000960| 20 70 72 69 6e 63 20 22 | 52 65 74 75 72 6e 69 6e | princ "|Returnin|
|00000970| 67 20 22 20 70 72 69 6e | 31 20 65 78 69 74 2d 72 |g " prin|1 exit-r|
|00000980| 65 63 75 72 73 69 76 65 | 2d 65 64 69 74 5d 20 34 |ecursive|-edit] 4|
|00000990| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 65 62 75 67 |))..(def|un debug|
|000009a0| 67 65 72 2d 66 72 61 6d | 65 2d 6e 75 6d 62 65 72 |ger-fram|e-number|
|000009b0| 20 6e 69 6c 20 22 5c 0a | 52 65 74 75 72 6e 20 6e | nil "\.|Return n|
|000009c0| 75 6d 62 65 72 20 6f 66 | 20 66 72 61 6d 65 73 20 |umber of| frames |
|000009d0| 69 6e 20 62 61 63 6b 74 | 72 61 63 65 20 62 65 66 |in backt|race bef|
|000009e0| 6f 72 65 20 74 68 65 20 | 6f 6e 65 20 70 6f 69 6e |ore the |one poin|
|000009f0| 74 20 70 6f 69 6e 74 73 | 20 61 74 2e 22 20 28 62 |t points| at." (b|
|00000a00| 79 74 65 2d 63 6f 64 65 | 20 22 8a c2 20 88 60 c3 |yte-code| ".. .`.|
|00000a10| 19 18 65 62 88 c4 c5 60 | 60 c6 5c 5c 5c 22 c7 5c |..eb...`|`.\\\".\|
|00000a20| 22 86 20 00 c4 c5 60 60 | c6 5c 5c 5c 22 c8 5c 22 |". ...``|.\\\".\"|
|00000a30| 85 2a 00 c9 ca 21 88 cb | cc 21 88 cd cc 21 88 ce |.*...!..|.!...!..|
|00000a40| cf 21 88 67 d0 55 83 3f | 00 cb cc 21 82 42 00 cb |.!.g.U.?|...!.B..|
|00000a50| cf 21 88 cd cc 21 88 60 | 08 58 85 55 00 09 54 89 |.!...!.`|.X.U..T.|
|00000a60| 11 88 82 2f 00 88 09 2a | 29 87 22 20 5b 6f 70 6f |.../...*|)." [opo|
|00000a70| 69 6e 74 20 63 6f 75 6e | 74 20 62 65 67 69 6e 6e |int coun|t beginn|
|00000a80| 69 6e 67 2d 6f 66 2d 6c | 69 6e 65 20 30 20 65 71 |ing-of-l|ine 0 eq|
|00000a90| 75 61 6c 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 |ual buff|er-subst|
|00000aa0| 72 69 6e 67 20 36 20 22 | 53 69 67 6e 61 6c 22 20 |ring 6 "|Signal" |
|00000ab0| 22 52 65 74 75 72 6e 22 | 20 73 65 61 72 63 68 2d |"Return"| search-|
|00000ac0| 66 6f 72 77 61 72 64 20 | 22 3a 22 20 66 6f 72 77 |forward |":" forw|
|00000ad0| 61 72 64 2d 73 65 78 70 | 20 31 20 66 6f 72 77 61 |ard-sexp| 1 forwa|
|00000ae0| 72 64 2d 6c 69 6e 65 20 | 66 6f 72 77 61 72 64 2d |rd-line |forward-|
|00000af0| 63 68 61 72 20 32 20 34 | 30 5d 20 31 35 29 29 0a |char 2 4|0] 15)).|
|00000b00| 0a 28 64 65 66 63 6f 6e | 73 74 20 64 65 62 75 67 |.(defcon|st debug|
|00000b10| 67 65 72 2d 66 72 61 6d | 65 2d 6f 66 66 73 65 74 |ger-fram|e-offset|
|00000b20| 20 38 20 22 5c 0a 22 29 | 0a 0a 28 64 65 66 75 6e | 8 "\.")|..(defun|
|00000b30| 20 64 65 62 75 67 67 65 | 72 2d 66 72 61 6d 65 20 | debugge|r-frame |
|00000b40| 6e 69 6c 20 22 5c 0a 52 | 65 71 75 65 73 74 20 65 |nil "\.R|equest e|
|00000b50| 6e 74 72 79 20 74 6f 20 | 64 65 62 75 67 67 65 72 |ntry to |debugger|
|00000b60| 20 77 68 65 6e 20 74 68 | 69 73 20 66 72 61 6d 65 | when th|is frame|
|00000b70| 20 65 78 69 74 73 2e 0a | 41 70 70 6c 69 65 73 20 | exits..|Applies |
|00000b80| 74 6f 20 74 68 65 20 66 | 72 61 6d 65 20 77 68 6f |to the f|rame who|
|00000b90| 73 65 20 6c 69 6e 65 20 | 70 6f 69 6e 74 20 69 73 |se line |point is|
|00000ba0| 20 6f 6e 20 69 6e 20 74 | 68 65 20 62 61 63 6b 74 | on in t|he backt|
|00000bb0| 72 61 63 65 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |race." (|interact|
|00000bc0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000bd0| 22 c4 88 c5 20 88 c6 20 | 18 c7 08 09 5c 5c c2 5c |"... .. |....\\.\|
|00000be0| 22 29 88 67 c8 55 85 1f | 00 c4 1b c9 ca 21 88 cb |").g.U..|.....!..|
|00000bf0| 63 29 88 c5 20 87 22 20 | 5b 6c 65 76 65 6c 20 64 |c).. ." |[level d|
|00000c00| 65 62 75 67 67 65 72 2d | 66 72 61 6d 65 2d 6f 66 |ebugger-|frame-of|
|00000c10| 66 73 65 74 20 74 20 62 | 75 66 66 65 72 2d 72 65 |fset t b|uffer-re|
|00000c20| 61 64 2d 6f 6e 6c 79 20 | 6e 69 6c 20 62 65 67 69 |ad-only |nil begi|
|00000c30| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 20 64 65 |nning-of|-line de|
|00000c40| 62 75 67 67 65 72 2d 66 | 72 61 6d 65 2d 6e 75 6d |bugger-f|rame-num|
|00000c50| 62 65 72 20 62 61 63 6b | 74 72 61 63 65 2d 64 65 |ber back|trace-de|
|00000c60| 62 75 67 20 33 32 20 64 | 65 6c 65 74 65 2d 63 68 |bug 32 d|elete-ch|
|00000c70| 61 72 20 31 20 34 32 5d | 20 36 29 29 0a 0a 28 64 |ar 1 42]| 6))..(d|
|00000c80| 65 66 75 6e 20 64 65 62 | 75 67 67 65 72 2d 66 72 |efun deb|ugger-fr|
|00000c90| 61 6d 65 2d 63 6c 65 61 | 72 20 6e 69 6c 20 22 5c |ame-clea|r nil "\|
|00000ca0| 0a 44 6f 20 6e 6f 74 20 | 65 6e 74 65 72 20 74 6f |.Do not |enter to|
|00000cb0| 20 64 65 62 75 67 67 65 | 72 20 77 68 65 6e 20 74 | debugge|r when t|
|00000cc0| 68 69 73 20 66 72 61 6d | 65 20 65 78 69 74 73 2e |his fram|e exits.|
|00000cd0| 0a 41 70 70 6c 69 65 73 | 20 74 6f 20 74 68 65 20 |.Applies| to the |
|00000ce0| 66 72 61 6d 65 20 77 68 | 6f 73 65 20 6c 69 6e 65 |frame wh|ose line|
|00000cf0| 20 70 6f 69 6e 74 20 69 | 73 20 6f 6e 20 69 6e 20 | point i|s on in |
|00000d00| 74 68 65 20 62 61 63 6b | 74 72 61 63 65 2e 22 20 |the back|trace." |
|00000d10| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00000d20| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 c4 20 88 c5 |yte-code| "... ..|
|00000d30| 20 18 c6 08 09 5c 5c c2 | 5c 22 29 88 67 c7 55 85 | ....\\.|\").g.U.|
|00000d40| 1f 00 c2 1b c8 c9 21 88 | ca 63 29 88 c4 20 87 22 |......!.|.c).. ."|
|00000d50| 20 5b 6c 65 76 65 6c 20 | 64 65 62 75 67 67 65 72 | [level |debugger|
|00000d60| 2d 66 72 61 6d 65 2d 6f | 66 66 73 65 74 20 6e 69 |-frame-o|ffset ni|
|00000d70| 6c 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |l buffer|-read-on|
|00000d80| 6c 79 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |ly begin|ning-of-|
|00000d90| 6c 69 6e 65 20 64 65 62 | 75 67 67 65 72 2d 66 72 |line deb|ugger-fr|
|00000da0| 61 6d 65 2d 6e 75 6d 62 | 65 72 20 62 61 63 6b 74 |ame-numb|er backt|
|00000db0| 72 61 63 65 2d 64 65 62 | 75 67 20 34 32 20 64 65 |race-deb|ug 42 de|
|00000dc0| 6c 65 74 65 2d 63 68 61 | 72 20 31 20 33 32 5d 20 |lete-cha|r 1 32] |
|00000dd0| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 65 62 75 |6))..(de|fun debu|
|00000de0| 67 67 65 72 2d 65 76 61 | 6c 2d 65 78 70 72 65 73 |gger-eva|l-expres|
|00000df0| 73 69 6f 6e 20 28 65 78 | 70 29 20 28 69 6e 74 65 |sion (ex|p) (inte|
|00000e00| 72 61 63 74 69 76 65 20 | 22 78 45 76 61 6c 3a 20 |ractive |"xEval: |
|00000e10| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |") (byte|-code ".|
|00000e20| 88 8a c3 08 21 3f 85 0d | 00 70 89 10 88 08 71 88 |....!?..|.p....q.|
|00000e30| c4 09 21 29 87 22 20 5b | 64 65 62 75 67 67 65 72 |..!)." [|debugger|
|00000e40| 2d 6f 6c 64 2d 62 75 66 | 66 65 72 20 65 78 70 20 |-old-buf|fer exp |
|00000e50| 6e 69 6c 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |nil buff|er-name |
|00000e60| 65 76 61 6c 2d 65 78 70 | 72 65 73 73 69 6f 6e 5d |eval-exp|ression]|
|00000e70| 20 33 29 29 0a 0a 28 64 | 65 66 76 61 72 20 64 65 | 3))..(d|efvar de|
|00000e80| 62 75 67 67 65 72 2d 6d | 6f 64 65 2d 6d 61 70 20 |bugger-m|ode-map |
|00000e90| 6e 69 6c 29 0a 0a 28 69 | 66 20 64 65 62 75 67 67 |nil)..(i|f debugg|
|00000ea0| 65 72 2d 6d 6f 64 65 2d | 6d 61 70 20 6e 69 6c 20 |er-mode-|map nil |
|00000eb0| 28 6c 65 74 20 28 28 6c | 6f 6f 70 20 33 32 29 29 |(let ((l|oop 32))|
|00000ec0| 20 28 73 65 74 71 20 64 | 65 62 75 67 67 65 72 2d | (setq d|ebugger-|
|00000ed0| 6d 6f 64 65 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 6b |mode-map| (make-k|
|00000ee0| 65 79 6d 61 70 29 29 20 | 28 73 75 70 70 72 65 73 |eymap)) |(suppres|
|00000ef0| 73 2d 6b 65 79 6d 61 70 | 20 64 65 62 75 67 67 65 |s-keymap| debugge|
|00000f00| 72 2d 6d 6f 64 65 2d 6d | 61 70 29 20 28 64 65 66 |r-mode-m|ap) (def|
|00000f10| 69 6e 65 2d 6b 65 79 20 | 64 65 62 75 67 67 65 72 |ine-key |debugger|
|00000f20| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 2d 22 20 28 71 |-mode-ma|p "-" (q|
|00000f30| 75 6f 74 65 20 6e 65 67 | 61 74 69 76 65 2d 61 72 |uote neg|ative-ar|
|00000f40| 67 75 6d 65 6e 74 29 29 | 20 28 64 65 66 69 6e 65 |gument))| (define|
|00000f50| 2d 6b 65 79 20 64 65 62 | 75 67 67 65 72 2d 6d 6f |-key deb|ugger-mo|
|00000f60| 64 65 2d 6d 61 70 20 22 | 62 22 20 28 71 75 6f 74 |de-map "|b" (quot|
|00000f70| 65 20 64 65 62 75 67 67 | 65 72 2d 66 72 61 6d 65 |e debugg|er-frame|
|00000f80| 29 29 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 64 |)) (defi|ne-key d|
|00000f90| 65 62 75 67 67 65 72 2d | 6d 6f 64 65 2d 6d 61 70 |ebugger-|mode-map|
|00000fa0| 20 22 63 22 20 28 71 75 | 6f 74 65 20 64 65 62 75 | "c" (qu|ote debu|
|00000fb0| 67 67 65 72 2d 63 6f 6e | 74 69 6e 75 65 29 29 20 |gger-con|tinue)) |
|00000fc0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 64 65 62 75 |(define-|key debu|
|00000fd0| 67 67 65 72 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 72 |gger-mod|e-map "r|
|00000fe0| 22 20 28 71 75 6f 74 65 | 20 64 65 62 75 67 67 65 |" (quote| debugge|
|00000ff0| 72 2d 72 65 74 75 72 6e | 2d 76 61 6c 75 65 29 29 |r-return|-value))|
|00001000| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 65 62 | (define|-key deb|
|00001010| 75 67 67 65 72 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |ugger-mo|de-map "|
|00001020| 75 22 20 28 71 75 6f 74 | 65 20 64 65 62 75 67 67 |u" (quot|e debugg|
|00001030| 65 72 2d 66 72 61 6d 65 | 2d 63 6c 65 61 72 29 29 |er-frame|-clear))|
|00001040| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 64 65 62 | (define|-key deb|
|00001050| 75 67 67 65 72 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |ugger-mo|de-map "|
|00001060| 64 22 20 28 71 75 6f 74 | 65 20 64 65 62 75 67 67 |d" (quot|e debugg|
|00001070| 65 72 2d 73 74 65 70 2d | 74 68 72 6f 75 67 68 29 |er-step-|through)|
|00001080| 29 20 28 64 65 66 69 6e | 65 2d 6b 65 79 20 64 65 |) (defin|e-key de|
|00001090| 62 75 67 67 65 72 2d 6d | 6f 64 65 2d 6d 61 70 20 |bugger-m|ode-map |
|000010a0| 22 68 22 20 28 71 75 6f | 74 65 20 64 65 73 63 72 |"h" (quo|te descr|
|000010b0| 69 62 65 2d 6d 6f 64 65 | 29 29 20 28 64 65 66 69 |ibe-mode|)) (defi|
|000010c0| 6e 65 2d 6b 65 79 20 64 | 65 62 75 67 67 65 72 2d |ne-key d|ebugger-|
|000010d0| 6d 6f 64 65 2d 6d 61 70 | 20 22 71 22 20 28 71 75 |mode-map| "q" (qu|
|000010e0| 6f 74 65 20 74 6f 70 2d | 6c 65 76 65 6c 29 29 20 |ote top-|level)) |
|000010f0| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 64 65 62 75 |(define-|key debu|
|00001100| 67 67 65 72 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 65 |gger-mod|e-map "e|
|00001110| 22 20 28 71 75 6f 74 65 | 20 64 65 62 75 67 67 65 |" (quote| debugge|
|00001120| 72 2d 65 76 61 6c 2d 65 | 78 70 72 65 73 73 69 6f |r-eval-e|xpressio|
|00001130| 6e 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |n)) (def|ine-key |
|00001140| 64 65 62 75 67 67 65 72 | 2d 6d 6f 64 65 2d 6d 61 |debugger|-mode-ma|
|00001150| 70 20 22 20 22 20 28 71 | 75 6f 74 65 20 6e 65 78 |p " " (q|uote nex|
|00001160| 74 2d 6c 69 6e 65 29 29 | 29 29 0a 0a 28 70 75 74 |t-line))|))..(put|
|00001170| 20 28 71 75 6f 74 65 20 | 64 65 62 75 67 67 65 72 | (quote |debugger|
|00001180| 2d 6d 6f 64 65 29 20 28 | 71 75 6f 74 65 20 6d 6f |-mode) (|quote mo|
|00001190| 64 65 2d 63 6c 61 73 73 | 29 20 28 71 75 6f 74 65 |de-class|) (quote|
|000011a0| 20 73 70 65 63 69 61 6c | 29 29 0a 0a 28 64 65 66 | special|))..(def|
|000011b0| 75 6e 20 64 65 62 75 67 | 67 65 72 2d 6d 6f 64 65 |un debug|ger-mode|
|000011c0| 20 6e 69 6c 20 22 5c 0a | 4d 6f 64 65 20 66 6f 72 | nil "\.|Mode for|
|000011d0| 20 62 61 63 6b 74 72 61 | 63 65 20 62 75 66 66 65 | backtra|ce buffe|
|000011e0| 72 73 2c 20 73 65 6c 65 | 63 74 65 64 20 69 6e 20 |rs, sele|cted in |
|000011f0| 64 65 62 75 67 67 65 72 | 2e 0a 5c 5c 7b 64 65 62 |debugger|..\\{deb|
|00001200| 75 67 67 65 72 2d 6d 6f | 64 65 2d 6d 61 70 7d 0a |ugger-mo|de-map}.|
|00001210| 46 6f 72 20 74 68 65 20 | 72 20 63 6f 6d 6d 61 6e |For the |r comman|
|00001220| 64 2c 20 77 68 65 6e 20 | 69 6e 20 64 65 62 75 67 |d, when |in debug|
|00001230| 67 65 72 20 64 75 65 20 | 74 6f 20 66 72 61 6d 65 |ger due |to frame|
|00001240| 20 62 65 69 6e 67 20 65 | 78 69 74 65 64 2c 0a 20 | being e|xited,. |
|00001250| 20 20 20 74 68 65 20 76 | 61 6c 75 65 20 73 70 65 |   the v|alue spe|
|00001260| 63 69 66 69 65 64 20 68 | 65 72 65 20 77 69 6c 6c |cified h|ere will|
|00001270| 20 62 65 20 75 73 65 64 | 20 61 73 20 74 68 65 20 | be used| as the |
|00001280| 76 61 6c 75 65 20 6f 66 | 20 74 68 61 74 20 66 72 |value of| that fr|
|00001290| 61 6d 65 2e 0a 0a 4e 6f | 74 65 20 6c 69 6e 65 73 |ame...No|te lines|
|000012a0| 20 73 74 61 72 74 69 6e | 67 20 77 69 74 68 20 2a | startin|g with *|
|000012b0| 20 61 72 65 20 66 72 61 | 6d 65 73 20 74 68 61 74 | are fra|mes that|
|000012c0| 20 77 69 6c 6c 0a 20 65 | 6e 74 65 72 20 64 65 62 | will. e|nter deb|
|000012d0| 75 67 67 65 72 20 77 68 | 65 6e 20 65 78 69 74 65 |ugger wh|en exite|
|000012e0| 64 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |d." (byt|e-code "|
|000012f0| c6 20 88 c7 89 10 88 c8 | 89 11 88 c3 89 12 88 c9 |. ......|........|
|00001300| 0c 21 88 ca 0d 21 87 22 | 20 5b 6d 61 6a 6f 72 2d |.!...!."| [major-|
|00001310| 6d 6f 64 65 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 74 |mode mod|e-name t|
|00001320| 72 75 6e 63 61 74 65 2d | 6c 69 6e 65 73 20 74 20 |runcate-|lines t |
|00001330| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 2d |emacs-li|sp-mode-|
|00001340| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 64 65 62 |syntax-t|able deb|
|00001350| 75 67 67 65 72 2d 6d 6f | 64 65 2d 6d 61 70 20 6b |ugger-mo|de-map k|
|00001360| 69 6c 6c 2d 61 6c 6c 2d | 6c 6f 63 61 6c 2d 76 61 |ill-all-|local-va|
|00001370| 72 69 61 62 6c 65 73 20 | 64 65 62 75 67 67 65 72 |riables |debugger|
|00001380| 2d 6d 6f 64 65 20 22 44 | 65 62 75 67 67 65 72 22 |-mode "D|ebugger"|
|00001390| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|000013a0| 65 20 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 5d |e use-lo|cal-map]|
|000013b0| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 64 65 62 | 4))..(d|efun deb|
|000013c0| 75 67 2d 6f 6e 2d 65 6e | 74 72 79 20 28 66 75 6e |ug-on-en|try (fun|
|000013d0| 63 74 69 6f 6e 29 20 22 | 5c 0a 52 65 71 75 65 73 |ction) "|\.Reques|
|000013e0| 74 20 46 55 4e 43 54 49 | 4f 4e 20 74 6f 20 69 6e |t FUNCTI|ON to in|
|000013f0| 76 6f 6b 65 20 64 65 62 | 75 67 67 65 72 20 65 61 |voke deb|ugger ea|
|00001400| 63 68 20 74 69 6d 65 20 | 69 74 20 69 73 20 63 61 |ch time |it is ca|
|00001410| 6c 6c 65 64 2e 0a 49 66 | 20 74 68 65 20 75 73 65 |lled..If| the use|
|00001420| 72 20 63 6f 6e 74 69 6e | 75 65 73 2c 20 46 55 4e |r contin|ues, FUN|
|00001430| 43 54 49 4f 4e 27 73 20 | 65 78 65 63 75 74 69 6f |CTION's |executio|
|00001440| 6e 20 70 72 6f 63 65 65 | 64 73 2e 0a 57 6f 72 6b |n procee|ds..Work|
|00001450| 73 20 62 79 20 6d 6f 64 | 69 66 79 69 6e 67 20 74 |s by mod|ifying t|
|00001460| 68 65 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6f 66 |he defin|ition of|
|00001470| 20 46 55 4e 43 54 49 4f | 4e 2c 0a 77 68 69 63 68 | FUNCTIO|N,.which|
|00001480| 20 6d 75 73 74 20 62 65 | 20 77 72 69 74 74 65 6e | must be| written|
|00001490| 20 69 6e 20 4c 69 73 70 | 2c 20 6e 6f 74 20 70 72 | in Lisp|, not pr|
|000014a0| 65 64 65 66 69 6e 65 64 | 2e 0a 55 73 65 20 60 63 |edefined|..Use `c|
|000014b0| 61 6e 63 65 6c 2d 64 65 | 62 75 67 2d 6f 6e 2d 65 |ancel-de|bug-on-e|
|000014c0| 6e 74 72 79 27 20 74 6f | 20 63 61 6e 63 65 6c 20 |ntry' to| cancel |
|000014d0| 74 68 65 20 65 66 66 65 | 63 74 20 6f 66 20 74 68 |the effe|ct of th|
|000014e0| 69 73 20 63 6f 6d 6d 61 | 6e 64 2e 0a 52 65 64 65 |is comma|nd..Rede|
|000014f0| 66 69 6e 69 6e 67 20 46 | 55 4e 43 54 49 4f 4e 20 |fining F|UNCTION |
|00001500| 61 6c 73 6f 20 64 6f 65 | 73 20 74 68 61 74 2e 22 |also doe|s that."|
|00001510| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 61 | (intera|ctive "a|
|00001520| 44 65 62 75 67 20 6f 6e | 20 65 6e 74 72 79 20 28 |Debug on| entry (|
|00001530| 74 6f 20 66 75 6e 63 74 | 69 6f 6e 29 3a 20 22 29 |to funct|ion): ")|
|00001540| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c3 88 09 | (byte-c|ode "...|
|00001550| 4b 18 08 40 c4 3d 83 19 | 00 09 c4 c5 09 08 41 c2 |K..@.=..|......A.|
|00001560| 23 42 4d 82 20 00 09 c5 | 09 08 c2 23 4d 29 88 09 |#BM. ...|...#M)..|
|00001570| 87 22 20 5b 64 65 66 6e | 20 66 75 6e 63 74 69 6f |." [defn| functio|
|00001580| 6e 20 74 20 6e 69 6c 20 | 6d 61 63 72 6f 20 64 65 |n t nil |macro de|
|00001590| 62 75 67 2d 6f 6e 2d 65 | 6e 74 72 79 2d 31 5d 20 |bug-on-e|ntry-1] |
|000015a0| 36 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6e 63 |6))..(de|fun canc|
|000015b0| 65 6c 2d 64 65 62 75 67 | 2d 6f 6e 2d 65 6e 74 72 |el-debug|-on-entr|
|000015c0| 79 20 28 66 75 6e 63 74 | 69 6f 6e 29 20 22 5c 0a |y (funct|ion) "\.|
|000015d0| 55 6e 64 6f 65 73 20 65 | 66 66 65 63 74 20 6f 66 |Undoes e|ffect of|
|000015e0| 20 64 65 62 75 67 2d 6f | 6e 2d 65 6e 74 72 79 20 | debug-o|n-entry |
|000015f0| 6f 6e 20 46 55 4e 43 54 | 49 4f 4e 2e 22 20 28 69 |on FUNCT|ION." (i|
|00001600| 6e 74 65 72 61 63 74 69 | 76 65 20 22 61 43 61 6e |nteracti|ve "aCan|
|00001610| 63 65 6c 20 64 65 62 75 | 67 20 6f 6e 20 65 6e 74 |cel debu|g on ent|
|00001620| 72 79 20 28 74 6f 20 66 | 75 6e 63 74 69 6f 6e 29 |ry (to f|unction)|
|00001630| 3a 20 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |: ") (by|te-code |
|00001640| 22 c2 88 09 4b 18 08 40 | c3 3d 83 19 00 09 c3 c4 |"...K..@|.=......|
|00001650| 09 08 41 c2 23 42 4d 82 | 20 00 09 c4 09 08 c2 23 |..A.#BM.| ......#|
|00001660| 4d 29 88 09 87 22 20 5b | 64 65 66 6e 20 66 75 6e |M)..." [|defn fun|
|00001670| 63 74 69 6f 6e 20 6e 69 | 6c 20 6d 61 63 72 6f 20 |ction ni|l macro |
|00001680| 64 65 62 75 67 2d 6f 6e | 2d 65 6e 74 72 79 2d 31 |debug-on|-entry-1|
|00001690| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 64 65 |] 6))..(|defun de|
|000016a0| 62 75 67 2d 6f 6e 2d 65 | 6e 74 72 79 2d 31 20 28 |bug-on-e|ntry-1 (|
|000016b0| 66 75 6e 63 74 69 6f 6e | 20 64 65 66 6e 20 66 6c |function| defn fl|
|000016c0| 61 67 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ag) (byt|e-code "|
|000016d0| 08 40 c6 3d 86 0b 00 c7 | c8 09 5c 22 88 c5 c5 1b |.@.=....|..\"....|
|000016e0| 1a c9 ca 08 5c 22 40 3b | 83 2d 00 c9 cb 08 5c 22 |....\"@;|.-....\"|
|000016f0| 12 08 40 08 41 40 08 41 | 41 40 45 89 13 82 3a 00 |..@.A@.A|A@E...:.|
|00001700| c9 ca 08 5c 22 12 08 40 | 08 41 40 44 89 13 88 0c |...\"..@|.A@D....|
|00001710| cc 0a 40 cd 5c 22 3d 83 | 49 00 c5 82 5b 00 0c 83 |..@.\"=.|I...[...|
|00001720| 56 00 ce 0b cf 0a 42 5c | 22 82 5b 00 ce 0b 0a 41 |V.....B\|".[....A|
|00001730| 5c 22 2a 87 22 20 5b 64 | 65 66 6e 20 66 75 6e 63 |\"*." [d|efn func|
|00001740| 74 69 6f 6e 20 74 61 69 | 6c 20 70 72 65 63 20 66 |tion tai|l prec f|
|00001750| 6c 61 67 20 6e 69 6c 20 | 6c 61 6d 62 64 61 20 65 |lag nil |lambda e|
|00001760| 72 72 6f 72 20 22 25 73 | 20 6e 6f 74 20 75 73 65 |rror "%s| not use|
|00001770| 72 2d 64 65 66 69 6e 65 | 64 20 4c 69 73 70 20 66 |r-define|d Lisp f|
|00001780| 75 6e 63 74 69 6f 6e 2e | 22 20 6e 74 68 63 64 72 |unction.|" nthcdr|
|00001790| 20 32 20 33 20 65 71 75 | 61 6c 20 28 64 65 62 75 | 2 3 equ|al (debu|
|000017a0| 67 20 28 71 75 6f 74 65 | 20 64 65 62 75 67 29 29 |g (quote| debug))|
|000017b0| 20 6e 63 6f 6e 63 20 28 | 64 65 62 75 67 20 28 71 | nconc (|debug (q|
|000017c0| 75 6f 74 65 20 64 65 62 | 75 67 29 29 5d 20 39 29 |uote deb|ug))] 9)|
|000017d0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+