anchor.diff:      `(cl-who:with-html-output-to-string (*standard-output* nil :prologue t :indent t)
          (:html
           (:head
  -         (:title (cl-who:str (name ,api)))
  -         (:style :media "screen" :type "text/css"
  -                 (cl-who:str "body {  }")))
  +         (:title (who:str (name ,api))))
           (:body
            ,@body)))))
   
  
positive.code: (defun print-html-api-docs (api)
    (who:with-html-output-to-string (*api-docs-html*)
      (:html
       (:head)
       (:body
        (:h1 (who:str (title api)))
        (:p (who:str (api-documentation api)))
  
negative.code:     (:p (who:fmt "~a ~a"(request-method operation) (path operation)))
      (:p (who:str (api-documentation operation)))
      (:h6 "Arguments")
      (:table :class "arguments"
       (:thead
        (:tr
         (:th (who:str "Name"))
         (:th (who:str "Type"))
         (:th (who:str "Required"))
         (:th (who:str "Default"))
         (:th (who:str "Description"))
       (:tbody
        (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)
      (:tr :class "arg"
            (:td (who:str (argument-name arg)))
            (:td (who:str (argument-type-spec (argument-type arg))))
            (:td (who:str (if (argument-required-p arg)
                              "True" "False")))
            (:td (when (argument-default arg)
                   (who:fmt "~a" (argument-default arg))))
            (:td (who:str (argument-documentation arg)))
            )))
  
  (defun print-text-api-docs (api)
    "TODO")
  