anchor.diff:  	(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 -----------
   
  
positive.code:   ((frank :initarg :frank))
    (:metaclass cim-class)
    (:cim-name "Frank"))
  
negative.code:   ;; convert the qualifiers from keyword-pairs to assoc list
    (setf (cim-qualifiers class) (make-qualifiers-list (cim-qualifiers class))))
  
  (defmethod initialize-instance :after ((slot cim-standard-direct-slot-definition) &rest initargs &key &allow-other-keys)
    (declare (ignore initargs))
    (setf (cim-qualifiers slot) (make-qualifiers-list (cim-qualifiers slot))))
  
  (defmethod initialize-instance :after ((slot cim-standard-effective-slot-definition) &rest initargs &key &allow-other-keys)
    (declare (ignore initargs))
    (setf (cim-qualifiers slot) (make-qualifiers-list (cim-qualifiers slot))))
  
  
  
  (defmethod print-object ((class cim-class) stream)
    (print-unreadable-object (class stream :type t)
  	(format stream "~A" (cim-name class))))
  
  
  (defmethod print-object ((slot cim-standard-direct-slot-definition) stream)
    (print-unreadable-object (slot stream :type t)
  	(format stream "~A :TYPE ~A" (cim-name slot) (cim-slot-type slot))))
  
  (defmethod print-object ((slot cim-standard-effective-slot-definition) stream)
    (print-unreadable-object (slot stream :type t)
  	(format stream "~A :TYPE ~A" (cim-name slot) (cim-slot-type slot))))
  
  
  (defun find-cim-class (class-name &optional (namespace *namespace*))
    "Find a CIM class by the stringy CIM-NAME in the given namespace."
  