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:   ;; convert the qualifiers from keyword-pairs to assoc list
    (setf (cim-qualifiers class) (make-qualifiers-list (cim-qualifiers class))))
  
  (defmethod print-object ((class cim-class) stream)
    (print-unreadable-object (class stream :type t)
  	(format stream "~A" (cim-name class))))
  
  (defun find-cim-class (class-name &optional (namespace *namespace*))
    "Find a CIM class by the stringy CIM-NAME in the given namespace."
  
negative.code:   ((frank :initarg :frank))
    (:metaclass cim-class)
    (:cim-name "Frank"))
  
  (defclass myclass4 (myclass)
    ((myslot :initarg :myslot :cim-name "MySlot" :cim-type sint32
  		   :qualifiers (:key)))
    (:metaclass cim-class)
    (:cim-name "MyClass4"))
  
  #|
  (defgeneric my-method (instance x y z)
    (:cim-name "MyMethod")
    (:qualifiers (:description "My little method"))
    (:return-type sint32)
    (:parameters (x "x" string :in (:description "x parameter"))
  			   (y "y" string :out (:description "y parameter"))
  			   (z "z" datetime :out (:description "z paramter")))
    (:generic-function-class cim-generic-function))
  |#
  
  