anchor.diff:                             processed-resource-operation
                              args))))
         (register-resource-operation-implementation
  -	   processed-resource-operation))))
  +       processed-resource-operation))))
   
   (defun process-resource-operation-implementation-options (resource-operation-implementation)
     (let ((processed-resource-operation resource-operation-implementation))
  
positive.code:    (type :initarg :type
           :accessor argument-type
           :documentation "The argument type")
     (default
         :initarg :default
       :accessor argument-default
       :initform nil
       :documentation "The argument default value")
  
negative.code:                      (optional-arguments resource-operation))))
          (let ((invalid-optional-args
                 (set-difference (set-difference optional-args-names
                                                 (list "_POSTED-CONTENT" "_RESOURCE-OPERATION")
  
                                                 :test #'equalp)
                                 resource-operation-optional-args
                                 :test #'equalp)))
  