anchor.diff:  
   
   |#
  +
  +
  
positive.code:        (CORBA:OperationDescription
          :id (symbol-ifr-id symbol)
          :name (get symbol 'ifr-name)
          :version (get symbol 'ifr-version "1.0")
          :defined_in (symbol-ifr-parent-id symbol)
          :result value
          :mode (get symbol 'ifr-mode)
  
negative.code:           finally (setq opdesc ops
                          atdesc ats))
      (corba:interfacedef/fullinterfacedescription
       :name (or (get symbol 'ifr-name) (op:name tc))
       :id   (symbol-ifr-id symbol)
       :defined_in ""
       :version (ifr-version symbol)
       :operations opdesc
       :attributes atdesc
       :base_interfaces (mapcar #'symbol-ifr-id (get symbol 'ifr-bases)) 
  