anchor.diff:  (defun print-html-api-docs (api)
     (who:with-html-output-to-string (*api-docs-html*)
       (:html
  -     (:head)
  +     (:head
  +      (:title (who:fmt "~a api documentation" (title api)))
  +      (:style :media "screen" :type "text/css"
  +              (who:str "table.arguments th, td {
  +border: 1px solid black;
  +}")
  +              (who:str "th {
  +text-align:left;
  +}")))
        (:body
         (:h1 (who:str (title api)))
         (:p (who:str (api-documentation api)))
  
positive.code:     (:p (who:fmt "~a ~a"(request-method operation) (path operation)))
      (:p (who:str (api-documentation operation)))
      (:h6 "Arguments")
      (loop for arg in (append (required-arguments operation)
                               (optional-arguments operation))
         do (print-argument-html arg html))))
  
  (defun print-argument-html (arg html)
    (who:with-html-output (html)
      (:div :class "arg"
            (:i (who:str (argument-name arg)))
            (who:str "::")
            (:b (who:str (argument-type-spec (argument-type arg))))
            (when (not (argument-required-p arg))
              (who:str ". Optional."))
            (when (argument-default arg)
              (who:fmt ". Default: ~a" (argument-default arg))))))
  
  (defun print-text-api-docs (api)
    "TODO")
  
negative.code:     `(cl-who:with-html-output-to-string (*standard-output* nil :prologue t :indent t)
         (:html
          (:head
           (:title (who:str (name ,api))))
          (:body
           ,@body)))))
  
  