anchor.diff:  
   (defclass cim-class (closer-mop:standard-class)
     ((cim-name :initarg :cim-name :accessor cim-name)
  -   (qualifiers :initarg :qualifiers :initform nil :accessor cim-qualifiers))
  +   (qualifiers :initarg :qualifiers :initform nil :accessor cim-qualifiers)
  +   (methods :initarg :methods :initform nil :accessor cim-class-methods))
     (:documentation "Metaclass used to represent CIM classes."))
   
   (defclass cim-association (cim-class)
  
positive.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 :initform nil :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 -----------
  
negative.code: (defun create-instance (instance)
    "Create an instance of this class."
    (declare (cim-class instance))
    (provider-create-instance instance))
  
  (defmethod provider-create-instance ((instance cim-class))
    (cim-error :not-supported))
  