anchor.diff:  ;;         [IN,OPTIONAL] boolean IncludeQualifiers = true, 
   ;;         [IN,OPTIONAL] boolean IncludeClassOrigin = false 
   ;; )
  +(defun encode-enumerate-classes (&key
  +								 (namespace "root") class-name deep-inheritance
  +								 (local-only t) (include-qualifiers t)
  +								 include-class-origin)
  +  (encode-cimxml-request
  +   "EnumerateClasses"
  +   :namespace namespace
  +   :intrinsic-p t
  +   :arguments
  +   `(,@(when class-name `(("ClassName" ,class-name :classname)))
  +	   ("DeepInheritance" ,(encode-cimxml-boolean deep-inheritance) :value)
  +	   ("LocalOnly" ,(encode-cimxml-boolean local-only) :value)
  +	   ("IncludeQualifiers" ,(encode-cimxml-boolean include-qualifiers) :value)
  +	   ("IncludeClassOrigin" ,(encode-cimxml-boolean include-class-origin) :value))))
   
   ;;<className>*EnumerateClassNames ( 
   ;;         [IN,OPTIONAL,NULL] <className> ClassName = NULL, 
   ;;         [IN,OPTIONAL] boolean DeepInheritance = false 
   ;; )
  +(defun encode-enumerate-class-names (&key
  +									 (namespace "root") class-name
  +									 deep-inheritance)
  +  (encode-cimxml-request
  +   "EnumerateClassNames"
  +   :namespace namespace
  +   :intrinsic-p t
  +   :arguments
  +   `(,@(when class-name `(("ClassName" ,class-name :classname)))
  +	   ("DeepInheritance" ,(encode-cimxml-boolean deep-inheritance) :value))))
   
   ;;<namedInstance>*EnumerateInstances ( 
   ;;         [IN] <className> ClassName, 
  
positive.code: ;;         [IN,OPTIONAL] boolean IncludeClassOrigin = false, 
  ;;         [IN,OPTIONAL,NULL] string PropertyList [] = NULL 
  ;; )
  
  ;; <objectPath>*AssociatorNames ( 
  ;;         [IN] <objectName> ObjectName, 
  ;;         [IN,OPTIONAL,NULL] <className> AssocClass = NULL, 
  
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, 
  