anchor.diff:        (: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)
  +            (loop for resource-operation in (resource-operations api)
                  do
                    (document-resource-operation acceptor resource-operation))))))
   
  
positive.code:                   (loop for arg in (required-arguments resource-operation)
                       do
                         (cl-who:htm
                          (:li (cl-who:fmt "~a : ~a. ~a." (first arg) (second arg) (third arg)))))
                    (loop for arg in (optional-arguments resource-operation)
                       do
                         (cl-who:htm
                          (:li (cl-who:fmt "~a : ~a. ~A. Default: ~a"
                                           (first arg)
                                           (second arg)
                                           (third arg)
                                           (nth 3 arg)))))))))))
  
negative.code:                            api))))
  
  (defmethod hunchentoot:acceptor-dispatch-request ((acceptor api-documentation-acceptor) request)
    (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))
  