anchor.diff:  		       (json:with-array ()
   			 (loop for operation in operations
   			    do (json:as-array-member ()
  -				 (encode-swagger-operation operation)))))))))))
  +				 (encode-swagger-operation operation)))))))))))      
         (json:as-object-member (:models)
   	(encode-swagger-models (mapcar #'find-schema (resource-models resource))))
   	)))
  
positive.code: 	 do
  	 (json:as-object-member ((element-name schema))
  	   (encode-swagger-model schema)))))
  
negative.code: 		(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))))))
        (json:as-object-member (:authorizations)
  	(encode-swagger-authorizations (authorizations operation)))
        )))
        
  (defun swagger-resource-spec (api resource base-url)
    (setf (hunchentoot:header-out "Content-Type") "application/json")
  