anchor.diff:    ;; 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."
  
positive.code:   ((frank :initarg :frank))
    (:metaclass cim-class)
    (:cim-name "Frank"))
  
negative.code:   (:scope :property)
    (:flavour :disable-override))
  
  ;; ---------- intrinsic methods --------
  
  ;; basic methods
  (defgeneric enumerate-instances (class)
    (:method-combination nconc))
  
  (defgeneric get-instance (instance)
    (:method-combination or))
  
  (defgeneric create-instance (instance))
  
  (defgeneric modify-instance (instance))
  
  (defgeneric delete-instance (instance))
  
  ;; associations
  (defgeneric association-instances (instance)
    (:method-combination nconc))
  
  (defgeneric reference-instances (instance)
    (:method-combination nconc))
  
  ;; indications
  (defgeneric subscribe (instance))
  
  (defgeneric unsubscribe (instance))
  
  ;; ------------ errors -----------
  
  ;; base error type
  (define-condition cim-error (error)
    ())
  
  (define-condition cim-error-failed (cim-error)
    ())
  
  (define-condition cim-error-access-denied (cim-error)
    ())
  
  (define-condition cim-error-invalid-namespace (cim-error)
    ())
  
  (define-condition cim-error-invalid-parameter (cim-error)
    ())
  
  (define-condition cim-error-invalid-class (cim-error)
    ())
  
  (define-condition cim-error-not-found (cim-error)
    ())
  
  (define-condition cim-error-not-supported (cim-error)
    ())
  
  (define-condition cim-error-class-has-children (cim-error)
    ())
  
  (define-condition cim-error-class-has-instances (cim-error)
    ())
  
  (define-condition cim-error-invalid-superclass (cim-error)
    ())
  
  (define-condition cim-error-already-exists (cim-error)
    ())
  
  (define-condition cim-error-no-such-property (cim-error)
    ())
  
  (define-condition cim-error-type-mismatch (cim-error)
    ())
  
  (define-condition cim-error-query-language-not-supported (cim-error)
    ())
  
  (define-condition cim-error-invalid-query (cim-error)
    ())
  
  (define-condition cim-eror-method-not-available (cim-error)
    ())
  
  (define-condition cim-error-method-not-found (cim-error)
    ())
  
  (define-condition cim-error-unexpected-response (cim-error)
    ())
  
  (define-condition cim-error-invalid-response-destination (cim-error)
    ())
  
  (define-condition cim-error-namespace-not-empty (cim-error)
    ())
  
  										   
  ;; ------------------------------
  ;; examples
  
  