anchor.diff:     ;; boolean is_truncatable
      :is_truncatable (op:is_truncatable def)
      ;; RepositoryId base_value
  -   :base_value (op:id (op:base_value def))
  +   :base_value (subject-id (op:base_value def))
      ;; TypeCode type
      :type (op:type def)))
   
  
positive.code:                  (every (lambda (p)
                            (eq :param_in (op:mode p)))
                          params))
        (error 'omg.org/corba:bad_param
               :minor 31
               :completed :completed_yes))))
  
  
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
  