blob: eb613e80b025d8e6980c7f02fdf37c082b39ae88 (plain)

ofs	hex dump	ascii
0000	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))..
0020	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
0040	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
0060	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
0080	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
00a0	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
00c0	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
00e0	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
0100	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.
0120	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
0140	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
0160	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
0180	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."..!....
01a0	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.....................)
01c0	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
01e0	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
0200	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
0220	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
0240	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
0260	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
0280	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
02a0	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
02c0	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
02e0	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
0300	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
0320	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-
0340	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-
0360	63 6f 64 65 20 22 c2 08 21 88 c3 09 21 87 22 20 5b 64 65 62 75 67 67 65 72 2d 62 75 66 66 65 72	code."..!...!.".[debugger-buffer
0380	20 64 65 62 75 67 67 65 72 2d 6d 61 74 63 68 2d 64 61 74 61 20 6b 69 6c 6c 2d 62 75 66 66 65 72	.debugger-match-data.kill-buffer
03a0	20 73 74 6f 72 65 2d 6d 61 74 63 68 2d 64 61 74 61 5d 20 33 29 29 20 28 28 62 79 74 65 2d 63 6f	.store-match-data].3)).((byte-co
03c0	64 65 20 22 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	de."..!....p.......+.eb.....`..!
03e0	88 d2 d3 21 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	...!.`\"..@.>.F..c..@.=.C....\".
0400	d9 d3 21 88 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	..!..c.......@.=.l..c...8.......
0420	70 5c 22 88 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	p\"..c...!..c.......@.=....c....
0440	38 70 5c 22 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	8p\"..c....@.=....c.....@.=....A
0460	82 9c 00 0d 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	....p\"..c...!...........!...+."
0480	20 5b 64 65 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	.[debugger-buffer.standard-outpu
04a0	74 20 70 72 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	t.print-escape-newlines.t.print-
04c0	6c 65 6e 67 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	length.debugger-args.debugger-va
04e0	6c 75 65 20 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	lue.inhibit-trace.nil.buffer-rea
0500	64 2d 6f 6e 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	d-only.pop-to-buffer.erase-buffe
0520	72 20 35 30 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	r.50.backtrace.debugger-mode.del
0540	65 74 65 2d 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	ete-region.forward-sexp.8.forwar
0560	64 2d 6c 69 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	d-line.1.(lambda.debug)."Enterin
0580	67 3a 0a 22 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	g:.".debug.backtrace-debug.4.del
05a0	65 74 65 2d 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	ete-char.42.beginning-of-line.ex
05c0	69 74 20 22 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	it."Return.value:.".prin1.10.32.
05e0	65 72 72 6f 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	error."Signalling:."."Beginning.
0600	65 76 61 6c 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	evaluation.of.function.call.form
0620	3a 0a 22 20 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	:.".message."".recursive-edit].1
0640	39 29 29 5d 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	9))].12))..(defun.debugger-step-
0660	74 68 72 6f 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	through.nil."\.Proceed,.stepping
0680	20 74 68 72 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	.through.subexpressions.of.this.
06a0	65 78 70 72 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	expression..Enter.another.debugg
06c0	65 72 20 6f 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	er.on.next.entry.to.eval,.apply.
06e0	6f 72 20 66 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	or.funcall.".(interactive).(byte
0700	2d 63 6f 64 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	-code."........!....".[debugger-
0720	73 74 65 70 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	step-after-exit.t.nil.message."P
0740	72 6f 63 65 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	roceding,.will.debug.on.next.eva
0760	6c 20 6f 72 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	l.or.call.".exit-recursive-edit]
0780	20 33 29 29 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	.3))..(defun.debugger-continue.n
07a0	69 6c 20 22 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	il."\.Continue,.evaluating.this.
07c0	65 78 70 72 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	expression.without.stopping.".(i
07e0	6e 74 65 72 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	nteractive).(byte-code."....!...
0800	87 22 20 5b 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	.".[nil.message."Continuing.".ex
0820	69 74 2d 72 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	it-recursive-edit].3))..(defun.d
0840	65 62 75 67 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	ebugger-return-value.(val)."\.Co
0860	6e 74 69 6e 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	ntinue,.specifying.value.to.retu
0880	72 6e 2e 0a 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	rn..This.is.only.useful.when.the
08a0	20 76 61 6c 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	.value.returned.from.the.debugge
08c0	72 0a 77 69 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	r.will.be.used,.such.as.in.a.deb
08e0	75 67 20 6f 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	ug.on.exit.from.a.frame.".(inter
0900	61 63 74 69 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	active."XReturn.value.(evaluated
0920	29 3a 20 22 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	):.").(byte-code.".........\"...
0940	21 88 c7 20 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	!....".[debugger-value.val.t.nil
0960	20 70 72 69 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	.princ."Returning.".prin1.exit-r
0980	65 63 75 72 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	ecursive-edit].4))..(defun.debug
09a0	67 65 72 2d 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	ger-frame-number.nil."\.Return.n
09c0	75 6d 62 65 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	umber.of.frames.in.backtrace.bef
09e0	6f 72 65 20 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	ore.the.one.point.points.at.".(b
0a00	79 74 65 2d 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	yte-code."....`...eb...``.\\\".\
0a20	22 86 20 00 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	".....``.\\\".\".*...!...!...!..
0a40	cf 21 88 67 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	.!.g.U.?...!.B...!...!.`.X.U..T.
0a60	11 88 82 2f 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	.../...*).".[opoint.count.beginn
0a80	69 6e 67 2d 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	ing-of-line.0.equal.buffer-subst
0aa0	72 69 6e 67 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	ring.6."Signal"."Return".search-
0ac0	66 6f 72 77 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	forward.":".forward-sexp.1.forwa
0ae0	72 64 2d 6c 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	rd-line.forward-char.2.40].15)).
0b00	0a 28 64 65 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	.(defconst.debugger-frame-offset
0b20	20 38 20 22 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	.8."\.")..(defun.debugger-frame.
0b40	6e 69 6c 20 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	nil."\.Request.entry.to.debugger
0b60	20 77 68 65 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	.when.this.frame.exits..Applies.
0b80	74 6f 20 74 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	to.the.frame.whose.line.point.is
0ba0	20 6f 6e 20 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	.on.in.the.backtrace.".(interact
0bc0	69 76 65 29 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	ive).(byte-code."...........\\.\
0be0	22 29 88 67 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	").g.U.......!..c)....".[level.d
0c00	65 62 75 67 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	ebugger-frame-offset.t.buffer-re
0c20	61 64 2d 6f 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	ad-only.nil.beginning-of-line.de
0c40	62 75 67 67 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	bugger-frame-number.backtrace-de
0c60	62 75 67 20 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	bug.32.delete-char.1.42].6))..(d
0c80	65 66 75 6e 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	efun.debugger-frame-clear.nil."\
0ca0	0a 44 6f 20 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	.Do.not.enter.to.debugger.when.t
0cc0	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 68 65 20	his.frame.exits..Applies.to.the.
0ce0	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 69 6e 20	frame.whose.line.point.is.on.in.
0d00	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 20 28 62	the.backtrace.".(interactive).(b
0d20	79 74 65 2d 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	yte-code."...........\\.\").g.U.
0d40	1f 00 c2 1b 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	......!..c)....".[level.debugger
0d60	2d 66 72 61 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	-frame-offset.nil.buffer-read-on
0d80	6c 79 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 65 72 2d 66 72	ly.beginning-of-line.debugger-fr
0da0	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 34 32 20 64 65	ame-number.backtrace-debug.42.de
0dc0	6c 65 74 65 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	lete-char.1.32].6))..(defun.debu
0de0	67 67 65 72 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	gger-eval-expression.(exp).(inte
0e00	72 61 63 74 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	ractive."xEval:.").(byte-code.".
0e20	88 8a c3 08 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	....!?...p....q...!).".[debugger
0e40	2d 6f 6c 64 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	-old-buffer.exp.nil.buffer-name.
0e60	65 76 61 6c 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	eval-expression].3))..(defvar.de
0e80	62 75 67 67 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	bugger-mode-map.nil)..(if.debugg
0ea0	65 72 2d 6d 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	er-mode-map.nil.(let.((loop.32))
0ec0	20 28 73 65 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	.(setq.debugger-mode-map.(make-k
0ee0	65 79 6d 61 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	eymap)).(suppress-keymap.debugge
0f00	72 2d 6d 6f 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	r-mode-map).(define-key.debugger
0f20	2d 6d 6f 64 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	-mode-map."-".(quote.negative-ar
0f40	67 75 6d 65 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	gument)).(define-key.debugger-mo
0f60	64 65 2d 6d 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	de-map."b".(quote.debugger-frame
0f80	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 61 70	)).(define-key.debugger-mode-map
0fa0	20 22 63 22 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	."c".(quote.debugger-continue)).
0fc0	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 61 70 20 22 72	(define-key.debugger-mode-map."r
0fe0	22 20 28 71 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	".(quote.debugger-return-value))
1000	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 61 70 20 22	.(define-key.debugger-mode-map."
1020	75 22 20 28 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	u".(quote.debugger-frame-clear))
1040	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 61 70 20 22	.(define-key.debugger-mode-map."
1060	64 22 20 28 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	d".(quote.debugger-step-through)
1080	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 61 70 20	).(define-key.debugger-mode-map.
10a0	22 68 22 20 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	"h".(quote.describe-mode)).(defi
10c0	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 71 22 20 28 71 75	ne-key.debugger-mode-map."q".(qu
10e0	6f 74 65 20 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	ote.top-level)).(define-key.debu
1100	67 67 65 72 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	gger-mode-map."e".(quote.debugge
1120	72 2d 65 76 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	r-eval-expression)).(define-key.
1140	64 65 62 75 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	debugger-mode-map.".".(quote.nex
1160	74 2d 6c 69 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	t-line))))..(put.(quote.debugger
1180	2d 6d 6f 64 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	-mode).(quote.mode-class).(quote
11a0	20 73 70 65 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	.special))..(defun.debugger-mode
11c0	20 6e 69 6c 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	.nil."\.Mode.for.backtrace.buffe
11e0	72 73 2c 20 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	rs,.selected.in.debugger..\\{deb
1200	75 67 67 65 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	ugger-mode-map}.For.the.r.comman
1220	64 2c 20 77 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	d,.when.in.debugger.due.to.frame
1240	20 62 65 69 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	.being.exited,.....the.value.spe
1260	63 69 66 69 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	cified.here.will.be.used.as.the.
1280	76 61 6c 75 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	value.of.that.frame...Note.lines
12a0	20 73 74 61 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	.starting.with.*.are.frames.that
12c0	20 77 69 6c 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	.will..enter.debugger.when.exite
12e0	64 2e 22 20 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	d.".(byte-code."................
1300	0c 21 88 ca 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	.!...!.".[major-mode.mode-name.t
1320	72 75 6e 63 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	runcate-lines.t.emacs-lisp-mode-
1340	73 79 6e 74 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	syntax-table.debugger-mode-map.k
1360	69 6c 6c 2d 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	ill-all-local-variables.debugger
1380	2d 6d 6f 64 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	-mode."Debugger".set-syntax-tabl
13a0	65 20 75 73 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	e.use-local-map].4))..(defun.deb
13c0	75 67 2d 6f 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	ug-on-entry.(function)."\.Reques
13e0	74 20 46 55 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	t.FUNCTION.to.invoke.debugger.ea
1400	63 68 20 74 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	ch.time.it.is.called..If.the.use
1420	72 20 63 6f 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	r.continues,.FUNCTION's.executio
1440	6e 20 70 72 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	n.proceeds..Works.by.modifying.t
1460	68 65 20 64 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	he.definition.of.FUNCTION,.which
1480	20 6d 75 73 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	.must.be.written.in.Lisp,.not.pr
14a0	65 64 65 66 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	edefined..Use.`cancel-debug-on-e
14c0	6e 74 72 79 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	ntry'.to.cancel.the.effect.of.th
14e0	69 73 20 63 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	is.command..Redefining.FUNCTION.
1500	61 6c 73 6f 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	also.does.that.".(interactive."a
1520	44 65 62 75 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	Debug.on.entry.(to.function):.")
1540	20 28 62 79 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	.(byte-code."...K..@.=........A.
1560	23 42 4d 82 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	#BM........#M)...".[defn.functio
1580	6e 20 74 20 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	n.t.nil.macro.debug-on-entry-1].
15a0	36 29 29 0a 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	6))..(defun.cancel-debug-on-entr
15c0	79 20 28 66 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	y.(function)."\.Undoes.effect.of
15e0	20 64 65 62 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	.debug-on-entry.on.FUNCTION.".(i
1600	6e 74 65 72 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	nteractive."aCancel.debug.on.ent
1620	72 79 20 28 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	ry.(to.function):.").(byte-code.
1640	22 c2 88 09 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	"...K..@.=........A.#BM........#
1660	4d 29 88 09 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	M)...".[defn.function.nil.macro.
1680	64 65 62 75 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	debug-on-entry-1].6))..(defun.de
16a0	62 75 67 2d 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	bug-on-entry-1.(function.defn.fl
16c0	61 67 29 20 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	ag).(byte-code.".@.=......\"....
16e0	1a c9 ca 08 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	....\"@;.-....\"..@.A@.AA@E...:.
1700	c9 ca 08 5c 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	...\"..@.A@D......@.\"=.I...[...
1720	56 00 ce 0b 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	V.....B\".[....A\"*.".[defn.func
1740	74 69 6f 6e 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	tion.tail.prec.flag.nil.lambda.e
1760	72 72 6f 72 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	rror."%s.not.user-defined.Lisp.f
1780	75 6e 63 74 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	unction.".nthcdr.2.3.equal.(debu
17a0	67 20 28 71 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	g.(quote.debug)).nconc.(debug.(q
17c0	75 6f 74 65 20 64 65 62 75 67 29 29 5d 20 39 29 29 0a	uote.debug))].9)).