blob: a9811121404871944fda30a42bc72798d4836aad (plain)

ofs	hex dump	ascii
0000	0a 28 72 61 6e 64 6f 6d 20 74 29 0a 0a 28 64 65 66 75 6e 20 79 6f 77 20 28 26 6f 70 74 69 6f 6e	.(random.t)..(defun.yow.(&option
0020	61 6c 20 6e 20 69 6e 74 65 72 61 63 74 69 76 65 29 20 22 5c 0a 52 65 74 75 72 6e 20 6f 72 20 64	al.n.interactive)."\.Return.or.d
0040	69 73 70 6c 61 79 20 61 20 5a 69 70 70 79 20 71 75 6f 74 61 74 69 6f 6e 22 20 28 69 6e 74 65 72	isplay.a.Zippy.quotation".(inter
0060	61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0c 00 c3 08 21 c1 44 82 0f 00 c2	active.(byte-code."......!.D....
0080	c1 44 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 20 6e 69 6c 20 70	.D.".[current-prefix-arg.t.nil.p
00a0	72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 5d 20 33 29 29 20 28 62 79 74 65 2d 63	refix-numeric-value].3)).(byte-c
00c0	6f 64 65 20 22 c2 88 0b 3f 85 0b 00 c7 20 89 13 88 0c 86 21 00 c8 c9 20 0b 47 5c 22 89 14 ca 59	ode."...?..........!.....G\"...Y
00e0	86 21 00 0c 5b 89 14 88 0b 0c 48 1d 0e 06 3f 83 30 00 0d 82 4e 00 cb cc 0d 5c 22 3f 83 44 00 cd	.!..[.....H...?.0...N....\"?.D..
0100	ce cf 21 21 88 d0 0d 21 82 4e 00 d0 d1 21 88 cf 90 d2 0d 21 91 29 87 22 20 5b 63 75 72 72 65 6e	..!!...!.N...!.....!.).".[curren
0120	74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 20 6e 69 6c 20 79 6f 77 2d 76 65 63 74 6f 72 20 6e 20	t-prefix-arg.t.nil.yow-vector.n.
0140	79 6f 77 20 69 6e 74 65 72 61 63 74 69 76 65 20 73 6e 61 72 66 2d 79 6f 77 73 20 25 20 72 61 6e	yow.interactive.snarf-yows.%.ran
0160	64 6f 6d 20 30 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 0a 22 20 64 65 6c 65 74 65 2d 77 69	dom.0.string-match.".".delete-wi
0180	6e 64 6f 77 73 2d 6f 6e 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 48 65 6c	ndows-on.get-buffer-create."*Hel
01a0	70 2a 22 20 6d 65 73 73 61 67 65 20 22 59 6f 77 21 22 20 70 72 69 6e 63 5d 20 31 31 29 29 0a 0a	p*".message."Yow!".princ].11))..
01c0	28 64 65 66 76 61 72 20 79 6f 77 2d 76 65 63 74 6f 72 20 6e 69 6c 20 22 5c 0a 50 65 72 74 69 6e	(defvar.yow-vector.nil."\.Pertin
01e0	65 6e 74 20 70 69 6e 68 65 61 64 20 73 74 61 74 65 6d 65 6e 74 73 22 29 0a 0a 28 64 65 66 75 6e	ent.pinhead.statements")..(defun
0200	20 73 6e 61 72 66 2d 79 6f 77 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 29 20 28 62 79	.snarf-yows.(&optional.file).(by
0220	74 65 2d 63 6f 64 65 20 22 8a c7 c8 21 c9 c3 1a 19 18 ca cb 21 88 08 71 88 cc 0c 86 19 00 cd ce	te-code."...!.......!..q........
0240	0d 5c 22 21 88 cf d0 21 88 d1 d2 21 88 6d 3f 85 3e 00 60 1e 06 cf d0 21 88 d3 0e 06 60 53 5c 22	.\"!...!...!.m?.>.`....!....`S\"
0260	09 42 89 11 29 88 82 1f 00 88 d4 08 21 88 ca d5 09 47 5c 22 88 d6 d7 d8 09 21 5c 22 2b 29 87 22	.B..).......!....G\".....!\"+)."
0280	20 5b 62 75 66 20 72 65 73 75 6c 74 20 63 75 72 73 6f 72 2d 69 6e 2d 65 63 68 6f 2d 61 72 65 61	.[buf.result.cursor-in-echo-area
02a0	20 74 20 66 69 6c 65 20 65 78 65 63 2d 64 69 72 65 63 74 6f 72 79 20 62 65 67 20 67 65 6e 65 72	.t.file.exec-directory.beg.gener
02c0	61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 79 6f 77 22 20 6e 69 6c 20 6d 65 73 73 61 67	ate-new-buffer.".yow".nil.messag
02e0	65 20 22 41 6d 20 49 20 43 4f 4e 53 49 4e 47 20 79 65 74 3f 2e 2e 2e 22 20 69 6e 73 65 72 74 2d	e."Am.I.CONSING.yet?...".insert-
0300	66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22	file-contents.expand-file-name."
0320	79 6f 77 2e 6c 69 6e 65 73 22 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 00 22 20 73 6b	yow.lines".search-forward.".".sk
0340	69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 0a 0d 0c 22 20 62 75 66 66 65 72 2d	ip-chars-forward.".....".buffer-
0360	73 75 62 73 74 72 69 6e 67 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 22 49 20 68 61 76 65 20 53 45	substring.kill-buffer."I.have.SE
0380	45 4e 20 74 68 65 20 43 4f 4e 53 49 4e 47 21 21 22 20 61 70 70 6c 79 20 76 65 63 74 6f 72 20 6e	EN.the.CONSING!!".apply.vector.n
03a0	72 65 76 65 72 73 65 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 73 79 63 68 6f 61 6e 61 6c	reverse].14))..(defun.psychoanal
03c0	79 7a 65 2d 70 69 6e 68 65 61 64 20 6e 69 6c 20 22 5c 0a 5a 69 70 70 79 20 67 6f 65 73 20 74 6f	yze-pinhead.nil."\.Zippy.goes.to
03e0	20 74 68 65 20 61 6e 61 6c 79 73 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79	.the.analyst.".(interactive).(by
0400	74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88 08 3f 85 0e 00 c3 20 89 10 88 c4 c5 21 88 c6 c7 21 88	te-code."......?..........!...!.
0420	c8 c9 21 88 ca 20 3f 85 35 00 cb cc 20 21 88 c8 c9 21 88 cd ce 21 88 cd ce 21 88 82 1b 00 87 22	..!...?.5....!...!...!...!....."
0440	20 5b 79 6f 77 2d 76 65 63 74 6f 72 20 6e 69 6c 20 64 6f 63 74 6f 72 20 73 6e 61 72 66 2d 79 6f	.[yow-vector.nil.doctor.snarf-yo
0460	77 73 20 6d 65 73 73 61 67 65 20 22 22 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22	ws.message."".switch-to-buffer."
0480	2a 64 6f 63 74 6f 72 2a 22 20 73 69 74 2d 66 6f 72 20 30 20 69 6e 70 75 74 2d 70 65 6e 64 69 6e	*doctor*".sit-for.0.input-pendin
04a0	67 2d 70 20 69 6e 73 65 72 74 2d 73 74 72 69 6e 67 20 79 6f 77 20 64 6f 63 74 6f 72 2d 72 65 74	g-p.insert-string.yow.doctor-ret
04c0	2d 6f 72 2d 72 65 61 64 20 31 5d 20 31 33 29 29 0a	-or-read.1].13)).