anchor.diff:     (:pk_ulong `CORBA:tc_ulong)
      (:pk_ulonglong `CORBA:tc_ulonglong)
      (:pk_ushort `CORBA:tc_ushort)
  -   (:pk_wchar `CORBA:tc_wchar)))
  +   (:pk_wchar `CORBA:tc_wchar)
  +   (:pk_void `CORBA:tc_void)))
   
   
   (defmethod target-typecode ((x CORBA:SequenceDef) target)
  
positive.code: 
  (defmethod target-code ((op CORBA:OperationDef) target)
    (let* ((op-name (op:name op))
           (lisp-name (make-target-symbol target op-name :op))
           (class (target-proxy-class-symbol target (op:defined_in op))))
      `(defmethod ,lisp-name ((obj ,class) &rest args)
         (apply 'clorb::invoke obj ,op-name args))))
  
  
  (defmethod target-code ((op CORBA:AttributeDef) target)
  
negative.code:                              newval)))))))
  
  
  (defmethod target-code ((mdef CORBA:Container) target)
    (make-progn (map 'list (lambda (contained)
                             (target-code contained target))
                     (op:contents mdef :dk_All t))))
  