anchor.diff:  	  (loop for parameter in (optional-arguments operation)
   	     do
   	       (json:as-array-member ()
  -		 (encode-parameter parameter nil))))))))
  +		 (encode-parameter parameter nil)))
  +	  (when (member (request-method operation) (list :post :put))
  +	    (json:as-array-member ()
  +	      (json:with-object ()
  +		(json:encode-object-member :name "body")
  +		(json:encode-object-member :type "string")
  +		(json:encode-object-member :param-type "body")
  +		(json:encode-object-member :description "The content")
  +		(json:encode-object-member :required t)
  +		(json:encode-object-member :allow-multiple :false)))))))))
         
   (defun swagger-resource-spec (api resource base-url)
     (setf (hunchentoot:header-out "Content-Type") "application/json")
  
positive.code: 		 (json:with-object ()
  		   (json:encode-object-member :name name)
  		   (json:encode-object-member :type type)
  		   (json:encode-object-member :description documentation)
  		   (json:encode-object-member :required t)
  		   (json:encode-object-member :allow-multiple :false))))))
  
negative.code: 		 (json:with-object ()
  		   (json:encode-object-member :name name)
  		   (json:encode-object-member :type type)
  		   (json:encode-object-member :param-type "query")
  		   (json:encode-object-member :description documentation)
  		   (json:encode-object-member :required :false)
  		   (json:encode-object-member :allow-multiple :false)))
  