anchor.diff:                              nil
                               direct-superclasses)
                           (list dynamic-object)))))
  -         (slots
  -          (iter (for (name value) in slots)
  -                (collect (make-instance 'slot-member
  -                                        :name name
  -                                        :function (parse-function value)))))
  +         (slots (compute-qt-slots slots class))
            (signals
             (iter (for (name) in signals)
                   (collect (make-instance 'signal-member
  
positive.code:      (compile nil form))
      ((cons (eql function) t)
       (eval form))))
  
  (defun initialize-qt-class
      (class next-method &rest args
  
negative.code:    (cached-arg-types :accessor dynamic-member-cached-arg-types)))
  
  (defclass signal-member (dynamic-member)
    ())
  
  (defclass slot-member (dynamic-member)
    ((function :initarg :function
               :accessor dynamic-member-function)))
  
  (defmethod print-object ((instance dynamic-member) stream)
    (print-unreadable-object (instance stream :type t :identity t)
      (princ (dynamic-member-name instance) stream)))
  
  (defmethod print-object ((instance dynamic-object) stream)
    (print-unreadable-object (instance stream :type t :identity nil)
  