anchor.diff:                             api))))
   
   (defmethod hunchentoot:acceptor-dispatch-request ((acceptor api-documentation-acceptor) request)
  -  (loop for resource-operation being the hash-value of (resource-operations (api acceptor))
  +  (loop for resource-operation in (resource-operations (api acceptor))
        when (equalp (format nil "/~A" (name resource-operation)) (hunchentoot:request-uri*))
        return (with-documentation-toplevel (api acceptor)
                 (document-resource-operation acceptor resource-operation))
  
positive.code:       (:div :class "api-documentation"
              (cl-who:str (api-documentation api)))
        (:div :class "resource-operations"
              (loop for resource-operation being the hash-value of (resource-operations api)
                 do
                   (document-resource-operation acceptor resource-operation))))))
  
  
negative.code:                   (loop for arg in (required-arguments resource-operation)
                       do
                         (cl-who:htm
                          (:li (cl-who:fmt "~a : ~a. ~a" (rs::argument-name arg) (rs::argument-type arg) (argument-documentation arg))))
                         (loop for arg in (optional-arguments resource-operation)
                            do
                              (cl-who:htm
                               (:li (cl-who:fmt "~a : ~a. ~A. Default: ~a"
                                                (rs::argument-name arg)
                                                (rs::argument-type arg)
                                                (rs::argument-documentation arg)
                                                (rs::argument-default arg))))))))))))
  