anchor.diff:  ;;         [IN,OPTIONAL] boolean IncludeClassOrigin = false, 
   ;;         [IN,OPTIONAL,NULL] string PropertyList [] = NULL 
   ;; )
  +(defun encode-enumerate-instances (class-name &key
  +								 (namespace "root") (deep-inheritance t)
  +								 include-class-origin property-list)
  +  (encode-cimxml-request
  +   "EnumerateInstances"
  +   :namespace namespace
  +   :intrinsic-p t
  +   :arguments
  +   `(("ClassName" ,class-name :classname)
  +	 ("DeepInheritance" ,(encode-cimxml-boolean deep-inheritance) :value)
  +	 ("IncludeClassOrigin" ,(encode-cimxml-boolean include-class-origin) :value)
  +	 ("PropertyList" ,property-list :value.array))))
   
   ;;<instanceName>*EnumerateInstanceNames ( 
   ;;         [IN] <className> ClassName 
   ;; )
  -
  +(defun encode-enumerate-instance-names (class-name &key (namespace "root"))
  +  (encode-cimxml-request
  +   "EnumerateInstanceNames"
  +   :intrinsic-p t
  +   :namespace namespace
  +   :arguments
  +   `(("ClassName" ,class-name :classname))))
  +										
   ;; <object>*ExecQuery ( 
   ;;         [IN] string QueryLanguage, 
   ;;         [IN] string Query 
  
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: 
  ;; <qualifierDecl>*EnumerateQualifiers ( 
  ;; )
  (defun encode-enumerate-qualifiers (&key (namespace "root"))
    (encode-cimxml-request
     "EnumerateQualifiers"
     :intrinsic-p t
     :namespace namespace))
  
  
  
  