anchor.diff:  (defun start (&rest args &key server port debug &allow-other-keys)
     "Start a local Hunchentoot server. 
   
  -Presently, all arguments are ignored.
  +PORT may be a port number .
   
   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,
  
positive.code:     (otherwise (print-help))))
  
  (defun fastcgi-entry ()
    (format t "Content-Type: text/plain~c~c~c~c
  
    Starting FastCGI is half-working if you see this. But, only half.~%"
  
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)
  