blob: 94c7e04258b429a4d2b2931e8eae779f8f290f41 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1c 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.28.1.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	imizations.....(byte-code."\300\
0060	33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c 33 30 33 21 5c 32	301!\210\300\302!\210\300\303!\2
0080	31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 25 5c 32 31 30 5c	10\304\305\306\307\310\311%\210\
00a0	33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 30 5c 33 30 35 5c 33 31 36 5c 33 31 37 26	312\313\314\315\310\305\316\317&
00c0	07 5c 32 31 30 5c 33 31 32 5c 33 32 30 5c 33 30 36 5c 33 32 31 5c 33 31 30 5c 33 30 35 5c 33 31	.\210\312\320\306\321\310\305\31
00e0	36 5c 33 32 32 26 07 5c 32 31 30 5c 33 31 32 5c 33 32 33 5c 33 32 34 5c 33 32 35 5c 33 31 30 5c	6\322&.\210\312\323\324\325\310\
0100	33 30 35 5c 33 31 36 5c 33 32 36 26 07 5c 32 31 30 5c 33 31 32 5c 33 32 37 5c 33 33 30 5c 33 33	305\316\326&.\210\312\327\330\33
0120	31 5c 33 31 30 5c 33 30 35 5c 33 31 36 5c 33 33 32 26 07 5c 32 31 30 5c 33 31 32 5c 33 33 33 5c	1\310\305\316\332&.\210\312\333\
0140	33 33 34 5c 33 33 35 5c 33 31 30 5c 33 30 35 5c 33 31 36 5c 33 33 36 26 07 5c 32 31 30 5c 33 31	334\335\310\305\316\336&.\210\31
0160	32 5c 33 33 37 5c 33 33 34 5c 33 34 30 5c 33 31 30 5c 33 30 35 5c 33 31 36 5c 33 33 36 26 07 5c	2\337\334\340\310\305\316\336&.\
0180	32 31 30 5c 33 31 32 5c 33 34 31 5c 33 33 34 5c 33 34 32 5c 33 31 30 5c 33 30 35 5c 33 31 36 5c	210\312\341\334\342\310\305\316\
01a0	33 33 36 26 07 5c 32 31 30 5c 33 31 32 5c 33 34 33 5c 33 30 36 5c 33 34 34 5c 33 31 30 5c 33 30	336&.\210\312\343\306\344\310\30
01c0	35 5c 33 31 36 5c 33 33 36 26 07 5c 32 31 30 5c 33 31 32 5c 33 34 35 5c 33 30 36 5c 33 34 36 5c	5\316\336&.\210\312\345\306\346\
01e0	33 31 30 5c 33 30 35 5c 33 31 36 5c 33 34 37 26 07 5c 32 31 30 5c 33 31 32 5c 33 35 30 5c 33 30	310\305\316\347&.\210\312\350\30
0200	36 5c 33 35 31 5c 33 31 30 5c 33 30 35 5c 33 31 36 5c 33 34 37 26 07 5c 32 30 37 22 20 5b 72 65	6\351\310\305\316\347&.\207".[re
0220	71 75 69 72 65 20 63 6c 2d 6c 69 62 20 70 70 20 75 72 6c 2d 75 74 69 6c 20 63 75 73 74 6f 6d 2d	quire.cl-lib.pp.url-util.custom-
0240	64 65 63 6c 61 72 65 2d 67 72 6f 75 70 20 73 69 6d 70 6c 65 2d 68 74 74 70 64 20 6e 69 6c 20 22	declare-group.simple-httpd.nil."
0260	41 20 73 69 6d 70 6c 65 20 77 65 62 20 73 65 72 76 65 72 2e 22 20 3a 67 72 6f 75 70 20 63 6f 6d	A.simple.web.server.".:group.com
0280	6d 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 68 74 74 70 64 2d	m.custom-declare-variable.httpd-
02a0	69 70 2d 66 61 6d 69 6c 79 20 27 69 70 76 34 20 22 57 65 62 20 73 65 72 76 65 72 20 49 50 20 66	ip-family.'ipv4."Web.server.IP.f
02c0	61 6d 69 6c 79 20 75 73 65 64 20 62 79 20 60 6d 61 6b 65 2d 6e 65 74 77 6f 72 6b 2d 70 72 6f 63	amily.used.by.`make-network-proc
02e0	65 73 73 27 2e 22 20 3a 74 79 70 65 20 73 79 6d 62 6f 6c 20 68 74 74 70 64 2d 68 6f 73 74 20 22	ess'.".:type.symbol.httpd-host."
0300	57 65 62 20 73 65 72 76 65 72 20 68 6f 73 74 20 6e 61 6d 65 20 75 73 65 64 20 62 79 20 60 6d 61	Web.server.host.name.used.by.`ma
0320	6b 65 2d 6e 65 74 77 6f 72 6b 2d 70 72 6f 63 65 73 73 27 2e 22 20 28 63 68 6f 69 63 65 20 28 63	ke-network-process'.".(choice.(c
0340	6f 6e 73 74 20 6e 69 6c 29 20 28 63 6f 6e 73 74 20 6c 6f 63 61 6c 29 20 73 74 72 69 6e 67 29 20	onst.nil).(const.local).string).
0360	68 74 74 70 64 2d 70 6f 72 74 20 38 30 38 30 20 22 57 65 62 20 73 65 72 76 65 72 20 70 6f 72 74	httpd-port.8080."Web.server.port
0380	2e 22 20 69 6e 74 65 67 65 72 20 68 74 74 70 64 2d 72 6f 6f 74 20 22 7e 2f 70 75 62 6c 69 63 5f	.".integer.httpd-root."~/public_
03a0	68 74 6d 6c 22 20 22 57 65 62 20 73 65 72 76 65 72 20 66 69 6c 65 20 72 6f 6f 74 2e 22 20 64 69	html"."Web.server.file.root.".di
03c0	72 65 63 74 6f 72 79 20 68 74 74 70 64 2d 73 65 72 76 65 2d 66 69 6c 65 73 20 74 20 22 45 6e 61	rectory.httpd-serve-files.t."Ena
03e0	62 6c 65 20 73 65 72 76 69 6e 67 20 66 69 6c 65 73 20 66 72 6f 6d 20 60 68 74 74 70 64 2d 72 6f	ble.serving.files.from.`httpd-ro
0400	6f 74 27 2e 22 20 62 6f 6f 6c 65 61 6e 20 68 74 74 70 64 2d 6c 69 73 74 69 6e 67 73 20 22 49 66	ot'.".boolean.httpd-listings."If
0420	20 74 72 75 65 2c 20 73 65 72 76 65 20 64 69 72 65 63 74 6f 72 79 20 6c 69 73 74 69 6e 67 73 2e	.true,.serve.directory.listings.
0440	22 20 68 74 74 70 64 2d 73 65 72 76 6c 65 74 73 20 22 45 6e 61 62 6c 65 20 73 65 72 76 6c 65 74	".httpd-servlets."Enable.servlet
0460	73 2e 22 20 68 74 74 70 64 2d 73 68 6f 77 2d 62 61 63 6b 74 72 61 63 65 2d 77 68 65 6e 2d 65 72	s.".httpd-show-backtrace-when-er
0480	72 6f 72 20 22 49 66 20 74 72 75 65 2c 20 73 68 6f 77 20 62 61 63 6b 74 72 61 63 65 20 6f 6e 20	ror."If.true,.show.backtrace.on.
04a0	65 72 72 6f 72 20 70 61 67 65 2e 22 20 68 74 74 70 64 2d 73 74 61 72 74 2d 68 6f 6f 6b 20 22 48	error.page.".httpd-start-hook."H
04c0	6f 6f 6b 20 74 6f 20 72 75 6e 20 77 68 65 6e 20 74 68 65 20 73 65 72 76 65 72 20 68 61 73 20 73	ook.to.run.when.the.server.has.s
04e0	74 61 72 74 65 64 2e 22 20 68 6f 6f 6b 20 68 74 74 70 64 2d 73 74 6f 70 2d 68 6f 6f 6b 20 22 48	tarted.".hook.httpd-stop-hook."H
0500	6f 6f 6b 20 74 6f 20 72 75 6e 20 77 68 65 6e 20 74 68 65 20 73 65 72 76 65 72 20 68 61 73 20 73	ook.to.run.when.the.server.has.s
0520	74 6f 70 70 65 64 2e 22 5d 20 38 29 0a 23 40 33 37 20 53 74 72 69 6e 67 20 74 6f 20 75 73 65 20	topped."].8).#@37.String.to.use.
0540	69 6e 20 74 68 65 20 53 65 72 76 65 72 20 68 65 61 64 65 72 2e 1f 0a 28 64 65 66 76 61 72 20 68	in.the.Server.header...(defvar.h
0560	74 74 70 64 2d 73 65 72 76 65 72 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 73 69 6d 70 6c 65	ttpd-server-name.(format."simple
0580	2d 68 74 74 70 64 20 28 45 6d 61 63 73 20 25 73 29 22 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e	-httpd.(Emacs.%s)".emacs-version
05a0	29 20 28 23 24 20 2e 20 31 33 33 30 29 29 0a 23 40 32 35 20 4d 49 4d 45 20 74 79 70 65 73 20 66	).(#$...1330)).#@25.MIME.types.f
05c0	6f 72 20 68 65 61 64 65 72 73 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64 2d 6d 69 6d 65 2d	or.headers...(defvar.httpd-mime-
05e0	74 79 70 65 73 20 27 28 28 22 70 6e 67 22 20 2e 20 22 69 6d 61 67 65 2f 70 6e 67 22 29 20 28 22	types.'(("png"..."image/png").("
0600	67 69 66 22 20 2e 20 22 69 6d 61 67 65 2f 67 69 66 22 29 20 28 22 6a 70 67 22 20 2e 20 22 69 6d	gif"..."image/gif").("jpg"..."im
0620	61 67 65 2f 6a 70 65 67 22 29 20 28 22 6a 70 65 67 22 20 2e 20 22 69 6d 61 67 65 2f 6a 70 65 67	age/jpeg").("jpeg"..."image/jpeg
0640	22 29 20 28 22 74 69 66 22 20 2e 20 22 69 6d 61 67 65 2f 74 69 66 22 29 20 28 22 74 69 66 66 22	").("tif"..."image/tif").("tiff"
0660	20 2e 20 22 69 6d 61 67 65 2f 74 69 66 66 22 29 20 28 22 69 63 6f 22 20 2e 20 22 69 6d 61 67 65	..."image/tiff").("ico"..."image
0680	2f 78 2d 69 63 6f 6e 22 29 20 28 22 73 76 67 22 20 2e 20 22 69 6d 61 67 65 2f 73 76 67 2b 78 6d	/x-icon").("svg"..."image/svg+xm
06a0	6c 22 29 20 28 22 63 73 73 22 20 2e 20 22 74 65 78 74 2f 63 73 73 3b 20 63 68 61 72 73 65 74 3d	l").("css"..."text/css;.charset=
06c0	75 74 66 2d 38 22 29 20 28 22 68 74 6d 22 20 2e 20 22 74 65 78 74 2f 68 74 6d 6c 3b 20 63 68 61	utf-8").("htm"..."text/html;.cha
06e0	72 73 65 74 3d 75 74 66 2d 38 22 29 20 28 22 68 74 6d 6c 22 20 2e 20 22 74 65 78 74 2f 68 74 6d	rset=utf-8").("html"..."text/htm
0700	6c 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 20 28 22 78 6d 6c 22 20 2e 20 22 74 65 78	l;.charset=utf-8").("xml"..."tex
0720	74 2f 78 6d 6c 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 20 28 22 72 73 73 22 20 2e 20	t/xml;.charset=utf-8").("rss"...
0740	22 74 65 78 74 2f 78 6d 6c 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 20 28 22 61 74 6f	"text/xml;.charset=utf-8").("ato
0760	6d 22 20 2e 20 22 74 65 78 74 2f 78 6d 6c 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 20	m"..."text/xml;.charset=utf-8").
0780	28 22 74 78 74 22 20 2e 20 22 74 65 78 74 2f 70 6c 61 69 6e 3b 20 63 68 61 72 73 65 74 3d 75 74	("txt"..."text/plain;.charset=ut
07a0	66 2d 38 22 29 20 28 22 65 6c 22 20 2e 20 22 74 65 78 74 2f 70 6c 61 69 6e 3b 20 63 68 61 72 73	f-8").("el"..."text/plain;.chars
07c0	65 74 3d 75 74 66 2d 38 22 29 20 28 22 6a 73 22 20 2e 20 22 74 65 78 74 2f 6a 61 76 61 73 63 72	et=utf-8").("js"..."text/javascr
07e0	69 70 74 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 20 28 22 6d 64 22 20 2e 20 22 74 65	ipt;.charset=utf-8").("md"..."te
0800	78 74 2f 78 2d 6d 61 72 6b 64 6f 77 6e 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 20 28	xt/x-markdown;.charset=utf-8").(
0820	22 67 7a 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 6f 63 74 65 74 2d 73 74 72 65 61 6d	"gz"..."application/octet-stream
0840	22 29 20 28 22 70 73 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 70 6f 73 74 73 63 72 69	").("ps"..."application/postscri
0860	70 74 22 29 20 28 22 65 70 73 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 70 6f 73 74 73	pt").("eps"..."application/posts
0880	63 72 69 70 74 22 29 20 28 22 70 64 66 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 70 64	cript").("pdf"..."application/pd
08a0	66 22 29 20 28 22 74 61 72 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 74 61 72 22	f").("tar"..."application/x-tar"
08c0	29 20 28 22 7a 69 70 22 20 2e 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 7a 69 70 22 29 20 28 22	).("zip"..."application/zip").("
08e0	6d 70 33 22 20 2e 20 22 61 75 64 69 6f 2f 6d 70 65 67 22 29 20 28 22 77 61 76 22 20 2e 20 22 61	mp3"..."audio/mpeg").("wav"..."a
0900	75 64 69 6f 2f 78 2d 77 61 76 22 29 20 28 22 66 6c 61 63 22 20 2e 20 22 61 75 64 69 6f 2f 66 6c	udio/x-wav").("flac"..."audio/fl
0920	61 63 22 29 20 28 22 73 70 78 22 20 2e 20 22 61 75 64 69 6f 2f 6f 67 67 22 29 20 28 22 6f 67 61	ac").("spx"..."audio/ogg").("oga
0940	22 20 2e 20 22 61 75 64 69 6f 2f 6f 67 67 22 29 20 28 22 6f 67 67 22 20 2e 20 22 61 75 64 69 6f	"..."audio/ogg").("ogg"..."audio
0960	2f 6f 67 67 22 29 20 28 22 6f 67 76 22 20 2e 20 22 76 69 64 65 6f 2f 6f 67 67 22 29 20 28 22 6d	/ogg").("ogv"..."video/ogg").("m
0980	70 34 22 20 2e 20 22 76 69 64 65 6f 2f 6d 70 34 22 29 20 28 22 6d 6b 76 22 20 2e 20 22 76 69 64	p4"..."video/mp4").("mkv"..."vid
09a0	65 6f 2f 78 2d 6d 61 74 72 6f 73 6b 61 22 29 20 28 22 77 65 62 6d 22 20 2e 20 22 76 69 64 65 6f	eo/x-matroska").("webm"..."video
09c0	2f 77 65 62 6d 22 29 29 20 28 23 24 20 2e 20 31 34 36 30 29 29 0a 23 40 35 32 20 46 69 6c 65 20	/webm")).(#$...1460)).#@52.File.
09e0	73 65 72 76 65 64 20 62 79 20 64 65 66 61 75 6c 74 20 77 68 65 6e 20 61 63 63 65 73 73 69 6e 67	served.by.default.when.accessing
0a00	20 61 20 64 69 72 65 63 74 6f 72 79 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64 2d 69 6e 64	.a.directory...(defvar.httpd-ind
0a20	65 78 65 73 20 27 28 22 69 6e 64 65 78 2e 68 74 6d 6c 22 20 22 69 6e 64 65 78 2e 68 74 6d 22 20	exes.'("index.html"."index.htm".
0a40	22 69 6e 64 65 78 2e 78 6d 6c 22 29 20 28 23 24 20 2e 20 32 35 32 33 29 29 0a 23 40 32 30 20 48	"index.xml").(#$...2523)).#@20.H
0a60	54 54 50 20 73 74 61 74 75 73 20 63 6f 64 65 73 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64	TTP.status.codes...(defvar.httpd
0a80	2d 73 74 61 74 75 73 2d 63 6f 64 65 73 20 27 28 28 31 30 30 20 2e 20 22 43 6f 6e 74 69 6e 75 65	-status-codes.'((100..."Continue
0aa0	22 29 20 28 31 30 31 20 2e 20 22 53 77 69 74 63 68 69 6e 67 20 50 72 6f 74 6f 63 6f 6c 73 22 29	").(101..."Switching.Protocols")
0ac0	20 28 31 30 32 20 2e 20 22 50 72 6f 63 65 73 73 69 6e 67 22 29 20 28 32 30 30 20 2e 20 22 4f 4b	.(102..."Processing").(200..."OK
0ae0	22 29 20 28 32 30 31 20 2e 20 22 43 72 65 61 74 65 64 22 29 20 28 32 30 32 20 2e 20 22 41 63 63	").(201..."Created").(202..."Acc
0b00	65 70 74 65 64 22 29 20 28 32 30 33 20 2e 20 22 4e 6f 6e 2d 61 75 74 68 6f 72 69 74 61 74 69 76	epted").(203..."Non-authoritativ
0b20	65 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 22 29 20 28 32 30 34 20 2e 20 22 4e 6f 20 43 6f 6e 74 65	e.Information").(204..."No.Conte
0b40	6e 74 22 29 20 28 32 30 35 20 2e 20 22 52 65 73 65 74 20 43 6f 6e 74 65 6e 74 22 29 20 28 32 30	nt").(205..."Reset.Content").(20
0b60	36 20 2e 20 22 50 61 72 74 69 61 6c 20 43 6f 6e 74 65 6e 74 22 29 20 28 32 30 37 20 2e 20 22 4d	6..."Partial.Content").(207..."M
0b80	75 6c 74 69 2d 53 74 61 74 75 73 22 29 20 28 32 30 38 20 2e 20 22 41 6c 72 65 61 64 79 20 52 65	ulti-Status").(208..."Already.Re
0ba0	70 6f 72 74 65 64 22 29 20 28 32 32 36 20 2e 20 22 49 4d 20 55 73 65 64 22 29 20 28 33 30 30 20	ported").(226..."IM.Used").(300.
0bc0	2e 20 22 4d 75 6c 74 69 70 6c 65 20 43 68 6f 69 63 65 73 22 29 20 28 33 30 31 20 2e 20 22 4d 6f	.."Multiple.Choices").(301..."Mo
0be0	76 65 64 20 50 65 72 6d 61 6e 65 6e 74 6c 79 22 29 20 28 33 30 32 20 2e 20 22 46 6f 75 6e 64 22	ved.Permanently").(302..."Found"
0c00	29 20 28 33 30 33 20 2e 20 22 53 65 65 20 4f 74 68 65 72 22 29 20 28 33 30 34 20 2e 20 22 4e 6f	).(303..."See.Other").(304..."No
0c20	74 20 4d 6f 64 69 66 69 65 64 22 29 20 28 33 30 35 20 2e 20 22 55 73 65 20 50 72 6f 78 79 22 29	t.Modified").(305..."Use.Proxy")
0c40	20 28 33 30 37 20 2e 20 22 54 65 6d 70 6f 72 61 72 79 20 52 65 64 69 72 65 63 74 22 29 20 28 33	.(307..."Temporary.Redirect").(3
0c60	30 38 20 2e 20 22 50 65 72 6d 61 6e 65 6e 74 20 52 65 64 69 72 65 63 74 22 29 20 28 34 30 30 20	08..."Permanent.Redirect").(400.
0c80	2e 20 22 42 61 64 20 52 65 71 75 65 73 74 22 29 20 28 34 30 31 20 2e 20 22 55 6e 61 75 74 68 6f	.."Bad.Request").(401..."Unautho
0ca0	72 69 7a 65 64 22 29 20 28 34 30 32 20 2e 20 22 50 61 79 6d 65 6e 74 20 52 65 71 75 69 72 65 64	rized").(402..."Payment.Required
0cc0	22 29 20 28 34 30 33 20 2e 20 22 46 6f 72 62 69 64 64 65 6e 22 29 20 28 34 30 34 20 2e 20 22 4e	").(403..."Forbidden").(404..."N
0ce0	6f 74 20 46 6f 75 6e 64 22 29 20 28 34 30 35 20 2e 20 22 4d 65 74 68 6f 64 20 4e 6f 74 20 41 6c	ot.Found").(405..."Method.Not.Al
0d00	6c 6f 77 65 64 22 29 20 28 34 30 36 20 2e 20 22 4e 6f 74 20 41 63 63 65 70 74 61 62 6c 65 22 29	lowed").(406..."Not.Acceptable")
0d20	20 28 34 30 37 20 2e 20 22 50 72 6f 78 79 20 41 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 52 65	.(407..."Proxy.Authentication.Re
0d40	71 75 69 72 65 64 22 29 20 28 34 30 38 20 2e 20 22 52 65 71 75 65 73 74 20 54 69 6d 65 6f 75 74	quired").(408..."Request.Timeout
0d60	22 29 20 28 34 30 39 20 2e 20 22 43 6f 6e 66 6c 69 63 74 22 29 20 28 34 31 30 20 2e 20 22 47 6f	").(409..."Conflict").(410..."Go
0d80	6e 65 22 29 20 28 34 31 31 20 2e 20 22 4c 65 6e 67 74 68 20 52 65 71 75 69 72 65 64 22 29 20 28	ne").(411..."Length.Required").(
0da0	34 31 32 20 2e 20 22 50 72 65 63 6f 6e 64 69 74 69 6f 6e 20 46 61 69 6c 65 64 22 29 20 28 34 31	412..."Precondition.Failed").(41
0dc0	33 20 2e 20 22 50 61 79 6c 6f 61 64 20 54 6f 6f 20 4c 61 72 67 65 22 29 20 28 34 31 34 20 2e 20	3..."Payload.Too.Large").(414...
0de0	22 52 65 71 75 65 73 74 2d 55 52 49 20 54 6f 6f 20 4c 6f 6e 67 22 29 20 28 34 31 35 20 2e 20 22	"Request-URI.Too.Long").(415..."
0e00	55 6e 73 75 70 70 6f 72 74 65 64 20 4d 65 64 69 61 20 54 79 70 65 22 29 20 28 34 31 36 20 2e 20	Unsupported.Media.Type").(416...
0e20	22 52 65 71 75 65 73 74 65 64 20 52 61 6e 67 65 20 4e 6f 74 20 53 61 74 69 73 66 69 61 62 6c 65	"Requested.Range.Not.Satisfiable
0e40	22 29 20 28 34 31 37 20 2e 20 22 45 78 70 65 63 74 61 74 69 6f 6e 20 46 61 69 6c 65 64 22 29 20	").(417..."Expectation.Failed").
0e60	28 34 31 38 20 2e 20 22 49 27 6d 20 61 20 74 65 61 70 6f 74 22 29 20 28 34 32 31 20 2e 20 22 4d	(418..."I'm.a.teapot").(421..."M
0e80	69 73 64 69 72 65 63 74 65 64 20 52 65 71 75 65 73 74 22 29 20 28 34 32 32 20 2e 20 22 55 6e 70	isdirected.Request").(422..."Unp
0ea0	72 6f 63 65 73 73 61 62 6c 65 20 45 6e 74 69 74 79 22 29 20 28 34 32 33 20 2e 20 22 4c 6f 63 6b	rocessable.Entity").(423..."Lock
0ec0	65 64 22 29 20 28 34 32 34 20 2e 20 22 46 61 69 6c 65 64 20 44 65 70 65 6e 64 65 6e 63 79 22 29	ed").(424..."Failed.Dependency")
0ee0	20 28 34 32 36 20 2e 20 22 55 70 67 72 61 64 65 20 52 65 71 75 69 72 65 64 22 29 20 28 34 32 38	.(426..."Upgrade.Required").(428
0f00	20 2e 20 22 50 72 65 63 6f 6e 64 69 74 69 6f 6e 20 52 65 71 75 69 72 65 64 22 29 20 28 34 32 39	..."Precondition.Required").(429
0f20	20 2e 20 22 54 6f 6f 20 4d 61 6e 79 20 52 65 71 75 65 73 74 73 22 29 20 28 34 33 31 20 2e 20 22	..."Too.Many.Requests").(431..."
0f40	52 65 71 75 65 73 74 20 48 65 61 64 65 72 20 46 69 65 6c 64 73 20 54 6f 6f 20 4c 61 72 67 65 22	Request.Header.Fields.Too.Large"
0f60	29 20 28 34 34 34 20 2e 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 20 43 6c 6f 73 65 64 20 57 69 74 68	).(444..."Connection.Closed.With
0f80	6f 75 74 20 52 65 73 70 6f 6e 73 65 22 29 20 28 34 35 31 20 2e 20 22 55 6e 61 76 61 69 6c 61 62	out.Response").(451..."Unavailab
0fa0	6c 65 20 46 6f 72 20 4c 65 67 61 6c 20 52 65 61 73 6f 6e 73 22 29 20 28 34 39 39 20 2e 20 22 43	le.For.Legal.Reasons").(499..."C
0fc0	6c 69 65 6e 74 20 43 6c 6f 73 65 64 20 52 65 71 75 65 73 74 22 29 20 28 35 30 30 20 2e 20 22 49	lient.Closed.Request").(500..."I
0fe0	6e 74 65 72 6e 61 6c 20 53 65 72 76 65 72 20 45 72 72 6f 72 22 29 20 28 35 30 31 20 2e 20 22 4e	nternal.Server.Error").(501..."N
1000	6f 74 20 49 6d 70 6c 65 6d 65 6e 74 65 64 22 29 20 28 35 30 32 20 2e 20 22 42 61 64 20 47 61 74	ot.Implemented").(502..."Bad.Gat
1020	65 77 61 79 22 29 20 28 35 30 33 20 2e 20 22 53 65 72 76 69 63 65 20 55 6e 61 76 61 69 6c 61 62	eway").(503..."Service.Unavailab
1040	6c 65 22 29 20 28 35 30 34 20 2e 20 22 47 61 74 65 77 61 79 20 54 69 6d 65 6f 75 74 22 29 20 28	le").(504..."Gateway.Timeout").(
1060	35 30 35 20 2e 20 22 48 54 54 50 20 56 65 72 73 69 6f 6e 20 4e 6f 74 20 53 75 70 70 6f 72 74 65	505..."HTTP.Version.Not.Supporte
1080	64 22 29 20 28 35 30 36 20 2e 20 22 56 61 72 69 61 6e 74 20 41 6c 73 6f 20 4e 65 67 6f 74 69 61	d").(506..."Variant.Also.Negotia
10a0	74 65 73 22 29 20 28 35 30 37 20 2e 20 22 49 6e 73 75 66 66 69 63 69 65 6e 74 20 53 74 6f 72 61	tes").(507..."Insufficient.Stora
10c0	67 65 22 29 20 28 35 30 38 20 2e 20 22 4c 6f 6f 70 20 44 65 74 65 63 74 65 64 22 29 20 28 35 31	ge").(508..."Loop.Detected").(51
10e0	30 20 2e 20 22 4e 6f 74 20 45 78 74 65 6e 64 65 64 22 29 20 28 35 31 31 20 2e 20 22 4e 65 74 77	0..."Not.Extended").(511..."Netw
1100	6f 72 6b 20 41 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 52 65 71 75 69 72 65 64 22 29 20 28 35	ork.Authentication.Required").(5
1120	39 39 20 2e 20 22 4e 65 74 77 6f 72 6b 20 43 6f 6e 6e 65 63 74 20 54 69 6d 65 6f 75 74 20 45 72	99..."Network.Connect.Timeout.Er
1140	72 6f 72 22 29 29 20 28 23 24 20 2e 20 32 36 35 35 29 29 0a 23 40 32 36 20 48 54 4d 4c 20 66 6f	ror")).(#$...2655)).#@26.HTML.fo
1160	72 20 76 61 72 69 6f 75 73 20 65 72 72 6f 72 73 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64	r.various.errors...(defvar.httpd
1180	2d 68 74 6d 6c 20 27 28 28 34 30 33 20 2e 20 22 3c 21 44 4f 43 54 59 50 45 20 68 74 6d 6c 3e 5c	-html.'((403..."<!DOCTYPE.html>\
11a0	6e 3c 68 74 6d 6c 3e 3c 68 65 61 64 3e 5c 6e 3c 74 69 74 6c 65 3e 34 30 33 20 46 6f 72 62 69 64	n<html><head>\n<title>403.Forbid
11c0	64 65 6e 3c 2f 74 69 74 6c 65 3e 5c 6e 3c 2f 68 65 61 64 3e 3c 62 6f 64 79 3e 5c 6e 3c 68 31 3e	den</title>\n</head><body>\n<h1>
11e0	46 6f 72 62 69 64 64 65 6e 3c 2f 68 31 3e 5c 6e 3c 70 3e 54 68 65 20 72 65 71 75 65 73 74 65 64	Forbidden</h1>\n<p>The.requested
1200	20 55 52 4c 20 69 73 20 66 6f 72 62 69 64 64 65 6e 2e 3c 2f 70 3e 5c 6e 3c 70 72 65 3e 25 73 3c	.URL.is.forbidden.</p>\n<pre>%s<
1220	2f 70 72 65 3e 5c 6e 3c 2f 62 6f 64 79 3e 3c 2f 68 74 6d 6c 3e 22 29 20 28 34 30 34 20 2e 20 22	/pre>\n</body></html>").(404..."
1240	3c 21 44 4f 43 54 59 50 45 20 68 74 6d 6c 3e 5c 6e 3c 68 74 6d 6c 3e 3c 68 65 61 64 3e 5c 6e 3c	<!DOCTYPE.html>\n<html><head>\n<
1260	74 69 74 6c 65 3e 34 30 34 20 4e 6f 74 20 46 6f 75 6e 64 3c 2f 74 69 74 6c 65 3e 5c 6e 3c 2f 68	title>404.Not.Found</title>\n</h
1280	65 61 64 3e 3c 62 6f 64 79 3e 5c 6e 3c 68 31 3e 4e 6f 74 20 46 6f 75 6e 64 3c 2f 68 31 3e 5c 6e	ead><body>\n<h1>Not.Found</h1>\n
12a0	3c 70 3e 54 68 65 20 72 65 71 75 65 73 74 65 64 20 55 52 4c 20 77 61 73 20 6e 6f 74 20 66 6f 75	<p>The.requested.URL.was.not.fou
12c0	6e 64 20 6f 6e 20 74 68 69 73 20 73 65 72 76 65 72 2e 3c 2f 70 3e 5c 6e 3c 70 72 65 3e 25 73 3c	nd.on.this.server.</p>\n<pre>%s<
12e0	2f 70 72 65 3e 5c 6e 3c 2f 62 6f 64 79 3e 3c 2f 68 74 6d 6c 3e 22 29 20 28 35 30 30 20 2e 20 22	/pre>\n</body></html>").(500..."
1300	3c 21 44 4f 43 54 59 50 45 20 68 74 6d 6c 3e 5c 6e 3c 68 74 6d 6c 3e 3c 68 65 61 64 3e 5c 6e 3c	<!DOCTYPE.html>\n<html><head>\n<
1320	74 69 74 6c 65 3e 35 30 30 20 49 6e 74 65 72 6e 61 6c 20 45 72 72 6f 72 3c 2f 74 69 74 6c 65 3e	title>500.Internal.Error</title>
1340	5c 6e 3c 2f 68 65 61 64 3e 3c 62 6f 64 79 3e 5c 6e 3c 68 31 3e 35 30 30 20 49 6e 74 65 72 6e 61	\n</head><body>\n<h1>500.Interna
1360	6c 20 45 72 72 6f 72 3c 2f 68 31 3e 5c 6e 3c 70 3e 49 6e 74 65 72 6e 61 6c 20 65 72 72 6f 72 20	l.Error</h1>\n<p>Internal.error.
1380	77 68 65 6e 20 68 61 6e 64 6c 69 6e 67 20 74 68 69 73 20 72 65 71 75 65 73 74 2e 3c 2f 70 3e 5c	when.handling.this.request.</p>\
13a0	6e 3c 70 72 65 3e 25 73 3c 2f 70 72 65 3e 5c 6e 3c 2f 62 6f 64 79 3e 3c 2f 68 74 6d 6c 3e 22 29	n<pre>%s</pre>\n</body></html>")
13c0	29 20 28 23 24 20 2e 20 34 34 34 31 29 29 0a 23 40 31 34 39 20 53 74 61 72 74 20 74 68 65 20 77	).(#$...4441)).#@149.Start.the.w
13e0	65 62 20 73 65 72 76 65 72 20 70 72 6f 63 65 73 73 2e 20 49 66 20 74 68 65 20 73 65 72 76 65 72	eb.server.process..If.the.server
1400	20 69 73 20 61 6c 72 65 61 64 79 0a 72 75 6e 6e 69 6e 67 2c 20 74 68 69 73 20 77 69 6c 6c 20 72	.is.already.running,.this.will.r
1420	65 73 74 61 72 74 20 74 68 65 20 73 65 72 76 65 72 2e 20 54 68 65 72 65 20 69 73 20 6f 6e 6c 79	estart.the.server..There.is.only
1440	20 6f 6e 65 20 73 65 72 76 65 72 0a 69 6e 73 74 61 6e 63 65 20 70 65 72 20 45 6d 61 63 73 20 69	.one.server.instance.per.Emacs.i
1460	6e 73 74 61 6e 63 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 73 74 61 72 74	nstance...(defalias.'httpd-start
1480	20 23 5b 6e 69 6c 20 22 5c 33 30 33 20 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 20 44 21	.#[nil."\303.\210\304\305\306.D!
14a0	5c 32 31 30 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 08 5c 33 31 33 5c 33 31 34 5c 33 31	\210\307\310\311\312.\313\314\31
14c0	35 09 5c 33 31 36 5c 6e 5c 33 31 37 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 33 32 34	5.\316\n\317\320\321\322\323\324
14e0	26 10 5c 32 31 30 5c 33 32 35 5c 33 32 36 21 5c 32 30 37 22 20 5b 68 74 74 70 64 2d 70 6f 72 74	&.\210\325\326!\207".[httpd-port
1500	20 68 74 74 70 64 2d 68 6f 73 74 20 68 74 74 70 64 2d 69 70 2d 66 61 6d 69 6c 79 20 68 74 74 70	.httpd-host.httpd-ip-family.http
1520	64 2d 73 74 6f 70 20 68 74 74 70 64 2d 6c 6f 67 20 73 74 61 72 74 20 63 75 72 72 65 6e 74 2d 74	d-stop.httpd-log.start.current-t
1540	69 6d 65 2d 73 74 72 69 6e 67 20 6d 61 6b 65 2d 6e 65 74 77 6f 72 6b 2d 70 72 6f 63 65 73 73 20	ime-string.make-network-process.
1560	3a 6e 61 6d 65 20 22 68 74 74 70 64 22 20 3a 73 65 72 76 69 63 65 20 3a 73 65 72 76 65 72 20 74	:name."httpd".:service.:server.t
1580	20 3a 68 6f 73 74 20 3a 66 61 6d 69 6c 79 20 3a 66 69 6c 74 65 72 20 68 74 74 70 64 2d 2d 66 69	.:host.:family.:filter.httpd--fi
15a0	6c 74 65 72 20 3a 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 3a 6c 6f 67 20 68 74 74 70 64 2d 2d	lter.:coding.binary.:log.httpd--
15c0	6c 6f 67 20 72 75 6e 2d 68 6f 6f 6b 73 20 68 74 74 70 64 2d 73 74 61 72 74 2d 68 6f 6f 6b 5d 20	log.run-hooks.httpd-start-hook].
15e0	31 37 20 28 23 24 20 2e 20 35 30 37 37 29 20 6e 69 6c 5d 29 0a 23 40 37 31 20 53 74 6f 70 20 74	17.(#$...5077).nil]).#@71.Stop.t
1600	68 65 20 77 65 62 20 73 65 72 76 65 72 20 69 66 20 69 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79	he.web.server.if.it.is.currently
1620	20 72 75 6e 6e 69 6e 67 2c 20 6f 74 68 65 72 77 69 73 65 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 1f	.running,.otherwise.do.nothing..
1640	0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 73 74 6f 70 20 23 5b 6e 69 6c 20 22 5c 33	.(defalias.'httpd-stop.#[nil."\3
1660	30 30 5c 33 30 31 21 5c 32 30 35 14 00 5c 33 30 32 5c 33 30 31 21 5c 32 31 30 5c 33 30 33 5c 33	00\301!\205..\302\301!\210\303\3
1680	30 34 5c 33 30 35 20 44 21 5c 32 31 30 5c 33 30 36 5c 33 30 37 21 5c 32 30 37 22 20 5b 70 72 6f	04\305.D!\210\306\307!\207".[pro
16a0	63 65 73 73 2d 73 74 61 74 75 73 20 22 68 74 74 70 64 22 20 64 65 6c 65 74 65 2d 70 72 6f 63 65	cess-status."httpd".delete-proce
16c0	73 73 20 68 74 74 70 64 2d 6c 6f 67 20 73 74 6f 70 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73	ss.httpd-log.stop.current-time-s
16e0	74 72 69 6e 67 20 72 75 6e 2d 68 6f 6f 6b 73 20 68 74 74 70 64 2d 73 74 6f 70 2d 68 6f 6f 6b 5d	tring.run-hooks.httpd-stop-hook]
1700	20 33 20 28 23 24 20 2e 20 35 36 32 36 29 20 6e 69 6c 5d 29 0a 23 40 35 35 20 52 65 74 75 72 6e	.3.(#$...5626).nil]).#@55.Return
1720	20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65 20 73 69 6d 70 6c 65 2d 68 74 74 70 64 20 73 65 72	.non-nil.if.the.simple-httpd.ser
1740	76 65 72 20 69 73 20 72 75 6e 6e 69 6e 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70	ver.is.running...(defalias.'http
1760	64 2d 72 75 6e 6e 69 6e 67 2d 70 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 21 3f 3f 5c 32	d-running-p.#[nil."\300\301!??\2
1780	30 37 22 20 5b 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 22 68 74 74 70 64 22 5d 20 32 20 28	07".[process-status."httpd"].2.(
17a0	23 24 20 2e 20 35 39 31 34 29 5d 29 0a 23 40 36 32 20 53 74 61 72 74 20 74 68 65 20 77 65 62 20	#$...5914)]).#@62.Start.the.web.
17c0	73 65 72 76 65 72 20 77 69 74 68 20 67 69 76 65 6e 20 60 64 69 72 65 63 74 6f 72 79 27 20 61 73	server.with.given.`directory'.as
17e0	20 60 68 74 74 70 64 2d 72 6f 6f 74 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64	.`httpd-root'...(defalias.'httpd
1800	2d 73 65 72 76 65 2d 64 69 72 65 63 74 6f 72 79 20 23 5b 28 64 69 72 65 63 74 6f 72 79 29 20 22	-serve-directory.#[(directory)."
1820	08 11 5c 33 30 34 20 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 6e 5c 32 30 34 0f 00 5c 33 30 37 5c	..\304.\210\305\306\n\204..\307\
1840	32 30 32 1a 00 5c 6e 5c 33 31 30 3d 5c 32 30 33 19 00 5c 33 31 31 5c 32 30 32 1a 00 5c 6e 0b 08	202..\n\310=\203..\311\202..\n..
1860	24 5c 32 30 37 22 20 5b 64 69 72 65 63 74 6f 72 79 20 68 74 74 70 64 2d 72 6f 6f 74 20 68 74 74	$\207".[directory.httpd-root.htt
1880	70 64 2d 68 6f 73 74 20 68 74 74 70 64 2d 70 6f 72 74 20 68 74 74 70 64 2d 73 74 61 72 74 20 6d	pd-host.httpd-port.httpd-start.m
18a0	65 73 73 61 67 65 20 22 53 74 61 72 74 65 64 20 73 69 6d 70 6c 65 2d 68 74 74 70 64 20 6f 6e 20	essage."Started.simple-httpd.on.
18c0	25 73 3a 25 64 2c 20 73 65 72 76 69 6e 67 3a 20 25 73 22 20 22 30 2e 30 2e 30 2e 30 22 20 6c 6f	%s:%d,.serving:.%s"."0.0.0.0".lo
18e0	63 61 6c 20 22 6c 6f 63 61 6c 68 6f 73 74 22 5d 20 35 20 28 23 24 20 2e 20 36 30 36 36 29 20 22	cal."localhost"].5.(#$...6066)."
1900	44 53 65 72 76 65 20 64 69 72 65 63 74 6f 72 79 3a 20 5c 6e 22 5d 29 0a 23 40 31 38 39 20 4e 65	DServe.directory:.\n"]).#@189.Ne
1920	76 65 72 20 72 65 74 75 72 6e 73 2c 20 68 6f 6c 64 69 6e 67 20 74 68 65 20 73 65 72 76 65 72 20	ver.returns,.holding.the.server.
1940	6f 70 65 6e 20 69 6e 64 65 66 69 6e 69 74 65 6c 79 20 66 6f 72 20 62 61 74 63 68 20 6d 6f 64 65	open.indefinitely.for.batch.mode
1960	2e 0a 4c 6f 67 73 20 61 72 65 20 72 65 64 69 72 65 63 74 65 64 20 74 6f 20 73 74 64 6f 75 74 2e	..Logs.are.redirected.to.stdout.
1980	20 54 6f 20 75 73 65 2c 20 69 6e 76 6f 6b 65 20 45 6d 61 63 73 20 6c 69 6b 65 20 74 68 69 73 3a	.To.use,.invoke.Emacs.like.this:
19a0	0a 65 6d 61 63 73 20 2d 51 20 2d 62 61 74 63 68 20 2d 6c 20 73 69 6d 70 6c 65 2d 68 74 74 70 64	.emacs.-Q.-batch.-l.simple-httpd
19c0	2e 65 6c 63 20 2d 66 20 68 74 74 70 64 2d 62 61 74 63 68 2d 73 74 61 72 74 1f 0a 28 64 65 66 61	.elc.-f.httpd-batch-start..(defa
19e0	6c 69 61 73 20 27 68 74 74 70 64 2d 62 61 74 63 68 2d 73 74 61 72 74 20 23 5b 6e 69 6c 20 22 08	lias.'httpd-batch-start.#[nil.".
1a00	5c 32 30 34 08 00 5c 33 30 31 5c 33 30 32 21 5c 32 30 37 5c 33 30 33 20 5c 32 31 30 5c 33 30 34	\204..\301\302!\207\303.\210\304
1a20	5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 37 5c 33 31 30 21 5c 32 31 30 5c 32 30 32 10	\305\306\"\210\307\310!\210\202.
1a40	00 22 20 5b 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 20 65 72 72 6f 72 20 22 4f 6e 6c 79 20 75	.".[noninteractive.error."Only.u
1a60	73 65 20 60 68 74 74 70 64 2d 62 61 74 63 68 2d 73 74 61 72 74 27 20 69 6e 20 62 61 74 63 68 20	se.`httpd-batch-start'.in.batch.
1a80	6d 6f 64 65 21 22 20 68 74 74 70 64 2d 73 74 61 72 74 20 64 65 66 61 6c 69 61 73 20 68 74 74 70	mode!".httpd-start.defalias.http
1aa0	64 2d 6c 6f 67 20 70 70 20 73 6c 65 65 70 2d 66 6f 72 20 36 30 5d 20 33 20 28 23 24 20 2e 20 36	d-log.pp.sleep-for.60].3.(#$...6
1ac0	34 33 30 29 5d 29 0a 23 40 34 30 20 52 65 74 75 72 6e 20 61 6e 20 48 54 54 50 20 64 61 74 65 20	430)]).#@40.Return.an.HTTP.date.
1ae0	73 74 72 69 6e 67 20 28 52 46 43 20 31 31 32 33 29 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	string.(RFC.1123)...(defalias.'h
1b00	74 74 70 64 2d 64 61 74 65 2d 73 74 72 69 6e 67 20 23 5b 28 26 6f 70 74 69 6f 6e 61 6c 20 64 61	ttpd-date-string.#[(&optional.da
1b20	74 65 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 23 5c 32 30 37 22 20 5b 64 61 74 65 20 66	te)."\301\302.\303#\207".[date.f
1b40	6f 72 6d 61 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 22 25 61 2c 20 25 65 20 25 62 20 25 59 20	ormat-time-string."%a,.%e.%b.%Y.
1b60	25 54 20 47 4d 54 22 20 74 5d 20 34 20 28 23 24 20 2e 20 36 38 36 30 29 5d 29 0a 23 40 32 38 20	%T.GMT".t].4.(#$...6860)]).#@28.
1b80	43 6f 6d 70 75 74 65 20 74 68 65 20 45 54 61 67 20 66 6f 72 20 46 49 4c 45 2e 1f 0a 28 64 65 66	Compute.the.ETag.for.FILE...(def
1ba0	61 6c 69 61 73 20 27 68 74 74 70 64 2d 65 74 61 67 20 23 5b 28 66 69 6c 65 29 20 22 5c 33 30 31	alias.'httpd-etag.#[(file)."\301
1bc0	5c 33 30 32 5c 33 30 33 5c 33 30 34 08 21 21 21 5c 33 30 35 5c 33 30 36 4f 5c 33 30 31 51 5c 32	\302\303\304.!!!\305\306O\301Q\2
1be0	30 37 22 20 5b 66 69 6c 65 20 22 5c 22 22 20 73 68 61 31 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72	07".[file."\"".sha1.prin1-to-str
1c00	69 6e 67 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 2d 31 36 20 6e 69 6c 5d 20 35 20 28	ing.file-attributes.-16.nil].5.(
1c20	23 24 20 2e 20 37 30 34 30 29 5d 29 0a 23 40 34 31 20 54 75 72 6e 20 61 20 73 74 72 69 6e 67 20	#$...7040)]).#@41.Turn.a.string.
1c40	64 65 73 69 67 6e 61 74 6f 72 20 69 6e 74 6f 20 61 20 73 74 72 69 6e 67 2e 1f 0a 28 64 65 66 61	designator.into.a.string...(defa
1c60	6c 69 61 73 20 27 68 74 74 70 64 2d 2d 73 74 72 69 6e 67 69 66 79 20 23 5b 28 64 65 73 69 67 6e	lias.'httpd--stringify.#[(design
1c80	61 74 6f 72 29 20 22 5c 33 30 32 5c 33 30 33 08 5c 22 19 5c 33 30 34 08 21 5c 32 30 33 12 00 09	ator)."\302\303.\".\304.!\203...
1ca0	5c 33 30 35 5c 33 30 36 4f 5c 32 30 32 13 00 09 29 5c 32 30 37 22 20 5b 64 65 73 69 67 6e 61 74	\305\306O\202...)\207".[designat
1cc0	6f 72 20 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 25 73 22 20 6b 65 79 77 6f 72 64 70 20 31	or.string.format."%s".keywordp.1
1ce0	20 6e 69 6c 5d 20 33 20 28 23 24 20 2e 20 37 32 31 38 29 5d 29 0a 23 40 36 31 20 52 65 74 75 72	.nil].3.(#$...7218)]).#@61.Retur
1d00	6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68 65 20 63 6c 69 65 6e 74 20 72 65 71 75 65 73 74 65	n.non-nil.if.the.client.requeste
1d20	64 20 22 63 6f 6e 6e 65 63 74 69 6f 6e 3a 20 63 6c 6f 73 65 22 2e 1f 0a 28 64 65 66 61 6c 69 61	d."connection:.close"...(defalia
1d40	73 20 27 68 74 74 70 64 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 2d 70 20 23 5b 28	s.'httpd--connection-close-p.#[(
1d60	72 65 71 75 65 73 74 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 41 5c 33 30 33 5c 32 33 32 5c 32	request)."\301\302.\"A\303\232\2
1d80	30 36 12 00 5c 33 30 31 5c 33 30 34 08 5c 22 41 41 5c 33 30 35 5c 32 33 32 5c 32 30 37 22 20 5b	06..\301\304.\"AA\305\232\207".[
1da0	72 65 71 75 65 73 74 20 61 73 73 6f 63 20 22 43 6f 6e 6e 65 63 74 69 6f 6e 22 20 28 22 63 6c 6f	request.assoc."Connection".("clo
1dc0	73 65 22 29 20 22 47 45 54 22 20 28 22 48 54 54 50 2f 31 2e 30 22 29 5d 20 33 20 28 23 24 20 2e	se")."GET".("HTTP/1.0")].3.(#$..
1de0	20 37 34 31 39 29 5d 29 0a 23 40 34 30 20 52 75 6e 73 20 65 61 63 68 20 74 69 6d 65 20 63 6c 69	.7419)]).#@40.Runs.each.time.cli
1e00	65 6e 74 20 6d 61 6b 65 73 20 61 20 72 65 71 75 65 73 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	ent.makes.a.request...(defalias.
1e20	27 68 74 74 70 64 2d 2d 66 69 6c 74 65 72 20 23 5b 28 70 72 6f 63 20 63 68 75 6e 6b 29 20 22 72	'httpd--filter.#[(proc.chunk)."r
1e40	5c 33 30 36 08 5c 33 30 37 5c 22 71 5c 32 31 30 64 62 5c 32 31 30 09 63 5c 32 31 30 5c 33 30 36	\306.\307\"q\210db\210.c\210\306
1e60	08 5c 33 31 30 5c 22 5c 32 31 31 1a 5c 32 30 34 27 00 5c 33 31 31 20 5c 32 31 31 12 5c 32 30 33	.\310\"\211.\204'.\311.\211.\203
1e80	27 00 65 60 7c 5c 32 31 30 5c 33 31 32 08 5c 33 31 30 5c 6e 23 5c 32 31 30 5c 6e 5c 32 30 35 5c	'.e`|\210\312.\310\n#\210\n\205\
1ea0	33 30 33 00 5c 33 31 33 5c 33 31 34 5c 6e 5c 22 41 40 5c 32 31 31 1b 5c 32 30 33 3f 00 5c 33 31	303.\313\314\n\"A@\211.\203?.\31
1ec0	35 20 5c 33 31 36 0b 21 55 5c 32 30 35 5c 33 30 32 00 5c 33 31 37 20 1c 5c 6e 40 41 40 1d 5c 33	5.\316.!U\205\302.\317..\n@A@.\3
1ee0	32 30 0d 5c 32 36 30 01 21 1e 25 5c 33 32 31 0e 25 40 21 1e 26 5c 33 32 32 0e 25 41 40 5c 33 32	20.\260.!.%\321.%@!.&\322.%A@\32
1f00	33 5c 66 21 5c 22 1e 27 5c 33 32 34 0e 26 21 1e 28 5c 33 32 35 20 5c 32 31 30 5c 33 31 32 08 5c	3\f!\".'\324.&!.(\325.\210\312.\
1f20	33 31 30 5c 33 32 36 23 5c 32 31 30 5c 33 32 37 5c 66 44 5c 6e 5c 32 33 37 42 5c 32 33 37 12 5c	310\326#\210\327\fD\n\237B\237.\
1f40	33 33 30 5c 33 30 32 5c 33 33 31 5c 33 33 32 20 44 5c 33 33 33 5c 33 33 34 08 21 40 44 5c 33 33	330\302\331\332.D\333\334.!@D\33
1f60	35 0e 26 44 5c 33 33 36 5c 6e 42 5c 32 35 37 05 21 5c 32 31 30 0e 28 5c 32 30 34 5c 32 33 33 00	5.&D\336\nB\257.!\210.(\204\233.
1f80	5c 33 33 37 08 5c 33 34 30 5c 22 5c 32 31 30 5c 32 30 32 5c 32 36 37 00 5c 33 34 31 31 5c 32 35	\337.\340\"\210\202\267.\3411\25
1fa0	35 00 0e 28 08 0e 26 0e 27 5c 6e 24 30 5c 32 31 30 5c 32 30 32 5c 32 36 37 00 1e 29 5c 33 33 37	5..(..&.'\n$0\210\202\267..)\337
1fc0	08 5c 33 34 32 0e 29 23 29 5c 32 31 30 5c 33 34 33 5c 6e 21 5c 32 30 35 5c 33 30 30 00 5c 33 34	.\342.)#)\210\343\n!\205\300.\34
1fe0	34 08 21 2e 06 29 2a 5c 32 30 37 22 20 5b 70 72 6f 63 20 63 68 75 6e 6b 20 72 65 71 75 65 73 74	4.!..)*\207".[proc.chunk.request
2000	20 63 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 20 63 6f 6e 74 65 6e 74 20 75 72 69 20 70 72 6f 63	.content-length.content.uri.proc
2020	65 73 73 2d 67 65 74 20 3a 72 65 71 75 65 73 74 2d 62 75 66 66 65 72 20 3a 72 65 71 75 65 73 74	ess-get.:request-buffer.:request
2040	20 68 74 74 70 64 2d 70 61 72 73 65 20 70 72 6f 63 65 73 73 2d 70 75 74 20 61 73 73 6f 63 20 22	.httpd-parse.process-put.assoc."
2060	43 6f 6e 74 65 6e 74 2d 4c 65 6e 67 74 68 22 20 62 75 66 66 65 72 2d 73 69 7a 65 20 73 74 72 69	Content-Length".buffer-size.stri
2080	6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 62 75 66 66 65 72 2d 73 74 72 69 6e 67 20 68 74 74 70 64	ng-to-number.buffer-string.httpd
20a0	2d 70 61 72 73 65 2d 75 72 69 20 68 74 74 70 64 2d 75 6e 68 65 78 20 61 70 70 65 6e 64 20 68 74	-parse-uri.httpd-unhex.append.ht
20c0	74 70 64 2d 70 61 72 73 65 2d 61 72 67 73 20 68 74 74 70 64 2d 67 65 74 2d 73 65 72 76 6c 65 74	tpd-parse-args.httpd-get-servlet
20e0	20 65 72 61 73 65 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 43 6f 6e 74 65 6e 74 22 20 68 74 74 70	.erase-buffer.nil."Content".http
2100	64 2d 6c 6f 67 20 64 61 74 65 20 68 74 74 70 64 2d 64 61 74 65 2d 73 74 72 69 6e 67 20 61 64 64	d-log.date.httpd-date-string.add
2120	72 65 73 73 20 70 72 6f 63 65 73 73 2d 63 6f 6e 74 61 63 74 20 67 65 74 20 68 65 61 64 65 72 73	ress.process-contact.get.headers
2140	20 68 74 74 70 64 2d 2d 65 72 72 6f 72 2d 73 61 66 65 20 34 30 34 20 28 65 72 72 6f 72 29 20 35	.httpd--error-safe.404.(error).5
2160	30 30 20 68 74 74 70 64 2d 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 63 6c 6f 73 65 2d 70 20 70 72 6f	00.httpd--connection-close-p.pro
2180	63 65 73 73 2d 73 65 6e 64 2d 65 6f 66 20 70 61 72 73 65 64 2d 75 72 69 20 75 72 69 2d 70 61 74	cess-send-eof.parsed-uri.uri-pat
21a0	68 20 75 72 69 2d 71 75 65 72 79 20 73 65 72 76 6c 65 74 20 65 72 72 6f 72 2d 63 61 73 65 5d 20	h.uri-query.servlet.error-case].
21c0	38 20 28 23 24 20 2e 20 37 36 36 32 29 5d 29 0a 23 40 33 39 20 52 75 6e 73 20 65 61 63 68 20 74	8.(#$...7662)]).#@39.Runs.each.t
21e0	69 6d 65 20 61 20 6e 65 77 20 63 6c 69 65 6e 74 20 63 6f 6e 6e 65 63 74 73 2e 1f 0a 28 64 65 66	ime.a.new.client.connects...(def
2200	61 6c 69 61 73 20 27 68 74 74 70 64 2d 2d 6c 6f 67 20 23 5b 28 73 65 72 76 65 72 20 70 72 6f 63	alias.'httpd--log.#[(server.proc
2220	20 6d 65 73 73 61 67 65 29 20 22 72 5c 33 30 31 5c 33 30 32 21 71 5c 32 31 30 5c 33 30 33 08 5c	.message)."r\301\302!q\210\303.\
2240	33 30 34 70 23 5c 32 31 30 29 5c 33 30 35 08 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 37 5c 33 31	304p#\210)\305.\306\"\210\307\31
2260	30 5c 33 31 31 08 21 40 44 21 5c 32 30 37 22 20 5b 70 72 6f 63 20 67 65 6e 65 72 61 74 65 2d 6e	0\311.!@D!\207".[proc.generate-n
2280	65 77 2d 62 75 66 66 65 72 20 22 20 2a 68 74 74 70 64 2d 63 6c 69 65 6e 74 2a 22 20 70 72 6f 63	ew-buffer.".*httpd-client*".proc
22a0	65 73 73 2d 70 75 74 20 3a 72 65 71 75 65 73 74 2d 62 75 66 66 65 72 20 73 65 74 2d 70 72 6f 63	ess-put.:request-buffer.set-proc
22c0	65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 68 74 74 70 64 2d 2d 73 65 6e 74 69 6e 65 6c 20 68 74 74	ess-sentinel.httpd--sentinel.htt
22e0	70 64 2d 6c 6f 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 2d 63 6f 6e 74 61 63	pd-log.connection.process-contac
2300	74 5d 20 34 20 28 23 24 20 2e 20 38 36 36 31 29 5d 29 0a 23 40 34 33 20 52 75 6e 73 20 77 68 65	t].4.(#$...8661)]).#@43.Runs.whe
2320	6e 20 61 20 63 6c 69 65 6e 74 20 63 6c 6f 73 65 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e	n.a.client.closes.the.connection
2340	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 2d 73 65 6e 74 69 6e 65 6c 20 23 5b	...(defalias.'httpd--sentinel.#[
2360	28 70 72 6f 63 20 6d 65 73 73 61 67 65 29 20 22 5c 33 30 34 08 5c 33 30 35 5c 33 30 36 19 5c 33	(proc.message)."\304.\305\306.\3
2380	30 37 03 03 03 23 29 5c 32 36 36 5c 32 30 33 3f 5c 32 30 35 1e 00 5c 33 31 30 5c 6e 5c 33 31 31	07...#)\266\203?\205..\310\n\311
23a0	5c 22 5c 32 31 31 1b 5c 32 30 35 1d 00 5c 33 31 32 0b 21 29 5c 32 30 37 22 20 5b 6d 65 73 73 61	\"\211.\205..\312.!)\207".[messa
23c0	67 65 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 70	ge.inhibit-changing-match-data.p
23e0	72 6f 63 20 62 75 66 66 65 72 20 22 5e 6f 70 65 6e 20 22 20 6e 69 6c 20 74 20 73 74 72 69 6e 67	roc.buffer."^open.".nil.t.string
2400	2d 6d 61 74 63 68 20 70 72 6f 63 65 73 73 2d 67 65 74 20 3a 72 65 71 75 65 73 74 2d 62 75 66 66	-match.process-get.:request-buff
2420	65 72 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 38 20 28 23 24 20 2e 20 38 39 38 34 29 5d 29 0a	er.kill-buffer].8.(#$...8984)]).
2440	23 40 34 30 20 50 72 65 74 74 79 20 70 72 69 6e 74 20 61 20 6c 69 73 70 20 6f 62 6a 65 63 74 20	#@40.Pretty.print.a.lisp.object.
2460	74 6f 20 74 68 65 20 6c 6f 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 6c 6f	to.the.log...(defalias.'httpd-lo
2480	67 20 23 5b 28 69 74 65 6d 29 20 22 72 5c 33 30 34 5c 33 30 35 21 71 5c 32 31 30 5c 33 30 36 10	g.#[(item)."r\304\305!q\210\306.
24a0	60 64 55 19 5c 32 31 32 64 62 5c 32 31 30 5c 33 30 37 5c 6e 70 5c 22 5c 32 31 30 29 09 5c 32 30	`dU.\212db\210\307\np\"\210).\20
24c0	33 1d 00 64 62 5c 32 31 30 29 5c 33 31 30 5c 32 31 31 13 10 5c 33 31 31 5c 33 30 36 21 29 5c 32	3..db\210)\310\211..\311\306!)\2
24e0	30 37 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 66 6f 6c 6c 6f 77 20 69 74 65	07".[buffer-read-only.follow.ite
2500	6d 20 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61	m.truncate-lines.get-buffer-crea
2520	74 65 20 22 2a 68 74 74 70 64 2a 22 20 6e 69 6c 20 70 70 20 74 20 73 65 74 2d 62 75 66 66 65 72	te."*httpd*".nil.pp.t.set-buffer
2540	2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 34 20 28 23 24 20 2e 20 39 32 38 35 29 5d 29 0a 23 40 33	-modified-p].4.(#$...9285)]).#@3
2560	38 20 54 68 65 20 70 72 6f 63 65 73 73 20 6f 62 6a 65 63 74 20 63 75 72 72 65 6e 74 6c 79 20 69	8.The.process.object.currently.i
2580	6e 20 75 73 65 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72	n.use...(defvar.httpd-current-pr
25a0	6f 63 20 6e 69 6c 20 28 23 24 20 2e 20 39 35 37 30 29 29 0a 23 40 36 33 20 42 75 66 66 65 72 2d	oc.nil.(#$...9570)).#@63.Buffer-
25c0	6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 20 69 6e 64 69 63 61 74 69 6e 67 20 69 66 20 74 68 65	local.variable.indicating.if.the
25e0	20 68 65 61 64 65 72 20 68 61 73 20 62 65 65 6e 20 73 65 6e 74 2e 1f 0a 28 64 65 66 76 61 72 20	.header.has.been.sent...(defvar.
2600	68 74 74 70 64 2d 2d 68 65 61 64 65 72 2d 73 65 6e 74 20 6e 69 6c 20 28 23 24 20 2e 20 39 36 35	httpd--header-sent.nil.(#$...965
2620	37 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20	7)).(make-variable-buffer-local.
2640	27 68 74 74 70 64 2d 2d 68 65 61 64 65 72 2d 73 65 6e 74 29 0a 23 40 37 31 20 52 65 74 75 72 6e	'httpd--header-sent).#@71.Return
2660	20 74 68 65 20 63 6f 72 72 65 63 74 20 70 72 6f 63 65 73 73 20 74 6f 20 75 73 65 2e 20 54 68 69	.the.correct.process.to.use..Thi
2680	73 20 68 61 6e 64 6c 65 73 20 60 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f 63 27 2e 1f	s.handles.`httpd-current-proc'..
26a0	0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 72 65 73 6f 6c 76 65 2d 70 72 6f 63 20 23	.(defalias.'httpd-resolve-proc.#
26c0	5b 28 70 72 6f 63 29 20 22 08 5c 33 30 32 3d 5c 32 30 33 08 00 09 5c 32 30 37 08 5c 32 30 37 22	[(proc).".\302=\203...\207.\207"
26e0	20 5b 70 72 6f 63 20 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f 63 20 74 5d 20 32 20 28	.[proc.httpd-current-proc.t].2.(
2700	23 24 20 2e 20 39 38 31 38 29 5d 29 0a 23 40 32 38 32 20 43 72 65 61 74 65 20 61 20 74 65 6d 70	#$...9818)]).#@282.Create.a.temp
2720	6f 72 61 72 79 20 62 75 66 66 65 72 2c 20 73 65 74 20 69 74 20 61 73 20 74 68 65 20 63 75 72 72	orary.buffer,.set.it.as.the.curr
2740	65 6e 74 20 62 75 66 66 65 72 2c 20 61 6e 64 2c 0a 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 62	ent.buffer,.and,.at.the.end.of.b
2760	6f 64 79 2c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 65 72 76 65 20 69 74 20 74 6f 20 61	ody,.automatically.serve.it.to.a
2780	6e 20 48 54 54 50 20 63 6c 69 65 6e 74 20 77 69 74 68 0a 61 6e 20 48 54 54 50 20 68 65 61 64 65	n.HTTP.client.with.an.HTTP.heade
27a0	72 20 69 6e 64 69 63 61 74 69 6e 67 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 4d 49 4d 45 20	r.indicating.the.specified.MIME.
27c0	74 79 70 65 2e 20 41 64 64 69 74 69 6f 6e 61 6c 6c 79 2c 0a 60 73 74 61 6e 64 61 72 64 2d 6f 75	type..Additionally,.`standard-ou
27e0	74 70 75 74 27 20 69 73 20 73 65 74 20 74 6f 20 74 68 69 73 20 6f 75 74 70 75 74 20 62 75 66 66	tput'.is.set.to.this.output.buff
2800	65 72 20 61 6e 64 0a 60 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f 63 27 20 69 73 20 73	er.and.`httpd-current-proc'.is.s
2820	65 74 20 74 6f 20 50 52 4f 43 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 77 69 74 68 2d 68 74 74	et.to.PROC...(defalias.'with-htt
2840	70 64 2d 62 75 66 66 65 72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 70 72 6f 63 20 6d 69 6d 65	pd-buffer.'(macro...#[(proc.mime
2860	20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 33 30 34 5c 33 30 35 21 18 5c 33 30 36 08 09 44 43	.&rest.body)."\304\305!.\306..DC
2880	5c 33 30 37 5c 33 31 30 5c 33 30 36 5c 33 31 31 5c 33 31 32 08 44 44 5c 6e 42 42 5c 33 31 33 5c	\307\310\306\311\312.DD\nBB\313\
28a0	33 31 34 5c 33 31 35 08 0b 5c 33 31 36 42 42 42 45 46 45 29 5c 32 30 37 22 20 5b 70 72 6f 63 2d	314\315..\316BBBEFE)\207".[proc-
28c0	73 79 6d 20 70 72 6f 63 20 62 6f 64 79 20 6d 69 6d 65 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22	sym.proc.body.mime.make-symbol."
28e0	2d 2d 70 72 6f 63 2d 2d 22 20 6c 65 74 20 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 28	--proc--".let.with-temp-buffer.(
2900	73 65 74 66 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 68 74 74 70 64 2d 62 75 66 66 65 72 29 20 28	setf.major-mode.'httpd-buffer).(
2920	73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29	standard-output.(current-buffer)
2940	29 20 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f 63 20 75 6e 6c 65 73 73 20 68 74 74 70	).httpd-current-proc.unless.http
2960	64 2d 2d 68 65 61 64 65 72 2d 73 65 6e 74 20 68 74 74 70 64 2d 73 65 6e 64 2d 68 65 61 64 65 72	d--header-sent.httpd-send-header
2980	20 28 32 30 30 29 5d 20 31 31 20 28 23 24 20 2e 20 31 30 30 30 33 29 5d 29 29 0a 28 62 79 74 65	.(200)].11.(#$...10003)])).(byte
29a0	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37	-code."\300\301\302\303#\300\207
29c0	22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 77 69 74 68 2d 68 74 74 70 64 2d 62 75 66 66 65	".[function-put.with-httpd-buffe
29e0	72 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 75 6e 5d 20 34 29	r.lisp-indent-function.defun].4)
2a00	0a 23 40 31 30 35 20 44 6f 6e 27 74 20 72 65 73 70 6f 6e 64 20 75 73 69 6e 67 20 63 75 72 72 65	.#@105.Don't.respond.using.curre
2a20	6e 74 20 73 65 72 76 65 72 20 62 75 66 66 65 72 20 28 60 77 69 74 68 2d 68 74 74 70 64 2d 62 75	nt.server.buffer.(`with-httpd-bu
2a40	66 66 65 72 27 29 2e 0a 52 65 74 75 72 6e 73 20 61 20 70 72 6f 63 65 73 73 20 66 6f 72 20 66 75	ffer')..Returns.a.process.for.fu
2a60	74 75 72 65 20 72 65 73 70 6f 6e 73 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64	ture.response...(defalias.'httpd
2a80	2d 64 69 73 63 61 72 64 2d 62 75 66 66 65 72 20 23 5b 6e 69 6c 20 22 08 5c 33 30 33 3d 5c 32 30	-discard-buffer.#[nil.".\303=\20
2aa0	33 08 00 5c 33 30 34 11 5c 6e 5c 32 30 37 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 68 74 74 70	3..\304.\n\207".[major-mode.http
2ac0	64 2d 2d 68 65 61 64 65 72 2d 73 65 6e 74 20 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f	d--header-sent.httpd-current-pro
2ae0	63 20 68 74 74 70 64 2d 62 75 66 66 65 72 20 74 5d 20 32 20 28 23 24 20 2e 20 31 30 37 35 39 29	c.httpd-buffer.t].2.(#$...10759)
2b00	5d 29 0a 23 40 34 32 34 20 44 65 66 69 6e 65 73 20 61 20 73 69 6d 70 6c 65 20 68 74 74 70 64 20	]).#@424.Defines.a.simple.httpd.
2b20	73 65 72 76 65 6c 65 74 2e 20 54 68 65 20 73 65 72 76 6c 65 74 20 72 75 6e 73 20 69 6e 20 61 0a	servelet..The.servlet.runs.in.a.
2b40	74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 20 77 68 69 63 68 20 69 73 20 61 75 74 6f 6d 61	temporary.buffer.which.is.automa
2b60	74 69 63 61 6c 6c 79 20 73 65 72 76 65 64 20 74 6f 20 74 68 65 20 63 6c 69 65 6e 74 0a 61 6c 6f	tically.served.to.the.client.alo
2b80	6e 67 20 77 69 74 68 20 61 20 68 65 61 64 65 72 2e 0a 0a 41 20 73 65 72 76 6c 65 74 20 74 68 61	ng.with.a.header...A.servlet.tha
2ba0	74 20 73 65 72 76 65 73 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 2a 73 63 72 61 74 63	t.serves.the.contents.of.*scratc
2bc0	68 2a 2c 0a 0a 20 20 20 20 28 64 65 66 73 65 72 76 6c 65 74 20 73 63 72 61 74 63 68 20 74 65 78	h*,......(defservlet.scratch.tex
2be0	74 2f 70 6c 61 69 6e 20 28 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 62 75 66 66 65 72 2d	t/plain.().......(insert-buffer-
2c00	73 75 62 73 74 72 69 6e 67 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 73	substring.(get-buffer-create."*s
2c20	63 72 61 74 63 68 2a 22 29 29 29 0a 0a 41 20 73 65 72 76 6c 65 74 20 74 68 61 74 20 73 61 79 73	cratch*")))..A.servlet.that.says
2c40	20 68 65 6c 6c 6f 2c 0a 0a 20 20 20 20 28 64 65 66 73 65 72 76 6c 65 74 20 68 65 6c 6c 6f 2d 77	.hello,......(defservlet.hello-w
2c60	6f 72 6c 64 20 74 65 78 74 2f 70 6c 61 69 6e 20 28 70 61 74 68 29 0a 20 20 20 20 20 20 28 69 6e	orld.text/plain.(path).......(in
2c80	73 65 72 74 20 22 68 65 6c 6c 6f 2c 20 22 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72	sert."hello,.".(file-name-nondir
2ca0	65 63 74 6f 72 79 20 70 61 74 68 29 29 29 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 65 66 73	ectory.path))))..(defalias.'defs
2cc0	65 72 76 6c 65 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 6e 61 6d 65 20 6d 69 6d 65 20 70 61	ervlet.'(macro...#[(name.mime.pa
2ce0	74 68 2d 71 75 65 72 79 2d 72 65 71 75 65 73 74 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 33	th-query-request.&rest.body)."\3
2d00	30 36 5c 33 30 37 21 5c 33 31 30 5c 33 31 31 5c 33 31 32 08 21 50 21 19 1a 5c 33 31 33 09 5c 6e	06\307!\310\311\312.!P!..\313.\n
2d20	5c 33 31 34 0b 5c 33 31 35 5c 33 31 36 20 44 5c 22 42 5c 33 31 37 5c 6e 5c 33 32 30 5c 66 21 0d	\314.\315\316.D\"B\317\n\320\f!.
2d40	42 42 42 46 2a 5c 32 30 37 22 20 5b 6e 61 6d 65 20 66 6e 61 6d 65 20 70 72 6f 63 2d 73 79 6d 20	BBBF*\207".[name.fname.proc-sym.
2d60	70 61 74 68 2d 71 75 65 72 79 2d 72 65 71 75 65 73 74 20 6d 69 6d 65 20 62 6f 64 79 20 6d 61 6b	path-query-request.mime.body.mak
2d80	65 2d 73 79 6d 62 6f 6c 20 22 70 72 6f 63 22 20 69 6e 74 65 72 6e 20 22 68 74 74 70 64 2f 22 20	e-symbol."proc".intern."httpd/".
2da0	73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 64 65 66 75 6e 20 61 70 70 65 6e 64 20 26 72 65 73 74 20 63	symbol-name.defun.append.&rest.c
2dc0	6c 2d 67 65 6e 73 79 6d 20 77 69 74 68 2d 68 74 74 70 64 2d 62 75 66 66 65 72 20 68 74 74 70 64	l-gensym.with-httpd-buffer.httpd
2de0	2d 2d 73 74 72 69 6e 67 69 66 79 5d 20 37 20 28 23 24 20 2e 20 31 31 30 31 37 29 5d 29 29 0a 28	--stringify].7.(#$...11017)])).(
2e00	62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30	byte-code."\300\301\302\303#\300
2e20	5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 64 65 66 73 65 72 76 6c 65 74 20 6c	\207".[function-put.defservlet.l
2e40	69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 64 65 66 75 6e 5d 20 34 29 0a 23 40	isp-indent-function.defun].4).#@
2e60	36 37 20 50 61 72 73 65 20 61 6e 20 65 6e 64 70 6f 69 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e 20	67.Parse.an.endpoint.definition.
2e80	74 65 6d 70 6c 61 74 65 20 66 6f 72 20 75 73 65 20 77 69 74 68 20 60 64 65 66 73 65 72 76 6c 65	template.for.use.with.`defservle
2ea0	74 2a 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 70 61 72 73 65 2d 65 6e 64	t*'...(defalias.'httpd-parse-end
2ec0	70 6f 69 6e 74 20 23 5b 28 73 79 6d 62 6f 6c 29 20 22 5c 33 30 36 32 57 00 5c 33 30 37 5c 33 31	point.#[(symbol)."\3062W.\307\31
2ee0	30 08 21 5c 33 31 31 5c 22 19 5c 33 31 32 1a 5c 33 31 33 1b 5c 33 31 32 5c 32 31 31 1c 1d 09 3a	0.!\311\".\312.\313.\312\211...:
2f00	5c 32 30 33 47 00 09 40 5c 32 31 31 12 47 5c 33 31 33 56 5c 32 30 33 39 00 5c 6e 5c 33 31 33 48	\203G..@\211.G\313V\2039.\n\313H
2f20	5c 33 31 34 3d 5c 32 30 33 39 00 5c 66 5c 33 31 35 5c 6e 5c 33 31 36 5c 33 31 32 4f 21 0b 42 43	\314=\2039.\f\315\n\316\312O!.BC
2f40	5c 32 34 34 14 5c 32 30 32 3e 00 0d 5c 6e 43 5c 32 34 34 15 09 41 11 0b 54 13 5c 32 30 32 13 00	\244.\202>..\nC\244..A..T.\202..
2f60	5c 33 31 37 5c 33 30 36 5c 33 31 35 5c 33 32 30 5c 33 32 31 0d 5c 33 31 31 23 21 5c 66 44 5c 22	\317\306\315\320\321.\311#!\fD\"
2f80	5c 32 31 30 2d 5c 33 31 32 30 5c 32 30 37 22 20 5b 73 79 6d 62 6f 6c 20 23 31 3d 23 3a 2d 2d 63	\210-\3120\207".[symbol.#1=#:--c
2fa0	6c 2d 76 61 72 2d 2d 20 69 74 65 6d 20 6e 20 76 61 72 73 20 70 61 74 68 20 2d 2d 63 6c 2d 62 6c	l-var--.item.n.vars.path.--cl-bl
2fc0	6f 63 6b 2d 6e 69 6c 2d 2d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c 2d 6e 61	ock-nil--.split-string.symbol-na
2fe0	6d 65 20 22 2f 22 20 6e 69 6c 20 30 20 35 38 20 69 6e 74 65 72 6e 20 31 20 74 68 72 6f 77 20 6d	me."/".nil.0.58.intern.1.throw.m
3000	61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 5d 20 38 20 28 23 24 20 2e 20 31 31 38 37 35	apconcat.identity].8.(#$...11875
3020	29 5d 29 0a 23 40 33 39 20 41 6e 61 70 68 6f 72 69 63 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20	)]).#@39.Anaphoric.variable.for.
3040	60 64 65 66 73 65 72 76 6c 65 74 2a 27 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64 2d 70 61	`defservlet*'...(defvar.httpd-pa
3060	74 68 20 6e 69 6c 20 28 23 24 20 2e 20 31 32 33 32 39 29 29 0a 23 40 33 39 20 41 6e 61 70 68 6f	th.nil.(#$...12329)).#@39.Anapho
3080	72 69 63 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20 60 64 65 66 73 65 72 76 6c 65 74 2a 27 2e 1f	ric.variable.for.`defservlet*'..
30a0	0a 28 64 65 66 76 61 72 20 68 74 74 70 64 2d 71 75 65 72 79 20 6e 69 6c 20 28 23 24 20 2e 20 31	.(defvar.httpd-query.nil.(#$...1
30c0	32 34 31 30 29 29 0a 23 40 33 39 20 41 6e 61 70 68 6f 72 69 63 20 76 61 72 69 61 62 6c 65 20 66	2410)).#@39.Anaphoric.variable.f
30e0	6f 72 20 60 64 65 66 73 65 72 76 6c 65 74 2a 27 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64	or.`defservlet*'...(defvar.httpd
3100	2d 72 65 71 75 65 73 74 20 6e 69 6c 20 28 23 24 20 2e 20 31 32 34 39 32 29 29 0a 23 40 33 39 20	-request.nil.(#$...12492)).#@39.
3120	41 6e 61 70 68 6f 72 69 63 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20 60 64 65 66 73 65 72 76 6c	Anaphoric.variable.for.`defservl
3140	65 74 2a 27 2e 1f 0a 28 64 65 66 76 61 72 20 68 74 74 70 64 2d 73 70 6c 69 74 2d 70 61 74 68 20	et*'...(defvar.httpd-split-path.
3160	6e 69 6c 20 28 23 24 20 2e 20 31 32 35 37 36 29 29 0a 23 40 31 30 34 36 20 4c 69 6b 65 20 60 64	nil.(#$...12576)).#@1046.Like.`d
3180	65 66 73 65 72 76 6c 65 74 27 2c 20 62 75 74 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69	efservlet',.but.automatically.bi
31a0	6e 64 20 76 61 72 69 61 62 6c 65 73 2f 61 72 67 75 6d 65 6e 74 73 0a 74 6f 20 74 68 65 20 72 65	nd.variables/arguments.to.the.re
31c0	71 75 65 73 74 2e 20 54 72 61 69 6c 69 6e 67 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 74 68	quest..Trailing.components.of.th
31e0	65 20 45 4e 44 50 4f 49 4e 54 20 63 61 6e 20 62 65 20 62 6f 75 6e 64 0a 62 79 20 70 72 65 66 69	e.ENDPOINT.can.be.bound.by.prefi
3200	78 69 6e 67 20 74 68 65 73 65 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 77 69 74 68 20 61 20 63 6f 6c	xing.these.components.with.a.col
3220	6f 6e 2c 20 61 63 74 69 6e 67 20 6c 69 6b 65 20 61 20 74 65 6d 70 6c 61 74 65 2e 0a 0a 20 20 20	on,.acting.like.a.template......
3240	20 28 64 65 66 73 65 72 76 6c 65 74 2a 20 70 61 63 6b 61 67 65 73 2f 3a 70 61 63 6b 61 67 65 2f	.(defservlet*.packages/:package/
3260	3a 76 65 72 73 69 6f 6e 20 74 65 78 74 2f 70 6c 61 69 6e 20 28 76 65 72 62 6f 73 65 29 0a 20 20	:version.text/plain.(verbose)...
3280	20 20 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 73 5c 6e 25 73 5c 6e 22 20 70	....(insert.(format."%s\n%s\n".p
32a0	61 63 6b 61 67 65 20 76 65 72 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 28 70 72 69 6e 63 20 28 67	ackage.version)).......(princ.(g
32c0	65 74 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 70 61 63 6b 61 67 65 20 76 65 72 73 69 6f 6e 29 29	et-description.package.version))
32e0	0a 20 20 20 20 20 20 28 77 68 65 6e 20 76 65 72 62 6f 73 65 0a 20 20 20 20 20 20 20 20 28 69 6e	.......(when.verbose.........(in
3300	73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 28 67 65 74 2d 64 65 70 65 6e 64 65 6e 63	sert.(format."%S".(get-dependenc
3320	69 65 73 20 70 61 63 6b 61 67 65 20 76 65 72 73 69 6f 6e 29 29 29 29 29 0a 0a 57 68 65 6e 20 61	ies.package.version)))))..When.a
3340	63 63 65 73 73 65 64 20 66 72 6f 6d 20 74 68 69 73 20 55 52 4c 2c 0a 0a 20 20 20 20 68 74 74 70	ccessed.from.this.URL,......http
3360	3a 2f 2f 65 78 61 6d 70 6c 65 2e 63 6f 6d 2f 70 61 63 6b 61 67 65 73 2f 66 6f 6f 62 61 72 2f 31	://example.com/packages/foobar/1
3380	2e 30 3f 76 65 72 62 6f 73 65 3d 31 0a 0a 74 68 65 20 76 61 72 69 61 62 6c 65 73 20 70 61 63 6b	.0?verbose=1..the.variables.pack
33a0	61 67 65 2c 20 76 65 72 73 69 6f 6e 2c 20 61 6e 64 20 76 65 72 62 6f 73 65 20 77 69 6c 6c 20 62	age,.version,.and.verbose.will.b
33c0	65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 0a 61 73 73 6f 63 69 61 74 65 64 20 63 6f 6d 70 6f 6e	e.bound.to.the.associated.compon
33e0	65 6e 74 73 20 6f 66 20 74 68 65 20 55 52 4c 2e 20 43 6f 6d 70 6f 6e 65 6e 74 73 20 6e 6f 74 20	ents.of.the.URL..Components.not.
3400	70 72 6f 76 69 64 65 64 20 61 72 65 0a 62 6f 75 6e 64 20 74 6f 20 6e 69 6c 2e 20 54 68 65 20 71	provided.are.bound.to.nil..The.q
3420	75 65 72 79 20 61 72 67 75 6d 65 6e 74 73 20 63 61 6e 20 75 73 65 20 74 68 65 20 43 6f 6d 6d 6f	uery.arguments.can.use.the.Commo
3440	6e 20 4c 69 73 70 20 26 6b 65 79 0a 66 6f 72 6d 20 28 76 61 72 69 61 62 6c 65 20 64 65 66 61 75	n.Lisp.&key.form.(variable.defau
3460	6c 74 20 70 72 6f 76 69 64 65 64 2d 70 29 2e 0a 0a 20 20 20 20 28 64 65 66 73 65 72 76 6c 65 74	lt.provided-p).......(defservlet
3480	2a 20 67 72 65 65 74 69 6e 67 2f 3a 6e 61 6d 65 20 74 65 78 74 2f 70 6c 61 69 6e 20 28 28 67 72	*.greeting/:name.text/plain.((gr
34a0	65 65 74 69 6e 67 20 22 68 69 22 20 67 72 65 65 74 69 6e 67 2d 70 29 29 0a 20 20 20 20 20 20 28	eeting."hi".greeting-p)).......(
34c0	70 72 69 6e 63 20 28 66 6f 72 6d 61 74 20 22 25 73 2c 20 25 73 20 28 70 72 6f 76 69 64 65 64 3a	princ.(format."%s,.%s.(provided:
34e0	20 25 73 29 22 20 67 72 65 65 74 69 6e 67 20 6e 61 6d 65 20 67 72 65 65 74 69 6e 67 2d 70 29 29	.%s)".greeting.name.greeting-p))
3500	29 0a 0a 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 70 61 74 68 2c 20 71 75 65 72 79 2c 20 61 6e 64	)..The.original.path,.query,.and
3520	20 72 65 71 75 65 73 74 20 63 61 6e 20 62 65 20 61 63 63 65 73 73 65 64 20 62 79 20 74 68 65 0a	.request.can.be.accessed.by.the.
3540	61 6e 61 70 68 6f 72 69 63 20 73 70 65 63 69 61 6c 20 76 61 72 69 61 62 6c 65 73 20 60 68 74 74	anaphoric.special.variables.`htt
3560	70 64 2d 70 61 74 68 27 2c 20 60 68 74 74 70 64 2d 71 75 65 72 79 27 2c 20 61 6e 64 0a 60 68 74	pd-path',.`httpd-query',.and.`ht
3580	74 70 64 2d 72 65 71 75 65 73 74 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 65 66 73 65 72	tpd-request'...(defalias.'defser
35a0	76 6c 65 74 2a 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 65 6e 64 70 6f 69 6e 74 20 6d 69 6d 65	vlet*.'(macro...#[(endpoint.mime
35c0	20 61 72 67 73 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 33 30 36 20 5c 33 30 36 20 5c 33 30	.args.&rest.body)."\306.\306.\30
35e0	36 20 18 19 1a 5c 33 30 37 0b 21 5c 32 31 31 1c 40 1d 5c 66 41 40 1e 23 5c 33 31 30 0d 0e 24 5c	6....\307.!\211.@.\fA@.#\310..$\
3600	6e 09 08 45 5c 33 31 31 5c 33 31 32 5c 6e 44 5c 33 31 33 09 44 5c 33 31 34 08 44 5c 33 31 35 5c	n..E\311\312\nD\313.D\314.D\315\
3620	33 31 36 5c 33 31 37 5c 6e 5c 33 32 30 42 42 5c 33 32 31 42 42 44 46 5c 33 31 31 0e 23 1e 25 5c	316\317\n\320BB\321BBDF\311.#.%\
3640	33 32 32 5c 32 31 31 1e 26 1e 27 5c 33 32 32 5c 32 31 31 1e 28 1e 29 5c 33 32 33 1e 2a 0e 25 3a	322\211.&.'\322\211.(.)\323.*.%:
3660	5c 32 30 33 79 00 0e 25 40 5c 32 31 31 16 26 5c 32 31 31 41 16 26 5c 32 34 32 16 27 5c 33 32 34	\203y..%@\211.&\211A.&\242.'\324
3680	5c 33 32 35 0e 26 5c 33 32 36 42 42 44 16 28 0e 27 0e 28 44 0e 29 42 16 29 0e 25 41 16 25 5c 33	\325.&\326BBD.(.'.(D.)B.).%A.%\3
36a0	32 32 16 2a 5c 32 30 32 47 00 0e 29 5c 32 33 37 2e 06 5c 33 31 31 0e 2b 1e 2c 5c 33 32 32 5c 32	22.*\202G..)\237..\311.+.,\322\2
36c0	31 31 1e 2d 1e 2e 5c 33 32 32 5c 32 31 31 1e 2f 1e 30 5c 33 32 32 1e 31 5c 33 32 33 1e 32 0e 2c	11.-..\322\211./.0\322.1\323.2.,
36e0	3a 5c 32 30 33 19 01 0e 2c 40 5c 32 31 31 16 2d 3c 5c 32 31 31 16 2e 5c 32 30 35 5c 32 35 35 00	:\203...,@\211.-<\211..\205\255.
3700	0e 2d 47 5c 33 32 37 55 16 2f 5c 33 33 30 0e 2e 5c 32 30 33 5c 32 37 33 00 0e 2d 40 5c 32 30 32	.-G\327U./\330..\203\273..-@\202
3720	5c 32 37 35 00 0e 2d 21 16 30 0e 2e 5c 32 30 33 5c 33 34 34 00 0e 2d 40 5c 33 31 31 5c 33 33 31	\275..-!.0..\203\344..-@\311\331
3740	5c 33 33 32 0e 30 5c 33 33 33 42 42 44 43 5c 33 33 34 5c 33 33 31 5c 33 33 35 0e 2d 41 40 46 45	\332.0\333BBDC\334\331\335.-A@FE
3760	44 0e 31 42 16 31 5c 32 30 32 5c 33 36 34 00 0e 2d 5c 33 33 36 5c 33 33 32 0e 30 5c 33 33 37 42	D.1B.1\202\364..-\336\332.0\337B
3780	42 44 44 0e 31 42 16 31 0e 2f 5c 32 30 33 0e 01 0e 2d 41 41 40 5c 33 34 30 5c 33 34 31 5c 33 33	BDD.1B.1./\203...-AA@\340\341\33
37a0	32 0e 30 5c 33 34 32 42 42 44 44 44 0e 31 42 16 31 0e 2c 41 16 2c 5c 33 32 32 16 32 5c 32 30 32	2.0\342BBDDD.1B.1.,A.,\322.2\202
37c0	5c 32 32 35 00 0e 31 5c 32 33 37 2e 07 0e 33 42 42 45 45 5c 32 35 37 05 2e 06 5c 32 30 37 22 20	\225..1\237...3BBEE\257...\207".
37e0	5b 72 65 71 75 65 73 74 2d 6c 65 78 69 63 61 6c 20 71 75 65 72 79 2d 6c 65 78 69 63 61 6c 20 70	[request-lexical.query-lexical.p
3800	61 74 68 2d 6c 65 78 69 63 61 6c 20 65 6e 64 70 6f 69 6e 74 20 23 31 3d 23 3a 2d 2d 63 6c 2d 76	ath-lexical.endpoint.#1=#:--cl-v
3820	61 72 2d 2d 20 70 61 74 68 20 63 6c 2d 67 65 6e 73 79 6d 20 68 74 74 70 64 2d 70 61 72 73 65 2d	ar--.path.cl-gensym.httpd-parse-
3840	65 6e 64 70 6f 69 6e 74 20 64 65 66 73 65 72 76 6c 65 74 20 6c 65 74 20 68 74 74 70 64 2d 70 61	endpoint.defservlet.let.httpd-pa
3860	74 68 20 68 74 74 70 64 2d 71 75 65 72 79 20 68 74 74 70 64 2d 72 65 71 75 65 73 74 20 68 74 74	th.httpd-query.httpd-request.htt
3880	70 64 2d 73 70 6c 69 74 2d 70 61 74 68 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 73 75 62 73 74	pd-split-path.split-string.subst
38a0	72 69 6e 67 20 28 31 29 20 28 22 2f 22 29 20 6e 69 6c 20 74 20 68 74 74 70 64 2d 75 6e 68 65 78	ring.(1).("/").nil.t.httpd-unhex
38c0	20 6e 74 68 20 28 68 74 74 70 64 2d 73 70 6c 69 74 2d 70 61 74 68 29 20 33 20 73 79 6d 62 6f 6c	.nth.(httpd-split-path).3.symbol
38e0	2d 6e 61 6d 65 20 76 61 6c 75 65 20 61 73 73 6f 63 20 28 68 74 74 70 64 2d 71 75 65 72 79 29 20	-name.value.assoc.(httpd-query).
3900	69 66 20 28 63 6c 2d 73 65 63 6f 6e 64 20 76 61 6c 75 65 29 20 63 6c 2d 73 65 63 6f 6e 64 20 28	if.(cl-second.value).cl-second.(
3920	68 74 74 70 64 2d 71 75 65 72 79 29 20 6e 6f 74 20 6e 75 6c 6c 20 28 68 74 74 70 64 2d 71 75 65	httpd-query).not.null.(httpd-que
3940	72 79 29 20 76 61 72 73 20 6d 69 6d 65 20 23 32 3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 70 6f	ry).vars.mime.#2=#:--cl-var--.po
3960	73 20 76 61 72 20 65 78 74 72 61 63 74 20 23 33 3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 23 34	s.var.extract.#3=#:--cl-var--.#4
3980	3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 61 72 67 73 20 23 35 3d 23 3a 2d 2d 63 6c 2d 76 61 72	=#:--cl-var--.args.#5=#:--cl-var
39a0	2d 2d 20 61 72 67 20 68 61 73 2d 64 65 66 61 75 6c 74 20 68 61 73 2d 64 65 66 61 75 6c 74 2d 70	--.arg.has-default.has-default-p
39c0	20 61 72 67 2d 6e 61 6d 65 20 23 36 3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 23 37 3d 23 3a 2d	.arg-name.#6=#:--cl-var--.#7=#:-
39e0	2d 63 6c 2d 76 61 72 2d 2d 20 62 6f 64 79 5d 20 31 37 20 28 23 24 20 2e 20 31 32 36 36 35 29 5d	-cl-var--.body].17.(#$...12665)]
3a00	29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23	)).(byte-code."\300\301\302\303#
3a20	5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75	\304\305\306\"\207".[function-pu
3a40	74 20 64 65 66 73 65 72 76 6c 65 74 2a 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69	t.defservlet*.lisp-indent-functi
3a60	6f 6e 20 64 65 66 75 6e 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 61 64 64 2d 6b 65 79 77 6f 72 64 73 20	on.defun.font-lock-add-keywords.
3a80	65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 28 28 22 28 5c 5c 3c 5c 5c 28 64 65 66 73 65 72	emacs-lisp-mode.(("(\\<\\(defser
3aa0	76 6c 65 74 5c 5c 2a 3f 5c 5c 29 5c 5c 3e 20 2b 5c 5c 28 5b 5e 20 28 29 5d 2b 5c 5c 29 20 2b 5c	vlet\\*?\\)\\>.+\\([^.()]+\\).+\
3ac0	5c 28 5b 5e 20 28 29 5d 2b 5c 5c 29 22 20 28 31 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77	\([^.()]+\\)".(1.'font-lock-keyw
3ae0	6f 72 64 2d 66 61 63 65 29 20 28 32 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 75 6e 63 74 69 6f 6e	ord-face).(2.'font-lock-function
3b00	2d 6e 61 6d 65 2d 66 61 63 65 29 20 28 33 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66	-name-face).(3.'font-lock-type-f
3b20	61 63 65 29 29 29 5d 20 34 29 0a 23 40 32 30 37 20 44 65 66 69 6e 65 73 20 61 20 73 65 72 76 6c	ace)))].4).#@207.Defines.a.servl
3b40	65 74 20 74 68 61 74 20 73 65 72 76 65 73 20 66 69 6c 65 73 20 66 72 6f 6d 20 52 4f 4f 54 20 75	et.that.serves.files.from.ROOT.u
3b60	6e 64 65 72 20 74 68 65 20 72 6f 75 74 65 20 4e 41 4d 45 2e 0a 0a 20 20 20 20 28 68 74 74 70 64	nder.the.route.NAME.......(httpd
3b80	2d 64 65 66 2d 66 69 6c 65 2d 73 65 72 76 6c 65 74 20 6d 79 2f 77 77 77 20 22 2f 76 61 72 2f 77	-def-file-servlet.my/www."/var/w
3ba0	77 77 2f 22 29 0a 0a 41 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 68 61 6e 64 6c 65 73 20 72 65 64	ww/")..Automatically.handles.red
3bc0	69 72 65 63 74 73 20 61 6e 64 20 75 73 65 73 20 60 68 74 74 70 64 2d 73 65 72 76 65 2d 72 6f 6f	irects.and.uses.`httpd-serve-roo
3be0	74 27 20 74 6f 0a 61 63 74 75 61 6c 6c 79 20 73 65 72 76 65 20 75 70 20 66 69 6c 65 73 2e 1f 0a	t'.to.actually.serve.up.files...
3c00	28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 64 65 66 2d 66 69 6c 65 2d 73 65 72 76 6c 65	(defalias.'httpd-def-file-servle
3c20	74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 6e 61 6d 65 20 72 6f 6f 74 29 20 22 5c 33 30 35 5c	t.'(macro...#[(name.root)."\305\
3c40	33 30 36 08 21 21 5c 32 31 31 19 5c 33 30 37 50 5c 32 31 31 1a 47 1b 5c 33 31 30 08 5c 33 31 31	306.!!\211.\307P\211.G.\310.\311
3c60	5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 0b 45 5c 33 31 37 5c 33 32 30 5c 6e	\312\313\314\315\316.E\317\320\n
3c80	45 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 33 32 34 0b 45 44 43 5c 33 32 35 5c 33 32 30 5c 66 5c	E\321\322\323\324.EDC\325\320\f\
3ca0	33 32 36 42 42 42 45 46 5c 32 35 37 06 2b 5c 32 30 37 22 20 5b 6e 61 6d 65 20 73 68 6f 72 74 2d	326BBBEF\257.+\207".[name.short-
3cc0	72 6f 6f 74 20 70 61 74 68 2d 72 6f 6f 74 20 63 68 6f 70 20 72 6f 6f 74 20 64 69 72 65 63 74 6f	root.path-root.chop.root.directo
3ce0	72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 2f 22 20 64 65 66	ry-file-name.symbol-name."/".def
3d00	73 65 72 76 6c 65 74 20 6e 69 6c 20 28 75 72 69 2d 70 61 74 68 20 71 75 65 72 79 20 72 65 71 75	servlet.nil.(uri-path.query.requ
3d20	65 73 74 29 20 28 73 65 74 66 20 68 74 74 70 64 2d 2d 68 65 61 64 65 72 2d 73 65 6e 74 20 74 29	est).(setf.httpd--header-sent.t)
3d40	20 69 66 20 3d 20 28 6c 65 6e 67 74 68 20 75 72 69 2d 70 61 74 68 29 20 68 74 74 70 64 2d 72 65	.if.=.(length.uri-path).httpd-re
3d60	64 69 72 65 63 74 20 74 20 6c 65 74 20 70 61 74 68 20 73 75 62 73 74 72 69 6e 67 20 75 72 69 2d	direct.t.let.path.substring.uri-
3d80	70 61 74 68 20 68 74 74 70 64 2d 73 65 72 76 65 2d 72 6f 6f 74 20 28 70 61 74 68 20 72 65 71 75	path.httpd-serve-root.(path.requ
3da0	65 73 74 29 5d 20 31 35 20 28 23 24 20 2e 20 31 35 31 35 33 29 5d 29 29 0a 23 40 35 32 20 44 65	est)].15.(#$...15153)])).#@52.De
3dc0	73 74 72 75 63 74 69 76 65 6c 79 20 63 61 70 69 74 61 6c 69 7a 65 20 74 68 65 20 63 6f 6d 70 6f	structively.capitalize.the.compo
3de0	6e 65 6e 74 73 20 6f 66 20 48 45 41 44 45 52 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74	nents.of.HEADER...(defalias.'htt
3e00	70 64 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 68 65 61 64 65 72 20 23 5b 28 68 65 61 64 65 72 29 20	pd--normalize-header.#[(header).
3e20	22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 33 30 34 5c 22 5c 33 30 34 23 5c 32 30 37 22 20 5b	"\301\302\303.\304\"\304#\207".[
3e40	68 65 61 64 65 72 20 6d 61 70 63 6f 6e 63 61 74 20 63 61 70 69 74 61 6c 69 7a 65 20 73 70 6c 69	header.mapconcat.capitalize.spli
3e60	74 2d 73 74 72 69 6e 67 20 22 2d 22 5d 20 35 20 28 23 24 20 2e 20 31 35 38 30 36 29 5d 29 0a 23	t-string."-"].5.(#$...15806)]).#
3e80	40 31 37 32 20 50 61 72 73 65 20 48 54 54 50 20 68 65 61 64 65 72 20 69 6e 20 63 75 72 72 65 6e	@172.Parse.HTTP.header.in.curren
3ea0	74 20 62 75 66 66 65 72 20 69 6e 74 6f 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6c 69 73 74 2e 0a	t.buffer.into.association.list..
3ec0	4c 65 61 76 65 73 20 74 68 65 20 70 6f 69 6e 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66	Leaves.the.point.at.the.start.of
3ee0	20 74 68 65 20 72 65 71 75 65 73 74 20 63 6f 6e 74 65 6e 74 2e 20 52 65 74 75 72 6e 73 20 6e 69	.the.request.content..Returns.ni
3f00	6c 0a 69 66 20 69 74 20 66 61 69 6c 65 64 20 74 6f 20 70 61 72 73 65 20 61 20 63 6f 6d 70 6c 65	l.if.it.failed.to.parse.a.comple
3f20	74 65 20 48 54 54 50 20 68 65 61 64 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70	te.HTTP.header...(defalias.'http
3f40	64 2d 70 61 72 73 65 20 23 5b 6e 69 6c 20 22 65 62 5c 32 31 30 5c 33 30 36 5c 33 30 37 21 5c 32	d-parse.#[nil."eb\210\306\307!\2
3f60	30 35 51 00 5c 33 31 30 5c 33 31 31 21 5c 33 31 32 5c 33 31 30 5c 33 31 33 21 5c 33 31 34 5c 22	05Q.\310\311!\312\310\313!\314\"
3f80	5c 33 31 30 5c 33 31 35 21 5c 33 31 36 18 19 1a 1b 5c 33 31 37 5c 32 32 35 62 5c 32 31 30 5c 33	\310\315!\316....\317\225b\210\3
3fa0	30 36 5c 33 32 30 21 5c 32 30 33 3f 00 5c 33 31 37 5c 32 32 35 62 5c 32 31 30 5c 33 31 30 5c 33	06\320!\203?.\317\225b\210\310\3
3fc0	31 31 21 5c 33 31 30 5c 33 31 33 21 1c 1d 5c 33 32 31 0d 21 5c 33 31 32 5c 66 5c 33 31 34 5c 22	11!\310\313!..\321.!\312\f\314\"
3fe0	44 08 42 10 2a 5c 32 30 32 1e 00 5c 33 30 36 5c 33 32 32 21 5c 32 30 35 50 00 5c 33 31 37 5c 32	D.B.*\202..\306\322!\205P.\317\2
4000	32 35 62 5c 32 31 30 0b 5c 6e 09 45 08 5c 32 33 37 42 2c 5c 32 30 37 22 20 5b 68 65 61 64 65 72	25b\210.\n.E.\237B,\207".[header
4020	73 20 76 65 72 73 69 6f 6e 20 70 61 74 68 20 6d 65 74 68 6f 64 20 76 61 6c 75 65 20 6e 61 6d 65	s.version.path.method.value.name
4040	20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 28 5b 5e 20 5d 2b 5c 5c 29 20 2b 5c 5c 28 5b 5e 20	.looking-at."\\([^.]+\\).+\\([^.
4060	5d 2b 5c 5c 29 20 2b 5c 5c 28 5b 5e 0d 5d 2b 5c 5c 29 0d 5c 6e 22 20 6d 61 74 63 68 2d 73 74 72	]+\\).+\\([^.]+\\).\n".match-str
4080	69 6e 67 20 31 20 64 65 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 32 20 69 73 6f	ing.1.decode-coding-string.2.iso
40a0	2d 38 38 35 39 2d 31 20 33 20 6e 69 6c 20 30 20 22 5c 5c 28 5b 2d 21 23 2d 27 2a 2b 2e 30 2d 39	-8859-1.3.nil.0."\\([-!#-'*+.0-9
40c0	41 2d 5a 5e 5f 60 61 2d 7a 7c 7e 5d 2b 5c 5c 29 3a 20 2a 5c 5c 28 5b 5e 0d 5d 2b 5c 5c 29 0d 5c	A-Z^_`a-z|~]+\\):.*\\([^.]+\\).\
40e0	6e 22 20 68 74 74 70 64 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 68 65 61 64 65 72 20 22 0d 5c 6e 22	n".httpd--normalize-header.".\n"
4100	5d 20 34 20 28 23 24 20 2e 20 31 36 30 30 35 29 5d 29 0a 23 40 35 35 20 46 75 6c 6c 79 20 64 65	].4.(#$...16005)]).#@55.Fully.de
4120	63 6f 64 65 20 74 68 65 20 55 52 4c 20 65 6e 63 6f 64 69 6e 67 20 69 6e 20 53 54 52 20 28 69 6e	code.the.URL.encoding.in.STR.(in
4140	63 6c 75 64 69 6e 67 20 2b 27 73 29 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d	cluding.+'s)...(defalias.'httpd-
4160	75 6e 68 65 78 20 23 5b 28 73 74 72 29 20 22 08 5c 32 30 35 12 00 5c 33 30 32 5c 33 30 33 5c 33	unhex.#[(str).".\205..\302\303\3
4180	30 34 08 23 19 5c 33 30 35 5c 33 30 36 09 5c 33 30 37 5c 22 5c 33 31 30 5c 22 29 5c 32 30 37 22	04.#.\305\306.\307\"\310\")\207"
41a0	20 5b 73 74 72 20 6e 6f 6e 70 6c 75 73 73 65 64 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d	.[str.nonplussed.replace-regexp-
41c0	69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 2b 22 20 22 20 22 20 64 65 63 6f 64 65 2d 63 6f 64 69 6e	in-string."\\+".".".decode-codin
41e0	67 2d 73 74 72 69 6e 67 20 75 72 6c 2d 75 6e 68 65 78 2d 73 74 72 69 6e 67 20 74 20 75 74 66 2d	g-string.url-unhex-string.t.utf-
4200	38 5d 20 34 20 28 23 24 20 2e 20 31 36 36 36 34 29 5d 29 0a 23 40 35 30 20 50 61 72 73 65 20 61	8].4.(#$...16664)]).#@50.Parse.a
4220	20 73 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67 20 55 52 4c 20 65 6e 63 6f 64 65 64 20 61	.string.containing.URL.encoded.a
4240	72 67 75 6d 65 6e 74 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 70 61 72 73	rguments...(defalias.'httpd-pars
4260	65 2d 61 72 67 73 20 23 5b 28 61 72 67 73 74 72 29 20 22 08 47 5c 33 30 31 55 3f 5c 32 30 35 0f	e-args.#[(argstr).".G\301U?\205.
4280	00 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 5c 33 30 35 5c 22 5c 22 5c 32 30 37 22 20 5b 61 72 67	.\302\303\304.\305\"\"\207".[arg
42a0	73 74 72 20 30 20 6d 61 70 63 61 72 20 23 5b 28 73 74 72 29 20 22 5c 33 30 31 5c 33 30 32 5c 33	str.0.mapcar.#[(str)."\301\302\3
42c0	30 33 08 5c 33 30 34 5c 22 5c 22 5c 32 30 37 22 20 5b 73 74 72 20 6d 61 70 63 61 72 20 68 74 74	03.\304\"\"\207".[str.mapcar.htt
42e0	70 64 2d 75 6e 68 65 78 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 3d 22 5d 20 35 5d 20 73 70	pd-unhex.split-string."="].5].sp
4300	6c 69 74 2d 73 74 72 69 6e 67 20 22 26 22 5d 20 35 20 28 23 24 20 2e 20 31 36 39 32 31 29 5d 29	lit-string."&"].5.(#$...16921)])
4320	0a 23 40 31 38 37 20 53 70 6c 69 74 20 61 20 55 52 49 20 69 6e 74 6f 20 69 74 73 20 63 6f 6d 70	.#@187.Split.a.URI.into.its.comp
4340	6f 6e 65 6e 74 73 2e 0a 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65	onents..The.first.element.of.the
4360	20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 73 63 72 69 70 74 20 70 61 74 68	.return.value.is.the.script.path
4380	2c 20 74 68 65 0a 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 6e 20 61 6c 69 73 74	,.the.second.element.is.an.alist
43a0	20 6f 66 20 76 61 72 69 61 62 6c 65 2f 76 61 6c 75 65 20 70 61 69 72 73 2c 20 61 6e 64 20 74 68	.of.variable/value.pairs,.and.th
43c0	65 20 74 68 69 72 64 0a 65 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20 66 72 61 67 6d 65 6e 74 2e	e.third.element.is.the.fragment.
43e0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 70 61 72 73 65 2d 75 72 69 20 23 5b 28	..(defalias.'httpd-parse-uri.#[(
4400	75 72 69 29 20 22 5c 33 30 34 5c 33 30 35 08 5c 22 5c 33 30 34 5c 33 30 36 08 5c 22 5c 33 30 37	uri)."\304\305.\"\304\306.\"\307
4420	19 1a 1b 5c 6e 5c 32 30 35 17 00 5c 33 31 30 08 5c 6e 54 5c 33 30 37 4f 21 09 42 11 0b 5c 32 30	...\n\205..\310.\nT\307O!.B..\20
4440	35 25 00 5c 33 31 31 08 0b 54 5c 6e 4f 21 09 42 11 08 5c 33 31 32 0b 5c 32 30 36 2f 00 5c 6e 4f	5%.\311..T\nO!.B..\312.\206/.\nO
4460	09 42 5c 32 31 31 11 2b 5c 32 30 37 22 20 5b 75 72 69 20 72 65 74 76 61 6c 20 70 32 20 70 31 20	.B\211.+\207".[uri.retval.p2.p1.
4480	73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 3f 22 20 22 23 22 20 6e 69 6c 20 68 74 74 70 64	string-match."\\?"."#".nil.httpd
44a0	2d 75 6e 68 65 78 20 68 74 74 70 64 2d 70 61 72 73 65 2d 61 72 67 73 20 30 5d 20 34 20 28 23 24	-unhex.httpd-parse-args.0].4.(#$
44c0	20 2e 20 31 37 31 39 31 29 5d 29 0a 23 40 36 38 20 45 73 63 61 70 65 20 63 75 72 72 65 6e 74 20	...17191)]).#@68.Escape.current.
44e0	62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 74 6f 20 62 65 20 73 61 66 65 20 66 6f 72 20 69	buffer.contents.to.be.safe.for.i
4500	6e 73 65 72 74 69 6e 67 20 69 6e 74 6f 20 48 54 4d 4c 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	nserting.into.HTML...(defalias.'
4520	68 74 74 70 64 2d 65 73 63 61 70 65 2d 68 74 6d 6c 2d 62 75 66 66 65 72 20 23 5b 6e 69 6c 20 22	httpd-escape-html-buffer.#[nil."
4540	65 62 5c 32 31 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 23 5c 32 30 35 2b 00 5c 33 30	eb\210\301\302\303\304#\205+.\30
4560	35 5c 33 30 36 5c 33 30 37 21 5c 33 30 37 48 5c 32 31 31 18 5c 33 31 30 5c 32 36 37 5c 32 30 32	5\306\307!\307H\211.\310\267\202
4580	24 00 5c 33 31 31 5c 32 30 32 25 00 5c 33 31 32 5c 32 30 32 25 00 5c 33 31 33 5c 32 30 32 25 00	$.\311\202%.\312\202%.\313\202%.
45a0	5c 33 30 33 29 21 5c 32 31 30 5c 32 30 32 03 00 5c 32 30 37 22 20 5b 23 31 3d 23 3a 74 65 6d 70	\303)!\210\202..\207".[#1=#:temp
45c0	20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 22 5b 3c 3e 26 5d 22 20 6e	.search-forward-regexp."[<>&]".n
45e0	69 6c 20 74 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20	il.t.replace-match.match-string.
4600	30 20 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 33 20 74 65 73 74 20 65 71 20 72	0.#s(hash-table.size.3.test.eq.r
4620	65 68 61 73 68 2d 73 69 7a 65 20 31 2e 35 20 72 65 68 61 73 68 2d 74 68 72 65 73 68 6f 6c 64 20	ehash-size.1.5.rehash-threshold.
4640	30 2e 38 31 32 35 20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 36 30 20 32 34 20 36 32	0.8125.purecopy.t.data.(60.24.62
4660	20 32 38 20 33 38 20 33 32 29 29 20 22 26 6c 74 3b 22 20 22 26 67 74 3b 22 20 22 26 61 6d 70 3b	.28.38.32))."&lt;"."&gt;"."&amp;
4680	22 5d 20 35 20 28 23 24 20 2e 20 31 37 36 31 37 29 5d 29 0a 23 40 36 36 20 45 73 63 61 70 65 20	"].5.(#$...17617)]).#@66.Escape.
46a0	53 54 52 49 4e 47 20 73 6f 20 74 68 61 74 20 69 74 27 73 20 73 61 66 65 20 74 6f 20 69 6e 73 65	STRING.so.that.it's.safe.to.inse
46c0	72 74 20 69 6e 74 6f 20 61 6e 20 48 54 4d 4c 20 64 6f 63 75 6d 65 6e 74 2e 1f 0a 28 64 65 66 61	rt.into.an.HTML.document...(defa
46e0	6c 69 61 73 20 27 68 74 74 70 64 2d 65 73 63 61 70 65 2d 68 74 6d 6c 20 23 5b 28 73 74 72 69 6e	lias.'httpd-escape-html.#[(strin
4700	67 29 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 22 18 72 08 71 5c 32 31 30 5c 33 30 35 5c 32	g)."\302\303\304\".r.q\210\305\2
4720	31 36 09 63 5c 32 31 30 5c 33 30 36 20 5c 32 31 30 5c 33 30 37 20 2b 5c 32 30 37 22 20 5b 23 31	16.c\210\306.\210\307.+\207".[#1
4740	3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73 74 72 69 6e 67 20 67 65 6e 65 72 61 74 65 2d 6e	=#:temp-buffer.string.generate-n
4760	65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30	ew-buffer.".*temp*".t.#[nil."\30
4780	31 08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72	1.!\205..\302.!\207".[#1#.buffer
47a0	2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 68 74 74 70 64 2d 65 73 63 61	-name.kill-buffer].2].httpd-esca
47c0	70 65 2d 68 74 6d 6c 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 73 74 72 69 6e 67 5d 20 33 20	pe-html-buffer.buffer-string].3.
47e0	28 23 24 20 2e 20 31 38 30 37 33 29 5d 29 0a 23 40 33 33 20 44 65 74 65 72 6d 69 6e 65 20 73 74	(#$...18073)]).#@33.Determine.st
4800	61 74 75 73 20 63 6f 64 65 20 66 6f 72 20 50 41 54 48 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	atus.code.for.PATH...(defalias.'
4820	68 74 74 70 64 2d 73 74 61 74 75 73 20 23 5b 28 70 61 74 68 29 20 22 5c 33 30 32 08 21 5c 32 30	httpd-status.#[(path)."\302.!\20
4840	34 08 00 5c 33 30 33 5c 32 30 37 5c 33 30 34 08 21 5c 32 30 34 10 00 5c 33 30 35 5c 32 30 37 5c	4..\303\207\304.!\204..\305\207\
4860	33 30 36 08 21 5c 32 30 33 1c 00 09 5c 32 30 34 1c 00 5c 33 30 35 5c 32 30 37 5c 33 30 37 5c 32	306.!\203...\204..\305\207\307\2
4880	30 37 22 20 5b 70 61 74 68 20 68 74 74 70 64 2d 6c 69 73 74 69 6e 67 73 20 66 69 6c 65 2d 65 78	07".[path.httpd-listings.file-ex
48a0	69 73 74 73 2d 70 20 34 30 34 20 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 34 30 33 20 66	ists-p.404.file-readable-p.403.f
48c0	69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 32 30 30 5d 20 32 20 28 23 24 20 2e 20 31 38 34	ile-directory-p.200].2.(#$...184
48e0	32 30 29 5d 29 0a 23 40 36 30 20 43 6c 65 61 6e 20 64 61 6e 67 65 72 6f 75 73 20 2e 2e 20 66 72	20)]).#@60.Clean.dangerous....fr
4900	6f 6d 20 50 41 54 48 20 61 6e 64 20 72 65 6d 6f 76 65 20 74 68 65 20 6c 65 61 64 69 6e 67 20 73	om.PATH.and.remove.the.leading.s
4920	6c 61 73 68 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 63 6c 65 61 6e 2d 70 61	lash...(defalias.'httpd-clean-pa
4940	74 68 20 23 5b 28 70 61 74 68 29 20 22 08 5c 33 30 35 3e 5c 32 30 33 5c 6e 00 5c 33 30 36 5c 32	th.#[(path).".\305>\203\n.\306\2
4960	30 32 0b 00 5c 33 30 37 19 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 6e 09 5c 22 5c 22 1b 5c 33 31	02..\307.\310\311\312\n.\"\".\31
4980	33 5c 33 31 34 5c 33 31 30 5c 33 31 35 0b 5c 22 5c 33 30 37 23 1c 5c 33 31 36 5c 66 50 2b 5c 32	3\314\310\315.\"\307#.\316\fP+\2
49a0	30 37 22 20 5b 73 79 73 74 65 6d 2d 74 79 70 65 20 73 65 70 20 70 61 74 68 20 73 70 6c 69 74 20	07".[system-type.sep.path.split.
49c0	75 6e 73 70 6c 69 74 20 28 77 69 6e 64 6f 77 73 2d 6e 74 20 6d 73 2d 64 6f 73 29 20 22 5b 2f 5c	unsplit.(windows-nt.ms-dos)."[/\
49e0	5c 5d 22 20 22 2f 22 20 64 65 6c 65 74 65 20 22 2e 2e 22 20 73 70 6c 69 74 2d 73 74 72 69 6e 67	\]"."/".delete."..".split-string
4a00	20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 22 22 20 22 2e 2f 22 5d 20 35 20 28	.mapconcat.identity.""."./"].5.(
4a20	23 24 20 2e 20 31 38 36 36 37 29 5d 29 0a 23 40 35 34 20 54 72 61 6e 73 6c 61 74 65 20 47 45 54	#$...18667)]).#@54.Translate.GET
4a40	20 74 6f 20 73 65 63 75 72 65 20 70 61 74 68 20 69 6e 20 52 4f 4f 54 20 28 60 68 74 74 70 64 2d	.to.secure.path.in.ROOT.(`httpd-
4a60	72 6f 6f 74 27 29 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 67 65 6e 2d 70 61	root')...(defalias.'httpd-gen-pa
4a80	74 68 20 23 5b 28 70 61 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 72 6f 6f 74 29 20 22 5c 33 30 36	th.#[(path.&optional.root)."\306
4aa0	5c 33 30 37 08 21 09 5c 32 30 36 09 00 5c 6e 5c 22 1b 5c 33 31 30 0b 21 5c 32 30 33 2f 00 5c 33	\307.!.\206..\n\".\310.!\203/.\3
4ac0	31 31 0b 21 1c 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 66 5c 22 0d 5c 22 1e 0f 5c 33 31 35 5c 33	11.!.\312\313\314\f\".\"..\315\3
4ae0	31 36 0e 0f 5c 22 5c 32 31 31 1e 10 40 5c 32 30 36 2b 00 5c 66 2b 5c 32 30 32 30 00 0b 29 5c 32	16..\"\211..@\206+.\f+\2020..)\2
4b00	30 37 22 20 5b 70 61 74 68 20 72 6f 6f 74 20 68 74 74 70 64 2d 72 6f 6f 74 20 63 6c 65 61 6e 20	07".[path.root.httpd-root.clean.
4b20	64 69 72 20 68 74 74 70 64 2d 69 6e 64 65 78 65 73 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61	dir.httpd-indexes.expand-file-na
4b40	6d 65 20 68 74 74 70 64 2d 63 6c 65 61 6e 2d 70 61 74 68 20 66 69 6c 65 2d 64 69 72 65 63 74 6f	me.httpd-clean-path.file-directo
4b60	72 79 2d 70 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 63 6c 2d 6d	ry-p.file-name-as-directory.cl-m
4b80	61 70 63 61 72 20 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 20 63 6f 6e 63 61 74 20 63 6c 2d	apcar.apply-partially.concat.cl-
4ba0	72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 69 6e 64 65	remove-if-not.file-exists-p.inde
4bc0	78 65 73 20 65 78 69 73 74 69 6e 67 5d 20 35 20 28 23 24 20 2e 20 31 38 39 39 35 29 5d 29 0a 23	xes.existing].5.(#$...18995)]).#
4be0	40 35 32 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 73 65 72 76 6c 65 74 20 74 6f 20 62 65 20	@52.Determine.the.servlet.to.be.
4c00	65 78 65 63 75 74 65 64 20 66 6f 72 20 55 52 49 2d 50 41 54 48 2e 1f 0a 28 64 65 66 61 6c 69 61	executed.for.URI-PATH...(defalia
4c20	73 20 27 68 74 74 70 64 2d 67 65 74 2d 73 65 72 76 6c 65 74 20 23 5b 28 75 72 69 2d 70 61 74 68	s.'httpd-get-servlet.#[(uri-path
4c40	29 20 22 08 5c 32 30 34 06 00 5c 33 30 34 5c 32 30 37 5c 33 30 35 19 5c 33 30 36 5c 33 30 37 5c	).".\204..\304\207\305.\306\307\
4c60	6e 21 5c 33 31 30 5c 22 41 1b 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 09 5c	n!\310\"A.\311\312\313\314\315.\
4c80	33 31 36 0b 21 5c 22 5c 22 5c 22 5c 32 30 36 20 00 5c 33 30 34 2a 5c 32 30 37 22 20 5b 68 74 74	316.!\"\"\"\206..\304*\207".[htt
4ca0	70 64 2d 73 65 72 76 6c 65 74 73 20 23 31 3d 23 3a 2d 2d 63 6c 2d 63 61 74 2d 2d 20 75 72 69 2d	pd-servlets.#1=#:--cl-cat--.uri-
4cc0	70 61 74 68 20 70 61 72 74 73 20 68 74 74 70 64 2f 20 23 5b 28 78 29 20 22 5c 33 30 31 5c 33 30	path.parts.httpd/.#[(x)."\301\30
4ce0	32 5c 33 30 33 5c 33 30 34 08 21 5c 33 30 35 23 50 5c 32 30 37 22 20 5b 78 20 22 68 74 74 70 64	2\303\304.!\305#P\207".[x."httpd
4d00	2f 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 72 65 76 65 72 73 65 20 22 2f	/".mapconcat.identity.reverse."/
4d20	22 5d 20 35 5d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c	"].5].split-string.directory-fil
4d40	65 2d 6e 61 6d 65 20 22 2f 22 20 63 6c 2d 66 69 6e 64 2d 69 66 20 66 62 6f 75 6e 64 70 20 6d 61	e-name."/".cl-find-if.fboundp.ma
4d60	70 63 61 72 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 63 6c 2d 6d 61 70 6c 69 73 74 20 72 65 76 65	pcar.intern-soft.cl-maplist.reve
4d80	72 73 65 5d 20 38 20 28 23 24 20 2e 20 31 39 34 32 38 29 5d 29 0a 23 40 35 30 20 53 65 63 75 72	rse].8.(#$...19428)]).#@50.Secur
4da0	65 6c 79 20 73 65 72 76 65 20 61 20 66 69 6c 65 20 66 72 6f 6d 20 52 4f 4f 54 20 66 72 6f 6d 20	ely.serve.a.file.from.ROOT.from.
4dc0	75 6e 64 65 72 20 50 41 54 48 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 73 65	under.PATH...(defalias.'httpd-se
4de0	72 76 65 2d 72 6f 6f 74 20 23 5b 28 70 72 6f 63 20 72 6f 6f 74 20 75 72 69 2d 70 61 74 68 20 26	rve-root.#[(proc.root.uri-path.&
4e00	6f 70 74 69 6f 6e 61 6c 20 72 65 71 75 65 73 74 29 20 22 5c 33 30 36 08 09 5c 22 1a 5c 33 30 37	optional.request)."\306..\".\307
4e20	5c 6e 21 5c 32 31 31 1b 5c 33 31 30 55 5c 32 30 34 16 00 5c 33 31 31 5c 66 0b 5c 22 5c 32 30 32	\n!\211.\310U\204..\311\f.\"\202
4e40	29 00 5c 33 31 32 5c 6e 21 5c 32 30 33 24 00 5c 33 31 33 5c 66 5c 6e 08 23 5c 32 30 32 29 00 5c	).\312\n!\203$.\313\f\n.#\202).\
4e60	33 31 34 5c 66 5c 6e 0d 23 2a 5c 32 30 37 22 20 5b 75 72 69 2d 70 61 74 68 20 72 6f 6f 74 20 70	314\f\n.#*\207".[uri-path.root.p
4e80	61 74 68 20 73 74 61 74 75 73 20 70 72 6f 63 20 72 65 71 75 65 73 74 20 68 74 74 70 64 2d 67 65	ath.status.proc.request.httpd-ge
4ea0	6e 2d 70 61 74 68 20 68 74 74 70 64 2d 73 74 61 74 75 73 20 32 30 30 20 68 74 74 70 64 2d 65 72	n-path.httpd-status.200.httpd-er
4ec0	72 6f 72 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 68 74 74 70 64 2d 73 65 6e 64 2d	ror.file-directory-p.httpd-send-
4ee0	64 69 72 65 63 74 6f 72 79 20 68 74 74 70 64 2d 73 65 6e 64 2d 66 69 6c 65 5d 20 35 20 28 23 24	directory.httpd-send-file].5.(#$
4f00	20 2e 20 31 39 38 36 37 29 5d 29 0a 23 40 37 30 20 44 65 66 61 75 6c 74 20 72 6f 6f 74 20 73 65	...19867)]).#@70.Default.root.se
4f20	72 76 6c 65 74 20 77 68 69 63 68 20 73 65 72 76 65 73 20 66 69 6c 65 73 20 77 68 65 6e 20 68 74	rvlet.which.serves.files.when.ht
4f40	74 70 64 2d 73 65 72 76 65 2d 66 69 6c 65 73 20 69 73 20 54 2e 1f 0a 28 64 65 66 61 6c 69 61 73	tpd-serve-files.is.T...(defalias
4f60	20 27 68 74 74 70 64 2f 20 23 5b 28 70 72 6f 63 20 75 72 69 2d 70 61 74 68 20 71 75 65 72 79 20	.'httpd/.#[(proc.uri-path.query.
4f80	72 65 71 75 65 73 74 29 20 22 08 5c 32 30 33 0f 00 09 5c 32 30 33 0f 00 5c 33 30 35 5c 6e 09 0b	request).".\203...\203..\305\n..
4fa0	5c 66 24 5c 32 30 37 5c 33 30 36 5c 6e 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 68 74 74 70 64 2d	\f$\207\306\n\307\"\207".[httpd-
4fc0	73 65 72 76 65 2d 66 69 6c 65 73 20 68 74 74 70 64 2d 72 6f 6f 74 20 70 72 6f 63 20 75 72 69 2d	serve-files.httpd-root.proc.uri-
4fe0	70 61 74 68 20 72 65 71 75 65 73 74 20 68 74 74 70 64 2d 73 65 72 76 65 2d 72 6f 6f 74 20 68 74	path.request.httpd-serve-root.ht
5000	74 70 64 2d 65 72 72 6f 72 20 34 30 33 5d 20 35 20 28 23 24 20 2e 20 32 30 32 34 31 29 5d 29 0a	tpd-error.403].5.(#$...20241)]).
5020	23 40 34 33 20 46 65 74 63 68 20 4d 49 4d 45 20 74 79 70 65 20 67 69 76 65 6e 20 74 68 65 20 66	#@43.Fetch.MIME.type.given.the.f
5040	69 6c 65 20 65 78 74 65 6e 74 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64	ile.extention...(defalias.'httpd
5060	2d 67 65 74 2d 6d 69 6d 65 20 23 5b 28 65 78 74 29 20 22 08 5c 32 30 33 0d 00 5c 33 30 32 08 5c	-get-mime.#[(ext).".\203..\302.\
5080	32 32 37 09 5c 22 41 5c 32 30 36 0e 00 5c 33 30 33 5c 32 30 37 22 20 5b 65 78 74 20 68 74 74 70	227.\"A\206..\303\207".[ext.http
50a0	64 2d 6d 69 6d 65 2d 74 79 70 65 73 20 61 73 73 6f 63 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f	d-mime-types.assoc."application/
50c0	6f 63 74 65 74 2d 73 74 72 65 61 6d 22 5d 20 33 20 28 23 24 20 2e 20 32 30 35 31 37 29 5d 29 0a	octet-stream"].3.(#$...20517)]).
50e0	23 40 32 37 39 20 53 65 6e 64 20 61 6e 20 48 54 54 50 20 68 65 61 64 65 72 20 77 69 74 68 20 67	#@279.Send.an.HTTP.header.with.g
5100	69 76 65 6e 20 4d 49 4d 45 20 74 79 70 65 20 61 6e 64 20 53 54 41 54 55 53 2c 20 66 6f 6c 6c 6f	iven.MIME.type.and.STATUS,.follo
5120	77 65 64 0a 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 20 49 66 20 50 52	wed.by.the.current.buffer..If.PR
5140	4f 43 20 69 73 20 54 20 75 73 65 20 74 68 65 20 60 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70	OC.is.T.use.the.`httpd-current-p
5160	72 6f 63 27 0a 61 73 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 0a 45 78 74 72 61 20 68 65 61 64	roc'.as.the.process...Extra.head
5180	65 72 73 20 63 61 6e 20 62 65 20 73 65 6e 74 20 62 79 20 73 75 70 70 6c 79 69 6e 67 20 74 68 65	ers.can.be.sent.by.supplying.the
51a0	6d 20 6c 69 6b 65 20 6b 65 79 77 6f 72 64 73 2c 20 69 2e 65 2e 0a 0a 20 28 68 74 74 70 64 2d 73	m.like.keywords,.i.e....(httpd-s
51c0	65 6e 64 2d 68 65 61 64 65 72 20 74 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 32 30 30 20 3a 58	end-header.t."text/plain".200.:X
51e0	2d 50 6f 77 65 72 65 64 2d 42 79 20 22 73 69 6d 70 6c 65 2d 68 74 74 70 64 22 29 1f 0a 28 64 65	-Powered-By."simple-httpd")..(de
5200	66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 73 65 6e 64 2d 68 65 61 64 65 72 20 23 5b 28 70 72 6f	falias.'httpd-send-header.#[(pro
5220	63 20 6d 69 6d 65 20 73 74 61 74 75 73 20 26 72 65 73 74 20 68 65 61 64 65 72 2d 6b 65 79 73 29	c.mime.status.&rest.header-keys)
5240	20 22 08 09 5c 32 33 36 41 5c 33 30 36 5c 6e 42 5c 33 30 37 5c 33 31 30 20 42 5c 33 31 31 5c 33	."..\236A\306\nB\307\310.B\311\3
5260	31 32 5c 33 31 33 0b 21 42 5c 33 31 34 5c 33 31 35 20 42 5c 32 35 37 05 1c 1d 0e 1c 3f 5c 32 30	12\313.!B\314\315.B\257.....?\20
5280	35 5c 33 31 35 00 5c 33 31 36 16 1c 5c 33 31 37 5c 33 32 30 5c 33 31 36 5c 22 1e 1d 72 0e 1d 71	5\315.\316..\317\320\316\"..r..q
52a0	5c 32 31 30 5c 33 32 31 5c 32 31 36 5c 33 32 32 5c 33 32 33 08 0d 23 63 5c 32 31 30 0e 1e 1e 1f	\210\321\216\322\323..#c\210....
52c0	5c 33 32 34 5c 32 31 31 1e 20 1e 21 5c 33 32 34 5c 32 31 31 1e 5c 22 1e 23 5c 33 32 34 5c 32 31	\324\211...!\324\211.\".#\324\21
52e0	31 1e 24 1e 25 5c 33 31 36 1e 26 0e 1f 3a 5c 32 30 33 5c 32 31 35 00 0e 1f 5c 32 31 31 16 5c 22	1.$.%\316.&..:\203\215...\211.\"
5300	5c 32 31 31 41 16 5c 22 5c 32 34 32 16 20 0e 5c 22 40 16 21 5c 33 32 35 0e 20 21 5c 33 32 36 5c	\211A.\"\242...\"@.!\325..!\326\
5320	33 32 34 4f 16 23 5c 33 32 32 5c 33 32 37 0e 21 5c 22 16 24 0e 25 0e 23 0e 24 42 43 5c 32 34 34	324O.#\322\327.!\".$.%.#.$BC\244
5340	16 25 0e 1f 41 41 16 1f 5c 33 32 34 16 26 5c 32 30 32 4f 00 5c 66 0e 25 5c 32 34 34 14 2e 08 5c	.%..AA..\324.&\202O.\f.%\244...\
5360	66 5c 33 32 34 1e 20 5c 32 31 31 1e 27 5c 32 30 33 5c 32 36 37 00 0e 27 40 16 20 5c 33 32 32 5c	f\324..\211.'\203\267..'@..\322\
5380	33 33 30 0e 20 40 0e 20 41 23 63 5c 32 31 30 0e 27 41 5c 32 31 31 16 27 5c 32 30 34 5c 32 33 36	330..@..A#c\210.'A\211.'\204\236
53a0	00 2a 5c 33 33 31 63 5c 32 31 30 5c 33 33 32 5c 33 33 33 0e 28 21 65 64 23 5c 32 31 30 2b 5c 33	.*\331c\210\332\333.(!ed#\210+\3
53c0	33 32 5c 33 33 33 0e 28 21 65 64 23 2a 5c 32 30 37 22 20 5b 73 74 61 74 75 73 20 68 74 74 70 64	32\333.(!ed#*\207".[status.httpd
53e0	2d 73 74 61 74 75 73 2d 63 6f 64 65 73 20 68 74 74 70 64 2d 73 65 72 76 65 72 2d 6e 61 6d 65 20	-status-codes.httpd-server-name.
5400	6d 69 6d 65 20 68 65 61 64 65 72 73 20 73 74 61 74 75 73 2d 73 74 72 20 22 53 65 72 76 65 72 22	mime.headers.status-str."Server"
5420	20 22 44 61 74 65 22 20 68 74 74 70 64 2d 64 61 74 65 2d 73 74 72 69 6e 67 20 28 22 43 6f 6e 6e	."Date".httpd-date-string.("Conn
5440	65 63 74 69 6f 6e 22 20 2e 20 22 6b 65 65 70 2d 61 6c 69 76 65 22 29 20 22 43 6f 6e 74 65 6e 74	ection"..."keep-alive")."Content
5460	2d 54 79 70 65 22 20 68 74 74 70 64 2d 2d 73 74 72 69 6e 67 69 66 79 20 22 43 6f 6e 74 65 6e 74	-Type".httpd--stringify."Content
5480	2d 4c 65 6e 67 74 68 22 20 68 74 74 70 64 2d 2d 62 75 66 66 65 72 2d 73 69 7a 65 20 74 20 67 65	-Length".httpd--buffer-size.t.ge
54a0	6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 23 5b 6e 69	nerate-new-buffer.".*temp*".#[ni
54c0	6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 3d 23	l."\301.!\205..\302.!\207".[#1=#
54e0	3a 74 65 6d 70 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75	:temp-buffer.buffer-name.kill-bu
5500	66 66 65 72 5d 20 32 5d 20 66 6f 72 6d 61 74 20 22 48 54 54 50 2f 31 2e 31 20 25 64 20 25 73 0d	ffer].2].format."HTTP/1.1.%d.%s.
5520	5c 6e 22 20 6e 69 6c 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 31 20 22 25 73 22 20 22 25 73 3a 20	\n".nil.symbol-name.1."%s"."%s:.
5540	25 73 0d 5c 6e 22 20 22 0d 5c 6e 22 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 72 65 67 69 6f 6e	%s.\n".".\n".process-send-region
5560	20 68 74 74 70 64 2d 72 65 73 6f 6c 76 65 2d 70 72 6f 63 20 68 74 74 70 64 2d 2d 68 65 61 64 65	.httpd-resolve-proc.httpd--heade
5580	72 2d 73 65 6e 74 20 23 31 23 20 68 65 61 64 65 72 2d 6b 65 79 73 20 23 32 3d 23 3a 2d 2d 63 6c	r-sent.#1#.header-keys.#2=#:--cl
55a0	2d 76 61 72 2d 2d 20 68 65 61 64 65 72 20 76 61 6c 75 65 20 23 33 3d 23 3a 2d 2d 63 6c 2d 76 61	-var--.header.value.#3=#:--cl-va
55c0	72 2d 2d 20 68 65 61 64 65 72 2d 6e 61 6d 65 20 76 61 6c 75 65 2d 6e 61 6d 65 20 65 78 74 72 61	r--.header-name.value-name.extra
55e0	73 20 23 34 3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 2d 2d 64 6f 6c 69 73 74 2d 74 61 69 6c 2d	s.#4=#:--cl-var--.--dolist-tail-
5600	2d 20 70 72 6f 63 5d 20 38 20 28 23 24 20 2e 20 32 30 37 31 30 29 5d 29 0a 23 40 31 30 32 20 52	-.proc].8.(#$...20710)]).#@102.R
5620	65 64 69 72 65 63 74 20 74 68 65 20 63 6c 69 65 6e 74 20 74 6f 20 50 41 54 48 20 28 64 65 66 61	edirect.the.client.to.PATH.(defa
5640	75 6c 74 20 33 30 31 29 2e 20 49 66 20 50 52 4f 43 20 69 73 20 54 20 75 73 65 0a 74 68 65 20 60	ult.301)..If.PROC.is.T.use.the.`
5660	68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f 63 27 20 61 73 20 74 68 65 20 70 72 6f 63 65	httpd-current-proc'.as.the.proce
5680	73 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 72 65 64 69 72 65 63 74 20 23	ss...(defalias.'httpd-redirect.#
56a0	5b 28 70 72 6f 63 20 70 61 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 64 65 29 20 22 5c 33 30	[(proc.path.&optional.code)."\30
56c0	34 5c 33 30 35 08 44 21 5c 32 31 30 5c 33 30 36 20 5c 32 31 30 5c 33 30 37 5c 33 31 30 5c 33 31	4\305.D!\210\306.\210\307\310\31
56e0	31 5c 22 19 72 09 71 5c 32 31 30 5c 33 31 32 5c 32 31 36 5c 33 31 33 5c 6e 5c 33 31 34 0b 5c 32	1\".r.q\210\312\216\313\n\314.\2
5700	30 36 1c 00 5c 33 31 35 5c 33 31 36 08 25 2b 5c 32 30 37 22 20 5b 70 61 74 68 20 23 31 3d 23 3a	06..\315\316.%+\207".[path.#1=#:
5720	74 65 6d 70 2d 62 75 66 66 65 72 20 70 72 6f 63 20 63 6f 64 65 20 68 74 74 70 64 2d 6c 6f 67 20	temp-buffer.proc.code.httpd-log.
5740	72 65 64 69 72 65 63 74 20 68 74 74 70 64 2d 64 69 73 63 61 72 64 2d 62 75 66 66 65 72 20 67 65	redirect.httpd-discard-buffer.ge
5760	6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b	nerate-new-buffer.".*temp*".t.#[
5780	6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31	nil."\301.!\205..\302.!\207".[#1
57a0	23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 68 74	#.buffer-name.kill-buffer].2].ht
57c0	74 70 64 2d 73 65 6e 64 2d 68 65 61 64 65 72 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 33 30 31	tpd-send-header."text/plain".301
57e0	20 3a 4c 6f 63 61 74 69 6f 6e 5d 20 36 20 28 23 24 20 2e 20 32 32 30 34 37 29 5d 29 0a 23 40 39	.:Location].6.(#$...22047)]).#@9
5800	32 20 53 65 72 76 65 20 66 69 6c 65 20 74 6f 20 74 68 65 20 67 69 76 65 6e 20 63 6c 69 65 6e 74	2.Serve.file.to.the.given.client
5820	2e 20 20 49 66 20 50 52 4f 43 20 69 73 20 54 20 75 73 65 20 74 68 65 0a 60 68 74 74 70 64 2d 63	...If.PROC.is.T.use.the.`httpd-c
5840	75 72 72 65 6e 74 2d 70 72 6f 63 27 20 61 73 20 74 68 65 20 70 72 6f 63 65 73 73 2e 1f 0a 28 64	urrent-proc'.as.the.process...(d
5860	65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 73 65 6e 64 2d 66 69 6c 65 20 23 5b 28 70 72 6f 63	efalias.'httpd-send-file.#[(proc
5880	20 70 61 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 71 29 20 22 5c 33 30 36 20 5c 32 31 30 5c	.path.&optional.req)."\306.\210\
58a0	33 30 37 5c 33 31 30 08 5c 22 41 40 5c 33 31 31 09 21 5c 33 31 32 5c 33 31 33 5c 33 31 34 09 21	307\310.\"A@\311.!\312\313\314.!
58c0	38 21 1a 1b 5c 32 31 31 1c 0b 5c 32 33 32 5c 32 30 33 39 00 5c 33 31 35 5c 33 31 36 5c 33 31 37	8!..\211..\232\2039.\315\316\317
58e0	5c 22 1d 72 0d 71 5c 32 31 30 5c 33 32 30 5c 32 31 36 5c 33 32 31 5c 33 32 32 09 5c 33 32 33 42	\".r.q\210\320\216\321\322.\323B
5900	42 21 5c 32 31 30 5c 33 32 34 0e 20 5c 33 32 35 5c 33 32 36 23 2b 5c 32 30 32 64 00 5c 33 32 31	B!\210\324..\325\326#+\202d.\321
5920	5c 33 32 32 09 44 21 5c 32 31 30 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 22 1e 21 72 0e 21 71 5c	\322.D!\210\315\316\317\".!r.!q\
5940	32 31 30 5c 33 32 37 5c 32 31 36 5c 33 33 30 5c 33 33 31 21 5c 32 31 30 5c 33 33 32 09 21 5c 32	210\327\216\330\331!\210\332.!\2
5960	31 30 5c 33 32 34 0e 20 5c 33 33 33 5c 33 33 34 09 21 21 5c 33 33 35 5c 33 33 36 5c 6e 5c 33 33	10\324..\333\334.!!\335\336\n\33
5980	37 0b 26 07 2b 2b 5c 32 30 37 22 20 5b 72 65 71 20 70 61 74 68 20 6d 74 69 6d 65 20 65 74 61 67	7.&.++\207".[req.path.mtime.etag
59a0	20 72 65 71 2d 65 74 61 67 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 68 74 74 70 64	.req-etag.#1=#:temp-buffer.httpd
59c0	2d 64 69 73 63 61 72 64 2d 62 75 66 66 65 72 20 61 73 73 6f 63 20 22 49 66 2d 4e 6f 6e 65 2d 4d	-discard-buffer.assoc."If-None-M
59e0	61 74 63 68 22 20 68 74 74 70 64 2d 65 74 61 67 20 68 74 74 70 64 2d 64 61 74 65 2d 73 74 72 69	atch".httpd-etag.httpd-date-stri
5a00	6e 67 20 34 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 67 65 6e 65 72 61 74 65 2d 6e 65	ng.4.file-attributes.generate-ne
5a20	77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31	w-buffer.".*temp*".t.#[nil."\301
5a40	08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d	.!\205..\302.!\207".[#1#.buffer-
5a60	6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 68 74 74 70 64 2d 6c 6f 67 20 66	name.kill-buffer].2].httpd-log.f
5a80	69 6c 65 20 28 6e 6f 74 2d 6d 6f 64 69 66 69 65 64 29 20 68 74 74 70 64 2d 73 65 6e 64 2d 68 65	ile.(not-modified).httpd-send-he
5aa0	61 64 65 72 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 33 30 34 20 23 5b 6e 69 6c 20 22 5c 33 30	ader."text/plain".304.#[nil."\30
5ac0	31 08 21 5c 32 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 32 3d 23 3a 74 65 6d 70 2d	1.!\205..\302.!\207".[#2=#:temp-
5ae0	62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20	buffer.buffer-name.kill-buffer].
5b00	32 5d 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 75 6c 74 69 62 79 74 65 20 6e 69 6c 20 69 6e 73 65	2].set-buffer-multibyte.nil.inse
5b20	72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 2d 6c 69 74 65 72 61 6c 6c 79 20 68 74 74 70 64	rt-file-contents-literally.httpd
5b40	2d 67 65 74 2d 6d 69 6d 65 20 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 32 30	-get-mime.file-name-extension.20
5b60	30 20 3a 4c 61 73 74 2d 4d 6f 64 69 66 69 65 64 20 3a 45 54 61 67 20 70 72 6f 63 20 23 32 23 5d	0.:Last-Modified.:ETag.proc.#2#]
5b80	20 39 20 28 23 24 20 2e 20 32 32 35 33 30 29 5d 29 0a 23 40 39 35 20 53 65 72 76 65 20 61 20 66	.9.(#$...22530)]).#@95.Serve.a.f
5ba0	69 6c 65 20 6c 69 73 74 69 6e 67 20 74 6f 20 74 68 65 20 63 6c 69 65 6e 74 2e 20 49 66 20 50 52	ile.listing.to.the.client..If.PR
5bc0	4f 43 20 69 73 20 54 20 75 73 65 20 74 68 65 0a 60 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70	OC.is.T.use.the.`httpd-current-p
5be0	72 6f 63 27 20 61 73 20 74 68 65 20 70 72 6f 63 65 73 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20	roc'.as.the.process...(defalias.
5c00	27 68 74 74 70 64 2d 73 65 6e 64 2d 64 69 72 65 63 74 6f 72 79 20 23 5b 28 70 72 6f 63 20 70 61	'httpd-send-directory.#[(proc.pa
5c20	74 68 20 75 72 69 2d 70 61 74 68 29 20 22 5c 33 30 36 20 5c 32 31 30 5c 33 30 37 5c 33 31 30 08	th.uri-path)."\306.\210\307\310.
5c40	21 50 19 08 5c 33 31 31 5c 33 31 32 4f 5c 33 31 33 5c 32 33 32 5c 32 30 33 5c 32 31 30 00 5c 33	!P..\311\312O\313\232\203\210.\3
5c60	31 34 5c 33 31 35 5c 33 31 36 5c 22 1a 72 5c 6e 71 5c 32 31 30 5c 33 31 37 5c 32 31 36 5c 33 32	14\315\316\".r\nq\210\317\216\32
5c80	30 5c 33 32 31 0b 44 21 5c 32 31 30 5c 33 32 32 63 5c 32 31 30 5c 33 32 33 09 5c 33 32 34 5c 32	0\321.D!\210\322c\210\323.\324\2
5ca0	36 31 03 5c 32 31 30 5c 33 32 35 09 5c 33 32 36 5c 32 36 31 03 5c 32 31 30 5c 33 32 37 0b 21 5c	61.\210\325.\326\261.\210\327.!\
5cc0	33 31 32 1c 5c 32 31 31 1d 5c 32 30 33 7a 00 0d 40 5c 32 31 31 14 5c 33 33 30 48 5c 33 33 31 3d	312.\211.\203z..@\211.\330H\331=
5ce0	5c 32 30 34 73 00 5c 33 33 32 5c 66 0b 5c 22 1e 25 5c 33 33 33 0e 25 21 5c 32 30 33 58 00 5c 33	\204s.\332\f.\".%\333.%!\203X.\3
5d00	31 33 5c 32 30 32 59 00 5c 33 33 34 1e 26 5c 33 31 30 5c 66 21 1e 27 5c 33 33 35 5c 66 21 1e 28	13\202Y.\334.&\310\f!.'\335\f!.(
5d20	5c 33 33 36 5c 33 33 37 0e 28 0e 26 0e 27 0e 26 25 63 5c 32 31 30 2c 0d 41 5c 32 31 31 15 5c 32	\336\337.(.&.'.&%c\210,.A\211.\2
5d40	30 34 3c 00 2a 5c 33 34 30 63 5c 32 31 30 5c 33 34 31 0e 29 5c 33 34 32 5c 33 34 33 23 2b 5c 32	04<.*\340c\210\341.)\342\343#+\2
5d60	30 32 5c 32 31 37 00 5c 33 34 34 0e 29 08 5c 33 31 33 50 5c 22 29 5c 32 30 37 22 20 5b 75 72 69	02\217.\344.).\313P\")\207".[uri
5d80	2d 70 61 74 68 20 74 69 74 6c 65 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 70 61 74	-path.title.#1=#:temp-buffer.pat
5da0	68 20 66 69 6c 65 20 2d 2d 64 6f 6c 69 73 74 2d 74 61 69 6c 2d 2d 20 68 74 74 70 64 2d 64 69 73	h.file.--dolist-tail--.httpd-dis
5dc0	63 61 72 64 2d 62 75 66 66 65 72 20 22 44 69 72 65 63 74 6f 72 79 20 6c 69 73 74 69 6e 67 20 66	card-buffer."Directory.listing.f
5de0	6f 72 20 22 20 75 72 6c 2d 69 6e 73 65 72 74 2d 65 6e 74 69 74 69 65 73 2d 69 6e 2d 73 74 72 69	or.".url-insert-entities-in-stri
5e00	6e 67 20 2d 31 20 6e 69 6c 20 22 2f 22 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65	ng.-1.nil."/".generate-new-buffe
5e20	72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09	r.".*temp*".t.#[nil."\301.!\205.
5e40	00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69	.\302.!\207".[#1#.buffer-name.ki
5e60	6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 68 74 74 70 64 2d 6c 6f 67 20 64 69 72 65 63 74 6f 72	ll-buffer].2].httpd-log.director
5e80	79 20 22 3c 21 44 4f 43 54 59 50 45 20 68 74 6d 6c 3e 5c 6e 22 20 22 3c 68 74 6d 6c 3e 5c 6e 3c	y."<!DOCTYPE.html>\n"."<html>\n<
5ea0	68 65 61 64 3e 3c 74 69 74 6c 65 3e 22 20 22 3c 2f 74 69 74 6c 65 3e 3c 2f 68 65 61 64 3e 5c 6e	head><title>"."</title></head>\n
5ec0	22 20 22 3c 62 6f 64 79 3e 5c 6e 3c 68 32 3e 22 20 22 3c 2f 68 32 3e 5c 6e 3c 68 72 2f 3e 5c 6e	"."<body>\n<h2>"."</h2>\n<hr/>\n
5ee0	3c 75 6c 3e 22 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 20 30 20 34 36 20 65 78 70 61 6e	<ul>".directory-files.0.46.expan
5f00	64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 22 22 20	d-file-name.file-directory-p."".
5f20	75 72 6c 2d 68 65 78 69 66 79 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 3c 6c 69 3e 3c 61	url-hexify-string.format."<li><a
5f40	20 68 72 65 66 3d 5c 22 25 73 25 73 5c 22 3e 25 73 25 73 3c 2f 61 3e 3c 2f 6c 69 3e 5c 6e 22 20	.href=\"%s%s\">%s%s</a></li>\n".
5f60	22 3c 2f 75 6c 3e 5c 6e 3c 68 72 2f 3e 5c 6e 3c 2f 62 6f 64 79 3e 5c 6e 3c 2f 68 74 6d 6c 3e 22	"</ul>\n<hr/>\n</body>\n</html>"
5f80	20 68 74 74 70 64 2d 73 65 6e 64 2d 68 65 61 64 65 72 20 22 74 65 78 74 2f 68 74 6d 6c 3b 20 63	.httpd-send-header."text/html;.c
5fa0	68 61 72 73 65 74 3d 75 74 66 2d 38 22 20 32 30 30 20 68 74 74 70 64 2d 72 65 64 69 72 65 63 74	harset=utf-8".200.httpd-redirect
5fc0	20 66 75 6c 6c 20 74 61 69 6c 20 66 20 6c 20 70 72 6f 63 5d 20 37 20 28 23 24 20 2e 20 32 33 34	.full.tail.f.l.proc].7.(#$...234
5fe0	34 37 29 5d 29 0a 23 40 33 31 20 47 65 74 20 74 68 65 20 62 75 66 66 65 72 20 73 69 7a 65 20 69	47)]).#@31.Get.the.buffer.size.i
6000	6e 20 62 79 74 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 2d 62 75 66 66	n.bytes...(defalias.'httpd--buff
6020	65 72 2d 73 69 7a 65 20 23 5b 28 26 6f 70 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 29 20 22 08 5c	er-size.#[(&optional.buffer).".\
6040	33 30 34 19 1a 72 0b 5c 32 30 36 5c 6e 00 70 71 5c 32 31 30 5c 33 30 35 5c 33 30 36 21 5c 32 31	304..r.\206\n.pq\210\305\306!\21
6060	30 5c 33 30 37 20 11 5c 6e 5c 32 30 33 1b 00 5c 33 30 35 5c 6e 21 5c 32 31 30 29 09 2a 5c 32 30	0\307..\n\203..\305\n!\210).*\20
6080	37 22 20 5b 65 6e 61 62 6c 65 2d 6d 75 6c 74 69 62 79 74 65 2d 63 68 61 72 61 63 74 65 72 73 20	7".[enable-multibyte-characters.
60a0	73 69 7a 65 20 6f 72 69 67 20 62 75 66 66 65 72 20 30 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 75	size.orig.buffer.0.set-buffer-mu
60c0	6c 74 69 62 79 74 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 73 69 7a 65 5d 20 32 20 28 23 24 20 2e	ltibyte.nil.buffer-size].2.(#$..
60e0	20 32 34 35 35 35 29 5d 29 0a 23 40 31 36 30 20 53 65 6e 64 20 61 6e 20 65 72 72 6f 72 20 70 61	.24555)]).#@160.Send.an.error.pa
6100	67 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 66 6f 72 20 53 54 41 54 55 53 20 74 6f 20 74 68 65	ge.appropriate.for.STATUS.to.the
6120	20 63 6c 69 65 6e 74 2c 0a 6f 70 74 69 6f 6e 61 6c 6c 79 20 69 6e 73 65 72 74 69 6e 67 20 6f 62	.client,.optionally.inserting.ob
6140	6a 65 63 74 20 49 4e 46 4f 20 69 6e 74 6f 20 70 61 67 65 2e 20 49 66 20 50 52 4f 43 20 69 73 20	ject.INFO.into.page..If.PROC.is.
6160	54 20 75 73 65 20 74 68 65 0a 60 68 74 74 70 64 2d 63 75 72 72 65 6e 74 2d 70 72 6f 63 27 20 61	T.use.the.`httpd-current-proc'.a
6180	73 20 74 68 65 20 70 72 6f 63 65 73 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64	s.the.process...(defalias.'httpd
61a0	2d 65 72 72 6f 72 20 23 5b 28 70 72 6f 63 20 73 74 61 74 75 73 20 26 6f 70 74 69 6f 6e 61 6c 20	-error.#[(proc.status.&optional.
61c0	69 6e 66 6f 29 20 22 5c 33 30 36 20 5c 32 31 30 5c 33 30 37 5c 33 31 30 08 09 45 21 5c 32 31 30	info)."\306.\210\307\310..E!\210
61e0	5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 22 1a 72 5c 6e 71 5c 32 31 30 5c 33 31 34 5c 32 31 36 08	\311\312\313\".r\nq\210\314\216.
6200	0b 5c 32 33 36 41 5c 32 30 36 1d 00 5c 33 31 35 09 5c 32 30 34 25 00 5c 33 31 35 5c 32 30 32 52	.\236A\206..\315.\204%.\315\202R
6220	00 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 22 1c 72 5c 66 71 5c 32 31 30 5c 33 31 36 5c 32 31 36	.\311\312\313\".r\fq\210\316\216
6240	70 1d 5c 33 31 37 63 5c 32 31 30 5c 33 32 30 09 21 5c 32 31 30 5c 33 32 31 63 5c 32 31 30 0e 19	p.\317c\210\320.!\210\321c\210..
6260	5c 32 30 33 4c 00 5c 33 32 32 63 5c 32 31 30 5c 33 32 30 5c 33 32 33 20 21 5c 32 31 30 5c 33 32	\203L.\322c\210\320\323.!\210\32
6280	31 63 5c 32 31 30 5c 33 32 34 20 5c 32 31 30 5c 33 32 35 20 2c 1e 1a 1e 1b 5c 33 32 36 0e 1b 0e	1c\210\324.\210\325.,....\326...
62a0	1a 5c 22 63 5c 32 31 30 2a 5c 33 32 37 0e 1c 5c 33 33 30 08 23 2b 5c 32 30 37 22 20 5b 73 74 61	.\"c\210*\327..\330.#+\207".[sta
62c0	74 75 73 20 69 6e 66 6f 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 68 74 74 70 64 2d	tus.info.#1=#:temp-buffer.httpd-
62e0	68 74 6d 6c 20 23 32 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73 74 61 6e 64 61 72 64 2d 6f	html.#2=#:temp-buffer.standard-o
6300	75 74 70 75 74 20 68 74 74 70 64 2d 64 69 73 63 61 72 64 2d 62 75 66 66 65 72 20 68 74 74 70 64	utput.httpd-discard-buffer.httpd
6320	2d 6c 6f 67 20 65 72 72 6f 72 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22	-log.error.generate-new-buffer."
6340	20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33	.*temp*".t.#[nil."\301.!\205..\3
6360	30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d	02.!\207".[#1#.buffer-name.kill-
6380	62 75 66 66 65 72 5d 20 32 5d 20 22 22 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09	buffer].2]."".#[nil."\301.!\205.
63a0	00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 32 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69	.\302.!\207".[#2#.buffer-name.ki
63c0	6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 22 65 72 72 6f 72 3a 20 22 20 70 72 69 6e 63 20 22 5c	ll-buffer].2]."error:.".princ."\
63e0	6e 22 20 22 62 61 63 6b 74 72 61 63 65 3a 20 22 20 62 61 63 6b 74 72 61 63 65 20 68 74 74 70 64	n"."backtrace:.".backtrace.httpd
6400	2d 65 73 63 61 70 65 2d 68 74 6d 6c 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 73 74 72 69 6e	-escape-html-buffer.buffer-strin
6420	67 20 66 6f 72 6d 61 74 20 68 74 74 70 64 2d 73 65 6e 64 2d 68 65 61 64 65 72 20 22 74 65 78 74	g.format.httpd-send-header."text
6440	2f 68 74 6d 6c 22 20 68 74 74 70 64 2d 73 68 6f 77 2d 62 61 63 6b 74 72 61 63 65 2d 77 68 65 6e	/html".httpd-show-backtrace-when
6460	2d 65 72 72 6f 72 20 63 6f 6e 74 65 6e 74 73 20 68 74 6d 6c 20 70 72 6f 63 5d 20 34 20 28 23 24	-error.contents.html.proc].4.(#$
6480	20 2e 20 32 34 38 31 36 29 5d 29 0a 23 40 35 30 20 43 61 6c 6c 20 68 74 74 70 64 2d 65 72 72 6f	...24816)]).#@50.Call.httpd-erro
64a0	72 20 61 6e 64 20 72 65 70 6f 72 74 20 66 61 69 6c 75 72 65 73 20 74 6f 20 2a 68 74 74 70 64 2a	r.and.report.failures.to.*httpd*
64c0	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 74 74 70 64 2d 2d 65 72 72 6f 72 2d 73 61 66 65 20	...(defalias.'httpd--error-safe.
64e0	23 5b 28 26 72 65 73 74 20 61 72 67 73 29 20 22 5c 33 30 32 31 5c 6e 00 5c 33 30 33 5c 33 30 34	#[(&rest.args)."\3021\n.\303\304
6500	08 5c 22 30 5c 32 30 37 19 5c 33 30 35 5c 33 30 36 09 44 21 29 5c 32 30 37 22 20 5b 61 72 67 73	.\"0\207.\305\306.D!)\207".[args
6520	20 65 72 72 6f 72 2d 63 61 73 65 20 28 65 72 72 6f 72 29 20 61 70 70 6c 79 20 68 74 74 70 64 2d	.error-case.(error).apply.httpd-
6540	65 72 72 6f 72 20 68 74 74 70 64 2d 6c 6f 67 20 68 61 72 64 2d 65 72 72 6f 72 5d 20 33 20 28 23	error.httpd-log.hard-error].3.(#
6560	24 20 2e 20 32 35 37 34 35 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 73 69 6d 70 6c 65 2d 68 74	$...25745)]).(provide.'simple-ht
6580	74 70 64 29 0a	tpd).