anchor.diff:  ;;         [IN,OPTIONAL] boolean IncludeClassOrigin = false, 
   ;;         [IN,OPTIONAL,NULL] string PropertyList [] = NULL 
   ;; )
  +(defun encode-references (object-name &key
  +						  (namespace "root")
  +						  result-class role result-role
  +						  include-class-origin property-list)
  +  (encode-cimxml-request
  +   "References"
  +   :intrinsic-p t
  +   :namespace namespace
  +   :arguments
  +   `(("ObjectName" ,object-name ,(cond
  +								  ((cim-instance-p object-name)
  +								   :value.namedinstance)
  +								  ((typep object-name 'cim-class)
  +								   :class)
  +								  (t (error "OBJECT-NAME must be a CIM-INSTANCE or a CIM-CLASS"))))
  +	 ,@(when result-class `(("ResultClass" ,result-class :classname)))
  +	 ,@(when role `(("Role" ,role :value)))
  +	 ,@(when result-role `(("ResultRole" ,result-role :value)))
  +	 ("IncludeClassOrigin" ,(encode-cimxml-boolean include-class-origin) :value)
  +	 ("PropertyList" ,property-list :value.array))))
  +
   				   
   ;;<objectPath>*ReferenceNames ( 
   ;;         [IN] <objectName> ObjectName, 
   ;;         [IN,OPTIONAL,NULL] <className> ResultClass = NULL, 
   ;;         [IN,OPTIONAL,NULL] string Role = NULL 
   ;; )
  +(defun encode-reference-names (object-name &key
  +						  (namespace "root")
  +						  result-class role)
  +  (encode-cimxml-request
  +   "ReferenceNames"
  +   :intrinsic-p t
  +   :namespace namespace
  +   :arguments
  +   `(("ObjectName" ,object-name ,(cond
  +								  ((cim-instance-p object-name)
  +								   :value.namedinstance)
  +								  ((typep object-name 'cim-class)
  +								   :class)
  +								  (t (error "OBJECT-NAME must be a CIM-INSTANCE or a CIM-CLASS"))))
  +	 ,@(when result-class `(("ResultClass" ,result-class :classname)))
  +	 ,@(when role `(("Role" ,role :value))))))
   
   ;; <propertyValue>GetProperty ( 
   ;;         [IN] <instanceName> InstanceName, 
  
positive.code: ;;         [IN,OPTIONAL] boolean IncludeClassOrigin = false, 
  ;;         [IN,OPTIONAL,NULL] string PropertyList [] = NULL 
  ;; )
  
  ;;<instanceName>*EnumerateInstanceNames ( 
  ;;         [IN] <className> ClassName 
  ;; )
  
  ;; <object>*ExecQuery ( 
  ;;         [IN] string QueryLanguage, 
  ;;         [IN] string Query 
  
negative.code: ;;         [IN,OPTIONAL,NULL] string Role = NULL, 
  ;;         [IN,OPTIONAL,NULL] string ResultRole = NULL 
  ;; )
  (defun encode-associator-names (object-name &key
  								(namespace "root")
  								assoc-class result-class role result-role)
    (encode-cimxml-request
     "AssociatorNames"
     :intrinsic-p t
     :namespace namespace
     :arguments
     `(("ObjectName" ,object-name ,(cond
  								  ((cim-instance-p object-name)
  								   :value.namedinstance)
  								  ((typep object-name 'cim-class)
  								   :class)
  								  (t (error "OBJECT-NAME must be a CIM-INSTANCE or a CIM-CLASS"))))
  	 ,@(when assoc-class `(("AssocClass" ,assoc-class :classname)))
  	 ,@(when result-class `(("ResultClass" ,result-class :classname)))
  	 ,@(when role `(("Role" ,role :value)))
  	 ,@(when result-role `(("ResultRole" ,result-role :value))))))
  
  ;; <objectWithPath>*References ( 
  ;;         [IN] <objectName> ObjectName, 
  