anchor.diff:                        obj))
                  (let ((*unmarshal-record-register* #'register))
                    (register (if tag-type 
  -                             (funcall func tag)
  +                             (apply func tag args)
                                (funcall func buffer))))))))))
   
   
  
positive.code:      (rewind-tag () (incf (buffer-position buffer) -4))
       (truncating ()
         (unless truncate
           (mess 4 "Truncating a non truncatable value")
           (error 'CORBA:MARSHAL)))
       (truncate-chunk ()
         (when *chunk-end*
  
negative.code:   :constant (corba::TC_ValueBase "IDL:omg.org/CORBA/ValueBase:1.0" "ValueBase"
                                   CORBA::VM_NONE nil ())
    :share named-typecode :shared-params 2
    :extra-slots (truncatable-interfaces 
                  member-types all-member-types 
                  feature-symbols all-feature-symbols ))
  
  
  (defmacro define-value (symbol &key id name base_value 
  