anchor.diff:  
   (defmethod idltype-tc ((self Value-Def))
     (create-value-tc (op:id self) (op:name self) 
  -                   (cond ((omg.org/features:is_abstract self) omg.org/corba:vm_abstract)
  -                         ((omg.org/features:is_custom self) omg.org/corba:vm_custom)
  -                         ((omg.org/features:is_truncatable self) omg.org/corba:vm_truncatable)
  -                         (t omg.org/corba:vm_none))
  -                   (omg.org/features:base_value self)
  +                   (cond ((op:is_abstract self) corba:vm_abstract)
  +                         ((op:is_custom self) corba:vm_custom)
  +                         ((op:is_truncatable self) corba:vm_truncatable)
  +                         (t corba:vm_none))
  +                   (op:base_value self)
                      (simple-value-members
  -                    (omg.org/features:contents self :dk_valuemember t))))
  +                    (op:contents self :dk_valuemember t))))
   
   (define-method contents ((obj Value-Def) limit-type exclude-inherit)
     (if exclude-inherit
         (call-next-method)
  -    (append (call-next-method)
  -            (and (op:base_value obj)
  +    (append (and (op:base_value obj)
                    (op:contents (op:base_value obj) limit-type nil))
  +            (call-next-method)
               (loop for x in (coerce (op:abstract_base_values obj) 'list)
                   append (op:contents x limit-type nil))
               (loop for x in (coerce (op:supported_interfaces obj) 'list)
  
positive.code:     ;; name already exists within this Container and multiple versions are
      ;; not supported.
      (when (member name (contents c) :key #'op:name :test #'string-equal)
        (error 'omg.org/corba:bad_param :minor 3))
  
      (setf (contents c) (nconc (contents c) (list object)))
      (setf (gethash id (idmap repository)) object)
  
negative.code:                 append (op:contents x limit-type nil)))))
  
  
  (defun check-unique-name (container name &key (minor 3))
    (when (op:lookup_name container name 1 :dk_all nil)
      (error 'corba:bad_param :minor minor)))
  
  (define-method (setf op:base_interfaces) :before (value (self interface-def))
    (loop for obj in (contents self) do
          (loop for base in value do
                (check-unique-name base (op:name obj) :minor 5))))
  
  
  ;;;  AttributeDef create_attribute
  