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