anchor.diff:  (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
  
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:   :original_type CORBA:tc_string
    :type string)
  
  (define-value test-box-in-value
    :id "IDL:test/boxinvalue:1.0"
    :name "boxinvalue"
    :base_value test-value-1
    :is_truncatable t
    :members (("box" (symbol-typecode 'test-box-1) 0)))
  
  (define-test-suite "Value"
    (variables
  