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