anchor.diff:  (defmethod any-value ((obj string))
     obj)
   
  -(defmethod any-value ((obj CORBA:Object))
  -  obj)
  -
   (defmethod any-value ((obj symbol))
     ;; ENUM
     obj)
  
positive.code: (defmethod any-value ((obj sequence))
    obj)
  
  (defmethod any-value ((obj t))
    (error 'CORBA:BAD_PARAM))
  
negative.code: (defmethod any-typecode ((obj string))
    CORBA:tc_string)
  
  (defmethod any-typecode ((struct CORBA:struct))
    (get-typecode (type-id struct)))
  
  
  ;;; Value accessor
  
  