anchor.diff:                     (json:with-object ()
                        (json:encode-object-member :name name)
                        (json:encode-object-member :type type)
  -                     (json:encode-object-member :param-type "path")
  +                     (json:encode-object-member :in "path")
                        (json:encode-object-member :description documentation)
                        (json:encode-object-member :required t)
                        (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:                    (json:with-object ()
                       (json:encode-object-member :name name)
                       (json:encode-object-member :type type)
                       (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)))
  