anchor.diff:            (apply function-implementation
                    (append
                     args
  -                  (when (member (request-method resource-operation) (list :put :post :patch))
  +                  (when (member "&POSTED-CONTENT" (mapcar 'symbol-name (arguments function-implementation)) :test 'string=)
                       (let ((posted-content (get-posted-content request)))
                         (log5:log-for (rest-server) "Posted content: ~A" posted-content)
                         (list :_posted-content (parse-posted-content posted-content))))
  
positive.code:                                :primary (lambda ,(resop-impl-args args resource-operation)
  					  (block ,name
                                              ,@body))
                                 :options ',options)))
           (let ((decorated-function
                   (process-resource-operation-implementation-options
  
negative.code:             :initform (error "Provide the primary function")
              :accessor primary
              :documentation "Primary function")
     (arguments :initarg :arguments
  	      :accessor arguments
  	      :documentation "Arguments of the resource operation implementation")
     (accept :initarg :accept
             :initform nil
             :accessor accept
  