anchor.diff:      (setf (slot-value s 'type)
         (op:type (op:type_def s)))))
   
  -
  -;; enum ParameterMode {PARAM_IN, PARAM_OUT, PARAM_INOUT};
  -
  -(deftype CORBA::ParameterMode ()
  -  `(member :PARAM_IN :PARAM_OUT :PARAM_INOUT))
   
   (setf (get :in 'param-mode) :param_in) 
   (setf (get :out 'param-mode) :param_out)
  
positive.code: ;;;; Operation definitions (opdef)
  
  (in-package :clorb)
  
  
  (defstruct opdef
    name
  
negative.code:   (result CORBA:tc_void)
    raises)
  
  ;;(define-slot-dumper opdef)
  
  (defmethod op:type :before ((s CORBA:ParameterDescription) &rest x)
    (declare (ignore x))
  