anchor.diff:                     (declare (ignore default-value))
                      (json:with-object ()
                        (json:encode-object-member :name name)
  -                     (json:encode-object-member :type type)
  +                     (encode-argument-type type stream)
                        (json:encode-object-member :in "query")
                        (json:encode-object-member :description documentation)
                        (json:encode-object-member :required :false)
  
positive.code:                      :test #'equalp
                       :value #'identity))
  
  (defun encode-swagger-operation (operation &optional (stream json:*json-output*))
    (let ((json:*json-output* stream))
      (flet ((encode-parameter (parameter required-p)
  
negative.code:                      parameter
                     (json:with-object ()
                       (json:encode-object-member :name name)
                       (encode-argument-type type stream)
                       (json:encode-object-member :in "path")
                       (json:encode-object-member :description documentation)
                       (json:encode-object-member :required t)
  