anchor.diff:  ;;<!ELEMENT VALUE.OBJECT (CLASS|INSTANCE)>
   (defun encode-cimxml-value.object (object)
     (eformat "<VALUE.OBJECT>~%")
  -  (if (typep object 'cim-class)
  +  (if (cim-class-declaration-p object)
   	  (encode-cimxml-class object)
   	  (encode-cimxml-instance object))
     (eformat "</VALUE.OBJECT>~%"))
  
positive.code: 	   (encode-cimxml-property slot value))
  	  (t
  	   ;; another type, must be a reference
  	   (encode-cimxml-property.reference slot value)))))
  
  (defun encode-cimxml-slot* (slot-name slot-value slot-type)
    (encode-cimxml-slot (make-instance 'cim-standard-effective-slot-definition
  
negative.code:    `(("ObjectName" ,object-name ,(cond
  								  ((cim-instance-p object-name)
  								   :value.namedinstance)
  								  ((cim-class-declaration-p object-name)
  								   :class)
  								  (t (error "OBJECT-NAME must be a CIM-INSTANCE or a CIM-CLASS-DECLARATION"))))
  	 ,@(when result-class `(("ResultClass" ,result-class :classname)))
  	 ,@(when role `(("Role" ,role :value))))))
  
  