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:   :original_type CORBA:tc_string
    :type string)
  
  
  (define-test-suite "Value"
    (variables
  
negative.code: (in-package :clorb)
  
  (define-abstract-interface test-abint-1 (corba:abstractbase)
    :mixin test-abint-1-mixin
    :proxy (test-abint-1-PROXY OMG.ORG/CORBA:PROXY)
    :id "IDL:test/abint1:1.0"
    :name "abint1")
  
  (define-value test-value-1
    :id "IDL:test/value1:1.0"
    :name "value1"
    :supported_interfaces (test-abint-1)
    :members (("name" CORBA:tc_string 0)))
  
  (define-value test-value-2
  