anchor.diff:     (:pk_void `CORBA:tc_void)
      (:pk_value_base `CORBA:tc_valuebase)))
   
  +
  +(defmethod target-typecode ((obj CORBA:FixedDef) target)
  +  (declare (ignore target))
  +  `(create-fixed-tc ,(op:digits obj) ,(op:scale obj)))
  +
  +
   (defmethod target-typecode ((x CORBA:StringDef) target)
     (declare (ignore target))
     (if (zerop (op:bound x))
  
positive.code:                        (target-base-list target bases #'target-proxy-class-symbol
                                           'CORBA:Proxy))
          :id ,(op:id idef)
          :name ,(op:name idef)))
  
     (call-next-method)))
  
  
  
negative.code:     (:pk_wstring 'CORBA:wstring)))
  
  
  (defmethod target-type ((obj CORBA:FixedDef) target)
    (declare (ignore target))
    'corba:fixed)
  
  (defmethod target-type ((obj CORBA:SequenceDef) target)
    (declare (ignore target))
    `sequence)
  