anchor.diff:      (otherwise (print-help))))
   
   (defun fastcgi-entry ()
  +  "This is the entry point for running as a FastCGI program.
  +
  +Note that it will print out  some HTTP-like garbage when it starts about
  +“half-working,  if you  see  this.”  If that  actually  appears in  your
  +browser, it was started as a “not-Fast” CGI program, in error."
     (format t "Content-Type: text/plain~c~c~c~c
   
     Starting FastCGI is half-working if you see this. But, only half.~%"
  
positive.code:   t)
  
  (defun entry (argv)
    (case (intern (string-upcase (typecase argv
                                   (cons (if (< 1 (length argv))
                                             (second argv)
  
negative.code:              :conclusion (alexandria:read-file-into-string #p"src/static/conclusion"))))
  
  (defun start-hunchentoot ()
    "Start a Hunchentoot  server via `START' and fall through  into a REPL
  to keep the process running."
    (start)
    (print "Hunchentoot server running. Evaluate (TOOTSTEST:STOP) to stop, or exit the REPL.")
    (start-repl))
  
  (defun post-read-version-page ()
    "Power-On-Self-Test: Checks that the server can respond to the version-page query locally."
    (let ((retries 3))
      (tagbody retry-post
         (handler-case
  