anchor.diff:              :accessor class-signals)
      (qt-slots :initarg :slots
                :accessor class-slots)
  -   (override-specs :initarg :override-specs
  +   (override-specs :initarg :override
                      :accessor class-override-specs)
  -   (class-infos :initarg :class-infos
  +   (class-infos :initarg :info
                   :accessor class-class-infos)
      (effective-class :initform nil)
      (qmetaobject :initform nil)
  
positive.code:            (compute-dynamic-member signals 'signal-member
                                     #'class-signals direct-superclasses))
           (class-infos
            (iter (for (name value) in info)
                  (collect (make-class-info name value))))
           (override-specs
            (iter (for (method fun) in override)
                  (collect (make-instance 'override-spec
                                          :method-name method
                                          :target-function
                                          (parse-function fun))))))
      (apply next-method
             class
             :allow-other-keys t
  
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)
  