anchor.diff:                                 :primary (lambda ,(resop-impl-args args resource-operation)
   					  (block ,name
                                               ,@body))
  +			       :arguments ',args
                                  :options ',options)))
            (let ((decorated-function
                    (process-resource-operation-implementation-options
  
positive.code:           (apply function-implementation
                   (append
                    args
                    (when (member (request-method resource-operation) (list :put :post :patch))
                      (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))))
  
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
  