anchor.diff:  
   (defmethod target-type ((obj CORBA:StructDef) target)
     (scoped-target-symbol target obj))
  +
  +
  +
  +;;;; Target-typecode Methods
   
   (defmethod target-typecode ((obj CORBA:PrimitiveDef) target)
     (declare (ignore target))
  
positive.code:        :type ,(target-type (op:original_type_def x) target)
         :typecode ,(target-typecode (op:original_type_def x) target) )))
  
  
  (defmethod target-code ((const CORBA:ConstantDef) (target stub-target))
    (unless (and (eq :tk_enum (op:kind (op:type const)))
                 (eq (op:defined_in const)
                     (op:defined_in (op:type_def const)))
                 (string-equal (any-value (op:value const))
                               (op:name const)))
      `(defconstant ,(scoped-target-symbol target const)
         ',(any-value (op:value const)))))
  
  
negative.code:                        (target-base-list target bases #'target-proxy-class-symbol
                                           'CORBA:Proxy))
          :id ,(op:id idef)
          :name ,(op:name idef)
          :version ,(op:version idef)
          :defined_in ,(scoped-target-symbol target (op:defined_in idef))))
     (call-next-method)))
  
  
  