anchor.diff:                              nil
                               direct-superclasses)
                           (list dynamic-object)))))
  -         (slots (compute-qt-slots slots class))
  +         (slots (compute-qt-slots slots direct-superclasses))
            (signals
             (iter (for (name) in signals)
                   (collect (make-instance 'signal-member
  
positive.code:     ((cons (eql function) t)
       (eval form))))
  
  (defun compute-qt-slots (slot-description class)
    (let ((slots
            (loop for (name value) in slot-description
                  when value
  
negative.code:                 (make-instance 'slot-member
                                 :name name
                                 :function (parse-function value)))))
      (loop for class in direct-superclasses
            when (typep class 'qt-class)
            do (loop for slot in (class-slots class)
                     unless (find (dynamic-member-name slot)
  