anchor.diff:        (values (subseq str 0 method-end)
                 (subseq str (+ method-end 2)))
         str )))
  +
  +
  +(define-method op:describe_contents ((self container) limit-type exclude-inherited max-return-objects)
  +  (when (eql max-return-objects -1)
  +    (setq max-return-objects most-positive-fixnum))
  +  (loop for c in (op:contents self limit-type exclude-inherited)
  +        repeat max-return-objects
  +        collect (CORBA:Container/Description 
  +                 :contained_object c
  +                 :kind (op:def_kind c)
  +                 :value (describe-contained c))))
   
   
   ;;;  ModuleDef create_module (
  
positive.code:     (raise-system-exception 'CORBA:BAD_PARAM 4))
    (moveto to-container obj new-name new-version))
  
  
  ;;;; Container
  
negative.code:                 :supported_interfaces supported_interfaces
                  :initializers initializers)))
  
  
  (define-method op:destroy ((obj container))
    (dolist (x (contents obj))
      (op:destroy x))
    (call-next-method))
  
  		
  