anchor.diff:  (defmacro define-ir-class (name supers
                              &rest args
                              &key id def_kind &allow-other-keys)
  +  (declare (ignore id))
     (setq args
       (loop for x on args by #'cddr
           unless (member (car x) '(:id :def_kind))
  
positive.code:                  (op:id obj)
                   (op:name obj)
                   (map 'vector
                        (lambda (x)
                          (list (struct-get x :name)
                                (struct-get x :type)))
                        (op:members obj))))
  
  (defmethod describe-contained ((obj exception-def))
  
negative.code: ;;;; clorb-ifr.lisp -- An Interface Repository Implementation
  ;; $Id: clorb-ifr.lisp,v 1.4 2002/10/28 18:29:01 lenst Exp $
  
  (in-package :clorb)
  
  