anchor.diff:  (defclass value-box ()
     ((op::data :initarg :data
                :accessor box-data)))
  +
   (define-method data ((box value-box))
     (box-data box))
  +
   (define-method (setf data) (new (box value-box))
     (setf (box-data box) new))
  +
  +
   (defmethod print-object ((box value-box) stream)
     (print-unreadable-object (box stream :type t :identity t)
       (when (slot-boundp box 'op::data)
         (prin1 (box-data box) stream))))
  +
  +
  +(defmethod shared-initialize ((value value-box) slot-names
  +                              &key factory create-for-unmarshal
  +                              &allow-other-keys)
  +  (declare (ignore slot-names create-for-unmarshal))
  +  (if factory (raise-system-exception 'CORBA:BAD_PARAM))
  +  (call-next-method))
  +
  +
  +(defmethod all-member-types ((tc value_box-typecode))
  +  (list (op:content_type tc)))
  +
  +(defmethod all-feature-symbols ((tc value_box-typecode))
  +  '(op::data))
  +
  +(defmethod all-keyword-symbols ((tc value_box-typecode))
  +  '(:data))
  +
   
   (defmethod box-data ((box t))
     box)
  
positive.code: (in-package :clorb)
  
  
  ;;;; Value
  
  
negative.code:   (unmarshal-record #'unmarshal-string-record-list buffer))
  
  
  
  ;;;; Marshall Value
  
  