blob: 6ad5e273a0d643b76672e7782fb2a2ff2c493c43 (plain)

ofs	hex dump	ascii
0000	0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 6c 69 66 65 29 29 0a 0a 28 64 65 66 63 6f 6e	.(provide.(quote.life))..(defcon
0020	73 74 20 6c 69 66 65 2d 70 61 74 74 65 72 6e 73 20 5b 28 22 40 40 40 22 20 22 20 40 40 22 20 22	st.life-patterns.[("@@@".".@@"."
0040	40 40 40 22 29 20 28 22 40 40 40 20 40 40 40 22 20 22 40 40 20 20 40 40 20 22 20 22 40 40 40 20	@@@").("@@@.@@@"."@@..@@."."@@@.
0060	40 40 40 22 29 20 28 22 40 40 40 20 40 40 40 22 20 22 40 40 20 20 20 40 40 22 20 22 40 40 40 20	@@@").("@@@.@@@"."@@...@@"."@@@.
0080	40 40 40 22 29 20 28 22 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40	@@@").("@@@@@@@@@@@@@@@@@@@@@@@@
00a0	40 40 40 40 40 40 22 29 20 28 22 40 40 40 40 40 40 40 40 40 40 22 29 20 28 22 20 20 20 40 40 40	@@@@@@").("@@@@@@@@@@").("...@@@
00c0	40 40 40 40 40 40 40 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 40 40 40 40 40 40 40 40 40 40	@@@@@@@.......".".....@@@@@@@@@@
00e0	20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 40 40 40 40 40 40 40 40 40 40 20 20 20 22 20 22 40	.....".".......@@@@@@@@@@..."."@
0100	40 40 40 40 40 40 40 40 40 20 20 20 20 20 20 20 20 20 20 22 20 22 40 40 40 40 40 40 40 40 40 40	@@@@@@@@@.........."."@@@@@@@@@@
0120	20 20 20 20 20 20 20 20 20 20 22 29 20 28 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40	..........").("@"."@"."@"."@"."@
0140	22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40	"."@"."@"."@"."@"."@"."@"."@"."@
0160	22 20 22 40 22 20 22 40 22 29 20 28 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20	"."@"."@").("@...............@".
0180	22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20	"@...............@"."@..........
01a0	20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20	.....@"."@...............@"."@..
01c0	20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.............@"."@..............
01e0	20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20	.@"."@...............@"."@......
0200	20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20	.........@"."@...............@".
0220	22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20	"@...............@"."@..........
0240	20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20	.....@"."@...............@"."@..
0260	20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.............@"."@..............
0280	20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 29 20 28 22 40 40 20 20 20	.@"."@...............@").("@@...
02a0	20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20	............".".@@..............
02c0	22 20 22 20 20 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20 20 20 40 40 20 20 20 20	"."..@@............."."...@@....
02e0	20 20 20 20 20 20 20 20 22 20 22 20 20 20 20 40 40 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20	........"."....@@...........".".
0300	20 20 20 20 40 40 20 20 20 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 20 40 40 20 20 20 20 20	....@@.........."."......@@.....
0320	20 20 20 20 22 20 22 20 20 20 20 20 20 20 40 40 20 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20	....".".......@@........".".....
0340	20 20 20 40 40 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 20 40 40 20 20 20 20 20 20	...@@.......".".........@@......
0360	22 20 22 20 20 20 20 20 20 20 20 20 20 40 40 20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 20	"."..........@@.....".".........
0380	20 20 40 40 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 40 40 20 20 20 22 20 22 20	..@@...."."............@@...".".
03a0	20 20 20 20 20 20 20 20 20 20 20 20 40 40 20 20 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20	............@@..".".............
03c0	20 40 40 20 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 40 22 29 20 28 22 40 40 40	.@@."."...............@@").("@@@
03e0	40 40 40 40 40 40 22 20 22 40 20 20 20 40 20 20 20 40 22 20 22 40 20 40 40 40 40 40 20 40 22 20	@@@@@@"."@...@...@"."@.@@@@@.@".
0400	22 40 20 40 20 20 20 40 20 40 22 20 22 40 40 40 20 20 20 40 40 40 22 20 22 40 20 40 20 20 20 40	"@.@...@.@"."@@@...@@@"."@.@...@
0420	20 40 22 20 22 40 20 40 40 40 40 40 20 40 22 20 22 40 20 20 20 40 20 20 20 40 22 20 22 40 40 40	.@"."@.@@@@@.@"."@...@...@"."@@@
0440	40 40 40 40 40 40 22 29 5d 20 22 5c 0a 56 65 63 74 6f 72 20 6f 66 20 72 65 63 74 61 6e 67 6c 65	@@@@@@")]."\.Vector.of.rectangle
0460	73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 73 6f 6d 65 20 4c 69 66 65 20 73 74 61 72 74 75 70 20 70	s.containing.some.Life.startup.p
0480	61 74 74 65 72 6e 73 2e 22 29 0a 0a 28 72 65 71 75 69 72 65 20 28 70 72 6f 67 6e 20 28 64 65 66	atterns.")..(require.(progn.(def
04a0	6d 61 63 72 6f 20 6c 69 66 65 2d 6c 69 66 65 2d 63 68 61 72 20 6e 69 6c 20 36 34 29 20 28 64 65	macro.life-life-char.nil.64).(de
04c0	66 6d 61 63 72 6f 20 6c 69 66 65 2d 64 65 61 74 68 2d 63 68 61 72 20 6e 69 6c 20 28 31 2b 20 28	fmacro.life-death-char.nil.(1+.(
04e0	6c 69 66 65 2d 6c 69 66 65 2d 63 68 61 72 29 29 29 20 28 64 65 66 6d 61 63 72 6f 20 6c 69 66 65	life-life-char))).(defmacro.life
0500	2d 62 69 72 74 68 2d 63 68 61 72 20 6e 69 6c 20 33 29 20 28 64 65 66 6d 61 63 72 6f 20 6c 69 66	-birth-char.nil.3).(defmacro.lif
0520	65 2d 76 6f 69 64 2d 63 68 61 72 20 6e 69 6c 20 33 32 29 20 28 64 65 66 6d 61 63 72 6f 20 6c 69	e-void-char.nil.32).(defmacro.li
0540	66 65 2d 6c 69 66 65 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69	fe-life-string.nil.(char-to-stri
0560	6e 67 20 28 6c 69 66 65 2d 6c 69 66 65 2d 63 68 61 72 29 29 29 20 28 64 65 66 6d 61 63 72 6f 20	ng.(life-life-char))).(defmacro.
0580	6c 69 66 65 2d 64 65 61 74 68 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68 61 72 2d 74 6f 2d 73	life-death-string.nil.(char-to-s
05a0	74 72 69 6e 67 20 28 6c 69 66 65 2d 64 65 61 74 68 2d 63 68 61 72 29 29 29 20 28 64 65 66 6d 61	tring.(life-death-char))).(defma
05c0	63 72 6f 20 6c 69 66 65 2d 62 69 72 74 68 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68 61 72 2d	cro.life-birth-string.nil.(char-
05e0	74 6f 2d 73 74 72 69 6e 67 20 28 6c 69 66 65 2d 62 69 72 74 68 2d 63 68 61 72 29 29 29 20 28 64	to-string.(life-birth-char))).(d
0600	65 66 6d 61 63 72 6f 20 6c 69 66 65 2d 76 6f 69 64 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68	efmacro.life-void-string.nil.(ch
0620	61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 69 66 65 2d 76 6f 69 64 2d 63 68 61 72 29 29 29 20	ar-to-string.(life-void-char))).
0640	28 64 65 66 6d 61 63 72 6f 20 6c 69 66 65 2d 6e 6f 74 2d 76 6f 69 64 2d 72 65 67 65 78 70 20 6e	(defmacro.life-not-void-regexp.n
0660	69 6c 20 28 63 6f 6e 63 61 74 20 22 5b 5e 22 20 28 6c 69 66 65 2d 76 6f 69 64 2d 73 74 72 69 6e	il.(concat."[^".(life-void-strin
0680	67 29 20 22 0a 5d 22 29 29 20 28 64 65 66 6d 61 63 72 6f 20 67 6f 74 6f 2d 62 65 67 69 6e 6e 69	g).".]")).(defmacro.goto-beginni
06a0	6e 67 2d 6f 66 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 71 75 6f 74 65 20 28 67 6f 74 6f 2d 63 68	ng-of-buffer.nil.(quote.(goto-ch
06c0	61 72 20 31 29 29 29 20 28 64 65 66 6d 61 63 72 6f 20 6d 61 78 69 6e 74 20 6e 69 6c 20 28 6c 73	ar.1))).(defmacro.maxint.nil.(ls
06e0	68 20 28 6c 73 68 20 28 6c 6f 67 6e 6f 74 20 30 29 20 31 29 20 2d 31 29 29 20 28 64 65 66 6d 61	h.(lsh.(lognot.0).1).-1)).(defma
0700	63 72 6f 20 67 6f 74 6f 2d 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 71 75 6f 74	cro.goto-end-of-buffer.nil.(quot
0720	65 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 78 69 6e 74 29 29 29 29 20 28 64 65 66 6d 61 63	e.(goto-char.(maxint)))).(defmac
0740	72 6f 20 69 6e 63 72 65 6d 65 6e 74 20 28 76 61 72 69 61 62 6c 65 29 20 28 6c 69 73 74 20 28 71	ro.increment.(variable).(list.(q
0760	75 6f 74 65 20 73 65 74 71 29 20 76 61 72 69 61 62 6c 65 20 28 6c 69 73 74 20 28 71 75 6f 74 65	uote.setq).variable.(list.(quote
0780	20 31 2b 29 20 76 61 72 69 61 62 6c 65 29 29 29 20 28 71 75 6f 74 65 20 6c 69 66 65 29 29 29 0a	.1+).variable))).(quote.life))).
07a0	0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20	.(defconst.life-neighbor-deltas.
07c0	6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72	nil)..(defconst.life-window-star
07e0	74 20 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 63 75 72 72 65 6e 74 2d 67	t.nil)..(defconst.life-current-g
0800	65 6e 65 72 61 74 69 6f 6e 20 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 67	eneration.nil)..(defconst.life-g
0820	65 6e 65 72 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 61 62	eneration-string.nil)..(defun.ab
0840	73 20 28 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 57 83 0b 00 08 5b 82 0c 00 08 87 22	s.(n).(byte-code."..W....[....."
0860	20 5b 6e 20 30 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 66 65 20 28 26 6f 70 74 69 6f 6e	.[n.0].2))..(defun.life.(&option
0880	61 6c 20 73 6c 65 65 70 74 69 6d 65 29 20 22 5c 0a 52 75 6e 20 43 6f 6e 77 61 79 27 73 20 4c 69	al.sleeptime)."\.Run.Conway's.Li
08a0	66 65 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 54 68 65 20 73 74 61 72 74 69 6e 67 20 70 61 74 74	fe.simulation..The.starting.patt
08c0	65 72 6e 20 69 73 20 72 61 6e 64 6f 6d 6c 79 20 73 65 6c 65 63 74 65 64 2e 20 20 50 72 65 66 69	ern.is.randomly.selected...Prefi
08e0	78 20 61 72 67 20 28 6f 70 74 69 6f 6e 61 6c 20 66 69 72 73 74 20 61 72 67 0a 6e 6f 6e 2d 6e 69	x.arg.(optional.first.arg.non-ni
0900	6c 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 29 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20	l.from.a.program).is.the.number.
0920	6f 66 20 73 65 63 6f 6e 64 73 20 74 6f 20 73 6c 65 65 70 20 62 65 74 77 65 65 6e 0a 67 65 6e 65	of.seconds.to.sleep.between.gene
0940	72 61 74 69 6f 6e 73 20 28 74 68 69 73 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 29 2e 22 20 28	rations.(this.defaults.to.1).".(
0960	69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08	interactive."p").(byte-code."...
0980	86 09 00 c4 89 10 88 c5 20 88 c6 08 21 88 c1 85 28 00 c1 1a c7 20 88 c8 20 88 c9 20 88 c6 08 21	............!...(..............!
09a0	29 88 82 11 00 87 22 20 5b 73 6c 65 65 70 74 69 6d 65 20 74 20 69 6e 68 69 62 69 74 2d 71 75 69	).....".[sleeptime.t.inhibit-qui
09c0	74 20 6e 69 6c 20 31 20 6c 69 66 65 2d 73 65 74 75 70 20 6c 69 66 65 2d 64 69 73 70 6c 61 79 2d	t.nil.1.life-setup.life-display-
09e0	67 65 6e 65 72 61 74 69 6f 6e 20 6c 69 66 65 2d 67 72 69 6d 2d 72 65 61 70 65 72 20 6c 69 66 65	generation.life-grim-reaper.life
0a00	2d 65 78 70 61 6e 64 2d 70 6c 61 6e 65 2d 69 66 2d 6e 65 65 64 65 64 20 6c 69 66 65 2d 69 6e 63	-expand-plane-if-needed.life-inc
0a20	72 65 6d 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 5d 20 38 29 29 0a 0a 28 66 73 65 74 20 28 71	rement-generation].8))..(fset.(q
0a40	75 6f 74 65 20 6c 69 66 65 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6c 69 66 65 29 29 0a 0a 28	uote.life-mode).(quote.life))..(
0a60	70 75 74 20 28 71 75 6f 74 65 20 6c 69 66 65 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d 6f 64	put.(quote.life-mode).(quote.mod
0a80	65 2d 63 6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 63 69 61 6c 29 29 0a 0a 28 72 61 6e 64	e-class).(quote.special))..(rand
0aa0	6f 6d 20 74 29 0a 0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 73 65 74 75 70 20 6e 69 6c 20 28 62 79	om.t)..(defun.life-setup.nil.(by
0ac0	74 65 2d 63 6f 64 65 20 22 c3 18 cc cd ce 21 c1 5c 22 88 cf 20 88 d0 20 88 c3 12 d1 14 d2 15 c1	te-code.".....!.\"..............
0ae0	16 06 d3 16 07 d4 16 08 d5 16 09 d6 20 53 16 0a d7 89 16 0b 88 d8 70 21 88 d9 20 88 d7 62 88 da	.............S........p!.....b..
0b00	db c3 c1 23 85 46 00 dc dd c1 c1 23 88 82 35 00 88 d7 62 88 de 0e 0a 8a df 20 88 60 29 5a e0 5c	...#.F.....#..5...b........`)Z.\
0b20	22 89 10 88 6d 3f 85 67 00 08 6a 88 e1 20 88 82 59 00 88 de e2 20 53 e3 65 64 5c 22 5a e0 5c 22	"...m?.g..j.....Y.....S.ed\"Z.\"
0b40	89 10 88 d7 62 88 e4 08 21 88 e5 62 88 e4 08 21 88 d7 62 88 6d 3f 85 a6 00 df 20 88 0e 0a 6a 88	....b...!..b...!..b.m?........j.
0b60	e6 0e 0a 21 88 e7 60 df 20 88 60 5c 22 88 e1 20 88 82 87 00 88 e8 65 64 5c 22 88 e9 20 88 ea 20	...!..`...`\".........ed\"......
0b80	29 87 22 20 5b 6e 20 74 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 6d 6f	).".[n.t.case-fold-search.nil.mo
0ba0	64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65	de-name.major-mode.truncate-line
0bc0	73 20 6c 69 66 65 2d 63 75 72 72 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 20 6c 69 66 65 2d 67	s.life-current-generation.life-g
0be0	65 6e 65 72 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65	eneration-string.mode-line-buffe
0c00	72 2d 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6c 69 66	r-identification.fill-column.lif
0c20	65 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20	e-window-start.switch-to-buffer.
0c40	67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 4c 69 66 65 2a 22 20 65 72 61 73 65	get-buffer-create."*Life*".erase
0c60	2d 62 75 66 66 65 72 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73	-buffer.kill-all-local-variables
0c80	20 22 4c 69 66 65 22 20 6c 69 66 65 2d 6d 6f 64 65 20 30 20 22 30 22 20 28 22 4c 69 66 65 3a 20	."Life".life-mode.0."0".("Life:.
0ca0	67 65 6e 65 72 61 74 69 6f 6e 20 22 20 6c 69 66 65 2d 67 65 6e 65 72 61 74 69 6f 6e 2d 73 74 72	generation.".life-generation-str
0cc0	69 6e 67 29 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 31 20 62 75 66 66 65 72 2d 66 6c 75 73 68	ing).window-width.1.buffer-flush
0ce0	2d 75 6e 64 6f 20 6c 69 66 65 2d 69 6e 73 65 72 74 2d 72 61 6e 64 6f 6d 2d 70 61 74 74 65 72 6e	-undo.life-insert-random-pattern
0d00	20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 5e 20 0a 5d 22 20 72 65 70 6c 61	.re-search-forward."[^..]".repla
0d20	63 65 2d 6d 61 74 63 68 20 22 40 22 20 2f 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 32 20 66 6f 72	ce-match."@"./.end-of-line.2.for
0d40	77 61 72 64 2d 6c 69 6e 65 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 63 6f 75 6e 74 2d 6c 69	ward-line.window-height.count-li
0d60	6e 65 73 20 6e 65 77 6c 69 6e 65 20 38 33 38 38 36 30 37 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75	nes.newline.8388607.move-to-colu
0d80	6d 6e 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 75 6e 74 61 62 69 66 79 20 6c 69 66 65 2d 65	mn.delete-region.untabify.life-e
0da0	78 70 61 6e 64 2d 70 6c 61 6e 65 2d 69 66 2d 6e 65 65 64 65 64 20 6c 69 66 65 2d 63 6f 6d 70 75	xpand-plane-if-needed.life-compu
0dc0	74 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 5d 20 32 36 29 29 0a 0a 28 64 65 66 75 6e	te-neighbor-deltas].26))..(defun
0de0	20 6c 69 66 65 2d 63 6f 6d 70 75 74 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 6e 69	.life-compute-neighbor-deltas.ni
0e00	6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 09 5b 09 54 5b c4 09 5c 5c 5b c5 09 09 54 c4 09	l.(byte-code."...[.T[..\\[...T..
0e20	5c 5c 26 08 89 10 87 22 20 5b 6c 69 66 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 66	\\&....".[life-neighbor-deltas.f
0e40	69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6c 69 73 74 20 2d 31 20 32 20 31 5d 20 31 30 29 29 0a 0a 28 64	ill-column.list.-1.2.1].10))..(d
0e60	65 66 75 6e 20 6c 69 66 65 2d 69 6e 73 65 72 74 2d 72 61 6e 64 6f 6d 2d 70 61 74 74 65 72 6e 20	efun.life-insert-random-pattern.
0e80	6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 c3 c4 c5 20 21 08 47 5c 22 5c 22 21 88	nil.(byte-code.".......!.G\"\"!.
0ea0	c6 63 87 22 20 5b 6c 69 66 65 2d 70 61 74 74 65 72 6e 73 20 69 6e 73 65 72 74 2d 72 65 63 74 61	.c.".[life-patterns.insert-recta
0ec0	6e 67 6c 65 20 65 6c 74 20 25 20 61 62 73 20 72 61 6e 64 6f 6d 20 31 30 5d 20 38 29 29 0a 0a 28	ngle.elt.%.abs.random.10].8))..(
0ee0	64 65 66 75 6e 20 6c 69 66 65 2d 69 6e 63 72 65 6d 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 20	defun.life-increment-generation.
0f00	6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 54 89 10 88 c2 08 21 89 11 87 22 20 5b 6c 69	nil.(byte-code.".T.....!...".[li
0f20	66 65 2d 63 75 72 72 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 20 6c 69 66 65 2d 67 65 6e 65 72	fe-current-generation.life-gener
0f40	61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 33 29 29 0a	ation-string.int-to-string].3)).
0f60	0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 67 72 69 6d 2d 72 65 61 70 65 72 20 6e 69 6c 20 28 62 79	.(defun.life-grim-reaper.nil.(by
0f80	74 65 2d 63 6f 64 65 20 22 c8 c0 21 88 c9 62 88 c0 c0 c0 c0 c0 1d 1c 1b 1a 19 ca cb c0 c6 23 85	te-code."..!..b...............#.
0fa0	8f 00 0e 07 15 cc 14 60 53 89 13 88 0d 85 78 00 0b 0d 40 5c 5c 11 09 66 89 12 88 0a cd 3d 83 42	.......`S.....x...@\\..f.....=.B
0fc0	00 ce 09 09 54 cd c9 c6 25 82 6f 00 0a cf 57 83 54 00 ce 09 09 54 0a 0a 54 c6 25 82 6f 00 0a d0	....T...%.o...W.T....T..T.%.o...
0fe0	57 83 65 00 ce 09 09 54 0a d0 c6 25 82 6f 00 0a d1 59 85 6f 00 0c 54 89 14 88 0d 41 89 15 88 82	W.e....T...%.o...Y.o..T....A....
1000	23 00 88 0c d2 3e 83 83 00 c0 82 8b 00 ce 0b 0b 54 d1 d3 c6 25 88 82 11 00 2d 88 d4 cc 21 3f 85	#....>..........T...%....-...!?.
1020	9a 00 d5 20 88 ce c9 64 d0 cd c6 25 88 ce c9 64 c9 cd c6 25 88 ce c9 64 d6 cd c6 25 88 ce c9 64	.......d...%...d...%...d...%...d
1040	cf d1 c6 25 88 ce c9 64 d3 cd c6 25 87 22 20 5b 6e 69 6c 20 70 6f 69 6e 74 20 63 68 61 72 20 70	...%...d...%.".[nil.point.char.p
1060	69 76 6f 74 20 6c 69 76 69 6e 67 2d 6e 65 69 67 68 62 6f 72 73 20 6c 69 73 74 20 74 20 6c 69 66	ivot.living-neighbors.list.t.lif
1080	65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 73 74 6f 72 65 2d 6d 61 74 63 68 2d 64 61	e-neighbor-deltas.store-match-da
10a0	74 61 20 31 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 40 22 20 30 20 33 32 20 73 75 62	ta.1.search-forward."@".0.32.sub
10c0	73 74 2d 63 68 61 72 2d 69 6e 2d 72 65 67 69 6f 6e 20 33 20 39 20 36 34 20 28 32 20 33 29 20 36	st-char-in-region.3.9.64.(2.3).6
10e0	35 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 6c 69 66 65 2d 65 78 74 69 6e 63 74 2d 71	5.match-beginning.life-extinct-q
1100	75 69 74 20 32 5d 20 31 38 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 65 78 70 61 6e 64 2d	uit.2].18))..(defun.life-expand-
1120	70 6c 61 6e 65 2d 69 66 2d 6e 65 65 64 65 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22	plane-if-needed.nil.(byte-code."
1140	c3 c4 8d 88 c5 62 88 c6 c7 c8 60 08 08 c9 24 c1 23 85 2e 00 c5 62 88 ca cb 08 5c 22 88 cc 63 88	.....b....`...$.#....b....\"..c.
1160	ca cb 08 5c 22 88 cc 63 88 c8 0a 08 c5 23 89 12 88 cd 62 88 ce c7 cf 60 08 08 c9 24 c1 23 85 59	...\"..c.....#....b....`...$.#.Y
1180	00 cd 62 88 ca cb 08 5c 22 88 cc 63 88 ca cb 08 5c 22 88 cc 63 88 c8 0a 08 c5 23 89 12 87 22 20	..b....\"..c....\"..c.....#...".
11a0	5b 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 74 20 6c 69 66 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74	[fill-column.t.life-window-start
11c0	20 64 6f 6e 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 62 88 6d 3f 85 47 00 67 c3 3d 86 14 00	.done.(byte-code.".b.m?.G.g.=...
11e0	c4 20 88 68 c3 3d 85 40 00 c2 62 88 6d 3f 85 2e 00 c5 63 88 c4 20 88 c5 63 88 c6 20 88 82 1a 00	...h.=.@..b.m?....c.....c.......
1200	88 c7 08 5c 5c 89 10 88 c8 c2 21 88 c9 20 88 ca cb c1 5c 22 88 cc 20 88 82 03 00 87 22 20 5b 66	...\\.....!.......\"........".[f
1220	69 6c 6c 2d 63 6f 6c 75 6d 6e 20 74 20 31 20 36 34 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 33 32	ill-column.t.1.64.end-of-line.32
1240	20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 32 20 73 63 72 6f 6c 6c 2d 6c 65 66 74 20 6c 69 66 65	.forward-char.2.scroll-left.life
1260	2d 63 6f 6d 70 75 74 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 74 68 72 6f 77 20 64	-compute-neighbor-deltas.throw.d
1280	6f 6e 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 5d 20 39 29 20 31 20 73 65 61 72 63 68 2d 66 6f	one.forward-line].9).1.search-fo
12a0	72 77 61 72 64 20 22 40 22 20 2b 20 32 20 69 6e 73 65 72 74 2d 63 68 61 72 20 33 32 20 31 30 20	rward."@".+.2.insert-char.32.10.
12c0	38 33 38 38 36 30 37 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 2d 5d 20 31 33 29 29 0a	8388607.search-backward.-].13)).
12e0	0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 64 69 73 70 6c 61 79 2d 67 65 6e 65 72 61 74 69 6f 6e 20	.(defun.life-display-generation.
1300	28 73 6c 65 65 70 74 69 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 62 88 c2 c3 21 88 c4	(sleeptime).(byte-code.".b...!..
1320	09 21 87 22 20 5b 6c 69 66 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 6c 65 65 70 74 69 6d	.!.".[life-window-start.sleeptim
1340	65 20 72 65 63 65 6e 74 65 72 20 30 20 73 69 74 2d 66 6f 72 5d 20 33 29 29 0a 0a 28 64 65 66 75	e.recenter.0.sit-for].3))..(defu
1360	6e 20 6c 69 66 65 2d 65 78 74 69 6e 63 74 2d 71 75 69 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f	n.life-extinct-quit.nil.(byte-co
1380	64 65 20 22 c1 c2 21 88 c3 c4 c0 5c 22 87 22 20 5b 6e 69 6c 20 6c 69 66 65 2d 64 69 73 70 6c 61	de."..!....\".".[nil.life-displa
13a0	79 2d 67 65 6e 65 72 61 74 69 6f 6e 20 30 20 73 69 67 6e 61 6c 20 6c 69 66 65 2d 65 78 74 69 6e	y-generation.0.signal.life-extin
13c0	63 74 5d 20 34 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c 69 66 65 2d 65 78 74 69 6e 63	ct].4))..(put.(quote.life-extinc
13e0	74 29 20 28 71 75 6f 74 65 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 29 20 28 71 75 6f	t).(quote.error-conditions).(quo
1400	74 65 20 28 6c 69 66 65 2d 65 78 74 69 6e 63 74 20 71 75 69 74 29 29 29 0a 0a 28 70 75 74 20 28	te.(life-extinct.quit)))..(put.(
1420	71 75 6f 74 65 20 6c 69 66 65 2d 65 78 74 69 6e 63 74 29 20 28 71 75 6f 74 65 20 65 72 72 6f 72	quote.life-extinct).(quote.error
1440	2d 6d 65 73 73 61 67 65 29 20 22 41 6c 6c 20 6c 69 66 65 20 68 61 73 20 70 65 72 69 73 68 65 64	-message)."All.life.has.perished
1460	22 29 0a	").