anchor.diff:          (validate-resource-operation-implementation-arguments
            (resop-impl-args args resource-operation)
            resource-operation))
  -	  `(let* ((api (find-api ',api-name))
  -			  (resource-operation (find-resource-operation api ',name))
  -			  (resource-operation-implementation
  -			   (make-instance 'resource-operation-implementation
  -							  :resource-operation resource-operation
  -							  :primary (lambda ,(resop-impl-args args resource-operation)
  +      `(let* ((api (find-api ',api-name))
  +              (resource-operation (find-resource-operation api ',name))
  +              (resource-operation-implementation
  +               (make-instance 'resource-operation-implementation
  +                              :resource-operation resource-operation
  +                              :primary (lambda ,(resop-impl-args args resource-operation)
                                            ,@body)
  -							  :options ',options)))
  +                              :options ',options)))
            (let ((decorated-function
                   (process-resource-operation-implementation-options
                    resource-operation-implementation)))
  -		   (register-resource-operation-implementation decorated-function))))))
  +           (register-resource-operation-implementation decorated-function))))))
   
   (defun validate-resource-operation-implementation-arguments (args resource-operation)
     (flet ((ensure (thing message &rest args)
  
positive.code:        :do
         (case (car special-arg)
           (:&posted-content (setf lambda-list
                                  (add-keyword-argument
                                   (list (list :_posted-content (cdr special-arg)))
                                   lambda-list)))
           (:&resource-operation (setf lambda-list (add-keyword-argument
                                                   (list (list :_resource-operation (cdr special-arg)))
                                                   lambda-list)))
           (t (error "Invalid argument: ~A in resource operation implementation: ~A"
                     (car special-arg)
                     resop-impl))))
  	(when (not (find '&key lambda-list))
  	  (setf lambda-list (append lambda-list (list '&key))))
  	lambda-list))
  
  (defmacro implement-resource-operation (api-name name-and-options args &body body)
    "Define an resource operation implementation"
  
negative.code: 
  (defun find-resource-operation-implementation (name &key accept content-type)
    (or (find-if (lambda (roi)
                   (match-resource-operation-implementation
                    roi
                    :accept accept
                    :content-type content-type))
                 (get name :resource-operation-implementation))
        (error "resource operation ~A not implemented" name)))
  
  (defun register-resource-operation-implementation (resource-operation-implementation)
    (let ((key (name (resource-operation resource-operation-implementation))))
      (push resource-operation-implementation
            (get key :resource-operation-implementation))
      resource-operation-implementation))
  
  (defun match-resource-operation-implementation (roi &key accept content-type)
    (and
     (or (null accept)
         (null (accept roi))
         (member accept (accept roi)))
     (or (null content-type)
         (null (content-type roi))
         (member content-type (content-type roi)))))
  
  (defun execute-resource-operation-implementation (function-implementation request)
    (let ((resource-operation (resource-operation function-implementation)))
  