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: (defun encode-cimxml-value.namedobject (object)
    (eformat "<VALUE.NAMEDOBJECT>~%")
    (cond
  	((typep object 'cim-class)
  	 (encode-cimxml-class object))
  	(t
  	 (let ((class (class-of object)))
  
negative.code: (defun encode-cimxml-value.objectwithlocalpath (object namespace-list)
    (eformat "<VALUE.OBJECTWITHLOCALPATH>~%")
    (cond
  	((cim-class-declaration-p object)
  	 (encode-cimxml-localclasspath namespace-list (cim-name object))
  	 (encode-cimxml-class object))
  	(t
  