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:    (:pk_void `CORBA:tc_void)
     (:pk_value_base `CORBA:tc_valuebase)))
  
  (defmethod target-typecode ((x CORBA:StringDef) target)
    (declare (ignore target))
    (if (zerop (op:bound x))
  
negative.code:        :type ,(target-type (op:original_type_def x) target)
         :typecode ,(target-typecode (op:original_type_def x) target) )))
  
  (defun enum-constant-p (const)
    "True if the constant definition is for a generated constant for enum members."
    (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))))
  
  (defmethod target-code ((const CORBA:ConstantDef) (target stub-target))
    (unless (enum-constant-p const)
      `(defconstant ,(scoped-target-symbol target const)
         ',(any-value (op:value const)))))
  
  