anchor.diff:  ;; we assume there to be 4 basic access token types that should
   ;; be present to make mu-cl-resources handle the access token stuff
   ;; correctly (show, update, create, delete)
  -(define-resource accessToken ()
  +(define-resource access-token ()
     :class (s-prefix "auth:accessToken")
  -  :resource-base (s-url "http://mu.semte.ch/application/accessTokens/")
  +  :resource-base (s-url "http://mu.semte.ch/services/authorization-service/accessTokens/")
     :properties `((:title :string ,(s-prefix "dcterms:title"))
   		(:description :string ,(s-prefix "dcterms:description"))
   		)
  
positive.code: 		(:name :string ,(s-prefix "nie:title"))
  		(:created :date ,(s-prefix "dcterms:created"))
  		(:modified :date ,(s-prefix "dcterms:modified")))
    :resource-base (s-url "http://backstage.bravoer.be/api/parts/")
    :has-one `((score :via ,(s-prefix "nie:isLogicalPartOf")
                              :as "score"))
    :authorization (list :show (s-prefix "auth:show")
  
negative.code: ;; to exactly 1 authenticatable
  (define-resource grant ()
    :class (s-prefix "auth:grant")
    :resource-base (s-url "http://mu.semte.ch/services/authorization-service/grants/")
    :has-many `((access-token :via, (s-prefix "auth:hasToken")
  			    :as "access-tokens")
  	      (authenticatable :via, (s-prefix "auth:operatesOn")
  				:as "authenticatables"))
    :on-path "grants")
  