anchor.diff:  ;;;; Operation definitions (opdef)
   
   (in-package :clorb)
  -
   
   (defstruct opdef
     name
  
positive.code:   (result CORBA:tc_void)
    raises)
  
  (define-slot-dumper opdef)
  
  
  (define-corba-struct CORBA:ParameterDescription
      :id "IDL:omg.org/CORBA/ParameterDescription:1.0"
      :members ((name     "")
                (type     nil)
                (type_def nil)
                (mode     :PARAM_IN)))
  
  (defmethod op:type :before ((s CORBA:ParameterDescription) &rest x)
    (declare (ignore x))
  
negative.code:     (setf (slot-value s 'type)
        (op:type (op:type_def s)))))
  
  
  (setf (get :in 'param-mode) :param_in) 
  (setf (get :out 'param-mode) :param_out)
  