anchor.diff:  
   (defmethod list-api-resource-functions ((api-resource api-resource))
     (loop for resource-operation being the hash-values of (resource-operations api-resource)
  -       collect resource-operation))
  +     collect resource-operation))
   
   (defmethod allowed-methods ((api-resource api-resource))
     (let ((methods nil))
       (loop for resource-operation in (list-api-resource-functions api-resource)
  -	 do (pushnew (request-method resource-operation) methods))
  +       do (pushnew (request-method resource-operation) methods))
       methods))
   
   (defgeneric resource-http-options (resource api)
     (:method ((resource api-resource) api)
       (flet ((format-allowed-methods (methods)
  -	   (format nil "~{~A~^, ~}"
  -		   (mapcar #'string methods))))
  -    (setf (hunchentoot:header-out "Allow")
  -	  (format-allowed-methods (allowed-methods resource))))))
  +             (format nil "~{~A~^, ~}"
  +                     (mapcar #'string methods))))
  +      (setf (hunchentoot:header-out "Allow")
  +            (format-allowed-methods (allowed-methods resource))))))
   
   (defmacro with-api-resource (resource &body body)
     "Execute body under resource scope.
  
positive.code:     :accessor resource-documentation
      :documentation "The resource documentation")
     (resource-operations :initarg :resource-operations
  		  :initform (make-hash-table :test #'equalp)
  		  :accessor resource-operations
  		  :documentation "The resource operations of the resource")
     (models :initarg :models
  	   :initform nil
  	   :accessor resource-models
  	   :documentation "Resource models")
     (produces :initarg :produces
  	     :initform nil
  	     :accessor resource-produces
  	     :documentation "A list of MIME types the APIs on this resource can produce. This is global to all APIs but can be overridden on specific API calls.")
     (consumes :initarg :consumes
  	     :initform nil
  	     :accessor resource-consumes
  	     :documentation "A list of MIME types the APIs on this resource can consume. This is global to all APIs but can be overridden on specific API calls.")
     (authorizations :initarg :authorizations
  		   :initform nil
  		   :accessor resource-authorizations
  		   :documentation "A list of authorizations schemes required for the operations listed in this API declaration. Individual operations may override this setting. If there are multiple authorization schemes described here, it means they're all applied.")
     (client-package :initarg :client-package
  		   :initform nil
  		   :accessor client-package)
     (export-client-functions :initarg :export-client-functions
  			  :initform nil
  			  :accessor export-client-functions))
    (:documentation "An api resource. Contains resource operations"))
  
  (defmethod print-object ((api-resource api-resource) stream)
    (print-unreadable-object (api-resource stream :type t :identity t)
      (format stream "~A ~S"
  	    (resource-name api-resource)
  	    (resource-path api-resource))))
  
  (defmethod initialize-instance :after ((api-resource api-resource) &rest initargs)
    (declare (ignore initargs))
  
    ;; Validate the resource
    ;(validate resource-operation)
  
    ;; Configure the resource
    ;(configure-api-resource api-resource)
  
    ;; Install the resource
    (when *register-api-resource*
  
negative.code: 
  (defclass api-resource ()
    ((name :initarg :name
           :initform (error "Provide the resouce name")
           :accessor resource-name
           :documentation "The resource name")
     (resource-path
      :initarg :path
      :initform (error "Provide the resource path")
  