anchor.diff:                     (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 :in "query")
                        (json:encode-object-member :description documentation)
                        (json:encode-object-member :required :false)
                        (json:encode-object-member :allow-multiple :false)))
  
positive.code:     (loop for schema-name being the hash-keys of schemas
         using (hash-value schema)
         do
           (json:as-object-member ((princ-to-string schema-name) stream)
                                  (encode-swagger-definition schema stream)))))
  
  (defun encode-swagger-definition (schema-element &optional (stream json:*json-output*))
  
negative.code:                                                           (json:as-array-member ()
                                                              (json:with-object ()
                                                                (json:encode-object-member :name "body")
                                                                (json:encode-object-member :in "body")
                                                                (json:as-object-member (:schema)
                                                                                       (json:with-object ()
                                                                                         (json:encode-object-member "$ref" (format nil "#/definitions/~A" (string-downcase (princ-to-string (body-schema operation)))))))
                                                                (json:encode-object-member :description "The content")
                                                                (json:encode-object-member :required t)
                                                                #+nil(json:encode-object-member :allow-multiple :false))))))
                                 #+nil(json:as-object-member (:security)
                                                             (encode-swagger-authorizations (authorizations operation)))
                                 )))))
  