anchor.diff:  
   (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))
  +                 (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))
  +    (push resource-operation-implementation
  +          (get key :resource-operation-implementation))
  +    resource-operation-implementation))
   
   (defun match-resource-operation-implementation (roi &key accept content-type)
  -  (and 
  +  (and
      (or (null accept)
  -	   (null (accept roi))
  -	   (member accept (accept roi)))
  +       (null (accept roi))
  +       (member accept (accept roi)))
      (or (null content-type)
  -	   (null (content-type roi))
  -	   (member content-type (content-type roi)))))
  +       (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)))
  
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:             :accessor primary
              :documentation "Primary function")
     (accept :initarg :accept
             :initform nil
             :accessor accept
             :documentation "The content type(s) accepted by this implementation.")
     (content-type :initarg :content-type
                   :initform nil
                   :accessor content-type
                   :documentation "The content type(s) generated by this implementation.")
     (options :initarg :options
              :initform nil
              :accessor options
  