anchor.diff:       &key qt-superclass direct-superclasses slots signals info override
        &allow-other-keys)
     (let* ((qt-superclass
  -          (if qt-superclass
  -              (destructuring-bind (name) qt-superclass
  -                (check-type name string)
  -                name)
  -              nil))
  +           (if qt-superclass
  +               (destructuring-bind (name) qt-superclass
  +                 (check-type name string)
  +                 name)
  +               nil))
            (direct-superclasses
  -          (let ((qt-class (find-class 'qt-class))
  -                (standard-object (find-class 'standard-object))
  -                (dynamic-object (find-class 'dynamic-object)))
  -            (if (some (lambda (c) (typep c qt-class))
  -                      direct-superclasses)
  -                direct-superclasses
  -                (append (if (equal direct-superclasses (list standard-object))
  -                            nil
  -                            direct-superclasses)
  -                        (list dynamic-object)))))
  +           (let ((qt-class (find-class 'qt-class))
  +                 (standard-object (find-class 'standard-object))
  +                 (dynamic-object (find-class 'dynamic-object)))
  +             (if (some (lambda (c) (typep c qt-class))
  +                       direct-superclasses)
  +                 direct-superclasses
  +                 (append (if (equal direct-superclasses (list standard-object))
  +                             nil
  +                             direct-superclasses)
  +                         (list dynamic-object)))))
            (slots
              (compute-dynamic-member slots 'slot-member
                                      #'class-slots direct-superclasses))
  
positive.code:             :accessor class-signals)
     (qt-slots :initarg :slots
               :accessor class-slots)
     (override-specs :initarg :override-specs
                     :accessor class-override-specs)
     (class-infos :initarg :class-infos
                  :accessor class-class-infos)
     (effective-class :initform nil)
     (qmetaobject :initform nil)
  
negative.code:            :qt-superclass qt-superclass
             :slots slots
             :signals signals
             :info class-infos
             :override override-specs
             args)))
  
  (defmethod initialize-instance :around ((instance qt-class) &rest args)
  