anchor.diff:  
   
   (defmethod finalize-inheritance ((class ginstance-class))
  -  (call-next-method)
     (let* ((class-name (class-name class))
   	 (super (most-specific-proxy-superclass class))
   	 (gtype (or 
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtype.lisp,v 1.49 2006-03-06 20:57:08 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code: 	   (not (eq (class-name super) (supertype type-number))))
        (warn "Super class mismatch between CLOS and GObject for ~A"
         class-name)))
    (update-size class)
    (call-next-method))
  
  
  (defmethod shared-initialize ((class ginstance-class) names &rest initargs)
  