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: (defun start (&rest args &key server port debug &allow-other-keys)
    "Start a local Hunchentoot server. 
  
  Presently, all arguments are ignored.
  
  The server will  be started running on port  5000 on local-loopback-only
  addresses  (127.0.0.1  and  ::1).  If an  existing  server  is  running,
  
negative.code:                     (go retry-post))))))))
  
  (defun power-on-self-test ()
    "Perform some sanity checking as a part of testing.
  
  This testing should  be much more complete  than it really is  — it will
  need to be expanded a great deal to increase confidence in these tests."
    (fresh-line)
    (princ "Power-on self-test:")
    (handler-case (start :port 27701)
  