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