anchor.diff:  ;;;  readonly attribute TypeCode type;
   ;;;  attribute StructMemberSeq members;
   
  +;; EXPERIMENTAL - IFR-objects that are adapters for (get information
  +;; from) description structs.
  +
   (defclass desc-exceptiondef (CORBA:ExceptionDef)
     ((desc  :initarg :description  :accessor description)))
   
  
positive.code: ;;;                                  in long max_returned_objs);
  
  
  #|
  
  (CORBA:IDL "clorb:idl;interface_repository.idl" 
  
negative.code: ;;; readonly attribute TypeCode type;
  (define-method op:type ((obj desc-exceptiondef)) (op:type (description obj)))
  ;;; attribute StructMemberSeq members;
  (define-method op:members ((obj desc-exceptiondef))
    (let* ((tc (op:type (description obj)))
           (n  (op:member_count tc)))
      (loop for i from 0 below n
  