anchor.diff:             :qt-superclass qt-superclass
              :slots slots
              :signals signals
  -           :class-infos class-infos
  -           :override-specs override-specs
  +           :info class-infos
  +           :override override-specs
              args)))
   
   (defmethod initialize-instance :around ((instance qt-class) &rest args)
  
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:            (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
  