anchor.diff:     (id2 (symbol-ifr-id 'test-value-2))
      (v2 (make-instance 'test-value-2 :name "root" :left v1 :right nil))
      (v2b (make-instance 'test-value-2 :name "v2b" :left v1 :right v1))
  +   (tc3 (let ((tc (symbol-typecode 'test-value-3)))
  +          (setf (gethash (op:id tc) *ifr-id-symbol*) 'test-value-3)
  +          tc))
      (buffer (get-work-buffer)))
   
     (define-test "simple"
  
positive.code:       ((or (not (typep hare 'test-value-2))
             (eql hare turtle))
         (if hare (1+ count) count))))
  #|
  (op:depth (make-instance 'test-value-2-user 
              :left (make-instance 'test-value-2-user 
                      :left (make-instance 'test-value-1))))
  (let ((tree (make-instance 'test-value-2-user 
              :left (make-instance 'test-value-2-user))))
    (setf (op:left (op:left tree)) tree)
    (op:depth tree))
  |#
  
  
  (define-value test-value-3
    :id "IDL:test/value3:1.0"
    :name "value3"
    :base_value test-value-1 
    :is_truncatable t
    :members (("next" (symbol-typecode 'test-value-3) 0)))
  
  
  (define-value-box test-box-1 
  
negative.code:         (ensure-equalp r2 s2)
          (ensure-equalp r1 r3))))
  
    (define-test "chunked"
      (let ((v3 (make-instance 'test-value-3 :name "foo" 
                               :next (make-instance 'test-value-3 :name "bar" 
                                                    :next nil))))
        (marshal v3 tc1 buffer)
        (ensure-pattern* (unmarshal tc1 buffer) 
                         'op:name "foo"
                         'op:next (pattern 'identity (isa 'test-value-3)
                                           'op:name "bar"
                                           'op:next nil))))
    (define-test "chunked box"
      (let ((v (make-instance 'test-box-in-value :name "foo" 
                               :box (make-instance 'test-box-1 :data 989))))
        (marshal v tc1 buffer)
        (ensure-pattern* (unmarshal (symbol-typecode 'test-box-in-value) buffer) 
                         'op:name "foo"
                         'op:box (pattern 'op:data 989))))
    
  
    (define-test "truncated"
      (let ((v3 (make-instance 'test-value-3 :name "foo" 
                               :next (make-instance 'test-value-3 :name "bar" 
  