anchor.diff:  (defun create-instance (instance)
     "Create an instance of this class."
     (declare (cim-class instance))
  -  (provider-create-instance))
  +  (provider-create-instance instance))
   
   (defmethod provider-create-instance ((instance cim-class))
     (cim-error :not-supported))
  
positive.code: 
  (defclass cim-class (closer-mop:standard-class)
    ((cim-name :initarg :cim-name :accessor cim-name)
     (qualifiers :initarg :qualifiers :initform nil :accessor cim-qualifiers))
    (:documentation "Metaclass used to represent CIM classes."))
  
  (defclass cim-association (cim-class)
  
negative.code: 	(dolist (ch (closer-mop:class-direct-subclasses class))
  	  (add-class-to-namespace ch ns :children t)))
    class)
    
  
  ;; --------------- cim types -----------
  