anchor.diff:     (qualifiers :initarg :qualifiers :accessor cim-qualifiers))
     (:metaclass closer-mop:funcallable-standard-class))
   
  -(defmethod initialize-instance :after ((instance cim-method) &rest initargs &key &allow-other-keys)
  -  (do ((kwlist initargs (cddr kwlist)))
  -      ((null kwlist))
  -    (case (car kwlist)
  -      (:cim-name (setf (cim-name instance) (cadr kwlist)))
  -      (:return-type (setf (cim-method-return-type instance) (cadr kwlist)))
  -      (:parameters 
  -       (setf (cim-method-parameters instance)
  -             (mapcar (lambda (parameter)
  -                       (destructuring-bind (lisp-name &key name type qualifiers) parameter
  -                         (cons lisp-name
  -                               (make-cim-parameter :name name
  -                                                   :type type
  -                                                   :qualifiers qualifiers))))
  -                     (cadr kwlist))))
  -      (:function 
  -       (closer-mop:set-funcallable-instance-function instance (cadr kwlist))))))
  -
  -(def-cim-method mymethod ((instance myclass) (x uint32 "x" :in))
  -  ((:return-type uint32)
  -   (:cim-name "MyMethod"))
  -  "My little class"
  -  (declare (cim-class instance)
  -           (uint32 x))
  -  (values (1+ x)
  -          nil))
  -
   (defmacro def-cim-method (name ((instance-var class-name) &rest parameters) options &body body)
     `(let ((method 
             (make-instance 'cim-method
  
positive.code:           (cons (car kwlist)
                  (cadr kwlist)))))))
  
  
  
  ;; ----- namespaces ------
  
  
negative.code: (defmethod provider-get-instance ((instance myclass))
    (cim-error :not-found))
  
  (def-cim-method mymethod ((instance myclass) (x uint32 "x" :in))
    ((:return-type uint32)
     (:qualifiers (:description "My method"))
     (:cim-name "MyMethod"))
    (declare (ignore instance))
    (values (1+ x)
            nil))
  
  
  
  (defclass myclass2 (myclass)
    ((age :initarg :age :Accessor myclass-age))
    (:metaclass cim-class)
  