anchor.diff:    (:scope :property)
     (:flavour :disable-override))
   
  -
  +;; ---------- intrinsic methods --------
  +
  +;; basic methods
  +(defgeneric enumerate-instances (class)
  +  (:method-combination nconc))
  +
  +(defgeneric get-instance (instance)
  +  (:method-combination or))
  +
  +(defgeneric create-instance (instance))
  +
  +(defgeneric modify-instance (instance))
  +
  +(defgeneric delete-instance (instance))
  +
  +;; associations
  +(defgeneric association-instances (instance)
  +  (:method-combination nconc))
  +
  +(defgeneric reference-instances (instance)
  +  (:method-combination nconc))
  +
  +;; indications
  +(defgeneric subscribe (instance))
  +
  +(defgeneric unsubscribe (instance))
  +
  +;; ------------ errors -----------
  +
  +;; base error type
  +(define-condition cim-error (error)
  +  ())
  +
  +(define-condition cim-error-failed (cim-error)
  +  ())
  +
  +(define-condition cim-error-access-denied (cim-error)
  +  ())
  +
  +(define-condition cim-error-invalid-namespace (cim-error)
  +  ())
  +
  +(define-condition cim-error-invalid-parameter (cim-error)
  +  ())
  +
  +(define-condition cim-error-invalid-class (cim-error)
  +  ())
  +
  +(define-condition cim-error-not-found (cim-error)
  +  ())
  +
  +(define-condition cim-error-not-supported (cim-error)
  +  ())
  +
  +(define-condition cim-error-class-has-children (cim-error)
  +  ())
  +
  +(define-condition cim-error-class-has-instances (cim-error)
  +  ())
  +
  +(define-condition cim-error-invalid-superclass (cim-error)
  +  ())
  +
  +(define-condition cim-error-already-exists (cim-error)
  +  ())
  +
  +(define-condition cim-error-no-such-property (cim-error)
  +  ())
  +
  +(define-condition cim-error-type-mismatch (cim-error)
  +  ())
  +
  +(define-condition cim-error-query-language-not-supported (cim-error)
  +  ())
  +
  +(define-condition cim-error-invalid-query (cim-error)
  +  ())
  +
  +(define-condition cim-eror-method-not-available (cim-error)
  +  ())
  +
  +(define-condition cim-error-method-not-found (cim-error)
  +  ())
  +
  +(define-condition cim-error-unexpected-response (cim-error)
  +  ())
  +
  +(define-condition cim-error-invalid-response-destination (cim-error)
  +  ())
  +
  +(define-condition cim-error-namespace-not-empty (cim-error)
  +  ())
  +
  +										   
   ;; ------------------------------
   ;; examples
   
  
positive.code:   ((frank :initarg :frank))
    (:metaclass cim-class)
    (:cim-name "Frank"))
  
negative.code: 	(dolist (ch (closer-mop:class-direct-subclasses class))
  	  (add-class-to-namespace ch ns :children t)))
    class)
  
  ;; gf for cim methods
  (defclass cim-generic-function (standard-generic-function)
    ((cim-name :initarg :cim-name :accessor cim-name)
     (qualifiers :initarg :qualifiers :accessor cim-qualifiers)
     (return-type :initarg :return-type :accessor cim-return-type)
     (parameters :initarg :parameters :accessor cim-parameters))
    (:documentation "Represents a CIM class method."))
    
  
  ;; --------------- cim types -----------
  
  