(defun output-ml-page (format html)
(write-header-line "Status" "200 OK")
(write-header-line "Content-Type" (format-string format))
(write-header-line "Content-Length" (format nil "~d" (length html)))
(write-header-line "Keep-Socket" "1")
(defun output-ml-page (format html)
(write-header-line "Status" "200 OK")
(write-header-line "Content-Type" (format-string format))
(write-header-line "Content-Length" (format nil "~d" (length html)))
(write-header-line "Keep-Socket" "1")