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:                                (json:encode-object-member :method (string-upcase (symbol-name (request-method operation))))
                                 (json:encode-object-member :summary (api-summary operation))
                                 (json:encode-object-member :description (api-documentation operation))
                                 (json:encode-object-member :operation-id (symbol-name (name operation)))
                                 #+nil(json:encode-object-member :type (resource-operation-type operation))
                                 (when (produces operation)
                                   (json:encode-object-member :produces (mapcar #'mime-to-string (produces operation))))
  
negative.code:     (loop for schema-name being the hash-keys of schemas
         using (hash-value schema)
         do
           (json:as-object-member ((string-downcase (princ-to-string schema-name)) stream)
                                  (encode-swagger-definition schema stream)))))
  
  (defun encode-swagger-definition (schema-element &optional (stream json:*json-output*))
  