anchor.diff:      :digits digits
       :scale scale))
   
  +
  +(define-method op:destroy ((obj repository))
  +  (raise-system-exception 'omg.org/corba:bad_inv_order
  +                          2 :completed_yes))
  +
  +
    
   ;;;; ModuleDef
  
positive.code:       (values (subseq str 0 method-end)
                (subseq str (+ method-end 2)))
        str )))
  
  
  ;;;  ModuleDef create_module (
  
negative.code:   (print-unreadable-object (obj stream :type t :identity t)
      (format stream "~A" (slot-value obj 'kind))))
  
  (define-method op:destroy ((obj primitive-def))
    (raise-system-exception 'omg.org/corba:bad_inv_order
                            2 :completed_yes))
  
  
  