anchor.diff:    (unmarshal-record #'unmarshal-string-record-list buffer))
   
   
  + 
   ;;;; Marshall Value
   
  
positive.code: (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 box-data ((box t))
    box)
  
negative.code:       ',symbol ,id (create-value-box-tc ,id ,name ,original_type))
       (add-defining-repository ',symbol)
       (defconstant ,tc-constant (symbol-typecode ',symbol))
       ,@(if nil ;type
             `((deftype ,symbol ()
                 ',type))
             `((defclass ,symbol (value-box) ())
               (defmethod object-id ((obj ,symbol)) ,id)
               (defun ,symbol (value) (make-instance ',symbol :data value))))))
  
  
  (defmethod compute-marshal-function ((tc value_box-typecode))
    (let ((id (op:id tc)))
      (lambda (value buffer)
        (marshal-value value buffer id) )))
  
  
  (defmethod compute-unmarshal-function ((tc value_box-typecode))
    (let ((id (op:id tc)))
      (lambda (buffer)
        (unmarshal-value buffer id))))
  
  
  
  ;;;; AbstractInterface
  
  