anchor.diff:                  (:pk_short  'unmarshal-short)
                   (:pk_ushort 'unmarshal-ushort)
                   (:pk_octet  'unmarshal-octet)
  -                (:pk_boolean 'unmarshal-bool))))
  +                (:pk_boolean 'unmarshal-bool)
  +                (:pk_any    'unmarshal-any)
  +                (:pk_char   'unmarshal-char)
  +                (:pk_float  'unmarshal-float)
  +                (:pk_typecode 'unmarshal-typecode))))
       (if func
         `(,func ,buffer)
         (call-next-method))))
  
positive.code:        :name ,(op:name x)
         :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)))
  
negative.code: 
  
  (defmethod target-code ((exc CORBA:ExceptionDef) (target stub-target))
    (let ((desc (any-value (op:value (op:describe exc)))))
      `(define-user-exception ,(scoped-target-symbol target exc)
         :id ,(op:id desc)
         :name ,(op:name desc)
         :version ,(op:version desc)
         :defined_in ,(scoped-target-symbol target (op:defined_in exc))
         :members ,(map 'list
                        (lambda (smember)
                          (list (op:name smember) 
                                (target-typecode (op:type_def smember) target)))
                        (op:members exc)))))
  
  
  (defmethod target-code ((def CORBA:UnionDef) (target stub-target))
  