anchor.diff:          (setf (gethash ,id *user-exception-classes*) ',symbol)
           (defun ,symbol (&rest initargs)
             (apply #'make-condition ',symbol initargs))
  -        (defmethod exception-typecode ((exc ,symbol))
  -          (load-time-value (make-typecode :tk_except ,id ,name (list ,@tc-members))))
  +        (set-symbol-ifr-id ',symbol ,id)
  +        (set-symbol-typecode ',symbol 
  +                             (lambda () (make-typecode :tk_except ,id ,name (list ,@tc-members))))
  +        (defmethod exception-name ((exc ,symbol)) ',symbol)
           (defmethod userexception-values ((ex ,symbol))
             (list ,@(mapcar (lambda (slot-spec) `(slot-value ex ',(car slot-spec)))
  -                          slots))))))) 
  +                          (append slots members)))))))) 
   
   
   
   
  -
  -
  -(defun report-systemexception (exc stream)
  -  (format stream
  -          "Exception ~A~_ minor ~A~_ completed ~A"
  -	  (exception-id exc)
  -          (system-exception-minor exc)
  -          (system-exception-completed exc)))
  -
  -(defun report-userexception (exc stream)
  -  (format stream
  -          "User Exception (~A) ~_~S"
  -          (exception-id exc) (userexception-values exc)))
  
positive.code:                            (id (format nil "IDL:omg.org/CORBA/~A:1.0" namestr))
                             (sym (intern namestr :CORBA)))
                        `(progn
                           (define-condition ,sym (corba:systemexception)
                                             (#+clisp
                                              (id :initform ,id))
                             #-clisp
                             (:default-initargs
                               :id ,id))
                           (setf (gethash ,id *system-execption-classes*) ',sym) ))))))
    (define-system-exceptions
        UNKNOWN BAD_PARAM NO_MEMORY IMP_LIMIT
  
negative.code: 	      :initarg :completed
                :type CORBA::completion_status
  	      :reader system-exception-completed))
    (:report report-systemexception))
  
  (define-method minor ((obj systemexception))
    (system-exception-minor obj))
  
  (define-method completed ((obj systemexception))
    (system-exception-completed obj))
  
  (defun report-systemexception (exc stream)
    (format stream
            "Exception ~S (~A) ~A"
  	  (exception-name exc)
            (system-exception-minor exc)
            (system-exception-completed exc)))
  
  
  (macrolet
  