manager/index.lsp

   1 (load "expand-string.lsp")
   2 (write-line 2 (string "index.lsp"))
   3 (write-line 2 (string (expand-file "tmpl/index-page.html")))
   4 (println "Status 200 OK\nContent-Type: text/html\n\n")
   5 (println (expand-file "tmpl/index-page.html"))
   6 (exit 0)